Pentac

Pentac
Developer: Soft Juliet Publisher: Compulogical Platform: ZX Spectrum Released in EU: 1985 This game has uncompiled source code.

Pentac, despite the crazy title screen, is just Tangram.

Source Code Fragment

A few sections of the code are left in the game. The code seen below can be viewed with a hex editor at the addresses below in the .tap dump of the game.

522D:

31,31
TEXTO	DEFM	"STAR TAPE THEN PRESS FIRE"
        DEFB	255
TEXTO1	DEFM	"STAR TAPE PLEASE"
        DEFB	255
TEXTO2	DEFM	"TAPE LOADING ERROR"
        DEFB	255
PRIMER	DEFW	15880
PONTEX	LD	DE,22*256+1
        LD	BC,TEXTO
        ;
TEX_1	LD	A,(BC)
        CP	255
        RET	Z
        CP	32
        CALL	Z,SPACE
        PUSH	DE
        PUSH	BC
        LD	A,(BC)
        SUB	65
        LD	HL,(PRIMER)
        LD	BC,8
RE_TEX	AND	A
        JR	Z,CONTEX
        ADD	HL,BC
        DEC	A
        JR	RE_TEX
CONTEX	POP	BC
        POP	DE
        PUSH	DE
        PUSH	BC
        CALL	PINTEX
        POP	BC
        POP	DE
        INC	BC
        INC	E
        JR	TEX_1
        ;
SPACE	PUSH	DE
        PUSH	BC
        LD	BC,#101
        LD	HL,G_SPA
        CALL	PINNOR
        POP	BC
        POP	DE
        INC	BC
        INC	E
        RET
G_SPA	DEFB	0,0,0,0,0,0,0,0
        ;
        ;
        ;
        ;
PINTEX	LD	BC,#101
        PUSH	DE
        CALL	PINNOR
        POP	DE
        INC	E
        LD	BC,#101
        LD	HL,BARRA
        CALL	PINNOR
        CALL	SONIDO
        RET
        ;
        ;
        ;
RETRO	LD	A,10
        DI
        LD	(DU_SND),A
        LD	DE,22*256+31
R_RETR	PUSH	DE
        CALL	BORRA
        POP	DE
        DEC	E
        LD	A,E
        CP	1
        JR	NZ,R_RETR
        LD	A,50
        LD	(DU_SND),A
        EI
        RET
BORRA	LD	BC,#101
        LD	HL,G_SPA
        PUSH	DE
        CALL	PINNOR
        POP	DE
        LD	BC,#101
        LD	HL,BARRA
        DEC	E

5A6E:

MINUTO	LD	HL,23297
        INC	(HL)
        CALL	MIRMIN
        CALL	SONIDO
        JP	MOVRAT
HORAS	LD	HL,23296
        INC	(HL)
        CALL	MIRHOR
        CALL	SONIDO
        JP	MOVRAT
MINDES	LD	HL,23301
        INC	(HL)
        CALL	MIRMIN
        CALL	SONIDO
        JP	MOVRAT
HORDES	LD	HL,23300
        INC	(HL)
        CALL	MIRHOR
        CALL	SONIDO
        JP	MOVRAT
MIRMIN	LD	A,60
        CP	(HL)
        RET	NZ
        LD	(HL),0
        RET
MIRHOR	LD	A,24
        CP	(HL)
        RET	NZ
        LD	(HL),0
        RET
        ;
CONZUM	DEFB	0
ZUMBID	LD	A,(23302)
        AND	A
        RET	Z
        LD	A,(23296)
        LD	HL,23300
        CP	(HL)
        RET	NZ
        LD	A,(23297)
        LD	HL,23301
        CP	(HL)
        RET	NZ
        LD	HL,CONZUM
        INC	(HL)
        BIT	2,(HL)
        CALL	Z,MASDUR;LARGA DURACION DEL SONIDO
        CALL	SONIDO
        LD	A,50
        LD	(DU_SND),A
        RET
MASDUR	LD	A,75
        LD	(DU_SND),A
        CALL	PAUSA
        RET
        ;
NUM0	DEFB	0,126,70,78,82,98,126,0
NUM1	DEFB	0,24,40,8,24,24,24,0
NUM2	DEFB	0,126,66,2,126,96,126,0
NUM3	DEFB	0,124,68,14,6,70,126,0
NUM4	DEFB	0,124,68,68,68,126,12,0
NUM5	DEFB	0,126,64,126,6,70,126,0
NUM6	DEFB	0,126,64,

6348:

        CP	2
        RET	Z
REPPUN	CP	3
        JR	Z,CONPUN