Kick Box Vigilante (ZX Spectrum)

Kick Box Vigilante
Developer: Zeppelin Games Publisher: Zeppelin Games Platform: ZX Spectrum Released in EU: 1991 This game has uncompiled source code.

Source Code Fragment

A decent chunk of the code was included in this game. The code seen below can be seen with a hex editor at 68D6 in the .tzx dump of the game.

        RET
HIIP	LD	A,9
        LD	(FRAME),A
        LD	A,(XY)
        ADD	A,5
        LD	(XY),A
        RET
LOPUNF	LD	A,(FRAME)
        CP	5
        JR	Z,ARD
        LD	A,5
        LD	(FRAME),A
        RET
ARD	LD	A,10
        LD	(FRAME),A
        LD	A,15
        LD	(MIPD),A
        RET
HIKICK	LD	A,(FRAME)
        CP	11
        JR	Z,INAIR
        LD	A,11
        LD	(FRAME),A
        RET
INAIR	INC	A
        LD	(FRAME),A
        RET
BELLY	LD	A,(FRAME)
        CP	13
        JR	Z,BEL2
        LD	A,13
        LD	(FRAME),A
        LD	A,(XY)
        ADD	A,4
        LD	(XY),A
        RET
BEL2	LD	A,14
        LD	(FRAME),A
        LD	A,(XY)
        ADD	A,2
        LD	(XY),A
        RET
FLY	LD	A,(FRAME)
        AND	A
        JR	Z,FIU
        XOR	A
        LD	(FRAME),A
       	RET
FIU   	LD	A,15
        LD	(FRAME),A
        LD	HL,WAVE
        LD	(JWAVE),HL
        RET
FIP	LD	HL,(JWAVE)
        LD	A,(HL)
        AND	A
       	JR	NZ,UXZ
        LD	HL,FINDH
        PUSH	HL
UXZ	LD	HL,(JWAVE)
      	LD	A,(HL)
        CP	-8
        JR	Z,ENFJ
       	INC	HL
        LD	(JWAVE),HL
        LD	BC,(XY)
        ADD	A,B
        LD	(XY+1),A
        INC	C
        INC	C
        INC	C
        LD	A,C
        LD	(XY),A
        RET
ENFJ	XOR	A
       	LD	(FRAME),A
        RET
PDRAG	CALL	NMED
        LD	B,11
        LD	DE,22918
        LD	HL,22917
        LD	IX,22916
FL1	PUSH	BC
        PUSH	HL
        PUSH	DE
        LD	(HL),96
        LD	BC,21
        LDIR
        LD	(IX),32
        LD	(IX+23),32
        LD	DE,32
        ADD	IX,DE
        POP	DE
        LD	HL,32
        ADD	HL,DE
        EX	DE,HL
        POP	HL
        LD	BC,32
        ADD	HL,BC
        POP	BC
        DJNZ	FL1
        RET
NMED	LD	HL,16384+2048
        CALL	DRAG
PD2	LD	HL,16412+2048
DRAG	LD	B,128
        LD	DE,28090
DL1	PUSH	BC
        PUSH	HL
        CALL	LINE
        POP	HL
        INC	H
        LD	A,H
        AND	7
        JR	NZ,DL2
        LD	BC,#FF20
        ADD	HL,BC
        LD	A,H
        AND	248
        LD	H,A
DL2     POP	BC
        DJNZ	DL1
        CALL	COLO
        LD	IX,22816
        LD	A,114
        LD	(IX),A
        LD	(IX+3),A
        LD	(IX+28),A
        LD	(IX+31),A
       	LD	IX,22976
        LD	A,112
        LD	B,4
        LD	DE,32
SHUO	LD	(IX),A
        LD	(IX+1),A
        LD	(IX+2),A