Add polling driver for ASCI0/1

[z180-stamp.git] / z180 / console.180

diff --git a/z180/console.180 b/z180/console.180
index 70169b460cb66c2b8649a5ea118ebdee9ade634a..d4f41305e37c5488e16079977fc14142af903bfb 100644 (file)
--- a/z180/console.180
+++ b/z180/console.180
@@ -7,9 +7,9 @@
        global  $co\r
 \r
 \r
-       extrn   f.init,f.in,f.out,f.i.st\r
-       extrn   ser.init,ser.instat,ser.in,ser.out\r
-       extrn   msg.co\r
+       extrn   ser.init,ser.ist,ser.in,ser.ost,ser.out\r
+       extrn   ff.init,ff.i.st,ff.in\r
+       extrn   ff.o.st,ff.out\r
        \r
 \r
        include config.inc\r
@@ -20,20 +20,20 @@
 ;\r
 \r
 $coninit:\r
-       call    f.init\r
+       call    ff.init\r
        call    ser.init\r
        ret\r
        \r
 $cists:\r
-       call    f.i.st\r
+       call    ff.i.st\r
        ret     nz\r
-       call    ser.instat\r
+       call    ser.ist\r
        ret\r
        \r
 $ci:\r
-       call    f.i.st\r
-       jp      nz,f.in\r
-       call    ser.instat\r
+       call    ff.i.st\r
+       jp      nz,ff.in\r
+       call    ser.ist\r
        jp      nz,ser.in\r
        jr      $ci\r
        \r
@@ -41,7 +41,7 @@ $ci:
 ;      jp      f.o.st\r
        \r
 $co:\r
-       call    msg.co\r
+       call    ff.out\r
        jp      ser.out\r
        \r
        end\r