mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-01 00:41:39 +00:00
v1
This commit is contained in:
parent
2c52ccbc85
commit
930ce6c476
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -426,29 +426,17 @@ doco_3 PushLong haCONTROL ; on enlève le contrôle
|
|||
* RAFRAICHIT LES PALETTES ET LA FENETRE
|
||||
*----------------------------------------
|
||||
|
||||
refreshME
|
||||
pea $0000 ; la palette
|
||||
refreshME pea $0000 ; la palette
|
||||
lda ptrCONTENT+2
|
||||
pha
|
||||
lda ptrCONTENT
|
||||
clc
|
||||
adc #32256
|
||||
adc #32256 ; after data + SCBs
|
||||
pha
|
||||
_SetColorTable
|
||||
|
||||
* lda #$0fff ; LOGO - force les couleurs en attendant !
|
||||
* stal $019e1e
|
||||
* stal $e19e1e
|
||||
|
||||
PushLong #0
|
||||
_RefreshDesktop
|
||||
|
||||
* PushWord #0
|
||||
* PushWord #%11111111_11111111
|
||||
* PushWord #0
|
||||
* _FlushEvents
|
||||
* pla
|
||||
|
||||
rts
|
||||
|
||||
*----------------------------------------
|
||||
|
@ -531,10 +519,7 @@ doLOAD lda texte_selectionne
|
|||
beq doLOAD0
|
||||
rts
|
||||
|
||||
doLOAD0
|
||||
* jsr suspendMUSIC ; NTP off
|
||||
|
||||
PushWord #30
|
||||
doLOAD0 PushWord #30
|
||||
PushWord #43
|
||||
PushLong #strLOADFILE
|
||||
PushLong #0
|
||||
|
@ -547,7 +532,6 @@ doLOAD0
|
|||
lda replyPTR
|
||||
bne doLOAD1
|
||||
loadKO99 rts
|
||||
* jmp resumeMUSIC ; NTP on
|
||||
|
||||
doLOAD1 jsr copyPATH
|
||||
|
||||
|
@ -568,33 +552,7 @@ doLOAD1 jsr copyPATH
|
|||
dw $2014
|
||||
adrl proCLOSE
|
||||
|
||||
lda #$bcbc
|
||||
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
|
||||
lda #$bdbd ; on rafraîchit
|
||||
rts
|
||||
|
||||
*----------------------------------- Save
|
||||
|
@ -605,10 +563,7 @@ doSAVE lda texte_selectionne
|
|||
beq doSAVE0
|
||||
rts
|
||||
|
||||
doSAVE0
|
||||
* jsr suspendMUSIC ; NTP off
|
||||
|
||||
PushWord #25
|
||||
doSAVE0 PushWord #25
|
||||
PushWord #36
|
||||
PushLong #strSAVEFILE
|
||||
PushLong #namePATH
|
||||
|
@ -620,9 +575,7 @@ doSAVE0
|
|||
|
||||
lda replyPTR
|
||||
bne doSAVE1
|
||||
saveKO99
|
||||
rts
|
||||
* jmp resumeMUSIC
|
||||
saveKO99 rts
|
||||
|
||||
doSAVE1 jsr copyPATH
|
||||
|
||||
|
@ -671,10 +624,7 @@ copyPATH sep #$20
|
|||
|
||||
*----------------------------------- Restart
|
||||
|
||||
doRESTART
|
||||
* jsr suspendMUSIC ; NTP off
|
||||
|
||||
PushWord #0
|
||||
doRESTART PushWord #0
|
||||
PushWord #5
|
||||
PushLong #0
|
||||
pea $0000
|
||||
|
@ -682,22 +632,16 @@ doRESTART
|
|||
ora saveLANGUAGE
|
||||
pha
|
||||
_AlertWindow
|
||||
|
||||
* jsr resumeMUSIC
|
||||
|
||||
pla
|
||||
beq re1
|
||||
lda #0
|
||||
rts
|
||||
re1 lda #$bcbc
|
||||
re1 lda #$bcbc ; on relance le jeu
|
||||
rts
|
||||
|
||||
*----------------------------------- Quit
|
||||
|
||||
doQUIT
|
||||
* jsr suspendMUSIC ; NTP off
|
||||
|
||||
PushWord #0
|
||||
doQUIT PushWord #0
|
||||
PushWord #5
|
||||
PushLong #0
|
||||
pea $0000
|
||||
|
@ -705,11 +649,9 @@ doQUIT
|
|||
ora saveLANGUAGE
|
||||
pha
|
||||
_AlertWindow
|
||||
|
||||
pla
|
||||
beq meQUIT
|
||||
rts
|
||||
* jmp resumeMUSIC
|
||||
|
||||
*----------------------------------- Quit
|
||||
|
||||
|
|
1
labellezohra/textes/LisezMoi
Normal file
1
labellezohra/textes/LisezMoi
Normal file
File diff suppressed because one or more lines are too long
0
labellezohra/textes/_FileInformation.txt
Normal file
0
labellezohra/textes/_FileInformation.txt
Normal file
Loading…
Reference in New Issue
Block a user