1570 lines
28 KiB
ArmAsm
1570 lines
28 KiB
ArmAsm
*--------------------------*
|
|
* *
|
|
* BLOCKADE *
|
|
* *
|
|
* Brutal Deluxe *
|
|
* *
|
|
* Version: 1.0 du 1/1/95 *
|
|
*--------------------------*
|
|
|
|
lst off
|
|
rel
|
|
dsk Blockade.l
|
|
|
|
mx %00
|
|
xc
|
|
xc
|
|
|
|
lvl = 1
|
|
|
|
*--------------------------------------
|
|
|
|
use 4/Locator.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Misc.Macs
|
|
use 4/Sound.Macs
|
|
use 4/Util.Macs
|
|
|
|
*--------------------------------------
|
|
|
|
Debut = $00
|
|
Arrivee = $04
|
|
Second = $08
|
|
Third = $0c
|
|
|
|
proDOS = $e100a8
|
|
|
|
*--------------------------------------
|
|
|
|
brl ICI
|
|
|
|
asc 0d0d
|
|
asc 'Happy New Year'
|
|
asc 0d0d
|
|
|
|
ICI phk
|
|
plb
|
|
|
|
_TLStartUp
|
|
pha
|
|
_MMStartUp
|
|
pla
|
|
sta myID
|
|
_MTStartUp
|
|
|
|
*--- Keyboard buffering off
|
|
|
|
PushWord #0
|
|
PushWord #$2b
|
|
_ReadBParam
|
|
PullWord save5
|
|
|
|
PushWord #0
|
|
PushWord #$2b
|
|
_WriteBParam
|
|
|
|
sep #$20
|
|
|
|
ldal $e0c022
|
|
sta save1
|
|
ldal $e0c029
|
|
sta save2
|
|
ldal $e0c034
|
|
sta save3
|
|
ldal $e0c035
|
|
sta save4
|
|
|
|
lda #$f0
|
|
stal $e0c022
|
|
lda #$00
|
|
stal $e0c034
|
|
|
|
rep #$20
|
|
|
|
*--------------------------------------
|
|
|
|
ldal $e0c060
|
|
bmi okINIT1
|
|
|
|
pha
|
|
_SoundToolStatus
|
|
pla
|
|
bne okINIT1
|
|
|
|
lda #1
|
|
sta fgSND
|
|
|
|
*--------------------------------------
|
|
|
|
brl okINIT1
|
|
|
|
asc 0d'Hello Joe'0d
|
|
asc 'Now that you have 1000 subscribers'0d
|
|
asc 'We hope that Sheva will love your IIGS :-)'0d
|
|
|
|
*--------------------------------------
|
|
|
|
okINIT1 PushLong #0
|
|
PushLong #$8fffff
|
|
PushWord myID
|
|
PushWord #%11000000_00000000
|
|
PushLong #0
|
|
_NewHandle
|
|
_DisposeHandle
|
|
_CompactMem
|
|
|
|
*--------------------------------------
|
|
|
|
]lp PushLong #0
|
|
PushLong #$10000
|
|
PushWord myID
|
|
PushWord #%11000000_00011100
|
|
PushLong #0
|
|
_NewHandle
|
|
ldx temp
|
|
phd
|
|
tsc
|
|
tcd
|
|
ldy #0
|
|
lda [3],y
|
|
sta ptrUNPACK,x
|
|
ldy #2
|
|
lda [3],y
|
|
sta ptrUNPACK+2,x
|
|
pld
|
|
pla
|
|
pla
|
|
jsr memERR
|
|
inx
|
|
inx
|
|
inx
|
|
inx
|
|
stx temp
|
|
cpx #4*6 ; 6*64ko
|
|
bne ]lp
|
|
|
|
PushLong #0
|
|
PushLong #$40000
|
|
PushWord myID
|
|
PushWord #%11000000_00001100
|
|
PushLong #0
|
|
_NewHandle
|
|
phd
|
|
tsc
|
|
tcd
|
|
ldy #0
|
|
lda [3],y
|
|
sta ptrMUSIC
|
|
ldy #2
|
|
lda [3],y
|
|
sta ptrMUSIC+2
|
|
pld
|
|
pla
|
|
pla
|
|
bcc okINIT2
|
|
|
|
lda #1
|
|
sta fgZIK
|
|
|
|
*--------------------------------------
|
|
|
|
okINIT2 ldx #0
|
|
|
|
]lp lda ptrSCR,x
|
|
clc
|
|
adc #$8000
|
|
sta ptrLEVEL,x
|
|
lda ptrSCR+2,x
|
|
adc #0
|
|
sta ptrLEVEL+2,x
|
|
|
|
txa
|
|
clc
|
|
adc #4
|
|
tax
|
|
cpx #4*5
|
|
bne ]lp
|
|
|
|
*--------------------------------------
|
|
|
|
ldx #0
|
|
]lp lda ptrMUSIC,x
|
|
clc
|
|
adc #$8000
|
|
sta ptrMUSIC+4,x
|
|
lda ptrMUSIC+2,x
|
|
adc #0
|
|
sta ptrMUSIC+6,x
|
|
|
|
txa
|
|
clc
|
|
adc #4
|
|
tax
|
|
cpx #4*6
|
|
bne ]lp
|
|
|
|
*--------------------------------------
|
|
|
|
ldx #0
|
|
txa
|
|
]lp stal $e12000,x
|
|
inx
|
|
inx
|
|
bpl ]lp
|
|
|
|
sep #$20
|
|
lda #$c1
|
|
stal $e0c029
|
|
rep #$20
|
|
|
|
*--------------------------------------
|
|
|
|
PushWord #0
|
|
PushWord #0
|
|
PushWord #0
|
|
PushWord #0
|
|
_ReadTimeHex
|
|
plx
|
|
plx
|
|
plx
|
|
pla
|
|
and #$ff00
|
|
cmp #$0100
|
|
beq okINIT4
|
|
cmp #$0200
|
|
bne okINIT5
|
|
|
|
lda #1
|
|
sta fgBORDURE
|
|
bra okINIT5
|
|
|
|
okINIT4 lda #$0f6f
|
|
sta adrSPRITE+20
|
|
lda #$0f7a
|
|
sta adrSPRITE+22
|
|
|
|
okINIT5 PushWord #0
|
|
PushWord #$29
|
|
_ReadBParam
|
|
pla
|
|
and #$ff
|
|
cmp #$02
|
|
beq okINIT51
|
|
brl okINIT6
|
|
|
|
okINIT51 lda #1
|
|
sta fgLANG
|
|
|
|
*--------------------------------------
|
|
|
|
brl okINIT6
|
|
|
|
asc 0d'In the last issue of PowerGs'0d
|
|
asc 'You saw no pictures of Digital Exodus members:'0d
|
|
asc 'They consider their visage to be their own property'0d0d
|
|
|
|
asc 'They act the same way with their software'0d
|
|
asc 'They certainly program many things but...'0d
|
|
asc 'They keep them for themselves... :-('0d
|
|
asc 'That'27's why there is no available software from Digital Exodus'0d
|
|
|
|
*--------------------------------------
|
|
|
|
okINIT6 ldal $e0c061
|
|
bmi okINIT7
|
|
|
|
lda fgZIK
|
|
bne okINIT9
|
|
|
|
jsr animIT
|
|
bra okINIT9
|
|
|
|
okINIT7 lda #$6038
|
|
sta loadPATCH
|
|
|
|
lda #pANIM17
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
bcs okINIT8
|
|
|
|
ldx ptrSCR+2
|
|
ldy ptrSCR
|
|
jsr unPACK
|
|
|
|
ldx ptrSCR+2
|
|
ldy ptrSCR
|
|
lda #-1
|
|
jsr fadeIN
|
|
|
|
okINIT8 lda #$eaea
|
|
sta loadPATCH
|
|
|
|
okINIT9 brl doCODE
|
|
|
|
*--------------------------------------
|
|
|
|
initOFF ldx #0
|
|
txa
|
|
]lp stal $e12000,x
|
|
inx
|
|
inx
|
|
bpl ]lp
|
|
|
|
PushWord save5
|
|
PushWord #$2b
|
|
_WriteBParam
|
|
|
|
sep #$20
|
|
|
|
lda save4
|
|
stal $e0c035
|
|
lda save3
|
|
stal $e0c034
|
|
lda save2
|
|
stal $e0c029
|
|
lda save1
|
|
stal $e0c022
|
|
|
|
rep #$20
|
|
|
|
_MTShutDown
|
|
|
|
PushWord myID
|
|
_DisposeAll
|
|
PushWord myID
|
|
_MMShutDown
|
|
_TLShutDown
|
|
|
|
jsl proDOS
|
|
dw $2029
|
|
adrl proQUIT
|
|
|
|
*--------------------------------------
|
|
* Le programme
|
|
|
|
doCODE lda #pSPRIT
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrSPRITE+2
|
|
ldy ptrSPRITE
|
|
jsr unPACK
|
|
|
|
lda #pHELP1
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP1+2
|
|
ldy ptrHELP1
|
|
jsr unPACK
|
|
|
|
lda fgLANG
|
|
beq doCODE1
|
|
brl doCODE2
|
|
|
|
doCODE1 lda #pHELP2
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP2+2
|
|
ldy ptrHELP2
|
|
jsr unPACK
|
|
|
|
lda #pHELP3
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP3+2
|
|
ldy ptrHELP3
|
|
jsr unPACK
|
|
|
|
lda #pHELP4
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP4+2
|
|
ldy ptrHELP4
|
|
jsr unPACK
|
|
|
|
lda #pHELP5
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP5+2
|
|
ldy ptrHELP5
|
|
jsr unPACK
|
|
|
|
lda #pHELP6
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP6+2
|
|
ldy ptrHELP6
|
|
jsr unPACK
|
|
brl doCODE3
|
|
|
|
doCODE2 lda #pHELP2VF
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP2+2
|
|
ldy ptrHELP2
|
|
jsr unPACK
|
|
|
|
lda #pHELP3VF
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP3+2
|
|
ldy ptrHELP3
|
|
jsr unPACK
|
|
|
|
lda #pHELP4VF
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP4+2
|
|
ldy ptrHELP4
|
|
jsr unPACK
|
|
|
|
lda #pHELP5VF
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP5+2
|
|
ldy ptrHELP5
|
|
jsr unPACK
|
|
|
|
lda #pHELP6VF
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
ldx ptrHELP6+2
|
|
ldy ptrHELP6
|
|
jsr unPACK
|
|
|
|
doCODE3 lda #pLEVEL
|
|
ldx ptrLEVEL+2
|
|
ldy ptrLEVEL
|
|
jsr loadFILE
|
|
|
|
lda fgSND
|
|
beq doCODE4
|
|
|
|
*---
|
|
|
|
lda #$6038
|
|
sta loadPATCH
|
|
|
|
lda #pSOUND
|
|
ldx ptrUNPACK+2
|
|
ldy ptrUNPACK
|
|
jsr loadFILE
|
|
bcc doCODE31
|
|
|
|
lda #1
|
|
sta fgFX
|
|
bra doCODE32
|
|
|
|
doCODE31 jsr initSND
|
|
|
|
doCODE32 lda ptrUNPACK
|
|
clc
|
|
adc #$8000
|
|
tay
|
|
lda ptrUNPACK+2
|
|
adc #0
|
|
tax
|
|
lda #pFONTE
|
|
jsr loadFILE
|
|
bcc doCODE321
|
|
|
|
lda #1
|
|
sta fgAAHH
|
|
|
|
doCODE321 lda fgZIK
|
|
bne doCODE4
|
|
|
|
lda #pMUSIC
|
|
ldx ptrMUSIC+2
|
|
ldy ptrMUSIC
|
|
jsr loadFILE
|
|
bcc doCODE33
|
|
|
|
lda #1 ; no ZIK
|
|
sta fgZIK
|
|
bra doCODE4
|
|
|
|
doCODE33 jsr initMUSIC
|
|
|
|
doCODE4 lda #$eaea
|
|
sta loadPATCH
|
|
|
|
lda #lvl
|
|
sta level
|
|
|
|
jsr fadeOUT
|
|
|
|
*--------------------------------------
|
|
|
|
loopGAME jsr preparePIC
|
|
|
|
jsr decodeLEVEL
|
|
jsr printLEVEL
|
|
|
|
lda #1
|
|
ldx ptrSCR+2
|
|
ldy ptrSCR
|
|
jsr fadeIN
|
|
|
|
lda #-1
|
|
sta windowC
|
|
|
|
stz currC
|
|
|
|
jsr moFORE
|
|
|
|
jsr theMOUSE
|
|
|
|
pha
|
|
jsr fadeOUT
|
|
pla
|
|
cmp #-1 ; Quit
|
|
beq loopGAME1
|
|
cmp #-2 ; Restart
|
|
beq loopGAME
|
|
|
|
ldy #1
|
|
jsr playSND
|
|
|
|
inc level
|
|
lda level
|
|
cmp #82
|
|
bne loopGAME
|
|
lda #1
|
|
sta level
|
|
bra loopGAME
|
|
|
|
*---
|
|
|
|
loopGAME1 lda fgSND
|
|
beq loopGAME2
|
|
lda fgZIK
|
|
bne loopGAME2
|
|
|
|
sei
|
|
stz fgPLAY
|
|
jsr shutMUSIC1
|
|
jsr shutMUSIC
|
|
|
|
loopGAME2 brl initOFF
|
|
|
|
*--------------------------------------
|
|
* Routines sonores
|
|
|
|
initSND lda ptrUNPACK
|
|
sta Debut
|
|
lda ptrUNPACK+2
|
|
sta Debut+2
|
|
ldy #0
|
|
sei
|
|
|
|
initSND1 sep #$20
|
|
|
|
ldal $e100ca
|
|
ora #%0110_0000
|
|
stal $e0c03c
|
|
|
|
lda #0
|
|
stal $e0c03e
|
|
stal $e0c03f
|
|
|
|
ldy #0
|
|
]lp lda [Debut],y
|
|
stal $e0c03d
|
|
iny
|
|
bne ]lp
|
|
|
|
rep #$20
|
|
cli
|
|
rts
|
|
|
|
*---
|
|
|
|
playSND pha
|
|
lda fgSND
|
|
bne playSND1
|
|
pla
|
|
rts
|
|
|
|
playSND1 lda fgPLAY
|
|
beq playSND2
|
|
pla
|
|
rts
|
|
|
|
playSND2 lda fgFX
|
|
beq playSND3
|
|
pla
|
|
rts
|
|
|
|
playSND3 tya
|
|
asl
|
|
tay
|
|
|
|
sep #$20
|
|
|
|
ldal $e100ca
|
|
and #$0f
|
|
stal $e0c03c
|
|
|
|
tya
|
|
stal $e0c03e
|
|
lda #$d1
|
|
stal $e0c03d
|
|
tya
|
|
ora #$01
|
|
stal $e0c03e
|
|
lda #$d1
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$20
|
|
stal $e0c03e
|
|
lda #0
|
|
stal $e0c03d
|
|
tya
|
|
ora #$21
|
|
stal $e0c03e
|
|
lda #0
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$40
|
|
stal $e0c03e
|
|
lda #$ff
|
|
stal $e0c03d
|
|
tya
|
|
ora #$41
|
|
stal $e0c03e
|
|
lda #$ff
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$80
|
|
stal $e0c03e
|
|
lda sndADR,y
|
|
stal $e0c03d
|
|
tya
|
|
ora #$81
|
|
stal $e0c03e
|
|
lda sndADR,y
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$c0
|
|
stal $e0c03e
|
|
lda sndPAGE,y
|
|
stal $e0c03d
|
|
tya
|
|
ora #$c1
|
|
stal $e0c03e
|
|
lda sndPAGE,y
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$a0
|
|
stal $e0c03e
|
|
lda #%0000_0010
|
|
stal $e0c03d
|
|
tya
|
|
ora #$a1
|
|
stal $e0c03e
|
|
lda #%0001_0010
|
|
stal $e0c03d
|
|
|
|
rep #$20
|
|
|
|
pla
|
|
rts
|
|
|
|
mx %00
|
|
|
|
*--------------------------------------
|
|
|
|
asc 0d'Thanks to Jerome Cretaux for having shown us'0d
|
|
asc 'this game for the first time a month ago.'0d
|
|
|
|
*--------------------------------------
|
|
|
|
initMUSIC sei
|
|
|
|
PushLong #0
|
|
PushWord #$000b
|
|
_GetVector
|
|
PullLong sndVECTOR
|
|
|
|
PushWord #$000b
|
|
PushLong #sndINTERRUPT
|
|
_SetVector
|
|
|
|
lda #$373
|
|
sta zikPAGE
|
|
lda ptrMUSIC
|
|
sta zikMUSIC
|
|
lda ptrMUSIC+2
|
|
sta zikMUSIC+2
|
|
|
|
sep #$20
|
|
|
|
ldal $e100ca
|
|
stal $e0c03c
|
|
|
|
ldy #$04
|
|
|
|
tya
|
|
ora #$00
|
|
stal $e0c03e
|
|
lda #$d1
|
|
stal $e0c03d
|
|
tya
|
|
ora #$01
|
|
stal $e0c03e
|
|
lda #$d1
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$20
|
|
stal $e0c03e
|
|
lda #$00
|
|
stal $e0c03d
|
|
tya
|
|
ora #$21
|
|
stal $e0c03e
|
|
lda #0
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$40
|
|
stal $e0c03e
|
|
lda #$f0
|
|
stal $e0c03d
|
|
tya
|
|
ora #$41
|
|
stal $e0c03e
|
|
lda #$f0
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$80
|
|
stal $e0c03e
|
|
lda #$3e
|
|
stal $e0c03d
|
|
tya
|
|
ora #$81
|
|
stal $e0c03e
|
|
lda #$3f
|
|
stal $e0c03d
|
|
|
|
tya
|
|
ora #$c0
|
|
stal $e0c03e
|
|
lda #0
|
|
stal $e0c03d
|
|
tya
|
|
ora #$c1
|
|
stal $e0c03e
|
|
lda #0
|
|
stal $e0c03d
|
|
|
|
rep #$20
|
|
|
|
jsr shutMUSIC2
|
|
|
|
lda #1
|
|
sta zikPLAY
|
|
|
|
rts
|
|
|
|
*---
|
|
|
|
shutMUSIC sei
|
|
|
|
stz zikPLAY
|
|
|
|
PushWord #$000b
|
|
PushLong sndVECTOR
|
|
_SetVector
|
|
|
|
shutMUSIC1 sep #$20
|
|
|
|
ldal $e100ca
|
|
and #%0000_1111
|
|
stal $e0c03c
|
|
|
|
ldy #$1f
|
|
]lp tya
|
|
ora #$a0
|
|
stal $e0c03e
|
|
lda #$01
|
|
stal $e0c03d
|
|
dey
|
|
bpl ]lp
|
|
|
|
rep #$20
|
|
|
|
cli
|
|
rts
|
|
|
|
*---
|
|
|
|
shutMUSIC2 sei
|
|
phd
|
|
lda #$c000
|
|
tcd
|
|
jsr sndINTERRUPT2
|
|
rep #$20
|
|
pld
|
|
cli
|
|
rts
|
|
|
|
*---
|
|
|
|
sndINTERRUPT phb
|
|
phd
|
|
phk
|
|
plb
|
|
|
|
clc
|
|
xce
|
|
rep #$30
|
|
|
|
lda #$c000
|
|
tcd
|
|
|
|
lda zikPLAY
|
|
beq sndINTERRUPT1
|
|
|
|
mx %10
|
|
|
|
]lp jsr sndINTERRUPT2
|
|
|
|
ldal $e100ca
|
|
sta $3c
|
|
lda #$e0
|
|
sta $3e
|
|
lda $3d
|
|
lda $3d
|
|
bpl ]lp
|
|
|
|
sndINTERRUPT1 clc
|
|
xce
|
|
sep #$30
|
|
|
|
pld
|
|
plb
|
|
clc
|
|
rtl
|
|
|
|
*---
|
|
|
|
mx %10
|
|
|
|
sndINTERRUPT2 sep #$20
|
|
|
|
ldal $e100ca
|
|
ora #%0110_0000
|
|
sta $3c
|
|
|
|
stz $3e
|
|
lda #$3e
|
|
ora fgPAGE
|
|
eor #1
|
|
sta $3f
|
|
|
|
ldy zikMUSIC
|
|
lda zikMUSIC+2
|
|
pha
|
|
plb
|
|
jsr sndINTERRUPT10
|
|
phk
|
|
plb
|
|
|
|
rep #$20
|
|
|
|
lda zikMUSIC+1
|
|
clc
|
|
adc #$0001
|
|
sta zikMUSIC+1
|
|
|
|
dec zikPAGE
|
|
lda zikPAGE
|
|
bne sndINTERRUPT3
|
|
|
|
lda whichSND
|
|
beq sndINTERRUPT21
|
|
|
|
sep #$20
|
|
|
|
ldal $e100ca
|
|
sta $3c
|
|
|
|
lda #$a4
|
|
sta $3e
|
|
lda #%0000_0011
|
|
sta $3d
|
|
inc $3e
|
|
lda #%0001_0011
|
|
sta $3d
|
|
bra sndINTERRUPT5
|
|
|
|
rts
|
|
|
|
mx %00
|
|
|
|
sndINTERRUPT21 lda #$373
|
|
sta zikPAGE
|
|
lda ptrMUSIC
|
|
sta zikMUSIC
|
|
lda ptrMUSIC+2
|
|
sta zikMUSIC+2
|
|
|
|
sndINTERRUPT3 sep #$20
|
|
|
|
ldal $e100ca
|
|
sta $3c
|
|
|
|
ldy #$04
|
|
|
|
ldx fgPAGE
|
|
bne sndINTERRUPT4
|
|
|
|
tya
|
|
ora #$a0
|
|
sta $3e
|
|
lda #%0000_1110
|
|
sta $3d
|
|
inc $3e
|
|
lda #%0001_1111
|
|
sta $3d
|
|
bra sndINTERRUPT5
|
|
|
|
sndINTERRUPT4 tya
|
|
ora #$a0
|
|
sta $3e
|
|
lda #%0000_1111
|
|
sta $3d
|
|
inc $3e
|
|
lda #%0001_1110
|
|
sta $3d
|
|
|
|
sndINTERRUPT5 lda fgPAGE
|
|
eor #1
|
|
sta fgPAGE
|
|
|
|
rts
|
|
|
|
*---
|
|
|
|
sndINTERRUPT10 = *
|
|
|
|
]move = $00
|
|
lup 256
|
|
lda ]move,y
|
|
sta $3d
|
|
]move = ]move+1
|
|
--^
|
|
rts
|
|
|
|
mx %00
|
|
|
|
*--------------------------------------
|
|
|
|
asc 0d0d'PRIZM from ORCA/C is a great desktop environment'0d
|
|
asc 'for developing software'0d
|
|
asc 'You only have to reboot every 2 minutes!!'0d
|
|
asc 'Thank you Mike :-)'0d
|
|
|
|
*--------------------------------------
|
|
* Routines gs/os
|
|
|
|
loadFILE sta proOPEN+4
|
|
sty proREAD+4
|
|
stx proREAD+6
|
|
|
|
loadFILE1 jsl proDOS
|
|
dw $2010
|
|
adrl proOPEN
|
|
bcs loadERR
|
|
|
|
lda proOPEN+2
|
|
sta proGETEOF+2
|
|
sta proREAD+2
|
|
|
|
jsl proDOS
|
|
dw $2019
|
|
adrl proGETEOF
|
|
|
|
lda proGETEOF+4
|
|
sta proREAD+8
|
|
lda proGETEOF+6
|
|
sta proREAD+10
|
|
|
|
jsl proDOS
|
|
dw $2012
|
|
adrl proREAD
|
|
bcs loadERR
|
|
|
|
loadFILE2 jsl proDOS
|
|
dw $2014
|
|
adrl proCLOSE
|
|
clc
|
|
rts
|
|
|
|
loadERR jsr loadFILE2
|
|
|
|
loadPATCH nop
|
|
nop
|
|
|
|
PushWord #0
|
|
PushLong #proSTR1
|
|
PushLong #proSTR2
|
|
PushLong #proSTR3
|
|
PushLong #proSTR4
|
|
_TLTextMountVolume
|
|
pla
|
|
cmp #1
|
|
bne loadERR1
|
|
brl loadFILE1
|
|
loadERR1 jmp initOFF
|
|
|
|
*--------------------------------------
|
|
* Routines diverses
|
|
|
|
memERR bcs memERR1 ; Erreur de memoire
|
|
rts
|
|
memERR1 PushWord #0
|
|
PushLong #memSTR1
|
|
PushLong #memSTR2
|
|
PushLong #proSTR3
|
|
PushLong #proSTR4
|
|
_TLTextMountVolume
|
|
pla
|
|
jmp initOFF
|
|
|
|
*--------------------------
|
|
|
|
clickIT ldal $e0bfff
|
|
bpl clickIT1
|
|
stal $e0c010
|
|
xba
|
|
and #$ff
|
|
clc
|
|
rts
|
|
clickIT1 sec
|
|
rts
|
|
|
|
*------------------------------
|
|
|
|
nextVBL lda #75
|
|
pha
|
|
]lp ldal $e0c02e
|
|
and #$7f
|
|
cmp 1,s
|
|
blt ]lp
|
|
cmp #100
|
|
bge ]lp
|
|
pla
|
|
waitVBL ldal $e0c018
|
|
bpl waitVBL
|
|
rts
|
|
|
|
*-------------------------- Decompression
|
|
|
|
unPACK phd
|
|
tdc
|
|
clc
|
|
adc #$200
|
|
tcd
|
|
|
|
sty $04
|
|
stx $06
|
|
|
|
lda ptrUNPACK
|
|
sta $00
|
|
lda ptrUNPACK+2
|
|
sta $02
|
|
|
|
lda ptrUNPACK
|
|
clc
|
|
adc #$8000
|
|
sta $1e
|
|
clc
|
|
adc #$2000
|
|
sta $22
|
|
lda ptrUNPACK+2
|
|
sta $20
|
|
sta $24
|
|
|
|
ldy #$3fff
|
|
lda #0
|
|
]lp sta [$1e],y
|
|
dey
|
|
dey
|
|
bpl ]lp
|
|
|
|
lda #$0009
|
|
sta L0517+1
|
|
lda #$01FF
|
|
sta L051E+1
|
|
stz $1C
|
|
pea $FFFF
|
|
|
|
L042C jsr L04E8
|
|
cmp #$0101
|
|
bne L042D
|
|
brl L04A4
|
|
L042D cmp #$0100
|
|
beq L0491
|
|
sta $12
|
|
cmp $14
|
|
bcc L0443
|
|
lda $10
|
|
pei $0E
|
|
L0443 cmp #$0100
|
|
bcc L0455
|
|
asl
|
|
L0449 tay
|
|
lda [$22],Y
|
|
pha
|
|
lda [$1E],Y
|
|
cmp #$0200
|
|
bcs L0449
|
|
lsr
|
|
L0455 and #$00FF
|
|
sta $0E
|
|
sta $1A
|
|
ldy #$0000
|
|
L045F sta [$04],Y
|
|
iny
|
|
pla
|
|
bpl L045F
|
|
pha
|
|
tya
|
|
clc
|
|
adc $04
|
|
sta $04
|
|
lda $06
|
|
adc #0
|
|
sta $06
|
|
|
|
jsr L04D8
|
|
lda $12
|
|
sta $10
|
|
lda $14
|
|
cmp $18
|
|
bcc L048F
|
|
lda L0517+1
|
|
cmp #$000C
|
|
beq L048F
|
|
inc
|
|
sta L0517+1
|
|
asl
|
|
tax
|
|
lda packMASK-$12,X
|
|
sta L051E+1
|
|
asl $18
|
|
L048F bra L042C
|
|
L0491 jsr L04C1
|
|
jsr L04E8
|
|
sta $10
|
|
sta $1A
|
|
sta $0E
|
|
sta [$04]
|
|
|
|
lda $04
|
|
clc
|
|
adc #1
|
|
sta $04
|
|
lda $06
|
|
adc #0
|
|
sta $06
|
|
|
|
jmp L042C
|
|
|
|
L04A4 pla
|
|
pld
|
|
rts
|
|
|
|
L04C1 lda #$0009
|
|
sta L0517+1
|
|
lda #$01FF
|
|
sta L051E+1
|
|
lda #$0200
|
|
sta $18
|
|
lda #$0102
|
|
sta $14
|
|
rts
|
|
|
|
L04D8 lda $14
|
|
asl
|
|
tay
|
|
lda $1A
|
|
sta [$22],Y
|
|
lda $10
|
|
asl
|
|
sta [$1E],Y
|
|
inc $14
|
|
rts
|
|
|
|
L04E8 lda $1C
|
|
and #$0007
|
|
tax
|
|
lda $1C
|
|
lsr
|
|
lsr
|
|
lsr
|
|
cmp #$03FD
|
|
bcc L0502
|
|
clc
|
|
adc $00
|
|
sta $00
|
|
stx $1C
|
|
lda #$0000
|
|
L0502 tay
|
|
lda [$00],Y
|
|
sta $08
|
|
iny
|
|
iny
|
|
lda [$00],Y
|
|
txy
|
|
beq L0514
|
|
L050E lsr
|
|
L050F ror $08
|
|
dex
|
|
bne L050E
|
|
L0514 lda $1C
|
|
clc
|
|
L0517 adc #$FFFF ; $0009 on beginning
|
|
sta $1C
|
|
lda $08
|
|
L051E and #$FFFF ; $01FF on beginning
|
|
rts
|
|
|
|
*------------------------------
|
|
|
|
nowWAIT dec ; Attend A secondes
|
|
tax
|
|
lda #0
|
|
]lp clc
|
|
adc #60
|
|
cpx #0
|
|
beq nowWAIT1
|
|
dex
|
|
bra ]lp
|
|
nowWAIT1 pha
|
|
jsr waitVBL
|
|
jsr clickIT
|
|
bcc nowWAIT2
|
|
]lp ldal $e0c018
|
|
bmi ]lp
|
|
pla
|
|
dec
|
|
bne nowWAIT1
|
|
sec
|
|
rts
|
|
nowWAIT2 pla
|
|
clc
|
|
rts
|
|
|
|
*--------------------------------------
|
|
|
|
asc 0d' Tinies'27'last level code is MUADDIBU'0d
|
|
|
|
*--------------------------------------
|
|
* Routines graphiques
|
|
|
|
fadeIN sty Debut
|
|
stx Debut+2
|
|
|
|
ldy #$2000
|
|
sty Arrivee
|
|
ldx #$00e1
|
|
stx Arrivee+2
|
|
|
|
cmp #0
|
|
beq fadeIN1
|
|
|
|
ldy #$7dfe
|
|
]lp lda [Debut],y
|
|
sta [Arrivee],y
|
|
dey
|
|
dey
|
|
bpl ]lp
|
|
|
|
fadeIN1 lda Debut
|
|
clc
|
|
adc #$7e00
|
|
sta Debut
|
|
lda Debut+2
|
|
adc #0
|
|
sta Debut+2
|
|
|
|
lda Arrivee
|
|
clc
|
|
adc #$7e00
|
|
sta Arrivee
|
|
lda Arrivee+2
|
|
adc #0
|
|
sta Arrivee+2
|
|
|
|
ldx #$000f
|
|
fadeIN2 ldy #$01fe
|
|
fadeIN3 lda [Arrivee],y
|
|
and #$000f
|
|
sta temp
|
|
lda [Debut],y
|
|
and #$000f
|
|
cmp temp
|
|
beq fadeIN4
|
|
lda [Arrivee],y
|
|
clc
|
|
adc #$0001
|
|
sta [Arrivee],y
|
|
fadeIN4 lda [Arrivee],y
|
|
and #$00f0
|
|
sta temp
|
|
lda [Debut],y
|
|
and #$00f0
|
|
cmp temp
|
|
beq fadeIN5
|
|
lda [Arrivee],y
|
|
clc
|
|
adc #$0010
|
|
sta [Arrivee],y
|
|
fadeIN5 lda [Arrivee],y
|
|
and #$0f00
|
|
sta temp
|
|
lda [Debut],y
|
|
and #$0f00
|
|
cmp temp
|
|
beq fadeIN6
|
|
lda [Arrivee],y
|
|
clc
|
|
adc #$0100
|
|
sta [Arrivee],y
|
|
|
|
fadeIN6 dey
|
|
dey
|
|
bpl fadeIN3
|
|
jsr nextVBL
|
|
dex
|
|
bpl fadeIN2
|
|
rts
|
|
|
|
*---
|
|
|
|
fadeOUT lda #$9e00
|
|
sta Debut
|
|
lda #$00e1
|
|
sta Debut+2
|
|
|
|
ldx #$000f
|
|
fadeOUT1 ldy #$01fe
|
|
fadeOUT2 lda [Debut],y
|
|
and #$000f
|
|
beq fadeOUT3
|
|
lda [Debut],y
|
|
sec
|
|
sbc #$0001
|
|
sta [Debut],y
|
|
fadeOUT3 lda [Debut],y
|
|
and #$00f0
|
|
beq fadeOUT4
|
|
lda [Debut],y
|
|
sec
|
|
sbc #$0010
|
|
sta [Debut],y
|
|
fadeOUT4 lda [Debut],y
|
|
and #$0f00
|
|
beq fadeOUT5
|
|
lda [Debut],y
|
|
sec
|
|
sbc #$0100
|
|
sta [Debut],y
|
|
|
|
fadeOUT5 dey
|
|
dey
|
|
bpl fadeOUT2
|
|
jsr nextVBL
|
|
dex
|
|
bpl fadeOUT1
|
|
rts
|
|
|
|
*--------------------------------------
|
|
* All the data
|
|
|
|
hex 8d8d
|
|
asc "------------ BLOCKADE ------------",8d
|
|
asc " Version Apple //gs ",8d
|
|
asc " Antoine Vignau Olivier Zardini ",8d
|
|
asc " Brutal Deluxe ",8d
|
|
asc "------------ 1 1 1995 ------------",8d,8d
|
|
|
|
*--- Flags
|
|
|
|
save1 ds 1
|
|
save2 ds 1
|
|
save3 ds 1
|
|
save4 ds 1
|
|
save5 ds 2
|
|
|
|
*--- Textes
|
|
|
|
memSTR1 str 'Can'27't allocate memory'
|
|
memSTR2 str 'Press a key to quit.'
|
|
|
|
proSTR1 str 'Can'27't load file'
|
|
proSTR2 str 'Do what now ?'
|
|
proSTR3 str '[RET] Continue'
|
|
proSTR4 str '[ESC] Quit'
|
|
|
|
*--- Prodos
|
|
|
|
proQUIT dw 2
|
|
ds 4
|
|
ds 2
|
|
|
|
proOPEN dw 2
|
|
ds 2
|
|
adrl pLEVEL
|
|
|
|
proGETEOF dw 2
|
|
ds 2
|
|
ds 4
|
|
|
|
proREAD dw 4
|
|
ds 2
|
|
ds 4
|
|
ds 4
|
|
ds 4
|
|
|
|
proCLOSE dw 1
|
|
ds 2
|
|
|
|
*--- Nom des fichiers
|
|
|
|
pFONTE strl '1/Blockade.Data/Fontes'
|
|
pLEVEL strl '1/Blockade.Data/Levels'
|
|
pMUSIC strl '1/Blockade.Data/Musics'
|
|
pSPRIT strl '1/Blockade.Data/Sprite'
|
|
pSOUND strl '1/Blockade.Data/Sounds'
|
|
pHELP1 strl '1/Blockade.Data/Help.1'
|
|
pHELP2 strl '1/Blockade.Data/Help.2'
|
|
pHELP3 strl '1/Blockade.Data/Help.3'
|
|
pHELP4 strl '1/Blockade.Data/Help.4'
|
|
pHELP5 strl '1/Blockade.Data/Help.5'
|
|
pHELP6 strl '1/Blockade.Data/Help.6'
|
|
pHELP2VF strl '1/Blockade.Data/Help.2.V'
|
|
pHELP3VF strl '1/Blockade.Data/Help.3.V'
|
|
pHELP4VF strl '1/Blockade.Data/Help.4.V'
|
|
pHELP5VF strl '1/Blockade.Data/Help.5.V'
|
|
pHELP6VF strl '1/Blockade.Data/Help.6.V'
|
|
pANIM17 strl '1/Blockade.Data/Anim.17'
|
|
|
|
*--- Sons
|
|
|
|
fgSND ds 2
|
|
fgPLAY ds 2
|
|
fgFX ds 2
|
|
fgZIK ds 2
|
|
fgAAHH ds 2
|
|
copyPLAY ds 2
|
|
whichSND ds 2
|
|
|
|
sndADR dw $60,$00,$78,$d0,$26,$a0,$30,$28,$c0,$98,$40,$80,$e0
|
|
sndPAGE dw $2d,$36,$1b,$24,$00,$2d,$24,$1b,$24,$1b,$2d,$2d,$24
|
|
|
|
fgPAGE ds 2
|
|
zikPLAY ds 2
|
|
zikPAGE ds 2
|
|
zikMUSIC ds 4
|
|
|
|
sndVECTOR ds 4
|
|
|
|
*--- Memoire
|
|
|
|
myID ds 2
|
|
|
|
ptrUNPACK ds 4 ; 0
|
|
|
|
ptrSCR ds 4 ; 1
|
|
ptrSPRITE ds 4 ; 2
|
|
ptrHELP1 ds 4 ; 3
|
|
ptrHELP3 ds 4 ; 4
|
|
ptrHELP5 ds 4 ; 5
|
|
|
|
ptrLEVEL ds 4 ; 6
|
|
ds 4 ; 7
|
|
ptrHELP2 ds 4 ; 8
|
|
ptrHELP4 ds 4 ; 9
|
|
ptrHELP6 ds 4 ; 10
|
|
|
|
ptrMUSIC ds 4 ; 11
|
|
ds 4 ; 12
|
|
ds 4 ; 13
|
|
ds 4 ; 14
|
|
ds 4 ; 15
|
|
ds 4 ; 16
|
|
ds 4 ; 17
|
|
ds 4 ; 18
|
|
|
|
*--- Divers
|
|
|
|
fgLANG ds 2
|
|
fgBORDURE ds 2
|
|
|
|
*--- Conversion
|
|
|
|
scdVAR hex 00,01,02,03,04,05,06,07,08,09
|
|
hex 10,11,12,13,14,15,16,17,18,19
|
|
hex 20,21,22,23,24,25,26,27,28,29
|
|
hex 30,31,32,33,34,35,36,37,38,39
|
|
hex 40,41,42,43,44,45,46,47,48,49
|
|
hex 50,51,52,53,54,55,56,57,58,59
|
|
hex 60,61,62,63,64,65,66,67,68,69
|
|
hex 70,71,72,73,74,75,76,77,78,79
|
|
hex 80,81,82,83,84,85,86,87,88,89
|
|
|
|
*--- Decompression
|
|
|
|
packMASK dw $01ff
|
|
dw $03ff
|
|
dw $07ff
|
|
dw $0fff
|
|
dw $0000
|
|
|
|
temp ds 8
|
|
|
|
*--- Lignes
|
|
|
|
Ligne = *
|
|
|
|
]Ligne = $0
|
|
lup 200
|
|
dw ]Ligne
|
|
]Ligne = ]Ligne+160
|
|
--^
|
|
|
|
*--------------------------------------
|
|
|
|
asc 0d'Don'27't waste your time reading this'0d
|
|
asc 0d'Try to succeed all the levels'0d
|
|
|
|
*--------------------------------------
|
|
|
|
put Blockade.Anim
|
|
put Blockade.Mice
|
|
put Blockade.Play
|
|
put Blockade.Docu
|