mirror of
https://github.com/ksherlock/minix.fst.git
synced 2024-11-15 22:05:53 +00:00
57 lines
665 B
Plaintext
57 lines
665 B
Plaintext
|
|
string asis
|
|
|
|
include 'gsos.equ'
|
|
include 'minix.equ'
|
|
include 'records.equ'
|
|
|
|
include 'fst.equ'
|
|
|
|
include 'fst.macros'
|
|
|
|
include 'M16.Debug'
|
|
|
|
import volume_by_name
|
|
|
|
;
|
|
; gs/os expands the path provided. that means we'll have
|
|
; an absolute path or a device number + relative path.
|
|
;
|
|
|
|
get_dev_num procname export
|
|
|
|
with dp, fst_parms
|
|
|
|
lda dev1_num
|
|
bne store
|
|
|
|
lda span1
|
|
cmp #30+1
|
|
bcs bps
|
|
|
|
jsr volume_by_name
|
|
bcs exit
|
|
|
|
lda dev_parms.dev_num
|
|
|
|
store
|
|
; a = device number
|
|
ldx call_class
|
|
ldy table,x
|
|
sta [param_blk_ptr],y
|
|
lda tool_error
|
|
cmp #1
|
|
exit
|
|
rtl
|
|
|
|
bps
|
|
lda #bad_path_syntax
|
|
sec
|
|
rtl
|
|
|
|
table
|
|
dc.w DevNumRec.devNum, DevNumRecGS.devNum
|
|
|
|
endp
|
|
|
|
end |