Invasion (ZX Spectrum, Bulldog Software)

Invasion
Developer: Icon Design Publisher: Bulldog Software Platform: ZX Spectrum Released in EU: 1987 This game has uncompiled source code.

Source Code Fragment

A small snippet of code can be seen at 8135 in the .tap dump.

ADD HL,HL
ADD HL,HL
ADD HL,HL
LD DE,CHARBAS
ADD HL,DE
EX DE,HL
LD A,MESTIME
LD (TELTIME),A
LD HL,(CPRADD)
PUSH HL
LD B,8

PRMES2:
LD A,(DE)
LD (HL),A
INC H
INC DE
DJNZ PRMES2
POP HL
INC HL
LD (CPRADD),HL

; DRAW CURSOR

PRMES4:
LD DE,CURDEF
LD B,8

PRMES3:
LD A,(DE)
LD (HL),A
INC DE
INC H
DJNZ PRMES3
LD A,1
LD (CSTAT),A
INC A
LD (CTIME),A 

; CLICK
LD B,5

CLICK1:
PUSH BC
LD A,(BORDCOL)
ADD A,8
CLICKIT:XOR $10
OUT (254),A
DJNZ CLICKIT
POP BC
DJNZ CLICK1
JP INTFIN 

; UPDATE CURSOR
UPCUR:
LD A,(CSTAT)
CP 2
JP Z,INTFIN
LD HL,CTIME
DEC (HL)
JP NZ,INTFIN
LD A,(CSTAT)
AND A
JP NZ,RUBCUR
LD HL,(CPRADD)
JP PRMES4       ; PRINT IT