                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 023/023 ------           
       00262 -0 53400 4 00242  A7    LXD SEVEN,4       DOWN. SET READ ERROR COUNTER.                  F6T00470    
       00263 -0 53400 2 00161  A12   LXD ZERO,2                 ONTO TAPE7                            F6T00480    
       00264  0 76200 0 00223        RTB 3             READ A RECORD FROM TAPE THREE                  F6T00490    
       00265  0 70000 2 01371  A8    CPY REC-1,2                                                      F6T00500    
       00266  1 00001 2 00265        TXI A8,2,1                                                       F6T00510    
       00267  0 02000 0 00313        TRA EOF3          EOF OF FILE.                                   F6T00520    
       00270  0 77100 0 00377        ARS 255                                                          F6T00530    
       00271  0 77100 0 00377        ARS 255                                                          F6T00540    
       00272 -0 76000 0 00012        RTT                                                              F6T00550    
       00273  0 02000 0 00307        TRA ERR3          ERROR.                                         F6T00560    
       00274  1 77777 2 00275        TXI NEXT1,2,-1                                                   F6T00570    
       00275 -0 63400 2 00302  NEXT1 SXD A10,2         SAVE WORD COUNT OF RECORD.                     F6T00580    
       00276 -0 53400 2 00161        LXD ZERO,2                                                       F6T00590    
       00277  0 76600 0 00227        WTB 7             WRITE THE RECORD ONTO TAPE SEVEN.              F6T00600    
       00300  0 70000 2 01371  A9    CPY REC-1,2                                                      F6T00610    
       00301  1 00001 2 00302        TXI A10,2,1                                                      F6T00620    
       00302 -3 00302 2 00300  A10   TXL A9,2,*        TEST END OF RECORD.                            F6T00630    
       00303  0 76600 0 00333        IOD                                                              F6T00640    
       00304 -0 76000 0 00012        RTT                                                              F6T00650    
       00305  0 76100 0 00000        NOP                                                              F6T00660    
       00306  0 02000 0 00262        TRA A7            GO READ NEXT RECORD.                           F6T00670    
       00307  0 76400 0 00203  ERR3  BST 3                                                            F6T00680    
       00310  2 00001 4 00263        TIX A12,4,1       READ ERROR PROCEDURE.                          F6T00690    
       00311  0 07400 4 00004        TSX 4,4                                                          F6T00700    
       00312  0 00000 0 00312  ERR4  HTR ERR4                                                         F6T00710    
       00313  0 77000 0 00207  EOF3  WEF 7             AT EOF ON 3, WRITE EOF ON 7.                   F6T00720    
       00314  0 76200 0 00221        RTB 1                                                            F6T00730    
       00315  0 76200 0 00221        RTB 1                                                            F6T00740    
       00316  0 76200 0 00221        RTB 1                                                            F6T00750    
       00317  0 77200 0 00202  FINI  REW 2             REWINDS TAPES 2,3, AND 4 AND                   F6T00760    
       00320  0 77200 0 00203        REW 3             RETURNS TO LOADER,                             F6T00770    
       00321  0 77200 0 00204        REW 4                                                            F6T00780    
       00322  0 76200 0 00221        RTB 1                                                            F6T00790    
       00323  0 02000 0 00004        TRA 4                                                            F6T00800    
       00324  0 50000 0 00162  TEST2 CLA ONE           AFTER 2ND FILE FROM 2 TO 6,                    F6T00810    
       00325  0 34000 0 00200        CAS SW2           TEST SENSE SWITCH 2.                           F6T00820    
       00326  0 02000 0 00254        TRA TAPE7                                                        F6T00830    
       00327  0 02000 0 00332        TRA WT3                                                          F6T00840    
       00330  0 76000 0 00162        SWT 2                                                            F6T00850    
       00331  0 02000 0 00254        TRA TAPE7         UP. GO TEST SWITCH 1.                          F6T00860    
       00332 -0 53400 1 00251  WT3   LXD A5,1          DOWN. RESET INDEX REGISTER 1 TO 1.             F6T00870    
       00333  0 50000 0 00331        CLA WT3-1         CHANGE A5 TRANSFER ADDRESS TO TAPE7.           F6T00880    
       00334  0 62100 0 00251        STA A5                                                           F6T00890    
       00335  0 02000 0 00217        TRA A6                                                           F6T00900    
                        00336        BSS 40                                                           F6T00910    
                        01372  REC   BES 500                                                          F6T00920    
 A                      00000        END                                                              F6T00930    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     102           0           0           0           0
 LIB       0           0           0           0           0
 COL     102           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      111                  
