6148: Routine at 6148
| 6148 |
LD A,($5B37) |
| 614B |
OR A |
| 614C |
JR NZ,$616B |
| 614E |
LD A,($5B35) |
| 6151 |
AND $F0 |
| 6153 |
RET NZ |
| 6154 |
LD A,($5B36) |
| 6157 |
LD DE,$6198 |
| 615A |
BIT 3,A |
| 615C |
JR NZ,$6161 |
| 615E |
LD DE,$61A8 |
| 6161 |
LD ($5B38),DE |
| 6165 |
AND $03 |
| 6167 |
LD ($5B37),A |
| 616A |
RET |
| 616B |
LD H,A |
| 616C |
LD L,$1F |
| 616E |
LD DE,($5B38) |
| 6172 |
LD A,(DE) |
| 6173 |
INC A |
| 6174 |
JR NZ,$617A |
| 6176 |
LD ($5B37),A |
| 6179 |
RET |
| 617A |
LD B,$03 |
| 617C |
LD C,$2F |
| 617E |
CALL $6186 |
| 6181 |
LD ($5B38),DE |
| 6185 |
RET |
| 6186 |
PUSH BC |
| 6187 |
LD A,(DE) |
| 6188 |
OR A |
| 6189 |
JR Z,$6192 |
| 618B |
PUSH DE |
| 618C |
PUSH HL |
| 618D |
CALL $6114 |
| 6190 |
POP HL |
| 6191 |
POP DE |
| 6192 |
INC DE |
| 6193 |
INC H |
| 6194 |
POP BC |
| 6195 |
DJNZ $6186 |
| 6197 |
RET |
| 6198 |
NOP |
| 6199 |
DEC BC |
| 619A |
LD C,$00 |
| 619C |
INC C |
| 619D |
RRCA |
| 619E |
NOP |
| 619F |
DEC C |
| 61A0 |
DJNZ $61A2 |
| 61A2 |
LD DE,$0013 |
| 61A5 |
LD (DE),A |
| 61A6 |
INC D |
| 61A7 |
RST $38 |
| 61A8 |
NOP |
| 61A9 |
DEC BC |
| 61AA |
LD C,$00 |
| 61AC |
INC C |
| 61AD |
RRCA |
| 61AE |
NOP |
| 61AF |
DEC C |
| 61B0 |
DJNZ $61C7 |
| 61B2 |
ADD HL,DE |
| 61B3 |
DEC DE |
| 61B4 |
LD D,$09 |
| 61B6 |
INC E |
| 61B7 |
RLA |
| 61B8 |
ADD HL,BC |
| 61B9 |
DEC E |
| 61BA |
JR $61D6 |
| 61BC |
LD E,$11 |
| 61BE |
INC DE |
| 61BF |
NOP |
| 61C0 |
LD (DE),A |
| 61C1 |
INC D |
| 61C2 |
NOP |
| 61C3 |
RST $38 |
