2023-11-13 11:02:29 +00:00
|
|
|
|
*
|
|
|
|
|
* Le manoir du Dr Genius
|
|
|
|
|
*
|
|
|
|
|
* (c) 1983, Loriciels (Oric)
|
|
|
|
|
* (c) 2023, Brutal Deluxe Software (Apple II)
|
|
|
|
|
*
|
|
|
|
|
|
|
|
|
|
mx %11
|
|
|
|
|
org $4000
|
|
|
|
|
lst off
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* SOFTSWITCHES AND FRIENDS
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
WNDTOP = $22 ; top of text window
|
|
|
|
|
WNDBTM = $23 ; bottom+1 of text window
|
|
|
|
|
CH = $24 ; cursor horizontal position
|
|
|
|
|
CV = $25 ; cursor vertical position
|
2023-11-14 04:44:00 +00:00
|
|
|
|
LINNUM = $50 ; result from GETADR
|
2023-11-15 21:29:16 +00:00
|
|
|
|
X0L = $e0 ; X-coord
|
|
|
|
|
X0H = $e1
|
|
|
|
|
Y0 = $e2 ; Y-coord
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
maxY = 191 ; 0 to 191 = 192
|
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
chrRET2 = $8d
|
|
|
|
|
chrSPC2 = $a0
|
|
|
|
|
TEXTBUFFER = $200
|
|
|
|
|
|
2023-11-27 21:52:08 +00:00
|
|
|
|
chrOUI = "Y"
|
|
|
|
|
chrNON = "N"
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
PRODOS = $bf00
|
|
|
|
|
|
2023-11-13 11:02:29 +00:00
|
|
|
|
KBD = $c000
|
|
|
|
|
CLR80VID = $c00c
|
|
|
|
|
KBDSTROBE = $c010
|
2023-11-18 08:48:34 +00:00
|
|
|
|
VBL = $c019
|
|
|
|
|
VERTCNT = $c02e
|
2023-11-16 20:31:28 +00:00
|
|
|
|
SPKR = $c030
|
|
|
|
|
CYAREG = $C036
|
2023-11-13 11:02:29 +00:00
|
|
|
|
TXTCLR = $c050
|
|
|
|
|
TXTSET = $c051
|
|
|
|
|
MIXCLR = $c052
|
|
|
|
|
MIXSET = $c053
|
|
|
|
|
TXTPAGE1 = $c054
|
|
|
|
|
TXTPAGE2 = $c055
|
|
|
|
|
LORES = $c056
|
|
|
|
|
HIRES = $c057
|
|
|
|
|
|
|
|
|
|
*--- The firmware routines
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
HGR = $F3E2 ; HGR
|
|
|
|
|
HPLOT = $F457 ; HPLOT
|
|
|
|
|
HILIN = $F53A ; HPLOT TO
|
|
|
|
|
HCOLOR = $F6E9 ; HCOLOR= (call+3)
|
2023-11-13 11:02:29 +00:00
|
|
|
|
INIT = $FB2F
|
|
|
|
|
TABV = $FB5B
|
|
|
|
|
HOME = $FC58
|
2023-11-14 04:44:00 +00:00
|
|
|
|
WAIT = $FCA8
|
2023-11-13 11:02:29 +00:00
|
|
|
|
RDKEY = $FD0C
|
2023-11-20 21:51:03 +00:00
|
|
|
|
GETLN1 = $FD6F
|
2023-11-13 11:02:29 +00:00
|
|
|
|
COUT = $FDED
|
|
|
|
|
IDROUTINE = $FE1F
|
|
|
|
|
SETNORM = $FE84
|
|
|
|
|
SETKBD = $FE89
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
2023-11-13 11:09:59 +00:00
|
|
|
|
* MACROS
|
2023-11-13 11:02:29 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
@draw mac
|
2023-11-13 11:02:29 +00:00
|
|
|
|
ldx #>]1
|
|
|
|
|
ldy #<]1
|
2023-11-16 20:31:28 +00:00
|
|
|
|
jsr drawPICTURE
|
2023-11-13 11:02:29 +00:00
|
|
|
|
eom
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
@explode mac
|
|
|
|
|
jsr EXPLODE
|
|
|
|
|
eom
|
2023-11-21 18:49:43 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
@play mac
|
2023-11-14 04:44:00 +00:00
|
|
|
|
ldx #>]1
|
|
|
|
|
ldy #<]1
|
2023-11-16 20:31:28 +00:00
|
|
|
|
jsr playMUSIC
|
|
|
|
|
eom
|
|
|
|
|
|
|
|
|
|
@print mac
|
|
|
|
|
ldx #>]1
|
|
|
|
|
ldy #<]1
|
|
|
|
|
jsr printCSTRING
|
2023-11-14 04:44:00 +00:00
|
|
|
|
eom
|
|
|
|
|
|
2023-11-13 11:09:59 +00:00
|
|
|
|
@wait mac
|
|
|
|
|
ldx #>]1
|
|
|
|
|
ldy #<]1
|
|
|
|
|
jsr waitMS
|
|
|
|
|
eom
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* CODE BASIC EN ASM :-)
|
|
|
|
|
*-----------------------------------
|
2023-11-14 04:44:00 +00:00
|
|
|
|
|
2023-11-25 22:49:06 +00:00
|
|
|
|
sec
|
2023-11-16 20:31:28 +00:00
|
|
|
|
jsr IDROUTINE
|
|
|
|
|
bcs notiigs
|
|
|
|
|
|
2023-11-25 22:49:06 +00:00
|
|
|
|
lda CYAREG ; 1 MHz vaincra!
|
2023-11-22 19:24:48 +00:00
|
|
|
|
sta sauveCYA
|
2023-11-16 20:31:28 +00:00
|
|
|
|
and #%0111_1111
|
|
|
|
|
sta CYAREG
|
|
|
|
|
notiigs
|
2023-11-25 22:49:06 +00:00
|
|
|
|
|
|
|
|
|
*-------- CAN WE DO lowercase?
|
|
|
|
|
|
|
|
|
|
lda $FBB3
|
|
|
|
|
cmp #$06
|
|
|
|
|
beq lowerOK
|
|
|
|
|
|
|
|
|
|
lda #$80 ; ONLY UPPERCASE
|
|
|
|
|
sta fgCASE
|
|
|
|
|
lowerOK
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
jsr introPIC ; la picture GR
|
2023-11-16 20:31:28 +00:00
|
|
|
|
jsr :51000 ; le disclaimer
|
|
|
|
|
jsr :40000 ; les instructions
|
2023-11-22 19:24:48 +00:00
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
REPLAY
|
2023-11-14 04:44:00 +00:00
|
|
|
|
jsr initALL
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jsr HGR
|
2023-11-22 19:24:48 +00:00
|
|
|
|
|
|
|
|
|
lda #20 ; et c'est fen<65>tr<74> en plus !
|
|
|
|
|
sta WNDTOP
|
|
|
|
|
lda #24
|
|
|
|
|
sta WNDBTM
|
|
|
|
|
jsr HOME
|
|
|
|
|
|
2023-11-13 11:09:59 +00:00
|
|
|
|
*-----------------------------------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
* DU BASIC A L'ASSEMBLEUR (BEURK)
|
2023-11-13 11:09:59 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:100 lda SALLE
|
|
|
|
|
cmp #14
|
2023-11-21 18:49:43 +00:00
|
|
|
|
beq :105
|
2023-11-16 20:31:28 +00:00
|
|
|
|
cmp #16
|
2023-11-21 18:49:43 +00:00
|
|
|
|
beq :105
|
2023-11-16 20:31:28 +00:00
|
|
|
|
cmp #17
|
2023-11-21 18:49:43 +00:00
|
|
|
|
beq :105
|
2023-11-16 20:31:28 +00:00
|
|
|
|
cmp #19
|
2023-11-21 18:49:43 +00:00
|
|
|
|
beq :105
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
lda #0
|
2023-11-16 20:31:28 +00:00
|
|
|
|
ldx #2
|
|
|
|
|
sta P,x
|
|
|
|
|
|
|
|
|
|
:105 ldx #2
|
|
|
|
|
lda P,x
|
2023-11-21 18:49:43 +00:00
|
|
|
|
beq :200
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
|
|
|
|
ldx #22
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp SALLE
|
|
|
|
|
bne :107
|
|
|
|
|
ldx #7
|
|
|
|
|
lda P,x
|
|
|
|
|
cmp #1
|
|
|
|
|
beq :200
|
|
|
|
|
|
|
|
|
|
:107 ldx #5
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp SALLE
|
|
|
|
|
bne :110
|
|
|
|
|
ldx #3
|
|
|
|
|
lda P,x
|
|
|
|
|
cmp #1
|
|
|
|
|
beq :200
|
|
|
|
|
|
|
|
|
|
:110 ldx #9
|
|
|
|
|
lda C,x
|
|
|
|
|
cmp #2
|
|
|
|
|
bcc :130
|
|
|
|
|
sec ; enter if >1
|
|
|
|
|
sbc #1
|
|
|
|
|
sta C,x
|
|
|
|
|
|
|
|
|
|
:130 jsr HGR
|
|
|
|
|
jsr setMIXEDON
|
|
|
|
|
@print #strILFAITNOIR
|
|
|
|
|
@wait #400
|
|
|
|
|
jmp :500
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 200 - description salle
|
2023-11-13 11:02:29 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
:200 jsr setHGR
|
2023-11-20 21:51:03 +00:00
|
|
|
|
|
2023-11-18 16:25:05 +00:00
|
|
|
|
@print #strVOUS ; always output "VOUS ETES "
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-13 11:09:59 +00:00
|
|
|
|
lda SALLE
|
2023-11-13 11:02:29 +00:00
|
|
|
|
asl
|
|
|
|
|
tax
|
2023-11-22 21:46:35 +00:00
|
|
|
|
lda tbl7000,x
|
|
|
|
|
sta :222+1
|
|
|
|
|
lda tbl7000+1,x
|
|
|
|
|
sta :222+2
|
|
|
|
|
|
|
|
|
|
:222 jsr $bdbd
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jsr setMIXEDON
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
:300 lda #0
|
2023-11-13 11:02:29 +00:00
|
|
|
|
sta H
|
2023-11-22 07:06:49 +00:00
|
|
|
|
sta HH ; for comma
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #1
|
|
|
|
|
sta N
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:310 ldx N
|
|
|
|
|
lda O,x
|
2023-11-13 11:02:29 +00:00
|
|
|
|
cmp SALLE
|
|
|
|
|
bne :400
|
|
|
|
|
|
|
|
|
|
lda H
|
2023-11-22 07:06:49 +00:00
|
|
|
|
bne :350
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
@print #strILYA
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
inc H
|
|
|
|
|
|
|
|
|
|
:350 lda HH
|
|
|
|
|
beq :360
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
@print #strCOMMA
|
|
|
|
|
|
|
|
|
|
:360 @print #strSPACE
|
2023-11-16 20:31:28 +00:00
|
|
|
|
lda N
|
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
ldy tblO$,x
|
|
|
|
|
lda tblO$+1,x
|
|
|
|
|
tax
|
|
|
|
|
jsr printCSTRING
|
|
|
|
|
@wait #150
|
2023-11-22 07:06:49 +00:00
|
|
|
|
|
|
|
|
|
inc HH
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
:400 inc N
|
|
|
|
|
lda N
|
|
|
|
|
cmp #nbO ; la constante 25
|
2023-11-16 20:31:28 +00:00
|
|
|
|
bcc :310
|
|
|
|
|
beq :310
|
2023-11-13 11:09:59 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
@print #strRETURN
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 500 - ACCEPTATION COMMANDE
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
:500 lda #1
|
|
|
|
|
sta T
|
|
|
|
|
lda #0
|
|
|
|
|
sta N
|
|
|
|
|
jmp :1000
|
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
:530 ldx #7
|
|
|
|
|
lda C,x
|
|
|
|
|
cmp #1+1
|
|
|
|
|
bcc :540
|
|
|
|
|
lda P,x
|
|
|
|
|
cmp #1
|
|
|
|
|
bne :540
|
|
|
|
|
lda C,x
|
|
|
|
|
sec
|
|
|
|
|
sbc #1
|
|
|
|
|
sta C,x
|
|
|
|
|
|
|
|
|
|
:540 ldx #3
|
|
|
|
|
lda C,x
|
|
|
|
|
cmp #1+1
|
|
|
|
|
bcc :545
|
|
|
|
|
lda P,x
|
|
|
|
|
cmp #1
|
|
|
|
|
bne :545
|
|
|
|
|
lda C,x
|
|
|
|
|
sec
|
|
|
|
|
sbc #1
|
|
|
|
|
sta C,x
|
|
|
|
|
|
|
|
|
|
:545 ldx #4
|
|
|
|
|
lda C,x
|
|
|
|
|
cmp #1+1
|
|
|
|
|
bcc :547
|
|
|
|
|
lda P,x
|
|
|
|
|
cmp #1
|
|
|
|
|
bne :547
|
|
|
|
|
lda C,x
|
|
|
|
|
sec
|
|
|
|
|
sbc #1
|
|
|
|
|
sta C,x
|
|
|
|
|
|
|
|
|
|
:547 ldx #5
|
|
|
|
|
lda C,x
|
|
|
|
|
cmp #1+1
|
|
|
|
|
bcc :550
|
|
|
|
|
lda C,x
|
|
|
|
|
sec
|
|
|
|
|
sbc #1
|
|
|
|
|
sta C,x
|
|
|
|
|
|
|
|
|
|
:550 @print #strCOMMANDE
|
2023-11-20 21:51:03 +00:00
|
|
|
|
jsr GETLN1
|
2023-11-18 16:25:05 +00:00
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
lda TEXTBUFFER
|
|
|
|
|
cmp #chrRET2
|
|
|
|
|
bne :570
|
|
|
|
|
jsr switchVIDEO
|
|
|
|
|
jmp :550
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
:570 stx lenSTRING ; longueur de la chaine saisie
|
2023-11-22 19:24:48 +00:00
|
|
|
|
jsr rewriteSTRING ; from lower to upper
|
|
|
|
|
jsr :6000 ; cherche les mots
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
|
|
|
|
lda MO$1
|
|
|
|
|
bne :900
|
|
|
|
|
|
|
|
|
|
@print #strJENECOMPRENDS
|
|
|
|
|
@wait #200
|
|
|
|
|
jmp :100
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* 900 - CONTROLES APPLE II
|
2023-11-16 20:31:28 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
:900 cmp #59 ; switch wait to de/accelerate the game
|
2023-11-22 19:24:48 +00:00
|
|
|
|
bne :905
|
2023-11-22 07:06:49 +00:00
|
|
|
|
|
|
|
|
|
jsr switchWAIT
|
|
|
|
|
jmp :100
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:905 cmp #60 ; quitter
|
|
|
|
|
bne :910
|
|
|
|
|
jmp :20050
|
2023-11-25 22:49:06 +00:00
|
|
|
|
|
|
|
|
|
:910 cmp #61
|
|
|
|
|
bne :915
|
2023-11-22 19:24:48 +00:00
|
|
|
|
|
2023-11-25 22:49:06 +00:00
|
|
|
|
jsr switchCASE
|
|
|
|
|
jmp :100
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 910 - CONTROLE MVT
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-25 22:49:06 +00:00
|
|
|
|
:915 ldy #0
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
:920 lda SALLE ; T$=MID(M$(SALLE),Z,2)
|
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
lda tblM$,x
|
|
|
|
|
sta LINNUM
|
|
|
|
|
lda tblM$+1,x
|
|
|
|
|
sta LINNUM+1
|
|
|
|
|
|
|
|
|
|
lda (LINNUM),y
|
|
|
|
|
beq :980
|
|
|
|
|
cmp MO$1
|
2023-11-18 16:25:05 +00:00
|
|
|
|
bne :970
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
:950 iny
|
|
|
|
|
lda (LINNUM),y
|
|
|
|
|
sta SALLE
|
|
|
|
|
jmp :100
|
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
:970 iny
|
2023-11-20 21:51:03 +00:00
|
|
|
|
iny
|
2023-11-20 18:41:18 +00:00
|
|
|
|
bne :920
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
:980 lda #0
|
|
|
|
|
sta T
|
|
|
|
|
sta A1
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 1000 - CONTROLE
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
:1000 lda #0
|
2023-11-18 08:48:34 +00:00
|
|
|
|
sta NL
|
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
:1100 inc NL
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
lda T
|
|
|
|
|
beq :1150
|
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
lda NL ; E$=C$(NL)
|
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
lda tblC$,x
|
|
|
|
|
sta LINNUM
|
|
|
|
|
lda tblC$+1,x
|
|
|
|
|
sta LINNUM+1
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
lda (LINNUM),y
|
|
|
|
|
tax
|
|
|
|
|
]lp lda (LINNUM),y
|
|
|
|
|
sta E$,y
|
|
|
|
|
iny
|
|
|
|
|
dex
|
|
|
|
|
bpl ]lp
|
2023-11-18 08:48:34 +00:00
|
|
|
|
jmp :1400
|
|
|
|
|
|
|
|
|
|
:1150 lda NL
|
2023-11-18 16:25:05 +00:00
|
|
|
|
cmp #AA
|
2023-11-18 08:48:34 +00:00
|
|
|
|
bcc :1200
|
|
|
|
|
beq :1200
|
|
|
|
|
|
|
|
|
|
lda A1
|
|
|
|
|
cmp #1
|
|
|
|
|
bne :1170
|
|
|
|
|
jmp :500
|
|
|
|
|
|
|
|
|
|
:1170 @print #strIMPOSSIBLE
|
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
lda MO$1 ; les directions
|
|
|
|
|
cmp #10+1
|
2023-11-18 10:16:31 +00:00
|
|
|
|
bcs :1190
|
|
|
|
|
|
|
|
|
|
@print #strCECHEMIN
|
|
|
|
|
|
|
|
|
|
:1190 @print #strEXCLAM
|
|
|
|
|
jmp :100
|
2023-11-20 21:51:03 +00:00
|
|
|
|
|
2023-11-18 16:25:05 +00:00
|
|
|
|
:1200 lda NL
|
2023-11-20 21:51:03 +00:00
|
|
|
|
sec
|
|
|
|
|
sbc #1
|
2023-11-18 16:25:05 +00:00
|
|
|
|
asl
|
|
|
|
|
tax
|
2023-11-20 18:41:18 +00:00
|
|
|
|
lda tblA,x
|
2023-11-18 16:25:05 +00:00
|
|
|
|
cmp MO$1
|
2023-11-20 18:41:18 +00:00
|
|
|
|
beq :1210
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :1100
|
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
:1210 lda tblA+1,x
|
|
|
|
|
beq :1230
|
2023-11-18 16:25:05 +00:00
|
|
|
|
cmp MO$2
|
2023-11-20 18:41:18 +00:00
|
|
|
|
beq :1230
|
|
|
|
|
jmp :1100
|
2023-11-18 16:25:05 +00:00
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
:1230 lda tblA$,x
|
2023-11-18 16:25:05 +00:00
|
|
|
|
sta LINNUM
|
2023-11-20 21:51:03 +00:00
|
|
|
|
lda tblA$+1,x
|
2023-11-18 16:25:05 +00:00
|
|
|
|
sta LINNUM+1
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
ldy #0
|
|
|
|
|
lda (LINNUM),y
|
|
|
|
|
tax
|
2023-11-18 16:25:05 +00:00
|
|
|
|
]lp lda (LINNUM),y
|
|
|
|
|
sta E$,y
|
|
|
|
|
iny
|
2023-11-20 21:51:03 +00:00
|
|
|
|
dex
|
|
|
|
|
bpl ]lp
|
|
|
|
|
|
2023-11-17 21:25:59 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 1400 - CONDITIONS
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
:1400 lda #1
|
|
|
|
|
sta E
|
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
:1420 ldx E ; 7893
|
|
|
|
|
lda E$,x ; 7894
|
2023-11-17 21:25:59 +00:00
|
|
|
|
cmp #"."
|
|
|
|
|
bne :1430
|
2023-11-20 21:51:03 +00:00
|
|
|
|
jmp :1700 ; do actions
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
:1430 sec ; 428F
|
|
|
|
|
sbc #"A"
|
|
|
|
|
asl
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda #0
|
2023-11-17 21:25:59 +00:00
|
|
|
|
sta OK
|
|
|
|
|
|
|
|
|
|
lda E$+1,x
|
|
|
|
|
sec
|
|
|
|
|
sbc #"0"
|
|
|
|
|
tay
|
|
|
|
|
lda tblD2H,y
|
2023-11-20 21:51:03 +00:00
|
|
|
|
sta N
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
lda E$+2,x
|
2023-11-17 21:25:59 +00:00
|
|
|
|
sec
|
|
|
|
|
sbc #"0"
|
|
|
|
|
clc
|
2023-11-20 21:51:03 +00:00
|
|
|
|
adc N
|
|
|
|
|
sta N
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
pla
|
2023-11-17 21:25:59 +00:00
|
|
|
|
tax
|
2023-11-22 21:46:35 +00:00
|
|
|
|
lda tbl1500,x
|
|
|
|
|
sta :1450+1
|
|
|
|
|
lda tbl1500+1,x
|
|
|
|
|
sta :1450+2
|
|
|
|
|
|
|
|
|
|
:1450 jsr $bdbd
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
lda OK
|
|
|
|
|
bne :1470
|
|
|
|
|
jmp :1100
|
|
|
|
|
|
|
|
|
|
:1470 lda E
|
|
|
|
|
clc
|
|
|
|
|
adc #3
|
|
|
|
|
sta E
|
|
|
|
|
jmp :1420
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
tbl1500 da :1500,:1510,:1520,:1530,:1540
|
|
|
|
|
da :1550,:1560,:1570,:1580
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1500
|
2023-11-18 08:48:34 +00:00
|
|
|
|
lda N
|
|
|
|
|
cmp SALLE
|
|
|
|
|
bne :1505
|
|
|
|
|
lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1505 rts
|
|
|
|
|
|
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1510
|
2023-11-18 08:48:34 +00:00
|
|
|
|
ldx N
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp #-1
|
|
|
|
|
beq :1515
|
2023-11-21 18:49:43 +00:00
|
|
|
|
cmp SALLE
|
2023-11-18 08:48:34 +00:00
|
|
|
|
bne :1516
|
|
|
|
|
:1515 lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1516 rts
|
|
|
|
|
|
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1520
|
2023-11-18 08:48:34 +00:00
|
|
|
|
ldx N
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp SALLE
|
|
|
|
|
bne :1525
|
|
|
|
|
rts
|
|
|
|
|
:1525 cmp #-1
|
|
|
|
|
bne :1527
|
|
|
|
|
rts
|
|
|
|
|
:1527 lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
rts
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1530
|
2023-11-18 08:48:34 +00:00
|
|
|
|
ldx N
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp #-1
|
|
|
|
|
bne :1535
|
|
|
|
|
lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1535 rts
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1540
|
2023-11-18 08:48:34 +00:00
|
|
|
|
ldx N
|
|
|
|
|
lda P,x
|
|
|
|
|
cmp #1
|
|
|
|
|
bne :1545
|
|
|
|
|
lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1545 rts
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1550
|
2023-11-18 08:48:34 +00:00
|
|
|
|
ldx N
|
|
|
|
|
lda P,x
|
|
|
|
|
bne :1555
|
|
|
|
|
lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1555 rts
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1560
|
2023-11-18 08:48:34 +00:00
|
|
|
|
ldx N
|
|
|
|
|
lda C,x
|
|
|
|
|
cmp #1
|
|
|
|
|
bne :1565
|
|
|
|
|
lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1565 rts
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1570
|
2023-11-18 08:48:34 +00:00
|
|
|
|
lda VBL ; LOGO - Use a better RND?
|
|
|
|
|
eor VERTCNT
|
|
|
|
|
cmp N
|
|
|
|
|
bcs :1575
|
|
|
|
|
lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1575 rts
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-17 21:25:59 +00:00
|
|
|
|
|
|
|
|
|
:1580 lda N
|
|
|
|
|
cmp SALLE
|
|
|
|
|
beq :1585
|
|
|
|
|
lda #1
|
|
|
|
|
sta OK
|
|
|
|
|
:1585 rts
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 1700 - ACTIONS
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
:1700 inc E
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
|
sta A1
|
|
|
|
|
|
|
|
|
|
:1710 ldx E
|
|
|
|
|
lda E$,x
|
|
|
|
|
cmp #"."
|
|
|
|
|
bne :1720
|
|
|
|
|
jmp :1100
|
|
|
|
|
|
|
|
|
|
:1720 sec
|
|
|
|
|
sbc #"A"
|
2023-11-20 21:51:03 +00:00
|
|
|
|
asl
|
|
|
|
|
pha ; LI
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
lda E$+1,x
|
|
|
|
|
cmp #"."
|
|
|
|
|
beq :1740
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
sbc #"0"
|
|
|
|
|
tay
|
|
|
|
|
lda tblD2H,y
|
|
|
|
|
sta N
|
|
|
|
|
|
|
|
|
|
lda E$+2,x
|
|
|
|
|
sec
|
|
|
|
|
sbc #"0"
|
|
|
|
|
clc
|
|
|
|
|
adc N
|
|
|
|
|
sta N
|
|
|
|
|
|
|
|
|
|
:1740 lda #0
|
|
|
|
|
sta BREAK
|
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
pla
|
2023-11-18 08:48:34 +00:00
|
|
|
|
tax
|
2023-11-22 21:46:35 +00:00
|
|
|
|
lda tbl1800,x
|
|
|
|
|
sta :1750+1
|
|
|
|
|
lda tbl1800+1,x
|
|
|
|
|
sta :1750+2
|
|
|
|
|
|
|
|
|
|
:1750 jsr $bdbd
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
lda BREAK
|
|
|
|
|
beq :1780
|
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
lda tblBRKA,x
|
|
|
|
|
sta :1762+1
|
|
|
|
|
lda tblBRKA+1,x
|
|
|
|
|
sta :1762+2
|
|
|
|
|
:1762 jmp $bdbd
|
|
|
|
|
|
|
|
|
|
:1780 lda E
|
|
|
|
|
clc
|
|
|
|
|
adc #3
|
|
|
|
|
sta E
|
|
|
|
|
jmp :1710
|
|
|
|
|
|
|
|
|
|
*-------- The modified BREAK table
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
tblBRKA da $bdbd
|
|
|
|
|
da :100,:300,:500,:530,:20000
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 1800
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
tbl1800 da :1800,:1900
|
2023-11-18 08:48:34 +00:00
|
|
|
|
da :2000,:2100,:2200,:2300,:2400,:2500,:2600,:2700,:2800,:2900
|
|
|
|
|
da :3000,:3100,:3200,:3300
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:1800 lda #0
|
|
|
|
|
sta G
|
|
|
|
|
sta HH
|
2023-11-22 07:06:49 +00:00
|
|
|
|
sta H ; for comma
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
:1810 inc G
|
|
|
|
|
lda G
|
2023-11-18 08:48:34 +00:00
|
|
|
|
tax
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp #-1
|
|
|
|
|
beq :1840
|
|
|
|
|
|
|
|
|
|
lda G
|
|
|
|
|
cmp #nbO
|
|
|
|
|
bcc :1810
|
|
|
|
|
bcs :1870
|
|
|
|
|
|
|
|
|
|
:1840 lda HH
|
|
|
|
|
bne :1850
|
|
|
|
|
|
|
|
|
|
@print #strVOUSDETENEZ
|
|
|
|
|
@wait #100
|
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
:1850 inc HH
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
lda H
|
|
|
|
|
beq :1860
|
|
|
|
|
|
|
|
|
|
@print #strCOMMA
|
|
|
|
|
|
|
|
|
|
:1860 lda G
|
2023-11-18 08:48:34 +00:00
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
ldy tblO$,x
|
|
|
|
|
lda tblO$+1,x
|
|
|
|
|
tax
|
|
|
|
|
jsr printCSTRING
|
|
|
|
|
@print #strSPACE
|
|
|
|
|
@wait #150
|
2023-11-22 07:06:49 +00:00
|
|
|
|
|
|
|
|
|
inc H
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
lda G
|
|
|
|
|
cmp #V
|
|
|
|
|
bcc :1810
|
|
|
|
|
|
|
|
|
|
:1870 lda HH
|
2023-11-22 07:06:49 +00:00
|
|
|
|
beq :1880
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
@print #strPOINT
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
:1880 @print #strVOUSRIEN
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
:1900 lda S
|
2023-11-18 08:48:34 +00:00
|
|
|
|
cmp #5
|
|
|
|
|
bcc :1930
|
|
|
|
|
|
|
|
|
|
@print #strEVIDENT
|
|
|
|
|
|
|
|
|
|
:1920 @wait #250
|
2023-11-21 18:49:43 +00:00
|
|
|
|
lda #1
|
2023-11-18 08:48:34 +00:00
|
|
|
|
sta BREAK
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
:1930 ldx N
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp #-1
|
|
|
|
|
bne :1960
|
|
|
|
|
|
|
|
|
|
@print #strVOUSLAVEZ
|
|
|
|
|
@wait #400
|
|
|
|
|
@print #strCONSEILLE
|
|
|
|
|
jmp :1920
|
|
|
|
|
|
|
|
|
|
:1960 ldx N
|
|
|
|
|
lda #-1
|
|
|
|
|
sta O,x
|
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
inc S
|
2023-11-18 08:48:34 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:2000 ldx N
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp #-1
|
|
|
|
|
beq :2030
|
|
|
|
|
|
|
|
|
|
@print #strNOTOWNED
|
|
|
|
|
jmp :1920
|
|
|
|
|
|
|
|
|
|
:2030 lda SALLE
|
|
|
|
|
sta O,x
|
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
dec S
|
2023-11-18 08:48:34 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 2100
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:2100
|
|
|
|
|
* jsr HOME
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
lda N
|
|
|
|
|
asl
|
|
|
|
|
tax
|
2023-11-22 21:46:35 +00:00
|
|
|
|
lda tbl4000,x
|
|
|
|
|
sta :2112+1
|
|
|
|
|
lda tbl4000+1,x
|
|
|
|
|
sta :2112+2
|
|
|
|
|
|
|
|
|
|
:2112 jmp $bdbd
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:2200 ldx N
|
|
|
|
|
lda #1
|
|
|
|
|
sta P,x
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:2300 ldx N
|
|
|
|
|
lda #0
|
|
|
|
|
sta P,x
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:2400 lda N
|
2023-11-20 21:51:03 +00:00
|
|
|
|
sec
|
|
|
|
|
sbc #1
|
2023-11-18 08:48:34 +00:00
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
lda tblA$,x
|
|
|
|
|
sta LINNUM
|
|
|
|
|
lda tblA$+1,x
|
|
|
|
|
sta LINNUM+1
|
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
ldy E ; +3
|
|
|
|
|
iny
|
|
|
|
|
iny
|
2023-11-18 08:48:34 +00:00
|
|
|
|
sty E
|
2023-11-20 21:51:03 +00:00
|
|
|
|
iny
|
2023-11-18 08:48:34 +00:00
|
|
|
|
lda (LINNUM),y
|
|
|
|
|
sec
|
|
|
|
|
sbc #"0"
|
|
|
|
|
tax
|
|
|
|
|
lda tblD2H,x
|
|
|
|
|
|
|
|
|
|
ldx N
|
|
|
|
|
sta C,x
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda (LINNUM),y
|
|
|
|
|
sec
|
|
|
|
|
sbc #"0"
|
|
|
|
|
clc
|
|
|
|
|
adc C,x
|
|
|
|
|
sta C,x
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:2500 ldx N
|
|
|
|
|
lda O,x
|
|
|
|
|
cmp #-1
|
|
|
|
|
bne :2510
|
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
dec S
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
:2510 ldx N
|
|
|
|
|
lda #0
|
|
|
|
|
sta O,x
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:2600 lda N
|
|
|
|
|
sta SALLE
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:2700 @print #strDACCORD
|
|
|
|
|
@wait #150
|
2023-11-21 18:49:43 +00:00
|
|
|
|
lda #2
|
2023-11-18 08:48:34 +00:00
|
|
|
|
sta BREAK
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
:2800 lda #3
|
2023-11-18 08:48:34 +00:00
|
|
|
|
sta BREAK
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
:2900 lda #4
|
2023-11-18 08:48:34 +00:00
|
|
|
|
sta BREAK
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
:3000 lda #1
|
2023-11-18 08:48:34 +00:00
|
|
|
|
sta BREAK
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
:3100
|
|
|
|
|
* pla
|
|
|
|
|
* pla
|
2023-11-18 08:48:34 +00:00
|
|
|
|
jmp :20000
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:3200 ldx N
|
|
|
|
|
lda SALLE
|
|
|
|
|
sta O,x
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:3300 lda N ; exchange object
|
|
|
|
|
asl ; do it here on pointers
|
|
|
|
|
tax ; not on strings
|
|
|
|
|
lda tblO$,x
|
|
|
|
|
pha
|
|
|
|
|
lda tblO$+1,x
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda tblO$+2,x
|
|
|
|
|
sta tblO$,x
|
|
|
|
|
lda tblO$+3,x
|
|
|
|
|
sta tblO$+1,x
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
sta tblO$+3,x
|
|
|
|
|
pla
|
|
|
|
|
sta tblO$+2,x
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 4000 - LES REPONSES
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
tbl4000 da :4000,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
|
|
|
|
|
da :4100,:4110,:4120,:4130,:4140,:4150,:4160,:4170,:4180,:4190
|
|
|
|
|
da :4200,:4210,:4220,:4230,:4240,:4250,:4260,:4270,:4280,:4290
|
|
|
|
|
da :4300,:4310,:4320,:4330,:4340,:4350,:4360,:4370,:4380,:4390
|
|
|
|
|
da :4400,:4410,:4420,:4430,:4440,:4450,:4460,:4470,:4480,:4490
|
|
|
|
|
da :4500,:4510,:4520,:4530,:4540,:4550,:4560,:4570,:4580,:4590
|
2023-11-21 18:49:43 +00:00
|
|
|
|
da :4600,:4610,:4620,:4630,:4640
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4000 @explode
|
2023-11-28 18:50:01 +00:00
|
|
|
|
@print #str4000
|
2023-11-18 18:08:43 +00:00
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4010 @print #str4010
|
|
|
|
|
@wait #500
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4020 @print #str4020
|
|
|
|
|
@wait #500
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4030 @print #str4030
|
|
|
|
|
@wait #500
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4040 @print #str4040
|
|
|
|
|
@wait #300
|
|
|
|
|
@print #str4042
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4050 @print #str4050
|
|
|
|
|
@wait #500
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4060 @print #str4060
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4070 @explode
|
|
|
|
|
@print #str4070
|
|
|
|
|
@wait #500
|
|
|
|
|
@print #str4072
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4080 @print #str4080
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4090 @print #str4090
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4100 @print #str4100
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4110 @print #str4110
|
|
|
|
|
@wait #500
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4120 @print #str4120
|
|
|
|
|
@wait #400
|
|
|
|
|
@print #str4124
|
|
|
|
|
@wait #250
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4130 @print #str4130
|
|
|
|
|
@wait #400
|
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
* pla
|
|
|
|
|
* pla
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
|
|
|
|
@print #str4133
|
|
|
|
|
@wait #200
|
2023-11-22 19:24:48 +00:00
|
|
|
|
jmp :20050
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4140 @print #str4140
|
|
|
|
|
@wait #450
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4150 @print #str4150
|
|
|
|
|
@wait #400
|
|
|
|
|
@print #str4152
|
|
|
|
|
@wait #500
|
|
|
|
|
@print #str4156
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4160 @print #str4160
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4170 @print #str4170
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4180 @print #str4180
|
|
|
|
|
@explode
|
|
|
|
|
@wait #300
|
|
|
|
|
@print #str4185
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4190 @print #str4190
|
|
|
|
|
@wait #300
|
|
|
|
|
@print #str4195
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4200 @print #str4200
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4210 @print #str4210
|
|
|
|
|
@wait #400
|
|
|
|
|
@print #str4215
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4220 @print #str4220
|
|
|
|
|
@wait #200
|
|
|
|
|
@print #str4225
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4230 @explode
|
|
|
|
|
@print #str4230
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4240 @print #str4240
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4250 @print #str4250
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4260 @print #str4260
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4270 @print #str4270
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4280 @print #str4280
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4290 @print #str4290
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4300 @print #str4300
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4310 @print #str4310
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4320 @print #str4320
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4330 @print #str4330
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4340 @print #str4340
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4350 @explode
|
|
|
|
|
@print #str4350
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4360 @print #str4360
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4370 @print #str4370
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4380 @print #str4380
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4390 @print #str4390
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4400 @print #str4400
|
|
|
|
|
@wait #150
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4410 @print #str4410
|
|
|
|
|
@wait #200
|
|
|
|
|
@print #str4412
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4420 @print #str4420
|
|
|
|
|
@wait #200
|
|
|
|
|
@print #str4425
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4430 @print #str4430
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4440 @print #str4440
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4450 @print #str4450
|
|
|
|
|
@wait #100
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4460 @print #str4460
|
|
|
|
|
@wait #250
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4470 @print #str4470
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4480 @explode
|
|
|
|
|
@print #str4480
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
:4490 @explode
|
|
|
|
|
@print #str4490
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4500 @print #str4500
|
|
|
|
|
@wait #300
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4510 @print #str4510
|
|
|
|
|
@wait #150
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4520 @print #str4520
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4530 @print #str4530
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4540 @print #str4540
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4550 @print #str4550
|
|
|
|
|
@print #PL
|
|
|
|
|
@print #str4552
|
|
|
|
|
@wait #300
|
|
|
|
|
@print #str4555
|
|
|
|
|
@wait #150
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4560 @explode
|
|
|
|
|
@print #str4560
|
|
|
|
|
@wait #200
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4570 @explode
|
|
|
|
|
@print #str4570
|
|
|
|
|
@wait #250
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4580 @print #str4580
|
|
|
|
|
@wait #300
|
|
|
|
|
@print #str4582
|
|
|
|
|
@wait #100
|
|
|
|
|
@print #str4585
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
*--------
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4590 @print #str4590
|
2023-11-20 21:51:03 +00:00
|
|
|
|
jsr GETLN1
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* cpx #4
|
|
|
|
|
* bne :4595
|
2023-11-19 17:18:29 +00:00
|
|
|
|
|
|
|
|
|
ldx #4-1
|
|
|
|
|
]lp lda TEXTBUFFER,x
|
|
|
|
|
cmp PL,x
|
|
|
|
|
bne :4595
|
|
|
|
|
dex
|
|
|
|
|
bpl ]lp
|
2023-11-22 19:24:48 +00:00
|
|
|
|
bmi :4600 ; t'as gagn<67>
|
2023-11-19 17:18:29 +00:00
|
|
|
|
:4595 jmp :4570 ; t'as perdu
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 4600
|
|
|
|
|
*-----------------------------------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
|
|
|
|
:4600
|
|
|
|
|
@wait #200 ; et le texte
|
|
|
|
|
@print #strCODEEXACT
|
|
|
|
|
@wait #400
|
|
|
|
|
jsr :10000
|
|
|
|
|
@print #strENDEHORS
|
|
|
|
|
jmp :32000
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
|
|
|
|
:4610
|
|
|
|
|
@print #str4610
|
|
|
|
|
@wait #400
|
|
|
|
|
@print #str4615
|
|
|
|
|
@wait #150
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
|
|
|
|
:4620
|
|
|
|
|
@print #str4620
|
|
|
|
|
@wait #350
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:4630
|
|
|
|
|
@print #str4630
|
|
|
|
|
@wait #400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
|
|
|
|
:4640
|
|
|
|
|
@print #str4640
|
|
|
|
|
@wait #350
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 6000 - ANALYSE DU MOT
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
:6000 lda #0
|
|
|
|
|
sta N
|
2023-11-18 18:08:43 +00:00
|
|
|
|
sta X$1
|
|
|
|
|
sta X$2
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
|
|
|
|
sta MO$1
|
|
|
|
|
sta MO$2
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
* 1. cherche le premier caract<EFBFBD>re
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
|
|
|
|
ldx #0 ; cherche le premier caractere
|
|
|
|
|
]lp lda TEXTBUFFER,x
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* cmp #chrRET2
|
|
|
|
|
* beq :6021
|
2023-11-18 16:25:05 +00:00
|
|
|
|
cmp #chrSPC2
|
2023-11-21 18:49:43 +00:00
|
|
|
|
bne :6022 ; on a trouv<75> un caract<63>re
|
2023-11-18 10:16:31 +00:00
|
|
|
|
inx
|
|
|
|
|
cpx lenSTRING
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* bcs :6021
|
|
|
|
|
* cpx #nbCAR
|
2023-11-18 10:16:31 +00:00
|
|
|
|
bcc ]lp
|
|
|
|
|
:6021 rts ; retourne sans avoir trouve
|
|
|
|
|
|
|
|
|
|
* 2. recopie le mot
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* 0123456789A
|
|
|
|
|
* 123456789
|
|
|
|
|
* PREN COMBI\
|
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
:6022 ldy #1
|
2023-11-18 16:25:05 +00:00
|
|
|
|
]lp lda TEXTBUFFER,x
|
2023-11-18 10:16:31 +00:00
|
|
|
|
cmp #chrRET2
|
|
|
|
|
beq :6023
|
2023-11-18 16:25:05 +00:00
|
|
|
|
cmp #chrSPC2
|
|
|
|
|
beq :6023
|
2023-11-22 19:24:48 +00:00
|
|
|
|
sta X$1,y ; 0P1R2E3N4
|
2023-11-18 10:16:31 +00:00
|
|
|
|
inx
|
|
|
|
|
cpx lenSTRING
|
|
|
|
|
bcs :6023
|
|
|
|
|
iny
|
|
|
|
|
cpy #4
|
|
|
|
|
bcc ]lp
|
2023-11-18 16:25:05 +00:00
|
|
|
|
beq ]lp
|
2023-11-22 19:24:48 +00:00
|
|
|
|
dey
|
|
|
|
|
:6023 sty X$1 ; sauve la longueur
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-18 16:25:05 +00:00
|
|
|
|
* 3. cherche un espace
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* inx
|
2023-11-18 10:16:31 +00:00
|
|
|
|
]lp lda TEXTBUFFER,x
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* cmp #chrRET2
|
|
|
|
|
* beq :6032
|
2023-11-18 16:25:05 +00:00
|
|
|
|
cmp #chrSPC2
|
|
|
|
|
beq :6032
|
2023-11-22 19:24:48 +00:00
|
|
|
|
inx ; 5
|
2023-11-18 10:16:31 +00:00
|
|
|
|
cpx lenSTRING
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* bcs :6100
|
|
|
|
|
* cpx #nbCAR
|
2023-11-18 10:16:31 +00:00
|
|
|
|
bcc ]lp
|
2023-11-21 18:49:43 +00:00
|
|
|
|
bcs :6100
|
2023-11-22 19:24:48 +00:00
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
* 4. recopie le mot
|
|
|
|
|
|
2023-11-18 16:25:05 +00:00
|
|
|
|
:6032 inx
|
|
|
|
|
ldy #1
|
|
|
|
|
]lp lda TEXTBUFFER,x
|
2023-11-18 10:16:31 +00:00
|
|
|
|
cmp #chrRET2
|
|
|
|
|
beq :6033
|
2023-11-18 16:25:05 +00:00
|
|
|
|
cmp #chrSPC2
|
|
|
|
|
beq :6033
|
2023-11-18 10:16:31 +00:00
|
|
|
|
sta X$2,y
|
|
|
|
|
inx
|
|
|
|
|
cpx lenSTRING
|
|
|
|
|
bcs :6033
|
|
|
|
|
iny
|
|
|
|
|
cpy #4
|
|
|
|
|
bcc ]lp
|
2023-11-18 16:25:05 +00:00
|
|
|
|
beq ]lp
|
2023-11-22 19:24:48 +00:00
|
|
|
|
dey
|
|
|
|
|
:6033 sty X$2 ; sauve la longueur
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-18 16:25:05 +00:00
|
|
|
|
* 5. cherche le mot dans les options
|
2023-11-18 18:08:43 +00:00
|
|
|
|
* X$1 4 PREN
|
|
|
|
|
* X$2 4 LAMP
|
|
|
|
|
* V$x 6 04PREN
|
|
|
|
|
* 0 123456
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:6100 lda X$1
|
|
|
|
|
bne :6110
|
|
|
|
|
rts
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:6110 ldy #1
|
|
|
|
|
]lp tya
|
2023-11-18 18:08:43 +00:00
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
lda tblV$,x
|
2023-11-22 19:24:48 +00:00
|
|
|
|
sta :6225+1
|
2023-11-18 18:08:43 +00:00
|
|
|
|
lda tblV$+1,x
|
2023-11-22 19:24:48 +00:00
|
|
|
|
sta :6225+2
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
|
|
|
|
ldx #1
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:6225 lda $bdbd,x
|
2023-11-18 18:08:43 +00:00
|
|
|
|
cmp X$1,x
|
|
|
|
|
bne :6250
|
|
|
|
|
inx
|
|
|
|
|
cpx X$1
|
2023-11-22 19:24:48 +00:00
|
|
|
|
bcc :6225
|
|
|
|
|
beq :6225
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
lda tblV,y
|
2023-11-22 19:24:48 +00:00
|
|
|
|
sta MO$1
|
|
|
|
|
bne :6300
|
|
|
|
|
|
|
|
|
|
:6250 iny
|
|
|
|
|
cpy #V
|
|
|
|
|
bcc ]lp
|
|
|
|
|
beq ]lp
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
|
|
|
|
* 6. on change de mot
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:6300 lda X$2
|
|
|
|
|
bne :6310
|
|
|
|
|
rts
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:6310 ldy #1
|
|
|
|
|
]lp tya
|
|
|
|
|
asl
|
|
|
|
|
tax
|
|
|
|
|
lda tblV$,x
|
|
|
|
|
sta :6325+1
|
|
|
|
|
lda tblV$+1,x
|
|
|
|
|
sta :6325+2
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
ldx #1
|
|
|
|
|
:6325 lda $bdbd,x
|
|
|
|
|
cmp X$2,x
|
|
|
|
|
bne :6350
|
|
|
|
|
inx
|
|
|
|
|
cpx X$1
|
|
|
|
|
bcc :6325
|
|
|
|
|
beq :6325
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
lda tblV,y
|
|
|
|
|
sta MO$2
|
|
|
|
|
bne :6400
|
|
|
|
|
|
|
|
|
|
:6350 iny
|
|
|
|
|
cpy #V
|
|
|
|
|
bcc ]lp
|
|
|
|
|
beq ]lp
|
|
|
|
|
|
|
|
|
|
:6400 rts
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
* 7000 - DESCRIPTION DES PIECES
|
2023-11-13 11:02:29 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
tbl7000
|
2023-11-18 16:25:05 +00:00
|
|
|
|
da $bdbd
|
2023-11-16 20:31:28 +00:00
|
|
|
|
da :7000
|
|
|
|
|
da :7010
|
|
|
|
|
da :7020
|
|
|
|
|
da :7030
|
|
|
|
|
da :7040
|
|
|
|
|
da :7050
|
|
|
|
|
da :7060
|
|
|
|
|
da :7070
|
|
|
|
|
da :7080
|
|
|
|
|
da :7090
|
|
|
|
|
da :7100
|
|
|
|
|
da :7110
|
|
|
|
|
da :7120
|
|
|
|
|
da :7130
|
|
|
|
|
da :7140
|
|
|
|
|
da :7150
|
|
|
|
|
da :7160
|
|
|
|
|
da :7170
|
|
|
|
|
da :7180
|
|
|
|
|
da :7190
|
|
|
|
|
da :7200
|
|
|
|
|
da :7210
|
|
|
|
|
da :7220
|
|
|
|
|
da :7230
|
|
|
|
|
da :7240
|
|
|
|
|
|
|
|
|
|
:7000
|
|
|
|
|
@print #str7000
|
2023-11-13 11:02:29 +00:00
|
|
|
|
@wait #250
|
2023-11-16 20:31:28 +00:00
|
|
|
|
@print #str7001
|
2023-11-20 21:51:03 +00:00
|
|
|
|
jsr :10000
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7010
|
|
|
|
|
@print #str7010
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10100
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7020
|
|
|
|
|
@print #str7020
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10200
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7030
|
|
|
|
|
@print #str7030
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #0
|
|
|
|
|
sta F1
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10300
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7040
|
|
|
|
|
@print #str7040
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #1
|
|
|
|
|
sta F1
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10300
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7050
|
|
|
|
|
@print #str7050
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10500
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7060
|
|
|
|
|
@print #str7060
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10600
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7070
|
|
|
|
|
@print #str7070
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #0
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10700
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7080
|
|
|
|
|
@print #str7080
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10800
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7090
|
|
|
|
|
@print #str7090
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #0
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10900
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7100
|
|
|
|
|
@print #str7100
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #0
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :11000
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7110
|
|
|
|
|
@print #str7110
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #2
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10700
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7120
|
|
|
|
|
@print #str7120
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #1
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10700
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7130 ; nada
|
2023-11-13 11:02:29 +00:00
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7140
|
|
|
|
|
@print #str7140
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #2
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :12200
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7150
|
|
|
|
|
@print #str7150
|
|
|
|
|
@print #str7001
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :11500
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7160
|
|
|
|
|
@print #str7160
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #1
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10900
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7170
|
2023-11-13 11:02:29 +00:00
|
|
|
|
@wait #300
|
2023-11-16 20:31:28 +00:00
|
|
|
|
@print #str7170
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :11700
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7180
|
|
|
|
|
@print #str7180
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :11800
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7190
|
|
|
|
|
@print #str7190
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #2
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :10900
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7200
|
|
|
|
|
@print #str7200
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #1
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :12200
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7210
|
|
|
|
|
@print #str7210
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #1
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :11000
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7220
|
|
|
|
|
@print #str7220
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #0
|
|
|
|
|
sta LX
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :12200
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7230
|
|
|
|
|
@print #str7230
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :12300
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:7240
|
|
|
|
|
@print #str7240
|
2023-11-18 16:25:05 +00:00
|
|
|
|
jmp :12400
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
*--------
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 8000 - CHARGEMENT VARIABLES
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
hex bdbdbdbd
|
|
|
|
|
|
2023-11-14 04:44:00 +00:00
|
|
|
|
initALL
|
2023-11-22 19:24:48 +00:00
|
|
|
|
ldx #FIN_DATA-DEBUT_DATA-1
|
2023-11-16 20:31:28 +00:00
|
|
|
|
lda #0
|
2023-11-22 19:24:48 +00:00
|
|
|
|
]lp sta A1,x
|
2023-11-13 11:02:29 +00:00
|
|
|
|
dex
|
2023-11-22 19:24:48 +00:00
|
|
|
|
bpl ]lp
|
|
|
|
|
|
|
|
|
|
*---
|
|
|
|
|
|
|
|
|
|
lda #1
|
|
|
|
|
sta SALLE
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* ldx #10
|
|
|
|
|
* lda #0
|
|
|
|
|
*]lp sta P,x
|
|
|
|
|
* sta C,x
|
|
|
|
|
* dex
|
|
|
|
|
* bne ]lp
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
* lda #0
|
|
|
|
|
* sta P+11
|
|
|
|
|
* sta P+12
|
|
|
|
|
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #14
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sta C+3
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #12
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sta C+7
|
|
|
|
|
sta C+9
|
2023-11-13 11:02:29 +00:00
|
|
|
|
lda #80
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sta C+1
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
|
|
|
|
* PL=INT(RND(1)*9000+1000)
|
|
|
|
|
|
2023-11-19 17:18:29 +00:00
|
|
|
|
ldx #0
|
|
|
|
|
]lp lda VBL
|
|
|
|
|
eor VERTCNT
|
|
|
|
|
and #%0000_0111
|
|
|
|
|
clc
|
|
|
|
|
adc #1
|
|
|
|
|
cmp #9+1
|
|
|
|
|
bcs ]lp
|
|
|
|
|
ora #"0"
|
|
|
|
|
sta PL,x
|
|
|
|
|
inx
|
|
|
|
|
cpx #4
|
|
|
|
|
bcc ]lp
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
*---
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
ldx #nbO ; reset object table
|
|
|
|
|
]lp lda refO,x
|
|
|
|
|
sta O,x
|
|
|
|
|
dex
|
|
|
|
|
bpl ]lp
|
|
|
|
|
|
|
|
|
|
ldx #nbO*2 ; reset object table
|
|
|
|
|
]lp lda refO$,x
|
|
|
|
|
sta tblO$,x
|
|
|
|
|
dex
|
|
|
|
|
bpl ]lp
|
2023-11-13 11:02:29 +00:00
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 10000 - LES IMAGES
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10000
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10000
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10100
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10100
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10200
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10200
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10300
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10300
|
|
|
|
|
lda F1
|
2023-11-16 20:31:28 +00:00
|
|
|
|
bne :10301
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10301
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10301 rts
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10400
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10400
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10500
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10500
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10600
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10600
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10700
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10700
|
|
|
|
|
lda LX
|
|
|
|
|
cmp #2
|
2023-11-16 20:31:28 +00:00
|
|
|
|
beq :10745
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10701
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10745 lda LX
|
|
|
|
|
bne :10750
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10702
|
|
|
|
|
rts
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10750 cmp #1
|
|
|
|
|
beq :10780
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10703
|
|
|
|
|
rts
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10780 @draw #data10704
|
2023-11-15 21:29:16 +00:00
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10800
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10800
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10900
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10900
|
|
|
|
|
lda LX
|
2023-11-16 20:31:28 +00:00
|
|
|
|
bne :10915
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10901
|
2023-11-16 20:31:28 +00:00
|
|
|
|
jmp :10920
|
|
|
|
|
:10915 @draw #data10902
|
|
|
|
|
:10920 @draw #data10903
|
2023-11-15 21:29:16 +00:00
|
|
|
|
lda LX
|
2023-11-16 20:31:28 +00:00
|
|
|
|
bne :10935
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10904
|
|
|
|
|
rts
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10935 cmp #1
|
|
|
|
|
bne :10940
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data10905
|
|
|
|
|
rts
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:10940 @draw #data10906
|
2023-11-15 21:29:16 +00:00
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:11000
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data11000
|
|
|
|
|
lda LX
|
2023-11-16 20:31:28 +00:00
|
|
|
|
bne :11030
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data11001
|
|
|
|
|
rts
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:11030 @draw #data11002
|
2023-11-15 21:29:16 +00:00
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:11500
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data11500
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:11700
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data11700
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:11800
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data11800
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:12200
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data12200
|
|
|
|
|
lda LX
|
|
|
|
|
cmp #2
|
2023-11-16 20:31:28 +00:00
|
|
|
|
bne :12220
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data12201
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:12220 @draw #data12202
|
2023-11-15 21:29:16 +00:00
|
|
|
|
lda LX
|
|
|
|
|
cmp #2
|
2023-11-16 20:31:28 +00:00
|
|
|
|
beq :12230
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data12203
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:12230 @draw #data12204
|
2023-11-15 21:29:16 +00:00
|
|
|
|
lda LX
|
|
|
|
|
cmp #2
|
2023-11-16 20:31:28 +00:00
|
|
|
|
beq :12235
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data12205
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:12235 lda LX
|
|
|
|
|
beq :12240
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data12206
|
|
|
|
|
rts
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:12240 @draw #data12207
|
2023-11-15 21:29:16 +00:00
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:12300
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data12300
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:12400
|
2023-11-15 21:29:16 +00:00
|
|
|
|
@draw #data12400
|
|
|
|
|
rts
|
2023-11-22 19:24:48 +00:00
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 20000 - PERDU
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:20000
|
|
|
|
|
@draw #data13000
|
|
|
|
|
@play #zikPERDU
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:20050 ; commun avec gagne
|
|
|
|
|
jsr setTEXTFULL
|
2023-11-15 21:29:16 +00:00
|
|
|
|
]lp @print #strREPLAY
|
2023-11-22 19:24:48 +00:00
|
|
|
|
jsr translateKEY
|
2023-11-27 21:52:08 +00:00
|
|
|
|
cmp #chrNON
|
2023-11-16 20:31:28 +00:00
|
|
|
|
beq :20001
|
2023-11-27 21:52:08 +00:00
|
|
|
|
cmp #chrOUI
|
2023-11-15 21:29:16 +00:00
|
|
|
|
bne ]lp
|
|
|
|
|
jmp REPLAY
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
:20001
|
|
|
|
|
lda sauveCYA
|
|
|
|
|
sta CYAREG
|
|
|
|
|
|
|
|
|
|
jsr PRODOS ; exit
|
|
|
|
|
dfb $65
|
|
|
|
|
da proQUIT
|
|
|
|
|
brk $bd ; on ne se refait pas ;-)
|
|
|
|
|
|
|
|
|
|
*--- Data
|
|
|
|
|
|
|
|
|
|
proQUIT dfb 4
|
|
|
|
|
ds 1
|
|
|
|
|
ds 2
|
|
|
|
|
ds 1
|
|
|
|
|
ds 2
|
|
|
|
|
|
|
|
|
|
sauveCYA ds 1
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*-----------------------------------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
* 32000 - GAGNE
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:32000
|
2023-11-22 19:24:48 +00:00
|
|
|
|
@play #zikGAGNE
|
2023-11-22 20:33:57 +00:00
|
|
|
|
|
|
|
|
|
:32010
|
2023-11-15 21:29:16 +00:00
|
|
|
|
jsr setTEXTFULL
|
|
|
|
|
@print #strGAGNE
|
2023-11-22 19:24:48 +00:00
|
|
|
|
|
2023-11-22 20:33:57 +00:00
|
|
|
|
*--- L'animation du nain qui rode
|
|
|
|
|
|
|
|
|
|
ldx #1
|
|
|
|
|
ldy #190
|
|
|
|
|
]lp lda #" "
|
|
|
|
|
sta $551,x
|
|
|
|
|
sta $5d1,x
|
|
|
|
|
sta $650,x
|
|
|
|
|
|
|
|
|
|
lda #"o"
|
|
|
|
|
sta $552,x
|
|
|
|
|
lda #"O"
|
|
|
|
|
sta $5d2,x
|
|
|
|
|
lda #"/"
|
|
|
|
|
sta $651,x
|
|
|
|
|
lda #"\"
|
|
|
|
|
sta $653,x
|
|
|
|
|
|
|
|
|
|
bit SPKR
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
jsr WAIT
|
|
|
|
|
|
|
|
|
|
lda #"\"
|
|
|
|
|
sta $651,x
|
|
|
|
|
lda #"/"
|
|
|
|
|
sta $653,x
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
jsr WAIT
|
|
|
|
|
|
|
|
|
|
bit SPKR
|
|
|
|
|
|
|
|
|
|
tya
|
|
|
|
|
clc
|
|
|
|
|
adc #2
|
|
|
|
|
tay
|
|
|
|
|
|
|
|
|
|
inx
|
|
|
|
|
cpx #30
|
|
|
|
|
bcc ]lp
|
|
|
|
|
|
|
|
|
|
jmp :20050
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 40000 - LISTE DES INSTRUCTIONS
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:40000
|
2023-11-15 21:29:16 +00:00
|
|
|
|
jsr setTEXTFULL
|
|
|
|
|
]lp @print #strINSTR
|
2023-11-22 19:24:48 +00:00
|
|
|
|
jsr translateKEY
|
2023-11-27 21:52:08 +00:00
|
|
|
|
cmp #chrNON
|
2023-11-16 20:31:28 +00:00
|
|
|
|
beq :40001
|
2023-11-27 21:52:08 +00:00
|
|
|
|
cmp #chrOUI
|
2023-11-15 21:29:16 +00:00
|
|
|
|
bne ]lp
|
|
|
|
|
|
|
|
|
|
@print #strINSTR2
|
2023-11-22 19:24:48 +00:00
|
|
|
|
jsr translateKEY
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:40001 rts
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* 51000 - DISCLAIMER
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
:51000
|
2023-11-15 21:29:16 +00:00
|
|
|
|
jsr setTEXTFULL
|
|
|
|
|
@print #strDISCLAIMER
|
2023-11-22 19:24:48 +00:00
|
|
|
|
jmp translateKEY
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* introPIC - la picture GR
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
introPIC
|
|
|
|
|
jsr setTEXTFULL
|
|
|
|
|
|
|
|
|
|
lda #3
|
|
|
|
|
sta CH
|
|
|
|
|
lda #11
|
|
|
|
|
jsr TABV
|
|
|
|
|
@print #strLORICIELS
|
|
|
|
|
@wait #300
|
|
|
|
|
|
|
|
|
|
jsr HOME
|
|
|
|
|
@print #strLEMANOIR
|
|
|
|
|
|
|
|
|
|
lda #5
|
|
|
|
|
sta CH
|
|
|
|
|
lda #22
|
|
|
|
|
jsr TABV
|
|
|
|
|
@print #strINTRO1
|
|
|
|
|
@wait #300
|
|
|
|
|
|
|
|
|
|
lda #5
|
|
|
|
|
sta CH
|
|
|
|
|
@print #strINTRO2
|
|
|
|
|
@wait #300
|
|
|
|
|
|
|
|
|
|
lda #5
|
|
|
|
|
sta CH
|
|
|
|
|
@print #strINTRO3
|
|
|
|
|
@wait #300
|
|
|
|
|
|
|
|
|
|
lda #5
|
|
|
|
|
sta CH
|
|
|
|
|
@print #strINTRO4
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
|
|
|
|
@play #zikINTRODUCTION
|
|
|
|
|
rts
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
*-----------------------------------
|
2023-11-18 18:08:43 +00:00
|
|
|
|
* ORIC
|
2023-11-16 20:31:28 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-18 18:08:43 +00:00
|
|
|
|
EXPLODE ldx #$25
|
|
|
|
|
]lp lda TXTSET
|
|
|
|
|
lda #$25
|
|
|
|
|
jsr WAIT
|
|
|
|
|
lda TXTCLR
|
|
|
|
|
lda #$25
|
|
|
|
|
jsr WAIT
|
|
|
|
|
dex
|
|
|
|
|
bpl ]lp
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* CODE 6502
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
*----------------------
|
|
|
|
|
* setTEXTFULL
|
|
|
|
|
*----------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
setTEXTFULL ; 40x24 text
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sta CLR80VID
|
|
|
|
|
jsr INIT ; text screen
|
|
|
|
|
jsr SETNORM ; set normal text mode
|
|
|
|
|
jsr SETKBD ; reset input to keyboard
|
|
|
|
|
jmp HOME ; home cursor and clear to end of page
|
|
|
|
|
|
|
|
|
|
*----------------------
|
2023-11-16 20:31:28 +00:00
|
|
|
|
* setHGR
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*----------------------
|
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
setHGR ; HGR
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sta TXTCLR
|
|
|
|
|
sta MIXCLR
|
|
|
|
|
sta TXTPAGE1
|
|
|
|
|
sta HIRES
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
*----------------------
|
|
|
|
|
* switchVIDEO
|
|
|
|
|
*----------------------
|
|
|
|
|
|
|
|
|
|
switchVIDEO
|
2023-11-25 22:49:06 +00:00
|
|
|
|
lda #0
|
2023-11-18 10:16:31 +00:00
|
|
|
|
eor #1
|
2023-11-25 22:49:06 +00:00
|
|
|
|
sta switchVIDEO+1
|
2023-11-22 07:06:49 +00:00
|
|
|
|
bne setMIXEDOFF
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-25 22:49:06 +00:00
|
|
|
|
*----------------------
|
|
|
|
|
* switchCASE
|
|
|
|
|
*----------------------
|
|
|
|
|
|
|
|
|
|
switchCASE
|
|
|
|
|
lda fgCASE
|
|
|
|
|
eor #$80
|
|
|
|
|
sta fgCASE
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*----------------------
|
|
|
|
|
* setMIXEDON
|
|
|
|
|
*----------------------
|
|
|
|
|
|
|
|
|
|
setMIXEDON ; HGR + 4 LINES OF TEXT
|
|
|
|
|
sta MIXSET
|
2023-11-20 21:51:03 +00:00
|
|
|
|
rts
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*----------------------
|
|
|
|
|
* setMIXEDOFF
|
|
|
|
|
*----------------------
|
|
|
|
|
|
2023-11-18 10:16:31 +00:00
|
|
|
|
setMIXEDOFF ; FULL HGR
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sta MIXCLR
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*----------------------
|
|
|
|
|
* printCSTR
|
|
|
|
|
*----------------------
|
|
|
|
|
|
|
|
|
|
printCSTRING
|
|
|
|
|
sty pcs1+1
|
|
|
|
|
stx pcs1+2
|
|
|
|
|
|
|
|
|
|
pcs1 lda $ffff
|
2023-11-25 22:49:06 +00:00
|
|
|
|
beq pcs3
|
|
|
|
|
|
|
|
|
|
bit fgCASE
|
|
|
|
|
bpl pcs2
|
|
|
|
|
|
|
|
|
|
tax ; from lower to upper
|
|
|
|
|
lda tblKEY,x
|
|
|
|
|
|
|
|
|
|
pcs2 jsr COUT
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
|
|
|
|
inc pcs1+1
|
|
|
|
|
bne pcs1
|
|
|
|
|
inc pcs1+2
|
|
|
|
|
bne pcs1
|
|
|
|
|
|
2023-11-25 22:49:06 +00:00
|
|
|
|
pcs3 rts
|
|
|
|
|
|
|
|
|
|
*--------
|
|
|
|
|
|
|
|
|
|
fgCASE ds 1 ; $00 lower OK, $80 otherwise
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
|
|
|
|
*----------------------
|
|
|
|
|
* waitMS
|
|
|
|
|
*----------------------
|
|
|
|
|
|
2023-11-22 07:06:49 +00:00
|
|
|
|
switchWAIT
|
|
|
|
|
lda waitMS+1
|
|
|
|
|
eor #1
|
|
|
|
|
sta waitMS+1
|
|
|
|
|
rts
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
waitMS lda #0 ; skip if not zero
|
2023-11-22 07:06:49 +00:00
|
|
|
|
bne waitMS9
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sty LINNUM
|
|
|
|
|
doW1 ldy LINNUM
|
|
|
|
|
]lp lda #60 ; 1/100<30>me de seconde
|
|
|
|
|
jsr WAIT
|
|
|
|
|
dey
|
|
|
|
|
bne ]lp
|
|
|
|
|
dex
|
|
|
|
|
bpl doW1
|
2023-11-22 07:06:49 +00:00
|
|
|
|
waitMS9 rts
|
2023-11-15 21:29:16 +00:00
|
|
|
|
|
|
|
|
|
*----------------------
|
|
|
|
|
* drawPICTURE
|
|
|
|
|
*----------------------
|
|
|
|
|
|
|
|
|
|
drawPICTURE
|
|
|
|
|
sty drawREAD+1
|
|
|
|
|
stx drawREAD+2
|
|
|
|
|
|
|
|
|
|
drawLOOP jsr drawREAD
|
|
|
|
|
cmp #$ff
|
|
|
|
|
bne drawPIC1
|
|
|
|
|
rts ; the end
|
|
|
|
|
|
|
|
|
|
drawPIC1 ldx #myADRS-myCMDS-1
|
|
|
|
|
]lp cmp myCMDS,x
|
|
|
|
|
beq drawPIC2
|
|
|
|
|
dex
|
|
|
|
|
bpl ]lp
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
drawPIC2 txa
|
|
|
|
|
asl
|
|
|
|
|
tax
|
2023-11-22 21:46:35 +00:00
|
|
|
|
lda myADRS,x
|
|
|
|
|
sta drawPIC3+1
|
|
|
|
|
lda myADRS+1,x
|
|
|
|
|
sta drawPIC3+2
|
|
|
|
|
drawPIC3 jsr $bdbd
|
2023-11-15 21:29:16 +00:00
|
|
|
|
jmp drawLOOP
|
|
|
|
|
|
|
|
|
|
*-------- Read data
|
|
|
|
|
|
|
|
|
|
drawREAD lda $bdbd
|
|
|
|
|
inc drawREAD+1
|
|
|
|
|
bne drawREAD1
|
|
|
|
|
inc drawREAD+2
|
|
|
|
|
drawREAD1 rts
|
|
|
|
|
|
|
|
|
|
*----------------------------------- CURSET x,y,fb
|
|
|
|
|
|
|
|
|
|
doS
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
sta theX
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
sta theX+1
|
|
|
|
|
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
sta theY
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
sta theY+1
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*----------------------------------- CURMOV x,y,fb
|
|
|
|
|
|
|
|
|
|
doM
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
clc
|
|
|
|
|
adc theX
|
|
|
|
|
sta theX
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
adc theX+1
|
|
|
|
|
sta theX+1 ; new X-coord
|
|
|
|
|
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
clc
|
|
|
|
|
adc theY
|
|
|
|
|
sta theY
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
adc theY+1
|
|
|
|
|
sta theY+1 ; new X-coord
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*----------------------------------- DRAW x,y,fb
|
|
|
|
|
|
|
|
|
|
doD
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
clc
|
|
|
|
|
adc theX
|
|
|
|
|
sta theX2
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
adc theX+1
|
|
|
|
|
sta theX2+1 ; new X-coord
|
|
|
|
|
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
clc
|
|
|
|
|
adc theY
|
|
|
|
|
sta theY2
|
|
|
|
|
jsr drawREAD
|
2023-11-21 18:49:43 +00:00
|
|
|
|
adc theY+1
|
2023-11-15 21:29:16 +00:00
|
|
|
|
sta theY2+1 ; new Y-coord
|
|
|
|
|
|
2023-11-21 18:49:43 +00:00
|
|
|
|
*---------- Check height
|
|
|
|
|
|
|
|
|
|
lda theY
|
|
|
|
|
cmp #maxY
|
|
|
|
|
bcc doD1
|
|
|
|
|
lda #maxY
|
|
|
|
|
sta theY
|
|
|
|
|
|
|
|
|
|
doD1 lda theY2
|
|
|
|
|
cmp #maxY
|
|
|
|
|
bcc doD2
|
|
|
|
|
lda #maxY
|
|
|
|
|
sta theY2
|
|
|
|
|
doD2
|
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*---------- It is now time to draw as we have all variables
|
|
|
|
|
|
|
|
|
|
ldy theINK ; the ink color
|
|
|
|
|
ldx oric2hgr,y ; from the Oric to the Apple II
|
|
|
|
|
jsr HCOLOR+3 ; to skip CHRGET
|
|
|
|
|
|
|
|
|
|
ldx theX ; HPLOT x,y
|
|
|
|
|
ldy theX+1
|
|
|
|
|
lda theY
|
|
|
|
|
jsr HPLOT
|
|
|
|
|
|
|
|
|
|
lda theX2 ; TO x2,Y2
|
|
|
|
|
ldx theX2+1
|
|
|
|
|
ldy theY2
|
|
|
|
|
jsr HILIN ; draw the line
|
|
|
|
|
|
|
|
|
|
lda X0L ; save the updated coords
|
|
|
|
|
sta theX
|
|
|
|
|
lda X0H
|
|
|
|
|
sta theX+1
|
|
|
|
|
lda Y0
|
|
|
|
|
sta theY
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*----------------------------------- CIRCLE n,fb
|
|
|
|
|
|
|
|
|
|
doC
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
sta theRADIUS ; the radius
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*----------------------------------- INK fb
|
|
|
|
|
|
|
|
|
|
doI
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
sta theINK
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*----------------------------------- PAPER fb
|
|
|
|
|
|
|
|
|
|
doP
|
|
|
|
|
jsr drawREAD
|
|
|
|
|
sta thePAPER
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*----------------------------------- HIRES
|
|
|
|
|
|
|
|
|
|
doH
|
|
|
|
|
jsr HGR
|
|
|
|
|
sta MIXCLR
|
2023-11-14 04:44:00 +00:00
|
|
|
|
rts
|
2023-11-13 16:14:12 +00:00
|
|
|
|
|
2023-11-15 21:29:16 +00:00
|
|
|
|
*----------------------
|
|
|
|
|
* Donn<EFBFBD>es du moteur
|
|
|
|
|
*----------------------
|
|
|
|
|
|
|
|
|
|
myCMDS asc "SMDCIPH"
|
|
|
|
|
|
|
|
|
|
myADRS da doS ; curset
|
|
|
|
|
da doM ; curmov
|
|
|
|
|
da doD ; draw
|
|
|
|
|
da doC ; circle
|
|
|
|
|
da doI ; ink
|
|
|
|
|
da doP ; paper
|
|
|
|
|
da doH ; hires
|
|
|
|
|
|
|
|
|
|
*----------------------
|
|
|
|
|
|
|
|
|
|
theX dw 140 ; milieu de l'<27>cran par d<>faut
|
|
|
|
|
theY ds 96
|
|
|
|
|
theX2 ds 2
|
|
|
|
|
theY2 ds 2
|
|
|
|
|
theRADIUS ds 1
|
|
|
|
|
theFB ds 1
|
|
|
|
|
theINK ds 1
|
|
|
|
|
thePAPER ds 1
|
|
|
|
|
|
|
|
|
|
* APPLE ORIC
|
|
|
|
|
* 0 black1 black
|
|
|
|
|
* 1 green red
|
|
|
|
|
* 2 blue green
|
|
|
|
|
* 3 white1 yellow
|
|
|
|
|
* 4 black2 blue
|
|
|
|
|
* 5 - magenta
|
|
|
|
|
* 6 - cyan
|
|
|
|
|
* 7 white2 white
|
|
|
|
|
|
|
|
|
|
oric2hgr hex 0705010602030400
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* rewriteSTRING (lower -> upper)
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
rewriteSTRING
|
|
|
|
|
ldx #0
|
|
|
|
|
]lp ldy TEXTBUFFER,x
|
|
|
|
|
lda tblKEY,y
|
|
|
|
|
sta TEXTBUFFER,x
|
|
|
|
|
inx
|
|
|
|
|
cpx lenSTRING
|
|
|
|
|
bcc ]lp
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
* translateKEY (lower -> upper)
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
|
|
|
|
translateKEY
|
|
|
|
|
jsr RDKEY
|
|
|
|
|
tax
|
|
|
|
|
lda tblKEY,x
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
tblKEY
|
|
|
|
|
hex 00,01,02,03,04,05,06,07,08,09,0A,0B,0C,0D,0E,0F
|
|
|
|
|
hex 10,11,12,13,14,15,16,17,18,19,1A,1B,1C,1D,1E,1F
|
|
|
|
|
hex 20,21,22,23,24,25,26,27,28,29,2A,2B,2C,2D,2E,2F
|
|
|
|
|
hex 30,31,32,33,34,35,36,37,38,39,3A,3B,3C,3D,3E,3F
|
|
|
|
|
hex 40,41,42,43,44,45,46,47,48,49,4A,4B,4C,4D,4E,4F
|
|
|
|
|
hex 50,51,52,53,54,55,56,57,58,59,5A,5B,5C,5D,5E,5F
|
|
|
|
|
hex 60,61,62,63,64,65,66,67,68,69,6A,6B,6C,6D,6E,6F
|
|
|
|
|
hex 70,71,72,73,74,75,76,77,78,79,7A,7B,7C,7D,7E,7F
|
|
|
|
|
hex 80,81,82,83,84,85,86,87,88,89,8A,8B,8C,8D,8E,8F
|
|
|
|
|
hex 90,91,92,93,94,95,96,97,98,99,9A,9B,9C,9D,9E,9F
|
|
|
|
|
hex A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,AA,AB,AC,AD,AE,AF
|
|
|
|
|
hex B0,B1,B2,B3,B4,B5,B6,B7,B8,B9,BA,BB,BC,BD,BE,BF
|
|
|
|
|
hex C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,CA,CB,CC,CD,CE,CF
|
|
|
|
|
hex D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,DA,DB,DC,DD,DE,DF
|
|
|
|
|
hex E0,C1,C2,C3,C4,C5,C6,C7,C8,C9,CA,CB,CC,CD,CE,CF
|
|
|
|
|
hex D0,D1,D2,D3,D4,D5,D6,D7,D8,D9,DA,FB,FC,FD,FE,FF
|
|
|
|
|
|
2023-11-13 11:02:29 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* VARIABLES
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-25 22:49:06 +00:00
|
|
|
|
V = 73
|
2023-11-18 08:48:34 +00:00
|
|
|
|
|
|
|
|
|
tblV$ da $bdbd
|
2023-11-16 20:31:28 +00:00
|
|
|
|
da V$1,V$2,V$3,V$4,V$5,V$6,V$7,V$8,V$9
|
|
|
|
|
da V$10,V$11,V$12,V$13,V$14,V$15,V$16,V$17,V$18,V$19
|
|
|
|
|
da V$20,V$21,V$22,V$23,V$24,V$25,V$26,V$27,V$28,V$29
|
|
|
|
|
da V$30,V$31,V$32,V$33,V$34,V$35,V$36,V$37,V$38,V$39
|
|
|
|
|
da V$40,V$41,V$42,V$43,V$44,V$45,V$46,V$47,V$48,V$49
|
|
|
|
|
da V$50,V$51,V$52,V$53,V$54,V$55,V$56,V$57,V$58,V$59
|
|
|
|
|
da V$60,V$61,V$62,V$63,V$64,V$65,V$66,V$67,V$68,V$69
|
2023-11-25 22:49:06 +00:00
|
|
|
|
da V$70,V$71,V$72,V$73
|
2023-11-20 18:41:18 +00:00
|
|
|
|
|
|
|
|
|
tblV dfb $bd
|
2023-11-22 07:06:49 +00:00
|
|
|
|
dfb 01,01,02,02,03,03,04,04,05,05
|
|
|
|
|
dfb 06,10,10,11,12,13,14,14,15,16
|
|
|
|
|
dfb 17,17,18,19,20,21,21,22,23,24
|
|
|
|
|
dfb 24,25,25,26,27,28,29,30,31,32
|
|
|
|
|
dfb 33,34,35,36,37,38,18,39,40,41
|
|
|
|
|
dfb 42,43,44,45,46,47,48,49,50,51
|
|
|
|
|
dfb 52,53,53,54,55,55,56,56,57,58
|
2023-11-25 22:49:06 +00:00
|
|
|
|
dfb 59,60,61
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
|
|
|
|
*---
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
nbO = 25
|
|
|
|
|
|
|
|
|
|
refO dfb $bd
|
|
|
|
|
dfb 06,05,05,08,08,00,00,11,11
|
|
|
|
|
dfb 13,20,18,16,16,16,16,00,21
|
|
|
|
|
dfb 00,22,25,12,00,25,00
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
O dfb $bd
|
|
|
|
|
dfb 06,05,05,08,08,00,00,11,11
|
2023-11-13 11:02:29 +00:00
|
|
|
|
dfb 13,20,18,16,16,16,16,00,21
|
|
|
|
|
dfb 00,22,25,12,00,25,00
|
|
|
|
|
|
|
|
|
|
*---
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
refO$ da $bdbd ; see :3300
|
|
|
|
|
da O$1,O$2,O$3,O$4,O$5,O$6,O$7,O$8,O$9
|
|
|
|
|
da O$10,O$11,O$12,O$13,O$14,O$15,O$16,O$17,O$18,O$19
|
|
|
|
|
da O$20,O$21,O$22,O$23,O$24,O$25
|
|
|
|
|
|
|
|
|
|
tblO$ da $bdbd
|
|
|
|
|
da O$1,O$2,O$3,O$4,O$5,O$6,O$7,O$8,O$9
|
2023-11-16 20:31:28 +00:00
|
|
|
|
da O$10,O$11,O$12,O$13,O$14,O$15,O$16,O$17,O$18,O$19
|
|
|
|
|
da O$20,O$21,O$22,O$23,O$24,O$25
|
|
|
|
|
|
2023-11-13 11:02:29 +00:00
|
|
|
|
*---
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
M = 25
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
tblM$ da $bdbd
|
|
|
|
|
da M$1,M$2,M$3,M$4,M$5,M$6,M$7,M$8,M$9
|
2023-11-16 20:31:28 +00:00
|
|
|
|
da M$10,M$11,M$12,M$13,M$14,M$15,M$16,M$17,M$18,M$19
|
|
|
|
|
da M$20,M$21,M$22,M$23,M$24,M$25
|
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
M$1 dfb 00
|
|
|
|
|
M$2 dfb 04,03,03,04,00
|
|
|
|
|
M$3 dfb 03,02,00
|
|
|
|
|
M$4 dfb 04,02,03,05,01,06,00
|
|
|
|
|
M$5 dfb 04,04,01,07,03,20,00
|
|
|
|
|
M$6 dfb 02,04,00
|
|
|
|
|
M$7 dfb 04,08,01,09,02,05,00
|
|
|
|
|
M$8 dfb 03,07,00
|
|
|
|
|
M$9 dfb 04,13,02,07,03,10,00
|
|
|
|
|
M$10 dfb 04,09,02,11,00
|
|
|
|
|
M$11 dfb 01,10,03,12,00
|
|
|
|
|
M$12 dfb 04,11,00
|
|
|
|
|
M$13 dfb 03,09,00
|
|
|
|
|
M$14 dfb 02,09,03,15,00
|
|
|
|
|
M$15 dfb 00
|
|
|
|
|
M$16 dfb 00
|
|
|
|
|
M$17 dfb 00
|
|
|
|
|
M$18 dfb 00
|
|
|
|
|
M$19 dfb 01,22,03,21,00
|
|
|
|
|
M$20 dfb 04,05,00
|
|
|
|
|
M$21 dfb 01,25,02,22,00
|
|
|
|
|
M$22 dfb 01,21,00
|
|
|
|
|
M$23 dfb 01,24,04,22,00
|
|
|
|
|
M$24 dfb 02,23,00
|
|
|
|
|
M$25 dfb 02,21,00
|
|
|
|
|
|
|
|
|
|
*--- On commence <EFBFBD> index 0
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-18 16:25:05 +00:00
|
|
|
|
AA = 128
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
tblA$ da A$1,A$2,A$3,A$4,A$5,A$6,A$7,A$8,A$9
|
2023-11-18 08:48:34 +00:00
|
|
|
|
da A$10,A$11,A$12,A$13,A$14,A$15,A$16,A$17,A$18,A$19
|
|
|
|
|
da A$20,A$21,A$22,A$23,A$24,A$25,A$26,A$27,A$28,A$29
|
|
|
|
|
da A$30,A$31,A$32,A$33,A$34,A$35,A$36,A$37,A$38,A$39
|
|
|
|
|
da A$40,A$41,A$42,A$43,A$44,A$45,A$46,A$47,A$48,A$49
|
|
|
|
|
da A$50,A$51,A$52,A$53,A$54,A$55,A$56,A$57,A$58,A$59
|
|
|
|
|
da A$60,A$61,A$62,A$63,A$64,A$65,A$66,A$67,A$68,A$69
|
|
|
|
|
da A$70,A$71,A$72,A$73,A$74,A$75,A$76,A$77,A$78,A$79
|
|
|
|
|
da A$80,A$81,A$82,A$83,A$84,A$85,A$86,A$87,A$88,A$89
|
|
|
|
|
da A$90,A$91,A$92,A$93,A$94,A$95,A$96,A$97,A$98,A$99
|
|
|
|
|
da A$100,A$101,A$102,A$103,A$104,A$105,A$106,A$107,A$108,A$109
|
|
|
|
|
da A$110,A$111,A$112,A$113,A$114,A$115,A$116,A$117,A$118,A$119
|
|
|
|
|
da A$120,A$121,A$122,A$123,A$124,A$125,A$126,A$127,A$128
|
|
|
|
|
|
2023-11-20 18:41:18 +00:00
|
|
|
|
A$1 str "A01.I02D02M."
|
|
|
|
|
A$2 str "A03D08.D03N."
|
|
|
|
|
A$3 str "A03E08E09D24.D04D05I19E02M."
|
|
|
|
|
A$4 str "A03E08D24.D04D06N."
|
|
|
|
|
A$5 str "A03E07.I19M."
|
|
|
|
|
A$6 str "A03E03.I19M."
|
|
|
|
|
A$7 str "A03.I19E02M."
|
|
|
|
|
A$8 str "A19D08.D03N."
|
|
|
|
|
A$9 str "A19E08E09D24.D04D05I03M."
|
|
|
|
|
A$10 str "A19E08D24.D04D06N."
|
|
|
|
|
A$11 str "A19.I03M."
|
|
|
|
|
A$12 str "A09E07B22.D07N."
|
|
|
|
|
A$13 str "A09E03B05.D07N."
|
|
|
|
|
A$14 str "A09.I14E02M."
|
|
|
|
|
A$15 str "A14.I16E02M."
|
|
|
|
|
A$16 str "A16E07B22.D07N."
|
|
|
|
|
A$17 str "A16E03B05.D07N."
|
|
|
|
|
A$18 str "A16.I14E02M."
|
|
|
|
|
A$19 str "A15E03B05.D07N."
|
|
|
|
|
A$20 str "A15E07B22.D07N."
|
|
|
|
|
A$21 str "A15.I14E02M."
|
|
|
|
|
A$22 str "A15E03.I17M."
|
|
|
|
|
A$23 str "A15E07.I17M."
|
|
|
|
|
A$24 str "A15.I17E02M."
|
|
|
|
|
A$25 str "A17.F01I15M."
|
|
|
|
|
A$26 str "A17.D08N."
|
|
|
|
|
A$27 str "A17.D09K."
|
|
|
|
|
A$28 str "A18.D10F03E01E02I17M."
|
|
|
|
|
A$29 str "A21E03.I19M."
|
|
|
|
|
A$30 str "A21E07.I19M."
|
|
|
|
|
A$31 str "A21.I19E02M."
|
|
|
|
|
A$32 str "A22E03.I19M."
|
|
|
|
|
A$33 str "A22E07.I19M."
|
|
|
|
|
A$34 str "A22.I19E02M."
|
|
|
|
|
A$35 str "A19.D11N."
|
|
|
|
|
A$36 str "A19.D11N."
|
|
|
|
|
A$37 str "A22.D12I23M."
|
|
|
|
|
A$38 str "A01.D13."
|
|
|
|
|
A$39 str "I01.D14K."
|
|
|
|
|
A$40 str "A03.D15M."
|
|
|
|
|
A$41 str "B01.B01J."
|
|
|
|
|
A$42 str "B08.B08J."
|
|
|
|
|
A$43 str "B04.B04J."
|
|
|
|
|
A$44 str "B05.B05J."
|
|
|
|
|
A$45 str "B21.B21J."
|
|
|
|
|
A$46 str "B24.B24J."
|
|
|
|
|
A$47 str "B12.B12J."
|
|
|
|
|
A$48 str "B09.B09J."
|
|
|
|
|
A$49 str "B10.B10J."
|
|
|
|
|
A$50 str "B18.B18J."
|
|
|
|
|
A$51 str "B03.B03J."
|
|
|
|
|
A$52 str "B22.B22J."
|
|
|
|
|
A$53 str "A20B05.H11P05E05D16K."
|
|
|
|
|
A$54 str "A20.D17K."
|
|
|
|
|
A$55 str ".C01J."
|
|
|
|
|
A$56 str ".C08J."
|
|
|
|
|
A$57 str ".C04J."
|
|
|
|
|
A$58 str ".C05J."
|
|
|
|
|
A$59 str ".C21J."
|
|
|
|
|
A$60 str ".C24J."
|
|
|
|
|
A$61 str "E09.D62K."
|
|
|
|
|
A$62 str ".C12J."
|
|
|
|
|
A$63 str ".C09J."
|
|
|
|
|
A$64 str ".C10J."
|
|
|
|
|
A$65 str ".C18J."
|
|
|
|
|
A$66 str ".C03J."
|
|
|
|
|
A$67 str ".C22J."
|
|
|
|
|
A$68 str ".A00L."
|
|
|
|
|
A$69 str "A05.E04D20G0405J."
|
|
|
|
|
A$70 str "A05.F04J."
|
|
|
|
|
A$71 str "A05E04.P24E08J."
|
|
|
|
|
A$72 str "A05E08.F08P24J."
|
|
|
|
|
A$73 str "E08.D21N."
|
|
|
|
|
A$74 str "B10.D22L."
|
|
|
|
|
A$75 str "B10.D23N."
|
|
|
|
|
A$76 str "B09.D24K."
|
|
|
|
|
A$77 str "B09.D25K."
|
|
|
|
|
A$78 str "A02.D26M."
|
|
|
|
|
A$79 str ".D27K."
|
|
|
|
|
A$80 str "A14.D28K."
|
|
|
|
|
A$81 str ".D29K."
|
|
|
|
|
A$82 str "C22.D33K."
|
|
|
|
|
A$83 str "E07.D30K."
|
|
|
|
|
A$84 str "A14.D07N."
|
|
|
|
|
A$85 str "A17E01.D10K."
|
|
|
|
|
A$86 str "E02.F02E07E06P22M."
|
|
|
|
|
A$87 str ".E07P22J."
|
|
|
|
|
A$88 str "C05.D33K."
|
|
|
|
|
A$89 str "E03.D30K."
|
|
|
|
|
A$90 str "F07.D31L."
|
|
|
|
|
A$91 str "F05.D32L."
|
|
|
|
|
A$92 str "E02.F02E03E06P06P05M."
|
|
|
|
|
A$93 str ".E03P06P05J."
|
|
|
|
|
A$94 str "C22.D33K."
|
|
|
|
|
A$95 str "F07.D30K."
|
|
|
|
|
A$96 str "E06E03.D36F07P22M."
|
|
|
|
|
A$97 str "E06.E02F07F06P22M."
|
|
|
|
|
A$98 str ".F07P22M."
|
|
|
|
|
A$99 str "C05.D33K."
|
|
|
|
|
A$100 str "F03.D30K."
|
|
|
|
|
A$101 str "E07E06.D34F03P05M."
|
|
|
|
|
A$102 str "E06.E02F06F03P05M."
|
|
|
|
|
A$103 str ".F03P05M."
|
|
|
|
|
A$104 str "B01.D35N."
|
|
|
|
|
A$105 str "I16.D45K."
|
|
|
|
|
A$106 str "E02.D43K."
|
|
|
|
|
A$107 str "F03.D44K."
|
|
|
|
|
A$108 str "C04.D46K."
|
|
|
|
|
A$109 str ".P16E10J."
|
|
|
|
|
A$110 str "A16F10.D47K."
|
|
|
|
|
A$111 str "A16.D48N."
|
|
|
|
|
A$112 str "A16.D48N."
|
|
|
|
|
A$113 str "A16F09.D50D06N."
|
|
|
|
|
A$114 str "A16.D49I18M."
|
|
|
|
|
A$115 str "D18E09.D30K."
|
|
|
|
|
A$116 str "D18.P18E09J."
|
2023-11-22 19:24:48 +00:00
|
|
|
|
A$117 str "D18F09.D30K."
|
2023-11-20 18:41:18 +00:00
|
|
|
|
A$118 str "D18.P18F09J."
|
|
|
|
|
A$119 str "A24C12.D51K."
|
|
|
|
|
A$120 str "A24C03.D52N."
|
|
|
|
|
A$121 str "A24.G0503E11D63K."
|
|
|
|
|
A$122 str "E11.D54F11D55K."
|
|
|
|
|
A$123 str "E11.D54F11D55K."
|
|
|
|
|
A$124 str "B21.D56N."
|
|
|
|
|
A$125 str "F08.D57."
|
|
|
|
|
A$126 str ".D58D59."
|
|
|
|
|
A$127 str "A06.D61M."
|
|
|
|
|
A$128 str "A25.D64N."
|
|
|
|
|
|
|
|
|
|
tblA dfb 14,00
|
|
|
|
|
dfb 05,00
|
|
|
|
|
dfb 05,00
|
|
|
|
|
dfb 05,00
|
|
|
|
|
dfb 05,00
|
|
|
|
|
dfb 05,00
|
|
|
|
|
dfb 05,00
|
|
|
|
|
dfb 06,00
|
|
|
|
|
dfb 06,00
|
|
|
|
|
dfb 06,00
|
|
|
|
|
dfb 06,00
|
|
|
|
|
dfb 01,00
|
|
|
|
|
dfb 01,00
|
|
|
|
|
dfb 01,00
|
|
|
|
|
dfb 01,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 01,00
|
|
|
|
|
dfb 01,00
|
|
|
|
|
dfb 01,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 03,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 03,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 02,00
|
|
|
|
|
dfb 04,00
|
|
|
|
|
dfb 03,00
|
|
|
|
|
dfb 25,00
|
|
|
|
|
dfb 25,00
|
|
|
|
|
dfb 12,44
|
|
|
|
|
dfb 10,34
|
|
|
|
|
dfb 10,27
|
|
|
|
|
dfb 10,28
|
|
|
|
|
dfb 10,29
|
|
|
|
|
dfb 10,32
|
|
|
|
|
dfb 10,38
|
|
|
|
|
dfb 10,39
|
|
|
|
|
dfb 10,40
|
|
|
|
|
dfb 10,41
|
|
|
|
|
dfb 10,43
|
|
|
|
|
dfb 10,50
|
|
|
|
|
dfb 10,42
|
|
|
|
|
dfb 10,37
|
|
|
|
|
dfb 10,37
|
|
|
|
|
dfb 11,34
|
|
|
|
|
dfb 11,27
|
|
|
|
|
dfb 11,28
|
|
|
|
|
dfb 11,29
|
|
|
|
|
dfb 11,32
|
|
|
|
|
dfb 11,38
|
|
|
|
|
dfb 11,43
|
|
|
|
|
dfb 11,39
|
|
|
|
|
dfb 11,40
|
|
|
|
|
dfb 11,41
|
|
|
|
|
dfb 11,43
|
|
|
|
|
dfb 11,50
|
|
|
|
|
dfb 11,42
|
|
|
|
|
dfb 24,00
|
|
|
|
|
dfb 12,49
|
|
|
|
|
dfb 13,49
|
|
|
|
|
dfb 22,38
|
|
|
|
|
dfb 23,38
|
|
|
|
|
dfb 23,38
|
|
|
|
|
dfb 18,48
|
|
|
|
|
dfb 18,41
|
|
|
|
|
dfb 18,40
|
|
|
|
|
dfb 20,40
|
|
|
|
|
dfb 19,51
|
|
|
|
|
dfb 19,51
|
|
|
|
|
dfb 21,00
|
|
|
|
|
dfb 21,00
|
|
|
|
|
dfb 15,42
|
|
|
|
|
dfb 15,42
|
|
|
|
|
dfb 15,42
|
|
|
|
|
dfb 15,42
|
|
|
|
|
dfb 15,42
|
|
|
|
|
dfb 15,42
|
|
|
|
|
dfb 15,29
|
|
|
|
|
dfb 15,29
|
|
|
|
|
dfb 15,29
|
|
|
|
|
dfb 15,29
|
|
|
|
|
dfb 15,29
|
|
|
|
|
dfb 15,29
|
|
|
|
|
dfb 16,42
|
|
|
|
|
dfb 16,42
|
|
|
|
|
dfb 16,42
|
|
|
|
|
dfb 16,42
|
|
|
|
|
dfb 16,42
|
|
|
|
|
dfb 16,29
|
|
|
|
|
dfb 16,29
|
|
|
|
|
dfb 16,29
|
|
|
|
|
dfb 16,29
|
|
|
|
|
dfb 16,29
|
|
|
|
|
dfb 15,34
|
|
|
|
|
dfb 17,35
|
|
|
|
|
dfb 17,35
|
|
|
|
|
dfb 17,35
|
|
|
|
|
dfb 17,35
|
|
|
|
|
dfb 17,35
|
|
|
|
|
dfb 56,00
|
|
|
|
|
dfb 56,46
|
|
|
|
|
dfb 56,47
|
|
|
|
|
dfb 56,45
|
|
|
|
|
dfb 56,45
|
|
|
|
|
dfb 55,43
|
|
|
|
|
dfb 55,43
|
2023-11-20 21:51:03 +00:00
|
|
|
|
dfb 57,43
|
2023-11-20 18:41:18 +00:00
|
|
|
|
dfb 57,43
|
|
|
|
|
dfb 12,33
|
|
|
|
|
dfb 12,33
|
|
|
|
|
dfb 12,33
|
|
|
|
|
dfb 26,36
|
|
|
|
|
dfb 53,50
|
|
|
|
|
dfb 52,32
|
|
|
|
|
dfb 58,30
|
|
|
|
|
dfb 58,30
|
|
|
|
|
dfb 12,33
|
|
|
|
|
dfb 12,33
|
|
|
|
|
|
|
|
|
|
*--- On commence <EFBFBD> index 0
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-13 11:09:59 +00:00
|
|
|
|
* C = 14
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-20 21:51:03 +00:00
|
|
|
|
tblC$ da $bdbd
|
|
|
|
|
da C$1,C$2,C$3,C$4,C$5,C$6,C$7,C$8,C$9
|
2023-11-16 20:31:28 +00:00
|
|
|
|
da C$10,C$11,C$12,C$13,C$14
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
C$1 str "G03E03.D00N."
|
|
|
|
|
C$2 str "G04E04.D01N."
|
|
|
|
|
C$3 str "I14I16I17I19.F02."
|
|
|
|
|
C$4 str "G07E07.D18N."
|
|
|
|
|
C$5 str "GO1.D19N."
|
|
|
|
|
C$6 str "H06C03C08.D37N."
|
|
|
|
|
C$7 str "H08D08.D39L."
|
|
|
|
|
C$8 str "H06D03.D38L."
|
|
|
|
|
C$9 str "G08E08B24.D40D21N."
|
|
|
|
|
C$10 str "H02.D41N."
|
|
|
|
|
C$11 str "G09E02.D42N."
|
|
|
|
|
C$12 str "G05E11.D52N."
|
|
|
|
|
C$13 str "I24E11.D53D52N."
|
|
|
|
|
C$14 str ".L."
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
|
|
|
|
*-----------------------------------
|
|
|
|
|
|
2023-11-22 19:24:48 +00:00
|
|
|
|
DEBUT_DATA
|
|
|
|
|
|
2023-11-18 08:48:34 +00:00
|
|
|
|
A1 ds 1
|
|
|
|
|
BREAK ds 1
|
2023-11-17 21:25:59 +00:00
|
|
|
|
E ds 1
|
2023-11-13 11:09:59 +00:00
|
|
|
|
F1 ds 1
|
2023-11-18 08:48:34 +00:00
|
|
|
|
G ds 1
|
2023-11-13 11:09:59 +00:00
|
|
|
|
H ds 1
|
2023-11-18 08:48:34 +00:00
|
|
|
|
HH ds 1
|
2023-11-17 21:25:59 +00:00
|
|
|
|
L ds 1
|
2023-11-13 11:09:59 +00:00
|
|
|
|
LX ds 1
|
2023-11-20 21:51:03 +00:00
|
|
|
|
MO$1 ds 1 ; mot 1
|
2023-11-21 18:49:43 +00:00
|
|
|
|
MO$2 ds 1 ; mot 2
|
2023-11-13 11:09:59 +00:00
|
|
|
|
N ds 1
|
2023-11-18 08:48:34 +00:00
|
|
|
|
NL ds 1
|
|
|
|
|
OK ds 1
|
2023-11-22 07:06:49 +00:00
|
|
|
|
S ds 1
|
2023-11-13 11:09:59 +00:00
|
|
|
|
SALLE ds 1
|
2023-11-16 20:31:28 +00:00
|
|
|
|
T ds 1
|
2023-11-18 18:08:43 +00:00
|
|
|
|
W ds 1
|
2023-11-16 20:31:28 +00:00
|
|
|
|
Z ds 1
|
2023-11-22 07:06:49 +00:00
|
|
|
|
lenSTRING ds 1
|
|
|
|
|
|
|
|
|
|
C ds 10+1
|
|
|
|
|
E$ ds 32 ; the longest string
|
|
|
|
|
P ds 13+1
|
|
|
|
|
PL ds 5 ; 1111/0
|
2023-11-22 19:24:48 +00:00
|
|
|
|
X$1 ds 4+1 ; premier mot saisi
|
|
|
|
|
X$2 ds 4+1 ; second mot saisi
|
|
|
|
|
|
|
|
|
|
FIN_DATA
|
2023-11-16 20:31:28 +00:00
|
|
|
|
|
2023-11-17 21:25:59 +00:00
|
|
|
|
*--- The lazy decimal to hexadecimal conversion
|
|
|
|
|
|
|
|
|
|
tblD2H dfb 0,10,20,30,40,50,60,70,80,90
|
2023-11-18 10:16:31 +00:00
|
|
|
|
|
2023-11-16 20:31:28 +00:00
|
|
|
|
*-----------------------------------
|
|
|
|
|
* LES AUTRES FICHIERS
|
|
|
|
|
*-----------------------------------
|
2023-11-13 11:02:29 +00:00
|
|
|
|
|
2023-11-27 21:52:08 +00:00
|
|
|
|
put en.s
|
|
|
|
|
put ../common/images.s
|
|
|
|
|
put ../common/musiques.s
|
2023-11-18 18:08:43 +00:00
|
|
|
|
|
|
|
|
|
*--- It's the end
|