Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-05-28 20:41:28 +00:00
Code Issues Projects Releases Wiki Activity
9e6168c1fd
antoine-source/lemanoirdudocteurgenius/apple2/drgenius.s
Antoine Vignau 9e6168c1fd ca avance
2023-11-21 19:49:43 +01:00

3181 lines
44 KiB
ArmAsm
Raw Blame History

*
* 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
*-----------------------------------
WNDLFT = $20 ; left edge of text window
WNDWDTH = $21 ; width of text window
WNDTOP = $22 ; top of text window
WNDBTM = $23 ; bottom+1 of text window
CH = $24 ; cursor horizontal position
CV = $25 ; cursor vertical position
PROMPT = $33 ; prompt character
LINNUM = $50 ; result from GETADR
X0L = $e0 ; X-coord
X0H = $e1
Y0 = $e2 ; Y-coord
HPAG = $e6
maxY = 191 ; 0 to 191 = 192
dpFROM = $fc
dpTO = $fe
chrRET = $0d
chrSPC = $20
chrRET2 = $8d
chrSPC2 = $a0
cursorCHAR = ">"
TEXTBUFFER = $200
KBD = $c000
CLR80COL = $c000
SET80COL = $c001
CLR80VID = $c00c
SET80VID = $c00d
KBDSTROBE = $c010
VBL = $c019
MONOCOLOR = $c021
NEWVIDEO = $c029
VERTCNT = $c02e
SPKR = $c030
CYAREG = $C036
TXTCLR = $c050
TXTSET = $c051
MIXCLR = $c052
MIXSET = $c053
TXTPAGE1 = $c054
TXTPAGE2 = $c055
LORES = $c056
HIRES = $c057
CLRAN = $c05d
SETAN3 = $c05e
CLRAN3 = $c05f
*--- The firmware routines
AUXMOVE = $C311
HGR = $F3E2 ; HGR
HPLOT = $F457 ; HPLOT
HILIN = $F53A ; HPLOT TO
HCOLOR = $F6E9 ; HCOLOR= (call+3)
INIT = $FB2F
TABV = $FB5B
BS = $FC10
HOME = $FC58
CLREOL = $FC9C
WAIT = $FCA8
RDKEY = $FD0C
KEYIN = $FD1B
GETLN1 = $FD6F
CROUT = $FD8E
PRBYTE = $FDDA
COUT = $FDED
IDROUTINE = $FE1F
SETNORM = $FE84
SETKBD = $FE89
BEEP = $FF3A
MONZ = $FF69
*-----------------------------------
* MACROS
*-----------------------------------
@draw mac
ldx #>]1
ldy #<]1
jsr drawPICTURE
eom
@explode mac
jsr EXPLODE
eom
@key$ mac
jsr KEY$
eom
@play mac
ldx #>]1
ldy #<]1
jsr playMUSIC
eom
@print mac
ldx #>]1
ldy #<]1
jsr printCSTRING
eom
@wait mac
ldx #>]1
ldy #<]1
jsr waitMS
eom
*-----------------------------------
* CODE BASIC EN ASM :-)
*-----------------------------------
sec ; 1 MHz vaincra!
jsr IDROUTINE
bcs notiigs
lda CYAREG
and #%0111_1111
sta CYAREG
notiigs
jsr introPIC ; la picture GR
jsr :51000 ; le disclaimer
jsr :40000 ; les instructions
REPLAY
jsr initALL
jsr HGR
* jsr setHGR
*-----------------------------------
* DU BASIC A L'ASSEMBLEUR (BEURK)
*-----------------------------------
:100 lda SALLE
cmp #14
beq :105
cmp #16
beq :105
cmp #17
beq :105
cmp #19
beq :105
lda #0
ldx #2
sta P,x
:105 ldx #2
lda P,x
beq :200
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
*-----------------------------------
:200 jsr setHGR
lda #20 ; et c'est fen<65>tr<74> en plus !
sta WNDTOP
lda #24
sta WNDBTM
jsr HOME
@print #strVOUS ; always output "VOUS ETES "
lda SALLE
asl
tax
jsr (tbl7000,x)
jsr setMIXEDON
:300 lda #0
sta H
lda #1
sta N
:310 ldx N
lda O,x
cmp SALLE
bne :400
lda H
cmp #1
beq :350
@print #strILYA
lda #1
sta H
:350 @print #strSPACE
lda N
asl
tax
ldy tblO$,x
lda tblO$+1,x
tax
jsr printCSTRING
@wait #150
:400 inc N
lda N
cmp #nbO ; la constante 25
bcc :310
beq :310
@print #strRETURN
*-----------------------------------
* 500 - ACCEPTATION COMMANDE
*-----------------------------------
:500 lda #1
sta T
lda #0
* sta Y1
* sta Y2
sta N
jmp :1000
: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
jsr GETLN1
lda TEXTBUFFER
cmp #chrRET2
bne :570
jsr switchVIDEO
jmp :550
:570 stx lenSTRING ; longueur de la chaine saisie
jsr :6000
lda MO$1
bne :900
@print #strJENECOMPRENDS
@wait #200
jmp :100
*-----------------------------------
* 900 - CONTROLE MVT
*-----------------------------------
:900 ldy #0
:920 lda SALLE ; T$=MID(M$(SALLE),Z,2)
asl
tax
lda tblM$,x
sta LINNUM
lda tblM$+1,x
sta LINNUM+1
brk $bd
lda (LINNUM),y
beq :980
cmp MO$1
bne :970
:950 iny
lda (LINNUM),y
sta SALLE
jmp :100
:970 iny
iny
bne :920
:980 lda #0
sta T
sta A1
*-----------------------------------
* 1000 - CONTROLE
*-----------------------------------
:1000 lda #0
sta NL
:1100 inc NL
lda T
beq :1150
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
jmp :1400
:1150 lda NL
cmp #AA
bcc :1200
beq :1200
lda #23
sta PY
lda #12
sta CO
lda A1
cmp #1
bne :1170
jmp :500
:1170 @print #strIMPOSSIBLE
lda MO$1 ; les directions
cmp #10+1
bcs :1190
@print #strCECHEMIN
:1190 @print #strEXCLAM
jmp :100
:1200 lda NL
sec
sbc #1
asl
tax
lda tblA,x
cmp MO$1
beq :1210
jmp :1100
:1210 lda tblA+1,x
beq :1230
cmp MO$2
beq :1230
jmp :1100
:1230 lda tblA$,x
sta LINNUM
lda tblA$+1,x
sta LINNUM+1
ldy #0
lda (LINNUM),y
tax
]lp lda (LINNUM),y
sta E$,y
iny
dex
bpl ]lp
*-----------------------------------
* 1400 - CONDITIONS
*-----------------------------------
:1400 lda #1
sta E
:1420 ldx E ; 7893
lda E$,x ; 7894
cmp #"."
bne :1430
jmp :1700 ; do actions
:1430 sec ; 428F
sbc #"A"
asl
pha
lda #0
sta OK
lda E$+1,x
sec
sbc #"0"
tay
lda tblD2H,y
sta N
lda E$+2,x
sec
sbc #"0"
clc
adc N
sta N
pla
tax
jsr (tbl1500,x)
lda OK
bne :1470
jmp :1100
:1470 lda E
clc
adc #3
sta E
jmp :1420
*--------
tbl1500 da :1500,:1510,:1520,:1530,:1540
da :1550,:1560,:1570,:1580
*--------
:1500
lda N
cmp SALLE
bne :1505
lda #1
sta OK
:1505 rts
*--------
:1510
ldx N
lda O,x
cmp #-1
beq :1515
cmp SALLE
bne :1516
:1515 lda #1
sta OK
:1516 rts
*--------
:1520
ldx N
lda O,x
cmp SALLE
bne :1525
rts
:1525 cmp #-1
bne :1527
rts
:1527 lda #1
sta OK
rts
*--------
:1530
ldx N
lda O,x
cmp #-1
bne :1535
lda #1
sta OK
:1535 rts
*--------
:1540
ldx N
lda P,x
cmp #1
bne :1545
lda #1
sta OK
:1545 rts
*--------
:1550
ldx N
lda P,x
bne :1555
lda #1
sta OK
:1555 rts
*--------
:1560
ldx N
lda C,x
cmp #1
bne :1565
lda #1
sta OK
:1565 rts
*--------
:1570
lda VBL ; LOGO - Use a better RND?
eor VERTCNT
cmp N
bcs :1575
lda #1
sta OK
:1575 rts
*--------
:1580 lda N
cmp SALLE
beq :1585
lda #1
sta OK
:1585 rts
*-----------------------------------
* 1700 - ACTIONS
*-----------------------------------
:1700 inc E
lda #1
sta A1
:1710 ldx E
lda E$,x
cmp #"."
bne :1720
jmp :1100
:1720 sec
sbc #"A"
asl
pha ; LI
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
pla
tax
jsr (tbl1800,x)
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
tblBRKA da $bdbd
da :100,:300,:500,:530,:20000
*-----------------------------------
* 1800
*-----------------------------------
tbl1800 da :1800,:1900
da :2000,:2100,:2200,:2300,:2400,:2500,:2600,:2700,:2800,:2900
da :3000,:3100,:3200,:3300
*--------
:1800 lda #0
sta G
sta HH
:1810 inc G
lda G
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
:1850 lda #1
sta HH
lda G
asl
tax
ldy tblO$,x
lda tblO$+1,x
tax
jsr printCSTRING
@print #strSPACE
@wait #150
lda G
cmp #V
bcc :1810
:1870 lda HH
cmp #1
bne :1880
@print #strPOINT
rts
:1880 @print #strVOUSRIEN
@wait #200
rts
strVOUSDETENEZ
asc 8D"VOUS DETENEZ : "00
strVOUSRIEN
asc 8D"VOUS NE DETENEZ ABSOLUMENT RIEN !!!"00
strPOINT
asc "."00
*--------
:1900 ldx #1
lda S,x
cmp #5
bcc :1930
@print #strEVIDENT
:1920 @wait #250
lda #1
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
ldx #1
inc S,x
rts
strEVIDENT
asc 8D"IL PARAIT EVIDENT QUE VOUS NE POUVEZ"8D
asc "PAS PORTER TANT DE CHOSES !!"00
strVOUSLAVEZ
asc 8D"VOUS L"A7"AVEZ DEJA. VOUS ETES ETOURDI"8D
asc "ET DANS CETTE MAISON, CE N"A7"EST PAS"00
strCONSEILLE
asc "TRES CONSEILLE"00
*--------
:2000 ldx N
lda O,x
cmp #-1
beq :2030
@print #strNOTOWNED
jmp :1920
:2030 lda SALLE
sta O,x
dec S,x
rts
strNOTOWNED
asc 8D"COMMENT VOULEZ-VOUS POSER CE QUE VOUS"8D
asc "N"A7"AVEZ PAS ?"00
*-----------------------------------
* 2100
*-----------------------------------
:2100 jsr HOME
lda N
asl
tax
jsr (tbl4000,x)
rts
*--------
:2200 ldx N
lda #1
sta P,x
rts
*--------
:2300 ldx N
lda #0
sta P,x
rts
*--------
:2400 lda N
sec
sbc #1
asl
tax
lda tblA$,x
sta LINNUM
lda tblA$+1,x
sta LINNUM+1
ldy E ; +3
iny
iny
sty E
iny
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
ldx #1
lda S,x
sec
sbc #1
sta S,x
:2510 ldx N
lda #0
sta O,x
rts
*--------
:2600 lda N
sta SALLE
rts
*--------
:2700 @print #strDACCORD
@wait #150
lda #2
sta BREAK
rts
strDACCORD
asc 8D"D"A7"ACCORD"00
*--------
:2800 lda #3
sta BREAK
rts
*--------
:2900 lda #4
sta BREAK
rts
*--------
:3000 lda #1
sta BREAK
rts
*--------
:3100
* pla
* pla
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
*-----------------------------------
* 4000 - LES REPONSES
*-----------------------------------
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
da :4600,:4610,:4620,:4630,:4640
*--------
:4000 @explode
@print #4000
@wait #400
rts
str4000 asc "VOUS AVEZ GARDE LA LAMPE TROP LONGTEMPS"8D
asc "ALLUMEE, ELLE A EXPLOSE"00
*--------
:4010 @print #str4010
@wait #500
rts
str4010 asc "VOUS AVEZ OUBLIE DE FERMER LE ROBINET"8D
asc "VOUS MOUREZ SOUS DES TONNES D"A7"EAU"00
*--------
:4020 @print #str4020
@wait #500
rts
str4020 asc "LA PORTE VIENT DE SE REFERMER DERRIERE"8D
asc "VOUS, VOUS VOILA PRISONNIER..."00
*--------
:4030 @print #str4030
@wait #500
rts
str4030 asc "VOUS AVEZ TREBUCHE DANS L"A7"ESCALIER, VOUS"
asc "VOUS EMPALEZ SUR LE COUTEAU !"00
*--------
:4040 @print #str4040
@wait #300
@print #str4042
@wait #300
rts
str4040 asc "VOUS RENVERSEZ L"A7"EAU DANS L"A7"ESCALIER,"8D
asc "CE QUI PROVOQUE UNE DECHARGE DE LA"00
str4042 asc 8D"PRISE ELECTRIQUE"00
*--------
:4050 @print #str4050
@wait #500
rts
str4050 asc "VOUS ETES SAUF GRACE A LA COMBINAISON"8D
asc "QUE VOUS AVEZ ENFILEE...!"00
*--------
:4060 @print #str4060
@wait #300
rts
str4060 asc "VOUS MOUREZ ELECTROCUTE..."00
*--------
:4070 @explode
@print #str4070
@wait #500
@print #str4072
@wait #300
rts
str4070 asc "LA PIECE ETAIT PLEINE DE GAZ EXPLOSIF,"8D
asc "VOUS AURIEZ DU ETEINDRE..."00
str4072 asc 8D"ON RAMASSERA VOS MORCEAUX UN AUTRE"8D
asc "JOUR...!"00
*--------
:4080 @print #str4080
@wait #400
rts
str4080 asc "VOUS MOUREZ EMPALE SUR DES LANCES"8D
asc "SORTIES DU MUR... !"00
*--------
:4090 @print #str4090
@wait #300
rts
str4090 asc "LA PORTE NE S"A7"OUVRE PAS DE CETTE PIECE"00
*--------
:4100 @print #str4100
@wait #400
rts
str4100 asc "LA LAMPE ET LE BRIQUET REFUSENT DE"8D
asc "MARCHER DANS CETTE PIECE"00
*--------
:4110 @print #str4110
@wait #500
rts
str4110 asc "VOUS TOMBEZ DANS UNE TRAPPE, VOUS VOUS"8D
asc "DISLOQUEZ EN ARRIVANT AU SOL..."00
*--------
:4120 @print #str4120
@wait #400
@print #str4124
@wait #250
rts
str4120 asc "VOUS AVEZ RAISON DE PASSER, CAR CE"8D
asc "MONSTRE N"A7"ETAIT QU"A7"UNE PROJECTION"00
str4124 asc 8D"EN 3 DIMENSIONS SUR UN ECRAN DE FUMEE"00
*--------
:4130 @print #str4130
@wait #400
* pla
* pla
@print #str4133
@wait #200
jmp :20100
str4130 asc "VOUS AVEZ RAISON, LA CURIOSITE EST UN"8D
asc "VILAIN DEFAUT"00
str4133 asc " AU REVOIR"00
*--------
:4140 @print #str4140
@wait #450
rts
str4140 asc "VOUS AVEZ RAISON D"A7"ATTENDRE, MAIS CELA"
asc "NE POURRA PAS DURER ETERNELLEMENT..."00
*--------
:4150 @print #str4150
@wait #400
@print #str4152
@wait #500
@print #str4156
@wait #200
rts
str4150 asc "VOUS AVEZ DE LA CHANCE CAR CE COFFRE"8D
asc "ETAIT OUVERT."00
str4152 asc 8D"UN MESSAGE A L"A7"INTERIEUR DIT : NE"8D
asc "RESPECTEZ PAS LES COULEURS DU CODE DE LA"8D
asc "ROUTE...?"00
str4156 asc "TIENS LE COFFRE SE REFERME"00
*--------
:4160 @print #str4160
@wait #400
rts
str4160 asc "MAINTENANT, VOUS AVEZ UNE LAMPE PLEINE"8D
asc "DE PETROLE"00
*--------
:4170 @print #str4170
@wait #400
rts
str4170 asc "VOUS N"A7"AVEZ RIEN POUR TRANSPORTER LE"8D
asc "PETROLE"00
*--------
:4180 @print #str4180
@explode
@wait #300
@print #str4185
@wait #200
rts
str4180 asc "LE BRIQUET QUE VOUS AVIEZ LAISSE ALLUME"8D
asc "VIENT D"A7"EXPLOSER"00
str4185 asc 8D"CA TUE L"A7"ETOURDIE..."00
*--------
:4190 @print #str4190
@wait #300
@print #str4195
@wait #300
rts
str4190 asc "A FORCE DE MARCHER EN LONG ET EN LARGE"8D
asc "DANS CETTE MAISON,"00
str4195 asc "VOUS SOMBREZ DANS UN COMA DES PLUS"8D
asc "MORTELS..."00
*--------
:4200 @print #str4200
rts
str4200 asc "L"A7"EAU COULE..."00
*--------
:4210 @print #str4210
@wait #400
@print #str4215
@wait #300
rts
str4210 asc "VOUS AVEZ LES PIEDS TREMPES ET CELA VOUS"
asc "REND TRES MALADE..."00
str4215 asc 8D"VOUS MOUREZ D"A7"UNE TRIPLE PNEUMONIE...!"00
*--------
:4220 @print #str4220
@wait #200
@print #str4225
@wait #300
rts
str4220 asc "LE TITRE EST : "00
str4225 asc 8D"LA MORT A LA PREMIERE PAGE."00
*--------
:4230 @explode
@print #str4230
@wait #400
rts
str4230 asc "LE LIVRE A EXPLOSE LORSQUE VOUS L"A7"AVEZ"8D
asc "OUVERT..."00
*--------
:4240 @print #str4240
@wait #300
rts
str4240 asc "LE PAPIER INDIQUE : CHERCHEZ LA CLEF."00
*--------
:4250 @print #str4250
@wait #400
rts
str4250 asc "LA CLEF VOUS PERMETTRA DE TROUVER LE"8D
asc "CODE DE LA PORTE D"A7"ENTREE."00
*--------
:4260 @print #str4260
@wait #400
rts
str4260 asc "IL Y A, A COTE DE LA PORTE, UN CLAVIER"8D
asc "NUMERIQUE PERMETTANT D"A7"ENTRER UN CODE"00
*--------
:4270 @print #str4270
@wait #200
rts
str4270 asc "POUR FAIRE QUOI...?"00
*--------
:4280 @print #str4280
@wait #300
rts
str4280 asc "IL Y A UNE ODEUR DE GAZ."00
*--------
:4290 @print #str4290
@wait #300
rts
str4290 asc "APPAREMMENT, IL N"A7"Y A AUCUNE ODEUR"8D
asc "MAIS..."00
*--------
:4300 @print #str4300
@wait #300
rts
str4300 asc "C"A7"EST DEJA FAIT, ESPECE DE RIGOLO"00
*--------
:4310 @print #str4310
@wait #300
rts
str4310 asc "IL FAUDRAIT PEUT-ETRE DU FEU"00
*--------
:4320 @print #str4320
@wait #300
rts
str4320 asc "LA LAMPE NE CONTIENT PAS DE PETROLE"00
*--------
:4330 @print #str4330
@wait #200
rts
str4330 asc "VOUS NE L"A7"AVEZ PAS"00
*--------
:4340 @print #str4340
@wait #300
rts
str4340 asc "LE BRIQUET EST ENCORE ALLUME ET IL"8D
asc "ECLAIRE LA PIECE."00
*--------
:4350 @explode
@print #str4350
@wait #400
rts
str4350 asc "LA TORCHE ETAIT PIEGEE, ELLE VOUS"8D
asc "EXPLOSE DANS LES MAINS..."00
*--------
:4360 @print #str4360
@wait #300
rts
str4360 asc "LA LAMPE EST ENCORE ALLUMEE ET ELLE VOUS"
asc "ECLAIRE"00
*--------
:4370 @print #str4370
@wait #300
rts
str4370 asc "UN NAIN VIENT DE VOUS LANCER UN POIGNARD"
asc "EN PLEIN COEUR..."00
*--------
:4380 @print #str4380
@wait #400
rts
str4380 asc "UN NAIN VIENT DE SE PRECIPITER SUR VOUS,"
asc "IL S"A7"EMPALE SUR VOTRE CISEAU"00
*--------
:4390 @print #str4390
@wait #400
rts
str4390 asc "UN NAIN VIENT DE SE PRECIPITER SUR VOUS,"
asc "IL S"A7"EMPALE SUR VOTRE COUTEAU"00
*--------
:4400 @print #str4400
@wait #150
rts
str4400 asc "VOUS VENEZ DE RENVERSER LE POT"00
*--------
:4410 @print #str4410
@wait #200
@print #str4412
@wait #200
rts
str4410 asc "LA FOUDRE VIENT DE TOMBER SUR LA MAISON"8D
str4412 asc 8D"LA MAISON N"A7"EXISTE PLUS, VOUS NON PLUS"00
*--------
:4420 @print #str4420
@wait #200
@print #str4425
@wait #200
rts
str4420 asc "A FORCE DE MARCHER DANS LE NOIR, VOUS"8D
asc "AVEZ TREBUCHE"00
str4425 asc 8D"VOUS MOUREZ D"A7"UNE FRACTURE DU CRANE"00
*--------
:4430 @print #str4430
@wait #300
rts
str4430 asc "VOUS NE POUVEZ PAS TRAVAILLER DANS LE"8D
asc "NOIR..."00
*--------
:4440 @print #str4440
@wait #400
rts
str4440 asc "LA LUMIERE DU BRIQUE NE SUFFIT PAS"8D
asc "POUR TRAVAILLER..."00
*--------
:4450 @print #str4450
@wait #100
rts
str4450 asc "IMPOSSIBLE !"00
*--------
:4460 @print #str4460
@wait #250
rts
str4460 asc "VOUS N"A7"AVEZ AUCUN OUTIL..."
*--------
:4470 @print #str4470
@wait #400
rts
str4470 asc "LE TELEPORTEUR EST EN PANNE, LES BOUTONS"
asc "NE FONCTIONNENT PAS."00
*--------
:4480 @explode
@print #str4480
@wait #400
rts
str4480 asc "LE TELEPORTEUR VIENT D"A7"EXPLOSER, VOUS"8D
asc "ETES DECOMPOSEE... !"00
*--------
:4490 @explode
@print #str4490
@wait #400
rts
str4490 asc "LE TELEPORTEUR SE MET EN MARCHE, VOUS"8D
asc "DISPARAISSEZ"00
*--------
:4500 @print #str4500
@wait #300
rts
str4500 asc "VOUS PRENEZ DU 30000 VOLTS DANS LES"8D
asc "DOIGTS"00
*--------
:4510 @print #str4510
@wait #150
rts
str4510 asc "LE PLACARD EST FERME A CLEF"00
*--------
:4520 @print #str4520
@wait #400
rts
str4520 asc "L"A7"HORRIBLE MONSTRE SORTI DU PLACARD"8D
asc "VIENT DE VOUS DEVORER"00
*--------
:4530 @print #str4530
@wait #200
rts
str4530 asc "IL NE FALLAIT PAS FUIR"00
*--------
:4540 @print #str4540
@wait #400
rts
str4540 asc "VOUS AVEZ RAISON D"A7"UTILISER LE CISEAU,"8D
asc "LE MONSTRE EST MORT"00
*--------
:4550 @print #str4550
@print #PL
@print #str4552
@wait #300
@print #str4555
@wait #150
rts
str4550 asc "A L"A7"INTERIEUR DU PLACARD, LE NO "00
str4552 asc 8D" EST INSCRIT"00
str4555 asc 8D"LE PLACARD SE REFERME."00
*--------
:4560 @explode
@print #str4560
@wait #200
rts
str4560 asc "LE PISTOLET A EXPLOSE"00
*--------
:4570 @explode
@print #str4570
@wait #250
lda #5
sta BREAK
rts
str4570 asc "LE CLAVIER NUMERIQUE A EXPLOSE"00
*--------
:4580 @print #str4580
@wait #300
@print #str4582
@wait #100
@print #str4585
@wait #400
rts
str4580 asc "LE CLAVIER NUMERIQUE PREND FEU,"8D
asc "HEUREUSEMENT, VOUS AVIEZ "00
str4582 asc "UN POT PLEIN"00
str4585 asc 8D"D"A7"EAU QUI VOUS PERMET D"A7"ETEINDRE LE FEU"00
*--------
:4590 @print #str4590
jsr GETLN1
cpx #4
bne :4595
ldx #4-1
]lp lda TEXTBUFFER,x
cmp PL,x
bne :4595
dex
bpl ]lp
jmp :4600 ; t'as gagn<67>
:4595 jmp :4570 ; t'as perdu
str4590 asc "NO DE CODE "00
*-----------------------------------
* 4600
*-----------------------------------
:4600
@wait #200 ; et le texte
@print #strCODEEXACT
@wait #400
jsr :10000
@print #strENDEHORS
jmp :32000
strCODEEXACT
asc "LE CODE EST EXACT... LA PORTE S"A7"OUVRE..."00
strENDEHORS
asc "VOUS VOILA EN DEHORS DE LA MAISON..."
*--------
:4610
@print #str4610
@wait #400
@print #str4615
@wait #150
rts
str4610 asc "A L"A7"INTERIEUR DU PLACARD, IL Y A UN MOT"8D
asc "PARLE D"A7"UN TELEPORTEUR"00
str4615 asc "TIENS LE PLACARD SE FERME TOUT SEUL..."00
*--------
:4620
@print #str4620
@wait #350
rts
str4620 asc "AVANT DE LA POSER A TERRE, IL FAUDRAIT"8D
asc "PEUT-ETRE L"A7"ENLEVER"00
*--------
:4630
@print #str4630
@wait #400
rts
str4630 asc "IL Y A UN HORRIBLE MONSTRE DEVANT VOUS"8D
asc "QUI EST SORTI DU PLACARD."00
*--------
:4640
@print #str4640
@wait #350
rts
str4640 asc "LE PLACARD ETAIT PIEGE, VOUS N"A7"AURIEZ"8D
asc "PAS DU L"A7"OUVRIR"00
*-----------------------------------
* 6000 - ANALYSE DU MOT
*-----------------------------------
nbCAR = 100 ; on ne depasse pas 100 caracteres
:6000 lda #0
sta N
sta GN
sta X$1
sta X$2
sta MO$1
sta MO$2
* 1. cherche le premier caract<EFBFBD>re
ldx #0 ; cherche le premier caractere
]lp lda TEXTBUFFER,x
cmp #chrRET2
beq :6021
cmp #chrSPC2
bne :6022 ; on a trouv<75> un caract<63>re
inx
cpx lenSTRING
bcs :6021
cpx #nbCAR
bcc ]lp
:6021 rts ; retourne sans avoir trouve
* 2. recopie le mot
:6022 ldy #1
]lp lda TEXTBUFFER,x
cmp #chrRET2
beq :6023
cmp #chrSPC2
beq :6023
sta X$1,y
inx
cpx lenSTRING
bcs :6023
iny
cpy #4
bcc ]lp
beq ]lp
:6023 dey
sty X$1 ; sauve la longueur
* 3. cherche un espace
inx
]lp lda TEXTBUFFER,x
cmp #chrRET2
beq :6032
cmp #chrSPC2
beq :6032
inx
cpx lenSTRING
bcs :6100
cpx #nbCAR
bcc ]lp
bcs :6100
* 4. recopie le mot
:6032 inx
ldy #1
]lp lda TEXTBUFFER,x
cmp #chrRET2
beq :6033
cmp #chrSPC2
beq :6033
sta X$2,y
inx
cpx lenSTRING
bcs :6033
iny
cpy #4
bcc ]lp
beq ]lp
:6033 dey
sty X$2 ; sauve la longueur
* 5. cherche le mot dans les options
* X$1 4 PREN
* X$2 4 LAMP
* V$x 6 04PREN
* 0 123456
:6100 lda #0
sta W
:6180 lda #1
sta N
:6200 lda N
asl
tax
lda tblV$,x
sta LINNUM
lda tblV$+1,x
sta LINNUM+1
ldy #1
ldx #1
]lp lda (LINNUM),y
cmp X$1,x
bne :6250
iny
inx
cpx X$1
bcc ]lp
beq ]lp
lda W ; recopie l'index du mot
asl
tax
lda N
asl
tay
lda tblV,y
sta MO$1,x
jmp :6300
:6250 inc N
lda N
cmp #V
bcc :6200
beq :6200
* 6. on change de mot
:6300 ldx #5-1
]lp lda X$2,x
sta X$1,x
dex
bpl ]lp
inc W
bpl :6180
rts
*--------
X$1 ds 4+1 ; premier mot saisi
X$2 ds 4+1 ; second mot saisi
*-----------------------------------
* 7000 - DESCRIPTION DES PIECES
*-----------------------------------
tbl7000
da $bdbd
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
@wait #250
@print #str7001
jsr :10000
rts
:7010
@print #str7010
jmp :10100
:7020
@print #str7020
jmp :10200
:7030
@print #str7030
lda #0
sta F1
jmp :10300
:7040
@print #str7040
lda #1
sta F1
jmp :10300
:7050
@print #str7050
jmp :10500
:7060
@print #str7060
jmp :10600
:7070
@print #str7070
lda #0
sta LX
jmp :10700
:7080
@print #str7080
jmp :10800
:7090
@print #str7090
lda #0
sta LX
jmp :10900
:7100
@print #str7100
lda #0
sta LX
jmp :11000
:7110
@print #str7110
lda #2
sta LX
jmp :10700
:7120
@print #str7120
lda #1
sta LX
jmp :10700
:7130 ; nada
rts
:7140
@print #str7140
lda #2
sta LX
jmp :12200
:7150
@print #str7150
@print #str7001
jmp :11500
:7160
@print #str7160
lda #1
sta LX
jmp :10900
:7170
@wait #300
@print #str7170
jmp :11700
:7180
@print #str7180
jmp :11800
:7190
@print #str7190
lda #2
sta LX
jmp :10900
:7200
@print #str7200
lda #1
sta LX
jmp :12200
:7210
@print #str7210
lda #1
sta LX
jmp :11000
:7220
@print #str7220
lda #0
sta LX
jmp :12200
:7230
@print #str7230
jmp :12300
:7240
@print #str7240
jmp :12400
*--------
* "0 1 2 3 "
* "0123456789012345678901234567890123456789"
* "----------------------------------------"
strVOUS asc "VOUS ETES "00
str7000 asc "DEVANT LE MANOIR DU DEFUNT"00
str7001 asc 8D" DR GENIUS"00
str7010 asc "DANS LE HALL D"A7"ENTREE"00
str7020 asc "EN BAS DE L"A7"ESCALIER MENANTAU 2EME ETAGE"00
str7030 asc "DANS LA SALLE A MANGER"00
str7040 asc "DANS UNE BIBLIOTHEQUE SANS LIVRE...!"00
str7050 asc "DANS UNE BUANDERIE"00
str7060 asc "DANS LE SALON"00
str7070 asc "DANS UNE CHAMBRE"00
str7080 asc "DANS UN CORRIDOR"00
str7090 asc "DANS UNE SALLE D"A7"ATTENTE"00
str7100 asc "DANS LE VESTIBULE"00
str7110 asc "DANS LA CHAMBRE D"A7"AMIS"00
str7120 asc "DANS UNE CHAMBRE"00
str7130 asc ""00 ; nada
str7140 asc "DANS UNE PETITE SALLE"00
str7150 asc "DANS LE LABORATOIRE DU"00 ; + :7001
str7160 asc "DANS UNE PETITE PIECE VIDE"00
str7170 asc "! JUSTEMENT, VOUS NE SAVEZ PASOU VOUS ETES"00
str7180 asc "EN HAUT DE L"A7"ESCALIER"00
str7190 asc "DANS LA SALLE DE BAINS"00
str7200 asc "DANS LE LIVING ROOM"00
str7210 asc "DANS UNE PIECE ENFUMEE"00
str7220 asc "DANS UNE GRANDE PIECE"00
str7230 asc "DANS UNE PIECE DE RANGEMENT"00
str7240 asc "DANS LE DRESSING"00
*-----------------------------------
* 8000 - CHARGEMENT VARIABLES
*-----------------------------------
hex bdbdbdbd
initALL
lda #1
sta SALLE
ldx #10
lda #0
]lp sta P,x
sta C,x
dex
bne ]lp
lda #0
sta P+11
sta P+12
lda #14
sta C+3
lda #12
sta C+7
sta C+9
lda #80
sta C+1
* PL=INT(RND(1)*9000+1000)
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
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
rts
*-----------------------------------
* 10000 - LES IMAGES
*-----------------------------------
:10000
@draw #data10000
rts
:10100
@draw #data10100
rts
:10200
@draw #data10200
rts
:10300
@draw #data10300
lda F1
bne :10301
@draw #data10301
:10301 rts
:10400
@draw #data10400
rts
:10500
@draw #data10500
rts
:10600
@draw #data10600
rts
:10700
@draw #data10700
lda LX
cmp #2
beq :10745
@draw #data10701
:10745 lda LX
bne :10750
@draw #data10702
rts
:10750 cmp #1
beq :10780
@draw #data10703
rts
:10780 @draw #data10704
rts
:10800
@draw #data10800
rts
:10900
@draw #data10900
lda LX
bne :10915
@draw #data10901
jmp :10920
:10915 @draw #data10902
:10920 @draw #data10903
lda LX
bne :10935
@draw #data10904
rts
:10935 cmp #1
bne :10940
@draw #data10905
rts
:10940 @draw #data10906
rts
:11000
@draw #data11000
lda LX
bne :11030
@draw #data11001
rts
:11030 @draw #data11002
rts
:11500
@draw #data11500
rts
:11700
@draw #data11700
rts
:11800
@draw #data11800
rts
:12200
@draw #data12200
lda LX
cmp #2
bne :12220
@draw #data12201
:12220 @draw #data12202
lda LX
cmp #2
beq :12230
@draw #data12203
:12230 @draw #data12204
lda LX
cmp #2
beq :12235
@draw #data12205
:12235 lda LX
beq :12240
@draw #data12206
rts
:12240 @draw #data12207
rts
:12300
@draw #data12300
rts
:12400
@draw #data12400
rts
*-----------------------------------
* 20000 - PERDU
*-----------------------------------
:20000
@draw #data13000
@play #zikPERDU
jsr setTEXTFULL
:20100
]lp @print #strREPLAY
jsr RDKEY
cmp #"N"
beq :20001
cmp #"O"
bne ]lp
jmp REPLAY
:20001 jmp MONZ
*--------
strREPLAY asc 8D"VOULEZ-VOUS REJOUER ? "00
*-----------------------------------
* 32000 - GAGNE
*-----------------------------------
:32000
jsr setTEXTFULL
@print #strGAGNE
@play #zikGAGNE
jmp :20100
*--------
strGAGNE asc "CELA EST EXCEPTIONNEL. VOUS ETES LE"8D8D
asc "PREMIER A ETRE SORTI VIVANT DE CETTE"8D8D
asc "MAISON, MAIS SI J"A7"ETAIS VOUS, JE ME"8D8D
asc "METTRAIS A COURIR CAR UN NAIN RODE"8D8D
asc "PEUT-ETRE DANS LES PARAGES..."00
*-----------------------------------
* 40000 - LISTE DES INSTRUCTIONS
*-----------------------------------
:40000
jsr setTEXTFULL
]lp @print #strINSTR
jsr RDKEY
cmp #"N"
beq :40001
cmp #"O"
bne ]lp
@print #strINSTR2
jsr RDKEY
:40001 rts
*--------
strINSTR asc 8D"LA LISTE DES INSTRUCTIONS ? "00
strINSTR2 asc 8D8D
asc "VOUS VOICI ARRIVE DANS LE MANOIR DU"8D
asc " DR GENIUS..."8D
asc 8D
asc "POUR CONVERSER AVEC L"A7"ORDINATEUR, IL"8D
asc "FAUT RENTRER LES ORDRES EN 1 OU 2 MOTS"8D
asc "TELS QUE :"8D
asc " NORD"8D
asc " PRENDS PILULE"8D
asc 8D
asc "OU POUR COMMENCER :"8D
asc " ENTRE"8D
asc 8D8D
asc "SI VOUS VOULEZ FAIRE DURER LA PHRASE"8D
asc "DECRIVANT LA SALLE, TAPEZ UNE TOUCHE "8D
asc 8D
asc "UN DERNIER CONSEIL : IL PEUT PARFOIS Y"8D
asc "AVOIR UNE PORTE DERRIERE VOUS. "00
*-----------------------------------
* 51000 - DISCLAIMER
*-----------------------------------
:51000
jsr setTEXTFULL
@print #strDISCLAIMER
jmp RDKEY
*--------
strDISCLAIMER
asc "L"A7"UTLISATION DE CE PROGRAMME EST"8D8D
asc "DECONSEILLEE AUX PERSONNES SENSIBLES,"8D8D
asc "AUX ENFANTS EN BAS AGE, AINSI QU"A7"A"8D8D
asc "TOUTE PERSONNE SUSCEPTIBLE D"A7"AVOIR"8D8D
asc "DES MALAISES CARDIAQUES."8D8D
asc 8D8D
asc "NOUS NE POURRIONS ETRE TENUS RESPONSA-"8D8D
asc "-BLES DES TROUBLES PHYSIQUES OU MENTAUX"8D8D
asc "PROVOQUES PAR VOTRE ECHEC DANS"8D8D
asc "LE MANOIR DU DR GENIUS ............."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
@play #zikINTRODUCTION
rts
*--------
strLORICIELS
asc "LORICIELS EST FIER DE PRESENTER :"00
strLEMANOIR
asc " @ @@@ @ @ @@@ @ @ @@@ @ @@@"8D
asc " @ @ @@ @@ @ @ @@ @ @ @ @ @ @"8D
asc " @ @@ @ @ @ @@@ @@@@ @ @ @ @@@"8D
asc " @ @ @ @ @ @ @ @@ @ @ @ @@"8D
asc " @@@ @@@ @ @ @ @ @ @ @@@ @ @ @"8D
asc 8D
asc " @@ @ @ @@"8D
asc " @ @ @ @ @ @ @"8D
asc " @ @ @ @ @ @ @@"8D
asc " @ @ @ @ @ @ @ @"8D
asc " @@@ @@@ @@@ @"8D
asc 8D8D
asc " @@@@ @@@@ @@ @ @ @ @ @@@@"8D
asc " @ @ @ @@ @ @ @ @ @"8D
asc " @ @ @@@ @ @ @ @ @"8D
asc " @ @@@ @ @ @ @ @ @ @@@@"8D
asc " @ @@ @ @ @@@ @ @ @ @"8D
asc " @ @ @ @ @@ @ @ @ @"8D
asc " @@@@ @@@@ @ @@ @ @@@@ @@@@ @ @"00
strINTRO1 asc " VERSION APPLE II PAR "00
strINTRO2 asc " BRUTAL DELUXE SOFTWARE "00
strINTRO3 asc " MERCI FRED_72 "00
strINTRO4 asc "(C) 1983, L. BENES & LORICIELS"00
*-----------------------------------
* ORIC
*-----------------------------------
KEY$ lda KBD ; on keypress, wait 5s
bpl key$1 ; or 1s IF none
bit KBDSTROBE
@wait #400
key$1 @wait #100
rts
*--------
EXPLODE ldx #$25
]lp lda TXTSET
lda #$25
jsr WAIT
lda TXTCLR
lda #$25
jsr WAIT
dex
bpl ]lp
rts
*-----------------------------------
* CODE 6502
*-----------------------------------
*----------------------
* setTEXTFULL
*----------------------
setTEXTFULL ; 40x24 text
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
*----------------------
* setHGR
*----------------------
setHGR ; HGR
sta TXTCLR
sta MIXCLR
sta TXTPAGE1
sta HIRES
rts
*----------------------
* switchVIDEO
*----------------------
switchVIDEO
lda #0
eor #1
sta switchVIDEO+1
beq setMIXEDOFF
*----------------------
* setMIXEDON
*----------------------
setMIXEDON ; HGR + 4 LINES OF TEXT
sta MIXSET
rts
*----------------------
* setMIXEDOFF
*----------------------
setMIXEDOFF ; FULL HGR
sta MIXCLR
rts
*----------------------
* printCSTR
*----------------------
printCSTRING
sty pcs1+1
stx pcs1+2
pcs1 lda $ffff
beq pcs2
jsr COUT
inc pcs1+1
bne pcs1
inc pcs1+2
bne pcs1
pcs2 rts
*----------------------
* waitMS
*----------------------
waitMS
sty LINNUM
doW1 ldy LINNUM
]lp lda #60 ; 1/100<30>me de seconde
jsr WAIT
dey
bne ]lp
dex
bpl doW1
rts
*----------------------
* 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
jsr (myADRS,x)
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
adc theY+1
sta theY2+1 ; new Y-coord
*---------- Check height
lda theY
cmp #maxY
bcc doD1
lda #maxY
sta theY
doD1 lda theY2
cmp #maxY
bcc doD2
lda #maxY
sta theY2
doD2
*---------- 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
rts
*----------------------
* 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
*-----------------------------------
* VARIABLES
*-----------------------------------
V = 70
tblV$ da $bdbd
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
da V$70
V$1 str "N"
V$2 str "NORD"
V$3 str "S"
V$4 str "SUD"
V$5 str "E"
V$6 str "EST"
V$7 str "O"
V$8 str "OUEST"
V$9 str "MONT"
V$10 str "GRIM"
V$11 str "DESC"
V$12 str "PREN"
V$13 str "RAMA"
V$14 str "POSE"
V$15 str "OUVR"
V$16 str "FERM"
V$17 str "ENTR"
V$18 str "AVAN"
V$19 str "ALLU"
V$20 str "ETEI"
V$21 str "REPA"
V$22 str "DEPA"
V$23 str "LIS"
V$24 str "REGA"
V$25 str "RETO"
V$26 str "RENI"
V$27 str "SENS"
V$28 str "REMP"
V$29 str "VIDE"
V$30 str "INVE"
V$31 str "LIST"
V$32 str "RIEN"
V$33 str "ATTE"
V$34 str "POIG"
V$35 str "COUT"
V$36 str "TOUR"
V$37 str "LAMP"
V$38 str "CODE"
V$39 str "ESCA"
V$40 str "PIST"
V$41 str "PLAC"
V$42 str "TORC"
V$43 str "TELE"
V$44 str "MONS"
V$45 str "PETR"
V$46 str "POT"
V$47 str "LIT"
V$48 str "CLEF"
V$49 str "PAPI"
V$50 str "LIVR"
V$51 str "BRIQ"
V$52 str "COMB"
V$53 str "COFF"
V$54 str "ROUG"
V$55 str "BLEU"
V$56 str "VERT"
V$57 str "TITR"
V$58 str "ROBI"
V$59 str "CISE"
V$60 str "PORT"
V$61 str "ACTI"
V$62 str "JETE"
V$63 str "LANCE"
V$64 str "EAU"
V$65 str "ENFI"
V$66 str "PASS"
V$67 str "APPU"
V$68 str "ENFO"
V$69 str "ENLE"
V$70 str "RENT"
tblV dfb $bd
dfb 01,01,02,02,03,03,04,04
dfb 05,05,06,10,10,11,12,13
dfb 14,14,15,16,17,17,18,19
dfb 20,21,21,22,23,24,24,25
dfb 25,26,27,28,29,30,31,32
dfb 33,34,35,36,37,38,18,39
dfb 40,41,42,43,44,45,46,47
dfb 48,49,50,51,52,53,53,54
dfb 55,55,56,56,57,58
*---
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
O 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
*---
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
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
O$1 asc "UNE TORCHE ELECTRIQUE"00
O$2 asc "UN ROBINET"00
O$3 asc "UN CISEAU"00
O$4 asc "UN TOURNEVIS"00
O$5 asc "UNE LAMPE A PETROLE"00
O$6 asc "UNE LAMPE PLEINE"00
O$7 asc "UNE LAMPE ALLUME"00
O$8 asc "UN COUTEAU"00
O$9 asc "UN PAPIER"00
O$10 asc "UN LIVRE"00
O$11 asc "DU PETROLE DANS UN LAVABO BOUCHE"00
O$12 asc "UNE CLEF"00
O$13 asc "UN BOUTON ROUGE"00
O$14 asc "UN BOUTON BLEU"00
O$15 asc "UN BOUTON VERT"00
O$16 asc "UN TELEPORTEUR"00
O$17 asc "UN TELEPORTEUR REPARE"00
O$18 asc "UNE COMBINAISON ARGENTEE"00
O$19 asc "UNE COMBINAISON ENFILEE"00
O$20 asc "UN MONSTRE ALL"A7"EST"00
O$21 asc "UN PISTOLET"00
O$22 asc "UN BRIQUET"00
O$23 asc "UN BRIQUET ALLUME"00
O$24 asc "UN POT"00
O$25 asc "UN POT PLEIN D"A7"EAU"00
*---
M = 25
tblM$ da $bdbd
da M$1,M$2,M$3,M$4,M$5,M$6,M$7,M$8,M$9
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
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
AA = 128
tblA$ da A$1,A$2,A$3,A$4,A$5,A$6,A$7,A$8,A$9
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
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."
A$117 str "5743D18F09.D30K."
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
dfb 57,43
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
* C = 14
tblC$ da $bdbd
da C$1,C$2,C$3,C$4,C$5,C$6,C$7,C$8,C$9
da C$10,C$11,C$12,C$13,C$14
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."
*-----------------------------------
A1 ds 1
BREAK ds 1
C ds 10+1
CO ds 1
E ds 1
E$ ds 32 ; the longest string
F1 ds 1
G ds 1
GN ds 1
H ds 1
HH ds 1
L ds 1
LX ds 1
MO$1 ds 1 ; mot 1
MO$2 ds 1 ; mot 2
N ds 1
NL ds 1
OK ds 1
P ds 13+1
PY ds 1
PL ds 5 ; 1111/0
S ds 2 ; pour S(1)
SALLE ds 1
T ds 1
W ds 1
Z ds 1
*--- The lazy decimal to hexadecimal conversion
tblD2H dfb 0,10,20,30,40,50,60,70,80,90
lenSTRING ds 1
*-----------------------------------
* STRINGS
*-----------------------------------
strILFAITNOIR
asc "IL FAIT NOIR COMME DANS UN FOUR, IL"8D
asc "FAUDRAIT PEUT-ETRE ALLUMER"00
strILYA asc "IL Y A DANS LA SALLE :"00
strSPACE asc " "00
strRETURN asc 8D00
strCOMMANDE
asc "QUE FAITES-VOUS ? "00
strJENECOMPRENDS
asc 8D"JE NE COMPRENDS PAS..."00
strIMPOSSIBLE
asc 8D"IMPOSSIBLE "00
strCECHEMIN
asc "DE PRENDRE CE CHEMIN"00
strEXCLAM
asc " !"00
*-----------------------------------
* LES AUTRES FICHIERS
*-----------------------------------
put images.s
put musiques.s
*--- It's the end
Reference in New Issue View Git Blame Copy Permalink