mirror of
https://github.com/ksherlock/host-fst.git
synced 2024-06-09 17:29:26 +00:00
host.driver -- no longer a character device, add read/write functions that error out.
This commit is contained in:
parent
a19e75abd9
commit
fdf1c15d65
|
@ -17,7 +17,7 @@ header proc
|
||||||
|
|
||||||
dib dc.l 0 ;Link pointer to next DIB
|
dib dc.l 0 ;Link pointer to next DIB
|
||||||
dc.l entry ;Entry pointer
|
dc.l entry ;Entry pointer
|
||||||
dc.w %0000111100000000 ;Characteristics
|
dc.w %0000111111100000 ;Characteristics
|
||||||
dc.l 0 ;Block count
|
dc.l 0 ;Block count
|
||||||
str.b 'HOST' ;Device name with length
|
str.b 'HOST' ;Device name with length
|
||||||
dcb.b 32-5,$20
|
dcb.b 32-5,$20
|
||||||
|
@ -91,12 +91,34 @@ flush proc
|
||||||
endp
|
endp
|
||||||
|
|
||||||
read proc
|
read proc
|
||||||
lda #no_error
|
with dev_parms
|
||||||
|
|
||||||
|
; todo - disk switch error logic....
|
||||||
|
|
||||||
|
stz dev_xfer_cnt
|
||||||
|
stz dev_xfer_cnt+2
|
||||||
|
lda dev_req_cnt
|
||||||
|
ora dev_req_cnt+2
|
||||||
|
beq exit
|
||||||
|
|
||||||
|
lda #network_error
|
||||||
|
exit
|
||||||
rts
|
rts
|
||||||
endp
|
endp
|
||||||
|
|
||||||
write proc
|
write proc
|
||||||
lda #no_error
|
with dev_parms
|
||||||
|
|
||||||
|
; todo - disk switch error logic....
|
||||||
|
|
||||||
|
stz dev_xfer_cnt
|
||||||
|
stz dev_xfer_cnt+2
|
||||||
|
lda dev_req_cnt
|
||||||
|
ora dev_req_cnt+2
|
||||||
|
beq exit
|
||||||
|
|
||||||
|
lda #network_error
|
||||||
|
exit
|
||||||
rts
|
rts
|
||||||
endp
|
endp
|
||||||
|
|
||||||
|
@ -115,34 +137,16 @@ shutdown proc
|
||||||
endp
|
endp
|
||||||
|
|
||||||
open proc
|
open proc
|
||||||
lda open_flag
|
|
||||||
bne oops
|
|
||||||
|
|
||||||
inc open_flag
|
|
||||||
lda #1
|
|
||||||
tsb status_word
|
|
||||||
|
|
||||||
lda #no_error
|
lda #no_error
|
||||||
rts
|
rts
|
||||||
oops
|
|
||||||
lda #drvr_prior_open
|
|
||||||
rts
|
|
||||||
|
|
||||||
endp
|
endp
|
||||||
|
|
||||||
close proc
|
close proc
|
||||||
lda open_flag
|
|
||||||
beq oops
|
|
||||||
|
|
||||||
stz open_flag
|
|
||||||
lda #1
|
|
||||||
trb status_word
|
|
||||||
|
|
||||||
lda #no_error
|
lda #no_error
|
||||||
rts
|
rts
|
||||||
oops
|
|
||||||
lda #drvr_not_open
|
|
||||||
rts
|
|
||||||
|
|
||||||
endp
|
endp
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user