Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-02-07 13:30:47 +00:00
Code Issues Projects Releases Wiki Activity

print finally done

Browse Source 
print + cprint are done / help started
This commit is contained in:
Antoine Vignau 2023-07-12 17:15:18 +02:00
parent ee37cb225d
commit e0ed709c26
6 changed files with 3987 additions and 4083 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.

7600
toutadisparu/sources/ToutADisparu_Output.txt
View File

File diff suppressed because it is too large Load Diff

2
toutadisparu/sources/_FileInformation.txt
View File

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

439
toutadisparu/sources/game.s
View File

@ -17,32 +17,30 @@ NB_INDEX = 512 ; nombre de fiches du jeu
NB_TEXTES = 512 ; nombre de textes du jeu NB_TEXTES = 512 ; nombre de textes du jeu
*----------------------- *-----------------------
* loadFONT * load_font
*----------------------- *-----------------------
loadFONT load_font
lda #pFONT jsr font_it
ldx ptrUNPACK+2
ldy ptrUNPACK
jsr loadFILE
bcc lf_ok bcc lf_ok
pha pha
PushLong #filSTR1 PushLong #fntSTR1
PushLong #errSTR2 PushLong #fntSTR2
PushLong #errSTR1 PushLong #errSTR3
PushLong #errSTR2 PushLong #errSTR2
_TLTextMountVolume _TLTextMountVolume
pla pla
brl meQUIT
lf_ok tya lf_ok rts
jsr unpackLZ4
PushLong ptrIMAGE *--- Really load the font
PushLong ptrFONT
PushLong #32768 font_it
_BlockMove PushWord #$0A00 ; Taille 10
PushWord #$0016 ; Courier
PushWord #0
_InstallFont
rts rts
*----------------------- *-----------------------
@ -343,7 +341,7 @@ it1 lda ptrTEXTES
xba xba
sta nbTEXTES2 ; pour comparer avec notre valeur sta nbTEXTES2 ; pour comparer avec notre valeur
lda dpFROM ; * += 2 lda dpFROM ; += 2
clc clc
adc #2 adc #2
sta dpFROM sta dpFROM
@ -426,8 +424,8 @@ get_textes2
* main * main
main main
jsr switch_320
jsr choix_aventure jsr choix_aventure
jsr help
jsr initialisation_relative jsr initialisation_relative
jmp fadeOUT jmp fadeOUT
@ -439,12 +437,6 @@ aventure ds 2
nombre_scenes ds 2 nombre_scenes ds 2
scene_actuelle ds 2 scene_actuelle ds 2
max_musiques ds 2 max_musiques ds 2
max_colonnes ds 2
max_lignes ds 2
largeur_caractere ds 2
hauteur_caractere ds 2
marge_gauche ds 2
marge_gauche_pixel ds 2
max_mots ds 2 max_mots ds 2
taille_image ds 2 ; not used taille_image ds 2 ; not used
i ds 2 i ds 2
@ -496,16 +488,23 @@ generique
_SetForeColor _SetForeColor
PushWord #0 PushWord #0
_SetBackColor _SetBackColor
* PushLong #gen_str0
* PushWord #8
* PushWord #8
* PushWord #0
* jsr print
@cprint #gen_str1;8 @cprint #gen_str1;8
@cprint #gen_str2;9 @cprint #gen_str2;9
@cprint #gen_str3;10 @cprint #gen_str3;10
@cprint #gen_str4;12 @cprint #gen_str4;12
@cprint #gen_str6;14 ; Apple IIgs @cprint #gen_str7;14 ; Apple IIgs
@cprint #gen_str7;15 ; version by nous :-) @cprint #gen_str8;15 ; version by nous :-)
@cprint #gen_str5;17 @cprint #gen_str5;17
@cprint #gen_str6;18
jsr waitEVENT jsr waitEVENT
@ -516,13 +515,14 @@ generique
*----------- *-----------
gen_str1 str 'un logiciel de Fran'8d'ois Coulon' gen_str1 asc 'Un logiciel de Fran'8d'ois Coulon'00
gen_str2 str '&' gen_str2 asc '&'00
gen_str3 str 'Sylvie Sarrat, Faustino Ribeiro, Laurent Cotton' gen_str3 asc 'Sylvie Sarrat, Faustino Ribeiro, Laurent Cotton'00
gen_str4 str 'programmation: Pascal Piat noiz'27': Erik Ecqier' gen_str4 asc 'Programmation : Pascal Piat - Noiz'27': Erik Ecqier'00
gen_str5 str 'Les logiciels d'27'en face 1992. Reproduction, location et revente interdites' gen_str5 asc 'Les logiciels d'27'en face 1992'00
gen_str6 str 'Version Apple IIgs par Brutal Deluxe Software' gen_str6 asc 'Reproduction, location et revente interdites'00
gen_str7 str 'Antoine Vignau & Olivier Zardini' gen_str7 asc 'Version Apple IIgs par Brutal Deluxe Software'00
gen_str8 asc 'Antoine Vignau & Olivier Zardini'00
*----------------------- *-----------------------
* TAG - OK * TAG - OK
@ -645,7 +645,8 @@ ca_ok tya
_GetBackPat _GetBackPat
lda #2 lda #2
jmp nowWAIT jsr nowWAIT
jmp fadeOUT
*----------- Wait for a click *----------- Wait for a click
@ -717,18 +718,18 @@ initialisation_absolue
initialisation_constantes initialisation_constantes
lda #3 lda #3
sta max_musiques sta max_musiques
lda #75 * lda #75
sta max_colonnes * sta max_colonnes
lda #18 * lda #18
sta max_lignes * sta max_lignes
lda #8 * lda #8
sta largeur_caractere * sta largeur_caractere
lda #11 * lda #11
sta hauteur_caractere * sta hauteur_caractere
lda #3 * lda #3
sta marge_gauche * sta marge_gauche
lda #3*8 ; marge_gauche * largeur_caractere * lda #3*8 ; marge_gauche * largeur_caractere
sta marge_gauche_pixel * sta marge_gauche_pixel
lda #NB_MOTS lda #NB_MOTS
sta max_mots sta max_mots
@ -906,96 +907,110 @@ surligner_mot
* PRINT * PRINT
*----------------------- *-----------------------
* print(texte$,colonne&,ligne&,mode) * print(texte$,colonne&,ligne&,mode)
* A= ptr to string * 1,s w return address
* X= column index * 3,s w mode
* Y= line index * 5,s w Y
* 7,s w X
* 9,s l text pointer
print max_colonnes = 80
pea ^print max_lignes = 20
pha ; ptr to string largeur_caractere = 8
hauteur_caractere = 10
phx ; push X for _MoveTo *---
print lda 11,s
sta dpFROM+2
lda 9,s
sta dpFROM
lda 7,s
sta printX
lda 5,s
sta printY
lda 3,s
sta printMODE
pha ; space for result printLOOP lda [dpFROM]
pha and #$ff
phy ; push ligne bne print1
PushWord hauteur_caractere ; 11
_Multiply printEXIT lda 1,s
pla ; get low result plx
plx ; skip high result plx
pha ; or lda 1,s sta 3,s pla plx
_MoveTo plx
_DrawString plx
sta 1,s
rts rts
*----------------------- * 1- Get address of character in ptrFONT
* NEWPRINT
*-----------------------
PushLong #paintParamPtr print1 pha
_PaintPixels
lda #8 lda printX
sta largeur_caractere asl
lda #11 tax
sta hauteur_caractere lda x_coord,x
pha
*--- Next X,Y on screen
lda ptrToDestPoint+2 ; next X
clc
adc largeur_caractere
sta ptrToDestPoint+2
cmp #screen_640
bcc ok_nextchar
stz ptrToDestPoint+2 ; new line
lda ptrToDestPoint
clc
adc hauteur_caractere
sta ptrToDestPoint
cmp #200
bcc ok_nextchar
stz ptrToDestPoint
ok_nextchar rts
paintParamPtr lda printY
adrl ptrToSourceLocInfo asl
adrl ptrToDestLocInfo tay
adrl ptrToSourceRect lda y_coord,y
adrl ptrToDestPoint pha
ds 2 ; mode _MoveTo
ds 4 ; maskHandle _DrawChar
ptrToSourceLocInfo ; this is where FONT is * 4- next character
dw mode_640
adrl $8000 inc dpFROM
dw 160 bne print2
dw 0 inc dpFROM+2
dw 0
dw 640 * 5- next X/Y in SHR
dw 200
print2 inc printX
ptrToDestLocInfo ; this is where to draw lda printX
dw mode_640 cmp #max_colonnes
adrl $e12000 bcc print3
dw 160
dw 0 lda 7,s ; reset X-coord
dw 0 sta printX
dw 640
dw 200 inc printY
lda printY
ptrToSourceRect ; this is the rect of the source char cmp #max_lignes
ds 2 ; y0 bcc print3
ds 2 ; x0
ds 2 ; y1
ds 2 ; x1
ptrToDestPoint ; and where to print on screen
ds 2 ; y0
ds 2 ; x0
brl printEXIT ; out of SHR screen, we exit
* 6- we loop
print3 brl printLOOP
*---
printMODE ds 2
printX ds 2
printY ds 2
*---
x_coord = *
]x = 0 ; Premi<6D>re ligne
lup max_colonnes
dw ]x
]x = ]x+largeur_caractere
--^
y_coord = *
]y = 0 ; Premi<6D>re ligne
lup max_lignes
dw ]y
]y = ]y+hauteur_caractere
--^
*----------------------- *-----------------------
* CPRINT - OK * CPRINT - OK
*----------------------- *-----------------------
@ -1003,71 +1018,48 @@ ptrToDestPoint ; and where to print on screen
* A= ptr to string * A= ptr to string
* Y= line index * Y= line index
cprint cprint pea ^cprint ; ptr to text
pha pha
phy pha ; X
phy ; Y
pea $0000 ; space for result pea $0000 ; mode
pea ^cprint ; pointer to string
pha
_StringWidth
lda mainWIDTH ; 320 - * pea $0000 ; space for result
* pea ^cprint ; pointer to string
* pha
* _CStringWidth
pea $0000 ; count nb of chars in the string
sta dpFROM
ldy #0
sep #$20
]lp lda (dpFROM),y
beq cprint1
iny
bne ]lp
cprint1 rep #$20 ; nb chars x 8 to get width
tya
asl
asl
asl
sta 1,s
*--- now, calculate where we should display it online
lda mainWIDTH ; 320 or 640
sec sec
sbc 1,s ; stringWidth in pixels sbc 1,s ; stringWidth in pixels
plx ; free stack
lsr ; /2 lsr ; /2
sta 1,s lsr ; /4
plx ; =W X lsr ; /8
ply lsr ; /16
pla sta 5,s ; fill X from above
jmp print jsr print
rts ; must be RTS
*-----------------------
* LES DONNES DE LA POLICE
*-----------------------
* on a 2 lignes de 67 caract<EFBFBD>res, 1 de 52
* les lignes sont ˆ Y=10, 20, 30
tblFONT_X = *
]ligne10 = 0
]index = 0
lup 67
dfb ]ligne10+]index
]index = ]index+2
--^
]ligne20 = 0
]index = 0
lup 67
dfb ]ligne20+]index
]index = ]index+2
--^
]ligne30 = 0
]index = 0
lup 52
dfb ]ligne30+]index
]index = ]index+2
--^
tblFONT_Y = *
]ligne10 = 10
lup 67
dfb ]ligne10
--^
]ligne20 = 20
lup 67
dfb ]ligne20
--^
]ligne30 = 30
lup 52
dfb ]ligne30
--^
*----------------------- *-----------------------
* ATTENTE - OK * ATTENTE - OK
*----------------------- *-----------------------
@ -1245,9 +1237,79 @@ palette
*----------------------- *-----------------------
* help * help
help help jsr switch_640
rts
ldx ptrFOND+2
ldy ptrFOND
jsr fadeIN
PushLong #old_pattern
_GetPenPat
PushLong #white_pattern ; black pattern
_SetPenPat
PushLong #white_pattern ; black pattern
_SetBackPat
PushWord #0
_GetForeColor
PushWord #0
_GetBackColor
PushWord #0
_SetForeColor
PushWord #15
_SetBackColor
PushLong #helpRECT
PushWord #3
PushWord #3
_PaintRRect
PushLong #helpRECT
PushWord #3
PushWord #3
_FrameRRect
lda aventure
cmp #2
beq help2
cmp #3
beq help3
@cprint #help_str11;3
@cprint #help_str12;5
bra help9
help2 @cprint #help_str21;3
@cprint #help_str22;5
bra help9
help3 @cprint #help_str31;3
@cprint #help_str32;5
help9 jsr waitEVENT
PushLong #old_pattern
_GetPenPat
_SetBackColor
_SetForeColor
jmp fadeOUT
*---
helpRECT dw 5,125,195,515
white_pattern
ds 32,$ff
help_str11 asc '1. 'd2' Heurts d'27'ouverture 'd300
help_str12 asc '- Fran'8d'ois Coulon et Sylvie Sarrat -'00
help_str21 asc '2. 'd2' Cheek to cheek & ashes to ashes 'd300
help_str22 asc '- Fran'8d'ois Coulon et Faustino Ribeiro -'00
help_str31 asc '3. 'd2' Un appel '88' la m'8e'moire 'd300
help_str32 asc '- Fran'8d'ois Coulon et Laurent Cotton -'00
*----------------------- *-----------------------
* MOTS_CLICABLES * MOTS_CLICABLES
*----------------------- *-----------------------
@ -1556,4 +1618,3 @@ nbTEXTES2 ds 2 ; nombre de textes indiqu
tblINDEX ds 4*NB_INDEX tblINDEX ds 4*NB_INDEX
tblTEXTES ds 4*NB_TEXTES tblTEXTES ds 4*NB_TEXTES

