mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-09 06:29:33 +00:00
musique done
This commit is contained in:
parent
41d8b8abd4
commit
10defd6b39
Binary file not shown.
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -75,6 +75,7 @@ DEBUT_DATA = *
|
||||||
|
|
||||||
fgTHEEND ds 2 ; LOGO
|
fgTHEEND ds 2 ; LOGO
|
||||||
i ds 2
|
i ds 2
|
||||||
|
j ds 2
|
||||||
index ds 2
|
index ds 2
|
||||||
theX ds 2
|
theX ds 2
|
||||||
theY ds 2
|
theY ds 2
|
||||||
|
@ -174,9 +175,67 @@ paragraphes_lus ds 2
|
||||||
reference_objet ds nombre_paragraphes ; NUMERO DE L'OBJET ASSOCIE A CHAQUE PARAGRAPHE
|
reference_objet ds nombre_paragraphes ; NUMERO DE L'OBJET ASSOCIE A CHAQUE PARAGRAPHE
|
||||||
reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRAPHE
|
reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRAPHE
|
||||||
|
|
||||||
|
FIN_DATA = *
|
||||||
|
|
||||||
*--- Sound files
|
*--- Sound files
|
||||||
* SNDxy.SND where x is the scene, y the file index (0..9)
|
* SNDxy.SND where x is the scene, y the file index (0..9)
|
||||||
|
|
||||||
|
tblSND da sndPART1
|
||||||
|
da sndPART2
|
||||||
|
da sndPART3
|
||||||
|
da sndPART4
|
||||||
|
da sndPART5
|
||||||
|
dw -1
|
||||||
|
|
||||||
|
sndPART1 da snd10
|
||||||
|
da snd11
|
||||||
|
da snd12
|
||||||
|
da snd13
|
||||||
|
da snd14
|
||||||
|
da snd15
|
||||||
|
da snd16
|
||||||
|
da snd17
|
||||||
|
da snd18
|
||||||
|
dw -1
|
||||||
|
|
||||||
|
sndPART2 da snd20
|
||||||
|
da snd21
|
||||||
|
da snd22
|
||||||
|
da snd23
|
||||||
|
da snd24
|
||||||
|
da snd25
|
||||||
|
da snd26
|
||||||
|
da snd27
|
||||||
|
da snd28
|
||||||
|
dw -1
|
||||||
|
|
||||||
|
sndPART3 da snd30
|
||||||
|
da snd31
|
||||||
|
da snd32
|
||||||
|
da snd33
|
||||||
|
da snd34
|
||||||
|
da snd35
|
||||||
|
da snd36
|
||||||
|
da snd37
|
||||||
|
da snd38
|
||||||
|
dw -1
|
||||||
|
|
||||||
|
sndPART4 da snd40
|
||||||
|
da snd41
|
||||||
|
da snd42
|
||||||
|
dw -1
|
||||||
|
|
||||||
|
sndPART5 da snd50
|
||||||
|
da snd51
|
||||||
|
da snd52
|
||||||
|
da snd53
|
||||||
|
da snd54
|
||||||
|
da snd55
|
||||||
|
da snd56
|
||||||
|
da snd57
|
||||||
|
da snd58
|
||||||
|
dw -1
|
||||||
|
|
||||||
* 10 1cemonsi,7500,"ce monsieur!",""
|
* 10 1cemonsi,7500,"ce monsieur!",""
|
||||||
* 11 1safemme,7500,"sa femme!",""
|
* 11 1safemme,7500,"sa femme!",""
|
||||||
* 12 1lechame,7500,"le chameau!",""
|
* 12 1lechame,7500,"le chameau!",""
|
||||||
|
@ -186,7 +245,44 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
|
||||||
* 16 fx_synth,5000,"",""
|
* 16 fx_synth,5000,"",""
|
||||||
* 17 fx_tromp,7500,"",""
|
* 17 fx_tromp,7500,"",""
|
||||||
* 18 fx_tromp,10000,"",""
|
* 18 fx_tromp,10000,"",""
|
||||||
* '
|
|
||||||
|
snd10 asc '10'
|
||||||
|
dw 217
|
||||||
|
str 'ce monsieur!'
|
||||||
|
str ''
|
||||||
|
snd11 asc '11'
|
||||||
|
dw 217
|
||||||
|
str 'sa femme!'
|
||||||
|
str ''
|
||||||
|
snd12 asc '12'
|
||||||
|
dw 217
|
||||||
|
str 'le chameau!'
|
||||||
|
str ''
|
||||||
|
snd13 asc '13'
|
||||||
|
dw 217
|
||||||
|
str 'et toute la smala!'
|
||||||
|
str ''
|
||||||
|
snd14 asc '14'
|
||||||
|
dw 290
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd15 asc '15'
|
||||||
|
dw 145
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd16 asc '16'
|
||||||
|
dw 145
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd17 asc '17'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd18 asc '18'
|
||||||
|
dw 290
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
|
||||||
* 20 2coinfli,7500,"des coins o—","les flics ne vont plus"
|
* 20 2coinfli,7500,"des coins o—","les flics ne vont plus"
|
||||||
* 21 2kararab,7500,"y'a des quartiers arab'",""
|
* 21 2kararab,7500,"y'a des quartiers arab'",""
|
||||||
* 22 2karbret,7500,"si c'‚tait des quartiers bretons...",""
|
* 22 2karbret,7500,"si c'‚tait des quartiers bretons...",""
|
||||||
|
@ -196,7 +292,44 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
|
||||||
* 26 fx_siren,5000,"",""
|
* 26 fx_siren,5000,"",""
|
||||||
* 27 fx_guita,5000,"",""
|
* 27 fx_guita,5000,"",""
|
||||||
* 28 fx_guita,7500,"",""
|
* 28 fx_guita,7500,"",""
|
||||||
* '
|
|
||||||
|
snd20 asc '20'
|
||||||
|
dw 217
|
||||||
|
str 'des coins o'9d
|
||||||
|
str 'les flics ne vont plus'
|
||||||
|
snd21 asc '21'
|
||||||
|
dw 217
|
||||||
|
str 'y'27'a des quartiers arab'
|
||||||
|
str ''
|
||||||
|
snd22 asc '22'
|
||||||
|
dw 217
|
||||||
|
str 'si c'278e'tait des quartiers bretons...'
|
||||||
|
str ''
|
||||||
|
snd23 asc '23'
|
||||||
|
dw 217
|
||||||
|
str 'some people from Nanterre'
|
||||||
|
str 'some people from Belleville!'
|
||||||
|
snd24 asc '24'
|
||||||
|
dw 145
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd25 asc '25'
|
||||||
|
dw 145
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd26 asc '26'
|
||||||
|
dw 145
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd27 asc '27'
|
||||||
|
dw 145
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd28 asc '28'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
|
||||||
* 30 3BOPARLE,7500,"ces beaux-parleurs","de la t‚l‚vision?"
|
* 30 3BOPARLE,7500,"ces beaux-parleurs","de la t‚l‚vision?"
|
||||||
* 31 3FAITFRA,7500,"qu'est-ce qu'ils ont fait","pour la france?"
|
* 31 3FAITFRA,7500,"qu'est-ce qu'ils ont fait","pour la france?"
|
||||||
* 32 3PASMILI,7500,"les trois quarts du temps, y z'ont","pas fait leur service miliaire"
|
* 32 3PASMILI,7500,"les trois quarts du temps, y z'ont","pas fait leur service miliaire"
|
||||||
|
@ -206,11 +339,62 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
|
||||||
* 36 fx_dzoin,7500,"",""
|
* 36 fx_dzoin,7500,"",""
|
||||||
* 37 fx_dehem,7500,"",""
|
* 37 fx_dehem,7500,"",""
|
||||||
* 38 fx_dehem,10000,"",""
|
* 38 fx_dehem,10000,"",""
|
||||||
* '
|
|
||||||
|
snd30 asc '30'
|
||||||
|
dw 217
|
||||||
|
str 'ces beaux-parleurs'
|
||||||
|
str 'de la t'8e'l'8e'vision?'
|
||||||
|
snd31 asc '31'
|
||||||
|
dw 217
|
||||||
|
str 'qu'27'est-ce qu'27'ils ont fait'
|
||||||
|
str 'pour la france?'
|
||||||
|
snd32 asc '32'
|
||||||
|
dw 217
|
||||||
|
str 'les trois quarts du temps, y z'27'ont'
|
||||||
|
str 'pas fait leur service militaire'
|
||||||
|
snd33 asc '33'
|
||||||
|
dw 217
|
||||||
|
str 'y sont meme un peu p'8e'd'8e' sur les bords!'
|
||||||
|
str ''
|
||||||
|
snd34 asc '34'
|
||||||
|
dw 217
|
||||||
|
str 'hey hey hey!'
|
||||||
|
str ''
|
||||||
|
snd35 asc '35'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd36 asc '36'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd37 asc '37'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd38 asc '38'
|
||||||
|
dw 290
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
|
||||||
|
|
||||||
* 40 4algefra,7500,"nous n'‚tions pas pour","l'alg‚rie francaise"
|
* 40 4algefra,7500,"nous n'‚tions pas pour","l'alg‚rie francaise"
|
||||||
* 41 4algesah,7500,"nous ‚tions pour l'alg‚rie et","le sahara francais!"
|
* 41 4algesah,7500,"nous ‚tions pour l'alg‚rie et","le sahara francais!"
|
||||||
* 42 4sousoff,7500,"les sous-off' de la coloniale,","dont j'‚tais"
|
* 42 4sousoff,7500,"les sous-off' de la coloniale,","dont j'‚tais"
|
||||||
* '
|
|
||||||
|
snd40 asc '40'
|
||||||
|
dw 217
|
||||||
|
str 'nous n'278e'tions pas pour'
|
||||||
|
str 'l'27'alg'8e'rie francaise'
|
||||||
|
snd41 asc '41'
|
||||||
|
dw 217
|
||||||
|
str 'nous '8e'tions pour l'27'alg'8e'rie et'
|
||||||
|
str 'le sahara francais!'
|
||||||
|
snd42 asc '42'
|
||||||
|
dw 217
|
||||||
|
str 'les sous-off de la coloniale'
|
||||||
|
str 'dont j'278e'tais'
|
||||||
|
|
||||||
* 50 5haine,7500,"qui a la haine de l'‚tranger?",""
|
* 50 5haine,7500,"qui a la haine de l'‚tranger?",""
|
||||||
* 51 5terrfra,7500,"la terre de france, elle est","d'abord aux fran‡ais"
|
* 51 5terrfra,7500,"la terre de france, elle est","d'abord aux fran‡ais"
|
||||||
* 52 5collabo,7500,"on nous parle des collabos,","y z'en ont fait moins"
|
* 52 5collabo,7500,"on nous parle des collabos,","y z'en ont fait moins"
|
||||||
|
@ -221,4 +405,54 @@ reference_peche ds nombre_paragraphes ; NUMERO DU PECHE ASSOCIE A CHAQUE PARAGRA
|
||||||
* 57 fx_glin1,7500,"",""
|
* 57 fx_glin1,7500,"",""
|
||||||
* 58 fx_glin2,7500,"",""
|
* 58 fx_glin2,7500,"",""
|
||||||
|
|
||||||
FIN_DATA = *
|
snd50 asc '50'
|
||||||
|
dw 217
|
||||||
|
str 'qui a la haine de l'278e'tranger?'
|
||||||
|
str ''
|
||||||
|
snd51 asc '51'
|
||||||
|
dw 217
|
||||||
|
str 'la terre de france, elle est'
|
||||||
|
str 'd'27'abord aux fran'8d'ais'
|
||||||
|
snd52 asc '52'
|
||||||
|
dw 217
|
||||||
|
str 'on nous parle des collabos'
|
||||||
|
str 'y z'27'en ont fait moins'
|
||||||
|
snd53 asc '53'
|
||||||
|
dw 217
|
||||||
|
str 'c'27'est Le Pen (de ch'27'val)'
|
||||||
|
str ''
|
||||||
|
snd54 asc '54'
|
||||||
|
dw 217
|
||||||
|
str 'est anti-fran'8d'ais'
|
||||||
|
str ''
|
||||||
|
snd55 asc '55'
|
||||||
|
dw 217
|
||||||
|
str 'nous sommes des a.....s'
|
||||||
|
str ''
|
||||||
|
snd56 asc '56'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd57 asc '57'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
snd58 asc '58'
|
||||||
|
dw 217
|
||||||
|
str ''
|
||||||
|
str ''
|
||||||
|
|
||||||
|
*--- Donnees Sound Tool Set
|
||||||
|
|
||||||
|
waveSTART ds 4 ; waveStart
|
||||||
|
waveSIZE ds 2 ; waveSize
|
||||||
|
waveFREQ dw 214 ; freqOffset
|
||||||
|
dw $0000 ; docBuffer
|
||||||
|
dw $0000 ; bufferSize
|
||||||
|
ds 4 ; nextWavePtr
|
||||||
|
dw 255 ; volSetting
|
||||||
|
|
||||||
|
tblSTR1 ds 10*2 ; pointeur sur la premi<6D>re phrase
|
||||||
|
tblSTR2 ds 10*2 ; pointeur sur la seconde phrase
|
||||||
|
tblSIZE ds 10*2 ; taille de chaque son
|
||||||
|
tblFREQ ds 10*2 ; frŽquence de chaque son
|
||||||
|
|
|
@ -1042,40 +1042,325 @@ mouse_off
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
* MUSIQUE - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
* musique
|
||||||
|
|
||||||
musique
|
musique jsr init_musique
|
||||||
|
|
||||||
|
lda #1
|
||||||
|
sta i
|
||||||
|
|
||||||
|
]lp lda i
|
||||||
|
jsr rythme
|
||||||
|
lda i
|
||||||
|
jsr charge_son
|
||||||
|
jsr clavier_sonore
|
||||||
|
jsr nettoie_musique
|
||||||
|
inc i
|
||||||
|
lda i
|
||||||
|
cmp #5
|
||||||
|
bcc ]lp
|
||||||
|
beq ]lp
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
* NETTOIE_MUSIQUE - OK
|
||||||
|
*-----------------------
|
||||||
|
* nettoie_musique
|
||||||
|
|
||||||
|
nettoie_musique
|
||||||
|
PushLong haBEAT
|
||||||
|
_DisposeHandle
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
]lp pha
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda haSND1+2,x
|
||||||
|
pha
|
||||||
|
lda haSND1,x
|
||||||
|
pha
|
||||||
|
_DisposeHandle
|
||||||
|
pla
|
||||||
|
inc
|
||||||
|
cmp j ; nombre de sons
|
||||||
|
bcc ]lp
|
||||||
|
rts
|
||||||
|
|
||||||
|
*-----------------------
|
||||||
|
* INIT_MUSIQUE - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
|
||||||
init_musique
|
init_musique
|
||||||
|
PushWord #$ffff
|
||||||
|
_ClearScreen
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
* RYTHME - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
* rythme(rythme%)
|
* rythme(rythme%)
|
||||||
|
|
||||||
rythme
|
*--- offset to beat number is +22
|
||||||
|
|
||||||
|
rythme sep #$20
|
||||||
|
ora #'0'
|
||||||
|
sta pBEAT+22
|
||||||
|
rep #$20
|
||||||
|
|
||||||
|
*---
|
||||||
|
|
||||||
|
lda #pBEAT
|
||||||
|
sta proOPEN+4 ; filename
|
||||||
|
|
||||||
|
jsl GSOS
|
||||||
|
dw $2010
|
||||||
|
adrl proOPEN
|
||||||
|
bcs ry_err2
|
||||||
|
|
||||||
|
lda proOPEN+2
|
||||||
|
sta proREAD+2
|
||||||
|
sta proCLOSE+2
|
||||||
|
|
||||||
|
ldy proEOF
|
||||||
|
sty proREAD+8
|
||||||
|
ldx proEOF+2
|
||||||
|
stx proREAD+10
|
||||||
|
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
phx
|
||||||
|
phy
|
||||||
|
PushWord myID
|
||||||
|
PushWord #%11000000_00001100
|
||||||
|
PushLong #0
|
||||||
|
_NewHandle
|
||||||
|
phd
|
||||||
|
tsc
|
||||||
|
tcd
|
||||||
|
lda [3]
|
||||||
|
sta ptrBEAT
|
||||||
|
sta proREAD+4
|
||||||
|
ldy #2
|
||||||
|
lda [3],y
|
||||||
|
sta ptrBEAT+2
|
||||||
|
sta proREAD+6
|
||||||
|
pld
|
||||||
|
pla
|
||||||
|
sta haBEAT
|
||||||
|
pla
|
||||||
|
sta haBEAT+2
|
||||||
|
bcs ry_err1
|
||||||
|
|
||||||
|
jsl GSOS
|
||||||
|
dw $2012
|
||||||
|
adrl proREAD
|
||||||
|
|
||||||
|
ry_err1 jsl GSOS
|
||||||
|
dw $2014
|
||||||
|
adrl proCLOSE
|
||||||
|
clc
|
||||||
|
ry_err2 rts
|
||||||
|
|
||||||
|
*-----------------------
|
||||||
|
* CHARGE_SON - OK
|
||||||
|
*-----------------------
|
||||||
|
* charge_son
|
||||||
|
|
||||||
|
*--- offset to sfxs number is +21
|
||||||
|
|
||||||
|
charge_son dec
|
||||||
|
asl ; pointe sur la table de pointeurs
|
||||||
|
tax ; par niveau (1..5)
|
||||||
|
lda tblSND,x
|
||||||
|
cmp #-1
|
||||||
|
bne ch_1
|
||||||
|
sec
|
||||||
rts
|
rts
|
||||||
|
ch_1 sta dpFROM ; pointe sur sndPARTx
|
||||||
|
|
||||||
*-----------------------
|
lda #1 ; on charge tous les sons maintenant
|
||||||
*
|
sta j
|
||||||
*-----------------------
|
|
||||||
|
]lp lda j
|
||||||
charge_son
|
dec
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
tax
|
||||||
|
lda (dpFROM),y
|
||||||
|
cmp #-1 ; fin d'une structure
|
||||||
|
bne ch_2
|
||||||
|
clc
|
||||||
rts
|
rts
|
||||||
|
ch_2 sta dpTO ; pointe sur l'entrŽe de la structure d'un son
|
||||||
|
|
||||||
|
lda (dpTO) ; nom du son
|
||||||
|
sta pSND+21
|
||||||
|
ldy #2
|
||||||
|
lda (dpTO),y
|
||||||
|
sta tblFREQ,x ; la frŽquence du son
|
||||||
|
|
||||||
|
lda dpTO
|
||||||
|
clc
|
||||||
|
adc #4
|
||||||
|
sta tblSTR1,x ; on pointe sur la premi<6D>re string
|
||||||
|
sta dpTO
|
||||||
|
lda (dpTO)
|
||||||
|
and #$ff
|
||||||
|
clc
|
||||||
|
adc tblSTR1,x
|
||||||
|
inc
|
||||||
|
sta tblSTR2,x
|
||||||
|
|
||||||
|
jsr charge_un_son
|
||||||
|
|
||||||
|
inc j
|
||||||
|
bra ]lp
|
||||||
|
|
||||||
|
*---
|
||||||
|
|
||||||
|
charge_un_son
|
||||||
|
lda #pSND
|
||||||
|
sta proOPEN+4 ; filename
|
||||||
|
|
||||||
|
jsl GSOS
|
||||||
|
dw $2010
|
||||||
|
adrl proOPEN
|
||||||
|
bcs cus_err2
|
||||||
|
|
||||||
|
lda proOPEN+2
|
||||||
|
sta proREAD+2
|
||||||
|
sta proCLOSE+2
|
||||||
|
|
||||||
|
ldy proEOF
|
||||||
|
sty proREAD+8
|
||||||
|
ldx proEOF+2
|
||||||
|
stx proREAD+10
|
||||||
|
|
||||||
|
pha
|
||||||
|
pha
|
||||||
|
phx
|
||||||
|
phy
|
||||||
|
PushWord myID
|
||||||
|
PushWord #%11000000_00001100
|
||||||
|
PushLong #0
|
||||||
|
_NewHandle
|
||||||
|
phd
|
||||||
|
tsc
|
||||||
|
tcd
|
||||||
|
|
||||||
|
lda j
|
||||||
|
dec
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda proEOF+1 ; nombre de pages
|
||||||
|
sta tblSIZE,y
|
||||||
|
|
||||||
|
lda [3]
|
||||||
|
sta ptrSND1,x
|
||||||
|
sta proREAD+4
|
||||||
|
ldy #2
|
||||||
|
lda [3],y
|
||||||
|
sta ptrSND1+2,x
|
||||||
|
sta proREAD+6
|
||||||
|
pld
|
||||||
|
pla
|
||||||
|
sta haSND1,x
|
||||||
|
pla
|
||||||
|
sta haSND1+2,x
|
||||||
|
bcs cus_err1
|
||||||
|
|
||||||
|
jsl GSOS
|
||||||
|
dw $2012
|
||||||
|
adrl proREAD
|
||||||
|
|
||||||
|
cus_err1 jsl GSOS
|
||||||
|
dw $2014
|
||||||
|
adrl proCLOSE
|
||||||
|
clc
|
||||||
|
cus_err2 rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
* CLAVIER_SONORE - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
|
||||||
clavier_sonore
|
clavier_sonore
|
||||||
rts
|
pha
|
||||||
|
_GetForeColor
|
||||||
|
pha
|
||||||
|
_GetBackColor
|
||||||
|
|
||||||
|
PushWord #0
|
||||||
|
_SetForeColor
|
||||||
|
PushWord #15
|
||||||
|
_SetBackColor
|
||||||
|
|
||||||
|
cl_loop pha
|
||||||
|
PushWord #%00000000_00001010
|
||||||
|
PushLong #taskREC
|
||||||
|
_GetNextEvent
|
||||||
|
pla
|
||||||
|
beq cl_loop
|
||||||
|
|
||||||
|
lda taskREC ; une touche ?
|
||||||
|
cmp #keyDownEvt
|
||||||
|
bne cl_loop
|
||||||
|
|
||||||
|
lda taskMESSAGE ; entre 0 et 9 ?
|
||||||
|
cmp #'0'
|
||||||
|
bne cl_1
|
||||||
|
|
||||||
|
_SetBackColor
|
||||||
|
_SetForeColor
|
||||||
|
rts ; on sort
|
||||||
|
|
||||||
|
cl_1 cmp #'1'
|
||||||
|
bcc cl_loop
|
||||||
|
cmp #'9'+1
|
||||||
|
bcs cl_loop
|
||||||
|
|
||||||
|
sec
|
||||||
|
sbc #'1'
|
||||||
|
cmp j ; dans la limite du nombre de sons
|
||||||
|
bcs cl_loop
|
||||||
|
|
||||||
|
asl ; affiche les cha”nes
|
||||||
|
tax
|
||||||
|
phx
|
||||||
|
lda tblSIZE,x
|
||||||
|
sta waveSIZE
|
||||||
|
lda tblFREQ,x
|
||||||
|
sta waveFREQ
|
||||||
|
|
||||||
|
txa
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
lda ptrSND1,y
|
||||||
|
sta waveSTART
|
||||||
|
lda ptrSND1+2,y
|
||||||
|
sta waveSTART+2
|
||||||
|
|
||||||
|
lda tblSTR1,x
|
||||||
|
ldy #22
|
||||||
|
jsr t
|
||||||
|
|
||||||
|
plx
|
||||||
|
lda tblSTR2,x
|
||||||
|
ldy #23
|
||||||
|
jsr t
|
||||||
|
|
||||||
|
PushWord #%0000_0000_1000_0000 ; play the sound
|
||||||
|
_FFStopSound
|
||||||
|
|
||||||
|
PushWord #$0701
|
||||||
|
PushLong #waveSTART
|
||||||
|
_FFStartSound
|
||||||
|
|
||||||
|
brl cl_loop
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
*
|
||||||
|
@ -1086,22 +1371,25 @@ mix
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
* STOP_SAMPLE - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
* stop_sample
|
||||||
|
|
||||||
stop_sample
|
stop_sample
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
* FIN_MUSIQUE - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
* fin_musique
|
||||||
|
|
||||||
fin_musique
|
fin_musique
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
*
|
* DATA_FICHIERS_MUSIQUE - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
* data_fichiers_musique
|
||||||
|
|
||||||
data_fichiers_musique
|
data_fichiers_musique
|
||||||
rts
|
rts
|
||||||
|
@ -1152,40 +1440,40 @@ fin
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
|
||||||
monCURSEUR
|
monCURSEUR
|
||||||
dw 16,4
|
dw 16,5
|
||||||
hex FF00000000000000 ; data
|
hex FF000000000000000000 ; data
|
||||||
hex F0F0000000000000
|
hex F0F00000000000000000
|
||||||
hex F00F000000000000
|
hex F00F0000000000000000
|
||||||
hex F000F00000000000
|
hex F000F000000000000000
|
||||||
hex F0000F000FFFFF00
|
hex F0000F000FFFFF000000
|
||||||
hex F00000F0F00000F0
|
hex F00000F0F00000F00000
|
||||||
hex F000000F00FFF00F
|
hex F000000F00FFF00F0000
|
||||||
hex F0000FFF00F0F00F
|
hex F0000FFF00F0F00F0000
|
||||||
hex F0F00F0F00F0F00F
|
hex F0F00F0F00F0F00F0000
|
||||||
hex FF0F00FF00F0F00F
|
hex FF0F00FF00F0F00F0000
|
||||||
hex F000F00FFFFFF00F
|
hex F000F00FFFFFF00F0000
|
||||||
hex 00000F00000000F0
|
hex 00000F00000000F00000
|
||||||
hex 000000FFFFFFFF00
|
hex 000000FFFFFFFF000000
|
||||||
hex 0FFFFFFF00F00000
|
hex 0FFFFFFF00F000000000
|
||||||
hex F00000000F000000
|
hex F00000000F0000000000
|
||||||
hex 0FFFFFFFF0000000
|
hex 0FFFFFFFF00000000000
|
||||||
|
|
||||||
hex FF00000000000000 ; mask
|
hex FF000000000000000000 ; mask
|
||||||
hex FFF0000000000000
|
hex FFF00000000000000000
|
||||||
hex FFFF000000000000
|
hex FFFF0000000000000000
|
||||||
hex FFFFF00000000000
|
hex FFFFF000000000000000
|
||||||
hex FFFFFF000FFFFF00
|
hex FFFFFF000FFFFF000000
|
||||||
hex FFFFFFF0FFFFFFF0
|
hex FFFFFFF0FFFFFFF00000
|
||||||
hex FFFFFFFFFFFFFFFF
|
hex FFFFFFFFFFFFFFFF0000
|
||||||
hex FFFFFFFFFFF0FFFF
|
hex FFFFFFFFFFF0FFFF0000
|
||||||
hex FFFFFF0FFFF0FFFF
|
hex FFFFFF0FFFF0FFFF0000
|
||||||
hex FF0FFFFFFFF0FFFF
|
hex FF0FFFFFFFF0FFFF0000
|
||||||
hex F000FFFFFFFFFFFF
|
hex F000FFFFFFFFFFFF0000
|
||||||
hex 00000FFFFFFFFFF0
|
hex 00000FFFFFFFFFF00000
|
||||||
hex 000000FFFFFFFF00
|
hex 000000FFFFFFFF000000
|
||||||
hex 0FFFFFFFFFF00000
|
hex 0FFFFFFFFFF000000000
|
||||||
hex FFFFFFFFFF000000
|
hex FFFFFFFFFF0000000000
|
||||||
hex 0FFFFFFFF0000000
|
hex 0FFFFFFFF00000000000
|
||||||
|
|
||||||
dw 1,1
|
dw 1,1
|
||||||
|
|
||||||
|
|
|
@ -122,9 +122,9 @@ fgRESTART = 2
|
||||||
tdc
|
tdc
|
||||||
sta myDP
|
sta myDP
|
||||||
|
|
||||||
lda #entryPOINT
|
lda #clavier_sonore
|
||||||
stal $300
|
stal $300
|
||||||
lda #^entryPOINT
|
lda #^clavier_sonore
|
||||||
stal $302
|
stal $302
|
||||||
|
|
||||||
*--- Version du systeme
|
*--- Version du systeme
|
||||||
|
@ -1162,6 +1162,28 @@ ptrTXT6 ds 4
|
||||||
ptrTXT7 ds 4
|
ptrTXT7 ds 4
|
||||||
ptrTXT8 ds 4
|
ptrTXT8 ds 4
|
||||||
|
|
||||||
|
haBEAT ds 4
|
||||||
|
ptrBEAT ds 4
|
||||||
|
|
||||||
|
haSND1 ds 4
|
||||||
|
haSND2 ds 4
|
||||||
|
haSND3 ds 4
|
||||||
|
haSND4 ds 4
|
||||||
|
haSND5 ds 4
|
||||||
|
haSND6 ds 4
|
||||||
|
haSND7 ds 4
|
||||||
|
haSND8 ds 4
|
||||||
|
haSND9 ds 4
|
||||||
|
ptrSND1 ds 4
|
||||||
|
ptrSND2 ds 4
|
||||||
|
ptrSND3 ds 4
|
||||||
|
ptrSND4 ds 4
|
||||||
|
ptrSND5 ds 4
|
||||||
|
ptrSND6 ds 4
|
||||||
|
ptrSND7 ds 4
|
||||||
|
ptrSND8 ds 4
|
||||||
|
ptrSND9 ds 4
|
||||||
|
|
||||||
temp ds 2
|
temp ds 2
|
||||||
|
|
||||||
saveLANGUAGE ds 2
|
saveLANGUAGE ds 2
|
||||||
|
@ -1351,14 +1373,19 @@ proVERS dw 1 ; pcount
|
||||||
*--- offset to image number is +19
|
*--- offset to image number is +19
|
||||||
*--- offset to language is +16
|
*--- offset to language is +16
|
||||||
*--- offset to text number is +22
|
*--- offset to text number is +22
|
||||||
|
*--- offset to beat number is +22
|
||||||
|
*--- offset to sfxs number is +21
|
||||||
|
|
||||||
|
* 1 2 3
|
||||||
|
* 23456789012345678901234567890123456789
|
||||||
|
|
||||||
pIMAGE strl '1/data/images/PIC1.PIC'
|
pIMAGE strl '1/data/images/PIC1.PIC'
|
||||||
pFOND strl '1/data/images/PIC10.PIC'
|
pFOND strl '1/data/images/PIC10.PIC'
|
||||||
pICONES strl '1/data/images/PIC11.PIC'
|
pICONES strl '1/data/images/PIC11.PIC'
|
||||||
pREF strl '1/data/textes/fr/REF1.TXT'
|
pREF strl '1/data/textes/fr/REF1.TXT'
|
||||||
pTXT strl '1/data/textes/fr/TXT1.TXT'
|
pTXT strl '1/data/textes/fr/TXT1.TXT'
|
||||||
|
pBEAT strl '1/data/musiques/BEAT1.SPL'
|
||||||
*--- offset to aventure number is +25
|
pSND strl '1/data/musiques/SND10.SND'
|
||||||
|
|
||||||
pGAME strl '0/ '
|
pGAME strl '0/ '
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user