Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-06-29 05:29:28 +00:00
Code Issues Projects Releases Wiki Activity

affiche_texte works

Browse Source
This commit is contained in:
Antoine Vignau 2023-08-15 19:14:03 +02:00
parent 8534759ea5
commit a032f9492c
5 changed files with 4230 additions and 4244 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
toutadisparu/sources/ToutADisparu
View File

Binary file not shown.

8426
toutadisparu/sources/_Output.txt
View File

File diff suppressed because it is too large Load Diff

24
toutadisparu/sources/game.s
View File

@ -968,15 +968,15 @@ at_1 lda [dpTEXTES],y
cmp #0 cmp #0
bne at_1 ; jusqu'ˆ la fin du texte de la sc<73>ne bne at_1 ; jusqu'ˆ la fin du texte de la sc<73>ne
inx * inx
stx longueur_texte stx longueur_texte
* ligne_max$=MID$(texte$,i%,max_colonnes|) * ligne_max$=MID$(texte$,i%,max_colonnes|)
at_2 sep #$20 at_2 sep #$20
ldy #0
ldx i ldx i
ldy #0
]lp lda texte-1,x ]lp lda texte-1,x
sta ligne_max,y sta ligne_max,y
inx inx
@ -987,10 +987,10 @@ at_2 sep #$20
* return$=LEFT$(ligne_max$,INSTR(ligne_max$,"œ")) * return$=LEFT$(ligne_max$,INSTR(ligne_max$,"œ"))
ldx #0 ldx #0
]lp lda texte,x ]lp lda ligne_max,x ; was texte
sta ligne_return,x
cmp #texteRC cmp #texteRC
beq at_3 ; on a trouvŽ un RC beq at_3 ; on a trouvŽ un RC
sta ligne_return,x
inx inx
cpx #max_colonnes cpx #max_colonnes
bcc ]lp bcc ]lp
@ -1016,13 +1016,14 @@ at_case0 ldx #max_colonnes-1
dex dex
bne ]lp bne ]lp
at_4 inx at_4
inx
stx len_max stx len_max
* b$=b$+ligne_max$+SPACE$(max_colonnes|-LEN(ligne_max$)) * b$=b$+ligne_max$+SPACE$(max_colonnes|-LEN(ligne_max$))
ldx #0 ldx #1
]lp lda ligne_max,x ]lp lda ligne_max-1,x
jsr set_textefinal jsr set_textefinal
inx inx
cpx len_max cpx len_max
@ -1032,6 +1033,7 @@ at_4 inx
lda #max_colonnes lda #max_colonnes
sec sec
sbc len_max sbc len_max
dec
tax tax
sep #$20 sep #$20
jsr set_space jsr set_space
@ -1042,6 +1044,7 @@ at_4 inx
lda i lda i
clc clc
adc len_max adc len_max
dec ; NOW
sta i sta i
sep #$20 sep #$20
bra at_8 bra at_8
@ -1064,8 +1067,8 @@ at_default dec return
* ligne_max$=LEFT$(return$,return%) * ligne_max$=LEFT$(return$,return%)
ldx #0 ldx #1
]lp lda ligne_max,x ]lp lda ligne_return-1,x
jsr set_textefinal jsr set_textefinal
inx inx
cpx return cpx return
@ -1077,6 +1080,7 @@ at_default dec return
lda #max_colonnes lda #max_colonnes
sec sec
sbc return sbc return
dec
tax tax
sep #$20 sep #$20
jsr set_space jsr set_space
@ -1205,7 +1209,7 @@ skipME
mx %10 mx %10
set_space set_space
lda #texteSPACE lda #instrSPACE
]lp jsr set_textefinal ]lp jsr set_textefinal
dex dex
bne ]lp bne ]lp

24
toutadisparu/sources/toutadisparu.s
View File

@ -290,20 +290,17 @@ mainLOOP lda scene_actuelle
lda scene_actuelle lda scene_actuelle
jsr get_textes ; prend le texte de l'écran jsr get_textes ; prend le texte de l'écran
jsr affiche_texte ; affiche-le jsr affiche_texte ; affiche-le
jsr attente
lda scene_actuelle
jsr suite_forcee
sta fgSUITEFORCEE ; true if no words but 'suite'
*---------------------------------------- *----------------------------------------
* TASK MASTER * TASK MASTER (no more)
*---------------------------------------- *----------------------------------------
taskLOOP PushWord #0 taskLOOP inc VBLCounter0
PushWord #0
PushWord #$c000
PushWord #0
_HandleDiskInsert
pla
pla
inc VBLCounter0
PushWord #0 PushWord #0
PushWord #%11111111_11111111 PushWord #%11111111_11111111
@ -311,7 +308,7 @@ taskLOOP PushWord #0
_TaskMaster _TaskMaster
pla pla
beq taskLOOP beq taskLOOP
asl asl
tax tax
jsr (taskTBL,x) jsr (taskTBL,x)
@ -379,11 +376,6 @@ tblKEYADDRESS
* si dans le même rectangle, on traite * si dans le même rectangle, on traite
doMOUSEUP doMOUSEUP
lda scene_actuelle
jsr suite_forcee
sta fgSUITEFORCEE ; true if no words but 'suite'
stal $310
lda fgSUITEFORCEE lda fgSUITEFORCEE
cmp #FALSE cmp #FALSE
beq mup1 beq mup1

BIN
toutadisparu/toutadisparu.2mg
View File

Binary file not shown.