907B: Routine at 907B
907B |
LD A,(IX+$05) |
907E |
SRA A |
9080 |
SRA A |
9082 |
SRA A |
9084 |
SRA A |
9086 |
LD E,A |
9087 |
LD D,$00 |
9089 |
JP P,$908E |
908C |
LD D,$FF |
908E |
LD H,(IX+$03) |
9091 |
LD L,(IX+$02) |
9094 |
LD A,L |
9095 |
AND $07 |
9097 |
PUSH HL |
9098 |
PUSH DE |
9099 |
CALL Z,$915C |
909C |
POP DE |
909D |
CALL $90AC |
90A0 |
POP HL |
90A1 |
ADD HL,DE |
90A2 |
LD A,H |
90A3 |
AND $1F |
90A5 |
LD (IX+$03),A |
90A8 |
LD (IX+$02),L |
90AB |
RET |
90AC |
LD HL,$50C0 |
90AF |
LD C,$08 |
90B1 |
LD A,E |
90B2 |
AND A |
90B3 |
RET Z |
90B4 |
JP P,$9109 |
90B7 |
NEG |
90B9 |
DEC A |
90BA |
JR Z,$90D8 |
90BC |
DEC A |
90BD |
JR Z,$90EA |
90BF |
LD A,(IX+$02) |
90C2 |
AND $03 |
90C4 |
JR NZ,$90EA |
90C6 |
XOR A |
90C7 |
LD B,$20 |
90C9 |
PUSH HL |
90CA |
RRD |
90CC |
INC HL |
90CD |
DJNZ $90CA |
90CF |
POP HL |
90D0 |
INC H |
90D1 |
DEC C |
90D2 |
JR NZ,$90C6 |
90D4 |
LD DE,$FFFC |
90D7 |
RET |
90D8 |
XOR A |
90D9 |
LD B,$20 |
90DB |
PUSH HL |
90DC |
RR (HL) |
90DE |
INC HL |
90DF |
DJNZ $90DC |
90E1 |
POP HL |
90E2 |
INC H |
90E3 |
DEC C |
90E4 |
JR NZ,$90D8 |
90E6 |
LD DE,$FFFF |
90E9 |
RET |
90EA |
LD A,(IX+$02) |
90ED |
AND $01 |
90EF |
JR NZ,$90D8 |
90F1 |
XOR A |
90F2 |
EX AF,AF' |
90F3 |
XOR A |
90F4 |
PUSH HL |
90F5 |
LD B,$20 |
90F7 |
RR (HL) |
90F9 |
EX AF,AF' |
90FA |
RR (HL) |
90FC |
EX AF,AF' |
90FD |
INC L |
90FE |
DJNZ $90F7 |
9100 |
POP HL |
9101 |
INC H |
9102 |
DEC C |
9103 |
JR NZ,$90F1 |
9105 |
LD DE,$FFFE |
9108 |
RET |
9109 |
LD HL,$50DF |
910C |
DEC A |
910D |
JR Z,$912B |
910F |
DEC A |
9110 |
JR Z,$913D |
9112 |
LD A,(IX+$02) |
9115 |
AND $03 |
9117 |
JR NZ,$913D |
9119 |
XOR A |
911A |
LD B,$20 |
911C |
PUSH HL |
911D |
RLD |
911F |
DEC L |
9120 |
DJNZ $911D |
9122 |
POP HL |
9123 |
INC H |
9124 |
DEC C |
9125 |
JR NZ,$9119 |
9127 |
LD DE,$0004 |
912A |
RET |
912B |
XOR A |
912C |
LD B,$20 |
912E |
PUSH HL |
912F |
RL (HL) |
9131 |
DEC L |
9132 |
DJNZ $912F |
9134 |
POP HL |
9135 |
INC H |
9136 |
DEC C |
9137 |
JR NZ,$912B |
9139 |
LD DE,$0001 |
913C |
RET |
913D |
LD A,(IX+$02) |
9140 |
AND $01 |
9142 |
JR NZ,$912B |
9144 |
XOR A |
9145 |
EX AF,AF' |
9146 |
XOR A |
9147 |
PUSH HL |
9148 |
LD B,$20 |
914A |
RL (HL) |
914C |
EX AF,AF' |
914D |
RL (HL) |
914F |
EX AF,AF' |
9150 |
DEC L |
9151 |
DJNZ $914A |
9153 |
POP HL |
9154 |
INC H |
9155 |
DEC C |
9156 |
JR NZ,$9144 |
9158 |
LD DE,$0002 |
915B |
RET |
915C |
LD A,E |
915D |
AND A |
915E |
JP M,$919E |
9161 |
LD DE,$0080 |
9164 |
ADD HL,DE |
9165 |
LD A,H |
9166 |
AND $1F |
9168 |
LD H,A |
9169 |
LD DE,$7000 |
916C |
SRA H |
916E |
RR L |
9170 |
SRA H |
9172 |
RR L |
9174 |
SRA H |
9176 |
RR L |
9178 |
ADD HL,DE |
9179 |
LD DE,$50DF |