Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

intro+1

This commit is contained in:
Antoine Vignau 2024-01-10 19:00:30 +01:00
parent c19713a0d4
commit d46ae86382
15 changed files with 26401 additions and 25520 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
leretour/apple2/fr/engine.s
View File

@ -438,7 +438,8 @@ VBLCounter0 ds 2
ext sndEXPLODE
ext sndZAP
ext sndKEY
EXPLODE rep #$30
ldx #^sndEXPLODE
ldy #sndEXPLODE
@ -449,6 +450,12 @@ ZAP rep #$30
ldx #^sndZAP
ldy #sndZAP
lda #22
bra playSOUND
KEY rep #$30
ldx #^sndKEY
ldy #sndKEY
lda #5
playSOUND sty waveSTART
stx waveSTART+2

BIN
leretour/apple2/fr/iigs
View File

Binary file not shown.

3
leretour/apple2/fr/iigs.s
View File

@ -239,8 +239,6 @@ okTOOL _HideMenuBar
sta ptrSCREEN+2
okSHADOW
jsr initMIDI
*-----------------------------------
* C'EST L'HEURE DE L'INTRODUCTION
*-----------------------------------
@ -251,6 +249,7 @@ okSHADOW
* IL FAUT JOUER MAINTENANT
*-----------------------------------
jsr initMIDI
jsr doSOUNDON
sei

44598
leretour/apple2/fr/iigs_S01_iigs_Output.txt
View File

File diff suppressed because it is too large Load Diff

6898
leretour/apple2/fr/iigs_S02__Output.txt
View File

File diff suppressed because it is too large Load Diff

205
leretour/apple2/fr/introcode.s
View File