0NUMBER OF SYMBOLS,  DEF    30,DEFOP     0,UNDEF     0      
9            REM SUCCESSFUL COMPILATION RECORD                                F1SC0010    
1                                        SUCCESSFUL COMPILATION RECORD                                F1SC0010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 024/024 -----------I
                                         CONTROL IS RETURNED TO THIS RECORD AT THE COMPLETION OF A    F1SC0020    
                                         SINGLE PROBLEM COMPILATION, OR AT THE END OF BATCH           F1SC0030    
                                         COMPILATION.  TAPE 1 IS REWOUND AND A LOAD BUTTON            F1SC0040    
                                         SEQUENCE IS EXECUTED AT THE CARD READER.                     F1SC0050    
                                         AN INSTALLATION MAY CHANGE THIS RECORD TO SUIT ITS OWN       F1SC0060    
                                         OPERATING NEEDS.                                             F1SC0070    
                                                                                                      F1SC0080    
                                         MASTER RECORD CARD = F0090000.                               F1SC0090    
                        00030        ORG 24                                                           F1SC0100    
       00030 -0 76000 0 00007 START  LTM                                                              F1SC0110    
       00031  0 77200 0 00201        REW 1                                                            F1SC0120    
       00032  0 76200 0 00321        RCD 209             CARD READER LOAD BUTTON SEQUENCE.            F1SC0130    
       00033  0 70000 0 00000        CPY 0                                                            F1SC0140    
       00034  0 02000 0 00036        TRA SECCPY                                                       F1SC0150    
       00035  0 00000 0 77777        HTR 32767           CARD READER EMPTY, HALT.                     F1SC0160    
       00036  0 70000 0 00001 SECCPY CPY 1                                                            F1SC0170    
       00037  0 02000 0 00000        TRA 0                                                            F1SC0180    
                        00030        END 24                                                           F1SC0190    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      20           0           0           0           0
 LIB       0           0           0           0           0
 COL      20           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       29                  
