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

v+1

This commit is contained in:
Antoine Vignau 2024-03-13 04:41:45 +01:00
parent a7b5376ba6
commit 98c7fa0ed5
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.DS_Store vendored
View File

Binary file not shown.

BIN
loderunner/loderunnergs_work.2mg
View File

Binary file not shown.

16
loderunner/source/loderunner.s
View File

@ -765,7 +765,8 @@ initSOUND lda fgSND
beq initSOUND1 beq initSOUND1
rts rts
initSOUND1 sei initSOUND1 php
sei
PushLong #0 PushLong #0
PushWord #11 PushWord #11
_GetVector _GetVector
@ -774,7 +775,7 @@ initSOUND1 sei
PushWord #11 PushWord #11
PushLong #sndINTERRUPT PushLong #sndINTERRUPT
_SetVector _SetVector
cli plp
rts rts
*--------- Remove the vector *--------- Remove the vector
@ -783,11 +784,12 @@ stopSOUND lda fgSND
beq stopSOUND1 beq stopSOUND1
rts rts
stopSOUND1 sei stopSOUND1 php
sei
PushWord #11 PushWord #11
PushLong sndVECTOR PushLong sndVECTOR
_SetVector _SetVector
cli plp
rts rts
*--------- *---------
@ -829,6 +831,7 @@ playINTRO lda fgSND
rts rts
playINTRO1 rep #$10 playINTRO1 rep #$10
php
sei sei
ldal IRQ_VOLUME ldal IRQ_VOLUME
@ -918,7 +921,7 @@ playINTRO2 ldal $bdbd,x
stal SOUNDDATA stal SOUNDDATA
stz noINTERRUPT ; play please stz noINTERRUPT ; play please
cli plp
]lp lda noINTERRUPT ; wait for the end of the sound ]lp lda noINTERRUPT ; wait for the end of the sound
beq ]lp beq ]lp
@ -934,6 +937,7 @@ moveSOUND lda fgSND
rts rts
moveSOUND1 rep #$10 moveSOUND1 rep #$10
php
sei sei
ldal IRQ_VOLUME ldal IRQ_VOLUME
@ -1018,7 +1022,7 @@ moveSOUND2 ldal $bdbd,x ; **patched**
bcs moveSOUND3 bcs moveSOUND3
brl ]lp brl ]lp
moveSOUND3 cli moveSOUND3 plp
sep #$10 sep #$10
rts rts