Eskimo Eddie (ZX Spectrum)

Eskimo Eddie
Developer: Ocean Publisher: Ocean Platform: ZX Spectrum Released in EU: 1984 This game has uncompiled source code.

Source Code Fragments

A decent amount of the code is left in the game. The code seen below can be seen with a hex editor at the addresses below in the .tap dump of the game.

5252:

       CALL BO1
       LD A,D
       ADD 8
       LD D,A
       DJNZ SIDE1
       LD B,20
       LD D,24
SIDE2  LD E,31
       LD A,5
       LD C,64
       CALL BO1
       LD A,D
       ADD 8
       LD D,A
       DJNZ SIDE2
       RET 
BO1    PUSH BC
       PUSH DE
       CALL PRINT
       POP DE
       POP BC
       RET 
SCREN  LD B,(IX+0)
       INC IX
S1     LD E,(IX+0)
       LD D,(IX+1)
       LD A,71
       LD C,17
       PUSH BC
       CALL 37000
       POP BC
       INC IX
       INC IX
       DJNZ S1
       RET 
DELAY  LD BC,3000
WAIT   DEC BC
       LD A,B
       OR C
       JR NZ,WAIT
       RET 
CHEK1  LD A,(P.E)
       CP 29
       JP Z,ELEC1
       CALL FINDB
       LD A,(P.E)
       ADD 2
       LD C,A
       CALL ATTR
       CP 71
       JP Z,PUSH1
       RET 
CHEK2  LD A,(P.E)
       CP 1
       JP Z,ELEC2
       CALL FINDB
       LD A,(P.E)
       SUB 1
       LD C,A
       CALL ATTR
       CP 71
       RET NZ
       JP PUSH2
CHEK3  LD A,(PD)
       CP 168
       JP Z,ELEC4
       CALL FINDB
       LD A,B
       ADD 2
       LD B,A
       LD A,(P.E)
       LD C,A
       CALL ATTR
       CP 71
       RET NZ
       JP PUSH3
CHEK4  LD A,(PD)
       CP 24
       JP Z,ELEC3
       CALL FINDB
       LD A,B
       SUB 1
       LD B,A
       LD A,(P.E)
       LD C,A
       CALL ATTR
       CP 71
       RET NZ
       JP PUSH4
FINDB  LD A,(PD)
       LD B,0
T1     SUB 8
       RET C
       INC B
       JR T1
ATTR   LD HL,57DFH
       LD DE,32
       INC B
AT1    ADD HL,DE
       DJNZ AT1
       LD B,C
       INC B
AT2    INC HL
       DJNZ AT2
       LD A,(HL)
       RET 
ELEC1  LD A,07FH
       IN A,(254)
       AND 2
       JP NZ,NMOVE
       LD B,20
       LD D,24
EL1    LD E,31
       LD A,5
       LD C,84
       CALL BO1
       LD A,D

5B4B:

MOND1  CALL EX1
       LD A,(MONE)
       CP 1
       CALL Z,ELE1
       LD HL,MOND1
       CALL EX2
       LD DE,MOND2
       CALL EX1
       LD A,(MONE)
       CP 1
       CALL Z,ELE1
       LD HL,MOND2
       CALL EX2
       LD DE,MOND3
       CALL EX1
       LD A,(MONE)
       CP 1
       CALL Z,ELE1
       LD HL,MOND3
       CALL EX2
       LD DE,MOND4
       CALL EX1
       LD A,(MONE)
       CP 1
       CALL Z,ELE1
       LD HL,MOND4
       CALL EX2
       RET 
ELEC3  LD A,07FH
       IN A,(254)
       AND 2
       JP NZ,NMOVE
       LD B,32
       LD E,0
EL3    LD A,5
       LD C,85
       LD D,16
       CALL BO1
       INC E
       DJNZ EL3
       CALL MOEL3
       CALL BORDR
       JP NMOVE
MOEL3  LD DE,MOND1
       CALL EX1
       LD A,(MOND)
       CP 24
       CALL Z,ELE1
       LD HL,MOND1
       CALL EX2
       LD DE,MOND2
       CALL EX1
       LD A,(MOND)
       CP 24
       CALL Z,ELE1
       LD HL,MOND2
       CALL EX2
       LD DE,MOND3
       CALL EX1
       LD A,(MOND)
       CP 24
       CALL Z,ELE1
       LD HL,MOND3
       CALL EX2
       LD DE,MOND4
       CALL EX1
       LD A,(MOND)
       CP 24
       CALL Z,ELE1
       LD HL,MOND4
       CALL EX2
       RET 
ELEC4  LD A,07FH
       IN A,(254)
       AND 2
       JR NZ,NMOVE
       LD B,32
       LD E,0
EL4    LD A,5
       LD C,85
       LD D,184
       CALL BO1
       INC E
       DJNZ EL4
       CALL MOEL4
       CALL BORDR

613D:

       LD DE,MOND4
       CALL EX1
       LD A,(MOND)
       CP 168
       CALL Z,ELE1
       LD HL,MOND4
       CALL EX2
       RET 
NMOVE  LD A,1
       LD (MOVE#),A
       RET 
PUSH1  LD A,07FH
       IN A,(2