X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp-cpm3.git/blobdiff_plain/6dd88c258326e3bc0538c15b3b7fe3e04874ab99..aa1cd3a9e22307c7f0733c3c80c85d3329f5038b:/cbios/chario.180

diff --git a/cbios/chario.180 b/cbios/chario.180
index 3451262..930a86d 100644
--- a/cbios/chario.180
+++ b/cbios/chario.180
@@ -4,17 +4,17 @@
 
 
 
-	public ?cinit,?ci,?co,?cist,?cost
+	public ?cinit,ioctl,?ci,?co,?cist,?cost
 	public @ctbl
 
 	extrn	ff_dev
 	extrn	as0_dev,as1_dev
-	extrn	_b0call
+	extrn	_b0hlcall
 
-	include config.inc
-	include	z180reg.inc
+	maclib z180reg.inc
+	maclib config.inc
 
-	include modebaud.inc	; define mode bits and baud equates
+	maclib modebaud.inc	; define mode bits and baud equates
 
 
 
@@ -32,7 +32,7 @@
 
 	db	'ASCI1 '		; device 2
 	db	mb$in$out+mb$serial+mb$soft$baud
-	db	baud$19200
+	db	baud$134
 
 	db	0				; table terminator
 
@@ -42,7 +42,7 @@ O_COF	equ	-10
 O_COSTF	equ	-8
 O_CIF	equ	-6
 O_CISTF	equ	-4
-O_INITF	equ	-2
+O_IOCTLF equ	-2
 
 	dseg
 xctbl:
@@ -71,14 +71,15 @@ null_dev:
 
 	cseg
 ?cinit:				; init devices
-	b0call	_cinit
+	ld	b,c
+	ld	c,0		;
+ioctl:
+	b0hlcall _ioctl
 	ret
 
 	dseg
-_cinit:
-	ld	b,c
-	ld	hl,O_INITF
-	ld	c,0		;
+_ioctl:
+	ld	hl,O_IOCTLF
 	jr	vector_io
 
 ;--------------------------------------------------------------
@@ -89,7 +90,7 @@ _cinit:
 
 	cseg
 ?ci:				; character input
-	b0call	_ci
+	b0hlcall _ci
 	ret
 
 	dseg
@@ -105,7 +106,7 @@ _ci:
 
 	cseg
 ?cist:				; character input
-	b0call	_cist
+	b0hlcall _cist
 	ret
 
 	dseg
@@ -122,7 +123,7 @@ _cist:				; character input status
 
 	cseg
 ?co:				; character input
-	b0call	_co
+	b0hlcall _co
 	ret
 
 	dseg
@@ -140,7 +141,7 @@ _co:				; character output
 
 	cseg
 ?cost:				; character input
-	b0call	_cost
+	b0hlcall _cost
 	ret
 
 	dseg