Routines
Prev: 980E Up: Map Next: 98DB
981A: routine13
Used by the routines at creature_cast_spell, trees_castles_spell, wall_spell, routine77, routine82 and routine84.
routine13 981A CALL clear_bottom_row
981D CALL routine12
9820 CALL set_IM2_mode
9823 LD A,$00
9825 LD ($5C8D),A
9828 LD A,$FF
982A LD ($5C8E),A
982D CALL routine50
9830 EI
9831 HALT
9832 LD A,$03
9834 LD ($5C91),A
9837 CALL clear_bottom_row
983A LD A,(unknown11)
983D LD B,A
This entry point is used by the routine at routine73.
routine13_0 983E PUSH BC
This entry point is used by the routine at routine73.
routine13_1 983F CALL routine41
9842 CALL $02BF
9845 CP $53
9847 JR Z,routine13_2
9849 CP $4B
984B JR NZ,routine13_1
984D POP BC
984E LD HL,sound_effect_18
9851 CALL play_sound_effect_in_HL
9854 EI
9855 RET
routine13_2 9856 CALL wait_no_key_seed
9859 CALL routine10
985C JP P,routine13_3
985F CALL clear_bottom_row
9862 LD BC,$1600
9865 LD A,$45
9867 LD ($5C8F),A
986A LD A,$35
986C CALL MPRINT
986F CALL wait_no_key_seed
9872 CALL wait_key_seed
9875 JR routine13_1
This entry point is used by the routine at routine72.
routine13_3 9877 LD HL,(object_table_entry_pointer)
987A LD A,(HL)
987B OR A
987C JR Z,routine13_4
987E LD A,(CURSP)
9881 CP $24
9883 JP P,routine13_1
9886 LD HL,(object_table_entry_pointer)
9889 LD DE,$0141
988C ADD HL,DE
988D LD A,(HL)
988E CP $04
9890 JR NZ,routine13_1
routine13_4 9892 CALL routine15
9895 JR NZ,routine13_1
9897 CALL routine19
989A JR NZ,routine13_1
989C CALL routine14
989F JR Z,routine13_5
98A1 LD A,$45
98A3 LD ($5C8F),A
98A6 CALL clear_bottom_row
98A9 LD A,$3C
98AB LD BC,$1600
98AE CALL MPRINT
98B1 CALL wait_no_key_seed
98B4 CALL wait_key_seed
98B7 JP routine13_1
routine13_5 98BA CALL routine20
98BD LD A,(spell_success_flag)
98C0 OR A
98C1 JR Z,routine13_7
98C3 CALL routine16
98C6 POP BC
98C7 PUSH BC
98C8 LD A,B
98C9 CP $01
98CB JR NZ,routine13_6
98CD CALL routine11
routine13_6 98D0 POP BC
98D1 DEC B
98D2 JP NZ,routine13_0
98D5 RET
routine13_7 98D6 POP BC
98D7 CALL routine11
98DA RET
Prev: 980E Up: Map Next: 98DB