28112: Routine at 6DD0
| 28112 |
LD HL,23672 |
| 28115 |
LD A,(HL) |
| 28116 |
CP (HL) |
| 28117 |
JR Z,28116 |
| 28119 |
LD HL,0 |
| 28122 |
PUSH HL |
| 28123 |
POP DE |
| 28124 |
LD BC,1 |
| 28127 |
LDIR |
| 28129 |
LD A,(23330) |
| 28132 |
OR A |
| 28133 |
JR NZ,28150 |
| 28135 |
LD HL,(23328) |
| 28138 |
CALL 28829 |
| 28141 |
INC DE |
| 28142 |
LD A,(DE) |
| 28143 |
CP 40 |
| 28145 |
JR NZ,28150 |
| 28147 |
LD A,45 |
| 28149 |
LD (DE),A |
| 28150 |
LD A,(23297) |
| 28153 |
OR A |
| 28154 |
JR Z,28170 |
| 28156 |
LD HL,(23298) |
| 28159 |
CALL 24822 |
| 28162 |
LD A,(DE) |
| 28163 |
CP 47 |
| 28165 |
JR Z,28170 |
| 28167 |
LD A,45 |
| 28169 |
LD (DE),A |
| 28170 |
LD A,(23329) |
| 28173 |
RET |
