36987: Routine at 907B
36987 |
LD A,(IX+5) |
36990 |
SRA A |
36992 |
SRA A |
36994 |
SRA A |
36996 |
SRA A |
36998 |
LD E,A |
36999 |
LD D,0 |
37001 |
JP P,37006 |
37004 |
LD D,255 |
37006 |
LD H,(IX+3) |
37009 |
LD L,(IX+2) |
37012 |
LD A,L |
37013 |
AND 7 |
37015 |
PUSH HL |
37016 |
PUSH DE |
37017 |
CALL Z,37212 |
37020 |
POP DE |
37021 |
CALL 37036 |
37024 |
POP HL |
37025 |
ADD HL,DE |
37026 |
LD A,H |
37027 |
AND 31 |
37029 |
LD (IX+3),A |
37032 |
LD (IX+2),L |
37035 |
RET |
37036 |
LD HL,20672 |
37039 |
LD C,8 |
37041 |
LD A,E |
37042 |
AND A |
37043 |
RET Z |
37044 |
JP P,37129 |
37047 |
NEG |
37049 |
DEC A |
37050 |
JR Z,37080 |
37052 |
DEC A |
37053 |
JR Z,37098 |
37055 |
LD A,(IX+2) |
37058 |
AND 3 |
37060 |
JR NZ,37098 |
37062 |
XOR A |
37063 |
LD B,32 |
37065 |
PUSH HL |
37066 |
RRD |
37068 |
INC HL |
37069 |
DJNZ 37066 |
37071 |
POP HL |
37072 |
INC H |
37073 |
DEC C |
37074 |
JR NZ,37062 |
37076 |
LD DE,65532 |
37079 |
RET |
37080 |
XOR A |
37081 |
LD B,32 |
37083 |
PUSH HL |
37084 |
RR (HL) |
37086 |
INC HL |
37087 |
DJNZ 37084 |
37089 |
POP HL |
37090 |
INC H |
37091 |
DEC C |
37092 |
JR NZ,37080 |
37094 |
LD DE,65535 |
37097 |
RET |
37098 |
LD A,(IX+2) |
37101 |
AND 1 |
37103 |
JR NZ,37080 |
37105 |
XOR A |
37106 |
EX AF,AF' |
37107 |
XOR A |
37108 |
PUSH HL |
37109 |
LD B,32 |
37111 |
RR (HL) |
37113 |
EX AF,AF' |
37114 |
RR (HL) |
37116 |
EX AF,AF' |
37117 |
INC L |
37118 |
DJNZ 37111 |
37120 |
POP HL |
37121 |
INC H |
37122 |
DEC C |
37123 |
JR NZ,37105 |
37125 |
LD DE,65534 |
37128 |
RET |
37129 |
LD HL,20703 |
37132 |
DEC A |
37133 |
JR Z,37163 |
37135 |
DEC A |
37136 |
JR Z,37181 |
37138 |
LD A,(IX+2) |
37141 |
AND 3 |
37143 |
JR NZ,37181 |
37145 |
XOR A |
37146 |
LD B,32 |
37148 |
PUSH HL |
37149 |
RLD |
37151 |
DEC L |
37152 |
DJNZ 37149 |
37154 |
POP HL |
37155 |
INC H |
37156 |
DEC C |
37157 |
JR NZ,37145 |
37159 |
LD DE,4 |
37162 |
RET |
37163 |
XOR A |
37164 |
LD B,32 |
37166 |
PUSH HL |
37167 |
RL (HL) |
37169 |
DEC L |
37170 |
DJNZ 37167 |
37172 |
POP HL |
37173 |
INC H |
37174 |
DEC C |
37175 |
JR NZ,37163 |
37177 |
LD DE,1 |
37180 |
RET |
37181 |
LD A,(IX+2) |
37184 |
AND 1 |
37186 |
JR NZ,37163 |
37188 |
XOR A |
37189 |
EX AF,AF' |
37190 |
XOR A |
37191 |
PUSH HL |
37192 |
LD B,32 |
37194 |
RL (HL) |
37196 |
EX AF,AF' |
37197 |
RL (HL) |
37199 |
EX AF,AF' |
37200 |
DEC L |
37201 |
DJNZ 37194 |
37203 |
POP HL |
37204 |
INC H |
37205 |
DEC C |
37206 |
JR NZ,37188 |
37208 |
LD DE,2 |
37211 |
RET |
37212 |
LD A,E |
37213 |
AND A |
37214 |
JP M,37278 |
37217 |
LD DE,128 |
37220 |
ADD HL,DE |
37221 |
LD A,H |
37222 |
AND 31 |
37224 |
LD H,A |
37225 |
LD DE,28672 |
37228 |
SRA H |
37230 |
RR L |
37232 |
SRA H |
37234 |
RR L |
37236 |
SRA H |
37238 |
RR L |
37240 |
ADD HL,DE |
37241 |
LD DE,20703 |