diff options
Diffstat (limited to 'Z180/console.180')
| -rw-r--r-- | Z180/console.180 | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/Z180/console.180 b/Z180/console.180 new file mode 100644 index 0000000..70169b4 --- /dev/null +++ b/Z180/console.180 @@ -0,0 +1,48 @@ + ;page 255
+ .z80
+
+
+ global $coninit
+ global $cists,$ci
+ global $co
+
+
+ extrn f.init,f.in,f.out,f.i.st
+ extrn ser.init,ser.instat,ser.in,ser.out
+ extrn msg.co
+
+
+ include config.inc
+ include z180reg.inc
+
+ cseg
+;
+;
+
+$coninit:
+ call f.init
+ call ser.init
+ ret
+
+$cists:
+ call f.i.st
+ ret nz
+ call ser.instat
+ ret
+
+$ci:
+ call f.i.st
+ jp nz,f.in
+ call ser.instat
+ jp nz,ser.in
+ jr $ci
+
+;$costs:
+; jp f.o.st
+
+$co:
+ call msg.co
+ jp ser.out
+
+ end
+
|