Kong (ZX Spectrum, Ocean)

Kong
Developer: Ocean Publisher: Ocean Platform: ZX Spectrum Released in EU: 1983 This game has uncompiled source code.

Before Ocean were able to get a hold of the Donkey Kong license for 8-bit computers such as the ZX Spectrum, Ocean made a clone creatively named Kong.

Source Code Fragment

A sizeable source code fragment can be found at 39AA:

BC
INC C
DJNZ C1
RET
SCAD:
LD HL,58276
KK:LD A,9
CP(HL)
JR Z,UP1
INC (HL)
CALL PRINTSC
RET
UP1:LD(HL),0
DEC HL
JR KK
FINCH:
LD HL,BLDATA
LD B,8
FNC1:LD E,(HL)
INC HL
LD D,(HL)
INC HL
PUSH HL
PUSH DE
CALL 48320
POP DE
LD A,E
ADD A,L
LD L,A
LD A,0
CP(HL)
POP HL
RET NZ
DJNZ FNC1
LD A,255
LD(65052),A
RET
BLDATA:DB 11,56,20,56,10,88,21
DB 88,8,120,23,120,6,152,25,152
COL3:
LD IX,25250
LD B,(IX+0)
INC IX
CO1:PUSH BC
LD E,(IX+0)
LD D,(IX+1)
LD C,(IX+2)
LD HL,22528
PUSH DE
LD B,D
LD DE,32
CO2:ADD HL,DE
DJNZ CO2
POP DE
LD D,0
ADD HL,DE
CO3:LD(HL),3
INC HL
DEC C
JR NZ,CO3
INC IX
INC IX
INC IX
POP BC
DJNZ CO1
LD HL,22561
COLOUR:LD C,5
VC1:LD B,5
VC2:LD(HL),2
INC HL
DJNZ VC2
LD DE,27
ADD HL,DE
DEC C
JR NZ,VC1
RET
COL1:LD HL,22556
CALL COLOUR
LD HL,23200
LD (HL),5
INC HL
LD(HL),5
INC HL
LD(HL),5
LD DE,30
ADD HL,DE
LD(HL),5
INC HL
LD(HL),5
INC HL
LD(HL),5
RET
COL2:LD HL,22592
CALL COLOUR
LD HL,22895
LD(HL),1
INC HL
LD(HL),1
LD DE,31
ADD HL,DE
LD(HL),1
INC HL
LD(HL),1
RET
COL4:
LD HL,22606
JP COLOUR
LIVES:
LD IX,STRING
CALL 29300
LD D,10
DD:LD C,0
DA:LD B,0
AD:DJNZ AD
DEC C
JR NZ,DA
DEC D
JR NZ,DD
LD HL,STR2
DEC(HL)
RET
STRING:DB 14,10,9,32
STR2:DB"5 LIVES LEFT "
LD A,(STR2)
DEC A
LD(STR2),A
RET
CONGRAT:CALL 42800
JP ST2
END
TR

Another code fragment can be found at 438D, but is quite a bit duller:

END
:RET
END
6:RET
END
:RET
END