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