mirror of
https://github.com/antoinevignau/source.git
synced 2025-01-16 21:32:11 +00:00
done again!
This commit is contained in:
Antoine Vignau
parent
ca6876e4cd
commit
eed49a232d
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -28,7 +28,7 @@ intTIME ds 4
|
||||
ldal fgTIME
|
||||
beq intTIME1
|
||||
|
||||
lda switchENERGIE+1 ; switch is off
|
||||
lda switchTEMPS+1 ; switch is off
|
||||
bne intTIME1
|
||||
|
||||
sed
|
||||
@ -78,11 +78,14 @@ printNIVEAU ora #'0'
|
||||
|
||||
mx %00
|
||||
|
||||
printTEMPS lda fgTIME
|
||||
bne pt1
|
||||
printTEMPS lda fgTEXT
|
||||
beq pt1
|
||||
rts
|
||||
pt1 lda fgTIME
|
||||
bne pt2
|
||||
rts
|
||||
|
||||
pt1 sep #$30
|
||||
pt2 sep #$30
|
||||
lda MINUTES
|
||||
and #%1111_0000
|
||||
lsr
|
||||
@ -160,7 +163,7 @@ RDKEY jsr CURSOR ; shows the cursor
|
||||
|
||||
jsr checkREPLAY
|
||||
jsr printTEMPS
|
||||
jsr testENERGIE
|
||||
jsr testTEMPS
|
||||
bcs RDKEY99
|
||||
|
||||
pha
|
||||
@ -307,8 +310,7 @@ GOTOXY stx textX
|
||||
|
||||
mx %11
|
||||
|
||||
COUT
|
||||
rep #$30
|
||||
COUT rep #$30
|
||||
and #$ff
|
||||
cmp #chrRET ; next line, please
|
||||
beq COUT1
|
||||
|
||||
@ -657,35 +657,35 @@ str4530 asc 'Vous respirez un grand coup.'00
|
||||
str4540 asc 'Que voulez-vous respirer ? Il n'27'y a plus'
|
||||
asc 'd'27'oxyg'8f'ne.'00
|
||||
|
||||
str4550 asc 'Vous avez deux essais pour'00
|
||||
str4552 asc 'entrer le mot de passe.'00
|
||||
str4550 asc 'Vous avez 2 essais'00
|
||||
str4552 asc 'pour entrer le mot'00
|
||||
str4553 asc 'FAUX!'00
|
||||
str4554 asc 'Encore rat'8e'. L'27'ordinateur vous explose '88
|
||||
asc 'la figure.'00
|
||||
str4556 asc 'Mot de passe '00
|
||||
str4554 asc 'Encore rat'8e'.'0d
|
||||
asc 'L'27'ordinateur vous explose '88' la figure.'00
|
||||
str4556 asc 'de passe '00
|
||||
str4558 asc 'Exact, vous '90'tes perspicace !'00
|
||||
str4559 asc 0d'Le mot de passe du retour est '00
|
||||
str4559_1 asc 'UIN LOI QRU ILD ESP ECU TAS'00
|
||||
str4559_2 asc 'ASU VIE RAL HOU MEA NOI THE'00
|
||||
str4559_3 asc 'Le mot de passe pour le'00
|
||||
str4559_4 asc 'retour est : '00
|
||||
|
||||
str4560 asc 'C'27'est d'27'accord.'00
|
||||
str4570 asc 'Il '8e'tait temps, vous alliez mourir.'00
|
||||
str4580 asc 'Vous mourrez d'8e'shydrat'8e'.'00
|
||||
str4590 asc ''00
|
||||
str4595 asc 'Slot 1-9 (0=sortir) ? '00
|
||||
str4600 asc ''00
|
||||
str4610 asc 'Le sas se referme d'8f'rriere vous,'0d
|
||||
str4610 asc 'Le sas se referme derri'8f're vous,'0d
|
||||
asc 'le tableau de contr'99'le s'27'allume et'0d
|
||||
asc 'l'27'ordinateur de bord vous demande le'0d
|
||||
asc 'mot de passe pour le retour'00
|
||||
str4615 asc 'Le vaisseau de secours s'278e'loigne,'0d
|
||||
asc 'mot de passe pour le retour '00
|
||||
str4615 asc 0d'Le vaisseau de secours s'278e'loigne,'0d
|
||||
asc 'au loin vous voyez Genius qui pleure'0d
|
||||
asc 'derri'8f're un hublot'00
|
||||
str4616 asc ' VOUS AVEZ GAGNE'00
|
||||
str4618_1 asc 'Mais, que se passe-t-il, vous avez d'9e0d
|
||||
str4616 asc 0d' VOUS AVEZ GAGNE'00
|
||||
str4618_1 asc 0d'Mais, que se passe-t-il, vous avez d'9e0d
|
||||
asc 'vous tromper de mot de passe, votre'0d
|
||||
asc 'vaisseau de poche fonce sur le soleil.'00
|
||||
str4618_2 asc 'Vous venez de r'8e'aliser que Genius'0d
|
||||
str4618_2 asc 0d'Vous venez de r'8e'aliser que Genius'0d
|
||||
asc 'pleurait de JOIE...!'00
|
||||
|
||||
str4620 asc 'La soucoupe a explos'8e' au d'8e'collage.'00
|
||||
|
||||
@ -135,11 +135,6 @@ ICI phk
|
||||
tdc
|
||||
sta myDP
|
||||
|
||||
lda #screenRECT
|
||||
stal $300
|
||||
lda #^screenRECT
|
||||
stal $302
|
||||
|
||||
_TLStartUp
|
||||
pha
|
||||
_MMStartUp
|
||||
|
||||
@ -91,18 +91,22 @@ intro_intro
|
||||
ldy #198
|
||||
lda #txtINTRO4
|
||||
jsr centerME
|
||||
bcs ii_end
|
||||
|
||||
ldy #iiY
|
||||
lda #txtINTRO1
|
||||
jsr centerME
|
||||
bcs ii_end
|
||||
|
||||
ldy #iiY+20
|
||||
lda #txtINTRO2
|
||||
jsr centerME
|
||||
bcs ii_end
|
||||
|
||||
ldy #iiY+40
|
||||
lda #txtINTRO3
|
||||
jsr centerME
|
||||
bcs ii_end
|
||||
|
||||
ldy #60*1
|
||||
jsr waitMS16
|
||||
@ -115,17 +119,20 @@ intro_intro
|
||||
ldy #iiY
|
||||
lda #txtINTRO5
|
||||
jsr centerME
|
||||
bcs ii_end
|
||||
|
||||
ldy #iiY+20
|
||||
lda #txtINTRO6
|
||||
jsr centerME
|
||||
bcs ii_end
|
||||
|
||||
ldy #iiY+40
|
||||
lda #txtINTRO7
|
||||
jsr centerME
|
||||
|
||||
ldy #60*1
|
||||
jmp waitMS16
|
||||
jsr waitMS16
|
||||
ii_end rts
|
||||
|
||||
*----------- Merci La Belle Zohra
|
||||
|
||||
@ -311,7 +318,8 @@ igt_ret stz textX ; next line
|
||||
|
||||
igt_next ldy #4 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
bcs igt_end
|
||||
|
||||
inc dpFROM
|
||||
bra ]lp
|
||||
|
||||
@ -329,9 +337,10 @@ intro_serpent
|
||||
_GetPenPat
|
||||
|
||||
jsr snake_1
|
||||
bcs is_end
|
||||
jsr snake_2
|
||||
|
||||
PushLong #curPATTERN
|
||||
is_end PushLong #curPATTERN
|
||||
_SetPenPat
|
||||
rts
|
||||
|
||||
@ -348,10 +357,13 @@ snake_1 PushLong #curPENSIZE
|
||||
_SetPenSize
|
||||
|
||||
jsr snake_draw
|
||||
|
||||
php
|
||||
|
||||
PushWord curPENSIZE
|
||||
PushWord curPENSIZE+2
|
||||
_SetPenSize
|
||||
|
||||
plp
|
||||
rts
|
||||
|
||||
*-----------
|
||||
@ -392,7 +404,9 @@ sd_k lda theK
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
bcc sd_1
|
||||
rts
|
||||
sd_1
|
||||
inc theN
|
||||
lda maxN
|
||||
cmp theN
|
||||
@ -431,6 +445,9 @@ sd_k lda theK
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
bcc sd_2
|
||||
rts
|
||||
sd_2
|
||||
|
||||
inc theN
|
||||
lda theN
|
||||
@ -471,7 +488,9 @@ sd_k lda theK
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
bcc sd_3
|
||||
rts
|
||||
sd_3
|
||||
dec theN
|
||||
lda maxN
|
||||
cmp theN
|
||||
@ -510,7 +529,9 @@ sd_k lda theK
|
||||
|
||||
ldy #1 ; wait 4/60eme
|
||||
jsr waitMS16
|
||||
|
||||
bcc sd_4
|
||||
rts
|
||||
sd_4
|
||||
dec theN
|
||||
lda maxN
|
||||
cmp theN
|
||||
@ -552,7 +573,9 @@ sd_nextk lda theK
|
||||
bcs sd_end
|
||||
jmp sd_k
|
||||
|
||||
sd_end rts
|
||||
sd_end PushWord #%1111_1111_1111_1111 ; on arr<72>te tout pour MIDI Synth
|
||||
_FFStopSound
|
||||
rts
|
||||
|
||||
*-----------
|
||||
|
||||
@ -573,18 +596,22 @@ snake_2 PushWord #0
|
||||
ldy #80
|
||||
lda #txtSERPENT1
|
||||
jsr centerME
|
||||
|
||||
|
||||
php
|
||||
_SetForeColor
|
||||
|
||||
jsr fontSHASTON8
|
||||
plp
|
||||
bcs s2_end
|
||||
|
||||
ldy #105
|
||||
lda #txtSERPENT2
|
||||
jsr centerME
|
||||
bcs s2_end
|
||||
|
||||
ldy #118
|
||||
lda #txtSERPENT3
|
||||
jsr centerME
|
||||
bcs s2_end
|
||||
|
||||
ldy #131
|
||||
lda #txtSERPENT4
|
||||
@ -593,7 +620,8 @@ snake_2 PushWord #0
|
||||
*-----------
|
||||
|
||||
ldy #60*2
|
||||
jmp waitMS16
|
||||
jsr waitMS16
|
||||
s2_end rts
|
||||
|
||||
*-----------------------------------
|
||||
* DE QUI EST CE LOGICIEL ?
|
||||
@ -993,6 +1021,7 @@ imLOOP lda #0
|
||||
|
||||
ldy #60*10
|
||||
jsr waitMS16
|
||||
bcs im_end
|
||||
|
||||
*----------- 2<EFBFBD>me partie : le texte
|
||||
|
||||
@ -1004,7 +1033,7 @@ imLOOP lda #0
|
||||
jsr showTEXTE
|
||||
|
||||
_SetForeColor
|
||||
rts
|
||||
im_end rts
|
||||
|
||||
*--- Attribut d'un pixel
|
||||
*
|
||||
@ -1170,6 +1199,7 @@ showTEXTE sta dpFROM
|
||||
|
||||
jsr waitMSBIS ; keypress?
|
||||
bcc st_ok
|
||||
rts
|
||||
|
||||
st_end ldy #60*10 ; wait before exiting
|
||||
jmp waitMS16
|
||||
@ -1212,16 +1242,20 @@ intro_explications
|
||||
lda #txtEXPLICATIONS1 ; Texte 1
|
||||
ldx #9
|
||||
jsr showTEXTE
|
||||
bcs ie_end
|
||||
|
||||
* lda #txtEXPLICATIONS2 ; Texte 2 non affichŽ
|
||||
* ldx #11
|
||||
* jsr showTEXTE
|
||||
* bcs ie_end
|
||||
|
||||
lda #txtEXPLICATIONS3 ; Texte 3
|
||||
ldx #7
|
||||
jsr showTEXTE
|
||||
|
||||
ie_end php
|
||||
_SetForeColor
|
||||
plp
|
||||
rts
|
||||
|
||||
*-----------------------------------
|
||||
@ -1241,7 +1275,7 @@ intro_genius_image
|
||||
|
||||
lda ptrSCREEN
|
||||
clc
|
||||
adc #34 ; pour center
|
||||
adc #2594 ; pour center : 160x16+34
|
||||
sta dpTO
|
||||
lda ptrSCREEN+2
|
||||
sta dpTO+2
|
||||
@ -1271,7 +1305,7 @@ igLOOP ldy #0
|
||||
|
||||
*-----------
|
||||
|
||||
ldy #60*5
|
||||
ldy #60*3
|
||||
jmp waitMS16
|
||||
|
||||
*-----------
|
||||
|
||||
@ -294,7 +294,7 @@ REPLAY sep #$30
|
||||
:900 cmp #idxTIMER
|
||||
bne :905
|
||||
|
||||
jsr switchENERGIE
|
||||
jsr switchTEMPS
|
||||
jmp :100
|
||||
|
||||
:905 cmp #idxMUSIC
|
||||
@ -1010,38 +1010,61 @@ tbl4000 da $bdbd,:4010,:4020,:4030,:4040,:4050,:4060,:4070,:4080,:4090
|
||||
lda #21
|
||||
sta SALLE
|
||||
|
||||
@gotoxy #43;#21 ; Vous avez deux essais pour
|
||||
@gotoxy #43;#28 ; Vous avez deux essais pour
|
||||
@print #str4550 ; xy
|
||||
@gotoxy #43;#29 ; entrer le mot de passe
|
||||
@gotoxy #43;#37 ; entrer le mot de passe
|
||||
@print #str4552 ; xy
|
||||
|
||||
@gotoxy #43;#37 ; entrer le mot de passe
|
||||
@gotoxy #43;#45 ; entrer le mot de passe
|
||||
jsr :4556_input ; saisie 1
|
||||
bcc :4554 ; ok
|
||||
@gotoxy #43;#45 ; entrer le mot de passe
|
||||
@gotoxy #43;#53 ; entrer le mot de passe
|
||||
@print #str4553 ; FAUX!
|
||||
|
||||
@gotoxy #43;#37 ; entrer le mot de passe
|
||||
@gotoxy #43;#45 ; entrer le mot de passe
|
||||
jsr :4556_input ; saisie 2
|
||||
bcc :4554 ; ok
|
||||
@gotoxy #43;#45 ; entrer le mot de passe
|
||||
* @gotoxy #43;#53 ; entrer le mot de passe
|
||||
rep #$30 ; init 16-bits, c'est mieux
|
||||
stz textX
|
||||
lda #row16
|
||||
sta textY
|
||||
sep #$30
|
||||
@print #str4554 ; encore faux
|
||||
jmp :perdu ; ciao
|
||||
|
||||
:4554 @gotoxy #43;#56 ; 42
|
||||
@print #str4558 ; xy
|
||||
@gotoxy #43;#64 ; 56
|
||||
@print #str4559_1 ; xy
|
||||
@gotoxy #43;#72 ; 67
|
||||
@print #str4559_2 ; xy
|
||||
@gotoxy #43;#80
|
||||
@print #str4559_3 ; xy
|
||||
@gotoxy #43;#88
|
||||
@print #str4559_4 ; xy
|
||||
|
||||
:4554
|
||||
* @gotoxy #43;#62 ; 42
|
||||
rep #$30 ; init 16-bits, c'est mieux
|
||||
stz textX
|
||||
lda #row16
|
||||
sta textY
|
||||
sep #$30
|
||||
@print #str4558
|
||||
@print #str4559
|
||||
ldx #>MP$
|
||||
ldy #<MP$
|
||||
jsr printCSTRING ; COUTXY
|
||||
|
||||
@gotoxy #43;#70 ; 56
|
||||
@print #str4559_1 ; xy
|
||||
@gotoxy #43;#78 ; 67
|
||||
@print #str4559_2 ; xy
|
||||
@wait #200
|
||||
|
||||
rep #$30 ; init 16-bits, c'est mieux
|
||||
stz textX
|
||||
lda #row18
|
||||
sta textY
|
||||
sep #$30
|
||||
|
||||
* @gotoxy #43;#86
|
||||
* @print #str4559_3 ; xy
|
||||
* @gotoxy #43;#94
|
||||
|
||||
* ldx #>MP$
|
||||
* ldy #<MP$
|
||||
* jsr printCSTRING ; COUTXY
|
||||
rts
|
||||
|
||||
*--- saisie du mot de passe
|
||||
@ -1119,8 +1142,6 @@ MDP$ asc 'MANOIR'
|
||||
:4597 sec
|
||||
rts
|
||||
|
||||
str4595 asc 'Slot 1-9 (0=sortir) ? '00
|
||||
|
||||
*----------- LE MOT DE PASSE FINAL
|
||||
|
||||
:4610 @print #str4610
|
||||
@ -1139,7 +1160,8 @@ str4595 asc 'Slot 1-9 (0=sortir) ? '00
|
||||
bpl ]lp
|
||||
jmp :gagne
|
||||
|
||||
:4615 @print #str4615
|
||||
:4615 jsr setTEXTFULL
|
||||
@print #str4615
|
||||
@zap
|
||||
@wait #100
|
||||
@print #str4616
|
||||
@ -1658,6 +1680,11 @@ GETLN2 stx lenSTRING
|
||||
ldx lenSTRING
|
||||
cmp #chrRET
|
||||
beq doRET
|
||||
|
||||
ldy fgTEXT ; on n'autorise que RET
|
||||
cpy #1
|
||||
beq ]lp ; en mode texte
|
||||
|
||||
cmp #chrDEL
|
||||
beq doBACK
|
||||
cmp #chrLA
|
||||
@ -1697,6 +1724,10 @@ doBACK cpx #0
|
||||
doRET cpx #0
|
||||
bne doEXIT
|
||||
|
||||
lda fgTEXT
|
||||
eor #1
|
||||
sta fgTEXT
|
||||
|
||||
jsr switchVIDEO
|
||||
jmp ]lp
|
||||
|
||||
@ -1726,14 +1757,14 @@ smoff rep #$30
|
||||
|
||||
mx %11
|
||||
|
||||
switchENERGIE
|
||||
switchTEMPS
|
||||
lda #0
|
||||
eor #1
|
||||
sta switchENERGIE+1
|
||||
sta switchTEMPS+1
|
||||
rts
|
||||
|
||||
testENERGIE sep #$30
|
||||
lda switchENERGIE+1 ; switch is off
|
||||
testTEMPS sep #$30
|
||||
lda switchTEMPS+1 ; switch is off
|
||||
bne te_ok
|
||||
|
||||
lda fgTIME
|
||||
@ -1911,6 +1942,7 @@ SALLE ds 1
|
||||
T ds 1
|
||||
lenSTRING ds 1
|
||||
|
||||
fgTEXT ds 2 ; 0: off, 1: on
|
||||
fgTIME ds 2 ; 0: off, 1: on
|
||||
fgPERDU ds 2 ; 1: perdu
|
||||
|
||||
|
||||
Binary file not shown.
1828
leretour/oric/hardware-programming_howto.html
Normal file
1828
leretour/oric/hardware-programming_howto.html
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user