Invasion (ZX Spectrum, Bulldog Software)

This page contains no introduction. What makes this game notable or what is it about? Are you a bad enough dude to save this article?

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