Pinball Power (Amstrad CPC)

This page contains no introduction. What makes this game notable or what is it about? Are you a bad enough dude to save this article?

Source Code Fragment#

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

662B:

        LD  A,(MUB)
        CP  15
        CALL    Z,CRTB2
        CP  1
        CALL    Z,CRTB2
        LD  A,(MUB)
        DEC A
        LD  (MUB),A
        RET
CRTB1:  LD  A,34
        CALL    #90C2
        LD  A,35
        JP  #90C2
CRTB2:  LD  A,32
        CALL    #90C2
        LD  A,33
        JP  #90C2
BUMP1:  LD  A,15
        LD  A,1
        CALL    ADBON
        LD  A,10
        JP  #648F
INLA2:  LD  A,(INLAN)
        BIT 1,A
        RET Z
        RES 1,A
        SET 6,A
        LD  (INLAN),A
        LD  A,1
        CALL    ADBON
        LD  A,10
        JP  #648F
BEL1:   LD  A,(BL1)
        AND A
        RET NZ
        LD  A,5
        LD  (BL1),A
        LD  DE,1
        CALL    ADSCO
        LD  A,1
        JP  #648F
BEL2:   LD  A,(BL2)
        AND A
        RET NZ
        LD  A,5
        LD  (BL2),A
        LD  DE,1
        CALL    ADSCO
        LD  A,2
        JP  #648F
BEL3:   LD  A,(BL3)
        AND A
        RET NZ
        LD  A,5
        LD  (BL3),A
        LD  DE,1
        CALL    ADSCO
        LD  A,3
        JP  #648F
CRTHAR: LD  A,(HAR)
        DEC A
        LD  (HAR),A
        JR  Z,C
        LD  (BUM),A
        LD  A,4
        JP  #648F
BUMP2:  LD  A,15
        LD  (MUB),A
        LD  A,4
        JP  #648F
CRBUM:  LD  A,(BUM)
        CP  15
        CALL    Z,CRTB1
        CP  1
        CALL    Z,CRTB1
        LD  A,(BUM)
        DEC A
        LD  (BUM),A
        RET
OGAT:   LD  A,1
        LD  (GAT),A
        LD  A,15
        JP  #648F
CGAT:   LD  A,20
        LD  (GAT),A
        LD  A,15
        JP  #648F
OHP:    LD  A,30
        RET
OHS:    LD  A,95
        RET
REVOL:  LD  A,(VELY)
        SRL A
        SRL A
        SRL A
        LD  B,A
        LD  A,(#741E)
        AND A
        JR  NZ,RTU
        LD  A,B
        LD  (REV),A
        CP  4
        CALL    NC,OGAT
        RET
RTU:    LD  A,B
        LD  (VER),A
        CP  4
        CALL    NC,OGAT
        RE
        AND 1
        RET Z
CH:     LD  A,31
        JP  #90C2
ADSCO:LD    HL,(SCOR)
        ADD HL,DE
        LD  (SCOR),HL
        LD  DE,#C000+3703
        JP  #5B6B
SCOR:DEFW   0
BL1:DEFB    0
BL2:DEFB    0
BL3:DEFB    0
HAR:DEFB    0
ALAN:DEFB   0
LAN:DEFB    0
SLAN:DEFB   0
PRB:    LD  A,(#5922)
        CP  1
        RET NZ
        LD  A,(#5923)
        CP  1
        RET NZ
        LD  A,(LAN)
        AND A
        BIT 2,A
        JR  Z,SCV
        SCF
SCV:    RLA
        AND %111
        LD  (LAN),A
        RET
ALAS:   XOR A
        LD  (LAN),A
        LD  (SLAN),A
        RET
ALLLA:  DEC A
        LD  (ALAN),A
        JR  Z,ALAS
        AND %11
        RET NZ
        LD  A,(LAN)
        CALL    CLAN
        T
        INTER:LD    (STACK),SP
        LD  SP,NST+24
        PUSH    HL
        PUSH    DE
        PUSH    BC
        PUSH    AF
        LD  B,#F5
        IN  A,(C)
        RRA
        JR  NC,I2
        LD  A,(MIS)
        DEC A
        LD  (MIS),A
        CALL    Z,PONA
        CALL    NZ,#538E
        LD  A,16
        CALL    #9000
        JR  NZ,I2
EXIT:   LD  SP,(SSTACK)
        JP  END
I2:     LD  A,(#5887)
        INC A
        LD  (#5887),A
        POP AF
        POP BC
        POP DE
        POP HL
        LD  SP,(STACK)
        EI
        RET
TARGET: LD  A,1
        LD

66F0:

        RET
CRTLAN: LD  A,(ALAN)

8065:

LD  B,17
JP  Z,BEFE
INC B
CP  125
JP  Z,BEFE
INC