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

v1

Browse Source
This commit is contained in:
Antoine Vignau 2024-02-07 19:25:57 +01:00
parent 2c52ccbc85
commit 930ce6c476
6 changed files with 11 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
labellezohra/labellezohra.2mg
View File

Binary file not shown.

BIN
labellezohra/sources/LaBelleZohra
View File

Binary file not shown.

BIN
labellezohra/sources/LaBelleZohra_ResourceFork.bin
View File

Binary file not shown.

78
labellezohra/sources/labellezohra.s
View File

@ -426,29 +426,17 @@ doco_3 PushLong haCONTROL ; on enlève le contrôle
* RAFRAICHIT LES PALETTES ET LA FENETRE * RAFRAICHIT LES PALETTES ET LA FENETRE
*---------------------------------------- *----------------------------------------
refreshME refreshME pea $0000 ; la palette
pea $0000 ; la palette
lda ptrCONTENT+2 lda ptrCONTENT+2
pha pha
lda ptrCONTENT lda ptrCONTENT
clc clc
adc #32256 adc #32256 ; after data + SCBs
pha pha
_SetColorTable _SetColorTable
* lda #$0fff ; LOGO - force les couleurs en attendant !
* stal $019e1e
* stal $e19e1e
PushLong #0 PushLong #0
_RefreshDesktop _RefreshDesktop
* PushWord #0
* PushWord #%11111111_11111111
* PushWord #0
* _FlushEvents
* pla
rts rts
*---------------------------------------- *----------------------------------------
@ -531,10 +519,7 @@ doLOAD lda texte_selectionne
beq doLOAD0 beq doLOAD0
rts rts
doLOAD0 doLOAD0 PushWord #30
* jsr suspendMUSIC ; NTP off
PushWord #30
PushWord #43 PushWord #43
PushLong #strLOADFILE PushLong #strLOADFILE
PushLong #0 PushLong #0
@ -547,7 +532,6 @@ doLOAD0
lda replyPTR lda replyPTR
bne doLOAD1 bne doLOAD1
loadKO99 rts loadKO99 rts
* jmp resumeMUSIC ; NTP on
doLOAD1 jsr copyPATH doLOAD1 jsr copyPATH
@ -568,33 +552,7 @@ doLOAD1 jsr copyPATH
dw $2014 dw $2014
adrl proCLOSE adrl proCLOSE
lda #$bcbc lda #$bdbd ; on rafraîchit
rts
*---
lda texte_selectionne
beq load_notxt
jsr ai_affiche ; texte selectionne = image 1..8 et c'est tout
bra load_exit
load_notxt jsr init_souris
PushLong ptrFOND ; 1. on met le fond
PushLong ptrCONTENT
PushLong #32768
_BlockMove
lda peche_selectionne
beq load_nosin
jsr affiche_peches
load_nosin lda objet_selectionne
beq load_exit
jsr affiche_objets
load_exit jsr resumeMUSIC
lda #$bcbc ; force le refresh
rts rts
*----------------------------------- Save *----------------------------------- Save
@ -605,10 +563,7 @@ doSAVE lda texte_selectionne
beq doSAVE0 beq doSAVE0
rts rts
doSAVE0 doSAVE0 PushWord #25
* jsr suspendMUSIC ; NTP off
PushWord #25
PushWord #36 PushWord #36
PushLong #strSAVEFILE PushLong #strSAVEFILE
PushLong #namePATH PushLong #namePATH
@ -620,9 +575,7 @@ doSAVE0
lda replyPTR lda replyPTR
bne doSAVE1 bne doSAVE1
saveKO99 saveKO99 rts
rts
* jmp resumeMUSIC
doSAVE1 jsr copyPATH doSAVE1 jsr copyPATH
@ -671,10 +624,7 @@ copyPATH sep #$20
*----------------------------------- Restart *----------------------------------- Restart
doRESTART doRESTART PushWord #0
* jsr suspendMUSIC ; NTP off
PushWord #0
PushWord #5 PushWord #5
PushLong #0 PushLong #0
pea $0000 pea $0000
@ -682,34 +632,26 @@ doRESTART
ora saveLANGUAGE ora saveLANGUAGE
pha pha
_AlertWindow _AlertWindow
* jsr resumeMUSIC
pla pla
beq re1 beq re1
lda #0 lda #0
rts rts
re1 lda #$bcbc re1 lda #$bcbc ; on relance le jeu
rts rts
*----------------------------------- Quit *----------------------------------- Quit
doQUIT doQUIT PushWord #0
* jsr suspendMUSIC ; NTP off
PushWord #0
PushWord #5 PushWord #5
PushLong #0 PushLong #0
pea $0000 pea $0000
lda #alertQUIT lda #alertQUIT
ora saveLANGUAGE ora saveLANGUAGE
pha pha
_AlertWindow _AlertWindow
pla pla
beq meQUIT beq meQUIT
rts rts
* jmp resumeMUSIC
*----------------------------------- Quit *----------------------------------- Quit

1
labellezohra/textes/LisezMoi Normal file
View File

File diff suppressed because one or more lines are too long

0
labellezohra/textes/_FileInformation.txt Normal file
View File