Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-06-11 19:29:31 +00:00
Code Issues Projects Releases Wiki Activity
e25f1b7de4
antoine-source/labellezohra/sources/game.s
Antoine Vignau e25f1b7de4 v+1
2023-08-30 16:42:20 +02:00

1187 lines
15 KiB
ArmAsm
Raw Blame History

*
* La Belle Zohra
*
* (c) 1992, Fran<EFBFBD>ois Coulon
* (c) 2023, Antoine Vignau & Olivier Zardini
*
mx %00
*-----------------------
* macros
*-----------------------
@carre mac
PushLong ]1
PushWord ]2
PushWord ]3
PushWord ]4
jsr carre
eom
@t mac
lda ]1
ldy ]2
jsr t
eom
@cree_fenetre mac
lda ]1
ldx ]2
jsr cree_fenetre
eom
*-----------------------
* DATA_ERROR - OK
*-----------------------
* data_error
data_error pha
PushLong #pgmSTR1
PushLong #pgmSTR2
PushLong #errSTR3
PushLong #errSTR2
_TLTextMountVolume
pla
sec
rts
*-----------------------
* LOAD_TEXTE - OK
*-----------------------
* load_texte
load_texte
cmp #nombre_objets+1
bcc lt_1
rts
lt_1 cmp #0
bne lt_2
brl data_error
lt_2 sep #$20
ora #'0'
sta pTXT+22
rep #$20
*---
lda #pTXT
sta proOPEN+4 ; filename
jsl GSOS
dw $2010
adrl proOPEN
bcs lt_err2
lda proOPEN+2
sta proREAD+2
sta proCLOSE+2
ldy proEOF
sty proREAD+8
ldx proEOF+2
stx proREAD+10
pha
pha
phx
phy
PushWord myID
PushWord #%11000000_00001100
PushLong #0
_NewHandle
phd
tsc
tcd
lda index
dec
asl
asl
tax
lda [3]
sta ptrTXT1,x
sta proREAD+4
ldy #2
lda [3],y
sta ptrTXT1+2,x
sta proREAD+6
pld
pla
pla
bcs lt_err1
jsl GSOS
dw $2012
adrl proREAD
lt_err1 jsl GSOS
dw $2014
adrl proCLOSE
clc
lt_err2 rts
*-----------------------
* LOAD_REFERENCE - OK
*-----------------------
* load_reference
load_reference
cmp #nombre_objets+1
bcc lr_1
rts
lr_1 cmp #0
bne lr_2
brl data_error
lr_2 sep #$20
ora #'0'
sta pREF+22
rep #$20
*---
lda #pREF
sta proOPEN+4 ; filename
jsl GSOS
dw $2010
adrl proOPEN
bcs lr_err2
lda proOPEN+2
sta proREAD+2
sta proCLOSE+2
ldy proEOF
sty proREAD+8
ldx proEOF+2
stx proREAD+10
pha
pha
phx
phy
PushWord myID
PushWord #%11000000_00001100
PushLong #0
_NewHandle
phd
tsc
tcd
lda index
dec
asl
asl
tax
lda [3]
sta ptrREF1,x
sta proREAD+4
ldy #2
lda [3],y
sta ptrREF1+2,x
sta proREAD+6
pld
pla
pla
bcs lr_err1
jsl GSOS
dw $2012
adrl proREAD
lr_err1 jsl GSOS
dw $2014
adrl proCLOSE
clc
lr_err2 rts
*-----------------------
* GESTION DES ICONES
*-----------------------
test_icone
lda #0 ; from 1
]lp pha
asl
asl
asl
tax
lda taskWHERE+2 ; compare le X
cmp peche_x,x
bcc icone_ko
lda peche_xx,x
cmp taskWHERE+2
bcc icone_ko
lda taskWHERE ; et le Y
cmp peche_y,x
bcc icone_ko
lda peche_yy,x
cmp taskWHERE
bcc icone_ko
pla ; on a notre ic™ne
inc
* sta instruction2
rts
icone_ko
pla
inc
cmp #nombre_objets-1 ; et non plus nombre_icones
bcc ]lp
rts
*---
efface_icone ; X is object
cpx #0
beq ei1
jsr set_icone
_HideCursor
PushLong #iconParamPtr
_PaintPixels
_ShowCursor
ei1 rts
*---
affiche_icone ; X is object
cpx #0
beq ai1
jsr set_icone
_HideCursor
PushLong #fondParamPtr
_PaintPixels
_ShowCursor
ai1 rts
*---
set_icone txa
dec
asl
asl
asl ; because we are 16-bit
tax
lda peche_y,x
sta iconToSourceRect
sta iconToDestPoint
lda peche_x,x
sta iconToSourceRect+2
sta iconToDestPoint+2
lda peche_yy,x
sta iconToSourceRect+4
lda peche_xx,x
sta iconToSourceRect+6
rts
*---
fondParamPtr
adrl fondToSourceLocInfo
adrl iconToDestLocInfo
adrl iconToSourceRect
adrl iconToDestPoint
dw $0000 ; mode copy
ds 4
iconParamPtr
adrl iconToSourceLocInfo
adrl iconToDestLocInfo
adrl iconToSourceRect
adrl iconToDestPoint
dw $0000 ; mode copy
ds 4
fondToSourceLocInfo
dw mode_320 ; mode 320
ds 4 ; ptrFOND - $0000 on entry, high set after _NewHandle
dw 160
dw 0,0,199,319
iconToSourceLocInfo
dw mode_320 ; mode 320
adrl $8000 ; ptrICON - $8000 on entry, high set after _NewHandle
dw 160
dw 0,0,199,319
iconToDestLocInfo
dw mode_320 ; mode 320
adrl ptrE12000
dw 160
dw 0,0,199,319
iconToSourceRect
dw 3,0,109,272
iconToDestPoint
dw 3,0
*-----------------------
* set_language
*-----------------------
set_language
PushWord #0
PushWord #$29
_ReadBParam
pla
cmp #20
bcc st_ok
rts
* index
* TEXTES : +16
st_ok jsr st_setit ; try IIgs language
bcc st_ok99
lda #0 ; if not, try EN US
jsr st_setit
bcc st_ok99
lda #2 ; it not, force FR - It always exists
jsr st_setit
st_ok99 rts
*---
st_setit sta saveLANGUAGE
asl
tax
lda tblLANG,x
sta pREF+16
sta pTXT+16
lda #pREF ; check file exists
sta proOPEN+4
jsl GSOS
dw $2010
adrl proOPEN
bcs st_setit99
lda proOPEN+2
sta proCLOSE+2
jsl GSOS
dw $2014
adrl proCLOSE
st_setit99 rts
*---
tblLANG asc 'us' ; 0
asc 'uk'
asc 'fr' ; 2
asc 'nl'
asc 'es' ; 4
asc 'it'
asc 'de' ; 6
asc 'se'
asc 'us'
asc 'ca'
asc 'nl'
asc 'he'
asc 'jp'
asc 'ar'
asc 'gr'
asc 'tr'
asc 'fi'
asc 'ta'
asc 'hi'
asc 'us' ; 19
*-----------------------
* XX - OK
*-----------------------
xx
rts
*-----------------------
* MAIN - OK
*-----------------------
main
rts
*-----------------------
* VIGIL - OK
*-----------------------
* vigil(max_x%,max_y%,max_xx%,max_yy%,sauvegarde!)
vigil
rts
*-----------------------
* TEST_FIN - OK
*-----------------------
teste_fin lda paragraphes_lus
sec
sbc pointeur_paragraphes
cmp #1
bne tf_99
jmp the_end
tf_99 rts
*-----------------------
*
*-----------------------
demande_objet
rts
*-----------------------
*
*-----------------------
demande_peche
rts
*-----------------------
*
*-----------------------
recherche_references
rts
*-----------------------
*
*-----------------------
affiche_image
rts
*-----------------------
* SAUVEGARDE - OK
*-----------------------
* sauvegarde
sauvegarde
rts
*-----------------------
* CHARGEMENT - OK
*-----------------------
* chargement
chargement
rts
*-----------------------
* THE_END - OK
*-----------------------
* the_end
the_end
@cree_fenetre #9;pointeur_paragraphes
jsr pre_scrolling
PushWord #0
_ClearScreen
lda #TRUE
sta fgTHEEND
rts
*-----------------------
* PRE_SCROLLING
*-----------------------
* pre_scrolling
pre_scrolling
sep #$20
ldx paragraphe
lda #TRUE
sta paragraphe_lu,x
rep #$20
inc paragraphes_lus
* LOGO
rts
*-----------------------
*
*-----------------------
scrolling
rts
*-----------------------
*
*-----------------------
verif
rts
*-----------------------
* INIT - OK
*-----------------------
* init
init PushWord #0
_ClearScreen
jsr init_resolution
jsr mouse_off
jmp init_routines
*-----------------------
* INIT2 - OK
*-----------------------
init2 jsr init_objets
jsr init_peches
jsr init_icones
jsr init_indicateurs
jsr init_fenetres
jsr init_souris
jsr init_texte
jsr chargement
jmp mouse_on
*-----------------------
* INIT_RESOLUTION - OK
*-----------------------
init_resolution
rts
*-----------------------
* INIT_INDICATEURS - OK
*-----------------------
* init_indicateurs
init_indicateurs
sep #$20
ldx #0
]lp stz indicateurTEXT,x
stz indicateur,x
inx
cpx #nombre_indicateurs
bcc ]lp
ldx #0
]lp stz paragraphe_lu,x
stz indicateur_paragraphes,x
stz indicateur_paragraphes_prealables,x
inx
cpx #nombre_paragraphes
bcc ]lp
ldx #0
lda #TRUE
sta indicateur,x
rep #$20
rts
*-----------------------
* INIT_OBJETS - OK
*-----------------------
* init_objets
init_objets
stz ancien_objet
rts
*-----------------------
* INIT_PECHES - OK
*-----------------------
* init_peches
init_peches
rts
*-----------------------
* INIT_ICONES - OK
*-----------------------
* init_icones
init_icones
PushWord #0
_ClearScreen
@loadfile #pFOND;ptrFOND
@loadfile #pICONES;ptrICONES
rts
*-----------------------
* INIT_ROUTINES - OK
*-----------------------
* init_routines
init_routines
rts
*-----------------------
* INIT_FENETRES - OK
*-----------------------
* init_fenetres
init_fenetres
rts
*-----------------------
* INIT_SOURIS - OK
*-----------------------
* init_souris
init_souris
PushLong #monCURSEUR
_SetCursor
rts
*-----------------------
* DATAS_INIT - OK
*-----------------------
* datas_init
datas_init
rts
*-----------------------
* INIT_TEXTE - OK
*-----------------------
* init_texte
init_texte
lda #1
]lp sta index
lda index ; fait patienter
jsr presentation
lda index ; charge le texte
jsr load_texte
lda index ; charge la rŽfŽrence
jsr load_reference
lda #4
jsr nowWAIT
lda index
inc
cmp #nombre_objets+1
bcc ]lp
rts
*-----------------------
* INIT_INDICATEURS_TEXTE
*-----------------------
* init_indicateurs_texte
init_indicateurs_texte
sep #$20
ldx #0
]lp stz paragraphe,x
inx
cpx #nombre_paragraphes
bcc ]lp
rep #$20
stz pointeur_paragraphes
stz paragraphes_lus
* LOGO
rts
*-----------------------
*
*-----------------------
lookindex
rts
*-----------------------
* PRESENTATION - OK
*-----------------------
* presentation
* A: numŽro du texte
presentation
cmp #nombre_objets+1
bcc pr_1
rts
pr_1 cmp #0
beq pr_2
pha
PushWord #0
_ClearScreen
pla
dec
asl
tax
jsr (tbl_pres,x)
pr_2 rts
*---
tbl_pres da pr_case_1
da pr_case_2
da pr_case_3
da pr_case_4
da pr_case_5
da pr_case_6
da pr_case_7
da pr_case_8
*---
pr_case_1 @carre #prSTR11;#100;#80;#$0771
@carre #prSTR12;#100;#120;#$0774
PushWord #15
_SetForeColor
PushWord #0
_SetBackColor
@t #prSTR13;#21
@t #prSTR14;#22
@t #prSTR15;#23
rts
pr_case_2 @carre #prSTR21;#25;#20;#$0437
rts
pr_case_3 @carre #prSTR31;#25;#180;#$0275
rts
pr_case_4 @carre #prSTR41;#100;#0;#$0743
rts
pr_case_5 @carre #prSTR51;#150;#20;#$0743
@carre #prSTR52;#50;#100;#$0743
@carre #prSTR53;#70;#180;#$0177
rts
pr_case_6 @carre #prSTR61;#0;#100;#$0607
@carre #prSTR62;#20;#150;#$0607
rts
pr_case_7 @carre #prSTR71;#0;#99;#$0073
PushWord #15
_SetForeColor
PushWord #0
_SetBackColor
@t #prSTR72;#20
@t #prSTR73;#21
@t #prSTR74;#22
@t #prSTR75;#23
rts
pr_case_8 @carre #prSTR81;#100;#180;#$0555
rts
*---
prSTR11 str 'la belle zohra'
prSTR12 str '(morceaux de bravoure)'
prSTR13 str 'fran'8d'ois coulon'
prSTR14 str 'les logiciels d'27'en face 1992'
prSTR15 str 'reproduction interdite'
prSTR21 str 'graphismes faustino ribeiro'
prSTR31 str 'programmation pascal piat'
prSTR41 str 'musique erik ecqier'
prSTR51 str 'un grand merci '88':'
prSTR52 str 'emmanuel talmy'
prSTR53 str 'sans qui ce logiciel... etc.'
prSTR61 str 'miss zohra c'8e'lestibus est habill'8e'e...'
prSTR62 str '...par aristide aristibus'
prSTR71 str 8e'crit et r'8e'alis'8e' par fran'8d'ois coulon'
prSTR72 str 'Version Apple IIgs'
prSTR73 str 'par'
prSTR74 str 'Brutal Deluxe Software'
prSTR75 str 'Antoine Vignau & Olivier Zardini'
prSTR81 str 88' la famille paspire...'
*-----------------------
* CARRE
*-----------------------
* carre(texte$,x%,y%,couleur$)
* 3,s word : RGB color
* 5,s word : y
* 7,s word : x
* 9,s long : @text
* couleur$ est pour le carrŽ
* le texte est toujours en jaune
carre lda 5,s
sta carreRECT
clc
adc #12
sta carreRECT+4
lda 7,s
sta carreRECT+2
clc
adc #12
sta carreRECT+6
lda 9,s
sta dpFROM
lda 11,s
sta dpFROM+2
*--- la couleur du GS
lda 3,s ; R
and #$0f00
asl
sta carreRGB
lda 3,s ; G
and #$00f0
asl
ora carreRGB
sta carreRGB
lda 3,s ; B
and #$000f
asl
ora carreRGB
sta carreRGB
*--- draw square
PushWord #0 ; on met du RGB
PushWord index
PushWord carreRGB
_SetColorEntry
ldx index
lda carreRECT ; la couleur si > 100
cmp #100+1
bcs carre_1
ldx #8 ; le rose sinon
carre_1 phx
_SetSolidPenPat
lda carreRECT+2
pha
lda carreRECT
pha
_MoveTo
PushLong #carreRECT
_PaintRect
*--- print text in bold typeface
pha
_GetTextFace
pha
_GetForeColor
pha
_GetBackColor
PushWord #%00000000_00000001 ; bold
_SetTextFace
PushWord #15
_SetForeColor
PushWord #0
_SetBackColor
lda carreRECT+2
clc
adc #15
pha
lda carreRECT
clc
adc #8
pha
_MoveTo
PushLong dpFROM
_DrawString
_SetBackColor
_SetForeColor
_SetTextFace ; restore
carreEXIT lda 1,s
plx
plx
plx
plx
plx
sta 1,s
rts
*---
carreRGB ds 2 ; couleur du carre (4 bits)
carreRECT ds 2 ; y0
ds 2 ; x0
ds 2 ; y0+12
ds 2 ; y0+12
*-----------------------
* RAMDISK - OK
*-----------------------
ramdisk
rts
*-----------------------
*
*-----------------------
shoot_text
rts
*-----------------------
*
*-----------------------
shoot_ligne
rts
*-----------------------
* CREE_FENETRE
*-----------------------
* cree_fenetre(objet%,paragraphe%)
* A : objet
* X : paragraphe
cree_fenetre
rts
*-----------------------
*
*-----------------------
* display_text(ligne%,niveau%)
display_text
rts
*-----------------------
* ICE_LOAD - OK
*-----------------------
* ice_load(fichier$)
ice_load
rts
*-----------------------
* ICE_DISP - OK
*-----------------------
* ice_disp(adresse_image%)
ice_disp
rts
*-----------------------
* PALETTE - OK
*-----------------------
* palette(palette$)
palette
rts
*-----------------------
*
*-----------------------
hide_screen
rts
*-----------------------
*
*-----------------------
show_screen
rts
*-----------------------
*
*-----------------------
hide_screen2
rts
*-----------------------
*
*-----------------------
show_screen2
rts
*-----------------------
* MOUSE_ON - OK
*-----------------------
* mouse_on
mouse_on
_ShowCursor
rts
*-----------------------
* MOUSE_OFF - OK
*-----------------------
* mouse_off
mouse_off
_HideCursor
rts
*-----------------------
*
*-----------------------
musique
rts
*-----------------------
*
*-----------------------
init_musique
rts
*-----------------------
*
*-----------------------
* rythme(rythme%)
rythme
rts
*-----------------------
*
*-----------------------
charge_son
rts
*-----------------------
*
*-----------------------
clavier_sonore
rts
*-----------------------
*
*-----------------------
* mix(numero_son%)
mix
rts
*-----------------------
*
*-----------------------
stop_sample
rts
*-----------------------
*
*-----------------------
fin_musique
rts
*-----------------------
*
*-----------------------
data_fichiers_musique
rts
*-----------------------
* T - OK
*-----------------------
* t(ligne%,texte$)
* A: @texte$
* Y: ligne%
t sty theY
PushWord #^t ; pointer to string
pha
PushWord #0 ; get string length
PushWord #^t
pha
_StringWidth ; return left on stack
lda #320 ; why 160?
sec
sbc 1,s
bpl t1
lda #0
t1 lsr
sta 1,s ; X
lda theY ; pour MoveTo
asl
asl
asl
pha ; Y
_MoveTo
_DrawString
rts
*-----------------------
* FIN - OK
*-----------------------
fin
rts
*-----------------------
* MON BEAU CURSEUR
*-----------------------
monCURSEUR
dw 16,4
hex 0000000000000000 ; data
hex 00000000000000F0
hex 000000000000FFF0
hex 000000000000F0F0
hex 0000000000FFF0F0
hex 00000000FFF00FF0
hex 000000FFF0000F00
hex 0000FFF00000FF00
hex 000FF0000000F000
hex 00FF0000000FF000
hex 00F00000000F0000
hex 00F0000000FF0000
hex 00F0000000F00000
hex 00F000000FF00000
hex 00000000FF000000
hex 0000FFFFF0000000
hex 0000000000000000 ; mask
hex 0000000000000FF0
hex 00000000000FFFF0
hex 000000000FFF0F00
hex 0000000FFF00FF00
hex 00000FFF0000F000
hex 000FFF00000FF000
hex 00FF0000000F0000
hex 0FF0000000FF0000
hex 0F00000000F00000
hex 0F0000000FF00000
hex 0F0000000F000000
hex 0F000000FF000000
hex 0FF0000FF0000000
hex 00FFFFFF00000000
hex 0000000000000000
dw 2,14
*--- The end
Reference in New Issue View Git Blame Copy Permalink