Rename dir Z180 --> z180

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

diff --git a/z180/console.180 b/z180/console.180
new file mode 100644 (file)
index 0000000..70169b4
--- /dev/null
+++ b/z180/console.180
@@ -0,0 +1,48 @@
+       ;page   255\r
+       .z80\r
+       \r
+\r
+       global  $coninit\r
+       global  $cists,$ci\r
+       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
+       \r
+\r
+       include config.inc\r
+       include z180reg.inc\r
+\r
+       cseg\r
+;\r
+;\r
+\r
+$coninit:\r
+       call    f.init\r
+       call    ser.init\r
+       ret\r
+       \r
+$cists:\r
+       call    f.i.st\r
+       ret     nz\r
+       call    ser.instat\r
+       ret\r
+       \r
+$ci:\r
+       call    f.i.st\r
+       jp      nz,f.in\r
+       call    ser.instat\r
+       jp      nz,ser.in\r
+       jr      $ci\r
+       \r
+;$costs:\r
+;      jp      f.o.st\r
+       \r
+$co:\r
+       call    msg.co\r
+       jp      ser.out\r
+       \r
+       end\r
+\r