0NUMBER OF SYMBOLS,  DEF     2,DEFOP     0,UNDEF     0      
9            REM SOURCE PROGRAM ERROR RECORD.  THIS RECORD TESTS SL3 AND SL6  F1SPE010    
1                                        SOURCE PROGRAM ERROR RECORD.  THIS RECORD TESTS SL3 AND SL6  F1SPE010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 025/025 -----------I
                                         TO DETERMINE IF A CARD READER LOAD BUTTON SEQUENCE IS TO BE  F1SPE020    
                                         EXECUTED, OR IF THE NEXT PROGRAM IS TO BE COMPILED.  SL3-ON  F1SPE030    
                                         IF TAPE 5 CANNOT BE READ OR EOF ON TAPE 5 BEFORE END CARD    F1SPE040    
                                         IS FOUND.  SS6-ON IF IN BATCH COMPILE MODE.                  F1SPE050    
                                                                                                      F1SPE060    
                                         MASTER RECORD CARD = F0100000.                               F1SPE070    
                        00030        ORG 24                                                           F1SPE080    
       00030 -0 76000 0 00007        LTM                                                              F1SPE090    
       00031 -0 76000 0 00141        SLT 1               SL1-ON IF PROGRAM TO BE RE-TRIED.            F1SPE100    
       00032  0 02000 0 00034        TRA SS6TST                                                       F1SPE110    
       00033  0 02000 0 00053        TRA SKIPCM          SKIP TO COMMON RECORD                        F1SPE120    
       00034  0 76000 0 00166 SS6TST SWT 6               SS6-ON IF IN BATCH MODE.                     F1SPE130    
       00035  0 02000 0 00041        TRA READCD          SINGLE COMPILATION. READ CARD READER SEQ.    F1SPE140    
       00036 -0 76000 0 00143        SLT 3               ON IF END CARD ERROR FOUND BY BATCH MONITOR  F1SPE150    
       00037  0 02000 0 00055        TRA SKIPBM          SKIP TO BATCH MONITOR RECORD                 F1SPE160    
       00040  0 77200 0 00206        REW 6                                                            F1SPE170    
       00041  0 77200 0 00204 READCD REW 4                                                            F1SPE180    
       00042  0 77200 0 00203        REW 3                                                            F1SPE190    
       00043  0 77200 0 00202        REW 2                                                            F1SPE200    
       00044  0 77200 0 00201        REW 1                                                            F1SPE210    
       00045  0 76200 0 00321        RCD 209             CARD READER LOAD BUTTON SEQUENCE.            F1SPE220    
       00046  0 70000 0 00000        CPY 0                                                            F1SPE230    
       00047  0 02000 0 00051        TRA SECCPY                                                       F1SPE240    
       00050  0 00000 0 77777        HTR 32767           CARD READ EMPTY.                             F1SPE250    
       00051  0 70000 0 00001 SECCPY CPY 1                                                            F1SPE260    
       00052  0 02000 0 00000        TRA 0                                                            F1SPE270    
       00053  0 76200 0 00221 SKIPCM RTB 1               SKIP OVER FILE 1 MARK TO BATCH MONITOR.      F1SPE280    
       00054  0 76200 0 00221        RTB 1               SKIP OVER BATCH MONITOR RECORD               F1SPE290    
       00055  0 76200 0 00221 SKIPBM RTB 1               AND/OR SKIP MACHINE ERROR RECORD             F1SPE300    
       00056  0 02000 0 00004        TRA 4               TO 1-CS TO READ NEXT RECORD                  F1SPE310    
                        00030        END 24                                                           F1SPE320    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      33           0           0           0           0
 LIB       0           0           0           0           0
 COL      33           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       42                  
