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 |