mirror of
https://github.com/ksherlock/host-fst.git
synced 2024-09-26 20:54:53 +00:00
updated WDM arguments to match what's in GS+.
This commit is contained in:
parent
e9f00fac8c
commit
efe6925322
12
atinit.aii
12
atinit.aii
@ -4,11 +4,15 @@ CheckMach equ $fe1f ;Monitor Routine to check machine type
|
|||||||
mli equ $bf00
|
mli equ $bf00
|
||||||
KVersion equ $bfff
|
KVersion equ $bfff
|
||||||
|
|
||||||
head_call equ $fb
|
head_call equ $fc
|
||||||
tail_call equ $fc
|
tail_call equ $fd
|
||||||
|
|
||||||
;code equ $d7a9 ; end of IIgs clock driver.
|
;code equ $d7a9 ; end of IIgs clock driver.
|
||||||
code equ $c0f0 ; slot 7 devsel.
|
code equ $c0f0 ; slot 7 devsel.
|
||||||
|
;
|
||||||
|
; n.b. - IIgs clock driver is in the language card RAM so it can't be
|
||||||
|
; used for
|
||||||
|
;
|
||||||
|
|
||||||
|
|
||||||
macro
|
macro
|
||||||
@ -70,7 +74,7 @@ dcb dc.b 4 ; pcount
|
|||||||
dc.b 1 ; version
|
dc.b 1 ; version
|
||||||
mli_address dc.w $0000 ; mli address
|
mli_address dc.w $0000 ; mli address
|
||||||
dc.w code+dcb_ent-stub_begin ; patch address
|
dc.w code+dcb_ent-stub_begin ; patch address
|
||||||
mli_slot dc.b $80
|
mli_slot dc.b $80 ; ProDOS slot to use.
|
||||||
|
|
||||||
fakemli
|
fakemli
|
||||||
sec
|
sec
|
||||||
@ -96,7 +100,7 @@ dcb_ent dc.b $0
|
|||||||
wdm tail_call
|
wdm tail_call
|
||||||
rts
|
rts
|
||||||
stub_end
|
stub_end
|
||||||
if (stub_end-stub_begin)>22 then
|
if (stub_end-stub_begin)>16 then
|
||||||
aerror 'stub code overflow'
|
aerror 'stub code overflow'
|
||||||
endif
|
endif
|
||||||
|
|
||||||
|
@ -49,12 +49,12 @@
|
|||||||
|
|
||||||
macro
|
macro
|
||||||
&lab host_print
|
&lab host_print
|
||||||
&lab dc.b $42, $fe
|
&lab dc.b $42, $a0
|
||||||
endm
|
endm
|
||||||
|
|
||||||
macro
|
macro
|
||||||
&lab host_hexdump
|
&lab host_hexdump
|
||||||
&lab dc.b $42, $fd
|
&lab dc.b $42, $a1
|
||||||
endm
|
endm
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user