This commit is contained in:
Antoine Vignau 2024-01-03 19:08:53 +01:00
parent 164ea375bd
commit c4443995ce
9 changed files with 20526 additions and 21342 deletions

BIN
.DS_Store vendored

Binary file not shown.

View File

@ -311,8 +311,8 @@ COUT2 rep #$20
*----------- Exit *----------- Exit
text2shr dw 10,20,30,40,50,60,70,80,90,100 text2shr dw 9,19,29,39,49,59,69,79,89,99
dw 110,120,130,140,150,160,170,180,190,200 dw 109,119,129,139,149,159,169,179,189,199
*text2shr dw 8,16,24,32,40,48,56,64 *text2shr dw 8,16,24,32,40,48,56,64
* dw 72,80,88,96,104,112,120,128 * dw 72,80,88,96,104,112,120,128
@ -331,6 +331,17 @@ WAIT pha
pla pla
rts rts
*-----------------------------------
mx %11
RND rep #$30
PushWord #0
_Random
pla
sep #$30
rts
*----------------------------------- *-----------------------------------
* RECOPIE ACTION A$ * RECOPIE ACTION A$
*----------------------------------- *-----------------------------------
@ -563,8 +574,13 @@ L930C CMP #'O' ; O $4F OUTPUT
BNE L9313 BNE L9313
JMP L94D8 JMP L94D8
L9313 brk $bd L9313 lda #0
sep #$30
sta A2
rts
mx %00
*--- A $41 CURSET *--- A $41 CURSET
L9319 iny L9319 iny
@ -761,6 +777,7 @@ L94D8 iny
lda (dpFROM),y lda (dpFROM),y
and #$ff and #$ff
sep #$30 sep #$30
sta A2 ; the variable at $400
rts rts
mx %00 mx %00

View File

@ -814,75 +814,6 @@ V$139 str ' '
V$200 str 'TIME' V$200 str 'TIME'
*
* Les lieux (str8xxx)
*
* "0 1 2 3 "
* "0123456789012345678901234567890123456789"
* "----------------------------------------"
str8010 asc 'Image 1'00
str8020 asc 'Image 2'00
str8030 asc 'Image 3'00
str8040 asc 'Image 4'00
str8050 asc 'Image 5'00
str8060 asc 'Image 6'00
str8070 asc 'Image 7'00
str8080 asc 'Image 8'00
str8090 asc 'Image 9'00
str8100 asc 'Image 10'00
str8110 asc 'Image 11'00
str8120 asc 'Image 12'00
str8130 asc 'Image 13'00
str8140 asc ''00
str8150 asc ''00
str8160 asc ''00
str8170 asc ''00
str8180 asc ''00
str8190 asc ''00
str8200 asc ''00
str8210 asc ''00
str8220 asc ''00
str8230 asc ''00
str8240 asc ''00
str8250 asc ''00
str8260 asc ''00
str8270 asc ''00
str8280 asc ''00
str8290 asc ''00
str8300 asc ''00
str8310 asc ''00
str8320 asc ''00
str8330 asc ''00
str8340 asc ''00
str8350 asc ''00
str8360 asc ''00
str8370 asc ''00
str8380 asc ''00
str8390 asc ''00
str8400 asc ''00
str8410 asc ''00
str8420 asc ''00
str8430 asc ''00
str8440 asc ''00
str8450 asc ''00
str8460 asc ''00
str8470 asc ''00
str8480 asc ''00
str8490 asc ''00
str8500 asc ''00
str8510 asc ''00
str8520 asc ''00
str8530 asc ''00
str8540 asc ''00
str8550 asc ''00
str8560 asc ''00
str8570 asc ''00
str8580 asc ''00
str8590 asc ''00
str8600 asc ''00
* *
* Les reponses (str7xxx) * Les reponses (str7xxx)
* *

Binary file not shown.

View File

@ -180,6 +180,9 @@ okTOOL _HideMenuBar
PushLong mainPORT PushLong mainPORT
_SetPort _SetPort
PushLong #117117
_SetRandSeed
PushWord #0 PushWord #0
_SetBackColor _SetBackColor
PushWord #15 PushWord #15

File diff suppressed because it is too large Load Diff

View File

