Moon Cresta (ZX Spectrum)

Moon Cresta
Developer: Incentive Software Publisher: Incentive Software Platform: ZX Spectrum Released in EU: 1985 This game has uncompiled source code.

Source Code Fragments

Three pieces of code can be found in the game. These can be found at the addresses listed below in the .tap dump.

2DA8:

        INC	A
        POP	HL
        POP	BC
        DJNZ	NX_LOO
        LD	E,(HL)
        INC	HL
        LD	D,(HL)
        INC	HL
        LD	(M_PAT),DE
        LD	E,(HL)
        INC	HL
        LD	D,(HL)
        INC	HL
        LD	(PATVAL),DE
        LD	A,(HL)
        LD	(SCORE),A
        INC	HL
        LD	A,(HL)
        LD	(N_ALNS),A
        CALL	INITAL
        JP	MAIN

INITAL	LD	A,(N_ALNS)
        LD	B,A
        LD	A,1
        EX	AF,AF'
        XOR	A
        EX	AF,AF'
        LD	HL,(PATVAL)
        LD	IY,(ALTAB)
IA_B1	PUSH	AF
        LD	A,(SHEET)
        CP	6
        JP	C,IAF01
­        LD	(IY+1),0
        POP	AF
        LD	(IY),A
        JP	IAF02

IAF01	LD	(IY+1),50
        POP	AF
        EX	AF,AF'
        AND	A
        JP	Z,FARRGT
        LD	(IY),110
        JP	FARLFT

FARRGT	LD	(IY),130
FARLFT	EX	AF,AF'
IAF02	LD	(IY+2),0
        LD	(IY+3),0
        LD	(IY+4),0
        LD	(IY+5),0
        LD	(IY+6),0
        LD	(IY+7),0
        LD	(IY+8),0
        LD	(IY+9),0
        LD	(IY+10),

3674:

DD
LD	L,A
LD	A

524D:

                ,230
        LD	(BOTTOM),A
        LD	(YPOS),A
        LD	A,(SHPFLG)
        LD	(I_TEMP),A
        RLCA
        RLCA
        RLCA
        AND	7
        LD	(SHPFLG),A
        XOR	A
        LD	(FIRE),A
        CALL	SETSHP
        XOR	A
        LD	(SHPADD),A
        LD	(SHPGR),A
        LD	(SHPSIZ),A
        LD	(SHPXL),A
        LD	(THRADD),A
        LD	(THRGR),A
        LD	(THRSIZ),A
        LD	(THRXL),A
        LD	A,1
        LD	(INTROU),A
        LD	IY,INISND
        CALL	BEEP
ISB1	LD	A,(INTROU)
        AND	A
        JP	NZ,ISB1
        XOR	A
        LD	(NOISE),A
        LD	(THRADD),A
        LD	(THRGR),A
        LD	(THRSIZ),A
        LD	(THRXL),A
        CALL	SETSHP
        XOR	A
        LD	(KEYF

(Source: Original TCRF research)