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

yeepee

This commit is contained in:
Antoine Vignau 2024-03-02 22:20:57 +01:00
parent a599cbef53
commit 50a55c5776
10 changed files with 19741 additions and 30315 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
loderunner/loderunnergs.2mg
View File

Binary file not shown.

42
loderunner/source/LR.CODE.S
View File

@ -299,7 +299,11 @@ L61F6
beq L6212 beq L6212
cmp #chrCTRLO ; ctrl-O - open data file cmp #chrCTRLO ; ctrl-O - open data file
beq L6213 beq L6213
cmp #chrCTRLV ; ctrl-V - vintage mode
beq L2VINTAGE
cmp #chrCTRLN ; ctrl-N - native mode
beq L2NATIVE
L6201 LDX #$00 L6201 LDX #$00
STX intLEVEL STX intLEVEL
INX INX
@ -313,7 +317,11 @@ L6211 JMP enterEDITOR ; Jump to the Editor
L6212 jmp meQUIT ; bye for now L6212 jmp meQUIT ; bye for now
L6213 jsr doLOAD ; load a game file L6213 jsr doLOAD ; load a game file
bra L6201 bra L6201
L2VINTAGE jsr setVINTAGE
bra L6201
L2NATIVE jsr setNATIVE
bra L6201
*---------- *----------
L6214 HEX 000306090C0F121518 ; 0..3..6..9..12..15..18..21..24 (index in 6CA7) L6214 HEX 000306090C0F121518 ; 0..3..6..9..12..15..18..21..24 (index in 6CA7)
@ -910,13 +918,13 @@ L65A4 CMP #chrK ; move down
BCS L65C2 BCS L65C2
RTS RTS
L65AE CMP #chrU ; dig left L65AE CMP theDIGLEFT ; dig left
BNE L65B8 BNE L65B8
JSR checkDIGLEFT JSR checkDIGLEFT
BCS L65C2 BCS L65C2
RTS RTS
L65B8 CMP #chrO ; dig right L65B8 CMP theDIGRIGHT ; dig right
BNE L65C2 BNE L65C2
JSR checkDIGRIGHT JSR checkDIGRIGHT
BCS L65C2 BCS L65C2
@ -1744,6 +1752,16 @@ doSETJOYPAD
STA fgINPUT STA fgINPUT
nojoypad JMP getPLAYERINPUT nojoypad JMP getPLAYERINPUT
*-------------------------------
* 82 - CTRL-B - FLIPS BUTTONS
*-------------------------------
doFLIPB LDA theDIGLEFT
LDX theDIGRIGHT
STA theDIGRIGHT
STX theDIGLEFT
JMP getPLAYERINPUT
*------------------------------- *-------------------------------
* 98 - CTRL-X - FLIPS X-AXIS * 98 - CTRL-X - FLIPS X-AXIS
*------------------------------- *-------------------------------
@ -1790,10 +1808,10 @@ L6ACD JMP getPLAYERINPUT
getJOYPADKEY getJOYPADKEY
jsr read4PLAY ; button 0: dig left jsr read4PLAY ; button 0: dig left
bpl getJOYK1 ; button 1: dig right bpl getJOYK1 ; button 1: dig right
ldx #chrU ldx theDIGLEFT
bne getJOYK2 bne getJOYK2
getJOYK1 bvc getJOYK3 getJOYK1 bvc getJOYK3
ldx #chrO ldx theDIGRIGHT
getJOYK2 stx theKEY1 getJOYK2 stx theKEY1
stx theKEY2 stx theKEY2
rts rts
@ -1807,11 +1825,11 @@ getJOYK3 jsr readJOYPAD ; set X/Y
getJOYSTICKKEY getJOYSTICKKEY
LDAL BUTN1 LDAL BUTN1
BPL L6AD9 BPL L6AD9
LDA #chrU ; dig left LDA theDIGLEFT ; dig left
BNE L6AE0 BNE L6AE0
L6AD9 LDAL BUTN0 L6AD9 LDAL BUTN0
BPL L6AE5 BPL L6AE5
LDA #chrO ; dig right LDA theDIGRIGHT ; dig right
L6AE0 STA theKEY1 L6AE0 STA theKEY1
STA theKEY2 STA theKEY2
RTS RTS
@ -1871,10 +1889,10 @@ L6B56 STA theKEY1
RTS RTS
*---------------------------------- *----------------------------------
* KEYS AND ASSOCIATED JUMPS + - * KEYS AND ASSOCIATED JUMPS
*---------------------------------- *----------------------------------
tblKEY HEX 9E,80,9B,92,81,93,8A,8B,90,88,95,98,99,8D,00 tblKEY HEX 9E,80,9B,92,81,93,8A,8B,90,88,95,98,99,82,8D,00
tblKEYADR DA doNEXTLEVEL-1 ; 9E - CTRL-^ tblKEYADR DA doNEXTLEVEL-1 ; 9E - CTRL-^
DA doEXTRAMAN-1 ; 80 - CTRL-@ DA doEXTRAMAN-1 ; 80 - CTRL-@
@ -1889,6 +1907,7 @@ tblKEYADR DA doNEXTLEVEL-1 ; 9E - CTRL-^
DA doSLOWDOWN-1 ; 95 - SLOW DOWN DA doSLOWDOWN-1 ; 95 - SLOW DOWN
DA doFLIPX-1 ; 98 - CTRL-X DA doFLIPX-1 ; 98 - CTRL-X
DA doFLIPY-1 ; 99 - CTRL-Y DA doFLIPY-1 ; 99 - CTRL-Y
da doFLIPB-1 ; 82 - CTRL-B
DA displayHIGHSCORES-1 ; 8D - RETURN DA displayHIGHSCORES-1 ; 8D - RETURN
joyXMIN DB minJOY ; x-low joyXMIN DB minJOY ; x-low
@ -1896,6 +1915,9 @@ joyXMAX DB ctrJOY ; x-high
joyYMIN DB minJOY ; y-low joyYMIN DB minJOY ; y-low
joyYMAX DB ctrJOY ; y-high joyYMAX DB ctrJOY ; y-high
theDIGLEFT dfb chrU
theDIGRIGHT dfb chrO
*----------------------------------- *-----------------------------------
* CALC SPRITE X/Y * CALC SPRITE X/Y
*----------------------------------- *-----------------------------------

