27960: Routine at 6D38
| 27960 |
CALL 27973 |
| 27963 |
LD HL,24373 |
| 27966 |
LD DE,28039 |
| 27969 |
LD C,7 |
| 27971 |
JR 28007 |
| 27973 |
XOR A |
| 27974 |
LD (24361),A |
| 27977 |
LD A,30 |
| 27979 |
LD (29974),A |
| 27982 |
CALL ResetAttributes |
| 27985 |
CALL ResetScreen |
| 27988 |
LD HL,28029 |
| 27991 |
LD A,(24365) |
| 27994 |
LD C,6 |
| 27996 |
RLCA |
| 27997 |
AND %00001111 |
| 27999 |
LD E,A |
| 28000 |
LD D,0 |
| 28002 |
ADD HL,DE |
| 28003 |
EX DE,HL |
| 28004 |
LD HL,24405 |
| 28007 |
LD (HL),C |
| 28008 |
INC HL |
| 28009 |
LD (HL),240 |
| 28011 |
INC HL |
| 28012 |
LD (HL),104 |
| 28014 |
INC HL |
| 28015 |
LD A,(DE) |
| 28016 |
LD C,A |
| 28017 |
INC DE |
| 28018 |
LD A,(DE) |
| 28019 |
LD (HL),A |
| 28020 |
INC HL |
| 28021 |
LD (HL),C |
| 28022 |
INC HL |
| 28023 |
LD (HL),0 |
| 28025 |
INC HL |
| 28026 |
LD (HL),0 |
| 28028 |
RET |