328 lines
3.8 KiB
Plaintext
328 lines
3.8 KiB
Plaintext
;
|
|
; Host FST boot loader.
|
|
;
|
|
;
|
|
;
|
|
;
|
|
;
|
|
|
|
string asis
|
|
case on
|
|
|
|
include 'gsos.equ'
|
|
include 'fst.macros'
|
|
include 'records.equ'
|
|
|
|
|
|
macro
|
|
&lab call_host
|
|
&lab dc.b $42, $ff
|
|
endm
|
|
|
|
macro
|
|
&lab host_print
|
|
&lab dc.b $42, $fe
|
|
endm
|
|
|
|
macro
|
|
&lab host_hexdump
|
|
&lab dc.b $42, $fd
|
|
endm
|
|
|
|
gbuffer equ $9a00
|
|
|
|
|
|
header proc org $2000
|
|
|
|
import startup
|
|
import readfile
|
|
import getbootname
|
|
import getfstname
|
|
|
|
export aux_value
|
|
|
|
jmp startup
|
|
nop
|
|
dc.w readfile
|
|
dc.w getbootname
|
|
dc.w getfstname
|
|
dc.w startup-header
|
|
aux_value dc.w 0
|
|
endp
|
|
|
|
|
|
; getfst_name(name*)
|
|
;
|
|
getfstname proc
|
|
nameptr equ $0
|
|
|
|
plx ; rts
|
|
pla
|
|
sta <nameptr
|
|
pla
|
|
sta <nameptr+2
|
|
phx
|
|
ldy |fst_str
|
|
iny
|
|
short m
|
|
@loop
|
|
lda fst_str,y
|
|
sta [nameptr],y
|
|
dey
|
|
bpl @loop
|
|
long m
|
|
|
|
clc
|
|
lda #0
|
|
rts
|
|
fst_str str.w 'Host.fst'
|
|
endp
|
|
|
|
getbootname proc
|
|
nameptr equ $0
|
|
|
|
plx ; rts
|
|
pla
|
|
sta <nameptr
|
|
pla
|
|
sta <nameptr+2
|
|
phx
|
|
ldy |volume_str
|
|
iny
|
|
short m
|
|
@loop
|
|
lda volume_str,y
|
|
sta [nameptr],y
|
|
dey
|
|
bpl @loop
|
|
long m
|
|
|
|
clc
|
|
lda #0
|
|
rts
|
|
volume_str str.w ':Host'
|
|
endp
|
|
|
|
readfile proc
|
|
;
|
|
;
|
|
;
|
|
import OpenDCB:OpenRecGS
|
|
import CloseDCB:CloseRecGS
|
|
import ReadDCB:IORecGS
|
|
|
|
import open_read_close
|
|
|
|
plx ; rts
|
|
pla
|
|
sta ReadDCB.dataBuffer
|
|
pla
|
|
sta ReadDCB.dataBuffer+2
|
|
pla
|
|
sta OpenDCB.pathname
|
|
pla
|
|
sta OpenDCB.pathname+2
|
|
phx ; rts
|
|
|
|
jsr open_read_close
|
|
bcs @error
|
|
|
|
lda OpenDCB.fileType
|
|
sta 3,s
|
|
|
|
lda OpenDCB.auxType
|
|
sta 5,s
|
|
|
|
lda OpenDCB.eof
|
|
sta 7,s
|
|
lda OpenDCB.eof+2
|
|
sta 9,s
|
|
|
|
|
|
lda #0
|
|
clc
|
|
rts
|
|
|
|
@error ; A should have error code....
|
|
rts
|
|
endp
|
|
|
|
|
|
open_read_close proc
|
|
;
|
|
; pathname, dataBuffer set up in DCBs.
|
|
;
|
|
|
|
import OpenDCB:OpenRecGS
|
|
import CloseDCB:CloseRecGS
|
|
import ReadDCB:IORecGS
|
|
import fakedp
|
|
|
|
with fst_parms
|
|
phd
|
|
phb
|
|
phk
|
|
plb
|
|
|
|
lda #fakedp
|
|
tcd
|
|
|
|
lda gbuffer
|
|
sta scratch
|
|
|
|
lda #OpenDCB
|
|
sta param_blk_ptr
|
|
lda #^OpenDCB
|
|
sta param_blk_ptr+2
|
|
stz dev1_num
|
|
stz dev2_num
|
|
|
|
lda OpenDCB.pathname
|
|
sta path1_ptr
|
|
lda OpenDCB.pathname+2
|
|
sta path1_ptr+2
|
|
|
|
stz path2_ptr
|
|
stz path2_ptr+2
|
|
|
|
lda #$4000
|
|
sta path_flag
|
|
lda #11
|
|
sta span1
|
|
stz span2
|
|
|
|
|
|
ldx #$2010
|
|
stx call_number
|
|
sec
|
|
call_host
|
|
bcs @exit
|
|
; x = cookie for open/close.
|
|
|
|
txy ; cookie
|
|
|
|
lda OpenDCB.eof
|
|
sta ReadDCB.requestCount
|
|
lda OpenDCB.eof+2
|
|
sta ReadDCB.requestCount+2
|
|
|
|
|
|
; global data buffer -
|
|
; readline mask.
|
|
stz $9a00
|
|
stz ReadDCB.transferCount
|
|
stz ReadDCB.transferCount+2
|
|
lda #ReadDCB
|
|
sta param_blk_ptr
|
|
lda #^ReadDCB
|
|
sta param_blk_ptr+2
|
|
stz dev1_num
|
|
stz dev2_num
|
|
|
|
stz path1_ptr
|
|
stz path1_ptr+2
|
|
stz path2_ptr
|
|
stz path2_ptr+2
|
|
|
|
stz path_flag
|
|
stz span1
|
|
stz span2
|
|
|
|
ldx #$2012
|
|
stx call_number
|
|
sec
|
|
call_host
|
|
|
|
; close...
|
|
lda #CloseDCB
|
|
sta param_blk_ptr
|
|
lda #^CloseDCB
|
|
sta param_blk_ptr+2
|
|
|
|
ldx #$2014
|
|
stx call_number
|
|
sec
|
|
call_host
|
|
|
|
|
|
|
|
@exit
|
|
lda scratch
|
|
sta gbuffer
|
|
|
|
plb
|
|
pld
|
|
rts
|
|
scratch ds.w 1
|
|
endp
|
|
|
|
startup proc
|
|
|
|
clc
|
|
xce
|
|
long m,x
|
|
|
|
import OpenDCB:OpenRecGS
|
|
import CloseDCB:CloseRecGS
|
|
import ReadDCB:IORecGS
|
|
import aux_value
|
|
|
|
; 0. host fst start up.
|
|
lda #0
|
|
ldx #$8001
|
|
call_host
|
|
|
|
; 1. open/read/close start.gsos
|
|
; 2. execute start.gsos
|
|
|
|
|
|
lda #15
|
|
sta OpenDCB.pCount
|
|
lda #start_str
|
|
sta OpenDCB.pathname
|
|
lda #^start_str
|
|
sta OpenDCB.pathname+2
|
|
lda #1
|
|
sta OpenDCB.requestAccess
|
|
|
|
lda #1
|
|
sta CloseDCB.pCount
|
|
lda #3
|
|
sta ReadDCB.pCount
|
|
|
|
lda #$6800
|
|
sta ReadDCB.dataBuffer
|
|
lda #$0000
|
|
sta ReadDCB.dataBuffer+2
|
|
|
|
jsr open_read_close
|
|
|
|
|
|
lda OpenDCB.auxType
|
|
sta aux_value
|
|
|
|
lda #$1000 ; want *:System:Drivers:Boot.Driver
|
|
ldx #0
|
|
ldy #0
|
|
jmp $6803
|
|
|
|
start_str str.w 'System:Start.GS.OS'
|
|
|
|
endp
|
|
|
|
|
|
Data record
|
|
|
|
export OpenDCB, CloseDCB, ReadDCB
|
|
|
|
OpenDCB ds OpenRecGS
|
|
CloseDCB ds CloseRecGS
|
|
ReadDCB ds IORecGS
|
|
|
|
; needs to be last.
|
|
export fakedp
|
|
fakedp
|
|
endr
|
|
end
|
|
|