2
loderunner/source/LR.EQUATES.S
View File

@ -198,9 +198,11 @@ chrLA = $88 ; left arrow
chrDA = $8a ; down arrow chrDA = $8a ; down arrow
chrUA = $8b ; up arrow chrUA = $8b ; up arrow
chrRET = $8d ; chrRET = $8d ;
chrCTRLN = $8e ; CTRL-N: native mode
chrCTRLO = $8f ; CTRL-O: open chrCTRLO = $8f ; CTRL-O: open
chrCTRLQ = $91 ; CTRL-Q: quit chrCTRLQ = $91 ; CTRL-Q: quit
chrRA = $95 ; right arrow chrRA = $95 ; right arrow
chrCTRLV = $96 ; CTRL-V: vintage
chrESC = $9b ; chrESC = $9b ;
chrSPC = " " ; chrSPC = " " ;
chrZERO = "0" ; 0 chrZERO = "0" ; 0

BIN
loderunner/source/LodeRunner
View File

Binary file not shown.

28024
loderunner/source/LodeRunner_S01__Output.txt
View File

File diff suppressed because it is too large Load Diff

2808
loderunner/source/LodeRunner_S04__Output.txt
View File

File diff suppressed because it is too large Load Diff

18896
loderunner/source/LodeRunner_S05__Output.txt
View File

File diff suppressed because it is too large Load Diff

282
loderunner/source/loderunner.s
View File