29
toutadisparu/sources/toutadisparu.s
View File

@ -47,12 +47,12 @@
jsr cprint jsr cprint
eom eom
@print mac *@print mac
lda #]1 * lda #]1
ldx #]2 * ldx #]2
ldy #]3 * ldy #]3
jsr print * jsr print
eom * eom
@val mac @val mac
PushWord ]2 PushWord ]2
@ -127,6 +127,9 @@ mode_640 = $80
screen_320 = 320 screen_320 = 320
screen_640 = 640 screen_640 = 640
ptr012000 = $012000
ptrE12000 = $e12000
*--- *---
TRUE = 1 TRUE = 1
@ -207,15 +210,13 @@ okMEM1
stx ptrFOND+2 ; l'image de fond stx ptrFOND+2 ; l'image de fond
rep #$10 rep #$10
*--- 64K pour les images compressees + l'image de la police *--- 64K pour les images compressees
jsr make64KB jsr make64KB
bcs koMEM bcs koMEM
sty ptrUNPACK sty ptrUNPACK
stx ptrUNPACK+2 stx ptrUNPACK+2
stx ptrFONT+2
stx ptrToSourceLocInfo+4 ; +2 is already set to $8000
*--- 64K pour les INDEX des textes *--- 64K pour les INDEX des textes
@ -266,7 +267,8 @@ okTOOL _HideMenuBar
* INITIALISATIONS * INITIALISATIONS
*---------------------------------------- *----------------------------------------
jsr loadFONT ; charge l'image de la police * jsr loadFONT ; charge l'image de la police
jsr load_font ; charge courier.10
jsr initNTP jsr initNTP
jsr randomNTP ; select a sequence 0-7 jsr randomNTP ; select a sequence 0-7
@ -1050,8 +1052,6 @@ ptrMENU adrl $8000 ; $8000: the menu picture
ptrFOND adrl $8000 ; $0000: copy/paste du desktop, $8000: the fond picture ptrFOND adrl $8000 ; $0000: copy/paste du desktop, $8000: the fond picture
ptrUNPACK ds 4 ; $0000: where the background picture is laoded ptrUNPACK ds 4 ; $0000: where the background picture is laoded
ptrFONT ds 4 ; $8000: the font picture
ptrINDEX ds 4 ; les index des textes ptrINDEX ds 4 ; les index des textes
ptrTEXTES ds 4 ; les textes ptrTEXTES ds 4 ; les textes
@ -1065,6 +1065,8 @@ saveLANGUAGE ds 2
verSTR1 str 'System 6.0.1 Required!' verSTR1 str 'System 6.0.1 Required!'
verSTR2 str 'Press a key to quit' verSTR2 str 'Press a key to quit'
fntSTR1 str 'Courier.10 font missing'
fntSTR2 str 'Please install it!'
tolSTR1 str 'Error while loading tools' tolSTR1 str 'Error while loading tools'
memSTR1 str 'Cannot allocate memory' memSTR1 str 'Cannot allocate memory'
filSTR1 str 'Cannot load file' filSTR1 str 'Cannot load file'
@ -1196,8 +1198,7 @@ loadERR jsr loadFILE2
*--- GS/OS data *--- GS/OS data
proERR proERR ds 2
ds 2
*--- For the game party *--- For the game party

BIN
toutadisparu/toutadisparu.2mg
View File

Binary file not shown.