286 lines
3.6 KiB
Plaintext
286 lines
3.6 KiB
Plaintext
|
|
|
|
include 'gsos.equ'
|
|
include 'minix.equ'
|
|
include 'records.equ'
|
|
|
|
include 'fst.equ'
|
|
|
|
include 'fst.macros'
|
|
|
|
include 'M16.Debug'
|
|
|
|
|
|
|
|
import do_ignore
|
|
import do_refnum
|
|
import do_file_type
|
|
import do_aux_type
|
|
import do_storage_type
|
|
import do_option_list
|
|
import do_eof
|
|
import do_blocks
|
|
import do_r_eof
|
|
import do_r_blocks
|
|
import do_create_date_time
|
|
import do_mod_date_time
|
|
|
|
entry do_fcr_access
|
|
entry check_resource
|
|
entry check_access
|
|
entry build_fcr
|
|
|
|
import path_to_inode
|
|
import load_inode
|
|
|
|
import disk_inode:v1_inode
|
|
import disk_super:v1_super
|
|
|
|
open procname export
|
|
|
|
with fst_parms
|
|
with dev_parms
|
|
with dp
|
|
|
|
; find the inode...
|
|
|
|
jsr path_to_inode
|
|
bcs exit
|
|
|
|
jsr load_inode
|
|
bcs exit
|
|
|
|
|
|
; sanity check the parameters.
|
|
jsr check_resource
|
|
bcs exit
|
|
|
|
jsr check_access
|
|
bcs exit
|
|
|
|
|
|
; now create the fcr.
|
|
jsr build_fcr
|
|
bcs exit
|
|
|
|
; output fields...
|
|
|
|
lda <call_class
|
|
beq class0
|
|
|
|
class1
|
|
lda [param_blk_ptr] ; pcount
|
|
dec a
|
|
asl a ; x 2
|
|
asl a ; x 4
|
|
tax
|
|
dispatch open_dcb_1
|
|
lda tool_error
|
|
cmp #1
|
|
rtl
|
|
|
|
class0
|
|
ldx #open_dcb_0_size-4
|
|
dispatch open_dcb_0
|
|
lda tool_error
|
|
cmp #1
|
|
rtl
|
|
|
|
exit
|
|
rtl
|
|
|
|
open_dcb_0
|
|
dc.w 0, do_refnum
|
|
; all remaining fields are read-only.
|
|
open_dcb_0_size equ *-open_dcb_0
|
|
|
|
open_dcb_1
|
|
;dc.w 0, do_ignore ; pCount
|
|
dc.w $02, do_refnum ; refNum
|
|
dc.w $04, do_ignore ; path
|
|
dc.w $08, do_ignore ; request access
|
|
dc.w $0a, do_ignore ; resource resourceNumber
|
|
dc.w $0c, do_fcr_access ; actual access
|
|
dc.w $0e, do_file_type
|
|
dc.w $10, do_aux_type
|
|
dc.w $14, do_storage_type
|
|
dc.w $16, do_create_date_time
|
|
dc.w $1e, do_mod_date_time
|
|
dc.w $26, do_option_list
|
|
dc.w $2a, do_eof
|
|
dc.w $2e, do_blocks
|
|
dc.w $32, do_r_eof
|
|
dc.w $36, do_r_blocks
|
|
|
|
|
|
endp
|
|
|
|
build_fcr proc
|
|
|
|
with dp
|
|
import target:GSString32
|
|
|
|
; use vcr.vname. this is only needed for device-relative paths, anyhow.
|
|
; can vcr be invalidated? copy vcr.vname to target, just in case.
|
|
|
|
ldy #vcr.vname.length
|
|
lda [my_vcr],y
|
|
sta target.length
|
|
ldx #0
|
|
ldy #vcr.vname.text
|
|
vcr_vname
|
|
@loop
|
|
lda [my_vcr],y
|
|
sta target.text,x
|
|
iny
|
|
iny
|
|
inx
|
|
inx
|
|
cpx target.length
|
|
bcc @loop
|
|
|
|
|
|
; build filename string...
|
|
lda #fcr.__sizeof
|
|
ldx #target
|
|
ldy #^target
|
|
jsl alloc_fcr
|
|
bcc @ok
|
|
lda #out_of_mem
|
|
rts
|
|
@ok
|
|
|
|
jsl deref
|
|
stx my_fcr
|
|
sty my_fcr+2
|
|
|
|
ldy #vcr.open_count
|
|
lda [my_vcr],y
|
|
inc a
|
|
sta [my_vcr],y
|
|
|
|
lda #read_access
|
|
ldy #fcr.access
|
|
sta [my_fcr],y
|
|
|
|
lda #fst_id
|
|
ldy #fcr.fst_id
|
|
sta [my_fcr],y
|
|
|
|
|
|
ldy #vcr.id
|
|
lda [my_vcr],y
|
|
ldy #fcr.vcr_id
|
|
sta [my_fcr],y
|
|
|
|
lda inode
|
|
ldy #fcr.inode
|
|
sta [my_fcr],y
|
|
|
|
lda #0
|
|
ldy #fcr.dirty
|
|
sta [my_fcr],y
|
|
|
|
ldy #fcr.mark
|
|
sta [my_fcr],y
|
|
iny
|
|
iny
|
|
sta [my_fcr],y
|
|
|
|
; memory is 0-filled.
|
|
|
|
; copy the disk inode
|
|
|
|
ldx #v1_inode.__sizeof - 2
|
|
ldy #fcr.disk_inode.__end - 2
|
|
fcr_inode
|
|
@loop
|
|
lda disk_inode,x
|
|
sta [my_fcr],y
|
|
dey
|
|
dey
|
|
dex
|
|
dex
|
|
bpl @loop
|
|
|
|
clc
|
|
rts
|
|
|
|
endp
|
|
|
|
|
|
check_resource procname
|
|
; verify the resourceNumber is ok
|
|
; sets a/carry on error.
|
|
|
|
with fst_parms, dp
|
|
|
|
lda <call_class
|
|
beq done
|
|
|
|
lda [<param_blk_ptr] ; pcount
|
|
cmp #4
|
|
blt done
|
|
ldy #OpenRecGS.resourceNumber
|
|
lda [<param_blk_ptr],y
|
|
beq done
|
|
cmp #1
|
|
bne param_range
|
|
|
|
lda #res_not_found
|
|
sec
|
|
rts
|
|
|
|
param_range
|
|
lda #parm_range_err
|
|
sec
|
|
rts
|
|
|
|
done
|
|
clc
|
|
rts
|
|
endp
|
|
|
|
do_fcr_access procname
|
|
with fst_parms, dp
|
|
|
|
phy
|
|
ldy #fcr.access
|
|
lda [my_fcr],y
|
|
ply
|
|
sta [param_blk_ptr],y
|
|
rts
|
|
endp
|
|
|
|
check_access procname
|
|
|
|
with fst_parms, dp
|
|
|
|
; todo ....
|
|
; for now, read-only.
|
|
|
|
; class 0 ok
|
|
; class 1 w/ pcount < 4 ok
|
|
lda call_class
|
|
beq done
|
|
lda [param_blk_ptr]
|
|
cmp #4
|
|
bcc done
|
|
|
|
ldy #OpenRecGS.requestAccess
|
|
lda [param_blk_ptr],y
|
|
|
|
; 0 or 1 are acceptable.
|
|
cmp #2
|
|
bcc done
|
|
|
|
lda #invalid_access
|
|
sec
|
|
rts
|
|
|
|
done
|
|
clc
|
|
rts
|
|
endp
|
|
|
|
end |