If you appreciate the work done within the wiki, please consider supporting The Cutting Room Floor on Patreon. Thanks for all your support!

Moon Cresta (ZX Spectrum)

From The Cutting Room Floor
Jump to navigation Jump to search

Title Screen

Moon Cresta

Developer: Incentive Software
Publisher: Incentive Software
Platform: ZX Spectrum
Released in EU: 1985


SourceIcon.png 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)