|
This page contains no introduction. |
Source Code Fragment#
A section of the code is left in the game. The code seen below can be seen with a hex editor at address 5299 in the .tap dump of the game.
,179
DB 8,13,183
DB 255
SPELLT:
DB 48
DB 8,17,155
DB 10,15,159
DB 6,15,163
DB 8,13,167
DB 255
LIGHT:
LD A,(WORLD)
OR A
JP NZ,CWOR
RET
DARK:
LD A,(WORLD)
OR A
RET NZ
CWOR:
CALL WARPS
CALL AO
LD A,(WORLD)
XOR 64
DB 50
DW WORLD
JP MAP
L1:
LD A,50
DB 50
DW WAITFLG
CALL DML
LD A,(SP2)
OR A
RET Z
DEC A
DB 50
DW SP2
LD A,188
CALL PREPS
CALL PRUNES
RET
LE2:
LD A,47
DB 50
DW WAITFLG
CALL DML
LD A,(PAGE)
OR A
RET Z
DEC A
DB 50
DW PAGE
JP BOOK
LE3:
LD A,37
CALL DML
LD HL,(SALEB+4)
LD (QSPEL),HL
LD A,L
JP ADVERT
R1:
LD A,50
DB 50
DW WAITFLG
CALL DMR
LD A,(SP3)
OR A
RET Z
DEC A
DB 50
DW SP3
LD A,189
CALL PREPS
CALL PRUNES
RET
RI2:
LD A,47
DB 50
DW WAITFLG
CALL DMR
LD A,(PAGE)
INC A
LD E,A
LD D,0
LD HL,PAGBUF
ADD HL,DE
LD A,(HL)
CP 255
RET Z
OR A
RET Z
LD A,(PAGE)
INC A
DB 50
DW PAGE
JP BOOK
RI3:
LD A,37
CALL DMR
LD HL,(SALEB)
LD (QSPEL),HL
LD A,L
JP ADVERT
U1:
LD A,50
DB 50
DW WAITFLG
CALL DMD
LD A,(SP1)
OR A
RET Z
DEC A
DB 50
DW SP1
LD A,187
CALL PREPS
CALL PRUNES
RET
UP2:
JP SCAST
DN3:
LD A,37
CALL DMU
LD HL,(SALEB+2)
LD (QSPEL),HL
LD A,L
JP ADVERT
D1:
LD A,50
DB 50
DW WAITFLG
CALL DMU
LD A,(SP4)
OR A
RET Z
DEC A
DB 50
DW SP4
LD A,190
CALL PREPS
CALL PRUNES
RET
UP3:
LD A,37
CALL DMD
XOR A
DB 50
DW QSPEL
DB 50
DW QSPEL+1
JP ADVERT
;
XFER2:
EXX
LD (IX+12),E
LD (IX+13),D
EXX
LD (IX+14),L
LD (IX+15),H
LD (IX+0),C
LD (IX+1),B
LD (IX+2),E
LD (IX+3),D
RET
IS:
LD BC,(SCBUF)
LD A,C
OR B
RET Z
LD A,(SCO+1)
ADD A,B
DAA
DB 50
DW SCO+1
LD A,(SCO)
ADC A,C
DAA
DB 50
DW SCO
LD BC,0
LD (SCBUF),BC
PS:
LD A,48+64
DB 50
DW 23695
LD BC,256*23+11
CALL AT
LD A,(SCO)
CALL TEN
LD A,(SCO+1)
CALL TEN
LD HL,SCOMP
LD A,(SCO)
CP (HL)
RET C
LD A,1
DB 50
DW ILF
RET
TEXT:
DB 222,30,20
DB "QUEST@1"
DB 222,31,8
DB "SEEK@THE"
DB 222,33,6,255
DB "EMJAY@POOL",255
DB "MYLON@TOMB",255
DB 222,32,6,"ZAZ@GRAVE",255
DB 222,32,6,"OLD@NOSYT",255
DB "GREAT@KWAH",255
DB 254,33,3,20,3,0
DB 216,64+7
DB 222,32,2
DB "HIT@SPACE",255
DB 254,31,20,16,3,0
DB 216,64+7
DB 222,30,19
DB "LEVEL@",255
DB 254,33,17,20,3,0,216,6+64
DB 222,32,16
DB "GAME@OVER",255
DB 254,32,20,18,3,0
DB 222,31,19,216,64+7
DB "FINISHED",255
DB 254,33,17,20,3,0,216,6+64
DB 222,32,16
DB "DEMO@OVER",255
KB:
LD L,2FH
LD DE,0FFFFH
LD BC,0FEFEH
KL:IN A,(C)
CPL
AND 1FH
JR Z,KD
LD H,A
LD A,L
K3:
INC D
RET NZ
K:
SUB 8
SRL H
JR NC,K
LD D,E
LD E,A
JR NZ,K3
KD:
DEC L
RLC B
JR C,KL
LD A,D
INC A
RET Z
CP 28H
RET Z
CP 19H
RET Z
LD A,E
LD E,D
LD D,A
RET
ORG 4001H
LOAD 4001H
DB 255
END