X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/50f3b8f0cb6ccbdc5c1ea8f916f3d95b197d3d04..04d6fc24a26ac00992b73417c3367414c34df70d:/cbios/chario.180?ds=sidebyside

diff --git a/cbios/chario.180 b/cbios/chario.180
index 9a14305..c4c5be6 100644
--- a/cbios/chario.180
+++ b/cbios/chario.180
@@ -20,12 +20,12 @@
 
 max$devices equ	3
 
-	cseg
 
 ;--------------------------------------------------------------
 ; Init character device
 ;     c: device
 
+	cseg
 ?cinit:				; init devices
 	b0call	_cinit
 	ret
@@ -39,7 +39,6 @@ _cinit:
 	dw	as1init
 	dw	rret
 
-	cseg
 
 ;--------------------------------------------------------------
 ; Character input
@@ -47,7 +46,13 @@ _cinit:
 ;    return:
 ;     a: input char
 
+	cseg
 ?ci:				; character input
+	b0call	_ci
+	ret
+
+	dseg
+_ci:
 	call	vector$io
 	dw	ff.in
 	dw	as0inp
@@ -60,7 +65,13 @@ _cinit:
 ;    return:
 ;     a: 0ffh if char available, else 0
 
-?cist:				; character input status
+	cseg
+?cist:				; character input
+	b0call	_cist
+	ret
+
+	dseg
+_cist:				; character input status
 	call	vector$io
 	dw	ff.ist
 	dw	as0ista
@@ -74,7 +85,13 @@ _cinit:
 ;    return:
 ;     a: output char
 
-?co:				; character output
+	cseg
+?co:				; character input
+	b0call	_co
+	ret
+
+	dseg
+_co:				; character output
 	call	vector$io
 	dw	ff.out
 	dw	as0out
@@ -89,7 +106,13 @@ _cinit:
 ;     a: 0ffh if device ready for next output char, else 0
 
 
-?cost:				; character output status
+	cseg
+?cost:				; character input
+	b0call	_cost
+	ret
+
+	dseg
+_cost:				; character output status
 	call	vector$io
 	dw	ff.ost
 	dw	as0osta
@@ -98,6 +121,7 @@ _cinit:
 
 ;--------------------------------------------------------------
 
+	dseg
 vector$io:
 	pop	hl
 	push	de
@@ -132,20 +156,21 @@ null$status:
 
 ;--------------------------------------------------------------
 
+	cseg
 @ctbl:
-	db	'AVRCON'	; device 0
+	db	'USB0  '		; device 0
 	db	mb$in$out
 	db	baud$none
 
-	db	'ASCI0 '	; device 1
+	db	'ASCI0 '		; device 1
 	db	mb$in$out+mb$serial+mb$soft$baud
-	db	baud$9600
+	db	baud$19200
 
-	db	'ASCI1 '	; device 2
+	db	'ASCI1 '		; device 2
 	db	mb$in$out+mb$serial+mb$soft$baud
 	db	baud$19200
 
-	db	0		; table terminator
+	db	0				; table terminator
 
 
 	end