Cobra Force (ZX Spectrum)

Cobra Force
Developer: Players Premier Publisher: Players Premier Platform: ZX Spectrum Released in EU: 1989 This game has uncompiled source code.

Source Code Fragments

There is a decent amount of code. These code fragments can be seen at the addresses listed below in the .tap dump.

65F7:

         D	(EGGCNT),A
        LD	A,120

69B3:

         D	HL,(PARAL1+1)
        SRL	H
        RR	L
        LD	A,0
        RR	A
       	OR	H
        LD	H,A
        LD	(PARAL1+1),HL
        LD	HL,(PARAL2+1)
        SRL	H
        RR	L
        LD	A,0
        RR	A
        OR	H
        LD	H,A
        LD	(PARAL2+1),HL
        LD	HL,BADBUL
        LD	DE,13
        LD	B,10
        LD	C,2
BABUR	LD	A,(HL)
        ADD	A,C
        JP	NC,BABURO
        XOR	A
        INC	HL
        LD	(HL),A
        INC	HL
        LD	B,10
        LD	C,2
BABUR	LD	A,(HL)
        ADD	A,C
	JP	N

6D1D:

	        E,(HL)
	INC	HL
	LD	D,(HL)
	EX	DE,HL
	LD	A,(IX+0)
	SRL	A
	SRL	A
	SRL	A
	ADD	A,L
	LD	L,A
	LD	(HL),%10111101
	RET
TABULL	DEFS	70 
COLRL	LD	HL,22528+4
	LD	DE,22528+3
	LD	B,16
COL16L	PUSH	BC
	LD	BC,27
	LDIR
	LD	BC,5
	ADD	HL,BC
	EX	DE,HL
	ADD	HL,BC
	EX	DE,HL
	POP	BC
	DJNZ	COL16L
	LD	HL,(ADRPNT)
	LD	DE,13
	ADD	HL,DE
	LD	DE,22528+29
	EX	DE,HL
	CALL	DOCC
	LD	BC,160
	JP	DUMPLP
COLRR	LD

70CF:

	 X	DE,HL
	POP	BC
	DJNZ	DOCCL
	LD	BC,32
	LD	A,(BOATTR)
	LD	(HL),A
	ADD	HL,BC
	LD	A,(BOATTR+1)
	LD	(HL),A
	RET
BOATTR	DEFB	67,67
COLOUR	EQU	64500
MVAL	DEFB	4,2,1,1,0,1,1,2,4
WPNSYS	DEFB	1
MISFLG	DEFB	0
PODANI	DEFB	0
PRPOD	LD	HL,TABADS
	ADD	HL,BC
	LD	(SPODS+1),SP
	LD	SP,HL
	LD	HL,PODEF
	LD	A,(PODANI)
	AND	254
	SLA	A
	SLA	A
	LD	E,A
	LD	D,0
	ADD	HL,DE
	EX	DE,HL
	LD	BC,16
PUTCHR	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	LD	(HL),A
SPODS	LD	SP,0
	RET
PODEF	DEFB	24,90,219-24,218,217,90-24,24
	DEFB	0
	DEFB	24,90-24,219,218,217-24,90,24
	DEFB	0
	DEFB	0,90,219,218-24,217,90,0
	DEFB	0
	DEFB	1,59,125,254,101,59,1,0
	DEFB	128,220,190,127,178,220,128,0
MISILX	DEFS	6
PUTMIS	LD	A,(MISILX+1)
	LD	B,0
	SLA	A
	RL	B
	LD	C,A
	LD	HL,TABADS
	ADD	HL,BC
	LD	(SPODS+1),SP
	LD	SP,HL
	LD	HL,PODEF+24
	LD	A,(MISILX+2)
	SLA	A
	SLA	A
	SLA	A
	LD	C,A
	LD	B,0
	ADD	HL,BC
	EX	DE,HL
	LD	A,(MISILX)
	SRL	A
	SRL	A
	SRL	A
	LD	C,A
	LD	B,0
	JP	PUTCHR
BLOCKS	EQU	25000
PRBBUL	LD	HL,BULDAT
	LD	A,(IX+0)
	AND	6
	SLA	A
	SLA	A
	LD	C,A
	LD	B,0
	ADD	HL,BC
	EX	DE,HL
	LD	C,(IX+1)
	LD	B,0
	SLA	C
	RL	B
	LD	HL,TABADS
	ADD	HL,BC
	LD	A,(IX+0)
	SRL	A
	SRL	A
	SRL	A
	LD	C,A
	LD	B,0
	LD	SP,HL
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	INC	L
	INC	DE
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	INC	L
	INC	DE
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	INC	L
	INC	DE
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	INC	DE
	POP	HL
	ADD	HL,BC
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	INC	L
	INC	DE
	LD	A,(DE)
	OR	(HL)
	LD	(HL),A
	JP	RETPBB
BADBUL	DEFS	130
STALOP	DEFB	0
BULDAT	DEFB	%01100000,0
	DEFB	240,0,240,0
	DEFB	%01100000,0
	DEFB	%00011000,0
	DEFB	%00111100,0,%00111100,0
	DEFB	%00011000,0
	DEFB	6,0,15,0,15,0,6,0
	DEFB	1,128
	DEFB	3,192,3,192,1,128
GAMOC	DEFB	0
STAGE	DEFB	0
UNCRUN	LD	DE,47000
	LD	BC,2000
LPUNCR	LD	A,(IX+0)