antoine-source/thetinies/Tinies.s
Antoine Vignau 548200a90a Adding The Tines & TCK
Antoine's The Tinies & Oliver's TCK source code
2022-10-29 21:22:33 +02:00

4498 lines
90 KiB
ArmAsm

*--------------------------*
* *
* THE TINIES *
* *
* Brutal Deluxe *
* Atreid Concept *
* *
* Version: 1.1 du 2/2/95 *
*--------------------------*
lst off
rel
dsk The.Tinies.l
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Misc.Macs
use 4/Sound.Macs
use 4/Util.Macs
mx %00
xc
xc
*--- Parametres Page Zero
Debut = $00
Arrivee = $04
Second = $08
Third = $0c
scrMINU = $9818
scrSECO = $9824
scrLEVEL = $9844
scrLIFE = $9868
scrJOKER = $988c
proDOS = $e100a8
*--------------------------
* Initialisations d'entree
*--------------------------
phk
plb
*--- StartUp Tools
_TLStartUp
pha
_MMStartUp
pla
sta myID
_MTStartUp
ldal $e0c060
bpl noPATCH
lda #$eaea
sta PATCH
*--- Modifie bordure and co...
noPATCH pha
_GetIRQEnable
pla
and #$20
beq okIT1
jsr aptkERR
okIT1 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
stal $e0c035
rep #$20
*--- Ah! GsBug
phd
ldal $e1004b
pha
ldal $e10049
sec
sbc #$82
pha
tsc
tcd
ldy #0
]lp lda [$01],y
cmp #$78f0
beq bugFOUND1
iny
iny
iny
cpy #12
bne ]lp
pla
pla
pld
brl bugFOUND4
bugFOUND1 sta bugA
stx bugY
lda #$7880
sta [$01],y
lda #1
sta bugFG
bugFOUND2 pla
pla
pld
PushWord #0
PushWord #0
PushWord #0
PushWord #0
PushWord #0
PushWord #0
PushWord #0
PushWord #$fe1f
_FWEntry
pla
cmp #1
beq bugFOUND3
lda #$cf28
sta theDESK2+1
bugFOUND3 pla
pla
pla
sei
PushLong #0
PushWord #$12
_GetVector
PullLong saveDESK
PushWord #$12
PushLong #theDESK
_SetVector
cli
*--- Libere et compacte la memoire
bugFOUND4 PushLong #0
PushLong #$8fffff
PushWord myID
PushWord #%11000000_00000000
PushLong #0
_NewHandle
_DisposeHandle
_CompactMem
*--- Verifie que l'on ait 448ko libres
PushLong #0 ; 448ko au total
_FreeMem
pla
pla
cmp #7 ; 7*64ko
bcs okIT2
brl memERR3
okIT2 PushLong #0 ; Demande Ecran Shadowing
PushLong #$8000
PushWord myID
PushWord #%11000000_00000011
PushLong #$012000
_NewHandle
pla
pla
bcc okIT3
brl memERR3
okIT3 PushLong #0
PushLong #$10000
PushWord myID
PushWord #%11000000_00011100
PushLong #0
_NewHandle
ldx temp
phd
tsc
tcd
ldy #0
lda [3],y
sta ptrECRAN,x
ldy #2
lda [3],y
sta ptrECRAN+2,x
pld
pla
pla
jsr memERR
inx
inx
inx
inx
stx temp
cpx #4*6
bne okIT3
*---
PushLong #0
PushLong #$10000
PushWord myID
PushWord #%11000000_00011100
PushLong #0
_NewHandle
phd
tsc
tcd
ldy #0
lda [3],y
sta ptrBUFFER
ldy #2
lda [3],y
sta ptrBUFFER+2
pld
pla
pla
*---
ldx #$7ffe
lda #0
]lp stal $012000,x
dex
dex
bpl ]lp
sep #$20
lda #$c1
stal $e0c029
rep #$20
jmp okIT4
*-------------------------- Message
hex 0d0d
asc 'Hello boy, are you looking for something ?'
hex 0d0d
*--------------------------
* Fin du programme
*--------------------------
initOFF ldx #$7ffe
lda #0
]lp stal $012000,x
dex
dex
bpl ]lp
initOFF1 sep #$30
lda save4
stal $e0c035
lda save3
stal $e0c034
lda save2
stal $e0c029
lda save1
stal $e0c022
rep #$30
*--- Ah GsBug
lda bugFG
beq initOFF2
sei
phd
ldal $e1004b
pha
ldal $e10049
sec
sbc #$82
pha
tsc
tcd
ldy bugY
lda bugA
sta [$01],y
pla
pla
pld
PushWord #$12
PushLong saveDESK
_SetVector
cli
*---
initOFF2 lda noSOUND
cmp #2
beq initOFF3
_SoundShutDown
initOFF3 _MTShutDown
PushWord myID
_DisposeAll
PushWord myID
_MMShutDown
_TLShutDown
jsl proDOS
dw $2029
adrl proQUIT
*--------------------------
* Met les pointers
*--------------------------
okIT4 lda ptrECRAN
clc
adc #$8000
sta ptrNIV
lda ptrECRAN+2
sta ptrNIV+2
lda ptrBOUGE
clc
adc #$8000
sta ptrFONTE
lda ptrBOUGE+2
sta ptrFONTE+2
lda ptrGAG2
clc
adc #$8000
sta ptrGAG3
lda ptrGAG2+2
sta ptrGAG3+2
lda ptrTINY1
clc
adc #$8000
sta ptrTINY2
lda ptrTINY1+2
sta ptrTINY2+2
lda ptrUNPACK
clc
adc #$8000
sta ptrDATAS
lda ptrUNPACK+2
sta ptrDATAS+2
*--------------------------
* Presentation
*--------------------------
lda #pKALISTO ; Charge les fichiers
ldx ptrUNPACK+1
jsr loadFILE
bcc okIT5
brl initOFF
okIT5 lda ptrECRAN+1
jsr unPACK
lda #pTINIES
ldx ptrUNPACK+1
jsr loadFILE
bcc okIT6
brl initOFF
okIT6 lda ptrBOUGE+1
jsr unPACK
lda ptrECRAN+1
jsr do3200
lda ptrBOUGE+1
jsr do3200
*--------------------------
* Charges les donnees
*--------------------------
PushWord #0
_SoundToolStatus
pla
bne okIT7
stz noSOUND
tdc
clc
adc #$100
pha
_SoundStartUp
lda #pSOUND ; Charge les sons
ldx ptrZIK+1
jsr loadFILE
bcc okIT7
lda #1
sta noSOUND
*---
okIT7 lda #pFONTE
ldx ptrUNPACK+1
jsr loadFILE
bcc okIT8
brl initOFF
okIT8 lda ptrFONTE+1
jsr unPACK
lda #pGAG2
ldx ptrUNPACK+1
jsr loadFILE
bcc okIT9
brl initOFF
okIT9 lda ptrGAG2+1
jsr unPACK
lda #pGAG3
ldx ptrUNPACK+1
jsr loadFILE
bcc okIT10
brl initOFF
okIT10 lda ptrGAG3+1
jsr unPACK
lda #pTINY1
ldx ptrUNPACK+1
jsr loadFILE
bcc okIT11
brl initOFF
okIT11 lda ptrTINY1+1
jsr unPACK
lda #pTINY2
ldx ptrUNPACK+1
jsr loadFILE
bcc okIT12
brl initOFF
okIT12 lda ptrTINY2+1
jsr unPACK
*--------------------------
* Les preferences
*--------------------------
preferNIV clc
xce
rep #$30
lda #'00'
sta pINTRO+21
sta pNIV+19
put Tinies.Main2
*-------------------------- Message
hex 0d0d
asc 'Perhaps a code for a level ?',0d
asc 'Ok! just try CUBACUBA or LANDPAPY...'
hex 0d0d
*--------------------------
* Le programme
*--------------------------
mx %00
entryGAME lda okDATAS3
beq entryGAME1
lda #pDATAS2
bra entryGAME2
entryGAME1 lda #pDATAS
entryGAME2 ldx ptrDATAS+1
jsr loadFILE
bcc entryGAME3
brl initOFF
entryGAME3 sei
PushLong #intTIME
_SetHeartBeat
PushLong #intANIM
_SetHeartBeat
cli
stz noBUG
lda ptrECRAN+1
sta intANIM17+2
sta hideCURS1+2
sta hideCURS3+2
sta hideCURS4+2
sta esprit8+2
clc
adc #$000e
sta hideCURS2+2
lda #pBOUGE ; Indispensable
ldx ptrUNPACK+1
jsr loadFILE
bcc entryGAME4
brl initOFF
entryGAME4 lda ptrBOUGE+1
jsr unPACK
bra playGAME
*--- On a fini la partie
endGAME sei
PushLong #intTIME
_DelHeartBeat
PushLong #intANIM
_DelHeartBeat
cli
jmp preferNIV
*--------------------------
* Joue le niveau
playGAME jsr allLVL ; calcule le level
jsr allNIV ; charge en consequence
bcc playGAME1
jmp endGAME
playGAME1 stz fgLOST ; on n'a pas perdu
stz fgPRINT ; et on doit afficher
stz intANIM4+1
lda #-1
sta fgCURS
stz arrTINYcur
stz doMAIN2+1
jsr decodeALL ; decode le niveau
bcs playNEXT1
lda ptrECRAN+1 ; fait un fade sur le niveau
ldy #0
jsr fadeIN
jsr affALL ; affiche la barre de menu
lda #1
sta noBUG
stz curX
stz curY
stal $e0c010
jmp gereCURS
*--- On a gagne
playNEXT lda #2
jsr nowWAIT
jsr fadeOUT
stz noBUG
playNEXT1 inc level
lda level
cmp #101
beq playNEXT2
brl playGAME
playNEXT2 jmp winGAME
*--- On a perdu
lostTIME lda ptrFONTE
clc
adc #$4b00
ldy #$0198
jsr putBAR
lostTIME1 lda #2
jsr nowWAIT
jsr fadeOUT
stz noBUG
ldal $e0c060
bmi lostTIME2
lda life
beq lostTIME2
dec life
brl playGAME
lostTIME2 jsr clrECRAN
stz life
stz joker
lda #strGAME
ldy #$2bc8
ldx ptrECRAN+2
jsr print16
lda #strCOD
ldy #$44d0
ldx ptrECRAN+2
jsr print16
lda ptrECRAN+1
ldy #0
jsr fadeIN
]lp lda #5
jsr nowWAIT
bcs ]lp
jsr fadeOUT
lda #pPERDU ; On a perdu en 3200
ldx ptrUNPACK+1
jsr loadFILE
bcs lostTIME3
lda ptrECRAN+1
jsr unPACK
lda ptrECRAN+1
jsr do3200
lostTIME3 jmp endGAME
*-------------------------- Message
hex 0d0d
asc 'So you are still here ?',0d
asc 'Try another one: PURITIES'
hex 0d0d
*--- 101 niveaux faits
winGAME lda #2
jsr nowWAIT
jsr fadeOUT
stz noBUG
jsr clrECRAN
lda #strWIN
ldy #$2bc8
ldx ptrECRAN+2
jsr print16
lda ptrECRAN+1
ldy #0
jsr fadeIN
]lp lda #5
jsr nowWAIT
bcs ]lp
jsr fadeOUT
lda #pGAGNE
ldx ptrUNPACK+1
jsr loadFILE
bcs winGAME1
lda ptrECRAN+1
jsr unPACK
lda ptrECRAN+1
jsr do3200
winGAME1 stz level
brl playGAME
*--------------------------
* Gestion du curseur
*--------------------------
gereCURS lda fgLOST ; Tant que l'on n'a pas perdu
beq gereCURS1
jmp lostTIME
gereCURS1 ldx curX
ldy curY
jsr showCURS ; Show curseur
jsr gereKEY ; gere les touches
bcs gereCURS ; aucun deplacement
cmp #-1 ; 'esc' hit
bne gereCURS2
jmp lostTIME1
gereCURS2 pha ; Efface le curseur
ldx curX
ldy curY
jsr hideCURS
pla
bne gereCURS3
ldx curX
ldy curY
jsr calcWHAT
lda plateau3,x
cmp #4
bcs gereCURS
stz fgCURS
brl doTINIES ; On gere les Tinies
gereCURS3 cmp #1 ; Left
bne gereCURS5
lda curX
beq gereCURS4
dec
sta curX
gereCURS4 brl gereCURS
gereCURS5 cmp #2 ; Right
bne gereCURS7
lda curX
cmp #12
beq gereCURS6
inc
sta curX
gereCURS6 brl gereCURS
gereCURS7 cmp #3 ; Up
bne gereCURS9
lda curY
beq gereCURS8
dec
sta curY
gereCURS8 brl gereCURS
gereCURS9 cmp #4 ; Down
bne gereCURS10
lda curY
cmp #7
beq gereCURS10
inc
sta curY
gereCURS10 brl gereCURS
*-------------------------- Message
hex 0d0d
asc 'Sorry but the previous code was not a real one',0d
asc 'It is dangerous to believe us ! :-)'
hex 0d0d
*--------------------------
* Gere les Tinies
*--------------------------
doTINIES sta espCOL ; couleur du Tiny
ldx curX
ldy curY
jsr calcWHAT
stx curXY
lda curX
sta oldX
lda curY
sta oldY
lda curXY
sta oldXY
ldx anNUMBER ; Met le Tiny inactif
]lp lda anOBJET,x
cmp espCOL
bne doTINIES1
lda anCOORD,x
cmp curXY
beq doTINIES2
doTINIES1 dex
dex
bpl ]lp
ldx anNUMBER
doTINIES2 stx myNUMBER ; Sauve X pour plus tard
stz anANIM,x
stz anACTIF,x
stz compteur2 ; Affiche le Tiny qui attend de bouger
lda #anBougDr
ldx curXY
ldy ptrBOUGE+1
jsr esprit
*---
doMAIN lda fgLOST ; Tant que l'on n'a pas perdu
beq doMAIN1
jmp lostTIME
doMAIN1 lda arrTINYcur ; etait-ce un tiny en cours?
beq doMAIN2
ldx arrNUMBER
lda oldXY
sta anCOORD,x
lda #-1
sta anACTIF,x
lda arrCOL
sta espCOL
lda arrXY
sta curXY
sta oldXY
lda arrX
sta curX
sta oldX
lda arrY
sta curY
sta oldY
stz arrTINYcur
doMAIN2 ldx #0 ; est-ce que l'on a un tiny sur fleche?
lda plateau4,x
inx
inx
stx doMAIN2+1
cpx #208
bne doMAIN3
stz doMAIN2+1
brl doMAIN6
doMAIN3 cmp #-1
beq doMAIN2
ldy espCOL
sty arrCOL
sta espCOL
dex
dex
lda #-1
sta plateau4,x
lda curXY
sta arrXY
lda curX
sta arrX
lda curY
sta arrY
stx curXY
lda tblXY,x
pha
and #$ff00
xba
sta curX
pla
and #$00ff
sta curY
lda #-1
sta arrTINYcur
txy
ldx anNUMBER ; Met le Tiny inactif
]lp lda anOBJET,x
cmp espCOL
bne doMAIN4
lda anCOORD,x
cmp curXY
beq doMAIN5
doMAIN4 dex
dex
bpl ]lp
ldx anNUMBER
doMAIN5 stx arrNUMBER ; Sauve X pour plus tard
sei
stz anACTIF,x
cli
lda plateau2,y
sec
sbc #24
asl
tax
lda spyDIR2,x
bra doMAIN9
*---
doMAIN6 jsr gereKEY
bcc doMAIN7
brl doMAIN
doMAIN7 cmp #-1
bne doMAIN8
jmp lostTIME1
doMAIN8 cmp #0 ; Deselectionne
bne doMAIN9
lda #-1
sta fgCURS
jmp itsEND
doMAIN9 sta tinyDIR
stz tinyMOVE ; a pas bouge
stz tinyROULE ; roule pas
doMAIN10 ldal $e0bfff
bpl doMAIN12
xba
and #$ff
cmp #$9b
bne doMAIN12
doMAIN11 brl lostTIME1
doMAIN12 lda fgLOST
bne doMAIN11
lda curX
sta oldX
lda curY
sta oldY
lda curXY
sta oldXY
ldx curXY ; Sommes-nous sur une fleche ?
lda plateau2,x ; empeche le joueur de partir
cmp #24 ; de la fleche
bcc doMAIN13
cmp #28
bcs doMAIN13
sec
sbc #24
asl
tax
lda spyDIR2,x
sta tinyDIR
doMAIN13 jsr calcDIR ; regarde la nouvelle position
cmp #-1
bne doMOVE
jsr doBOOM ; boom...
brl doMAIN
*-------------------------- Message
hex 0d0d
asc 'Don'27't waste your time reading this! '
asc 'Go away and play'
hex 0d0d
*--------------------------
doMOVE ldx curX ; Regarde ce qu'il y a sur la nouvelle
ldy curY ; position
jsr calcWHAT
stx curXY
lda plateau1,x ; is there a sol
cmp #5
bcc doMOVE2
doMOVE1 lda oldX
sta curX
lda oldY
sta curY
lda oldXY
sta curXY
jsr doBOOM
brl doMAIN
*---
doMOVE2 lda plateau3,x ; is there a tiny
cmp #-1
beq doMOVE3
ldx oldXY ; Is Tiny on Arrow ?
lda plateau2,x
cmp #24
bcc doMOVE1
cmp #28
bcs doMOVE1
lda espCOL
sta plateau4,x
lda oldX
sta curX
lda oldY
sta curY
lda oldXY
sta curXY
brl doMAIN
doMOVE3 lda plateau2,x ; animation
sta tinyDEC
cmp #-1
bne move1
brl moveSHOW
*---
move1 cmp #4 ; tiny
bcs move2
jsr doBOOM
brl doMAIN
move2 cmp #8 ; sleeper
bcs move3
jsr doSLEEP
brl moveSHOW
move3 cmp #12 ; teleporteur
bcs move5
jsr doTELE
bcc move4
brl moveSHOW2
move4 brl moveSHOW3
move5 cmp #16 ; bombe
bcs move6
jsr doBOMB
brl moveSHOW2
move6 cmp #20 ; porte
bcs move8
jsr doDOOR
bcc move7
brl doMOVE1
move7 brl moveSHOW
move8 cmp #24 ; interrupteur
bcs move9
jsr doINTE
brl moveSHOW
move9 cmp #28 ; fleche
bcs move10
jsr doFLEC
brl moveSHOW2
move10 cmp #28 ; bumper
bne move11
jsr doBUMP
brl moveSHOW
move11 cmp #29 ; bonus temps
bne move12
jsr doTIME
brl moveSHOW
move12 cmp #30 ; life
bne move13
jsr doLIFE
brl moveSHOW
move13 cmp #31 ; joker
bne move14
jsr doJOKE
brl moveSHOW
move14 cmp #32 ; animation fixe
bne moveSHOW
jsr doBOOM
brl doMAIN
*---
moveSHOW jsr doSHOW
lda tinyROULE
bne moveSHOW1
ldx #07
jsr doSND
bra moveSHOW2
moveSHOW1 ldx #10
jsr doSND
moveSHOW2 ldx oldXY
lda #-1
sta plateau3,x
moveSHOW3 ldx curXY
lda espCOL
sta plateau3,x
lda #1
sta tinyMOVE
brl doMAIN10
*-------------------------- Message 1
hex 0d0d
asc 'Good morning Vietnam !!'
hex 0d0d
*--------------------------
* Routines Tinies
*--------------------------
itsEND ldx anNUMBER ; Regarde si sous le Tiny
]lp lda anCOORD,x ; on n'aurait pas un sleeper
cmp oldXY
bne itsEND1
lda anOBJET,x
sec
sbc espCOL
cmp #4
beq itsEND3
itsEND1 dex
dex
bpl ]lp
itsEND2 ldx myNUMBER ; No sleeper under
sei
lda #-1
sta anACTIF,x
cli
lda oldXY
sta anCOORD,x
jmp gereCURS
itsEND3 lda anACTIF2,x ; Sleeper was active ?
beq itsEND2
ldx myNUMBER ; Tiny now sleeps
sei
lda #$2222
sta anACTIF,x
cli
lda oldXY
sta anCOORD,x
ldx anNUMBER
dex ; Regarde, s'ils dorment tous
dex
]lp lda anOBJET,x
cmp #4
bcs itsEND4
lda anACTIF,x
cmp #$2222
bne itsEND5
itsEND4 dex
dex
bpl ]lp
jmp playNEXT
itsEND5 jmp gereCURS
*------------ Affiche le Tiny a l'ecran
doSHOW stz compteur2
lda tinyDIR
dec
asl
clc
adc tinyROULE
tax
lda chseBOUG,x
ldy ptrECRAN+1
jsr moveIT
ldx anNUMBER ; Regarde si sous le Tiny (pos. precedente)
]lp lda anCOORD,x ; on n'aurait pas un sleeper
cmp oldXY
bne doSHOW1
lda anOBJET,x
cmp #4
bcc doSHOW1
cmp #8
bcc doSHOW2
doSHOW1 dex
dex
bpl ]lp
rts
doSHOW2 sei
lda anACTIF2,x
sta anACTIF,x
stz anANIM,x
cli
rts
*------------ Boooommmmm
doBOOM lda tinyROULE
bne doBOOM1
lda tinyMOVE
beq doBOOM1
rts
doBOOM1 ldx #12
jsr doSND
lda #99
sta compteur2
lda tinyDIR
dec
asl
tax
lda chseBOOM,x
ldx curXY
ldy ptrTINY1+1
jsr esprit
rts
*------------
doSLEEP ldx anNUMBER ; Regarde si sous le Tiny
]lp lda anCOORD,x ; on n'aurait pas un sleeper
cmp curXY
bne doSLEEP1
lda anOBJET,x
cmp #4
bcc doSLEEP1
cmp #8
bcc doSLEEP2
doSLEEP1 dex
dex
bpl ]lp
rts
doSLEEP2 sei
lda anACTIF,x
sta anACTIF2,x
stz anACTIF,x
stz anANIM,x
cli
rts
*------------ Les teleporteurs
doTELE jsr doSHOW
lda tinyDEC
sec
sbc espCOL
cmp #8
beq doTELE1
ldx #11
jsr doSND
sec
rts
doTELE1 ldx oldXY
lda #-1
sta plateau3,x
ldx #206
]lp lda plateau2,x
cmp tinyDEC
bne doTELE2
cpx curXY
bne doTELE3
doTELE2 dex
dex
bpl ]lp
rts
doTELE3 lda plateau3,x
cmp #-1
beq doTELE4
rts
doTELE4 lda curXY
sta oldXY
stx curXY
ldx #01
jsr doSND
lda #99
sta compteur2
lda tinyDIR
dec
asl
tax
lda chseTELE,x
ldx oldXY
ldy ptrGAG2+1
jsr esprit
ldx curXY
stx oldXY
lda tblXY,x
pha
and #$ff00
xba
sta curX
sta oldX
pla
and #$00ff
sta curY
sta oldY
ldx #05
jsr doSND
lda tinyDIR
dec
asl
tax
lda chseTELE2,x
ldx curXY
ldy ptrGAG2+1
jsr esprit
jsr doSHOW
lda #8
sta tinyROULE
clc
rts
*------------ Les bombes
doBOMB jsr doSHOW
lda tinyDEC
sec
sbc espCOL
cmp #12
beq doBOMB1
ldx #11
jsr doSND
rts
doBOMB1 ldx #04
jsr doSND
lda #99
sta compteur2
lda #anEXPL1
ldx curXY
ldy ptrTINY1+1
jsr esprit
ldx curXY
lda plateau1,x
jsr sprite
lda #anEXPL2
ldx curXY
ldy ptrTINY1+1
jsr esprit
lda joker
bne doBOMB2
jmp lostTIME1
doBOMB2 dec joker
jsr affALL
ldx #08
jsr doSND
lda #anJOKER
ldx curXY
ldy ptrGAG3+1
jsr esprit
ldx #02
jsr doSND
stz tinyROULE
ldx curXY
lda #-1
sta plateau2,x
rts
*------------ Les portes
doDOOR lda tinyDEC
sec
sbc espCOL
cmp #16
beq doDOOR1
sec
rts
doDOOR1 ldx #13
jsr doSND
lda #99
sta compteur2
lda #anDOOR
ldx curXY
ldy ptrGAG3+1
jsr esprit
lda espCOL
asl
tax
lda anOPEN,x
clc
adc ptrGAG3
ldx curXY
jsr sprite10
ldx curXY
lda #-1
sta plateau2,x
clc
rts
*------------ Les interrupteurs
doINTE lda tinyDEC
sec
sbc espCOL
cmp #20
beq doINTE1
rts
doINTE1 ldx #03
jsr doSND
ldx anNUMBER
]lp lda anOBJET,x
sec
sbc espCOL
cmp #4
bne doINTE2
sei
lda #-1
sta anACTIF,x
sta anACTIF2,x
stz anANIM,x
cli
doINTE2 dex
dex
bpl ]lp
lda espCOL
asl
tax
lda anINTE,x
clc
adc ptrGAG3
ldx curXY
jsr sprite10
rts
*------------ Les fleches
doFLEC jsr doSHOW
doFLEC1 ldx curXY
lda plateau2,x
sec
sbc #24
asl
tax
lda spyDIR2,x
sta tinyDIR
ldx #06
jsr doSND
rts
*------------ Bumper
doBUMP ldx #09
jsr doSND
lda #99
sta compteur2
stz esprit4+1
lda tinyDIR
dec
asl
tax
lda chseBUMP,x
ldx curXY
ldy ptrTINY1+1
jsr esprit
lda tinyDIR
dec
asl
tax
lda chseBOOM,x
ldx oldXY
ldy ptrTINY1+1
jsr esprit
lda #10
sta esprit4+1
lda #1
sta tinyMOVE
lda #8
sta tinyROULE
lda tinyDIR ; change la direction du Tiny
dec
asl
tax
lda spyDIR,x
sta tinyDIR
lda oldX
sta curX
lda oldY
sta curY
lda oldXY
sta curXY
rts
*------------ Time is life for the joker
doTIME sei
inc minutes
cli
jsr doCLR
bra doALL
doLIFE sei
inc life
cli
jsr doCLR
bra doALL
doJOKE sei
inc joker
cli
jsr doCLR
doALL ldx curXY
lda #-1
sta plateau2,x
jsr affALL
rts
*------------ Clear a case
doCLR ldx #03
jsr doSND
ldx curXY
lda plateau1,x
jsr sprite
rts
*--------------------------
* Routines programme
*--------------------------
calcDIR lda tinyDIR ; left
cmp #1
bne calcDIR2
lda curX
bne calcDIR1
lda #-1
rts
calcDIR1 dec curX
rts
calcDIR2 cmp #2 ; right
bne calcDIR4
lda curX
cmp #12
bne calcDIR3
lda #-1
rts
calcDIR3 inc curX
rts
calcDIR4 cmp #3 ; up
bne calcDIR6
lda curY
bne calcDIR5
lda #-1
rts
calcDIR5 dec curY
rts
calcDIR6 lda curY ; down
cmp #7
bne calcDIR7
lda #-1
rts
calcDIR7 inc curY
rts
*---
calcWHAT txa ; calcule adresse plateau
asl
asl
asl
asl
pha
tya
asl
clc
adc 1,s
tax
pla
rts
*--------------------------
gereKEY ldal $e0bfff ; lit le clavier
bpl gereKEY7
stal $e0c010
xba
and #$00ff
cmp #$009b
bne gereKEY1
lda #-1
clc
rts
gereKEY1 cmp #$0089 ; Tab for save ??
bne gereKEY2
jsr saveFILE
sec
rts
gereKEY2 cmp keyPREF ; Select ??
bne gereKEY3
lda #0
clc
rts
gereKEY3 cmp keyPREF+2 ; left ??
bne gereKEY4
lda #1
clc
rts
gereKEY4 cmp keyPREF+4 ; right ??
bne gereKEY5
lda #2
clc
rts
gereKEY5 cmp keyPREF+6 ; up ??
bne gereKEY6
lda #3
clc
rts
gereKEY6 cmp keyPREF+8 ; down ??
bne gereKEY7
lda #4
clc
rts
gereKEY7 sec
rts
*-------------------------- Message
hex 0d0d
asc 'Only lamers use block editors'
hex 0d0d
*--------------------------
* Calcul des donnees
*--------------------------
putTIME ldx minutes
lda scdVAR,x
and #$00ff
pha
and #$00f0
asl
asl
asl
asl
ora #$b000
sta strMINU
pla
and #$000f
ora #$00b0
ora strMINU
xba
sta strMINU
ldx secondes
lda scdVAR,x
and #$00ff
pha
and #$00f0
asl
asl
asl
asl
ora #$b000
sta strSECO
pla
and #$000f
ora #$00b0
ora strSECO
xba
sta strSECO
rts
*---
putLEVEL ldx level
cpx #100
bne putLEVEL1
lda #"()"
bne putLEVEL2
putLEVEL1 lda scdVAR,x
and #$00ff
pha
and #$00f0
asl
asl
asl
asl
ora #$b000
sta strLEVEL
pla
and #$000f
ora #$00b0
ora strLEVEL
xba
putLEVEL2 sta strLEVEL
rts
*---
putLIFE ldx life
cpx #99
bcc putLIFE1
ldx #99
putLIFE1 lda scdVAR,x
and #$00ff
pha
and #$00f0
asl
asl
asl
asl
ora #$b000
sta strLIFE
pla
and #$000f
ora #$00b0
ora strLIFE
xba
sta strLIFE
rts
*---
putJOKER ldx joker
cpx #99
bcc putJOKER1
ldx #99
putJOKER1 lda scdVAR,x
and #$00ff
pha
and #$00f0
asl
asl
asl
asl
ora #$b000
sta strJOKER
pla
and #$000f
ora #$00b0
ora strJOKER
xba
sta strJOKER
rts
*--------------------------
* Routines barre de menu
*--------------------------
affALL jsr putTIME
jsr putLEVEL
jsr putLIFE
jsr putJOKER
lda ptrFONTE
clc
adc #$18
tay
ldx ptrFONTE+2
lda #strMINU
jsr printIT
lda ptrFONTE
clc
adc #$24
tay
ldx ptrFONTE+2
lda #strSECO
jsr printIT
lda ptrFONTE
clc
adc #$44
tay
ldx ptrFONTE+2
lda #strLEVEL
jsr printIT
lda ptrFONTE
clc
adc #$68
tay
ldx ptrFONTE+2
lda #strLIFE
jsr printIT
lda ptrFONTE
clc
adc #$8c
tay
ldx ptrFONTE+2
lda #strJOKER
jsr printIT
lda minutes
bne affALL1
lda fgPRINT
bne affALL2
affALL1 stz fgPRINT
lda ptrFONTE ; Affiche depuis fonte
ldy #$0198
jsr putBAR
affALL2 rts
*---
putBAR ldx ptrFONTE+1
stx putBAR1+2
sta putBAR1+1
sty putBAR2+2
ldx #$04f4
putBAR1 ldal $012000,x
putBAR2 stal $012000,x
dex
dex
bpl putBAR1
rts
*---
saveBAR lda #$9800
sta Debut
lda #$0001
sta Debut+2
lda ptrFONTE
clc
adc #$7800
sta Arrivee
lda ptrFONTE+2
sta Arrivee+2
ldy #$4f4
]lp lda [Debut],y
sta [Arrivee],y
dey
dey
bpl ]lp
rts
*--------------------------
* Routines interruption
*--------------------------
intTIME ds 4
dw 60
dw $a55a
phb
phk
plb
clc
xce
rep #$30
lda #60
sta intTIME+4
lda noBUG
beq intTIME1
lda fgLOST
beq intTIME2
intTIME1 brl intTIME11
intTIME2 lda minutes
bne intTIME6
lda fgPRINT
bne intTIME3
lda secondes
cmp #30
bne intTIME4
lda #1
sta fgPRINT
jsr saveBAR
lda ptrFONTE
clc
adc #$500
ldy #$0198
jsr putBAR
bra intTIME6
intTIME3 lda secondes
cmp #28
bcc intTIME5
intTIME4 cmp #28
bne intTIME6
intTIME5 stz fgPRINT
jsr affALL
intTIME6 lda secondes
beq intTIME7
dec
sta secondes
bra intTIME9
intTIME7 lda #59
sta secondes
lda minutes
beq intTIME8
dec
sta minutes
bra intTIME9
intTIME8 lda #1
sta fgPRINT
sta fgLOST
stz secondes
stz minutes
intTIME9 jsr putTIME
lda fgPRINT ; affiche le temps sur fonte
bne intTIME10
lda fgLOST
bne intTIME11
lda #strMINU
ldy #scrMINU
ldx #$0001
jsr printIT
lda #strSECO
ldy #scrSECO
ldx #$0001
jsr printIT
bra intTIME11
intTIME10 lda ptrFONTE
clc
adc #$18
tay
lda #strMINU
ldx ptrFONTE+2
jsr printIT
lda ptrFONTE
clc
adc #$24
tay
lda #strSECO
ldx ptrFONTE+2
jsr printIT
intTIME11 sep #$30
plb
clc
rtl
mx %00
*--- Interruption pour Tinies
intANIM ds 4
dw 1
dw $a55a
phb
phk
plb
clc
xce
rep #$30
lda #1
sta intANIM+4
lda noBUG
bne intANIM2
brl intANIM21
intANIM2 lda #0 ; temporisation
beq intANIM3
dec intANIM2+1
brl intANIM21
intANIM3 lda fgTEMP
sta intANIM2+1
intANIM4 lda #0 ; Numero de l'objet a animer
cmp anNUMBER
bne intANIM5
stz intANIM4+1
bra intANIM4
intANIM5 tax
inc
inc
sta intANIM4+1
stz intANIM8+1
lda anACTIF,x ; Regarde s'il est actif
cmp #-1
beq intANIM7
cmp #$2222
beq intANIM6
brl intANIM21
intANIM6 lda #$8000 ; sleep
sta intANIM8+1
intANIM7 stz intANIM16+1
lda anOBJET,x ; Recupere l'adresse source
intANIM8 ldy #$8000
bpl intANIM9
clc
adc #36
intANIM9 asl ; de l'image
tay
lda anCORRES,y
asl
asl
tay
lda ptrECRAN+1,y
sta intANIM16+2
lda anCOORD,x ; On a la coordonnee ecran
tay
lda scrCASE,y ; Adresse ecran source
clc
adc #$0002
sta intANIM17+1
clc
adc #$2000 ; et ecran destination
sta intANIM19+1
intANIM10 lda anOBJET,x ; Numero de l'objet
ldy intANIM8+1
bpl intANIM11
clc
adc #36
intANIM11 asl
tay
lda anDRAW,y ; table de correspondance
sta intANIM18+1
lda anTYPE,y ; Recherche la table des adresses
clc
adc anANIM,x
tay
hex b90000 ; en A, adresse ecran source
cmp #-1
bne intANIM12
stz anANIM,x
brl intANIM10
intANIM12 clc
adc intANIM16+1
sta intANIM16+1
inc anANIM,x
inc anANIM,x
lda anOBJET,x ; Regarde si tiny sur sleeper
cmp #4
bcc intANIM13
cmp #8
bcs intANIM13
lda anCOORD,x
tax
lda plateau3,x
cmp #-1
bne intANIM21
intANIM13 lda #23
sta compteur
*--- Debut routine d'affichage (lente)
intANIM14 sep #$20
intANIM15 ldx #0
intANIM16 ldal $110000,x ; data
tay
intANIM17 ldal $e10000,x ; ECRAN source
and tblMASK,y ; MASK
intANIM18 ora tblGRE,y ; data
intANIM19 stal $012000,x ; $01/2000
inx
intANIM20 cpx #12
bne intANIM16
rep #$20
lda intANIM15+1
clc
adc #160
sta intANIM15+1
clc
adc #12
sta intANIM20+1
dec compteur
lda compteur
bpl intANIM14
stz intANIM15+1
lda #12
sta intANIM20+1
lda intANIM4+1
dec
dec
tax
lda anOBJET,x
cmp #32
bne intANIM21
lda anANIM,x
cmp sprFIX
bne intANIM21
stz anANIM,x
intANIM21 sep #$30
plb
clc
rtl
*-------------------------- Message
hex 0d0d
asc 'As you are still here, please listen to this story: <',0d
asc 'What is the worst thing in oral sex ?',0d
asc 'The view'
hex 0d0d
*--------------------------
mx %00
*--------------------------
* Routines tableau
*--------------------------
allLVL ldx level ; Charge image INTRO
lda lvlINTRO,x
and #$00ff
sta temp
dec ; Nb sprites/Anim fixe
asl
tax
lda sprNUM,x
asl
sta sprFIX
lda temp
and #$00f0
asl
asl
asl
asl
ora #$3000
pha
lda temp
and #$000f
ora #$0030
sta temp
pla
ora temp
xba
sta temp
lda temp
cmp pINTRO+21
beq allLVL2
sta pINTRO+21
sta pNIV+19
lda #pINTRO
ldx ptrUNPACK+1
jsr loadFILE
bcs allLVL1
lda ptrECRAN+1
jsr unPACK
lda ptrECRAN+1
jsr do3200
allLVL1 lda #pNIV
ldx ptrUNPACK+1
jsr loadFILE
lda ptrNIV+1
jsr unPACK
allLVL2 rts
*---
allNIV lda level ; Calcule nom niveau
asl
asl
asl
clc
adc #allCODES
sta allNIV1+1
ldx #7
sep #$20
allNIV1 lda allCODES,x
dec
dec
dec
sta strCOD,x
dex
bpl allNIV1
rep #$20
lda ptrDATAS
clc
adc #$5300
sta Debut
lda ptrDATAS+2
sta Debut+2
lda level
asl
tay
lda [Debut],y
pha
and #$00ff
sta minutes
pla
and #$ff00
xba
sta secondes
*---
jsr clrECRAN
lda #strCOD
ldy #$3490
ldx ptrECRAN+2
jsr print16
lda ptrECRAN+1
ldy #0
jsr fadeIN
]lp lda #5
jsr nowWAIT
bcs ]lp
jsr fadeOUT
jsr clrECRAN
lda clickKEY
cmp #$9b
beq allNIV2
clc
rts
allNIV2 sec
rts
*-------------------------- Message
hex 0d0d
asc 'The funniest story: the Apple II is dead'
hex 0d0d
*--------------------------
* Routines decodage
*--------------------------
*--- Couche 1
decodeALL jsr clrECRAN
stz fgNBTINIES
stz fgNBSLEEPERS
ldx #16-2
]lp stz nbOBJECTS,x
dex
dex
bpl ]lp
ldx #208-2
lda #-1
]lp sta plateau2,x
sta plateau3,x
sta plateau4,x
dex
dex
bpl ]lp
ldx level
jsr ZLevel
clc
adc ptrDATAS
sta Debut
lda ptrDATAS+2
sta Debut+2
ldy #0
tyx
decodeALL1 phx
phy
lda [Debut],y
and #$00ff
sta plateau1,x
cmp #$00ff
beq decodeALL2
jsr sprite
decodeALL2 ply
iny
plx
inx
inx
cpx #208
bne decodeALL1
*--- Couche 2
lda Debut
clc
adc #104
sta Debut
ldy #0
tyx
decodeALL3 phx
phy
lda [Debut],y
and #$00ff
cmp #$00ff
beq decodeALL5
cmp #0032
bne decodeBUG
lda #-1
sta plateau1,x
lda #32
bra decodeALL4
decodeBUG cmp #0008 ; is it a Sleeper ?
bcs decodeALL4
cmp #0004
bcc decodeBUG1
sta plateau2,x
pha
phy
asl
tay
lda nbOBJECTS,y
clc
adc #1
sta nbOBJECTS,y
ply
inc fgNBSLEEPERS
pla
bra decodeALL4
decodeBUG1 sta plateau3,x ; is it a Tiny ?
phy
asl
tay
lda nbOBJECTS,y
clc
adc #1
sta nbOBJECTS,y
ply
inc fgNBTINIES
lda #-1
sta plateau2,x
bra decodeALL5
decodeALL4 sta plateau2,x
clc
adc #21
jsr sprite
decodeALL5 ply
iny
plx
inx
inx
cpx #208
bne decodeALL3
*--- Animation
ldx #208*5
lda #$5555
]lp sta anNUMBER,x
dex
dex
bpl ]lp
ldy #0
tyx
]lp lda [Debut],y
and #$00ff
cmp #$00ff
beq decodeALL7
cmp #32
beq decodeALL6
cmp #8
bcs decodeALL7
decodeALL6 sta anOBJET,x
stz anANIM,x
lda #-1
sta anACTIF,x
sta anACTIF2,x
tya
asl
sta anCOORD,x
inx
inx
decodeALL7 iny
cpy #104
bne ]lp
stx anNUMBER
*--- Calcule le temps d'attente entre animations
lda intTEMP,x
sta fgTEMP
stz intANIM2+1
*--- Interrupteurs
ldy #0
decodeALL8 lda [Debut],y
and #$00ff
cmp #0020
bcc decodeALL10
cmp #0024
bcs decodeALL10
sec
sbc #0016
ldx anNUMBER
]lp cmp anOBJET,x
bne decodeALL9
stz anACTIF,x
stz anACTIF2,x
decodeALL9 dex
dex
bpl ]lp
decodeALL10 iny
cpy #104
bne decodeALL8
*--- Test de validite
lda fgNBTINIES ; nb tinies = nb sleepers
cmp fgNBSLEEPERS
bne decodeALL11
lda fgNBTINIES ; if equal, is zero ?
beq decodeALL11
ldx #8-2
]lp lda nbOBJECTS,x
cmp nbOBJECTS+8,x
bne decodeALL11
dex
dex
bpl ]lp
lda anNUMBER ; no anim
beq decodeALL11
clc
rts
decodeALL11 sec
rts
*---
ZLevel lda #0
cpx #0
bne ZLevel1
rts
ZLevel1 clc
adc #208
dex
bne ZLevel1
rts
*--------------------------
* Routine clavier
*--------------------------
clickIT ldal $e0bfff ; keyboard
bpl clickIT1
stal $e0c010
xba
and #$00ff
sta clickKEY
clc
rts
clickIT1 ldal $e0c026 ; mouse
bmi clickIT3
clickIT2 sec
rts
clickIT3 ldal $e0c023
ldal $e0c023
and #%10000000_00000000
bne clickIT2
clc
rts
*--------------------------
* Routines gs/os
*--------------------------
loadFILE sta proOPEN+4
stx proREAD+5
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
nop
nop
PushWord #0
PushLong #proSTR1
PushLong #proSTR2
PushLong #proSTR3
PushLong #proSTR4
_TLTextMountVolume
pla
cmp #1
bne loadERR1
brl loadFILE1
loadERR1 sec
rts
*---
saveFILE stz noBUG
jsl proDOS
dw $2005
adrl proINFO
jsl proDOS
dw $2002
adrl proKILL
jsl proDOS
dw $2001
adrl proCREATE
bcs saveERR
lda #pPREF
sta proOPEN+4
lda #^pPREF
sta proOPEN+6
jsl proDOS
dw $2010
adrl proOPEN
lda proOPEN+2
sta proWRITE+2
sta proCLOSE+2
jsl proDOS
dw $2013
adrl proWRITE
saveFILE1 jsl proDOS
dw $2014
adrl proCLOSE
lda #1
sta noBUG
rts
saveERR PushWord #0
PushLong #proSTR11
PushLong #proSTR2
PushLong #proSTR31
PushLong #proSTR41
_TLTextMountVolume
pla
cmp #1
bne saveFILE1
brl saveFILE
*--------------------------
* Routines diverses
*--------------------------
memERR bcs memERR1 ; Erreur de memoire
rts
memERR1 PushWord #0
PushLong #memSTR1
PushLong #memSTR2
PushLong #proSTR3
PushLong #proSTR4
_TLTextMountVolume
pla
memERR2 jmp initOFF
memERR3 lda #$6060
sta memERR2
jsr memERR1
brl initOFF1
*---
aptkERR PushWord #0
PushLong #aptkSTR1
PushLong #memSTR2
PushLong #proSTR3
PushLong #proSTR4
_TLTextMountVolume
pla
cmp #1
bne aptkERR1
rts
aptkERR1 jmp initOFF3
*------------------------------
nextVBL lda #150
jsr waitSPOT
jsr waitVBL
rts
waitSPOT lsr
sta waitSPOT2+1
waitSPOT1 ldal $e0c02e
and #$7f
waitSPOT2 cmp #150
blt waitSPOT1
cmp #100
bge waitSPOT1
rts
waitVBL ldal $e0c019
and #$80
beq waitVBL
rts
*------------------------------
unPACK tax ; Decompresse
phd
tdc
clc
adc #$200
tcd
stz $04
stz $06
stx $05
lda ptrUNPACK
sta $00
lda ptrUNPACK+2
sta $02
lda ptrBUFFER
sta $1e
clc
adc #$2000
sta $22
lda ptrBUFFER+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
phk
plb
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 $e0c019
and #$80
bne ]lp
pla
dec
bne nowWAIT1
sec
rts
nowWAIT2 pla
clc
rts
*--------------------------
* Routines sonores
*--------------------------
doSND lda ptrZIK
sta pZIKptr
lda ptrZIK+2
sta pZIKptr+2
dex
txa
asl
tax
lda sndADR,x
clc
adc pZIKptr+1
sta pZIKptr+1
lda sndSIZ,x
sta pZIKptr+4
lda noSOUND
beq doSND1
rts
doSND1 PushWord #%00000000_00010000
_FFStopSound
PushWord #$0401
PushLong #pZIKptr
_FFStartSound
rts
*--------------------------
* Routines graphiques
*--------------------------
*--- Affichage du curseur
showCURS txa
asl
tax
lda scrX,x
pha
tya
asl
tay
lda scrY,y
clc
adc 1,s
tax ; en X, adresse ecran
pla
lda fgCURS
cmp #-1
beq showCURS1
rts
showCURS1 lda cursL
stal $012002,x
stal $012e62,x
lda cursL+2
stal $012004,x
stal $012e64,x
lda cursL+4
stal $012006,x
stal $012e66,x
lda cursL+6
stal $012008,x
stal $012e68,x
lda cursL+8
stal $01200a,x
stal $012e6a,x
lda cursL+10
stal $01200c,x
stal $012e6c,x
ldy #0
]lp sep #$20
ldal $0120a2,x
and cursMSK1,y
ora cursCOL1,y
stal $0120a2,x
ldal $0120ad,x
and cursMSK2,y
ora cursCOL2,y
stal $0120ad,x
rep #$20
txa
clc
adc #$a0
tax
iny
cpy #22
bne ]lp
rts
*---
hideCURS txa
asl
tax
lda scrX,x
pha
tya
asl
tay
lda scrY,y
clc
adc 1,s
tax ; en X, adresse ecran
pla
phx
sei
ldy #$0a
hideCURS1 ldal $110002,x
stal $012002,x
hideCURS2 ldal $110e62,x
stal $012e62,x
inx
inx
dey
dey
bpl hideCURS1
plx
ldy #0
]lp sep #$20
hideCURS3 ldal $1100a2,x
stal $0120a2,x
hideCURS4 ldal $1100ad,x
stal $0120ad,x
rep #$20
txa
clc
adc #$a0
tax
iny
cpy #22
bne ]lp
cli
rts
*--- Effacement de l'ecran
clrECRAN lda ptrECRAN
sta Debut
lda ptrECRAN+2
sta Debut+2
ldy #0
tya
]lp sta [Debut],y
iny
iny
cpy #$7e00
bne ]lp
lda ptrNIV ; Met la palette
sta Debut
lda ptrECRAN
sta Arrivee
lda ptrNIV+2
sta Debut+2
lda ptrECRAN+2
sta Arrivee+2
ldy #$7e00
]lp lda [Debut],y
sta [Arrivee],y
iny
iny
cpy #$8000
bne ]lp
rts
*--- Routine col/col
moveIT sta moveIT2+1
sty moveIT6+2 ; page 2
lda ptrBOUGE+1
sta moveIT5+2
ldx oldXY
cpx curXY
bne moveIT1
rts
moveIT1 lda scrCASE,x
clc
adc #$2
sta espECR
clc
adc #$2000
sta espSCR
moveIT2 lda $ffff ; Lit adresse sprite source
clc
adc ptrBOUGE
sta moveIT5+1
inc moveIT2+1
inc moveIT2+1
lda tinyDIR ; En fonction de la direction
dec
asl ; calcule les bonnes coordonnees
tax
lda tinyHOW,x
sta moveIT12+1
lda tinyCALC,x
pha
clc
adc espECR
sta espECR
clc
adc ptrECRAN
sta moveIT6+1
pla
clc
adc espSCR
sta espSCR
sta moveIT8+1
lda espCOL ; couleur du Tinie
asl
tax
lda anDRAW,x
sta moveIT7+1
ldx #2
]lp wai
dex
PATCH bpl ]lp
lda #23
sta compteur3
moveIT3 sep #$20
moveIT4 ldx #0
moveIT5 ldal $110000,x ; data
tay
moveIT6 ldal $e12000,x
and tblMASK,y ; MASK
moveIT7 ora tblGRE,y ; pour couleur
moveIT8 stal $012000,x
inx
moveIT9 cpx #12
bne moveIT5
rep #$20
lda moveIT4+1
clc
adc #160
sta moveIT4+1
clc
adc #12
sta moveIT9+1
dec compteur3
lda compteur3
bpl moveIT3
stz moveIT4+1
lda #12
sta moveIT9+1
lda tinyDIR ; Maintenant efface
dec
pha
asl
tax
lda tinyCALC2,x
clc
adc espECR
tax
pla
cmp #2
bcs moveIT10
jsr clrLR
bra moveIT11
moveIT10 jsr clrUD
moveIT11 inc compteur2
lda compteur2
moveIT12 cmp #8
beq moveIT13
brl moveIT2
moveIT13 rts
*--- Efface les colonnes
clrLR txa
clc
adc ptrECRAN
sta Second
lda ptrECRAN+2
sta Second+2
txa
clc
adc #$2000
sta Third
lda #$0001
sta Third+2
ldy #0
]lp lda [Second],y
sta [Third],y
iny
lda [Second],y
sta [Third],y
dey
tya
clc
adc #160
tay
cpy #24*160
bne ]lp
rts
*--- Efface les lignes
clrUD txa
clc
adc ptrECRAN
sta Second
lda ptrECRAN+2
sta Second+2
txa
clc
adc #$2000
sta Third
lda #$0001
sta Third+2
ldx #3
brl sprite2
*--- Best routine pour afficher un sprite
esprit pha
lda scrCASE,x
sta espECR
pla
esprit1 sta esprit2+1 ; Adresse table d'animation
sty espADR+1
sty esprit7+2
esprit2 lda $ffff ; adresse source de la table d'animation
cmp #-1
bne esprit3
rts
esprit3 clc
adc espADR
sta esprit7+1
esprit4 ldx #9
]lp wai
dex
bpl ]lp
stz esprit6+1
lda #12
sta esprit11+1
lda espECR ; prend adresse ecran
clc
adc #2
adc ptrECRAN
sta esprit8+1
lda espECR
clc
adc #$2002
sta esprit10+1
lda espCOL ; couleur du Tiny
asl
tax
lda anDRAW,x
sta esprit9+1
lda esprit2+1 ; next one
inc
inc
sta esprit2+1
lda #23
sta compteur3
esprit5 sep #$20
esprit6 ldx #0
esprit7 ldal $110000,x ; data
tay
esprit8 ldal $e12000,x
and tblMASK,y ; MASK
esprit9 ora tblGRE,y ; pour couleur
esprit10 stal $012000,x
inx
esprit11 cpx #12
bne esprit7
rep #$20
lda esprit6+1
clc
adc #160
sta esprit6+1
clc
adc #12
sta esprit11+1
dec compteur3
lda compteur3
bpl esprit5
dec compteur2
lda compteur2
bmi esprit12
brl esprit2
esprit12 rts
*--- Routine pour afficher un sprite
sprite10 sta Second
lda ptrGAG3+2
sta Second+2
bra sprite1
*--- Routine pour afficher un sprite
sprite asl
tay
lda scrNIV,y
tay
clc
adc ptrNIV
sta Second
lda ptrNIV+2
sta Second+2
sprite1 lda scrCASE,x
clc
adc #$0002
clc
adc ptrECRAN
sta Third
lda ptrECRAN+2
sta Third+2
ldx #23
sprite2 ldy #0
]lp lda [Second],y
sta [Third],y
iny
iny
lda [Second],y
sta [Third],y
iny
iny
lda [Second],y
sta [Third],y
iny
iny
lda [Second],y
sta [Third],y
iny
iny
lda [Second],y
sta [Third],y
iny
iny
lda [Second],y
sta [Third],y
tya
clc
adc #160-10
tay
dex
bpl ]lp
rts
*-------------------------------------- Affichage d'un texte
printIT sta printIT1+1
stx Arrivee+2
sty Arrivee
printIT1 lda $ffff
and #$00ff
bne printIT2
rts
printIT2 pha
inc printIT1+1
ldy #99
]lp lda tblFNT8,y
and #$00ff
cmp 1,s
beq printIT3
dey
bpl ]lp
iny
printIT3 pla
tya
asl
tay
lda adrFNT8,y
clc
adc ptrFONTE
sta Debut
lda ptrFONTE+2
sta Debut+2
ldx #0007
ldy #0000
]lp lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
tya
clc
adc #160-2
tay
dex
bpl ]lp
lda Arrivee
clc
adc #4
sta Arrivee
brl printIT1
*---
print16 sta print161+1
stx Arrivee+2
sty Arrivee
print161 lda $ffff
and #$00ff
bne print162
rts
print162 pha
inc print161+1
ldy #0037
]lp lda tblFNT16,y
and #$00ff
cmp 1,s
beq print163
dey
bpl ]lp
print163 pla
tya
asl
tay
lda adrFNT16,y
clc
adc ptrFONTE
sta Debut
lda ptrFONTE+2
sta Debut+2
ldx #0023
ldy #0000
]lp lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
iny
iny
lda [Debut],y
sta [Arrivee],y
tya
clc
adc #160-14
tay
dex
bpl ]lp
lda Arrivee
clc
adc #16
sta Arrivee
brl print161
*-------------------------- Message
hex 0d0d
asc 'Oh! no more lemmings...'
hex 0d0d
*--- Fade sur les palettes
fadeIN sta fadeIN1+2
clc
adc #$007e
sta fadeIN5+2
sta fadeIN7+2
sta fadeIN9+2
cpy #-1
beq fadeIN2
ldx #$7dfe
fadeIN1 ldal $062000,x
stal $012000,x
dex
dex
bpl fadeIN1
fadeIN2 ldy #$000f
fadeIN3 ldx #$01fe
fadeIN4 ldal $019e00,x
and #$000f
sta temp
fadeIN5 ldal $069e00,x
and #$000f
cmp temp
beq fadeIN6
ldal $019e00,x
clc
adc #$0001
stal $019e00,x
fadeIN6 ldal $019e00,x
and #$00f0
sta temp
fadeIN7 ldal $069e00,x
and #$00f0
cmp temp
beq fadeIN8
ldal $019e00,x
clc
adc #$0010
stal $019e00,x
fadeIN8 ldal $019e00,x
and #$0f00
sta temp
fadeIN9 ldal $069e00,x
and #$0f00
cmp temp
beq fadeIN10
ldal $019e00,x
clc
adc #$0100
stal $019e00,x
fadeIN10 dex
dex
bpl fadeIN4
jsr nextVBL
dey
bpl fadeIN3
rts
*---
fadeOUT ldy #$000f
fadeOUT1 ldx #$01fe
fadeOUT2 ldal $019e00,x
and #$000f
beq fadeOUT3
ldal $019e00,x
sec
sbc #$0001
stal $019e00,x
fadeOUT3 ldal $019e00,x
and #$00f0
beq fadeOUT4
ldal $019e00,x
sec
sbc #$0010
stal $019e00,x
fadeOUT4 ldal $019e00,x
and #$0f00
beq fadeOUT5
ldal $019e00,x
sec
sbc #$0100
stal $019e00,x
fadeOUT5 dex
dex
bpl fadeOUT2
jsr nextVBL
dey
bpl fadeOUT1
ldx #$7ffe
lda #$0000
]lp stal $012000,x
dex
dex
bpl ]lp
rts
*--------------------------
* Routine control panel
*--------------------------
mx %11
theDESK jmp theDESK1
jmp theDESK1
jmp theDESK1
theDESK1 sep #$30
lda $c025
phb
php
phk
plb
clc
xce
rep #$30
lda noBUG
sta oldBUG
stz noBUG
sep #$30
theDESK2 jsl $feadb9
phk
plb
clc
xce
sep #$30
ldal $e0c034
and #$f0
stal $e0c034
rep #$30
lda oldBUG
sta noBUG
sep #$30
plp
plb
clc
rtl
mx %00
*-------------------------- Message
hex 0d0d
asc 'During a year: we have released something '
asc 'the FTA has never done: a GAME !!!'
hex 0d0d
*--------------------------
* Routines 3200
*--------------------------
do3200 tax
sep #$20 ; A= pointeur source image compressee
lda #$1e
stal $e0c035
rep #$20
stz Debut
stz Debut+2
stx Debut+1
ldx #$7ffe
lda #0
]lp stal $012000,x
stal $e12000,x
dex
dex
bpl ]lp
ldy #$7d00
ldx #0
]lp lda [Debut],y
stal $012000,x
iny
iny
inx
inx
cpx #$1900
bne ]lp
sep #$20
ldx #$00
do32001 lda #$0f
]lp stal $019d00,x
stal $e19d00,x
inx
cpx #$c8
beq do32002
dec
bpl ]lp
bra do32001
do32002 lda #0
stal $e0c035
rep #$20
ldy #$7cfe
]lp tyx
lda [Debut],y
stal $e12000,x
dey
dey
bpl ]lp
phd
tsc
sta mySTACK
sei
*--- Main routine 3200
ldal $e0c068
ora #$30
stal $e0c068
do32003 ldy #0
lda #$1f00
tcd
do32004 ldal $e0c02e
and #$ff
cmp affTBL,y
bne do32004
iny
iny
lda #$9fff
tcs
tdc
clc
adc #$0100
tcd
]affPOS1 = $00
lup $80
pei ]affPOS1
]affPOS1 = ]affPOS1+2
--^
tdc
clc
adc #$0100
tcd
]affPOS1 = $00
lup $80
pei ]affPOS1
]affPOS1 = ]affPOS1+2
--^
cpy #$1a
beq do32005
brl do32004
do32005 ldal $e0bfff
bmi do32007
ldal $e0c026
bmi do32006
brl do32003
do32006 ldal $e0c023
ldal $e0c023
and #%10000000_00000000
beq do32007
brl do32003
do32007 stal $e0c010
ldal $e0c068
and #$cf
stal $e0c068
*--- End of routine
cli
lda mySTACK
tcs
pld
phk
plb
ldx #$7ffe
lda #0
]lp stal $012000,x
stal $e12000,x
dex
dex
bpl ]lp
rts
*--------------------------
* All the datas
*--------------------------
hex 8d8d
asc "----------- The Tinies -----------",8d
asc " Version Apple //gs ",8d
asc " Antoine Vignau Olivier Zardini ",8d
asc " Brutal Deluxe ",8d
asc "------------ 9 2 1995 ------------",8d,8d
*--- Flags
noSOUND dw 2
noBUG ds 2
oldBUG ds 2
bugFG ds 2
bugA ds 2
bugY ds 2
saveDESK ds 4
clickKEY ds 2
save1 ds 1
save2 ds 1
save3 ds 1
save4 ds 1
save5 ds 2
save6 ds 2
compteur ds 2 ; pour affichage tiny (intANIM)
compteur2 ds 2 ; nombre de sprites a animer
compteur3 ds 2 ; pour affichage tiny (esprit)
fgKEY ds 2
fgLOST ds 2
fgPRINT ds 2
fgTEMP ds 2
fgCURS ds 2
nbOBJECTS ds 16
fgNBTINIES ds 2
fgNBSLEEPERS ds 2
spyDIR dw 2,1,4,3
spyDIR2 dw 2,1,3,4
keyPREF dw $00b0 ; select
dw $00b4 ; left
dw $00b6 ; right
dw $00b8 ; up
dw $00b2 ; down
minutes ds 2 ; Bar info
secondes ds 2
level ds 2
life dw 2
joker dw 2
*--- Flags pour le jeu
tinyMOVE ds 2 ; a-t-il bouge
tinyROULE ds 2 ; faut-il qu'il roule ??
tinyDIR ds 2 ; direction du Tiny
tinyDEC ds 2 ; le decor
espCOL ds 2 ; la couleur du Tiny + word (sauvegarde)
espADR ds 4
espECR ds 2
espSCR ds 2
myNUMBER ds 2 ; numero du tiny arrete (anim table)
tinyCALC dw $fffe,$0002,$fe20,$01e0
tinyCALC2 dw $000c,$fffd,$0f00,$fe20
tinyHOW dw 6,6,8,8
curXY ds 2 ; Curseur
curX ds 2
curY ds 2
oldXY ds 2
oldX ds 2
oldY ds 2
arrCOL ds 2
arrTINYcur ds 2
arrXY ds 2
arrX ds 2
arrY ds 2
arrNUMBER ds 2
strMINU asc " ",00
strSECO asc " ",00
strLEVEL asc " ",00
strLIFE asc " ",00
strJOKER asc " ",00
strPREF asc " ",00
strPREF2 asc "LEVEL 00",00
strCOD asc " ",00
strGAME asc "GAME OVER",00
strWIN asc " YOU WIN ",00
*--- Textes
memSTR1 str 'Can'27't allocate (screen) memory'
memSTR2 str 'Press a key to quit.'
aptkSTR1 str 'The game may not work with AppleTalk'
proSTR1 str 'Can'27't load file'
proSTR11 str 'Can'27't save file'
proSTR2 str 'Do what now ?'
proSTR3 str '[RET] Continue'
proSTR31 str '[RET] Retry'
proSTR4 str '[ESC] Quit'
proSTR41 str '[ESC] Cancel'
*--- Prodos
proQUIT dw 2
ds 4
ds 2
proOPEN dw 2
ds 2
adrl pINTRO
proGETEOF dw 2
ds 2
ds 4
proREAD dw 4
ds 2
ds 4
ds 4
ds 4
proCLOSE dw 1
ds 2
proCREATE dw 7
adrl pPREF ; Pathname
dw $e3 ; AccessCode
dw $5a ; FileType
ds 4 ; AuxType
dw $02 ; Type d'enregistrement
adrl $14 ; Data segment
ds 4 ; Resource segment
proKILL dw 1
adrl pPREF ; Pathname
proINFO dw 4
adrl pPREF ; Pathname
dw $e3 ; AccessCode
dw $5a ; FileType
ds 4 ; AuxType
proWRITE dw 5
ds 2 ; Id
adrl keyPREF ; Where
adrl $14 ; Length
ds 4 ; Written
ds 2
*--- Nom des fichiers
pINTRO strl '1/Tinies.Data/Intro00'
pNIV strl '1/Tinies.Data/Niv00'
pBOUGE strl '1/Tinies.Data/Bouge'
pGAG2 strl '1/Tinies.Data/Gadget2'
pGAG3 strl '1/Tinies.Data/Gadget3'
pTINY1 strl '1/Tinies.Data/Tiny1'
pTINY2 strl '1/Tinies.Data/Tiny2'
pFONTE strl '1/Tinies.Data/Fonte'
pGAGNE strl '1/Tinies.Data/Gagne'
pPERDU strl '1/Tinies.Data/Perdu'
pKALISTO strl '1/Tinies.Data/Kalisto'
pTINIES strl '1/Tinies.Data/Tinies'
pDATAS strl '1/Tinies.Data/Tinies.Tab'
pDATAS2 strl '1/Tinies.Data/Tinies.Tab2'
pSOUND strl '1/Tinies.Data/Tinies.Sound'
pMAIN strl '1/Tinies.Data/Tinies.Select'
pDOCU strl '1/Tinies.Data/Tinies.Docu'
pDOCFR strl '1/Tinies.Data/Tinies.Datas1'
pDOCUS strl '1/Tinies.Data/Tinies.Datas2'
pSPRITE strl '1/Tinies.Data/Tinies.Sprite'
pPREF strl '1/Tinies.Data/Tinies.Prefs'
*--- Memoire
myID ds 2
mySTACK ds 2
ptrECRAN ds 4 ; 0
ptrBOUGE ds 4 ; 1
ptrGAG2 ds 4 ; 2
ptrTINY1 ds 4 ; 3
ptrUNPACK ds 4 ; 4
ptrZIK ds 4 ; 5
ptrNIV ds 4 ; 0+8000
ptrFONTE ds 4 ; 1+8000
ptrGAG3 ds 4 ; 2+8000
ptrTINY2 ds 4 ; 3+8000
ptrDATAS ds 4 ; 4+8000
*--- Decompression
ptrBUFFER ds 4 ; pour le decompactage
packMASK dw $01ff
dw $03ff
dw $07ff
dw $0fff
dw $0000
temp ds 2
*--- Adresses des sons
sndADR dw $00,$21,$36,$3d,$46,$54,$61,$63,$6a,$74,$85,$8d,$d0
sndSIZ dw $21,$15,$07,$09,$0e,$0d,$02,$07,$0a,$11,$08,$43,$0a
pZIKptr adrl 0 ; waveStart
dw 41 ; waveSize
dw $00f5 ; freqOffset
da $1000 ; docBuffer
dw 1 ; bufferSize
adrl 0 ; nextWavePtr
dw 255 ; volSetting
*--- Table routine 3200
affTBL dw $e4,$84,$8c,$94,$9c,$a4,$ac
dw $b4,$bc,$c4,$cc,$d4,$dc
*--- Tables pour les animations (jusqu'a 104 animations)
anNUMBER ds 2
anOBJET ds 208
anACTIF ds 208
anCOORD ds 208
anANIM ds 208
anACTIF2 ds 208
*--- Donnees pour les plateaux
plateau1 ds 208
plateau2 ds 208
plateau3 ds 208
plateau4 ds 208
*--- Conversion HEXA/DECI
lvlINTRO hex 01,01,01,01,01,01,01,01,01,01
hex 02,02,02,02,02,02,02,02,02,02
hex 03,03,03,03,03,03,03,03,03,03
hex 04,04,04,04,04,04,04,04,04,04
hex 05,05,05,05,05,05,05,05,05,05
hex 06,06,06,06,06,06,06,06,06,06
hex 07,07,07,07,07,07,07,07,07,07
hex 08,08,08,08,08,08,08,08,08,08
hex 09,09,09,09,09,09,09,09,09,09
hex 10,10,10,10,10,10,10,10,10,10,11
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
hex 90,91,92,93,94,95,96,97,98,99
*--- Adresses caracteres
adrFNT8 dw $5780,$5784,$5788,$578c,$5790,$5794,$5798,$579c
dw $57a0,$57a4,$57a8,$57ac,$57b0,$57b4,$57b8,$57bc
dw $57c0,$57c4,$57c8,$57cc,$57d0,$57d4,$57d8,$57dc
dw $57e0,$57e4,$57e8,$57ec,$57f0,$57f4,$57f8,$57fc
dw $5800,$5804,$5808,$580c,$5810,$5814,$5818,$581c
dw $5c80,$5c84,$5c88,$5c8c,$5c90,$5c94,$5c98,$5c9c
dw $5ca0,$5ca4,$5ca8,$5cac,$5cb0,$5cb4,$5cb8,$5cbc
dw $5cc0,$5cc4,$5cc8,$5ccc,$5cd0,$5cd4,$5cd8,$5cdc
dw $5ce0,$5ce4,$5ce8,$5cec,$5cf0,$5cf4,$5cf8,$5cfc
dw $5d00,$5d04,$5d08,$5d0c,$5d10,$5d14,$5d18,$5d1c
dw $6180,$6184,$6188,$618c,$6190,$6194,$6198,$619c
dw $61a0,$61a4,$61a8,$61ac,$61b0,$61b4,$61b8,$61bc
dw $61c0,$61c4,$61c8,$61cc
adrFNT16 dw $0f00,$0f10,$0f20,$0f30,$0f40,$0f50,$0f60,$0f70,$0f80,$0f90
dw $1e00,$1e10,$1e20,$1e30,$1e40,$1e50,$1e60,$1e70,$1e80,$1e90
dw $2d00,$2d10,$2d20,$2d30,$2d40,$2d50,$2d60,$2d70,$2d80,$2d90
dw $3c00,$3c10,$3c20,$3c30,$3c40,$3c50,$3c60,$3c70
tblFNT8 hex a0a1a2a3a4a5a6a7a8a9aaabacadaeaf
hex b0b1b2b3b4b5b6b7b8b9babbbcbdbebf
hex c0c1c2c3c4c5c6c7c8c9cacbcccdcecf
hex d0d1d2d3d4d5d6d7d8d9dadbdcdddedf
hex e0e1e2e3e4e5e6e7e8e9eaebecedeeef
hex f0f1f2f3f4f5f6f7f8f9fafbfcfdfeff
hex 88958b8a
tblFNT16 asc "ABCDEFGHIJ"
asc "KLMNOPQRST"
asc "UVWXYZ 012"
asc "3456789-"
*--- Donnees du curseur
cursL hex a89999b9bbbbbbbb9b99998a
cursCOL1 hex 8990909090b090b0b0b0b0
hex b0b0b0b090b09090909989
cursCOL2 hex 98090909090b090b0b0b0b
hex 0b0b0b0b090b0909090998
cursMSK1 hex 000f0f0f0f0f0f0f0f0f0f
hex 0f0f0f0f0f0f0f0f0f0000
cursMSK2 hex 00f0f0f0f0f0f0f0f0f0f0
hex f0f0f0f0f0f0f0f0f00000
*--- Adresses pour NIV
scrNIV dw $0000,$0010,$0020,$0030,$0040
dw $0050,$1e00,$0060,$0070,$0080
dw $0090,$0f00,$0f10,$0f20,$0f30
dw $0f40,$0f50
dw $0f60,$0f70,$0f80,$0f90
dw $5a00,$5a10,$5a20,$5a30
dw $1e10,$1e20,$1e30,$1e40,$1e50,$1e60,$1e70,$1e80,$1e90
dw $2d00,$2d10,$2d20,$2d30,$2d40,$2d50,$2d60,$2d70,$2d80,$2d90
dw $3c00,$3c10,$3c20,$3c30,$3c40,$3c50,$3c60,$3c70,$3c80
scrCASE dw $0000,$0f00,$1e00,$2d00,$3c00,$4b00,$5a00,$6900
dw $000c,$0f0c,$1e0c,$2d0c,$3c0c,$4b0c,$5a0c,$690c
dw $0018,$0f18,$1e18,$2d18,$3c18,$4b18,$5a18,$6918
dw $0024,$0f24,$1e24,$2d24,$3c24,$4b24,$5a24,$6924
dw $0030,$0f30,$1e30,$2d30,$3c30,$4b30,$5a30,$6930
dw $003c,$0f3c,$1e3c,$2d3c,$3c3c,$4b3c,$5a3c,$693c
dw $0048,$0f48,$1e48,$2d48,$3c48,$4b48,$5a48,$6948
dw $0054,$0f54,$1e54,$2d54,$3c54,$4b54,$5a54,$6954
dw $0060,$0f60,$1e60,$2d60,$3c60,$4b60,$5a60,$6960
dw $006c,$0f6c,$1e6c,$2d6c,$3c6c,$4b6c,$5a6c,$696c
dw $0078,$0f78,$1e78,$2d78,$3c78,$4b78,$5a78,$6978
dw $0084,$0f84,$1e84,$2d84,$3c84,$4b84,$5a84,$6984
dw $0090,$0f90,$1e90,$2d90,$3c90,$4b90,$5a90,$6990
scrX dw $0000,$000c,$0018,$0024,$0030,$003c,$0048
dw $0054,$0060,$006c,$0078,$0084,$0090
scrY dw $0000,$0f00,$1e00,$2d00
dw $3c00,$4b00,$5a00,$6900
intTEMP dw 4,4,3,3,2,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
dw 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
*--- Types d'animation a faire
anCORRES dw $9,$9,$9,$9
dw $2,$2,$2,$2
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw $6,$6,$6,$6
dw $3,$3,$3,$3
anDRAW da tblGRE,tblBLU,tblRED,tblYEL
da tblGRE,tblBLU,tblRED,tblYEL
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
da tblGRE,tblGRE,tblGRE,tblGRE
da tblGRE,tblBLU,tblRED,tblYEL
anTYPE da anGREE,anBLUE,anREDE,anYELL
da anSLEE,anSLEE,anSLEE,anSLEE
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
dw -1,-1,-1,-1
da anSTAT,anSTAT,anSTAT,anSTAT
da anDORM,anDORM,anDORM,anDORM
anGREE dw $0000,$000c,$0018,$0024,$0030,$003c,$0048,$0054,$0060,$006c,$0078,$0084
dw $0f00,$0f0c,$0f18,$0f24,-1
anBLUE dw $0f30,$0f3c,$0f48,$0f54,$0f60,$0f6c,$0f78,$0f84
dw $1e00,$1e0c,$1e18,$1e24,$1e30,-1
anREDE dw $1e3c,$1e48,$1e54,$1e60,$1e6c,$1e78,$1e84
dw $2d00,$2d0c,$2d18,$2d24,$2d30,-1
anYELL dw $2d3c,$2d48,$2d54,$2d60,$2d6c,$2d78,$2d84
dw $3c00,$3c0c,$3c18,$3c24,$3c30,$3c3c,$3c48,$3c54,-1
anSLEE dw $0000,$000c,$0018,$0024,$0030,$003c,$0048,$0054,-1
anSTAT dw $4b00,$4b0c,$4b18,$4b24,$4b30,$4b3c,$4b48,$4b54
dw $4b60,$4b6C,$4b78,$4b84,$4b90,-1
anDORM dw $3c30,$3c30,$3c3c,$3c3c,$3c48,$3c48,$3c54,$3c54,-1
*--- Tables de correspondance pour les animations
tblGRE hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f
hex 202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f
hex 404142434445464748494a4b4c4d4e4f505152535455565758595a5b5c5d5e5f
hex 606162636465666768696a6b6c6d6e6f707172737475767778797a7b7c7d7e7f
hex 808182838485868788898a8b8c8d8e8f909192939495969798999a9b9c9d9e9f
hex a0a1a2a3a4a5a6a7a8a9aaabacadaeafb0b1b2b3b4b5b6b7b8b9babbbcbdbebf
hex c0c1c2c3c4c5c6c7c8c9cacbcccdcecfd0d1d2d3d4d5d6d7d8d9dadbdcdddedf
hex e0e1e2e3e4e5e6e7e8e9eaebecedeeeff0f1f2f3f4f5f6f7f8f9fafbfcfdfeff
tblBLU hex 000502070405060708090a0b0c0d0e0f505552575455565758595a5b5c5d5e5f
hex 202522272425262728292a2b2c2d2e2f707572777475767778797a7b7c7d7e7f
hex 404542474445464748494a4b4c4d4e4f505552575455565758595a5b5c5d5e5f
hex 606562676465666768696a6b6c6d6e6f707572777475767778797a7b7c7d7e7f
hex 808582878485868788898a8b8c8d8e8f909592979495969798999a9b9c9d9e9f
hex a0a5a2a7a4a5a6a7a8a9aaabacadaeafb0b5b2b7b4b5b6b7b8b9babbbcbdbebf
hex c0c5c2c7c4c5c6c7c8c9cacbcccdcecfd0d5d2d7d4d5d6d7d8d9dadbdcdddedf
hex e0e5e2e7e4e5e6e7e8e9eaebecedeeeff0f5f2f7f4f5f6f7f8f9fafbfcfdfeff
tblRED hex 0009020b0405060708090a0b0c0d0e0f9099929b9495969798999a9b9c9d9e9f
hex 2029222b2425262728292a2b2c2d2e2fb0b9b2bbb4b5b6b7b8b9babbbcbdbebf
hex 4049424b4445464748494a4b4c4d4e4f5059525b5455565758595a5b5c5d5e5f
hex 6069626b6465666768696a6b6c6d6e6f7079727b7475767778797a7b7c7d7e7f
hex 8089828b8485868788898a8b8c8d8e8f9099929b9495969798999a9b9c9d9e9f
hex a0a9a2aba4a5a6a7a8a9aaabacadaeafb0b9b2bbb4b5b6b7b8b9babbbcbdbebf
hex c0c9c2cbc4c5c6c7c8c9cacbcccdcecfd0d9d2dbd4d5d6d7d8d9dadbdcdddedf
hex e0e9e2ebe4e5e6e7e8e9eaebecedeeeff0f9f2fbf4f5f6f7f8f9fafbfcfdfeff
tblYEL hex 000d020f0405060708090a0b0c0d0e0fd0ddd2dfd4d5d6d7d8d9dadbdcdddedf
hex 202d222f2425262728292a2b2c2d2e2ff0fdf2fff4f5f6f7f8f9fafbfcfdfeff
hex 404d424f4445464748494a4b4c4d4e4f505d525f5455565758595a5b5c5d5e5f
hex 606d626f6465666768696a6b6c6d6e6f707d727f7475767778797a7b7c7d7e7f
hex 808d828f8485868788898a8b8c8d8e8f909d929f9495969798999a9b9c9d9e9f
hex a0ada2afa4a5a6a7a8a9aaabacadaeafb0bdb2bfb4b5b6b7b8b9babbbcbdbebf
hex c0cdc2cfc4c5c6c7c8c9cacbcccdcecfd0ddd2dfd4d5d6d7d8d9dadbdcdddedf
hex e0ede2efe4e5e6e7e8e9eaebecedeeeff0fdf2fff4f5f6f7f8f9fafbfcfdfeff
tblMASK hex fff0f0f0f0f0f0f0f0f0f0f0f0f0f0f00f000000000000000000000000000000
hex 0f0000000000000000000000000000000f000000000000000000000000000000
hex 0f0000000000000000000000000000000f000000000000000000000000000000
hex 0f0000000000000000000000000000000f000000000000000000000000000000
hex 0f0000000000000000000000000000000f000000000000000000000000000000
hex 0f0000000000000000000000000000000f000000000000000000000000000000
hex 0f0000000000000000000000000000000f000000000000000000000000000000
hex 0f0000000000000000000000000000000f000000000000000000000000000000
tblXY dw $0000,$0001,$0002,$0003,$0004,$0005,$0006,$0007
dw $0100,$0101,$0102,$0103,$0104,$0105,$0106,$0107
dw $0200,$0201,$0202,$0203,$0204,$0205,$0206,$0207
dw $0300,$0301,$0302,$0303,$0304,$0305,$0306,$0307
dw $0400,$0401,$0402,$0403,$0404,$0405,$0406,$0407
dw $0500,$0501,$0502,$0503,$0504,$0505,$0506,$0507
dw $0600,$0601,$0602,$0603,$0604,$0605,$0606,$0607
dw $0700,$0701,$0702,$0703,$0704,$0705,$0706,$0707
dw $0800,$0801,$0802,$0803,$0804,$0805,$0806,$0807
dw $0900,$0901,$0902,$0903,$0904,$0905,$0906,$0907
dw $0a00,$0a01,$0a02,$0a03,$0a04,$0a05,$0a06,$0a07
dw $0b00,$0b01,$0b02,$0b03,$0b04,$0b05,$0b06,$0b07
dw $0c00,$0c01,$0c02,$0c03,$0c04,$0c05,$0c06,$0c07
*--- Tinies bougent
moveLEFT dw $0000,$000c,$0018,$0024
dw $0030,$003c,$0048,$0054
moveRIGHT dw $0f00,$0f0c,$0f18,$0f24
dw $0f30,$0f3c,$0f48,$0f54
moveUP dw $1e00,$1e0c,$1e18,$1e24
dw $1e30,$1e3c,$1e48,$1e54
moveDOWN dw $2d00,$2d0c,$2d18,$2d24
dw $2d30,$2d3c,$2d48,$2d54
rollLEFT dw $3c00,$3c0c,$3c18,$3c24
dw $3c30,$3c3c,$3c48,$3c54
rollRIGHT dw $4b00,$4b0c,$4b18,$4b24
dw $4b30,$4b3c,$4b48,$4b54
rollUP dw $5a00,$5a0c,$5a18,$5a24
dw $5a30,$5a3c,$5a48,$5a54
rollDOWN dw $6900,$690c,$6918,$6924
dw $6930,$693c,$6948,$6954
*--- Adresses ecran des sprites
chseBOUG da anBougGa,anBougDr,anBougHa,anBougBa
da anRoulGa,anRoulDr,anRoulHa,anRoulBa
anBougGa dw $0f0c,$0f18,$0f24,$0f30,$0f3c,$0f48
anBougDr dw $000c,$0018,$0024,$0030,$003c,$0048
anBougHa dw $1e00,$1e0c,$1e18,$1e24,$1e30,$1e3c,$1e48,$1e54
anBougBa dw $2d00,$2d0c,$2d18,$2d24,$2d30,$2d3c,$2d48,$2d54
anRoulGa dw $4b0c,$4b18,$4b24,$4b30,$4b3c,$4b48
anRoulDr dw $3c0c,$3c18,$3c24,$3c30,$3c3c,$3c48
anRoulHa dw $5a00,$5a0c,$5a18,$5a24,$5a30,$5a3c,$5a48,$5a54
anRoulBa dw $6900,$690c,$6918,$6924,$6930,$693c,$6948,$6954
chseBUMP da anBumpGa,anBumpDr,anBumpBa,anBumpHa
anBumpGa dw $0064,$0070,$007c,$0088,$0094
dw $0f64,$0f70,$0f7c,$0f88,$0064,-1
anBumpDr dw $0064,$0f94,$1e64,$1e70,$1e7c
dw $1e88,$1e94,$2d64,$0f88,$0064,-1
anBumpHa dw $0064,$2d64,$2d70,$2d7c,$2d88
dw $2d94,$3c64,$3c70,$3c7c,$0064,-1
anBumpBa dw $0064,$3c7c,$3c88,$3c94,$4b64
dw $4b70,$4b7c,$4b88,$4b94,$0064,-1
chseTELE da anTeleGa,anTeleDr,anTeleHa,anTeleBa
anTeleGa dw $1e30,$1e48,$1e60,$1e78
dw $2d00,$2d18,$2d30
dw $2d48,$693c,-1
anTeleDr dw $0060,$0078
dw $0f00,$0f18,$0f30
dw $0f48,$0f60,$0f78,$693c,-1
anTeleHa dw $3c00,$3c18,$3c30
dw $3c48,$3c60,$3c78
dw $4b00,$4b18,$693c,-1
anTeleBa dw $4b60,$4b78
dw $5a00,$5a18,$5a30
dw $5a48,$5a60,$5a78,$693c,-1
chseTELE2 da anTeleGa2,anTeleDr2,anTeleHa2,anTeleBa2
anTeleGa2 dw $2d84,$2d78,$2d6c,$2d60,$1e54,$1e48,$1e3c,$1e30,-1
anTeleDr2 dw $1e24,$1e18,$1e0c,$1e00,$0084,$0078,$006c,$0060,-1
anTeleHa2 dw $4b54,$4b48,$4b3c,$4b30,$3c24,$3c18,$3c0c,$3c00,-1
anTeleBa2 dw $6924,$6918,$690c,$6900,$4b84,$4b78,$4b6c,$4b60,-1
anINTE dw $0000,$0f00,$1e00,$2d00
anOPEN dw $006c,$0f6c,$1e6c,$2d6c
anDOOR dw $000c,$0018,$0024,$0030,$003c,$0048,$0054,$0060,$006c,-1
anJOKER dw $3c00,$3c0c,$3c18,$3c24,$3c30,$3c3c
dw $3c48,$3c54,$3c60,$3c6c,$3c78,$3c84,-1
chseBOOM da anBoumGa,anBoumDr,anBoumHa,anBoumBa
anBoumGa dw $0f00,$0f0c,$0f18,$0f24,$0f30,$0f3c,$0f48,$0f54,-1
anBoumDr dw $0000,$000c,$0018,$0024,$0030,$003c,$0048,$0054,-1
anBoumHa dw $1e00,$1e0c,$1e18,$1e24,$1e30,$1e3c,$1e48,$1e54,-1
anBoumBa dw $2d00,$2d0c,$2d18,$2d24,$2d30,$2d3c,$2d48,$2d54,-1
anEXPL1 dw $4b30,$4b3c,$4b48,$4b54,-1
anEXPL2 dw $5a00,$5a0c,$5a18,$5a24,$5a30,$5a3c
dw $5a48,$5a54,$6900,$690c,$6918,$6924,-1
*--- Nombre Sprites animation fixe
sprNUM dw 8,9,11,8,7,10,8,8,12,1,1,1,1,1,1,5,12
sprFIX ds 2
*--- Mots de passe
allCODES hex C4C7CDD8C4C6C8D6CAC4D6CCC4D1C7CC
hex CAD5D2CCC7C8CED1D1C8C5C4C6D5D8C6
hex D5C8D6D7D8D6CBC4C8D1D7D5CFC4C6D2
hex C5D2D7C6D5C8D3C4D2C6D7D2C4D1D9C4
hex C6D2C4C7D6D8D3D3D5C4DAC5D6CECCD7
hex D7C4D1CAD9CCCFCCC7C8D1C4CDD2CCD1
hex D9C4D0C5D7CBC8C4D8D1D3C4D6D8C5D2
hex CFC4D1C7D3C4D3DCD3D5C8D3D3C4D1C7
hex D1CCC9C8D6C4CCCFC5D5D2C6CCD1C7CC
hex C5D8D6CED3D8CFCCCFD2CACCD0C4D5C4
hex D2C6D7D2CACFC4C5D7D5CCD6C8D0C8D6
hex C6D2D1D9CDC8CBD2D5C8D1C7C6CFCCD1
hex D1C8CAC4D3D2CFDCD3C8D7D5C4C6C6C8
hex D6D3D2D1C8D1C6D5CFC4DDDCCBD2D0CC
hex CBC8D1C7D2D8D7CED3C4D3DCC8D3CCD3
hex C6D2C6CED6D7D8D0C8D7CBCCCAC4D1CA
hex CCD1CFC4C7D2D1C6CCD1D7C8C4D6D6C4
hex D0C4D6D7DAD2D2C7C4C5D5D2CCD1D6D7
hex C5C4C6CEC5C4D1C4C8C6CFD2DACBCCD3
hex CAD5D2CCCCD0D3D2C6D8C5C4C6D8C5C4
hex C7C8C6CFC7D5D2CFD6CCD0D3D8D1C7C8
hex D8D1CBD8D6C6CBD2CFC8CAC4D0D8D5C4
hex C4D1CCD0C6C4D7C8CFC4D8CAD0C4CAC4
hex D3C4CFD6C7DCD6D6C5D5D2C6D5C8D9C8
hex D3D2D5D5D8D1C7C8D8CCCAD8C4D3C8D5
hex D1D2D1CBD0CCD6C6D3C8D5D8D6D0CCD7
hex C7DCD6D6C7C8CED1C7CCD8D5CAC4D6CC
hex D2C7D2D5C6C4D8D6D3C8C4D6C4D1C6CB
hex D8D5D2D5C7C8C9C8D6D8C5C5D3CCC6CE
hex D5D8CFC4D6C6C4D5D1D2C7D8D2D2D3CB
hex C6D2C5C8CAC4CFC8D7D5D2CFD7C4C6D6
hex D3C8C4D6D9C4D0C5DBDCCFD2DACCD5C8
hex D6C6CCD8D0CCD1D7C8D8CAC8D5D8D1C8
hex C8D5D8D3D3CFD2D7D0C4D5CCC6D2D1CE
hex D1D8D5D6CBCCD6D3D6D1D2C5CBD2D0D2
hex D3D2D5D7C6C4D5D2C6CBC4D5CAC8C7C4
hex D8D1D1C8D3D2DAD6D3D2D2D1D5D2D0C4
hex D3D5C8C4D3D5C8D3D6C4CCCFDDD2D2D1
hex CCD6D2D6D1D8D5D6CBC8D1C7DAD2D2C7
hex C4CAD2D1D8D3D6D1CFC4D1C7C7CCD9D8
hex D1CCC6CED0C4D6D7D3CCC6CED5D2CFCF
hex D2D8D7D6D6D3D2D7CEC4CFC4C4C6C6C8
hex D7C8CFD2D5D8CFC4DAD2D5CECFC4D8C7
hex CAD5C4CCD8D3CFC4D3D2CFD2D2C6D7D2
hex D5C8D3C4C7C8D7C4C9C8CFC7D8D1C9D2
hex C5C4C7CCD9C8CFCFD3C4D7CCC5C8C8C9
hex D7CCD7C4D6C4D8C6D3D8D3CCD8D1D3D5
hex D0C4D6D7C8D5D8D3D4D8C4D5C9C8CFC7
hex CAD5CCC9D6CCC7C8DACBCCD7D8D1D1CC
hex C7D2DAD1CCD1D6D8D8D1CFCCCCD6D2D3
hex D0D8C4C7A3C7CCC5
*--- Lignes
Ligne = *
]Ligne = $0
lup 200
da ]Ligne
]Ligne = ]Ligne+160
--^