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
+; extrn f.init,f.in,f.out,f.i.st\r
+; extrn msg.co\r
\r
\r
include config.inc\r
;\r
\r
$coninit:\r
- call f.init\r
+; call f.init\r
call ser.init\r
ret\r
\r
$cists:\r
- call f.i.st\r
- ret nz\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 f.i.st\r
+; jp nz,f.in\r
call ser.instat\r
jp nz,ser.in\r
jr $ci\r
; jp f.o.st\r
\r
$co:\r
- call msg.co\r
+; call msg.co\r
jp ser.out\r
\r
end\r