|
This page contains no introduction. |
Source Code Fragments#
There is a decent amount of code. These code fragments can be seen at the addresses listed below in the .tap dump.
65F7:
D (EGGCNT),A
LD A,12069B3:
D HL,(PARAL1+1)
SRL H
RR L
LD A,0
RR A
OR H
LD H,A
LD (PARAL1+1),HL
LD HL,(PARAL2+1)
SRL H
RR L
LD A,0
RR A
OR H
LD H,A
LD (PARAL2+1),HL
LD HL,BADBUL
LD DE,13
LD B,10
LD C,2
BABUR LD A,(HL)
ADD A,C
JP NC,BABURO
XOR A
INC HL
LD (HL),A
INC HL
LD B,10
LD C,2
BABUR LD A,(HL)
ADD A,C
JP N6D1D:
E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD A,(IX+0)
SRL A
SRL A
SRL A
ADD A,L
LD L,A
LD (HL),%10111101
RET
TABULL DEFS 70
COLRL LD HL,22528+4
LD DE,22528+3
LD B,16
COL16L PUSH BC
LD BC,27
LDIR
LD BC,5
ADD HL,BC
EX DE,HL
ADD HL,BC
EX DE,HL
POP BC
DJNZ COL16L
LD HL,(ADRPNT)
LD DE,13
ADD HL,DE
LD DE,22528+29
EX DE,HL
CALL DOCC
LD BC,160
JP DUMPLP
COLRR LD70CF:
X DE,HL
POP BC
DJNZ DOCCL
LD BC,32
LD A,(BOATTR)
LD (HL),A
ADD HL,BC
LD A,(BOATTR+1)
LD (HL),A
RET
BOATTR DEFB 67,67
COLOUR EQU 64500
MVAL DEFB 4,2,1,1,0,1,1,2,4
WPNSYS DEFB 1
MISFLG DEFB 0
PODANI DEFB 0
PRPOD LD HL,TABADS
ADD HL,BC
LD (SPODS+1),SP
LD SP,HL
LD HL,PODEF
LD A,(PODANI)
AND 254
SLA A
SLA A
LD E,A
LD D,0
ADD HL,DE
EX DE,HL
LD BC,16
PUTCHR POP HL
ADD HL,BC
LD A,(DE)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
LD (HL),A
SPODS LD SP,0
RET
PODEF DEFB 24,90,219-24,218,217,90-24,24
DEFB 0
DEFB 24,90-24,219,218,217-24,90,24
DEFB 0
DEFB 0,90,219,218-24,217,90,0
DEFB 0
DEFB 1,59,125,254,101,59,1,0
DEFB 128,220,190,127,178,220,128,0
MISILX DEFS 6
PUTMIS LD A,(MISILX+1)
LD B,0
SLA A
RL B
LD C,A
LD HL,TABADS
ADD HL,BC
LD (SPODS+1),SP
LD SP,HL
LD HL,PODEF+24
LD A,(MISILX+2)
SLA A
SLA A
SLA A
LD C,A
LD B,0
ADD HL,BC
EX DE,HL
LD A,(MISILX)
SRL A
SRL A
SRL A
LD C,A
LD B,0
JP PUTCHR
BLOCKS EQU 25000
PRBBUL LD HL,BULDAT
LD A,(IX+0)
AND 6
SLA A
SLA A
LD C,A
LD B,0
ADD HL,BC
EX DE,HL
LD C,(IX+1)
LD B,0
SLA C
RL B
LD HL,TABADS
ADD HL,BC
LD A,(IX+0)
SRL A
SRL A
SRL A
LD C,A
LD B,0
LD SP,HL
POP HL
ADD HL,BC
LD A,(DE)
OR (HL)
LD (HL),A
INC L
INC DE
LD A,(DE)
OR (HL)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
OR (HL)
LD (HL),A
INC L
INC DE
LD A,(DE)
OR (HL)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
OR (HL)
LD (HL),A
INC L
INC DE
LD A,(DE)
OR (HL)
LD (HL),A
INC DE
POP HL
ADD HL,BC
LD A,(DE)
OR (HL)
LD (HL),A
INC L
INC DE
LD A,(DE)
OR (HL)
LD (HL),A
JP RETPBB
BADBUL DEFS 130
STALOP DEFB 0
BULDAT DEFB %01100000,0
DEFB 240,0,240,0
DEFB %01100000,0
DEFB %00011000,0
DEFB %00111100,0,%00111100,0
DEFB %00011000,0
DEFB 6,0,15,0,15,0,6,0
DEFB 1,128
DEFB 3,192,3,192,1,128
GAMOC DEFB 0
STAGE DEFB 0
UNCRUN LD DE,47000
LD BC,2000
LPUNCR LD A,(IX+0)