+++ /dev/null
- ;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