IOCHK  JOB   TEST BRANCH-ON-I/O-CHECK INSTRUCTIONS
       ORG   500
START  CS    332
       CS    
       MLCWA @TEST OF I/O CHECK INDICATORS@,250
       W
       CS    299
       H
LOOP   R
       BIN   BAD,?
       MLCWA @NO READER ERROR@,250
       W
       CS    299
       B     LOOP
BAD    MLCWA @SAW READER ERROR@,250
       W
       CS    299
       BIN   BOGUS,?
       MLCWA @READER ERROR CLEARED@,250
       W
       CS    299                             
       B     OK
BOGUS  MLCWA @***** FAILED TO CLEAR READER ERROR@,250
       W
       CS    299
OK     R
       BIN   OK2,?
       MLCWA @***** FAILED TO SET READER ERROR AFTER READ@,250
       W
       CS    299
       B     L1
OK2    MLCWA @READER ERROR SET AGAIN, OK@,250
       W     
       CS    299
*
L1     MLCWA @END OF READER TESTS@,250
       W
       CS    299
*
* PUNCH TESTS
*
       P   
       BIN   BADP,!
       MLCWA @***** NO PUNCH ERROR@,250
       W
       CS    299
       B     OKP
BADP   MLCWA @SAW PUNCH ERROR@,250
       W
       CS    299
       BIN   BOGUSP,!
       MLCWA @PUNCH ERROR CLEARED@,250
       W
       CS    299                             
       B     OKP
BOGUSP MLCWA @***** FAILED TO CLEAR PUNCH ERROR@,250
       W
       CS    299
OKP    P
       BIN   OK2P,!
       MLCWA @***** FAILED TO SET PUNCH ERROR AFTER PUNCH@,250
       W
       CS    299
       B     L2
OK2P   MLCWA @PUNCH ERROR SET AGAIN, OK@,250
       W     
       CS    299
*
L2     MLCWA @END OF PUNCH TESTS@,250
       W
       CS    299
*
       MLCWA @START OF PRINTER TESTS@,250
       W
       CS    299
       H
LPR    MLCWA @-----------------TURN PRINTER OFF--------------------@,270
       W
       CS    299
       BIN   POFF,Ø
       B     LPR
*
       MLCWA @-------THANKS--------@,260
POFF   W
       BIN   POFF,Ø
       CS    299
*
       MLCWA @------------PRINTER TURNED BACK ON--------------@,270
       W
       CS    299
       MLCWA @END OF I/O INDICATOR TESTS@,250
       W
       CS    299
       H     *-3
       END   START

