mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-01 00:41:39 +00:00
comments added
This commit is contained in:
parent
c5cab0bac6
commit
26e5831cb6
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
@ -1,19 +0,0 @@
|
||||||
23 04
|
|
||||||
|
|
||||||
#plage=LA PLAGE !Fred retourne sur ses pas, vers la plage
|
|
||||||
2B 01 03
|
|
||||||
|
|
||||||
#case-nourriture 3?=NOURRITURE 3? !Fred va … la case de son vieil ami
|
|
||||||
2D 1A 1A
|
|
||||||
|
|
||||||
#case-nourriture 2?=NOURRITURE 2? !Fred va … la case de son vieil ami
|
|
||||||
2D 16 16
|
|
||||||
|
|
||||||
#case-nourriture 1?=CASE !Fred va … la case de son vieil ami
|
|
||||||
2D 12 10
|
|
||||||
|
|
||||||
#case+nourriture 3?=CASE FERMEE !Fred va … la case de son vieil ami
|
|
||||||
2B 1A 11
|
|
||||||
|
|
||||||
#palmier-palmier=PALMIER !Fred grimpe sur l'arbre
|
|
||||||
2D 30 30
|
|
|
@ -49,7 +49,10 @@ escape ds 2 ; BOOL - TRUE or FALSE
|
||||||
fgSUITEFORCEE ds 2 ; BOOL - TRUE or FALSE
|
fgSUITEFORCEE ds 2 ; BOOL - TRUE or FALSE
|
||||||
|
|
||||||
mot ds 128 ; le mot ˆ chercher (jusqu'au caract<63>re espace)
|
mot ds 128 ; le mot ˆ chercher (jusqu'au caract<63>re espace)
|
||||||
|
ligne_commentaire ; la phrase de commentaire "mot" : explication
|
||||||
|
asc D2 ; on dŽmarre avec le "
|
||||||
|
ds 127
|
||||||
|
|
||||||
* Le texte ˆ afficher
|
* Le texte ˆ afficher
|
||||||
|
|
||||||
ligne_max ds max_colonnes ; une ligne du texte
|
ligne_max ds max_colonnes ; une ligne du texte
|
||||||
|
|
|
@ -1318,8 +1318,123 @@ tc_2 ldx mot_clique ; on sauvegarde l'ancien mot
|
||||||
* affiche_commentaire
|
* affiche_commentaire
|
||||||
|
|
||||||
affiche_commentaire
|
affiche_commentaire
|
||||||
|
cmp #0
|
||||||
|
bne ac_1
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
ac_1 dec ; prend la scene
|
||||||
|
pha ; calcul l'index dans la dimension NB_MOTS
|
||||||
|
pha
|
||||||
|
pha ; index de sc<73>ne
|
||||||
|
PushWord #NB_MOTS ; taille d'une dimension
|
||||||
|
_Multiply
|
||||||
|
|
||||||
|
lda 1,s ; calcule l'offset pour les deux tableaux utiles
|
||||||
|
asl
|
||||||
|
sta 1,s
|
||||||
|
|
||||||
|
lda mot_clique
|
||||||
|
dec
|
||||||
|
asl
|
||||||
|
clc
|
||||||
|
adc 1,s
|
||||||
|
sta localOFFSET
|
||||||
|
pla
|
||||||
|
pla
|
||||||
|
|
||||||
|
*--- on construit la cha”ne
|
||||||
|
|
||||||
|
* 1- le mot
|
||||||
|
|
||||||
|
lda localOFFSET
|
||||||
|
clc
|
||||||
|
adc #fonction_mots
|
||||||
|
sta dpFROM
|
||||||
|
lda (dpFROM)
|
||||||
|
sta dpINDEX
|
||||||
|
lda ptrINDEX+2
|
||||||
|
sta dpINDEX+2
|
||||||
|
|
||||||
|
sep #$20
|
||||||
|
ldy #0
|
||||||
|
]lp lda [dpINDEX],y
|
||||||
|
cmp #instrSPACE
|
||||||
|
beq ac_2
|
||||||
|
sta ligne_commentaire+1,y
|
||||||
|
iny
|
||||||
|
bne ]lp
|
||||||
|
|
||||||
|
* 2- la sŽparation
|
||||||
|
|
||||||
|
ac_2 tyx
|
||||||
|
rep #$20
|
||||||
|
lda #$20d3 ; double quote fermant + espace
|
||||||
|
sta ligne_commentaire+1,x
|
||||||
|
lda #$203a ; deux-points + espace
|
||||||
|
sta ligne_commentaire+3,x
|
||||||
|
|
||||||
|
* 3- le commentaire
|
||||||
|
|
||||||
|
lda localOFFSET
|
||||||
|
clc
|
||||||
|
adc #phrase
|
||||||
|
sta dpFROM
|
||||||
|
lda (dpFROM)
|
||||||
|
sta dpINDEX
|
||||||
|
lda ptrINDEX+2
|
||||||
|
sta dpINDEX+2
|
||||||
|
|
||||||
|
sep #$20
|
||||||
|
ldy #0
|
||||||
|
]lp lda [dpINDEX],y
|
||||||
|
beq ac_3
|
||||||
|
sta ligne_commentaire+5,x
|
||||||
|
iny
|
||||||
|
inx
|
||||||
|
cpx #126 ; len max
|
||||||
|
bcc ]lp
|
||||||
|
|
||||||
|
ac_3 stz ligne_commentaire+5,x ; pour finir
|
||||||
|
|
||||||
|
rep #$20
|
||||||
|
|
||||||
|
*--- PrŽpare l'Žcran
|
||||||
|
|
||||||
|
PushLong #old_pattern
|
||||||
|
_GetPenPat
|
||||||
|
|
||||||
|
pha
|
||||||
|
_GetForeColor
|
||||||
|
|
||||||
|
pha
|
||||||
|
_GetTextMode
|
||||||
|
|
||||||
|
PushLong #black_pattern ; black pattern
|
||||||
|
_SetPenPat
|
||||||
|
|
||||||
|
PushLong #commentRECT
|
||||||
|
_PaintRect
|
||||||
|
|
||||||
|
PushWord #15
|
||||||
|
_SetForeColor
|
||||||
|
|
||||||
|
PushWord #modeForeCopy
|
||||||
|
_SetTextMode
|
||||||
|
|
||||||
|
ldx #^ligne_commentaire
|
||||||
|
ldy #ligne_commentaire
|
||||||
|
lda #19
|
||||||
|
jsr cprint
|
||||||
|
|
||||||
|
_SetTextMode
|
||||||
|
_SetForeColor
|
||||||
|
_SetPenPat
|
||||||
|
rts
|
||||||
|
|
||||||
|
*---
|
||||||
|
|
||||||
|
commentRECT dw 182,16,192,623
|
||||||
|
|
||||||
*-----------------------
|
*-----------------------
|
||||||
* SURLIGNER_MOT
|
* SURLIGNER_MOT
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
@ -1647,20 +1762,21 @@ tblUPPER hex 000102030405060708090A0B0C0D0E0F
|
||||||
* CPRINT - OK
|
* CPRINT - OK
|
||||||
*-----------------------
|
*-----------------------
|
||||||
* cprint(texte$,ligne&)
|
* cprint(texte$,ligne&)
|
||||||
* A= ptr to string
|
* X/Y= ptr to string
|
||||||
* Y= line index
|
* A= line index
|
||||||
|
|
||||||
cprint pea ^cprint ; ptr to text
|
cprint phx ; ptr to text
|
||||||
pha
|
phy
|
||||||
pha ; X
|
pea $0000 ; X ; qu'on va initialiser
|
||||||
phy ; Y
|
pha ; Y
|
||||||
|
|
||||||
pea $0000 ; count nb of chars in the string
|
pea $0000 ; count nb of chars in the string
|
||||||
sta dpFROM
|
sty dpFROM
|
||||||
|
stx dpFROM+2
|
||||||
|
|
||||||
ldy #0
|
ldy #0
|
||||||
sep #$20
|
sep #$20
|
||||||
]lp lda (dpFROM),y
|
]lp lda [dpFROM],y
|
||||||
beq cprint1
|
beq cprint1
|
||||||
iny
|
iny
|
||||||
bne ]lp
|
bne ]lp
|
||||||
|
@ -1847,8 +1963,12 @@ strSUITE asc 'suite '
|
||||||
aiguille ldx mot_clique ; a-t-on cliquŽ de nouveau sur le m<>me mot ?
|
aiguille ldx mot_clique ; a-t-on cliquŽ de nouveau sur le m<>me mot ?
|
||||||
cpx mot_ancien
|
cpx mot_ancien
|
||||||
beq ai_entry
|
beq ai_entry
|
||||||
jmp affiche_commentaire
|
jsr affiche_commentaire
|
||||||
|
|
||||||
|
lda #FALSE
|
||||||
|
sta deplacement
|
||||||
|
rts
|
||||||
|
|
||||||
ai_entry cmp #0
|
ai_entry cmp #0
|
||||||
beq ai_false
|
beq ai_false
|
||||||
|
|
||||||
|
|
|
@ -35,8 +35,9 @@
|
||||||
*-----------------------
|
*-----------------------
|
||||||
|
|
||||||
@cprint mac
|
@cprint mac
|
||||||
lda #]1
|
ldx #^]1
|
||||||
ldy #]2
|
ldy #]1
|
||||||
|
lda #]2
|
||||||
jsr cprint
|
jsr cprint
|
||||||
eom
|
eom
|
||||||
|
|
||||||
|
@ -103,16 +104,13 @@ FALSE = 0
|
||||||
pha
|
pha
|
||||||
_MMStartUp
|
_MMStartUp
|
||||||
pla
|
pla
|
||||||
|
sta mainID
|
||||||
|
ora #$0100
|
||||||
sta myID
|
sta myID
|
||||||
|
|
||||||
tdc
|
tdc
|
||||||
sta myDP
|
sta myDP
|
||||||
|
|
||||||
lda #SUITE_DATA
|
|
||||||
stal $300
|
|
||||||
lda #^SUITE_DATA
|
|
||||||
stal $302
|
|
||||||
|
|
||||||
*--- Version du systeme
|
*--- Version du systeme
|
||||||
|
|
||||||
jsl GSOS
|
jsl GSOS
|
||||||
|
@ -190,7 +188,7 @@ okMEM1 sty ptrIMAGE
|
||||||
|
|
||||||
pha
|
pha
|
||||||
pha
|
pha
|
||||||
PushWord myID
|
PushWord mainID
|
||||||
PushWord #refIsResource
|
PushWord #refIsResource
|
||||||
PushLong #1
|
PushLong #1
|
||||||
_StartUpTools
|
_StartUpTools
|
||||||
|
@ -261,6 +259,7 @@ mainLOOP lda scene_actuelle
|
||||||
jsr nouvelle_scene ; on initialise la scène
|
jsr nouvelle_scene ; on initialise la scène
|
||||||
lda scene_actuelle
|
lda scene_actuelle
|
||||||
jsr image ; on charge une image éventuelle
|
jsr image ; on charge une image éventuelle
|
||||||
|
jsr attente ; attend un clic
|
||||||
lda scene_actuelle
|
lda scene_actuelle
|
||||||
jsr get_textes ; on détermine le texte
|
jsr get_textes ; on détermine le texte
|
||||||
jsr prepare_texte ; que l'on prepare le texte
|
jsr prepare_texte ; que l'on prepare le texte
|
||||||
|
@ -279,15 +278,14 @@ mainLOOP lda scene_actuelle
|
||||||
|
|
||||||
taskLOOP inc VBLCounter0
|
taskLOOP inc VBLCounter0
|
||||||
|
|
||||||
* jsr DEBUG
|
|
||||||
|
|
||||||
* PushWord #0
|
* PushWord #0
|
||||||
* PushWord #%11111111_11111111
|
* PushWord #%11111111_11111111
|
||||||
* PushLong #taskREC
|
* PushLong #taskREC
|
||||||
* _TaskMaster
|
* _TaskMaster
|
||||||
|
|
||||||
pha
|
pha
|
||||||
PushWord #%00000000_00001110 ; mouse + keyboard
|
* PushWord #%00000000_00001110 ; mouse + keyboard
|
||||||
|
PushWord #%11111111_11111111
|
||||||
PushLong #taskREC
|
PushLong #taskREC
|
||||||
_GetNextEvent
|
_GetNextEvent
|
||||||
pla
|
pla
|
||||||
|
@ -630,7 +628,10 @@ meQUIT1
|
||||||
PushWord myID
|
PushWord myID
|
||||||
_DisposeAll
|
_DisposeAll
|
||||||
|
|
||||||
PushWord myID
|
PushWord mainID
|
||||||
|
_DisposeAll
|
||||||
|
|
||||||
|
PushWord mainID
|
||||||
_MMShutDown
|
_MMShutDown
|
||||||
|
|
||||||
_TLShutDown
|
_TLShutDown
|
||||||
|
@ -694,7 +695,8 @@ waitKEY ldal KBD-1
|
||||||
waitEVENT inc VBLCounter0
|
waitEVENT inc VBLCounter0
|
||||||
|
|
||||||
pha
|
pha
|
||||||
PushWord #%00000000_00001110 ; mouse + keyboard
|
* PushWord #%00000000_00001110 ; mouse + keyboard
|
||||||
|
PushWord #%11111111_11111111
|
||||||
PushLong #taskREC
|
PushLong #taskREC
|
||||||
_GetNextEvent
|
_GetNextEvent
|
||||||
pla
|
pla
|
||||||
|
@ -1042,7 +1044,8 @@ nowWAIT1 pha
|
||||||
|
|
||||||
*----------------------- Memory manager
|
*----------------------- Memory manager
|
||||||
|
|
||||||
myID ds 2
|
mainID ds 2 ; app ID
|
||||||
|
myID ds 2 ; user ID
|
||||||
myDP ds 2
|
myDP ds 2
|
||||||
|
|
||||||
SStopREC ds 4
|
SStopREC ds 4
|
||||||
|
@ -1094,7 +1097,7 @@ taskDATA ds 4 ; wmTaskData +16
|
||||||
|
|
||||||
taskTBL da doNOT ; Null
|
taskTBL da doNOT ; Null
|
||||||
da doMOUSEDOWN ; mouseDownEvt
|
da doMOUSEDOWN ; mouseDownEvt
|
||||||
da doMOUSEUP ; mouseUpEvt
|
da doNOT ; mouseUpEvt
|
||||||
da doKEYDOWN ; keyDownEvt
|
da doKEYDOWN ; keyDownEvt
|
||||||
da doNOT
|
da doNOT
|
||||||
da doNOT ; autoKeyEvt
|
da doNOT ; autoKeyEvt
|
||||||
|
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user