diff options
| author | Leo C | 2014-07-02 14:33:22 +0200 |
|---|---|---|
| committer | Leo C | 2014-07-02 14:33:22 +0200 |
| commit | f4d5b4febbffab80cb06bd18564d4c326756fad7 (patch) | |
| tree | f5d1a49865afb04c519da4bc9c47077369af7fdb /z180/console.180 | |
| parent | 78a3a76d0da08b39b370efc45e9c0ba1ee6bef26 (diff) | |
| download | z180-stamp-f4d5b4febbffab80cb06bd18564d4c326756fad7.zip | |
Rename dir Z180 --> z180
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
+
|