0NUMBER OF SYMBOLS,  DEF     5,DEFOP     0,UNDEF     0      
9            REM  MONITOR PROGRAM FOR BATCH COMPILATION                       F1BM0010    
1                                         MONITOR PROGRAM FOR BATCH COMPILATION                       F1BM0010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 026/026 -----------I
                                         MASTER RECORD CARD F0120000                                  F1BM0020    
                        00030        ORG 24                                                           F1BM0030    
       00030  0 76000 0 00166 START  SWT 6                         TEST SW6, UP = SINGLE PROBLEM,     F1BM0040    
       00031  0 02000 0 00146        TRA ADD93+1         SKIP OVER MACHINE ERROR RECORD AND GO TO SEC1F1BM0050    
       00032  0 76000 0 00140        SLN 0                         TURN OFF LIGHTS                    F1BM0060    
       00033  0 53400 4 00237 ADD01  LXA L(5),4          COUNTER FOR 5 TRIES TO READ TAPE 5.          F1BM0070    
       00034 -0 50000 0 00245        CAL BLANKS                                                       F1BM0080    
       00035  0 60200 0 00233        SLW BUFFER-1                                                     F1BM0090    
       00036  0 60200 0 00232        SLW BUFFER-2                                                     F1BM0100    
       00037 -0 76000 0 00012        RTT                           TURN OFF INDICATOR                 F1BM0110    
       00040  0 76100 0 00000        NOP                                                              F1BM0120    
       00041  0 76200 0 00205 ADD015 RTD 5                                                            F1BM0130    
       00042  0 53400 3 00243        LXA L(14),3                   ASSUME 14 WORDS PER RECORD         F1BM0140    
       00043  0 70000 1 00234 ADD02  CPY BUFFER,1                                                     F1BM0150    
       00044  0 02000 0 00047        TRA ADD03                                                        F1BM0160    
       00045  0 02000 0 00161        TRA ADD90                     EOF                                F1BM0170    
       00046  0 02000 0 00050        TRA ADD04                     EOR                                F1BM0180    
       00047  2 00001 1 00043 ADD03  TIX ADD02,1,1                                                    F1BM0190    
       00050  0 77100 0 00377 ADD04  ARS 255                                                          F1BM0200    
       00051  0 77100 0 00377        ARS 255                                                          F1BM0210    
       00052 -0 76000 0 00012        RTT                           TEST TAPE INDICATOR                F1BM0220    
       00053  0 02000 0 00150        TRA ADD80                     ON, PREPARE TO READ AGAIN          F1BM0230    
       00054  0 76600 0 00202        WTD 2                         OFF, WRITE THIS RECORD ON TAPE 2   F1BM0240    
       00055  0 70000 2 00234 ADD05  CPY BUFFER,2                                                     F1BM0250    
       00056  2 00001 2 00055        TIX ADD05,2,1                                                    F1BM0260    
       00057  0 76600 0 00333        IOD                                                              F1BM0270    
       00060 -0 76000 0 00012        RTT                                                              F1BM0280    
       00061  0 76100 0 00000        NOP                                                              F1BM0290    
 D     00062  3 00000 0 00074 ADD70  TXH ADD71,0         ROUTINE TO RESTORE PRINTER CARRIAGE AND PRINTF1BM0300    
       00063  0 07400 4 00332        TSX PRINT,C         FIRST STATEMENT OF CURRENT SOURCE PROGRAM    F1BM0310    
       00064  0 00234 0 00215        PZE RESTR,0,BUFFER                                               F1BM0320    
       00065  0 76600 0 00361        WPR                                                              F1BM0330    
       00066  0 76600 0 00361        WPR                                                              F1BM0330    
       00067  0 76600 0 00361        WPR                                                              F1BM0330    
       00070  0 76600 0 00361        WPR                                                              F1BM0330    
       00071  0 76600 0 00361        WPR                                                              F1BM0330    
       00072  0 50200 0 00062        CLS ADD70           CHANGE TXH TO TXL                            F1BM0350    
       00073  0 60100 0 00062        STO ADD70                                                        F1BM0360    
       00074  0 76000 0 00141 ADD71  SLN 1               SL1-ON IF AT LEAST 1 SOURCE STATMENT ON TP 2 F1BM0370    
       00075 -0 75400 0 00000        PXD 0,0                       EXITS                              F1BM0380    
       00076  0 56000 0 00216        LDQ BUFFER-14                 TEST FOR COMMENT CARD              F1BM0390    
       00077 -0 76300 0 00006        LGL 6                                                            F1BM0400    
       00100  0 40200 0 00244        SUB L(C)                                                         F1BM0410    
       00101  0 10000 0 00033        TZE ADD01                     YES, GO READ NEXT TAPE RECORD      F1BM0420    
       00102 -0 76300 0 00030        LGL 24                        DISCARD FORMULA NUMBER             F1BM0430    
       00103 -0 75400 0 00000        PXD 0,0                                                          F1BM0440    
       00104 -0 76300 0 00006        LGL 6                                                            F1BM0450    
       00105  0 10000 0 00110        TZE ADD06                     TEST FOR CONTINUATION CARD         F1BM0460    
       00106  0 40200 0 00246        SUB BLANK                                                        F1BM0470    
       00107 -0 10000 0 00033        TNZ ADD01                     YES, GO READ NEXT TAPE RECORD      F1BM0480    
       00110  0 53400 1 00242 ADD06  LXA L(12),1                   THIS RECORD IS OF FIRST CARD OF    F1BM0490    