@ -39,7 +39,7 @@ idxTIMER = 200
*----------------------------------- *-----------------------------------
@draw mac @draw mac
lda #]1 lda ]1
jsr showPIC jsr showPIC
eom eom
@ -75,14 +75,12 @@ PLAY sep #$30
jsr HGR jsr HGR
jsr HOME ; clear text screen jsr HOME ; clear text screen
lda #0 ; move cursor to 0,20 lda #0 ; move cursor to 0,16 au lieu de 0,20
sta CH sta CH
lda #16 ; au lieu de 20 LoGo lda #16 ; au lieu de 20 LoGo
sta CV sta CV
jsr TABV ; on a 20 lignes de 10 caract<63>res de haut jsr TABV ; on a 20 lignes de 10 caract<63>res de haut
jsr :7110
@print #strCOMMANDE ; commande avec energie @print #strCOMMANDE ; commande avec energie
jsr GETLN1 jsr GETLN1
@ -99,39 +97,52 @@ PLAY sep #$30
* DU BASIC A L'ASSEMBLEUR (BEURK) * DU BASIC A L'ASSEMBLEUR (BEURK)
*----------------------------------- *-----------------------------------
:100 ldx #2 :100 ldx #$11
lda #0
sta P,x
lda SALLE
cmp #10
beq :100_OK
cmp #22
beq :100_OK
cmp #54
beq :100_OK
cmp #15
bne :105
:100_OK lda #1
sta P,x
:105 ldx #10
lda O,x
cmp SALLE
beq :200
cmp #-1
beq :200
ldx #2 ; :106
lda P,x lda P,x
beq :200 cmp #1
beq :140
ldx #9 ; :115 :101 lda SALLE
lda C,x cmp #23
cmp #2 bne :102
bcc :130 ldx #3
dec C,x lda P,x
cmp #1
beq :130
:102 lda SALLE
cmp #14
bne :104
ldx #4
lda P,x
cmp #1
beq :130
:104 lda SALLE
cmp #20
bne :106
ldx #5
lda P,x
cmp #1
beq :130
:106 lda SALLE
cmp #29
bne :108
ldx #6
lda P,x
cmp #1
beq :130
:108 lda SALLE
cmp #38
bne :110
ldx #7
lda P,x
cmp #1
beq :130
:110 jmp :200
:130 jsr HGR :130 jsr HGR
jsr setMIXEDON jsr setMIXEDON
@ -148,19 +159,19 @@ PLAY sep #$30
*----------------------------------- *-----------------------------------
:200 jsr setHGR :200 jsr setHGR
@draw SALLE
* @print #strRETURN lda A2 ; trace des dessins
beq :206
lda SALLE cmp #1
asl bne :204
tax jsr :12010
lda tbl7000,x bra :206
sta :222+1 :204 cmp #2
lda tbl7000+1,x bne :206
sta :222+2 jsr :12020
:222 jsr $bdbd :206 lda PP
jsr setMIXEDON
:300 lda #0 :300 lda #0
sta H sta H
@ -1304,259 +1315,6 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
:6400 rts :6400 rts
*-----------------------------------
* 7000 - DESCRIPTION DES PIECES
*-----------------------------------
tbl7000 da $bdbd
da :7010,:7020,:7030,:7040,:7050,:7060,:7070,:7080,:7090
da :7100,:7110,:7120,:7130,:7140,:7150,:7160,:7170,:7180,:7190
da :7200,:7210,:7220,:7230,:7240,:7250,:7260,:7270,:7280,:7290
da :7300,:7310,:7320,:7330,:7340,:7350,:7360,:7370,:7380,:7390
da :7400,:7410,:7420,:7430,:7440,:7450,:7460,:7470,:7480,:7490
da :7500,:7510,:7520,:7530,:7540,:7550,:7560,:7570,:7580,:7590
da :7600
:7010 @print #str8010
@draw #1
rts
:7020 @print #str8020
@draw #2
rts
:7030 @print #str8030
@draw #3
rts
:7040 @print #str8040
@draw #4
rts
:7050 @print #str8050
@draw #5
rts
:7060 @print #str8060
@draw #6
rts
:7070 @print #str8070
@draw #7
rts
:7080 @print #str8080
@draw #8
rts
:7090 @print #str8090
@draw #9
rts
:7100 @print #str8100
@draw #10
rts
:7110 @print #str8110
@draw #11
rts
:7120 @print #str8120
@draw #12
rts
:7130 @print #str8130
@draw #13
rts
:7140 @print #str8140
@draw #14
rts
:7150 @print #str8150
@draw #15
rts
:7160 @print #str8160
@draw #16
rts
:7170 @print #str8170
@draw #17
rts
:7180 @print #str8180
@draw #18
rts
:7190 @print #str8190
@draw #19
rts
:7200 @print #str8200
@draw #20
rts
:7210 @print #str8210
@draw #21
rts
:7220 @print #str8220
@draw #22
rts
:7230 @print #str8230
@draw #23
rts
:7240 @print #str8240
@draw #24
rts
:7250 @print #str8250
@draw #25
rts
:7260 @print #str8260
@draw #26
rts
:7270 @print #str8270
@draw #27
rts
:7280 @print #str8280
@draw #28
rts
:7290 @print #str8290
@draw #29
rts
:7300 @print #str8300
@draw #30
rts
:7310 @print #str8310
@draw #31
rts
:7320 @print #str8320
@draw #32
rts
:7330 @print #str8330
@draw #33
rts
:7340 @print #str8340
@draw #34
rts
:7350 @print #str8350
@draw #35
rts
:7360 @print #str8360
@draw #36
rts
:7370 @print #str8370
@draw #37
rts
:7380 @print #str8380
@draw #38
rts
:7390 @print #str8390
@draw #39
rts
:7400 @print #str8400
@draw #40
rts
:7410 @print #str8410
@draw #41
rts
:7420 @print #str8420
@draw #42
rts
:7430 @print #str8430
@draw #43
rts
:7440 @print #str8440
@draw #44
rts
:7450 @print #str8450
@draw #45
rts
:7460 @print #str8460
@draw #46
rts
:7470 @print #str8470
@draw #47
rts
:7480 @print #str8480
@draw #48
rts
:7490 @print #str8490
@draw #49
rts
:7500 @print #str8500
@draw #50
rts
:7510 @print #str8510
@draw #51
rts
:7520 @print #str8520
@draw #52
rts
:7530 @print #str8530
@draw #53
rts
:7540 @print #str8540
@draw #54
rts
:7550 @print #str8550
@draw #55
rts
:7560 @print #str8560
@draw #56
rts
:7570 @print #str8570
@draw #57
rts
:7580 @print #str8580
@draw #58
rts
:7590 @print #str8590
@draw #59
rts
:7600 @print #str8600
@draw #60
rts
*----------------------------------- *-----------------------------------
* 8000 - CHARGEMENT VARIABLES * 8000 - CHARGEMENT VARIABLES
*----------------------------------- *-----------------------------------
@ -1573,20 +1331,51 @@ initALL
lda #11 lda #11
sta SALLE sta SALLE
lda #5 ; 5000 lda #<4000
sta TEMPS sta FORCE
lda #0 lda #>4000
sta TEMPS+1 sta FORCE+1
sta TEMPS+2
sta TEMPS+3 lda #20
sta MINUTES
lda #0
sta SECONDES
*--- ligne 51
ldx #8
lda #10
sta C,x
ldx #5
lda #18
sta C,x
ldx #3
lda #10
sta C,x
ldx #6
lda #22
sta C,x
ldx #7
lda #9
sta C,x
*--- ligne 70
ldx #3
lda #1
]lp sta P,x
inx
cpx #8
bcc ]lp
beq ]lp
ldx #$c
sta P,x
lda #"5"
sta strTEMPS
lda #"0"
sta strTEMPS+1
sta strTEMPS+2
sta strTEMPS+3
*--- *---
ldx #nbO ; reset object table ldx #nbO ; reset object table
@ -1602,6 +1391,16 @@ initALL
bpl ]lp bpl ]lp
rts rts
*-----------------------------------
* LES TRACES DE CADRE
*-----------------------------------
:12000 rts
:12010 rts
:12020 rts
*----------------------------------- *-----------------------------------
* 20000 - PERDU * 20000 - PERDU
*----------------------------------- *-----------------------------------
@ -1852,28 +1651,33 @@ TEXTBUFFER ds maxLEN+16 ; le simulacre de la page 2
DEBUT_DATA DEBUT_DATA
A1 ds 1 A1 ds 1
A2 ds 1 ; $400
BREAK ds 1 BREAK ds 1
E ds 1 E ds 1
F1 ds 1 *F1 ds 1
FORCE ds 2
G ds 1 G ds 1
H ds 1 H ds 1
HH ds 1 HH ds 1
L ds 1 *L ds 1
LX ds 1 *LX ds 1
MO$1 ds 1 ; mot 1 MO$1 ds 1 ; mot 1
MO$2 ds 1 ; mot 2 MO$2 ds 1 ; mot 2
MO$3 ds 1 ; mot 3 MO$3 ds 1 ; mot 3
N ds 1 N ds 1
NIVEAU ds 1
NL ds 1 NL ds 1
OK ds 1 OK ds 1
PP ds 1
S ds 1 S ds 1
SALLE ds 1 SALLE ds 1
T ds 1 T ds 1
W ds 1 *W ds 1
Z ds 1 *Z ds 1
lenSTRING ds 1 lenSTRING ds 1
TEMPS ds 4 ; le temps = 5000
strTEMPS ds 4+1 MINUTES ds 2 ; 0..20 en dŽcimal
SECONDES ds 2 ; 0..59
C ds 48+1 C ds 48+1
E$ ds 32 ; the longest string E$ ds 32 ; the longest string

Binary file not shown.

View File

@ -4,6 +4,7 @@
401 pointeurs sur les 57 images du jeu 401 pointeurs sur les 57 images du jeu
47A..47E password 47A..47E password
480 P - les pointeurs 480.4FF est mis ˆ zŽro 480 P - les pointeurs 480.4FF est mis ˆ zŽro
491 ˆ 1 = aveugle
4A0 C - les conditions 4A0 C - les conditions
4BF flag pour le temps, 0:off, 1:on 4BF flag pour le temps, 0:off, 1:on
4C0 O - les objets 4C0 O - les objets