Prev: 27853 Up: Map Next: 28108
27884: Routine at 6CEC
27884 LD A,17 Write 17 to 46870.
27886 LD (46870),A
27889 LD A,(46854) A=46854.
27892 INC A Increase A by one.
27893 JR NZ,27923 If A is not zero then jump to 27923.
27895 CALL 38829 Call 38829.
27898 LD HL,28658 HL=InputBuffer
27901 LD A,(HL)
27902 CALL 34232
27905 INC HL
27906 CP 13
27908 JR NZ,27901
27910 LD HL,28660 Copies 28660 to 28665 ($05 bytes).
27913 LD DE,28665
27916 LD BC,5
27919 LDIR
27921 JR 27938 Jump to 27938.
27923 LD A,1 Write 1 to 46853.
27925 LD (46853),A
27928 LD A,9 Write 9 to 46870.
27930 LD (46870),A
27933 CALL 28118 Call 28118.
27936 JR Z,28042
27938 LD HL,28828 Write 0 to 64 bytes, starting from 28828 (using Blanker).
27941 LD B,64
27943 CALL Blanker
27946 LD HL,28665 HL=28665.
27949 LD IY,28828 IY=28828.
27953 CALL 28311 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 Jump to 27923.
28066 LD HL,44435 HL="i do not know the word "[0x16]""
28069 LD A,1 Write 1 to WaitCoutdown.
28071 LD (46849),A
28074 CALL PrintMsg 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 Jump to 27923.
Prev: 27853 Up: Map Next: 28108