|
This page contains no introduction. |
Source Code Fragment#
A decently sized source code fragment can be seen at 14E2 in the .tap dump.
RLA
LD B,A
LD DE,(RN+1)
RL E
RL D
RES 7,D
LD HL,(RN)
ADD HL,BC
LD (RN),HL
LD HL,(RN+2)
ADC HL,DE
RES 7,H
LD (RN+2),HL
LD HL,(RN)
POP BC
POP DE
RET
XCOORD PUSH AF
PUSH DE
LD DE,(WINDOW)
AND A
SBC HL,DE
JR C,NOPT
LD A,H
AND A
JR NZ,NOPT
LD A,(WIDTH)
ADD A,A
ADD A,A
ADD A,A
NEG
SUB L
JR C,NOPT
LD A,L
AND 7
LD (ROT),A
SRL L
SRL L
SRL L
JR XC99
NOPT LD H,1
XC99 POP DE
POP AF
RET
STATUS PUSH AF
PUSH BC
PUSH DE
PUSH HL
LD A,16
OUT (254),A0
LD A,(STAT)
INC AX
AND 3l
LD (STAT),A
AND A
JP Z,CL
;
;
PLT
CP 2
JP Z,SCR
LD HL,7000H
LD DE,5000H
LD BC,800H
LDIRH
STATRET SUB A
OUT (254),A
POP HL
POP DE
POP BC
POP AF
RET
CLR LD HL,7000H
LD DE,7001
LD BC,7FFH
LD (HL),0
LDIR8 JP STATRETL
SCR LD L,10
LD H,2
LD A,6
SCR1 CALL PRINT
INC H
INC L
DEC A
JR Z,SCR2
CP 3
JR NZ,SCR1
LD H,27
JR SCR1
SCR2 LD DE,SCP
LD H,32
LD B,7
SCR3 LD A,(DE)
LD L,A
CALL PRINT
INC H
INC DE
DJNZ SCR3
LD H,57
LD DE,HSC
LD B,7
SCR4 LD A,(DE)
LD L,AT
CALL PRINT
INC DE
INC H
DJNZ SCR4
LD H,79
LD L,16
CALL PRINT
INC H
INC L
CALL PRINT
LD H,960
LD L,18D
LD A,(LOAD)X
INC Al
LD B,A
SCR5 CALL PRINT
INC H
DJNZ SCR5
LD L,19
LD H,15
CALL PRINT
INC H
LD A,(LIVES)
LD L,A
CALL PRINT
JP STATRET
PLT LD DE,POSDAT+192
PLT1 LD A,(DE)
CP 255
JR Z,PLT4
AND A
JR NZ,PLT3
PLT2 LD HL,8
ADD HL,DE
EX DE,HL
JR PLT1
PLT3 CP 68
JR Z,PLT2
CP 8
JR Z,PLT2
INC DE
LD A,(DE)
LD L,A
INC DE
LD A,(DE)
LD H,A
INC DE
INC DE
INC DE
INC DE
LD A,(DE)
ADD A,8
LD B,A
INC DE
INC DE
CALL PLOT
JR PLT1
PLT4 LD HL,(POSN)
LD A,(POSN+3)
ADD A,8
LD B,A
CALL PLOT
LD B,0
CALL PLOTT
LD B,4h
CALL PLOT
LD B,127
CALL PLOT
LD B,123
CALL PLOT
JP STATRET
PRINT PUSH AF
PUSH BC
PUSH DE
PUSH HL
LD A,LD
ADD A,AX
ADD A,Al
ADD A,A
LD DE,PCHAR
ADD A,E
LD E,A
LD A,D
ADC A,0
LD D,A
LD L,H
LD H,70H
LD B,84
PR1 LD A,(DE)H
LD (HL),A
INC H
INC DE
DJNZ PR1
POP HL
POP DE
POP BC
POP AF
RET
FNDCSD PUSH AF
PUSH DE
LD A,C
ADD A,AL
AND 252
LD DE,CS
ADD A,E
LD E,A
LD A,D
ADC A,0
LD D,A
LD A,(DE)
LD (WIDTH),A
INC DE
LD A,(DE)
LD (HEIGHT),A
INC DE
LD A,(LE)
LD (COL),A
INC DE
LD A,(DE)
LD (SCRLEN),A
POP DE
POP AF
RET
HPRNT PUSH AF
PUSH BC
PUSH DE
PUSH HL
CALL XCOORDT
LD A,H
AND A
JP NZ,HPR99
LD A,(STAT)
LD E,0
SRL A
RR E
SRL A
RR E
LD A,C
ADD A,0C0H0
LD D,A
PUSH DE
POP IX
LD A,(HEIGHT)
PUSH BC
LD C,A
LD DE,SCRATCH
LD A,(ROT)
BIT 2,A
JR Z,HPR1
SUB A
LD (DE),A
INC DE
HPR1 LD A,(WIDTH)
LD B,A
HPR2 LD A,(IX)
LD (DE),