Apple-2-Tools/host-fst
1
0
Fork 0
mirror of https://github.com/ksherlock/host-fst.git synced 2024-12-22 13:29:29 +00:00
Code Issues Projects Releases Wiki Activity

host.driver -- no longer a character device, add read/write functions that error out.

Browse Source
This commit is contained in:
Kelvin Sherlock 2016-10-16 20:22:01 -04:00
parent a19e75abd9
commit fdf1c15d65
1 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
host.driver.aii
View File

@ -17,7 +17,7 @@ header proc
dib dc.l 0 ;Link pointer to next DIB
dc.l entry ;Entry pointer
dc.w %0000111100000000 ;Characteristics
dc.w %0000111111100000 ;Characteristics
dc.l 0 ;Block count
str.b 'HOST' ;Device name with length
dcb.b 32-5,$20
@ -91,12 +91,34 @@ flush proc
endp
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
endp
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
endp
@ -115,34 +137,16 @@ shutdown proc
endp
open proc
lda open_flag
bne oops
inc open_flag
lda #1
tsb status_word
lda #no_error
rts
oops
lda #drvr_prior_open
rts
endp
close proc
lda open_flag
beq oops
stz open_flag
lda #1
trb status_word
lda #no_error
rts
oops
lda #drvr_not_open
rts
endp