| routine73 |
D588 |
LD HL,(object_table_entry_pointer) |
|
D58B |
LD A,(HL) |
|
D58C |
OR A |
|
D58D |
JR Z,routine73_0 |
|
D58F |
LD A,(CURSP) |
|
D592 |
CP $24 |
|
D594 |
JP P,routine13_1 |
|
D597 |
LD HL,(object_table_entry_pointer) |
|
D59A |
LD DE,$0141 |
|
D59D |
ADD HL,DE |
|
D59E |
LD A,(HL) |
|
D59F |
CP $04 |
|
D5A1 |
JR NZ,routine72_0 |
| routine73_0 |
D5A3 |
CALL routine15 |
|
D5A6 |
JR NZ,routine72_0 |
|
D5A8 |
CALL routine19 |
|
D5AB |
JR NZ,routine72_0 |
|
D5AD |
CALL routine14 |
|
D5B0 |
JR Z,routine73_1 |
|
D5B2 |
LD A,$45 |
|
D5B4 |
LD ($5C8F),A |
|
D5B7 |
CALL clear_bottom_row |
|
D5BA |
LD A,$3C |
|
D5BC |
LD BC,$1600 |
|
D5BF |
CALL MPRINT |
|
D5C2 |
CALL wait_no_key_seed |
|
D5C5 |
CALL wait_key_seed |
|
D5C8 |
JP routine13_1 |
| routine73_1 |
D5CB |
CALL routine20 |
|
D5CE |
LD A,(spell_success_flag) |
|
D5D1 |
OR A |
|
D5D2 |
JR Z,routine73_3 |
|
D5D4 |
CALL routine16 |
|
D5D7 |
POP BC |
|
D5D8 |
PUSH BC |
|
D5D9 |
LD A,B |
|
D5DA |
CP $01 |
|
D5DC |
JR NZ,routine73_2 |
|
D5DE |
CALL routine11 |
| routine73_2 |
D5E1 |
POP BC |
|
D5E2 |
DEC B |
|
D5E3 |
JP NZ,routine13_0 |
|
D5E6 |
RET |
| routine73_3 |
D5E7 |
POP BC |
|
D5E8 |
CALL routine11 |
|
D5EB |
RET |
