9654: Routine at 9654
| 9654 |
LD HL,$5E5E |
| 9657 |
INC (HL) |
| 9658 |
LD H,(IX+$03) |
| 965B |
LD L,(IX+$02) |
| 965E |
LD DE,($607A) |
| 9662 |
AND A |
| 9663 |
SBC HL,DE |
| 9665 |
BIT 4,H |
| 9667 |
JP NZ,$96D7 |
| 966A |
LD C,$00 |
| 966C |
LD A,(IX+$05) |
| 966F |
AND A |
| 9670 |
JP P,$9677 |
| 9673 |
CP $D1 |
| 9675 |
JR C,$9679 |
| 9677 |
SUB $02 |
| 9679 |
LD (IX+$05),A |
| 967C |
LD A,($6078) |
| 967F |
CP $11 |
| 9681 |
JR C,$9687 |
| 9683 |
LD A,$68 |
| 9685 |
JR $968A |
| 9687 |
LD A,($607C) |
| 968A |
SUB (IX+$04) |
| 968D |
JP M,$96E8 |
| 9690 |
LD A,(IX+$06) |
| 9693 |
AND A |
| 9694 |
JP M,$969B |
| 9697 |
CP $30 |
| 9699 |
JR NC,$969D |
| 969B |
ADD A,$02 |
| 969D |
LD (IX+$06),A |
| 96A0 |
SRA A |
| 96A2 |
SRA A |
| 96A4 |
SRA A |
| 96A6 |
SRA A |
| 96A8 |
ADD A,(IX+$04) |
| 96AB |
CP $38 |
| 96AD |
JR C,$96F7 |
| 96AF |
CP $B0 |
| 96B1 |
JR NC,$9705 |
| 96B3 |
LD (IX+$04),A |
| 96B6 |
INC (IX+$11) |
| 96B9 |
LD A,(IX+$11) |
| 96BC |
AND $07 |
| 96BE |
BIT 7,C |
| 96C0 |
JR NZ,$96C4 |
| 96C2 |
XOR $07 |
| 96C4 |
ADD A,$48 |
| 96C6 |
LD (IX+$00),A |
| 96C9 |
LD A,($5E42) |
| 96CC |
RLA |
| 96CD |
AND $02 |
| 96CF |
ADD A,$44 |
| 96D1 |
LD (IX+$07),A |
| 96D4 |
JP $954B |
| 96D7 |
LD C,$80 |
| 96D9 |
LD A,(IX+$05) |
| 96DC |
AND A |
| 96DD |
JP M,$96E4 |
| 96E0 |
CP $30 |
| 96E2 |
JR NC,$9679 |
| 96E4 |
ADD A,$02 |
| 96E6 |
JR $9679 |
| 96E8 |
LD A,(IX+$06) |
| 96EB |
AND A |
| 96EC |
JP P,$96F3 |
| 96EF |
CP $D1 |
| 96F1 |
JR C,$969D |
| 96F3 |
SUB $02 |
| 96F5 |
JR $969D |
| 96F7 |
LD A,(IX+$06) |
| 96FA |
AND A |
| 96FB |
JP P,$96B6 |
| 96FE |
NEG |
| 9700 |
LD (IX+$06),A |
| 9703 |
JR $96B6 |
| 9705 |
LD A,(IX+$06) |
| 9708 |
AND A |
| 9709 |
JP M,$96B6 |
| 970C |
JR $96FE |
