1SOURCE PROGRAM ERROR RECORD. THIS RECORD TESTS SL3 AND SL6 F1SPE010
2TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE F1SPE020
3EXECUTED, OR IF THE NEXT PROGRAM IS TO BE COMPILED. SL3-ON F1SPE030
4IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD F1SPE040
5IS FOUND. SS6-ON IF IN BATCH COMPILE MODE. F1SPE050
6 F1SPE060
7MASTER RECORD CARD = F0100000. F1SPE070
00030 8ORG24 F1SPE080
00030−0 76000 0 00007 9LTM F1SPE090
00031−0 76000 0 00141 10SLT1 SL1-ON IF PROGRAM TO BE RE-TRIED. F1SPE100
00032 0 02000 0 00034 11TRASS6TST F1SPE110
00033 0 02000 0 00053 12TRASKIPCM SKIP TO COMMON RECORD F1SPE120
00034 0 76000 0 00166 13SS6TST SWT6 SS6-ON IF IN BATCH MODE. F1SPE130
00035 0 02000 0 00041 14TRAREADCD SINGLE COMPILATION. READ CARD READER SEQ. F1SPE140
00036−0 76000 0 00143 15SLT3 ON IF END CARD ERROR FOUND BY BATCH MONITOR F1SPE150
00037 0 02000 0 00055 16TRASKIPBM SKIP TO BATCH MONITOR RECORD F1SPE160
00040 0 77200 0 00206 17REW6 F1SPE170
00041 0 77200 0 00204 18READCD REW4 F1SPE180
00042 0 77200 0 00203 19REW3 F1SPE190
00043 0 77200 0 00202 20REW2 F1SPE200
00044 0 77200 0 00201 21REW1 F1SPE210
00045 0 76200 0 00321 22RCD209 CARD READER LOAD BUTTON SEQUENCE. F1SPE220
00046 0 70000 0 00000 23CPY0 F1SPE230
00047 0 02000 0 00051 24TRASECCPY F1SPE240
00050 0 00000 0 77777 25HTR32767 CARD READ EMPTY. F1SPE250
00051 0 70000 0 00001 26SECCPY CPY1 F1SPE260
00052 0 02000 0 00000 27TRA0 F1SPE270
00053 0 76200 0 00221 28SKIPCM RTB1 SKIP OVER FILE 1 MARK TO BATCH MONITOR. F1SPE280
00054 0 76200 0 00221 29RTB1 SKIP OVER BATCH MONITOR RECORD F1SPE290
00055 0 76200 0 00221 30SKIPBM RTB1 AND/OR SKIP MACHINE ERROR RECORD F1SPE300
00056 0 02000 0 00004 31TRA4 TO 1-CS TO READ NEXT RECORD F1SPE310