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

        ESTART