b0call --> b0hlcall

[z180-stamp-cpm3.git] / cbios / chario.180

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