27913: Routine at 6D09
| 27913 |
LD A,(23330) |
| 27916 |
OR A |
| 27917 |
JP NZ,28018 |
| 27920 |
LD HL,(23328) |
| 27923 |
PUSH HL |
| 27924 |
LD A,(23307) |
| 27927 |
CP 1 |
| 27929 |
JR Z,27960 |
| 27931 |
LD A,(23302) |
| 27934 |
CP 2 |
| 27936 |
JR NC,27960 |
| 27938 |
LD BC,61438 |
| 27941 |
IN A,(C) |
| 27943 |
LD B,A |
| 27944 |
RRCA |
| 27945 |
XOR B |
| 27946 |
AND 8 |
| 27948 |
JR Z,27968 |
| 27950 |
BIT 3,B |
| 27952 |
JR NZ,27967 |
| 27954 |
DEC H |
| 27955 |
JR NZ,27968 |
| 27957 |
INC H |
| 27958 |
JR 27968 |
| 27960 |
LD A,(23340) |
| 27963 |
BIT 0,A |
| 27965 |
JR Z,27968 |
| 27967 |
INC H |
| 27968 |
LD A,(23334) |
| 27971 |
SRL A |
| 27973 |
SRL A |
| 27975 |
ADD A,8 |
| 27977 |
LD L,A |
| 27978 |
CALL 24822 |
| 27981 |
LD (23328),HL |
| 27984 |
EX (SP),HL |
| 27985 |
PUSH DE |
| 27986 |
POP HL |
| 27987 |
LD A,(HL) |
| 27988 |
PUSH HL |
| 27989 |
CALL 28084 |
| 27992 |
POP HL |
| 27993 |
INC HL |
| 27994 |
LD A,(HL) |
| 27995 |
PUSH HL |
| 27996 |
CALL 28084 |
| 27999 |
POP HL |
| 28000 |
LD A,102 |
| 28002 |
LD C,40 |
| 28004 |
POP HL |
| 28005 |
PUSH HL |
| 28006 |
CALL 24852 |
| 28009 |
POP HL |
| 28010 |
INC L |
| 28011 |
LD A,103 |
| 28013 |
LD C,40 |
| 28015 |
CALL 24852 |
| 28018 |
LD A,(23297) |
| 28021 |
OR A |
| 28022 |
RET Z |
| 28023 |
LD HL,23300 |
| 28026 |
INC (HL) |
| 28027 |
LD A,10 |
| 28029 |
CP (HL) |
| 28030 |
JR NZ,28037 |
| 28032 |
XOR A |
| 28033 |
LD (23297),A |
| 28036 |
RET |
| 28037 |
LD A,(HL) |
| 28038 |
LD HL,(23328) |
| 28041 |
ADD A,L |
| 28042 |
LD L,A |
| 28043 |
LD (23298),HL |
| 28046 |
LD C,93 |
| 28048 |
PUSH HL |
| 28049 |
DEC L |
| 28050 |
CALL 28312 |
| 28053 |
JR NZ,28060 |
| 28055 |
LD (23297),A |
| 28058 |
POP HL |
| 28059 |
RET |
| 28060 |
POP HL |
| 28061 |
DEC L |
| 28062 |
CALL 24822 |
| 28065 |
LD A,(DE) |
| 28066 |
CP 47 |
| 28068 |
JR Z,28073 |
| 28070 |
LD A,45 |
| 28072 |
LD (DE),A |
| 28073 |
INC L |
| 28074 |
LD C,93 |
| 28076 |
CALL 28312 |
| 28079 |
RET NZ |
| 28080 |
LD (23297),A |
| 28083 |
RET |