@ -15,9 +15,13 @@
ext picGENIUS
ext picMONDE
ext telexRECT
ext txtTELEX1
ext txtTELEX2
ext txtTELEX3
ext txtTELEX4
ext txtTELEX5
ext txtGENIUSTEXTE
ext txtSERPENT1
ext txtSERPENT2
@ -60,16 +64,19 @@ intro_end rts
mx %00
it1STLINE = 18
it1stROW = 10
intro_telex
PushLong #telexRECT
PushWord #$7777
PushWord #$7777
_SpecialRect
* PushWord #$1000
* PushWord #$fffe ; Shaston 16
* PushWord #0
* _InstallFont
PushWord #$1000
PushWord #$fffe ; Shaston 16
PushWord #0
_InstallFont
PushWord #0
_GetTextMode
@ -77,37 +84,63 @@ intro_telex
PushWord #modeForeCopy
_SetTextMode
PushWord #10
PushWord #166
PushWord #it1stROW
PushWord #it1STLINE
_MoveTo
PushLong #txtTELEX1
_DrawCString
PushWord #10
PushWord #182
PushWord #it1stROW
PushWord #it1STLINE+20
_MoveTo
PushLong #txtTELEX2
_DrawCString
PushWord #10
PushWord #198
PushWord #it1stROW
PushWord #it1STLINE+40
_MoveTo
PushLong #txtTELEX3
_DrawCString
PushWord #it1stROW
PushWord #it1STLINE+60
_MoveTo
PushLong #txtTELEX4
_DrawCString
PushWord #it1stROW
PushWord #it1STLINE+80
_MoveTo
PushLong #txtTELEX5
_DrawCString
_SetTextMode
ldy #60*3
*-----------
sep #$20
]lp ldal KBD
waitMS16 ldal KBD-1
bmi waitMS169
]lp ldal RDVBLBAR-1
bpl ]lp
stal KBDSTROBE
rep #$20
clc
]lp ldal RDVBLBAR-1
bmi ]lp
dey
bne waitMS16
waitMS168 clc
rts
waitMSBIS ldal KBD-1
bpl waitMS168
waitMS169 stal KBDSTROBE-1
and #$ff00
cmp #$9b00
bne waitMS168
sec
rts
telexRECT dw 150,0,200,320
*-----------------------------------
* GENIUS TEXTE
@ -116,8 +149,62 @@ telexRECT dw 150,0,200,320
mx %00
intro_genius_texte
rts
PushWord #0
_ClearScreen
PushWord #$0800
PushWord #$fffe ; Shaston 8
PushWord #0
_InstallFont
lda #txtGENIUSTEXTE
sta dpFROM
lda #^txtGENIUSTEXTE
sta dpFROM+2
stz textX
lda #charHEIGHT
sta textY
]lp PushWord textX
PushWord textY
_MoveTo
jsr KEY ; retour en 8-bit
rep #$30
jsr waitMSBIS ; keypress?
bcc igt_ok
igt_end rts
igt_ok lda [dpFROM] ; get char
and #$ff
beq igt_end
cmp #chrRET
beq igt_ret
pha
_DrawChar
lda textX ; next x
clc
adc #charWIDTH
sta textX
cmp #maxX
bcc igt_next
igt_ret stz textX ; next line
lda textY
clc
adc #16
sta textY
igt_next ldy #4 ; wait 4/60eme
jsr waitMS16
inc dpFROM
bra ]lp
*-----------------------------------
* ANIMATION DU SERPENT
*-----------------------------------
@ -125,7 +212,60 @@ intro_genius_texte
mx %00
intro_serpent
rts
PushWord #0
_ClearScreen
PushLong #curPATTERN
_GetPenPat
PushLong #redPATTERN
_SetPenPat
PushWord #$1000
PushWord #$fffe ; Shaston 16
PushWord #0
_InstallFont
PushWord #100
PushWord #80
_MoveTo
PushLong #txtSERPENT1
_DrawCString
PushLong #curPATTERN
_SetPenPat
PushWord #$0800
PushWord #$fffe ; Shaston 8
PushWord #0
_InstallFont
PushWord #70
PushWord #100
_MoveTo
PushLong #txtSERPENT2
_DrawCString
PushWord #90
PushWord #110
_MoveTo
PushLong #txtSERPENT3
_DrawCString
PushWord #80
PushWord #120
_MoveTo
PushLong #txtSERPENT4
_DrawCString
*-----------
ldy #60*30
jmp waitMS16
*-----------------------------------
* DE QUI EST CE LOGICIEL ?
@ -180,13 +320,8 @@ pgLOOP ldy #0
*-----------
sep #$20
pgK2 ldal KBD
bpl pgK2
stal KBDSTROBE
rep #$20
clc
rts
ldy #60*5
jmp waitMS16
*-----------
@ -308,13 +443,8 @@ igLOOP ldy #0
*-----------
sep #$20
igK2 ldal KBD
bpl igK2
stal KBDSTROBE
rep #$20
clc
rts
ldy #60*5
jmp waitMS16
*-----------
@ -508,13 +638,8 @@ imLOOP lda #0
*-----------
sep #$20
imK2 ldal KBD
bpl imK2
stal KBDSTROBE
rep #$20
clc
rts
ldy #60*5
jmp waitMS16
*--- Attribut d'un pixel
*

22
leretour/apple2/fr/introdata.s
View File

@ -11,17 +11,25 @@
* LES TEXTES DE L'INTRO
*-----------------------------------
txtTELEX1 ENT
asc 'Une heure du matin (heure francaise)'00
txtTELEX2 ENT
asc 'sur tous les telex du monde apparait'00
txtTELEX3 ENT
asc 'ce message angoissant...'00
telexRECT ENT
dw 0,0,102,320
txtTELEX1 ENT
asc 'Une heure du matin'00
txtTELEX2 ENT
asc '(heure francaise)'00
txtTELEX3 ENT
asc 'sur tous les telex'00
txtTELEX4 ENT
asc 'du monde apparait ce'00
txtTELEX5 ENT
asc 'message angoissant...'00
*-----------------------------------
txtGENIUSTEXTE ENT
asc 'Moi, GENIUS, je defie le monde. J'27'ai'0d
* asc '1234567890123456789012345678901234567890'
asc ' Moi, GENIUS, je defie le monde. J'27'ai'0d
asc 'invente une nouvelle arme capable de'0d
asc 'raser la terre, ce que je ferai dans'0d
asc 'deux semaines... Mais, comme je ne suis'0d

