RR(X_E)
100 MOVS X_A 10000110 WAIT RR(X_A)=0120 IF RR(X_E)!=0 THEN /* Confirming error status130 PRINT "ERROR STOP"140 ELSE150 PRINT "NORMAL STOP"160 END_IF170 PRX RR(X_E)