JOB  READ TEST TAPE ROUTINE                                 5310E
               CTL  6611
     begwr     equ  1509       begwr is in program 5300
               ORG  1282
 1282tapeof    RWD  1
 1287          NOP
 1288load      CS   81         ensure no gmwm in 1-81
 1292          SW   1251
 1296          RTW  1,1
 1304          MCW  1251
 1308          LCA  gmwm       set gmwm after input
 1312          CW   1251
 1316          BER  taperr
 1321          BEF  tapeof
 1326          BCE  load,80,A  first card of program?
 1334          SW   1273
 1338          C    76,1276    check if desired/excluded block
 1345          BSS  goeq,F
 1350          BU   377        run test if not excluded
 1355          BIN  load,      load the next one
               ORG  1365
 1365begld     H    *&1        begin the loader here
 1369          SW   gmwm
 1373          B    load
 1377goeq      BU   load       load next one if not the desired one
 1382          B    377        run test if desired one
 1386taperr    BSP  1
 1391          B    load
 1397          DCW  #3
 1398gmwm      DCW  @"@
               END  begwr