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

We have background colors!

Browse Source
This commit is contained in:
Antoine Vignau 2023-08-22 19:07:02 +02:00
parent bd6513723f
commit e9459fe233
6 changed files with 2700 additions and 2693 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.

1
toutadisparu/sources/_FileInformation.txt
View File

@ -0,0 +1 @@
ToutADisparu=Type(B3),AuxType(DB00),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)

5329
toutadisparu/sources/_Output.txt
View File

File diff suppressed because it is too large Load Diff

4
toutadisparu/sources/data.s
View File

@ -28,8 +28,8 @@ localPOINT ds 2 ; index du mot
len_max ds 2 ; longueur de ligne_max len_max ds 2 ; longueur de ligne_max
longueur_texte ds 2 ; nombre de caracteres du texte d'origine longueur_texte ds 2 ; nombre de caracteres du texte d'origine
return ds 2 ; premier RC dans une ligne return ds 2 ; premier RC dans une ligne
rvb5 ds 2 rvb1 ds 2 ; index 1/5/9/D
rvbA ds 2 rvb2 ds 2 ; index 2/6/A/E
index_mot ds 2 ; un autre index qui pointe index_mot ds 2 ; un autre index qui pointe
nb_mots ds 2 ; nombre de mots dans la scene nb_mots ds 2 ; nombre de mots dans la scene
mot_clique ds 2 ; index du mot cliquŽ mot_clique ds 2 ; index du mot cliquŽ

59
toutadisparu/sources/game.s
View File

@ -708,20 +708,8 @@ initialisation_tableaux
lda ptrINDEX+2 lda ptrINDEX+2
sta dpINDEX+2 sta dpINDEX+2
bra onsaute
*--- Initialise les valeurs du jeu
ldx #SUITE_DATA ; on efface tout
]lp stz |$0000,x
inx
cpx #FIN_DATA
bcc ]lp
*--- Initialise les valeurs RVB *--- Initialise les valeurs RVB
onsaute
ldx #1 ; RVB par dŽfaut ldx #1 ; RVB par dŽfaut
sep #$20 sep #$20
]lp lda #4 ]lp lda #4
@ -1166,9 +1154,8 @@ modeForeCopy = $0004 ; QDII Table 16-10
affiche_texte affiche_texte
jsr switch_640 ; switch to 640 jsr switch_640 ; switch to 640
bra skipME
* on s'occupe des couleurs d'index 5 et A * on s'occupe des couleurs de la palette
lda ptrFOND lda ptrFOND
sta dpFROM sta dpFROM
@ -1178,40 +1165,56 @@ affiche_texte
ldx scene_actuelle ldx scene_actuelle
sep #$20 sep #$20
lda rouge1-1,x lda rouge1-1,x
sta rvb5+1 asl
sta rvb1+1
lda vert1-1,x lda vert1-1,x
asl asl
asl asl
asl asl
asl asl
sta rvb5 asl
sta rvb1
lda bleu1-1,x lda bleu1-1,x
ora rvb5 asl
sta rvb5 ora rvb1
sta rvb1
lda rouge2-1,x lda rouge2-1,x
sta rvbA+1 asl
sta rvb2+1
lda vert2-1,x lda vert2-1,x
asl asl
asl asl
asl asl
asl asl
sta rvbA asl
sta rvb2
lda bleu2-1,x lda bleu2-1,x
ora rvbA asl
sta rvbA ora rvb2
sta rvb2
rep #$20 rep #$20
ldy #$7E00+$0A ; 5x2 lda rvb2
lda rvb5 ldy #$7E02
sta [dpFROM],y
ldy #$7E0A
sta [dpFROM],y
ldy #$7E12
sta [dpFROM],y
ldy #$7E1A
sta [dpFROM],y sta [dpFROM],y
ldy #$7E00+$14 ; Ax2 lda rvb1
lda rvbA ldy #$7E04
sta [dpFROM],y
ldy #$7E0C
sta [dpFROM],y
ldy #$7E14
sta [dpFROM],y
ldy #$7E1C
sta [dpFROM],y sta [dpFROM],y
skipME
* et on affiche enfin * et on affiche enfin

BIN
toutadisparu/toutadisparu.2mg
View File

Binary file not shown.