mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-06 17:29:39 +00:00
pas top le centrage vertical
This commit is contained in:
parent
3a2335ca58
commit
1a8b008dad
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -22,6 +22,7 @@ tblTEXTES ds 4*NB_TEXTES
|
||||||
nbTEXTES ds 2
|
nbTEXTES ds 2
|
||||||
nbTEXTES2 ds 2 ; nombre de textes indiquŽ dans le fichier .TEX
|
nbTEXTES2 ds 2 ; nombre de textes indiquŽ dans le fichier .TEX
|
||||||
i ds 2 ; un index
|
i ds 2 ; un index
|
||||||
|
nb_lignes ds 2 ; nombre de lignes de texte (c'est pour centrer)
|
||||||
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
|
||||||
len_max ds 2 ; longueur de ligne_max
|
len_max ds 2 ; longueur de ligne_max
|
||||||
|
@ -52,10 +53,10 @@ ligne_commentaire ; la phrase de commentaire "mot" : explication
|
||||||
|
|
||||||
ligne_max ds max_colonnes ; une ligne du texte
|
ligne_max ds max_colonnes ; une ligne du texte
|
||||||
texte ds max_colonnes*max_lignes ; the text from the .TXT file
|
texte ds max_colonnes*max_lignes ; the text from the .TXT file
|
||||||
texte_final ds max_colonnes*max_lignes ; the final text - known as b$ in Atari ST
|
|
||||||
ds 2
|
|
||||||
texte_liens ds max_colonnes*max_lignes ; FALSE: not a link, TRUE est un mot cliquable
|
texte_liens ds max_colonnes*max_lignes ; FALSE: not a link, TRUE est un mot cliquable
|
||||||
texte_index ds max_colonnes*max_lignes ; numŽro du mot
|
texte_index ds max_colonnes*max_lignes ; numŽro du mot
|
||||||
|
texte_final ds max_colonnes*max_lignes ; the final text - known as b$ in Atari ST
|
||||||
|
ds 2
|
||||||
|
|
||||||
* Toujours en dŽcalŽ : index 1 dŽmarre ˆ 0 (NB_TEXTES est toujours > au nombre de sc<EFBFBD>nes)
|
* Toujours en dŽcalŽ : index 1 dŽmarre ˆ 0 (NB_TEXTES est toujours > au nombre de sc<EFBFBD>nes)
|
||||||
|
|
||||||
|
|
|
@ -457,10 +457,7 @@ tag_rect ds 2 ; y0
|
||||||
|
|
||||||
choix_aventure
|
choix_aventure
|
||||||
lda escape
|
lda escape
|
||||||
cmp #fgLOAD
|
cmp #fgRESTART
|
||||||
bne ca_1
|
|
||||||
rts
|
|
||||||
ca_1 cmp #fgRESTART
|
|
||||||
beq ca_restart
|
beq ca_restart
|
||||||
|
|
||||||
lda #pMENU ; premier chargement
|
lda #pMENU ; premier chargement
|
||||||
|
@ -488,7 +485,11 @@ ca_ok tya
|
||||||
|
|
||||||
*--- On arrive ici si restart
|
*--- On arrive ici si restart
|
||||||
|
|
||||||
ca_restart jsr switch_320
|
ca_restart lda escape
|
||||||
|
cmp #fgLOAD
|
||||||
|
beq ca_load
|
||||||
|
|
||||||
|
jsr switch_320
|
||||||
|
|
||||||
ldx ptrMENU+2
|
ldx ptrMENU+2
|
||||||
ldy ptrMENU
|
ldy ptrMENU
|
||||||
|
@ -507,6 +508,7 @@ ca_restart jsr switch_320
|
||||||
|
|
||||||
*--- PrŽpare le prŽfixe GS/OS 7 pour les images
|
*--- PrŽpare le prŽfixe GS/OS 7 pour les images
|
||||||
|
|
||||||
|
ca_load lda aventure
|
||||||
sep #$20 ; sauve
|
sep #$20 ; sauve
|
||||||
ora #'0'
|
ora #'0'
|
||||||
sta pathIMAGES+25
|
sta pathIMAGES+25
|
||||||
|
@ -518,7 +520,12 @@ ca_restart jsr switch_320
|
||||||
|
|
||||||
*---
|
*---
|
||||||
|
|
||||||
PushLong #old_pattern
|
lda escape
|
||||||
|
cmp #fgLOAD
|
||||||
|
bne ca_exit
|
||||||
|
rts
|
||||||
|
|
||||||
|
ca_exit PushLong #old_pattern
|
||||||
_GetBackPat
|
_GetBackPat
|
||||||
|
|
||||||
lda #2
|
lda #2
|
||||||
|
@ -950,7 +957,8 @@ texteRC = $9c
|
||||||
|
|
||||||
prepare_texte
|
prepare_texte
|
||||||
stz i ; on commence ˆ 0
|
stz i ; on commence ˆ 0
|
||||||
|
stz nb_lignes
|
||||||
|
|
||||||
lda #texte_final
|
lda #texte_final
|
||||||
sta dpTO
|
sta dpTO
|
||||||
|
|
||||||
|
@ -1088,7 +1096,7 @@ at_default ldx #0 ; ligne_max$=LEFT$(return$,return%)
|
||||||
cpx #max_colonnes
|
cpx #max_colonnes
|
||||||
bcc ]lp
|
bcc ]lp
|
||||||
|
|
||||||
noSPC2
|
noSPC2
|
||||||
|
|
||||||
* ADD i%,return%+1
|
* ADD i%,return%+1
|
||||||
|
|
||||||
|
@ -1098,7 +1106,6 @@ noSPC2
|
||||||
adc return
|
adc return
|
||||||
inc
|
inc
|
||||||
sta i
|
sta i
|
||||||
sep #$20
|
|
||||||
|
|
||||||
* UNTIL i%>=longueur_texte%
|
* UNTIL i%>=longueur_texte%
|
||||||
|
|
||||||
|
@ -1108,12 +1115,61 @@ at_8 rep #$20
|
||||||
sta dpTO
|
sta dpTO
|
||||||
sep #$20
|
sep #$20
|
||||||
|
|
||||||
|
inc nb_lignes
|
||||||
|
|
||||||
ldx i
|
ldx i
|
||||||
cpx longueur_texte
|
cpx longueur_texte
|
||||||
bcs at_9
|
bcs at_9
|
||||||
brl at_2 ; we loop
|
brl at_2 ; we loop
|
||||||
|
|
||||||
at_9 rep #$20
|
at_9 mx %10
|
||||||
|
|
||||||
|
*--- on centre le texte
|
||||||
|
|
||||||
|
lda #max_lignes ; on est au max, on ne fait rien
|
||||||
|
sec
|
||||||
|
sbc nb_lignes
|
||||||
|
cmp #2
|
||||||
|
bcs at_10
|
||||||
|
rep #$20
|
||||||
|
rts
|
||||||
|
|
||||||
|
mx %10
|
||||||
|
|
||||||
|
at_10 ldx #0 ; on remplit texte de blanc
|
||||||
|
lda #instrSPACE
|
||||||
|
]lp sta texte,x
|
||||||
|
inx
|
||||||
|
cpx #max_colonnes*max_lignes
|
||||||
|
bcc ]lp
|
||||||
|
|
||||||
|
rep #$20 ; calcul de la destination
|
||||||
|
lda #max_lignes
|
||||||
|
sec
|
||||||
|
sbc nb_lignes
|
||||||
|
lsr ; /2 pour les pairs/impairs
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda y_text2,x
|
||||||
|
tax
|
||||||
|
sep #$20
|
||||||
|
|
||||||
|
ldy #0 ; on recopie en dŽcalŽ
|
||||||
|
]lp lda texte_final,y
|
||||||
|
sta texte,x
|
||||||
|
iny
|
||||||
|
inx
|
||||||
|
cpx #max_colonnes*max_lignes
|
||||||
|
bcc ]lp
|
||||||
|
|
||||||
|
ldx #0 ; on fait une derni<6E>re copie
|
||||||
|
]lp lda texte,x
|
||||||
|
sta texte_final,x
|
||||||
|
inx
|
||||||
|
cpx #max_colonnes*max_lignes
|
||||||
|
bcc ]lp
|
||||||
|
|
||||||
|
rep #$20
|
||||||
rts
|
rts
|
||||||
|
|
||||||
*--- output dans texte final
|
*--- output dans texte final
|
||||||
|
@ -1690,7 +1746,7 @@ x_coord2 = * ; For centered texts
|
||||||
]x = ]x+largeur_caractere
|
]x = ]x+largeur_caractere
|
||||||
--^
|
--^
|
||||||
|
|
||||||
y_coord = *
|
y_coord = * ; For all texts
|
||||||
]y = 0 ; Premi<6D>re ligne
|
]y = 0 ; Premi<6D>re ligne
|
||||||
lup max_lignes
|
lup max_lignes
|
||||||
dw ]y
|
dw ]y
|
||||||
|
@ -1717,6 +1773,14 @@ y_text = *
|
||||||
]y = ]y+max_colonnes
|
]y = ]y+max_colonnes
|
||||||
--^
|
--^
|
||||||
|
|
||||||
|
y_text2 = * ; Offset in text page
|
||||||
|
]y = 0 ; Premi<6D>re ligne
|
||||||
|
lup max_lignes
|
||||||
|
dw ]y
|
||||||
|
]y = ]y+max_colonnes
|
||||||
|
--^
|
||||||
|
|
||||||
|
|
||||||
*---
|
*---
|
||||||
|
|
||||||
* Apple Atari
|
* Apple Atari
|
||||||
|
|
|
@ -337,11 +337,18 @@ doNOT
|
||||||
|
|
||||||
*---
|
*---
|
||||||
|
|
||||||
|
doCRASH
|
||||||
|
lda nb_lignes
|
||||||
|
brk $bd
|
||||||
|
|
||||||
|
*---
|
||||||
|
|
||||||
tblKEYVALUE
|
tblKEYVALUE
|
||||||
asc 'QqOoSs'
|
asc 'QqOoSs'
|
||||||
asc 'Rr'
|
asc 'Rr'
|
||||||
asc 'Zz'
|
asc 'Zz'
|
||||||
asc '?'
|
asc '?'
|
||||||
|
asc '*'
|
||||||
hex ff
|
hex ff
|
||||||
|
|
||||||
tblKEYADDRESS
|
tblKEYADDRESS
|
||||||
|
@ -349,6 +356,7 @@ tblKEYADDRESS
|
||||||
da doRESTART,doRESTART
|
da doRESTART,doRESTART
|
||||||
da doMUSIK,doMUSIK
|
da doMUSIK,doMUSIK
|
||||||
da help
|
da help
|
||||||
|
da doCRASH
|
||||||
|
|
||||||
*----------------------------------- Gestion du mouseUp
|
*----------------------------------- Gestion du mouseUp
|
||||||
* on compare les coordonnées avec celles du incontent
|
* on compare les coordonnées avec celles du incontent
|
||||||
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user