Apple-2gs-SW/iigs-game-engine
1
0
Fork 0
mirror of https://github.com/lscharen/iigs-game-engine.git synced 2024-11-29 11:50:25 +00:00
Code Issues Projects Releases Wiki Activity

Fix bank setting on toolset entry

Browse Source
This commit is contained in:
Lucas Scharenbroich 2022-04-25 11:32:25 -05:00
parent d107365d79
commit 5745482ef6
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/Tool.s
View File

@ -46,8 +46,8 @@ _CallTable
adrl _TSReserved-1 adrl _TSReserved-1
adrl _TSReserved-1 adrl _TSReserved-1
adrl _TSReadControl-1 adrl _TSReadControl-1 ; Function 9
adrl _TSSetScreenMode-1 adrl _TSSetScreenMode-1 ; Function 10
_CTEnd _CTEnd
; Do nothing when the tool set is installed ; Do nothing when the tool set is installed
@ -82,7 +82,11 @@ zpToUse = userId+4
lda capFlags+2,s ; Get the engine capability bits lda capFlags+2,s ; Get the engine capability bits
sta EngineMode sta EngineMode
phb
phk
plb
jsr _CoreStartUp ; Initialize the library jsr _CoreStartUp ; Initialize the library
plb
; SetWAP(userOrSystem, tsNum, waptPtr) ; SetWAP(userOrSystem, tsNum, waptPtr)
@ -106,7 +110,11 @@ _TSShutDown
phd phd
tcd ; Set the direct page for the toolset tcd ; Set the direct page for the toolset
phb
phk
plb
jsr _CoreShutDown ; Shut down the library jsr _CoreShutDown ; Shut down the library
plb
pea $8000 pea $8000
pei ToolNum pei ToolNum
@ -163,7 +171,7 @@ width equ FirstParam+2
tay tay
lda width,s lda width,s
tax tax
; jsr _SetScreenMode ; Not implemented yet ; jsr _SetScreenMode
_TSExit #0;#4 _TSExit #0;#4
@ -177,11 +185,15 @@ output equ FirstParam
_TSExit #0;#0 _TSExit #0;#0
; Insert the core GTE functions ; Insert the GTE code
put Math.s
put CoreImpl.s put CoreImpl.s
put Memory.s put Memory.s
put Timer.s put Timer.s
; put Graphics.s put Graphics.s
; put blitter/Template.s put blitter/BG0.s
put blitter/BG1.s
put blitter/Template.s
put blitter/Tables.s put blitter/Tables.s
put blitter/Blitter.s