4
leretour/apple2/fr/leretour.s
View File

@ -1829,8 +1829,8 @@ waitMS lda #0 ; skip if not zero
doW1 ldy LINNUM
doW2 ldal RDVBLBAR
bpl doW2
*doW3 ldal RDVBLBAR
* bmi doW3
doW3 ldal RDVBLBAR
bmi doW3
dey
bne doW2
dex

89
leretour/apple2/fr/sons.s
View File

@ -10,7 +10,9 @@
*
* EXPLODE : 139 pages
* ZAP : 22 pages
* KEY : 5 pages
*
*-----------------------------------
* EXPLODE
*-----------------------------------
@ -2587,3 +2589,90 @@ sndZAP ENT
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
*-----------------------------------
* KEY
*-----------------------------------
sndKEY ENT
HEX 8080808080807F7F80807F7F80808080
HEX 8080807F7F7F7F7F7F7F7F7F7F7F8080
HEX 8080807F7F7F7F807F7F7F80807F7F7F
HEX 80807F7F7F7F8080808080808080807F
HEX 808080808080807F7F7F808080808080
HEX 80808080808080808080808080808080
HEX 808080807F7F80807F7F7F7F7F7F8080
HEX 807F7F7F7F7F7F7F7F80807F7F7F7F7F
HEX 7F7F7F7F7F7F7F7F7F7F7F807F7F8080
HEX 807F807F7F7F80808080808080807F7F
HEX 7F7F7F7F7F7F7F7F8080808080808080
HEX 80807F808080808080807F7F80808080
HEX 80807F7F7F8080807F7F7F807F7F7F80
HEX 8080807F7F7F7F7F7F7F7F7F7F7F7F7F
HEX 7F7F8080807F7F7F80807F7F80807F7F
HEX 7F80808080807F80807F7F7F807F7F7F
HEX 7F808080807F7F807F7F7F8080808080
HEX 7F7F7F7F7F8080808080808080808080
HEX 7F7F7F7F7F80807F7F7F7F7F7F80807F
HEX 7F7F8080807F7F8080807F7F80808080
HEX 808080808080807F7F808080807F7F7F
HEX 7F7F7F7F8080808080807F7F7F7F7F80
HEX 80807F808080807F8080807F7F7F7F7F
HEX 80807F7F80808080807F7F7F7F808080
HEX 8080807F7F80808080807F7F7F7F7F80
HEX 8080807F807F7F7F80807F807F7F8080
HEX 807F7F80807F7F7F7F7F7F7F807F7F7F
HEX 7F8080808080808080807F8080808080
HEX 7F7F7F807F7F7F8080808080807F7F7F
HEX 8080807F8080807F807F80808080807F
HEX 8080847F7F807F807F80807EC7AFB5C1
HEX A6CAA3C9AABDBAABC8A3CAA5C3B2B2C4
HEX A5CBA3C8ACB9BDA9C9A3CAA7C1B6AFC6
HEX A4CBA4C6AEB6C1A7CAA3C9A9BDB9ACC7
HEX A3CBA5C4B2B3C3A5CAA3C8ABBABDAAC9
HEX A3CAA6C2B5AFC5A4CBA3C6AEB7BFA7CA
HEX A3C9A8BEB7ADC7A3CBA5C5B1B3C2A6CA
HEX A3C8ABBCBCAAC8A3CAA6C2B3B1C5A5CB
HEX A3C7ADB7BEA8CAA3CAA7BFB7AEC6A3CB
HEX A4C5AFB5C2A6CAA3C9AABCBAABC8A3CA
HEX A5C3B3B2C4A5CBA3C7ACB9BEA9C9A3CA
HEX A7C1B6AEC6A4CBA4C6AFB6C1A6CAA3C9
HEX A9BDB9ACC8A3CBA5C4B2B2C3A5CBA3C8
HEX ACBABDAAC9A3CAA6C1B5AFC6A4CBA4C6
HEX AEB6BFA7CAA3C9A8BEB9ADC7A3CBA5C4
HEX B1B3C3A6CAA3C8ABBCBCAAC8A3CAA6C2
HEX B5B0C5A4CBA3C6ADB7BFA8CAA3CAA8BF
HEX B7ADC6A4CBA4C5B1B5BA99A58D96898A
HEX 87838481818080808080808080808080
HEX 807F807F80808080808080807F807F80
HEX 80808080807F807F807F807F807F8080
HEX 80807F807F7F807F807F807F807F7F7F
HEX 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
HEX 8080808080807F807F7F7F7F7F7F8080
HEX 80808080808080808080808080808080
HEX 8080807F8080807F807F8080807F8080
HEX 80807F80808080807F80807F80808080
HEX 7F807F807F808080808080808080807F
HEX 807F80807F807F7F7F7F807F807F807F
HEX 7F7F7F807F807F80807F807F807F807F
HEX 807F80807F807F807F808080807F807F
HEX 807F808080807F807F808080807F807F
HEX 807F8080807F807F7F807F7F807F807F
HEX 807F7F7F7F8080808080808080808080
HEX 8080808080808080808080807F7F7F7F
HEX 808080807F7F7F807F7F7F7F807F807F
HEX 7F7F7F807F807F7F7F7F7F7F807F7F80
HEX 7F7F7F807F807F807F807F8080808080
HEX 808080807F807F807F807F7F80808080
HEX 807F8080807F807F8080807F8080807F
HEX 807F7F7F7F807F807F807F807F807F80
HEX 80808080807F807F7F807F7F7F7F7F7F
HEX 7F8080807F7F7F7F807F7F7F7F7F7F7F
HEX 7F7F7F7F807F7F8080807F8080808000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000

