+ ;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