mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-29 05:29:28 +00:00
works and works
This commit is contained in:
parent
2cd5537f56
commit
117225fea4
|
@ -338,12 +338,6 @@ PROCEDURE initialisation_tableaux
|
||||||
CASE "#" !UN MOT CLICABLE?
|
CASE "#" !UN MOT CLICABLE?
|
||||||
scene|=ASC(LEFT$(ligne$,1)) !ON LIT LE NUMERO DE LA SCENE
|
scene|=ASC(LEFT$(ligne$,1)) !ON LIT LE NUMERO DE LA SCENE
|
||||||
'
|
'
|
||||||
|
|
||||||
0 1 2 3 4
|
|
||||||
01234567890123456789012345678901234567890
|
|
||||||
#1suite +1G0
|
|
||||||
#2plage +13Fred retourne sur la plage0
|
|
||||||
|
|
||||||
INC pointeur_mots|(scene|) !ET UN MOT EN PLUS!
|
INC pointeur_mots|(scene|) !ET UN MOT EN PLUS!
|
||||||
espace%=INSTR(ligne$," ",2) !ON REPERE LE CARACTERE ESPACE
|
espace%=INSTR(ligne$," ",2) !ON REPERE LE CARACTERE ESPACE
|
||||||
fonction_mot$(scene|,pointeur_mots|(scene|))=MID$(ligne$,2,espace%-2)
|
fonction_mot$(scene|,pointeur_mots|(scene|))=MID$(ligne$,2,espace%-2)
|
||||||
|
|
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -1 +1 @@
|
||||||
ToutADisparu=Type(00),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
ToutADisparu=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)
|
||||||
|
|
|
@ -809,7 +809,6 @@ doECOMM jsr next_index
|
||||||
|
|
||||||
doDIESE jsr next_index
|
doDIESE jsr next_index
|
||||||
dec
|
dec
|
||||||
sta localSCENE
|
|
||||||
tax ; la scene
|
tax ; la scene
|
||||||
|
|
||||||
sep #$20 ; un mot en plus
|
sep #$20 ; un mot en plus
|
||||||
|
@ -847,7 +846,7 @@ doDIESE jsr next_index
|
||||||
|
|
||||||
jsr next_index
|
jsr next_index
|
||||||
|
|
||||||
*--- Maintenant, on parcout le tableau jusqu'ˆ l'espace
|
*--- Maintenant, on parcout la cha”ne jusqu'ˆ l'espace
|
||||||
|
|
||||||
]lp jsr next_index
|
]lp jsr next_index
|
||||||
cmp #instrSPACE
|
cmp #instrSPACE
|
||||||
|
@ -879,6 +878,25 @@ doDIESE jsr next_index
|
||||||
jsr next_index
|
jsr next_index
|
||||||
|
|
||||||
lda localOFFSET ; 0/25/50 => 0/50/100
|
lda localOFFSET ; 0/25/50 => 0/50/100
|
||||||
|
asl
|
||||||
|
clc
|
||||||
|
adc localPOINT ; +=
|
||||||
|
tax
|
||||||
|
|
||||||
|
sep #$20
|
||||||
|
lda [dpINDEX] ; prend le mot sur 8-bit
|
||||||
|
sta aiguillage,x
|
||||||
|
rep #$20
|
||||||
|
|
||||||
|
jsr next_index
|
||||||
|
|
||||||
|
*--- Recopie la phrase si elle existe
|
||||||
|
|
||||||
|
jsr next_index
|
||||||
|
bne doDIESE1 ; on a une cha”ne
|
||||||
|
rts
|
||||||
|
|
||||||
|
doDIESE1 lda localOFFSET ; 0/25/50 => 0/50/100
|
||||||
asl
|
asl
|
||||||
pha
|
pha
|
||||||
lda localPOINT ; 0/1/2 => 0/2/4
|
lda localPOINT ; 0/1/2 => 0/2/4
|
||||||
|
@ -889,14 +907,17 @@ doDIESE jsr next_index
|
||||||
pla
|
pla
|
||||||
|
|
||||||
lda [dpINDEX] ; prend le mot sur 16-bit
|
lda [dpINDEX] ; prend le mot sur 16-bit
|
||||||
sta condition,x
|
sta phrase,x
|
||||||
|
|
||||||
jsr next_index
|
*--- Maintenant, on parcout la cha”ne jusqu'ˆ l'espace
|
||||||
|
|
||||||
|
]lp jsr next_index
|
||||||
|
cmp #instrSPACE
|
||||||
|
bne ]lp
|
||||||
|
rts
|
||||||
|
|
||||||
*--- Local data
|
*--- Local data
|
||||||
|
|
||||||
localSCENE ds 2 ; index de la scene
|
|
||||||
localOFFSET ds 2 ; offset de chaque rangŽe
|
localOFFSET ds 2 ; offset de chaque rangŽe
|
||||||
localPOINT ds 2 ; index du mot
|
localPOINT ds 2 ; index du mot
|
||||||
|
|
||||||
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user