Kong (ZX Spectrum, Ocean)
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