From fdf1c15d65789bb2f03c079d9a49ff9ae02cdb93 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Sun, 16 Oct 2016 20:22:01 -0400
Subject: [PATCH] host.driver -- no longer a character device, add read/write
 functions that error out.

---
 host.driver.aii | 46 +++++++++++++++++++++++++---------------------
 1 file changed, 25 insertions(+), 21 deletions(-)

diff --git a/host.driver.aii b/host.driver.aii
index e6a9937..ee92833 100644
--- a/host.driver.aii
+++ b/host.driver.aii
@@ -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