Pentac

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