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