27048: Routine at 69A8
| 27048 |
LD HL,23365 |
| 27051 |
LD A,(23336) |
| 27054 |
INC A |
| 27055 |
BIT 1,A |
| 27057 |
JR Z,27074 |
| 27059 |
LD A,4 |
| 27061 |
LD (HL),A |
| 27062 |
LD (23336),A |
| 27065 |
LD A,(23354) |
| 27068 |
DEC A |
| 27069 |
DEC A |
| 27070 |
DEC A |
| 27071 |
LD (23337),A |
| 27074 |
LD A,(HL) |
| 27075 |
OR A |
| 27076 |
LD A,(23296) |
| 27079 |
JR NZ,27091 |
| 27081 |
CP 7 |
| 27083 |
RET NZ |
| 27084 |
LD A,10 |
| 27086 |
LD (23337),A |
| 27089 |
JR 27096 |
| 27091 |
CP 3 |
| 27093 |
JR NZ,27081 |
| 27095 |
DEC (HL) |
| 27096 |
LD A,(23350) |
| 27099 |
RLCA |
| 27100 |
RLCA |
| 27101 |
RLCA |
| 27102 |
RLCA |
| 27103 |
AND 15 |
| 27105 |
LD H,A |
| 27106 |
LD A,(23337) |
| 27109 |
CP H |
| 27110 |
RET C |
| 27111 |
LD L,26 |
| 27113 |
CALL 24822 |
| 27116 |
LD A,(DE) |
| 27117 |
CP 45 |
| 27119 |
RET NZ |
| 27120 |
LD B,96 |
| 27122 |
LD A,R |
| 27124 |
BIT 0,A |
| 27126 |
JR Z,27129 |
| 27128 |
INC B |
| 27129 |
LD A,B |
| 27130 |
LD C,43 |
| 27132 |
CALL 24852 |
| 27135 |
LD HL,27164 |
| 27138 |
LD C,2 |
| 27140 |
XOR A |
| 27141 |
LD B,(HL) |
| 27142 |
INC HL |
| 27143 |
PUSH HL |
| 27144 |
POP HL |
| 27145 |
DJNZ 27143 |
| 27147 |
SET 4,A |
| 27149 |
OUT (254),A |
| 27151 |
LD B,(HL) |
| 27152 |
PUSH HL |
| 27153 |
POP HL |
| 27154 |
DJNZ 27152 |
| 27156 |
RES 4,A |
| 27158 |
OUT (254),A |
| 27160 |
DEC C |
| 27161 |
JR NZ,27141 |
| 27163 |
RET |
