Apple-2gs-SW/iigs-game-engine
1
0
Fork 0
mirror of https://github.com/lscharen/iigs-game-engine.git synced 2025-02-19 13:30:30 +00:00
Code Issues Projects Releases Wiki Activity

Initialize more direct page variables and provide a flag to turn off sound

Browse Source
This commit is contained in:
Lucas Scharenbroich 2021-08-06 14:41:23 -05:00
parent c6f6001e8f
commit d01791b440
1 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/App.Main.s
View File

@ -43,7 +43,8 @@ SHR_PALETTES equ $E19E00
tiledata ext tiledata ext
; Feature flags ; Feature flags
NO_INTERRUPTS equ 0 ; turn off for crossrunner debugging NO_INTERRUPTS equ 1 ; turn off for crossrunner debugging
NO_MUSIC equ 1 ; turn music + tool loading off
; Typical init ; Typical init
@ -63,6 +64,11 @@ NO_INTERRUPTS equ 0 ; turn off for crossrunner
_MTStartUp _MTStartUp
; Use Tool222 (NinjaTrackerPlus) for music playback
lda #NO_MUSIC
bne :no_music
pea $00DE pea $00DE
pea $0000 pea $0000
_LoadOneTool _LoadOneTool
@ -78,8 +84,7 @@ NO_INTERRUPTS equ 0 ; turn off for crossrunner
pea $0001 ; loop pea $0001 ; loop
_NTPPlayMusic _NTPPlayMusic
:no_music
; Use Tool222 (NinjaTrackerPlus) for music playback
; Install interrupt handlers. We use the VBL interrupt to keep animations ; Install interrupt handlers. We use the VBL interrupt to keep animations
; moving at a consistent rate, regarless of the rendered frame rate. The ; moving at a consistent rate, regarless of the rendered frame rate. The
@ -242,7 +247,10 @@ Exit
_SetVector _SetVector
:no_interrupts :no_interrupts
lda #NO_MUSIC
bne :no_music
_NTPShutDown _NTPShutDown
:no_music
PushWord UserId ; Deallocate all of our memory PushWord UserId ; Deallocate all of our memory
_DisposeAll _DisposeAll
@ -907,6 +915,21 @@ BlitInit
stz BG1StartYMod208 stz BG1StartYMod208
stz BG1OffsetIndex stz BG1OffsetIndex
stz BG0TileOriginX
stz BG0TileOriginY
stz OldBG0TileOriginX
stz OldBG0TileOriginY
stz BG1TileOriginX
stz BG1TileOriginY
stz OldBG1TileOriginX
stz OldBG1TileOriginY
stz TileMapWidth
stz TileMapHeight
stz TileMapPtr
stz TileMapPtr+2
]step equ 0 ]step equ 0
lup 13 lup 13
ldx #BlitBuff ldx #BlitBuff
@ -1201,7 +1224,3 @@ qtRec adrl $0000
put blitter/BG1.s put blitter/BG1.s
PUT TileMap.s PUT TileMap.s
PUT Level.s PUT Level.s