mirror of
https://github.com/antoinevignau/source.git
synced 2024-06-17 13:29:35 +00:00
all is good but word 2
This commit is contained in:
parent
9e6168c1fd
commit
340ae097d8
Binary file not shown.
|
@ -9,6 +9,19 @@
|
||||||
org $4000
|
org $4000
|
||||||
lst off
|
lst off
|
||||||
|
|
||||||
|
*-----------------------------------
|
||||||
|
* SOLUTION
|
||||||
|
*
|
||||||
|
* ENTRE
|
||||||
|
* O MONT E PREN COMBI, O DESC E E E PREN CISEAU, N O PREN TOUR,
|
||||||
|
* PREN LAMP E N E S E PREN BRIQ, O N O S S E PREN PETRO,
|
||||||
|
* O N N N N ALLU BRIQ, ALLU LAMP, ETEI BRIQ, ENFI COMBI
|
||||||
|
* REPARE TELE POSE TOURN , APPUI ROUG, PREN CLEF,
|
||||||
|
* E S O S S S O O O O MONT N E N OUVR PLAC,
|
||||||
|
* LANC CISE, (Code 5943) S O S DESC E E
|
||||||
|
* RENTR CODE
|
||||||
|
*-----------------------------------
|
||||||
|
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
* SOFTSWITCHES AND FRIENDS
|
* SOFTSWITCHES AND FRIENDS
|
||||||
*-----------------------------------
|
*-----------------------------------
|
||||||
|
@ -345,8 +358,6 @@ REPLAY
|
||||||
lda tblM$+1,x
|
lda tblM$+1,x
|
||||||
sta LINNUM+1
|
sta LINNUM+1
|
||||||
|
|
||||||
brk $bd
|
|
||||||
|
|
||||||
lda (LINNUM),y
|
lda (LINNUM),y
|
||||||
beq :980
|
beq :980
|
||||||
cmp MO$1
|
cmp MO$1
|
||||||
|
@ -1253,7 +1264,7 @@ str4270 asc "POUR FAIRE QUOI...?"00
|
||||||
@wait #300
|
@wait #300
|
||||||
rts
|
rts
|
||||||
|
|
||||||
str4280 asc "IL Y A UNE ODEUR DE GAZ."00
|
str4280 asc 8D"IL Y A UNE ODEUR DE GAZ."00
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
|
@ -1626,7 +1637,6 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
||||||
|
|
||||||
:6000 lda #0
|
:6000 lda #0
|
||||||
sta N
|
sta N
|
||||||
sta GN
|
|
||||||
sta X$1
|
sta X$1
|
||||||
sta X$2
|
sta X$2
|
||||||
|
|
||||||
|
@ -1733,12 +1743,8 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
||||||
bcc ]lp
|
bcc ]lp
|
||||||
beq ]lp
|
beq ]lp
|
||||||
|
|
||||||
lda W ; recopie l'index du mot
|
ldx W ; recopie l'index du mot
|
||||||
asl
|
ldy N
|
||||||
tax
|
|
||||||
lda N
|
|
||||||
asl
|
|
||||||
tay
|
|
||||||
lda tblV,y
|
lda tblV,y
|
||||||
sta MO$1,x
|
sta MO$1,x
|
||||||
jmp :6300
|
jmp :6300
|
||||||
|
@ -1751,15 +1757,21 @@ nbCAR = 100 ; on ne depasse pas 100 caracteres
|
||||||
|
|
||||||
* 6. on change de mot
|
* 6. on change de mot
|
||||||
|
|
||||||
:6300 ldx #5-1
|
:6300 lda X$2 ; on n'a pas de second mot
|
||||||
|
beq :6350
|
||||||
|
|
||||||
|
ldx #5-1
|
||||||
]lp lda X$2,x
|
]lp lda X$2,x
|
||||||
sta X$1,x
|
sta X$1,x
|
||||||
dex
|
dex
|
||||||
bpl ]lp
|
bpl ]lp
|
||||||
|
|
||||||
inc W
|
inc W
|
||||||
bpl :6180
|
lda W
|
||||||
rts
|
cmp #2
|
||||||
|
bcc :6180
|
||||||
|
|
||||||
|
:6350 rts
|
||||||
|
|
||||||
*--------
|
*--------
|
||||||
|
|
||||||
|
@ -1938,7 +1950,7 @@ strVOUS asc "VOUS ETES "00
|
||||||
str7000 asc "DEVANT LE MANOIR DU DEFUNT"00
|
str7000 asc "DEVANT LE MANOIR DU DEFUNT"00
|
||||||
str7001 asc 8D" DR GENIUS"00
|
str7001 asc 8D" DR GENIUS"00
|
||||||
str7010 asc "DANS LE HALL D"A7"ENTREE"00
|
str7010 asc "DANS LE HALL D"A7"ENTREE"00
|
||||||
str7020 asc "EN BAS DE L"A7"ESCALIER MENANTAU 2EME ETAGE"00
|
str7020 asc "EN BAS DE L"A7"ESCALIER MENANT AU2E ETAGE"00
|
||||||
str7030 asc "DANS LA SALLE A MANGER"00
|
str7030 asc "DANS LA SALLE A MANGER"00
|
||||||
str7040 asc "DANS UNE BIBLIOTHEQUE SANS LIVRE...!"00
|
str7040 asc "DANS UNE BIBLIOTHEQUE SANS LIVRE...!"00
|
||||||
str7050 asc "DANS UNE BUANDERIE"00
|
str7050 asc "DANS UNE BUANDERIE"00
|
||||||
|
@ -3122,7 +3134,6 @@ E ds 1
|
||||||
E$ ds 32 ; the longest string
|
E$ ds 32 ; the longest string
|
||||||
F1 ds 1
|
F1 ds 1
|
||||||
G ds 1
|
G ds 1
|
||||||
GN ds 1
|
|
||||||
H ds 1
|
H ds 1
|
||||||
HH ds 1
|
HH ds 1
|
||||||
L ds 1
|
L ds 1
|
||||||
|
@ -3153,13 +3164,13 @@ lenSTRING ds 1
|
||||||
strILFAITNOIR
|
strILFAITNOIR
|
||||||
asc "IL FAIT NOIR COMME DANS UN FOUR, IL"8D
|
asc "IL FAIT NOIR COMME DANS UN FOUR, IL"8D
|
||||||
asc "FAUDRAIT PEUT-ETRE ALLUMER"00
|
asc "FAUDRAIT PEUT-ETRE ALLUMER"00
|
||||||
|
|
||||||
strILYA asc "IL Y A DANS LA SALLE :"00
|
strILYA asc 8D"IL Y A DANS LA SALLE :"00
|
||||||
strSPACE asc " "00
|
strSPACE asc ", "00
|
||||||
strRETURN asc 8D00
|
strRETURN asc 8D00
|
||||||
|
|
||||||
strCOMMANDE
|
strCOMMANDE
|
||||||
asc "QUE FAITES-VOUS ? "00
|
asc 8D"QUE FAITES-VOUS ? "00
|
||||||
|
|
||||||
strJENECOMPRENDS
|
strJENECOMPRENDS
|
||||||
asc 8D"JE NE COMPRENDS PAS..."00
|
asc 8D"JE NE COMPRENDS PAS..."00
|
||||||
|
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user