172 lines
5.0 KiB
ArmAsm
172 lines
5.0 KiB
ArmAsm
; Toolbox wrapper for the GTE library. Implemented as a user tool
|
|
;
|
|
; Ref: Toolbox Reference, Volume 2, Appendix A
|
|
; Ref: IIgs Tech Note #73
|
|
|
|
; use Load.Macs.s
|
|
use Mem.Macs.s
|
|
use Misc.Macs.s
|
|
use Util.Macs
|
|
use Locator.Macs
|
|
use Core.MACS.s
|
|
|
|
use Defs.s
|
|
|
|
ToStrip equ $E10184
|
|
|
|
mx %00
|
|
|
|
_CallTable
|
|
adrl {_CTEnd-_CallTable}/4
|
|
adrl _TSBootInit-1
|
|
adrl _TSStartUp-1
|
|
adrl _TSShutDown-1
|
|
adrl _TSVersion-1
|
|
adrl _TSReset-1
|
|
adrl _TSStatus-1
|
|
adrl _TSReserved-1
|
|
adrl _TSReserved-1
|
|
|
|
adrl _TSSetScreenMode
|
|
_CTEnd
|
|
|
|
; Do nothing when the tool set is installed
|
|
_TSBootInit
|
|
lda #0
|
|
clc
|
|
rtl
|
|
|
|
; Call the regular GTE startup function after setting the Work Area Pointer (WAP). The caller must provide
|
|
; one page of Bank 0 memory for the tool set's private use and a userId to use for allocating memory
|
|
;
|
|
; X = tool set number in low byte and function umber in high byte
|
|
;
|
|
; StartUp(dPageAddr, userId)
|
|
_TSStartUp
|
|
|
|
userId = 7
|
|
zpToUse = userId+2
|
|
|
|
lda zpToUse,s ; Get the direct page address
|
|
phd ; Save the current direct page
|
|
tcd ; Set to our working direct page space
|
|
|
|
txa
|
|
and #$00FF ; Get just the tool number
|
|
sta ToolNum
|
|
|
|
lda userId+2,s ; Get the userId for memory allocations
|
|
sta UserId
|
|
|
|
jsr _CoreStartUp ; Initialize the library
|
|
|
|
; SetWAP(userOrSystem, tsNum, waptPtr)
|
|
|
|
pea #$8000 ; $8000 = user tool set
|
|
pei ToolNum ; Push the tool number from the direct page
|
|
pea $0000 ; High word of WAP is zero (bank 0)
|
|
phd ; Low word of WAP is the direct page
|
|
_SetWAP
|
|
|
|
pld ; Restore the caller's direct page
|
|
|
|
ldx #0 ; No error
|
|
ldy #4 ; Remove the 4 input bytes
|
|
jml ToStrip
|
|
|
|
_TSShutDown
|
|
cmp #0 ; Acc is low word of the WAP (direct page)
|
|
beq :inactive
|
|
|
|
phd
|
|
tcd ; Set the direct page for the toolset
|
|
|
|
jsr _CoreShutDown ; Shut down the library
|
|
|
|
pea $8000
|
|
pei ToolNum
|
|
pea $0000 ; Set WAP to null
|
|
pea $0000
|
|
_SetWAP
|
|
|
|
pld ; Restore the direct page
|
|
|
|
:inactive
|
|
lda #0
|
|
clc
|
|
rtl
|
|
|
|
_TSVersion
|
|
lda #$0100 ; Version 1
|
|
sta 7,s
|
|
|
|
lda #0
|
|
clc
|
|
rtl
|
|
|
|
_TSReset
|
|
lda #0
|
|
clc
|
|
rtl
|
|
|
|
; Check the WAP values in the A, Y registers
|
|
_TSStatus
|
|
sta 1,s
|
|
tya
|
|
ora 1,s
|
|
sta 1,s ; 0 if WAP is null, non-zero if WAP is set
|
|
|
|
lda #0
|
|
clc
|
|
rtl
|
|
|
|
_TSReserved
|
|
txa
|
|
xba
|
|
ora #$00FF ; Put error code $FF in the accumulator
|
|
sec
|
|
rtl
|
|
|
|
; SetScreenMode(width, height)
|
|
_TSSetScreenMode
|
|
:height equ 9
|
|
:width equ 11
|
|
|
|
phd ; Preserve the direct page
|
|
tcd ; Set the tool set direct pafe from WAP
|
|
|
|
lda :height,s
|
|
tay
|
|
lda :width,s
|
|
tax
|
|
; jsr _SetScreenMode ; Not implemented yet
|
|
|
|
pld ; Restore direct page
|
|
|
|
ldx #0 ; No error
|
|
ldy #4 ; Remove the 4 input bytes
|
|
jml ToStrip
|
|
|
|
_TSReadControl
|
|
:output equ 9
|
|
|
|
phd ; Preserve the direct page
|
|
tcd
|
|
|
|
jsr _ReadControl
|
|
sta :output,s
|
|
|
|
pld
|
|
ldx #0 ; No error
|
|
ldy #0 ; Remove zero input bytes
|
|
jml ToStrip
|
|
|
|
; Insert the core GTE functions
|
|
|
|
put CoreImpl.s
|
|
put Memory.s
|
|
put Timer.s
|
|
; put Graphics.s
|
|
; put blitter/Template.s
|
|
put blitter/Tables.s
|