27884: Routine at 6CEC
| 27884 |
LD A,17 |
| 27886 |
LD (46870),A |
| 27889 |
LD A,(46854) |
| 27892 |
INC A |
| 27893 |
JR NZ,27923 |
| 27895 |
CALL 38829 |
| 27898 |
LD HL,28658 |
| 27901 |
LD A,(HL) |
| 27902 |
CALL 34232 |
| 27905 |
INC HL |
| 27906 |
CP 13 |
| 27908 |
JR NZ,27901 |
| 27910 |
LD HL,28660 |
| 27913 |
LD DE,28665 |
| 27916 |
LD BC,5 |
| 27919 |
LDIR |
| 27921 |
JR 27938 |
| 27923 |
LD A,1 |
| 27925 |
LD (46853),A |
| 27928 |
LD A,9 |
| 27930 |
LD (46870),A |
| 27933 |
CALL 28118 |
| 27936 |
JR Z,28042 |
| 27938 |
LD HL,28828 |
| 27941 |
LD B,64 |
| 27943 |
CALL Blanker |
| 27946 |
LD HL,28665 |
| 27949 |
LD IY,28828 |
| 27953 |
CALL 28311 |
| 27956 |
CP 208 |
| 27958 |
JR Z,28066 |
| 27960 |
CP 144 |
| 27962 |
JR NZ,28012 |
| 27964 |
LD A,B |
| 27965 |
AND 15 |
| 27967 |
OR C |
| 27968 |
JR NZ,28012 |
| 27970 |
LD A,(46875) |
| 27973 |
AND A |
| 27974 |
JR NZ,27982 |
| 27976 |
INC A |
| 27977 |
LD (46875),A |
| 27980 |
JR 28012 |
| 27982 |
DEC A |
| 27983 |
LD (46875),A |
| 27986 |
LD A,(IY-2) |
| 27989 |
AND 240 |
| 27991 |
CP 176 |
| 27993 |
JR Z,28012 |
| 27995 |
CP 160 |
| 27997 |
JR Z,28012 |
| 27999 |
LD A,176 |
| 28001 |
LD (IY+0),A |
| 28004 |
XOR A |
| 28005 |
LD (IY+1),A |
| 28008 |
INC IY |
| 28010 |
INC IY |
| 28012 |
LD (IY+0),B |
| 28015 |
LD (IY+1),C |
| 28018 |
INC IY |
| 28020 |
INC IY |
| 28022 |
LD A,D |
| 28023 |
CP 192 |
| 28025 |
JR NZ,27953 |
| 28027 |
LD A,(46875) |
| 28030 |
AND A |
| 28031 |
JR Z,28042 |
| 28033 |
XOR A |
| 28034 |
LD (46875),A |
| 28037 |
CALL 31023 |
| 28040 |
JR 27923 |
| 28042 |
LD HL,28828 |
| 28045 |
LD (46812),HL |
| 28048 |
CALL 30085 |
| 28051 |
JP NZ,27923 |
| 28054 |
CALL 31072 |
| 28057 |
LD A,(46853) |
| 28060 |
AND A |
| 28061 |
JR NZ,28048 |
| 28063 |
JP 27923 |
| 28066 |
LD HL,44435 |
| 28069 |
LD A,1 |
| 28071 |
LD (46849),A |
| 28074 |
CALL PrintMsg |
| 28077 |
LD HL,(46810) |
| 28080 |
LD A,(HL) |
| 28081 |
CP 13 |
| 28083 |
JR Z,28097 |
| 28085 |
CP 34 |
| 28087 |
JR Z,28097 |
| 28089 |
CALL 34187 |
| 28092 |
INC HL |
| 28093 |
CP 32 |
| 28095 |
JR NZ,28080 |
| 28097 |
LD A,34 |
| 28099 |
CALL 34187 |
| 28102 |
CALL 34179 |
| 28105 |
JP 27923 |