mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-15 00:29:33 +00:00
v1
Tout à disparu is finished!
This commit is contained in:
parent
51784cc37b
commit
aa5b19ccea
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -1122,6 +1122,7 @@ at_10 clc
|
||||||
adc #1
|
adc #1
|
||||||
lsr
|
lsr
|
||||||
sta printY ; output line
|
sta printY ; output line
|
||||||
|
sta motY
|
||||||
asl
|
asl
|
||||||
tax
|
tax
|
||||||
lda y_coord,x
|
lda y_coord,x
|
||||||
|
@ -1342,6 +1343,7 @@ clic_mot
|
||||||
lsr
|
lsr
|
||||||
lsr
|
lsr
|
||||||
lsr
|
lsr
|
||||||
|
sta motX
|
||||||
pha
|
pha
|
||||||
|
|
||||||
lda taskWHERE ; Y
|
lda taskWHERE ; Y
|
||||||
|
@ -1351,7 +1353,12 @@ clic_mot
|
||||||
adc #9
|
adc #9
|
||||||
asl
|
asl
|
||||||
tax
|
tax
|
||||||
|
lda y_text2,x
|
||||||
|
clc
|
||||||
|
adc motY
|
||||||
|
sta motY ; la ligne
|
||||||
lda y_text,x
|
lda y_text,x
|
||||||
|
sta motOFFSET ; l'offset dans le texte
|
||||||
clc
|
clc
|
||||||
adc 1,s
|
adc 1,s
|
||||||
tax
|
tax
|
||||||
|
@ -1362,10 +1369,54 @@ clic_mot
|
||||||
bne tc_2
|
bne tc_2
|
||||||
tc_ko sec ; pas de mot
|
tc_ko sec ; pas de mot
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
*--- on a un mot
|
||||||
|
|
||||||
tc_2 ldx mot_clique ; on sauvegarde l'ancien mot
|
tc_2 ldx mot_clique ; on sauvegarde l'ancien mot
|
||||||
stx mot_ancien
|
stx mot_ancien
|
||||||
sta mot_clique ; et le nouveau
|
sta mot_clique ; et le nouveau
|
||||||
clc ; on a un mot
|
|
||||||
|
lda motOFFSET ; on en a encore besoin
|
||||||
|
clc
|
||||||
|
adc #texte_final
|
||||||
|
sta dpFROM
|
||||||
|
|
||||||
|
*- on cherche le dŽbut
|
||||||
|
|
||||||
|
ldy motX
|
||||||
|
]lp cpy #0 ; condition de sortie : on est ˆ gauche
|
||||||
|
beq tc_debut
|
||||||
|
lda (dpFROM),y
|
||||||
|
and #$ff
|
||||||
|
cmp #instrSPACE
|
||||||
|
beq tc_debutok
|
||||||
|
dey
|
||||||
|
bra ]lp
|
||||||
|
|
||||||
|
tc_debutok iny
|
||||||
|
tc_debut sty motX ; on a le debut
|
||||||
|
|
||||||
|
ldx #0
|
||||||
|
sep #$20
|
||||||
|
]lp cpy #max_colonnes
|
||||||
|
bcs tc_fin
|
||||||
|
lda (dpFROM),y
|
||||||
|
cmp #instrSPACE
|
||||||
|
beq tc_fin
|
||||||
|
sta mot,x
|
||||||
|
iny
|
||||||
|
inx
|
||||||
|
bne ]lp ; on a recopiŽ le mot
|
||||||
|
|
||||||
|
tc_fin stz mot,x ; fin de cha”ne
|
||||||
|
rep #$20
|
||||||
|
|
||||||
|
lda motX ; corrige la marge
|
||||||
|
clc
|
||||||
|
adc #marge_gauche
|
||||||
|
sta motX
|
||||||
|
|
||||||
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
@ -1377,7 +1428,7 @@ affiche_commentaire
|
||||||
cmp #0
|
cmp #0
|
||||||
bne ac_1
|
bne ac_1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
ac_1 dec ; prend la scene
|
ac_1 dec ; prend la scene
|
||||||
pha ; calcul l'index dans la dimension NB_MOTS
|
pha ; calcul l'index dans la dimension NB_MOTS
|
||||||
pha
|
pha
|
||||||
|
@ -1497,16 +1548,28 @@ commentRECT dw 182,16,192,623
|
||||||
* surligner_mot(texte$,mot$,pointeur_mot%,cycles)
|
* surligner_mot(texte$,mot$,pointeur_mot%,cycles)
|
||||||
|
|
||||||
surligner_mot
|
surligner_mot
|
||||||
pha
|
pha ; le nombre de cycles
|
||||||
|
|
||||||
_HideCursor
|
_HideCursor
|
||||||
|
|
||||||
|
pha ; save current mode
|
||||||
|
_GetTextMode
|
||||||
pla
|
pla
|
||||||
|
sta motOFFSET
|
||||||
|
|
||||||
|
PushWord #modeForeCopy
|
||||||
|
_SetTextMode
|
||||||
|
|
||||||
|
pla ; le nombre de cycles
|
||||||
|
|
||||||
]lp pha
|
]lp pha
|
||||||
jsr sm_blink
|
jsr sm_blink
|
||||||
pla
|
pla
|
||||||
dec
|
dec
|
||||||
bne ]lp
|
bne ]lp
|
||||||
|
|
||||||
|
PushWord motOFFSET
|
||||||
|
_SetTextMode
|
||||||
_ShowCursor
|
_ShowCursor
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
@ -1532,6 +1595,7 @@ sm_print PushLong #mot
|
||||||
|
|
||||||
motX ds 2
|
motX ds 2
|
||||||
motY ds 2
|
motY ds 2
|
||||||
|
motOFFSET ds 2
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
* PRINT - OK
|
* PRINT - OK
|
||||||
|
@ -1776,11 +1840,11 @@ y_text = *
|
||||||
]y = ]y+max_colonnes
|
]y = ]y+max_colonnes
|
||||||
--^
|
--^
|
||||||
|
|
||||||
y_text2 = * ; Offset in text page
|
y_text2 = *
|
||||||
]y = 0 ; Premi<6D>re ligne
|
]y = 0 ; Premi<6D>re ligne
|
||||||
lup max_lignes
|
lup max_lignes
|
||||||
dw ]y
|
dw ]y,]y,]y,]y,]y,]y,]y,]y,]y,]y
|
||||||
]y = ]y+max_colonnes
|
]y = ]y+1
|
||||||
--^
|
--^
|
||||||
|
|
||||||
*---
|
*---
|
||||||
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user