diff options
author | Leo C | 2014-06-20 23:48:39 +0200 |
---|---|---|
committer | Leo C | 2014-06-20 23:48:39 +0200 |
commit | a16ba2b0d47ac18eebbc1f9074a8b668fc312de2 (patch) | |
tree | 54eb18bbfbd3c2d71693c1cef239690455bfb40c /Z180/console.180 | |
parent | 6b81b39f9a07d5192947a7bd3a605f75fc9df475 (diff) | |
download | z180-stamp-a16ba2b0d47ac18eebbc1f9074a8b668fc312de2.zip |
check in Z180 subtree
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
+
|