@ -85,9 +85,6 @@ FALSE = 0
ora #$0100 ora #$0100
sta myID sta myID
tdc
sta myDP
*--- Version du systeme *--- Version du systeme
jsl GSOS jsl GSOS
@ -187,8 +184,9 @@ noSOUND _HideMenuBar
jsr find4PLAY ; do we have a 4play? jsr find4PLAY ; do we have a 4play?
jsr initSOUND ; init sound tool set & friends jsr initSOUND ; init sound tool set & friends
jsr setNATIVE ; set native mode jsr setNATIVE ; exit 8-bit
rep #$30
*--- *---
jsr loadLEVELS ; exit 8-bit jsr loadLEVELS ; exit 8-bit
@ -398,22 +396,20 @@ meQUIT1 PushWord myID
dw $2029 dw $2029
adrl proQUIT adrl proQUIT
brk $bd
*---------------------------------------- *----------------------------------------
* SET VINTAGE/NATIVE MODE * SET VINTAGE/NATIVE MODE
*---------------------------------------- *----------------------------------------
mx %00 mx %00
setVINTAGE setVINTAGE rep #$30
jsr setSTDPALETTE ; set the LR palette jsr setSTDPALETTE ; set the LR palette
lda #1 ; no speaker sound lda #1 ; no speaker sound
ldx #tblSPRITES ldx #tblSPRITES
ldy #$4444 ldy #$4444
bra setMODE bra setMODE
setNATIVE setNATIVE rep #$30
jsr setLRPALETTE ; set the LR palette jsr setLRPALETTE ; set the LR palette
lda #0 ; no speaker sound lda #0 ; no speaker sound
ldx #tblSPRITES2 ldx #tblSPRITES2
@ -423,19 +419,20 @@ setMODE stx patchSPR1+1 ; the sprites table
stx patchSPR2+1 stx patchSPR2+1
stx patchSPR3+1 stx patchSPR3+1
sty fondFRAME ; the border color sty fondFRAME ; the border color
sep #$20 sep #$30
sta fgSOUND ; the sound mode sta fgSOUND ; the sound mode
rep #$20
rts rts
*--- *---
fondFRAME dw $4444 ; HGR: $4444, SHR: $BBBB fondFRAME dw $4444 ; HGR: $4444, SHR: $BBBB
*---------------------------------------- *----------------------------------------
* SET STANDARD 320 PALETTE * SET STANDARD 320 PALETTE
*---------------------------------------- *----------------------------------------
mx %00
setSTDPALETTE setSTDPALETTE
PushWord #0 PushWord #0
PushLong #palette320 PushLong #palette320
@ -446,6 +443,8 @@ setSTDPALETTE
* SET LODE RUNNER 320 PALETTE * SET LODE RUNNER 320 PALETTE
*---------------------------------------- *----------------------------------------
mx %00
setLRPALETTE setLRPALETTE
PushWord #0 PushWord #0
PushLong #paletteLR PushLong #paletteLR
@ -456,6 +455,8 @@ setLRPALETTE
* CHECK KEY PRESSED * CHECK KEY PRESSED
*---------------------------------------- *----------------------------------------
mx %00
checkKEY phx checkKEY phx
phy phy
rep #$30 rep #$30
@ -572,43 +573,163 @@ sizePtr dw 32000
* SOUND EFFECTS * SOUND EFFECTS
*---------------------------------------- *----------------------------------------
mx %00
initSOUND sei
PushLong #0
PushWord #11
_GetVector
PullLong sndVECTOR
PushWord #11
PushLong #sndINTERRUPT
_SetVector
cli
rts
*--------- Remove the vector
stopSOUND sei
PushWord #11
PushLong sndVECTOR
_SetVector
cli
rts
*---------
sndVECTOR ds 4
*---------- Sound interrupt
mx %11 mx %11
sndINTERRUPT
ldal fgSND
oral noINTERRUPT
beq sndINTERRUPT1
clc
rtl
sndINTERRUPT1
]lp ldal SOUNDCTL
bmi ]lp
and #%1001_1111
stal SOUNDCTL
lda #1 ; oscillo 2 w/interrupt
stal noINTERRUPT
clc
rtl
*--- Data
noINTERRUPT dw 1
*---------- Load & Prepare the sound intro effect *---------- Load & Prepare the sound intro effect
playINTRO rts mx %11
lda fgSND
playINTRO lda fgSND
beq playINTRO1 beq playINTRO1
rts rts
playINTRO1 rep #$30 playINTRO1 rep #$10
sei
ldal IRQ_VOLUME
ora #%0110_0000
stal SOUNDCTL
PushWord #%01111111_11111111 lda #0
_FFStopSound stal SOUNDADRL
stal SOUNDADRH
PushWord #$0e01 ldx #0
PushLong #waveSTART ]lp ldal sndINTRO,x
_FFStartSound stal SOUNDDATA
inx
bpl ]lp
]lp PushWord #0 *--- Config oscillos now
PushWord #$0e
_FFSoundDoneStatus
pla
bne ]lp
ldal IRQ_VOLUME
and #%0000_1111
stal SOUNDCTL
ldy #0 ; frequency low
stal SOUNDADRL
lda #$d6
stal SOUNDDATA
tya
ora #$01
stal SOUNDADRL
lda #$d6
stal SOUNDDATA
tya ; frequency high
ora #$20
stal SOUNDADRL
lda #$00
stal SOUNDDATA
tya
ora #$21
stal SOUNDADRL
lda #00
stal SOUNDDATA
tya ; volume
ora #$40
stal SOUNDADRL
lda #255
stal SOUNDDATA
tya
ora #$41
stal SOUNDADRL
lda #255
stal SOUNDDATA
tya ; address
ora #$80
stal SOUNDADRL
lda #0
stal SOUNDDATA
tya
ora #$81
stal SOUNDADRL
lda #0
stal SOUNDDATA
tya ; size
ora #$c0
stal SOUNDADRL
lda #%00111111
stal SOUNDDATA
tya
ora #$c1
stal SOUNDADRL
lda #%00111111
stal SOUNDDATA
tya ; start the first two oscillos
ora #$a0
stal SOUNDADRL
lda #%0000_1010 ; interrupt here
stal SOUNDDATA
tya
ora #$a1
stal SOUNDADRL
lda #%0001_1010
stal SOUNDDATA
stz noINTERRUPT ; play please
cli
]lp lda noINTERRUPT ; wait for the end of the sound
beq ]lp
sep #$30 sep #$30
rts rts
*---
waveSTART adrl sndINTRO ; waveStart
dw 217 ; waveSize (in pages)
dw 209 ; freqOffset
dw $f000 ; docBuffer
dw $0004 ; bufferSize (4096 octets)
ds 4 ; nextWavePtr
dw 255 ; volSetting
*---------- Load & Prepare the sound effects *---------- Load & Prepare the sound effects
mx %11 mx %11
@ -706,59 +827,17 @@ moveSOUND2 cli
sep #$10 sep #$10
rts rts
*---------- Start the sound tool set
mx %00
initSOUND lda fgSND
beq initSOUND1
rts
initSOUND1 PushWord #8
PushWord #0
_LoadOneTool
bcc initSOUND2
initSOUND9 inc fgSND
rts
initSOUND2 tdc
clc
adc #256
pha
_SoundStartUp
bcs initSOUND9
rts
*---------- Stop the Sound Tool Set
mx %00
stopSOUND lda fgSND
beq stopSOUND1
rts
stopSOUND1 PushWord #%01111111_11111111
_FFStopSound
_SoundShutDown
PushWord #8
_UnloadOneTool
stz fgSND
rts
*---------- *----------
mx %11 mx %11
playSOUND sta saveA playSOUND sta saveA
stx saveX
sty saveY
lda fgSOUND ; 8-bit sound? lda fgSOUND ; 8-bit sound?
ora fgSND ora fgSND
bne playSOUND9 bne playSOUND9
sty saveY
ldal IRQ_VOLUME ldal IRQ_VOLUME
and #%0000_1111 and #%0000_1111
@ -767,6 +846,13 @@ playSOUND sta saveA
lda saveA ; reprend l'instrument lda saveA ; reprend l'instrument
cmp #2 cmp #2
bcc playSOUND9 bcc playSOUND9
cmp #7 ; tombe ?
bne playSOUND1
cmp oldA ; déjà tombe ?
beq playSOUND9 ; oui, saute
playSOUND1 sta oldA
asl asl
tay ; frequency low tay ; frequency low
ora #$a0 ora #$a0
@ -779,15 +865,27 @@ playSOUND sta saveA
lda #%0001_0010 lda #%0001_0010
stal SOUNDDATA stal SOUNDDATA
ldy saveY playSOUND9 ldy saveY
ldx saveX
playSOUND9 lda saveA lda saveA
rts rts
mx %00 mx %00
*--- Data *--- Data
* isndINTRO = 1 ; ok
* isndBARRE = 2 ; ok
* isndCREUSE = 3 ; ok
* isndESCALIER = 4 ; ok
* isndMARCHE = 5 ; ok
* isndNOMORECHEST = 6 ; ok
* isndTOMBE = 7 ; ok - à refaire
* isndTRESOR = 8 ; ok
* isndTROU = 9 ; ok
* isndYOUWIN = 10 ; ok
* 0 1 2 3 4 5 6 7 8 9 10
sndADDRESS hex 00,00,68,50,44,48,80,c0,b0,70,00 sndADDRESS hex 00,00,68,50,44,48,80,c0,b0,70,00
sndSIZE dfb %00000000 sndSIZE dfb %00000000
@ -797,7 +895,7 @@ sndSIZE dfb %00000000
dfb %00010010 ; 4 dfb %00010010 ; 4
dfb %00011011 ; 5 dfb %00011011 ; 5
dfb %00110110 ; 6 dfb %00110110 ; 6
dfb %00110110 ; 7 dfb %00011011 ; 7 was 110110 now 2K
dfb %00100100 ; 8 dfb %00100100 ; 8
dfb %00100100 ; 9 dfb %00100100 ; 9
dfb %00111111 ; 10 dfb %00111111 ; 10
@ -816,6 +914,7 @@ sndVOLUME dfb 0
*--- *---
oldA dw 2
saveA ds 2 saveA ds 2
saveX ds 2 saveX ds 2
saveY ds 2 saveY ds 2
@ -841,7 +940,6 @@ errSTR3 str 'Continue'
mainID ds 2 ; app ID mainID ds 2 ; app ID
myID ds 2 ; user ID myID ds 2 ; user ID
myDP ds 2
SStopREC ds 4 SStopREC ds 4
@ -952,19 +1050,5 @@ logo
logo_fin logo_fin
put LR.Sprites.s ; 8-bits sprites put LR.Sprites.s ; 8-bits sprites
put LR.Sprites2.s ; 16-col sprites put LR.Sprites2.s ; 16-col sprites
*---
asc 0d *---
asc "----------------"0d
asc " "0d
asc " LODE RUNNER "0d
asc " "0d
asc " Antoine Vignau "0d
asc "Olivier Zardini"0d
asc " "0d
asc " Paques 2024 "0d
asc " "0d
asc "----------------"0d

2
loderunner/source/snd/intro.snd
View File

File diff suppressed because one or more lines are too long

BIN
loderunner/source/snd/tombe.snd
View File

Binary file not shown.