9356: Routine at 9356
| 9356 |
LD HL,($607A) |
| 9359 |
LD DE,$FF88 |
| 935C |
ADD HL,DE |
| 935D |
LD A,H |
| 935E |
AND $1F |
| 9360 |
LD H,A |
| 9361 |
SRA H |
| 9363 |
RR L |
| 9365 |
SRA H |
| 9367 |
RR L |
| 9369 |
SRA H |
| 936B |
RR L |
| 936D |
LD DE,$50C0 |
| 9370 |
LD BC,$7000 |
| 9373 |
LD A,$20 |
| 9375 |
PUSH AF |
| 9376 |
PUSH HL |
| 9377 |
ADD HL,BC |
| 9378 |
PUSH BC |
| 9379 |
PUSH DE |
| 937A |
CALL $917C |
| 937D |
POP DE |
| 937E |
INC E |
| 937F |
POP BC |
| 9380 |
POP HL |
| 9381 |
INC HL |
| 9382 |
LD A,H |
| 9383 |
AND $03 |
| 9385 |
LD H,A |
| 9386 |
POP AF |
| 9387 |
DEC A |
| 9388 |
JR NZ,$9375 |
| 938A |
LD HL,$5AE1 |
| 938D |
LD BC,$1E5B |
| 9390 |
LD (HL),C |
| 9391 |
INC HL |
| 9392 |
DJNZ $9390 |
| 9394 |
RET |
| 9395 |
LD HL,$61B0 |
| 9398 |
LD B,$06 |
| 939A |
LD DE,$0018 |
| 939D |
LD A,(HL) |
| 939E |
AND A |
| 939F |
JR Z,$93A5 |
| 93A1 |
ADD HL,DE |
| 93A2 |
DJNZ $939D |
| 93A4 |
AND A |
| 93A5 |
RET |
| 93A6 |
LD HL,($607A) |
| 93A9 |
LD (IX+$03),H |
| 93AC |
LD (IX+$02),L |
| 93AF |
LD A,($607C) |
| 93B2 |
ADD A,$08 |
| 93B4 |
CP $AF |
| 93B6 |
JR C,$93BA |
| 93B8 |
LD A,$AF |
| 93BA |
LD (IX+$04),A |
| 93BD |
CALL $8701 |
| 93C0 |
CALL $8733 |
| 93C3 |
CALL $945C |
| 93C6 |
JR Z,$93E3 |
| 93C8 |
BIT 0,(IX+$08) |
| 93CC |
RET NZ |
| 93CD |
LD (IX+$00),$2F |
| 93D1 |
LD HL,$6080 |
| 93D4 |
RES 0,(HL) |
| 93D6 |
LD A,($607D) |
| 93D9 |
LD (IX+$05),A |
| 93DC |
LD (IX+$06),$10 |
| 93E0 |
JP $B8C3 |
| 93E3 |
RES 0,(IX+$08) |
| 93E7 |
RET |
| 93E8 |
LD A,(IX+$06) |
| 93EB |
CP $30 |
| 93ED |
JR NC,$93F5 |
| 93EF |
INC (IX+$06) |
| 93F2 |
INC (IX+$06) |
| 93F5 |
SRA A |
| 93F7 |
SRA A |
| 93F9 |
SRA A |
| 93FB |
SRA A |
| 93FD |
ADD A,(IX+$04) |
| 9400 |
LD (IX+$04),A |
| 9403 |
CP $B0 |
| 9405 |
JR C,$9435 |
| 9407 |
CALL $91BB |
| 940A |
LD A,$B7 |
| 940C |
LD (IX+$04),A |
| 940F |
LD DE,$7000 |
| 9412 |
EX DE,HL |
| 9413 |
ADD HL,DE |
| 9414 |
LD (HL),$03 |
| 9416 |
INC DE |
| 9417 |
LD A,D |
| 9418 |
AND $03 |
| 941A |
LD D,A |
| 941B |
LD HL,$7000 |
| 941E |
ADD HL,DE |
| 941F |
LD (HL),$03 |
| 9421 |
LD A,(IX+$02) |
| 9424 |
AND $F8 |
| 9426 |
LD L,A |
| 9427 |
LD (IX+$02),L |
| 942A |
CALL $98AE |
| 942D |
CALL $8701 |
| 9430 |
LD (IX+$00),$00 |
| 9434 |
RET |
| 9435 |
LD A,(IX+$05) |
| 9438 |
SRA A |
| 943A |
SRA A |
| 943C |
SRA A |
| 943E |
SRA A |
| 9440 |
LD C,A |
| 9441 |
LD B,$00 |
| 9443 |
JP P,$9448 |
| 9446 |
LD B,$FF |
| 9448 |
LD L,(IX+$02) |
| 944B |
LD H,(IX+$03) |
| 944E |
ADD HL,BC |
| 944F |
LD (IX+$03),H |
| 9452 |
LD (IX+$02),L |
| 9455 |
CALL $8701 |
| 9458 |
CALL $8733 |
| 945B |
RET |