BIN
leretour/leretour.2mg
View File

Binary file not shown.

0
leretour/sons/_FileInformation.txt Normal file
View File

BIN
leretour/sons/intro.aup3 Normal file
View File

Binary file not shown.

BIN
leretour/sons/key.aup3 Normal file
View File

Binary file not shown.

93
leretour/sons/key.s Normal file
View File

@ -0,0 +1,93 @@
*---------------------------------------------------------*
* Disassembled with The Flaming Bird Disassembler *
* (c) Phoenix corp. 1992,93 - All rights reserved *
*---------------------------------------------------------*
TYP BIN
ORG $000000
keySND ENT
HEX 8080808080807F7F80807F7F80808080
HEX 8080807F7F7F7F7F7F7F7F7F7F7F8080
HEX 8080807F7F7F7F807F7F7F80807F7F7F
HEX 80807F7F7F7F8080808080808080807F
HEX 808080808080807F7F7F808080808080
HEX 80808080808080808080808080808080
HEX 808080807F7F80807F7F7F7F7F7F8080
HEX 807F7F7F7F7F7F7F7F80807F7F7F7F7F
HEX 7F7F7F7F7F7F7F7F7F7F7F807F7F8080
HEX 807F807F7F7F80808080808080807F7F
HEX 7F7F7F7F7F7F7F7F8080808080808080
HEX 80807F808080808080807F7F80808080
HEX 80807F7F7F8080807F7F7F807F7F7F80
HEX 8080807F7F7F7F7F7F7F7F7F7F7F7F7F
HEX 7F7F8080807F7F7F80807F7F80807F7F
HEX 7F80808080807F80807F7F7F807F7F7F
HEX 7F808080807F7F807F7F7F8080808080
HEX 7F7F7F7F7F8080808080808080808080
HEX 7F7F7F7F7F80807F7F7F7F7F7F80807F
HEX 7F7F8080807F7F8080807F7F80808080
HEX 808080808080807F7F808080807F7F7F
HEX 7F7F7F7F8080808080807F7F7F7F7F80
HEX 80807F808080807F8080807F7F7F7F7F
HEX 80807F7F80808080807F7F7F7F808080
HEX 8080807F7F80808080807F7F7F7F7F80
HEX 8080807F807F7F7F80807F807F7F8080
HEX 807F7F80807F7F7F7F7F7F7F807F7F7F
HEX 7F8080808080808080807F8080808080
HEX 7F7F7F807F7F7F8080808080807F7F7F
HEX 8080807F8080807F807F80808080807F
HEX 8080847F7F807F807F80807EC7AFB5C1
HEX A6CAA3C9AABDBAABC8A3CAA5C3B2B2C4
HEX A5CBA3C8ACB9BDA9C9A3CAA7C1B6AFC6
HEX A4CBA4C6AEB6C1A7CAA3C9A9BDB9ACC7
HEX A3CBA5C4B2B3C3A5CAA3C8ABBABDAAC9
HEX A3CAA6C2B5AFC5A4CBA3C6AEB7BFA7CA
HEX A3C9A8BEB7ADC7A3CBA5C5B1B3C2A6CA
HEX A3C8ABBCBCAAC8A3CAA6C2B3B1C5A5CB
HEX A3C7ADB7BEA8CAA3CAA7BFB7AEC6A3CB
HEX A4C5AFB5C2A6CAA3C9AABCBAABC8A3CA
HEX A5C3B3B2C4A5CBA3C7ACB9BEA9C9A3CA
HEX A7C1B6AEC6A4CBA4C6AFB6C1A6CAA3C9
HEX A9BDB9ACC8A3CBA5C4B2B2C3A5CBA3C8
HEX ACBABDAAC9A3CAA6C1B5AFC6A4CBA4C6
HEX AEB6BFA7CAA3C9A8BEB9ADC7A3CBA5C4
HEX B1B3C3A6CAA3C8ABBCBCAAC8A3CAA6C2
HEX B5B0C5A4CBA3C6ADB7BFA8CAA3CAA8BF
HEX B7ADC6A4CBA4C5B1B5BA99A58D96898A
HEX 87838481818080808080808080808080
HEX 807F807F80808080808080807F807F80
HEX 80808080807F807F807F807F807F8080
HEX 80807F807F7F807F807F807F807F7F7F
HEX 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
HEX 8080808080807F807F7F7F7F7F7F8080
HEX 80808080808080808080808080808080
HEX 8080807F8080807F807F8080807F8080
HEX 80807F80808080807F80807F80808080
HEX 7F807F807F808080808080808080807F
HEX 807F80807F807F7F7F7F807F807F807F
HEX 7F7F7F807F807F80807F807F807F807F
HEX 807F80807F807F807F808080807F807F
HEX 807F808080807F807F808080807F807F
HEX 807F8080807F807F7F807F7F807F807F
HEX 807F7F7F7F8080808080808080808080
HEX 8080808080808080808080807F7F7F7F
HEX 808080807F7F7F807F7F7F7F807F807F
HEX 7F7F7F807F807F7F7F7F7F7F807F7F80
HEX 7F7F7F807F807F807F807F8080808080
HEX 808080807F807F807F807F7F80808080
HEX 807F8080807F807F8080807F8080807F
HEX 807F7F7F7F807F807F807F807F807F80
HEX 80808080807F807F7F807F7F7F7F7F7F
HEX 7F8080807F7F7F7F807F7F7F7F7F7F7F
HEX 7F7F7F7F807F7F8080807F8080808000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000

BIN
leretour/sons/key.wav Normal file
View File

Binary file not shown.