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 |