Monitoring System Operation
Monitoring System Operation
170 SUB Interrupt
180 S=SPOLL (723)
190 IF BIT(S,2)THEN CALL Trace_out
200 IF BIT(S,5)THEN CALL Error
210SUBEND
220!
230!
240SUB Trace_out
250OPTION BASE 1
260COM\INSTR\@Sa
270COM trace_a(800)
280OUTPUT @Sa;"TRA?;"
290ENTER @Sa;Trace_a(*)
300SUBEND
310!
320SUB Error
330DIM Mod_num$[6],Err_text$[30]
340ASSIGN @Sa TO 723
350OUTPUT @Sa;"XERR?;"
360ENTER @Sa USING
"S(K)";Error_num,Mod_num$,Row_num,Col_num,Err_text$
370PRINT Error_num;Mod_num$;Row_num;Col_num;Err_text$
380SUBEND