1         ASMBL 2                                                           01 0
1         REORD 100.0                                                       02 0
1   BUF   DEFN  0002            TAPE OUTPUT BUFFER                       01 00 0
1   OT    DEFN  1               OUTPUT TAPE                              01 01 0
1   T     DEFN  2               COMPILER TAPE UNIT                       01 02 0
1   PNTR  DEFN  2               PRINTER UNIT                             01 03 0
1   PREV  DEFN  101             ADDRESS OF PREVIOUS INSTRUCTION IN BUF  001 04 0
1   CNTRI DEFN  180             COUNTER FOR INSTRUCTIONS IN BUFFER      001 05 0
1   CNTRF DEFN  181             COUNTER FOR FIX-UPS IN BUFFER           001 06 0
1   WRTF  DEFN  183             RTF CONSTANT FOR WRITE SUBROUTINE       001 07 0
1   DESCR DEFN  184             INSTRUCTION IN OUTPUT BUFFER             01 08 0
1   EXPLN DEFN  185             SYMBOLIC EXPLANATION                     01 09 0
1   LCMAX DEFN  202             HIGHEST LOCATION USED IN SEGMENTS       001 10 0
1   LRTF  DEFN  207             LOCATION OF LAST RTF IN OUTPUT BUFFER   001 11 0
1   HALT1 DEFN  208             ERROR FLAG(SIGN IS 8 IF NO ERRORS)      001 12 0
1   VARB  DEFN  251             LAST LOCATION USED FOR VARIABLES, ECT   001 13 0
1   EPSLN DEFN  258             NUMBER OF EXTERNAL PROGRAMS              01 14 0
1   AVAIL DEFN  273             FREED-UP LOCATIONS                       01 15 0
1   OP    DEFN  275             OPERATOR STACK                           01 16 0
1   DUMBS DEFN  292             DUMP STACK                               01 17 0
1   SX    DEFN  400             MAG TAPE BUFFER                          01 18 0
1   IMAGE DEFN  1632            CARD INPUT BUFFER                        01 19 0
1   XZERO DEFN  4095            START OF FIXED POINT CONSTANT LIST      001 20 0
1   FZERO DEFN  4097            START OF FLOATING POINT CONSTANT LIST   001 21 0
1   XONE  DEFN  4099            FIXED POINT CONSTANT 1                   01 22 0
1   LALE  DEFN  4107            POINTS TO LABEL PROCESSING SUBROUTINE   001 23 0
1   SCRTB DEFN  4116            SCRAMBLE TABLE FOR IDENTIFIERS          001 24 0
1   SSC   DEFN  4216            POINTS TO WHATS LEFT OF MEMORY          001 25 0
1   LOCN  DEFN  4217            LOCATION COUNTER FOR INSTRUCTIONS       001 26 0
1   MAMAX DEFN  4227            END OF ASSOCIATIVE MEMORY               001 27 0
1   MSIZE DEFN  4999            MEMORY SIZE                              01 28 0
1         REM                                                            01 29 0
1         REM                                                            01 30 0
1         LOCN  0000                                                     01 31 0
1   MDUMP HLT   0               SYMBOLIC MEMORY DUMP IS ON ODD LANE     001 32 0
1         SOH                   SET INDICATOR FOR ENTIRE DUMP           001 33 0
1         BOF   *+2                                                      01 34 0
1         IFL   T+,51,3                                                  01 35 0
1         MRW 4 OT+10                                                    01 36 0
1         STA   A                                                        01 37 0
1         STB   B                                                        01 38 0
1         LBC   *+1                                                      01 39 0
1         NOP   LOD1-100                                                 01 40 0
1         MOW 4 0,OT,4                                                   01 41 0
1         MRD 4 100,OT,3,BMOD                                            01 42 0
1         BUN   100                                                      01 43 0
1   A     HLT                                                            01 44 0
1   B     HLT   MSIZE+1                                                  01 45 0
1         REM                                                            01 46 0
1         REM                                                            01 47 0
1   MLOAD LDB   0                                                        01 48 0
1         STB   B+,04           GET EXIT LINE                            01 49 0
1         MLS 4 OT              POSITION TAPE SO THAT                    01 50 0
1         MPF 4 OT,1            SEGMENTATION WILL WORK                   01 51 0
1         LDB   B                                                        01 52 0
1         SOR                                                            01 53 0
1         FDV   *                                                        01 54 0
1         CAD   A                                                        01 55 0
1   *T    NOP   *+1                                                      01 56 0
1         STB   T-,51                                                    01 57 0
1   *B    BUN   *               RETURN TO PROGRAM                        01 58 0
1         REM                                                            01 59 0
1         REM                                                            01 60 0
1         LDB   *+2                                                      01 61 0
1         RTF   A,1                                                      01 62 0
1   ZERO  RTF   199,100         ZERO MEMORY                              01 63 0
1         STB   A               BEFORE LOADING PROGRAM                   01 64 0
1         CFR   A,04                                                     01 65 0
1         BCU   ZERO                                                     01 66 0
1   LOADP MRD 4 100,OT,1                                                 01 67 0
1         LDR   X+                                                       01 68 0
1         STR   M+                                                       01 69 0
1         LBC   *+1                                                      01 70 0
1         CLA   100                                                      01 71 0
1   *A    ADD - 200                                                      01 72 0
1         ADD - 201                                                      01 73 0
1         ADD - 202                                                      01 74 0
1         ADD - 203                                                      01 75 0
1         ADD - 204             SUM CHECK THE BLOCK                      01 76 0
1         IBB   A-,5                                                     01 77 0
1         BOF   *+1                                                      01 78 0
1         BZA   M+                                                       01 79 0
1         SPO   Q1+,4           IF IT DOES NOT                           01 80 0
1         F424  9669,0,9669     SAY SO AND HALT                          01 81 0
1         MPB 4 OT,1            TRY AGAIN                                01 82 0
1         BUN   LOADP                                                    01 83 0
1         REM                                                            01 84 0
1         REM                                                            01 85 0
1   *M    CAD   101             GET BUFFER ENTRY                         01 86 0
1         LDB   M-                                                       01 87 0
1         BSA   C+,4            IS IT A RTF(IF NOT, ALL INSTRUCTIONS    001 88 0
1         REM                                                            01 89 0
1         CLL   Z+              ARE LOADED SO PROCESS FIX-UPS           001 90 0
1         IFL   Z+,02,99                                                 01 91 0
1   *A    DLB   Z+,04,1                                                  01 92 0
1         LDR - 100             IF FIX-UP HAS A SIGN OF 8 IT INDICATES  001 93 0
1         BFR   B+,12,80        END OF SOME SEGMENT                      01 94 0
1         BZR   LOADP                                                    01 95 0
1         DLB - 100,64,0        DO FIX-UP                                01 96 0
1         STR - 0,04                                                     01 97 0
1         BUN   A-                                                       01 98 0
1         REM                                                            01 99 0
1         REM                                                            02 00 0
1   *C    STA   R+,66                                                    02 01 0
1         DBB   0,9999          INSTRUCTIONS ARE TRANSFERED TO          002 02 0
1         STB   R+,04           MEMORY WITH A RTF                        02 03 0
1         LDB - 9999                                                     02 04 0
1   *R    RTF   0,100                                                    02 05 0
1         SRT   7                                                        02 06 0
1         ADD   O+              GO GET NEXT RTF                          02 07 0
1         ADL   M-                                                       02 08 0
1         BUN   M-                                                       02 09 0
1   *X    CAD   101                                                      02 10 0
1   *O    HLT   1                                                        02 11 0
1   *Z    HLT   99              FIX-UP COUNTER                           02 12 0
1         REM                                                            02 13 0
1         REM                                                            02 14 0
1   *B    CFR   SECT,67         HAVE WE LOADED ALL OF THE                02 15 0
1         BCU   A-              SEGMENT INDICATED BY SECT                02 16 0
1   LODOX BUN   200                                                      02 17 0
1         REM                                                            02 18 0
1         REM                                                            02 19 0
1   *V    HLT   1111                                                     02 20 0
1   LODOV LDB   LODOX                                                    02 21 0
1         CAD - 0                                                        02 22 0
1         EXT   V-                                                       02 23 0
1         SLA   4                                                        02 24 0
1         STA   SECT,00         GET SEGMENT NUMBER                       02 25 0
1         IFL   LODOX,04,1      ADVANCE EXIT LINE BY ONE                 02 26 0
1         CLB                                                            02 27 0
1   *B    MTS 4 SECT,OT         SEARCH FOR SEGMENT                       02 28 0
1         MRD 4 100,OT,1                                                 02 29 0
1         CAD   100                                                      02 30 0
1         CFA   SECT,00         DID THE MACHINE WORK                     02 31 0
1         BCE   LOADP+1         IF YES,LOAD THE SEGMENT                  02 32 0
1         SPO   Q2+,3           IF NOT PRINT THE MESSAGE                 02 33 0
1         F424  9669,0,9669         SEGMENT ERROR                        02 34 0
1         BUN   B-              TRY AGAIN                                02 35 0
1         REM                                                            02 36 0
1   SECT  HLT 8 0               SEGMENT NUMBER                           02 37 0
1         REM                                                            02 38 0
1   *Q1   CNST  21602020202                                              02 39 0
1         CNST  24348454352                                              02 40 0
1         CNST  20062645400                                              02 41 0
1         CNST  24559595659                                              02 42 0
1   *Q2   CNST  21662454754                                              02 43 0
1         CNST  24555630045                                              02 44 0
1         CNST  25959565902                                              02 45 0
1         REM                                                            02 46 0
1         REM                                                            02 47 0
1         LOCN  100                                                      02 48 0
1         HLT   0                                                        02 49 0
1   FMT1  FBGR  INPUT,16(P5A),P10Z                                       02 50 0
1   FMT3  FBGR  PRINT,49B,T5A,T1A1B2A4Z,T10N,T8Z1A,XB6Z2A,48B MONITOR   002 51 0
1   FMT4  FBGR  PRINT,32B,11(T5A),33B        ERROR MESSAGE FORMAT BAND  002 52 0
1   TAB   DEFN  *                                                        02 53 0
1         LOCN  200                                                      02 54 0
1         HLT   0                                                        02 55 0
1   FMT5  FBGR  PRINT,24(T5A)                PRINTER-PUNCH FORMAT BAND  002 56 0
1         REM                                                            02 57 0
1   LOADL CRI 4 *+2,1           LOADER ENTRANCE                          02 58 0
1         BUN   LOADC                                                    02 59 0
1         CRF 4 FMT1+28,51      LOAD INPUT FORMAT IF READY              002 60 0
1   LOADC STB   200,55                                                   02 61 0
1   *A    IFL   200,54,1                                                 02 62 0
1         BOF   A+                                                       02 63 0
1         CWI 4 A+,2                                                     02 64 0
1         BUN   A-                                                       02 65 0
1   *A    CWI 4 *+2,2                                                    02 66 0
1         BUN   *+4                                                      02 67 0
1         CWF 4 FMT3+28,32      LOAD PRINTER FORMATS IF PRINTER READY   002 68 0
1         CWF 4 FMT4+28,42                                               02 69 0
1         CWF 4 FMT5+28,52                                               02 70 0
1         CWI 4 *+2,1                                                    02 71 0
1         BUN   *+2                                                      02 72 0
1         CWF 4 FMT5+28,51      LOAD PUNCH FORMAT IF PUNCH IS READY     002 73 0
1         LDR   B                                                        02 74 0
1         BUN   ZERO-2                                                   02 75 0
1         REM                                                            02 76 0
1         REM                                                            02 77 0
1         LOCN  700                                                      02 78 0
1         REM                                                            02 79 0
1         BCS   *+3,4                                                    02 80 0
1         STP 4 9898,1642                                                02 81 0
1         BUN 4 9898,IMAGE                                               02 82 0
1         MRD 4 0900,T,7                                                 02 83 0
1         MRD 4 1600,T,0                                                 02 84 0
1         MRD 4 2600,T,0                                                 02 85 0
1         CLA   3200                                                     02 86 0
1         LBC   *-1                                                      02 87 0
1         ADD - 3600                                                     02 88 0
1         ADD - 3601                                                     02 89 0
1         ADD - 3602                                                     02 90 0
1         ADD - 3603                                                     02 91 0
1         ADD - 3604                                                     02 92 0
1         ADD - 3605                                                     02 93 0
1         ADD - 3606                                                     02 94 0
1         ADD - 3607                                                     02 95 0
1         ADD - 3608                                                     02 96 0
1         ADD - 3609                                                     02 97 0
1         IBB   *-10,10                                                  02 98 0
1         BOF   *+1                                                      02 99 0
1         BZA   A+              IF IT DOES NOT      PRINT                03 00 0
1         SPO   CSERR,4         CHECK SUM ERROR                          03 01 0
1         F424  9669,0,9669                                              03 02 0
1         MPB 4 T,2                                                      03 03 0
1         MPB 4 T,10                                                     03 04 0
1         MPB 4 T,10                                                     03 05 0
1         MPB 4 T,10                                                     03 06 0
1         MRD 4 400,T,10        TRY AGAIN                                03 07 0
1         MRD 4 1400,T,10                                                03 08 0
1         MRD 4 2400,T,10                                                03 09 0
1         MRD 4 3400,T,2                                                 03 10 0
1         BUN   707                                                      03 11 0
1         REM                                                            03 12 0
1         REM                                                            03 13 0
1   *A    CWF 4 ERFRM+28,42                                              03 14 0
1         LDB   DUMBS                                                    03 15 0
1         IBB   A+,9999                                                  03 16 0
1         LDB   +SCRTB+117                                               03 17 0
1         STP   LIBRX                                                    03 18 0
1         BUN   LIBRF                                                    03 19 0
1   *A    CAD   HALT1           SET THE X X UP IF AN ERROR               03 20 0
1         BSA   *+3,8             OCCURRED DURING COMPILATION            03 21 0
1         LDR   +525005250                                               03 22 0
1         STR   HALT                                                     03 23 0
1         LDB   OP                                                       03 24 0
1   *A    STB   C+,04           TEST FOR OP STACK EMPTY                  03 25 0
1         IBB   A+,9999         IT SHOULD BE                             03 26 0
1         STP   WEMX                                                     03 27 0
1         BUN   WEM                                                      03 28 0
1         CNST  30102030000     EXTRA LEFT PARENTHESIS                   03 29 0
1         LDB   C+                                                       03 30 0
1         LDB - 0                                                        03 31 0
1         BUN   A-                                                       03 32 0
1   *C    HLT   0                                                        03 33 0
1         REM                                                            03 34 0
1         REM                                                            03 35 0
1   *A    CAD   BUF             DUMP BUFFER IF SEGMENTATION WAS USED    003 36 0
1         BFA   A+,64,0         AND BUFFER IS NOT EMPTY                  03 37 0
1         CAD   BUF+99                                                   03 38 0
1         ADD   BUF+98                                                   03 39 0
1         BZA   *+3                                                      03 40 0
1         STP   WRITX                                                    03 41 0
1         BUN   WRIT5                                                    03 42 0
1         CAD   BUF             INCREASE SEGMENT NUMBER                  03 43 0
1         CLL   BUF                                                      03 44 0
1         STA   BUF,64                                                   03 45 0
1         IFL   BUF,64,1                                                 03 46 0
1         BUN   C+                                                       03 47 0
1   *A    LDR   +9669009669     GENERATE BIG X X HALT                    03 48 0
1         STR   INSTR                                                    03 49 0
1         STP   WRITX                                                    03 50 0
1         BUN   WRIT2                                                    03 51 0
1         LDR   +1000600000     FOLLOWED BY A CARD READ                  03 52 0
1         STR   INSTR           IF NOT USING SEGMENTATION                03 53 0
1         STP   WRITX                                                    03 54 0
1         BUN   WRIT2                                                    03 55 0
1         REM                                                            03 56 0
1         REM                                                            03 57 0
1   *C    LDR   $POOL$                                                   03 58 0
1         STR   EXPLN                                                    03 59 0
1   *C    LDB   *+1                                                      03 60 0
1         CAD   XZERO                                                    03 61 0
1   *A    STA   HOLD                                                     03 62 0
1         BFA   B+,64,0                                                  03 63 0
1         SRA   4                                                        03 64 0
1         LDR - 1                                                        03 65 0
1         STP   WRITX           OUTPUT ALL CONSTANTS USED BY             03 66 0
1         BUN   WRIT3           OBJECT PROGRAM                           03 67 0
1         CAD   HOLD                                                     03 68 0
1   *B    BFA   C+,04,0         XXXX  2R YYYY LINK  R=0 FLOATING         03 69 0
1         LDB   HOLD            XXXX+1  (CONSTANT)  R=1 INTEGER          03 70 0
1         CAD - 0               YYY  IS THE ASIGNMENT                    03 71 0
1         BUN   A-              LINK=0 INDICATES END OF LIST             03 72 0
1   *C    LDB   *+1                                                      03 73 0
1         CAD   FZERO           PROCESS FLOATING LIST                    03 74 0
1         STP   B-                                                       03 75 0
1         BUN   A-                                                       03 76 0
1         REM                                                            03 77 0
1         REM                                                            03 78 0
1         CLL   EXPLN                                                    03 79 0
1         MLS 4 T                                                        03 80 0
1         MIB 4 *+2,T                                                    03 81 0
1         BUN   *-1                                                      03 82 0
1         MRD 4 LBRT,T,3        READ LIBRARY TABLE                       03 83 0
1         DFL   WRT10,11,9      CHANGE CONTROL SWITCH FOR EXTERNAL      003 84 0
1         DFL   FXUPY,11,9                                               03 85 0
1         LDB   EPSLN              PROGRAMS                              03 86 0
1         STP   EXTEX           PROCESS EXTERNAL PROGRAMS IF EPSLN      003 87 0
1         DBB   EXTP,1             IS NON-ZERO                           03 88 0
1         DFL   WRT10,11,2      CHANGE CONTROL SWITCH FOR LIBRARY       003 89 0
1         DFL   FXUPY,11,2                                               03 90 0
1         CAD   +545600         MODIFY ERROR MESSAGE FOR LIBRARY        003 91 0
1         STA   CNST9,06        TO READ  UNDEFINED EQUIVALENCE LIBRARY  003 92 0
1         REM                                     INCORRECT              03 93 0
1         REM                                                            03 94 0
1         REM                                                            03 95 0
1   *F    CLL   TST                                                      03 96 0
1         CLB                                                            03 97 0
1         CAD   LOCN                                                     03 98 0
1         STA   LCHOD                                                    03 99 0
1         DBB   *+1,9999-LBRT   START AT LBRT+1                          04 00 0
1   *E    STB   I                                                        04 01 0
1         CAD - 0                                                        04 02 0
1         BSA   A+,1                                                    004 03 0
1         BZA   B+              END OF THIS PASS ON THE TABLE           004 04 0
1         STA   J,00                                                    004 05 0
1         DLB   J,64,0                                                   04 06 0
1         CAD - 0                                                        04 07 0
1         BFA   A+,11,3         IS THE ROUTINE ASSIGNED                  04 08 0
1         LDB   I                     IF YES                             04 09 0
1         IFL - 0,12,10         MARK IT WITH A SIGN OF 1                 04 10 0
1         BUN   C+                                                       04 11 0
1   *D    DLB   J,64,0                                                   04 12 0
1         CAD - 0                                                        04 13 0
1         BFA   C+,11,4                                                  04 14 0
1         IFL   TST,00,1        ASSIGN SUBROUTINE IF IT HAS NOT          04 15 0
1         STP   LIBRX           ALREADY ASSIGNED,  TST COUNTS NUMBER    004 16 0
1         BUN   LIBRF           OF SUBROUTINES ASSIGNED ON THIS PASS    004 17 0
1   *C    LDB   J               THRU TABLE                               04 18 0
1         IBB   A+,9999         SEQUENCE DOWN LIST OF REQUIRED           04 19 0
1         CAD - 1                    SUBROUTINES                         04 20 0
1         STA   J                                                        04 21 0
1         BUN   D-                                                       04 22 0
1   *A    LDB   I               ADVANCE TO NEXT TABLE ENTRY              04 23 0
1         IBB   E-,1                                                     04 24 0
1   *B    LDB   TST             IF 1 ADDITIONAL SUBROUTINE WAS ASSIGNED 004 25 0
1         DBB   F-,1            ANOTHER PASS THRU TABLE IS NECESSARY    004 26 0
1         REM                                                            04 27 0
1         REM                                                            04 28 0
1   *E    DEFN  *                                                        04 29 0
1   *F    DLB   II,44,0                                                  04 30 0
1         CAD - LBRT                                                     04 31 0
1         BFA   A+,00,0         END OF LIBRARY TABLE                     04 32 0
1         BSA   B+,1            IF ENTRY WAS MARKED PROCESS THIS        004 33 0
1   *C    IFL   II,44,1         ROUTINE                                  04 34 0
1         BUN   F-                                                       04 35 0
1   *B    DLB - LBRT,64,0                                                04 36 0
1         CAD - 0               GET OPERAND OF ROUTINE TO BE PROCESSED  004 37 0
1         DLB   *,44,0          POSITION TAPE TO BEGINNING OF ROUTINE   004 38 0
1         MFS   II,T                                                     04 39 0
1         STA   LOCN,64         SETUP LOCATION COUNTER                   04 40 0
1         SLA   2                                                        04 41 0
1         STA   MSK,44          AND MASK FOR RELOCATION OF INSTRUCTIONS 004 42 0
1         SRA   6                                                        04 43 0
1         STA   MSK,04                                                   04 44 0
1         CLL   EQTAB-1         CLEAR EQUIVALENCE TABLE                  04 45 0
1         LDB   +EQTAB                                                   04 46 0
1         RTF   EQTAB-1,100                                              04 47 0
1         CLL   JJ                                                       04 48 0
1         IFL   JJ,02,2                                                  04 49 0
1         MLS 4 T                                                        04 50 0
1         MIB 4 *+2,T                                                    04 51 0
1         BUN   *-1                                                      04 52 0
1         MRD 4 BUFR,T,1                                                 04 53 0
1         CAD   BUFR            DID WE FIND THE RIGHT BLOCK              04 54 0
1         CFA   II                                                       04 55 0
1         BCE   E+                                                       04 56 0
1         SPO   SRERR,3                                                  04 57 0
1         F424  9669,0,9669                                              04 58 0
1         BUN   B-                                                       04 59 0
1   *G    CLL   JJ                                                       04 60 0
1         IFL   JJ,02,2                                                  04 61 0
1         MLS 4 T                                                        04 62 0
1         MIB 4 *+2,T                                                    04 63 0
1         BUN   *-1                                                      04 64 0
1         MRD 4 BUFR,T,1                                                 04 65 0
1   *E    LDB   *+1                                                      04 66 0
1         CLA   98                                                       04 67 0
1         ADD - BUFR+1                                                   04 68 0
1         DBB   *-1,1           CHECK SUM                                04 69 0
1         BOF   *+1                                                      04 70 0
1         BZA   D+                                                       04 71 0
1         SPO   CSERR,4                                                  04 72 0
1         F424  9669,0,9669                                              04 73 0
1         MPB 4 T,1                                                      04 74 0
1         BUN   G-                                                       04 75 0
1         REM                                                            04 76 0
1         REM                                                            04 77 0
1   *D    LDB   JJ                                                       04 78 0
1         CAD - BUFR-1                                                   04 79 0
1         STA   INSTR                                                    04 80 0
1         STP   LBSBX           PROCESS INSTRUCTION IN BUFFER            04 81 0
1         BUN   LBSB                                                     04 82 0
1         BUN   C-              END OF LIBRARY PROCEDURE                 04 83 0
1         IFL   JJ,02,1                                                  04 84 0
1         BOF   G-              END OF TAPE BLOCK                        04 85 0
1         BUN   D-                                                       04 86 0
1         REM                                                            04 87 0
1         REM                                                            04 88 0
1   *A    MIB 4 *+2,T                                                    04 89 0
1         BUN   *-1                                                      04 90 0
1         MRW 4 T                                                        04 91 0
1         CLA                   EMIT AN END OF                           04 92 0
1         LSA   8               PROGRAM SIGNAL FOR LOADER               004 93 0
1         STP   FXUPX                                                    04 94 0
1         BUN   FXUP                                                     04 95 0
1         CAD   BUF+98                                                   04 96 0
1         BSA   *+2,8                                                    04 97 0
1         BZA   *+3                                                      04 98 0
1         STP   WRITX           DUMP BUFFER IF NOT EMPTY                 04 99 0
1         BUN   WRIT5                                                    05 00 0
1         CAD   +9999999999                                              05 01 0
1         STA   BUF             OUTPUT A SENTINEL BLOCK                  05 02 0
1         STP   WRITX                                                    05 03 0
1         BUN   WRIT5                                                    05 04 0
1         MIB 4 *+2,OT                                                   05 05 0
1         BUN   *-1                                                      05 06 0
1         MRW 4 OT                                                       05 07 0
1         REM                                                            05 08 0
1         REM                                                            05 09 0
1         REM   COMMENT                                                  05 10 0
1         REM   SEARCH FOR UNDEFINED LABELS AND EXTERNAL PROGRAMS        05 11 0
1         REM   WORD= T LL SSSS LINK    LL= LENGTH OF IDENTIFIER         05 12 0
1         REM                  T=2  FOR A NUMERIC LABLE                  05 13 0
1         REM         SSSS  =     V TR ASIGN 0000                        05 14 0
1         REM         SSSS+1=     (FIRST FIVE CHARACTERS OF IDENTIFIER)  05 15 0
1         REM         SSSS+2=     (NEXT FIVE CHARACTERS)                 05 16 0
1         REM   WE ARE LOOKING FOR THE CASES                             05 17 0
1         REM   (T=9, ASIGN=0) OR (V=9, T=8,9, ASIGN=0)                  05 18 0
1         REM                                                            05 19 0
1   *E    LDB   Z+                                                       05 20 0
1         CAD - SCRTB           GET HEAD OF STACK                        05 21 0
1   *D    STA   Y+                                                       05 22 0
1         DLB   Y+,64,0                                                  05 23 0
1         IBB   A+,9999         STACK HAS NO ENTRIES                     05 24 0
1         BOF   *+1                                                      05 25 0
1         IFL   Y+,12,90        SET OVERFLOW IF                          05 26 0
1         CAD - 1               OPERAND IS A NUMERIC LABEL               05 27 0
1         BSA   E+,8            EXTERNAL PROGRAM                         05 28 0
1         BFA   B+,11,9         IS IT A LABEL                            05 29 0
1   *C    LDB   Y+              SEQUENCE DOWN STACK                      05 30 0
1         LDR   +34353600                                                05 31 0
1         STR   CNST8,08                                                 05 32 0
1         CAD - 0                                                        05 33 0
1         DBB   D-,1000         IF LINK IS LESS THAN 1000                05 34 0
1   *A    DFL   Z+,02,1         SKIP TO NEXT STACK                       05 35 0
1         BRP   E-                                                       05 36 0
1         BUN   OUT             END OF SCRAMBLE TABLE                    05 37 0
1   *B    BFA   *+2,64,0        HAS LABEL BEEN ASSIGNED                  05 38 0
1         BUN   C-                                                       05 39 0
1         DFL   Y+,22,11        SET REPEAT IF IDENTIFIER                 05 40 0
1         CAD - 2               IS LONGER THAN 5 CHARACTERS              05 41 0
1         LDR - 3                                                        05 42 0
1         LSA   3                                                         5 43 0
1         BRP   *+2                                                      05 44 0
1         CLR                                                            05 45 0
1         BOF   NMBRL           NUMERIC LABEL                            05 46 0
1         STA   DICT+35                                                  05 47 0
1         STR   DICT+36                                                  05 48 0
1   PRNT  STP   WEMX                                                     05 49 0
1         BUN   WEM                                                      05 50 0
1   CNST8 CNST  33234353600     UNDIFENED LABEL (EXT PROGRAM) L          05 51 0
1         BUN   C-                                                       05 52 0
1   *E    BOF   *+1                                                      05 53 0
1         BFA   *+3,11,8                                                 05 54 0
1         BFA   B-+2,12,89                                               05 55 0
1         BUN   C-                                                       05 56 0
1         LDR   +10123536                                                05 57 0
1         STR   CNST8,08                                                 05 58 0
1         BUN   B-                                                       05 59 0
1         REM                                                            05 60 0
1         REM                                                            05 61 0
1   NMBRL LSA   0               CONVERT INTEGER                          05 62 0
1         SRT   10              TO ALFANUMERIC CODE                      05 63 0
1   *B    SLT   1                                                        05 64 0
1         ADD   +80                                                      05 65 0
1         BFA   A+,11,8                                                  05 66 0
1         SLA   1                                                        05 67 0
1         BUN   B-                                                       05 68 0
1   *A    STA   DICT+35                                                  05 69 0
1         IFL   DICT+35,12,30                                            05 70 0
1         CLA                                                            05 71 0
1   *B    SLT   1                                                        05 72 0
1         ADD   +80                                                      05 73 0
1         BFA   A+,11,8                                                  05 74 0
1         SLA   1                                                        05 75 0
1         BUN   B-                                                       05 76 0
1   *A    STA   DICT+36                                                  05 77 0
1         BUN   PRNT                                                     05 78 0
1   *Y    HLT   0               PRESENT OPERAND                          05 79 0
1   *Z    HLT   99              STACK COUNT                              05 80 0
1         REM                                                            05 81 0
1         REM                                                            05 82 0
1   OUT   CAD   LCHOD                                                    05 83 0
1         CFA   LCMAX,64                                                 05 84 0
1         BCH   *+2                                                      05 85 0
1         CAD   LCMAX                                                    05 86 0
1         SUB   +10000                                                   05 87 0
1         SRT   8                                                        05 88 0
1         BOF   *+1                                                      05 89 0
1   *B    CLA   300                                                      05 90 0
1   *C    ADD   +8                                                       05 91 0
1         SLT   1                                                        05 92 0
1         SLA   1                                                        05 93 0
1         DFL   B-,81,1                                                  05 94 0
1         BRP   C-                                                       05 95 0
1         SLA   1                                                        05 96 0
1         STA   DICT+35                                                  05 97 0
1         CAD   VARB            SET UP CONSTANTS                         05 98 0
1         ADD   +1              IN ALFANUMERIC FORMAT                    05 99 0
1         BPA   *+2                                                      06 00 0
1         CLA                                                            06 01 0
1         SRT   4                                                        06 02 0
1   *C    CLA   3                                                        06 03 0
1   *B    ADD   +8                                                        6 04 0
1         SLT   1                                                        06 05 0
1         SLA   1                                                        06 06 0
1         DFL   C-,01,1                                                  06 07 0
1         BRP   B-                                                       06 08 0
1         SLA   1               IF NOT PCS(4)                            06 09 0
1         STA   DICT+36         PRINT MESSAGES                           06 10 0
1         BCS   A+,4                                                     06 11 0
1         CAD   DICT+36                                                  06 12 0
1         CFA   DICT+35,88                                               06 13 0
1         BCH   *+4                                                      06 14 0
1         STP   WEMX                                                     06 15 0
1         BUN   WEM                                                      06 16 0
1         CNST  36866707147                                              06 17 0
1         STP   WEMX                                                     06 18 0
1         BUN   WEM+2                                                    06 19 0
1         CNST  34547495036     COMPILED PROGRAM ENDS AT XXXX            06 20 0
1         STP   WEMX                                                     06 21 0
1         BUN   WEM+2                                                    06 22 0
1         CNST  34751535037     PROGRAM VARIABLES START AT XXXX          06 23 0
1   *A    LDB   DUMBS                                                    06 24 0
1         DBB   MONST,1         GO GENERATE SYMBOLIC DUMP                06 25 0
1         REM                                                            06 26 0
1         REM                                                            06 27 0
1         REM                                                            06 28 0
1   LDBG  CAD   HALT                                                     06 29 0
1         BFA   *+4,31,5                                                 06 30 0
1         STP 4 9898,0916                                                06 31 0
1         BUN 4 9898,IFERR                                               06 32 0
1         BUN   *+4                                                      06 33 0
1         BCS   *+3,4                                                    06 34 0
1         STP 4 9898,0916                                                06 35 0
1         BUN 4 9898,ZERSS                                              006 36 0
1         REM                                                            06 37 0
1   AGAIN DLB   FIXUP,44,0      THE FIXUP STACK CONTAINS THE             06 38 0
1         STP   REMX            FIX-UPS FOR CALLS OF EXTERNAL PROGRAMS   06 39 0
1         BUN   REM             FROM WITHIN SEGMENTS                     06 40 0
1   XT001 BUN   S+              STACK EMPTY                              06 41 0
1         LDR   +POST           A REWIND                                 06 42 0
1         STR   XT001,04        WILL BE NECESSARY                        06 43 0
1         STA   HOLD                                                     06 44 0
1         DLB   HOLD,64,0                                                06 45 0
1         CAD - 0                                                        06 46 0
1         STA   HOLD                                                     06 47 0
1         SRA   8                                                        06 48 0
1         SLA   4                                                        06 49 0
1         STA   THROW                                                    06 50 0
1         CLB                                                            06 51 0
1   MTS   MTS 4 THROW,OT        SEARCH FOR PROPER SEGMENT                06 52 0
1         MRD 4 100,OT,1                                                 06 53 0
1         CFA   100,00                                                   06 54 0
1         BCE   RDT+1                                                    06 55 0
1         SPO   SRERR,3                                                  06 56 0
1         F424  9669,0,9669                                              06 57 0
1         BUN   MTS             TRY AGAIN                                06 58 0
1         REM                                                            06 59 0
1   RDT   MRD 4 100,OT,1                                                 06 60 0
1         CLA   100                                                      06 61 0
1         LBC   *-1                                                      06 62 0
1   *A    ADD - 200                                                      06 63 0
1         ADD - 201                                                      06 64 0
1         ADD - 202                                                      06 65 0
1         ADD - 203                                                      06 66 0
1         ADD - 204                                                      06 67 0
1         IBB   A-,5            CHECK SUM BLOCK                          06 68 0
1         BOF   *+1                                                      06 69 0
1         BZA   A+                                                       06 70 0
1         SPO   CSERR,4                                                  06 71 0
1         F424  9669,0,9669                                              06 72 0
1         BUN   *-1                                                      06 73 0
1         REM                                                            06 74 0
1   *A    CAD   101                                                      06 75 0
1         BSA   B+,4            IN CASE IT IS NOT                        06 76 0
1         LDR   +1              GET NEXT BLOCK                           06 77 0
1         STR   A-,02                                                    06 78 0
1         BUN   RDT                                                      06 79 0
1         REM                                                            06 80 0
1         REM                                                            06 81 0
1   *B    STA   T+              CAN THE FIX-UP BE                        06 82 0
1         SLA   4               IN THIS GROUP OF INSTRUCTIONS            06 83 0
1         CFA   HOLD,64                                                  06 84 0
1         BCL   Y+              YES                                      06 85 0
1         BCE   Y+                                                       06 86 0
1   *W    CAD   T+              NO - TRY NEXT GROUP                      06 87 0
1         SRA   1                                                        06 88 0
1         STA   *+1,42                                                   06 89 0
1         IFL   A-,02,0                                                  06 90 0
1         IFL   A-,02,1         GET NEXT RTF                             06 91 0
1         BUN   A-                                                       06 92 0
1         REM                                                            06 93 0
1   *Y    CAD   T+                                                       06 94 0
1         SRA   7                                                        06 95 0
1         ADD   T+                                                       06 96 0
1         SLA   4                                                        06 97 0
1         CFA   HOLD,64         IS THE FIX-UP IN THIS GROUP              06 98 0
1         BCH   F+                                                       06 99 0
1         BUN   W-              NO                                       07 00 0
1         REM                                                            07 01 0
1   *F    MPB 4 OT,1                                                     07 02 0
1         CSU   HOLD                                                     07 03 0
1         SRA   4                                                        07 04 0
1         EXT   -1111                                                    07 05 0
1         ADL   T+              DO ACTUAL FIX-UP IN                      07 06 0
1         CAD   A-              THE BUFFER                               07 07 0
1         LBC   T+                                                       07 08 0
1         STA   A+,04                                                    07 09 0
1         DBB   *+1,9999                                                 07 10 0
1         LDR   HOLD                                                     07 11 0
1   *A    STR - 0,04                                                     07 12 0
1         CLA   100                                                      07 13 0
1         LBC   *-1                                                      07 14 0
1         CLL   199                                                      07 15 0
1   *A    SUB - 200                                                      07 16 0
1         SUB - 201                                                      07 17 0
1         SUB - 202                                                      07 18 0
1         SUB - 203                                                      07 19 0
1         SUB - 204                                                      07 20 0
1         IBB   A-,5                                                     07 21 0
1         BOF   *+1                                                      07 22 0
1         STA   199                                                      07 23 0
1         MOW 4 100,OT,1                                                 07 24 0
1         BUN   AGAIN                                                    07 25 0
1   *T    HLT   0                                                        07 26 0
1         REM                                                            07 27 0
1   POST  MIB 4 *+2,OT                                                   07 28 0
1         BUN   *-1                                                      07 29 0
1         MRW 4 OT                                                       07 30 0
1   *S    CLB                                                            07 31 0
1         RTF   SX,100                                                   07 32 0
1         RTF   SX+100,100                                               07 33 0
1         RTF   SX+200,100                                               07 34 0
1         MIB 4 *+2,OT                                                   07 35 0
1         BUN   *-1                                                      07 36 0
1         MOW 4 0,OT,3                                                   07 37 0
1         CAD   HALT                                                     07 38 0
1         BCS   A+,4            IF NOT PCS(4)                            07 39 0
1   *B    STA   *+1             HALT WITH OK OR XX IN A                  07 40 0
1         HLT   0                                                        07 41 0
1         BUN   LOADC                                                    07 42 0
1   *A    BFA   B-,31,2         IF PCS(4) HALT ONLY IF XX                07 43 0
1         BUN   LOADC                                                    07 44 0
1   II    CNST  1000000         LIBRARY INDEX NUMBER                     07 45 0
1   JJ    HLT   0               TEMP                                     07 46 0
1   MSK   HLT   0               RELOCATION MASK FOR INSTRUCTIONS         07 47 0
1         REM                                                            07 48 0
1         REM   PROCESS EXTERNAL PROGRAMS                                07 49 0
1         REM                                                            07 50 0
1         REM                                                            07 51 0
1   EXTP  CAD   LOCN                                                     07 52 0
1         CFA   LCMAX                                                    07 53 0
1         BCH   *+2                                                      07 54 0
1         CAD   LCMAX                                                    07 55 0
1         STA   LOCN            LOCN=MAX(LCMAX,LOCN)                     07 56 0
1   NAME  CLL   EQTAB-1                                                  07 57 0
1         LDB   +EQTAB          CLEAR EQUIVALENCE TABLE                  07 58 0
1         RTF   EQTAB-1,100                                              07 59 0
1         CLL   LEVEL                                                    07 60 0
1   *Z    STP   READX           READ NAME CARD OF EXTERNAL PROGRAM      007 61 0
1         BUN   READ                                                     07 62 0
1         CAD   LOCN                                                     07 63 0
1         STA   CRD-1                                                    07 64 0
1         CAD   CRD                                                      07 65 0
1         BSA   A+,2                                                     07 66 0
1         STP   WEMX                                                     07 67 0
1         BUN   WEM                                                      07 68 0
1         CNST  3060809000      MISSING NAME CARD                        07 69 0
1         BUN   Z-                                                       07 70 0
1   *A    BCS   *+2,3                                                    07 71 0
1         BCS   *+3,4                                                    07 72 0
1         STP 4 9898,1602                                                07 73 0
1         BUN 4 9898,CRD                                                 07 74 0
1   *A    STP   SCANX                                                    07 75 0
1         BUN   SCAN                                                     07 76 0
1         CAD   SYMBL                                                    07 77 0
1         CFA   $FINIS$,00                                               07 78 0
1         BCU   *+5                                                      07 79 0
1         CAD   SYMBL+1                                                  07 80 0
1         CFA   $H$,00                                                   07 81 0
1   EXTEX BCE   *                                                        07 82 0
1         CAD   SYMBL                                                    07 83 0
1         BSA   B+,2            IS THIS A PREFIX                         07 84 0
1         SRT   10                                                       07 85 0
1         DIV   +99                                                      07 86 0
1         STR   LL0                                                      07 87 0
1         CAD   LEVEL                                                    07 88 0
1         STP   SRCHX           SEARCH FOR SYMBOL                        07 89 0
1         BUN   SRCH                                                     07 90 0
1         BUN   Y+              COULD NOT FIND IT                        07 91 0
1         CAD   L                                                        07 92 0
1         SLA   2                                                        07 93 0
1         STA   EQTAB-1,44      PUT LOCATION OF OPERAND OF THE EXTERNAL 007 94 0
1         CAD   LOCN            PROGRAM INTO EQTAB-1                     07 95 0
1         SRA   4                                                        07 96 0
1         STA   EQTAB-1,04      ALSO THE ASSIGNMENT                      07 97 0
1         STA   MSK,04                                                   07 98 0
1         SLA   6                                                        07 99 0
1         STA   MSK,44          SET UP A MASK FOR RELOCATION             08 00 0
1         DLB   L,64,0          OF INSTRUCTIONS                          08 01 0
1         CAD - 0                                                        08 02 0
1         BFA   C+,11,9         EXTERNAL STATEMENT                       08 03 0
1         BFA   E+,11,8         EXTERNAL PROCEDURE                       08 04 0
1   *Y    STP   WEMX                                                     08 05 0
1         BUN   WEM                                                      08 06 0
1         CNST  31047141500     EXTERNAL PROGRAM NOT DECLARED            08 07 0
1         BUN   A+                                                       08 08 0
1   *B    SRT   10                                                       08 09 0
1         DIV   +99                                                      08 10 0
1         STR   LL0                                                      08 11 0
1         CLA                                                            08 12 0
1         STP   SRCHX           SEARCH FOR OPERAND OF PREFIX PROCEDURE  008 13 0
1         BUN   SRCH                                                     08 14 0
1         BUN   F+                                                       08 15 0
1         DLB   L,64,0                                                   08 16 0
1         CAD - 0                                                        08 17 0
1         BFA   B+,11,8         DID WE GET A PROCEDURE                   08 18 0
1   *F    STP   WEMX                                                     08 19 0
1         BUN   WEM                                                      08 20 0
1         CNST  31712141500     PREFIX PROCEDURE NOT DECLARED            08 21 0
1         BUN   A-                                                       08 22 0
1   *B    STA   LEVEL,02                                                 08 23 0
1         BUN   A-                                                       08 24 0
1         REM                                                            08 25 0
1         REM                                                            08 26 0
1   *C    DLB   L,64,0                                                   08 27 0
1         CAD - 0                                                        08 28 0
1         STA   HOLD                                                     08 29 0
1         SLA   2                                                        08 30 0
1         STA   EQTAB-1,44                                               08 31 0
1         STP   REMX                                                     08 32 0
1         BUN   REM                                                      08 33 0
1         HLT                                                            08 34 0
1         SLA   4                                                        08 35 0
1         STA   HOLD,22                                                  08 36 0
1         CAD   HOLD                                                     08 37 0
1         BFA   S+,22,00                                                 08 38 0
1         EXT   +1111110000                                              08 39 0
1         SLA   4               IT WAS - SO ENTER INTO THE FIXUP STACK  008 40 0
1         ADD   LOCN                                                     08 41 0
1         SLA   6               LL XXXX YYYY                             08 42 0
1         STA   HOLD                                                     08 43 0
1         LDB   AVALE           WHERE      LL= SEGMENT NUMBER           008 44 0
1         STP   INSX                 XXXX= LOCATION TO BE FIXED UP      008 45 0
1         BUN   INS                  YYYY= FIX-UP                        08 46 0
1         CAD   HOLD                                                     08 47 0
1         STA - 0                                                        08 48 0
1         STB   HOLD                                                     08 49 0
1         CAD   HOLD                                                     08 50 0
1         SLA   4                                                        08 51 0
1         DLB   FIXUP,44,0                                               08 52 0
1         STP   INSX                                                     08 53 0
1         BUN   INS                                                      08 54 0
1         BUN   *+4                                                      08 55 0
1   *S    LSA   0                                                        08 56 0
1         STP   FXUPX           GENERATE FIX-UP FOR EXTERNAL             08 57 0
1         BUN   FXUP                     STATEMENT                       08 58 0
1         DLB   L,64,00                                                  08 59 0
1         REM                                                            08 60 0
1         REM                                                            08 61 0
1   *E    STP   REMX            REMOVE NEXT FIX-UP FROM LIST OF          08 62 0
1         BUN   REM             ALL CALLS OF THE DECLARED PROCEDURE     008 63 0
1         BUN   D+                     LIST IS EXHAUSTED                 08 64 0
1         BSA   T+,8                                                     08 65 0
1         BFA   S+,22,0         IS FIX-UP FOR CALL WITHIN A SEGMENT     008 66 0
1         EXT   +1111110000                                              08 67 0
1         SLA   4               IT WAS -- SO ENTER                       08 68 0
1         ADD   LOCN            LL XXXX YYYY                             08 69 0
1         SLA   6               WHERE     LL= SEGMENT NUMBER             08 70 0
1         STA   HOLD                  XXXX= LOCATION TO BE FIXED UP     008 71 0
1         LDB   AVALE                 YYYY= FIX-UP                       08 72 0
1         STP   INSX                                                     08 73 0
1         BUN   INS                                                      08 74 0
1         CAD   HOLD                                                     08 75 0
1         STA - 0                                                        08 76 0
1         STB   HOLD                                                     08 77 0
1         CAD   HOLD                                                     08 78 0
1         SLA   4                                                        08 79 0
1         DLB   FIXUP,44,0                                               08 80 0
1         STP   INSX                                                     08 81 0
1         BUN   INS                                                      08 82 0
1         DLB   L,64,0                                                   08 83 0
1         BUN   E-                                                       08 84 0
1   *S    STP   FXUPX           GENERATE FIX-UP FOR EXTERNAL             08 85 0
1         BUN   FXUP                     PROCEDURE                       08 86 0
1         DLB   L,64,0                                                   08 87 0
1         BUN   E-                                                       08 88 0
1   *T    STA   HOLD                                                     08 89 0
1         DLB   L,64,0                                                   08 90 0
1         STP   REMX                                                     08 91 0
1         BUN   REM                                                      08 92 0
1         HLT                                                            08 93 0
1         EXT   +11110000                                                08 94 0
1         LDR   LOCN                                                     08 95 0
1         ADL   LOCN                                                     08 96 0
1         CSA   HOLD                                                     08 97 0
1         STR   HOLD                                                     08 98 0
1         STP   FXUPX                                                    08 99 0
1         BUN   FXUP                                                     09 00 0
1         DLB   L,64,0                                                   09 01 0
1         LDR   HOLD                                                     09 02 0
1         STR   LOCN                                                     09 03 0
1         BUN   E-                                                       09 04 0
1   *D    DLB   L,64,0                                                   09 05 0
1         CAD - 0               SET SIGN TO 8 TO INDICATE                09 06 0
1         LSA   0             THAT EXTERNAL PROGRAM HAS BEEN             09 07 0
1         STA - 0               GIVEN AN ASSIGNMENT                      09 08 0
1         CAD   LOCN            GIVE ASSIGNMENT TO THE EXTERNAL PROGRAM 009 09 0
1         STA - 0,64                                                     09 10 0
1   *A    STP   READX           READ ANOTHER CARD                        09 11 0
1         BUN   READ                                                     09 12 0
1         CLL   LEVEL                                                    09 13 0
1         CAD   CRD                                                      09 14 0
1         BSA   NUMB,0          IS THIS AN EQUIVALENCE CARD              09 15 0
1         BCS   *+2,3                                                    09 16 0
1         BCS   *+3,4                                                    09 17 0
1         STP 4 9898,1602                                                09 18 0
1         BUN 4 9898,CRD                                                 09 19 0
1   *B    STP   SCANX           IF YES SCAN FOR THE IDENTIFIER           09 20 0
1         BUN   SCAN                                                     09 21 0
1         CAD   SYMBL                                                    09 22 0
1         BSA   Z+,2            IS THE IDENTIFIER A PREFIX               09 23 0
1         SRT   10              NO IT IS NOT                             09 24 0
1         DIV   +99                                                      09 25 0
1         STR   LL0                                                      09 26 0
1         CAD   LEVEL                                                    09 27 0
1         STP   SRCHX                                                    09 28 0
1         BUN   SRCHP           SEARCH FOR OPERAND                       09 29 0
1         BUN   Y+              IT WAS NOT DEFINED                       09 30 0
1         STP   LIBRX                                                    09 31 0
1         DLB   L,64,0                                                   09 32 0
1         CAD - 0                                                        09 33 0
1         BSA   *+2,8                                                    09 34 0
1         LSA   0                                                        09 35 0
1         SRA   4                                                        09 36 0
1         STA   TEMP            GET THE ASSIGNMENT OF THE                09 37 0
1         STB   TEMP,66         REFERENCED IDENTIFIER                    09 38 0
1         IFL   TEMP,62,12                                               09 39 0
1         BFA   LIBRF,51,3      IF IT WAS AN UNASSIGNED LIBRARY          09 40 0
1         REM                   PROCEDURE- GIVE IT AN ASSIGNMENT         09 41 0
1         CAD   L                                                        09 42 0
1         SLA   2                                                        09 43 0
1         STA   TEMP,44         ALSO SAVE THE SREF OF THE IDENTIFIER    009 44 0
1         STP   SCANX                                                    09 45 0
1         BUN   SCAN                                                     09 46 0
1         LDB   SYMBL           GET EQUIVALENCE NUMBER                   09 47 0
1         DBB   Y+,100          IS IT GREATED THEN 100                   09 48 0
1         CAD   TEMP                                                     09 49 0
1         STA - EQTAB+100       PUT ENTRY INTO EQUIVALENCE TABLE         09 50 0
1         BUN   A-                                                       09 51 0
1   *Y    STP   WEMX                                                     09 52 0
1         BUN   WEM                                                      09 53 0
1         CNST  31921090000     IMPROPER EQUIVALENCE CARD                09 54 0
1         BUN   A-                                                       09 55 0
1   *Z    SRT   10                                                       09 56 0
1         DIV   +99                                                      09 57 0
1         STR   LL0                                                      09 58 0
1         CLA                                                            09 59 0
1         STP   SRCHX           GET OPERAND OF PREFIX PROCEDURE          09 60 0
1         BUN   SRCH                                                     09 61 0
1         BUN   Y-              IT WAS NOT THERE                         09 62 0
1         DLB   L,64,0                                                   09 63 0
1         CAD - 0                                                        09 64 0
1         STA   LEVEL,02        SET UP LEVEL FOR SEARCH OF PROCEDURE     09 65 0
1         BFA   B-,11,8                                                 009 66 0
1         BUN   Y-                                                       09 67 0
1         REM                                                            09 68 0
1         REM                                                            09 69 0
1   NUMB  DFL   CRD+8,01,1      DECREASE WORD COUNT                      09 70 0
1   *A    LDB   CRD                                                      09 71 0
1         CAD - CRD+10                                                   09 72 0
1         STA   INSTR           GET INSTRUCTION                          09 73 0
1         STP   LBSBX                                                    09 74 0
1         BUN   LBSB            GO DECODE INSTRUCTION                    09 75 0
1         BUN   NAME            ALL THROUGH WITH THIS EXTERNAL PROGRAM  009 76 0
1         IFL   CRD,04,1                                                 09 77 0
1         DFL   CRD+8,01,1      DECREASE WORD COUNT                      09 78 0
1         BRP   A-                                                       09 79 0
1         STP   READX           READ ANOTHER CARD                        09 80 0
1         BUN   READ                                                     09 81 0
1         CAD   CRD                                                      09 82 0
1         BSA   NUMB,0          IS THIS A INSTRUCTION CARD               09 83 0
1         STP   WEMX            IF NOT PRINT ERROR MESSAGE               09 84 0
1         BUN   WEM                                                      09 85 0
1         CNST  30624260000     MISSING FINISH PSEUDO-OP                 09 86 0
1         REM                                                            09 87 0
1         REM                                                            09 88 0
1   READ  CLL   CRD                                                      09 89 0
1         LDB   +CRD+1                                                   09 90 0
1         RTF   CRD,15          ZERO INPUT AREA                          09 91 0
1         CLL   SCNCT           SET SCAN TO COLUMN 2                     09 92 0
1         IFL   SCNCT,04,2      AND                                      09 93 0
1         STP 4 9999                                                     09 94 0
1         BUN 4 9999,CRD                                                 09 95 0
1   READX BUN   *                                                        09 96 0
1         REM                                                            09 97 0
1         REM                                                            09 98 0
1   SCAN  CLL   K                                                        09 99 0
1         CLL   SYMBL           ZERO SYMBOL STORAGE AREA                010 00 0
1         LDB   +SYMBL+1                                                010 01 0
1         RTF   SYMBL,9                                                 010 02 0
1   *A    DLB   SCNCT,94,0                                              010 03 0
1         CAD - CRD                                                     010 04 0
1         LDB   SCNCT                                                   010 05 0
1         SLA - 0               GET A CHARACTER                         010 06 0
1         SRA   8               ADVANCE COLUMN COUNT                    010 07 0
1         IFL   SCNCT,05,2                                              010 08 0
1         STA   CHAR                                                    010 09 0
1         BFA   B+,02,00        IGNORE LEADING BLANKS                   010 10 0
1         BFA   C+,02,24        INDICATES THAT A PREFIX FOLLOWS         010 11 0
1         BFA   N+,91,8         FIRST CHARACTER NUMERIC, DO NUMBER SCAN 010 12 0
1         BFA   R+,91,4         FIRST CHARACTER ALFA, BUILD IDENTIFIER  010 13 0
1         BFA   R+,91,5                                                 010 14 0
1         BFA   R+,91,6                                                 010 15 0
1         BUN   B+              IGNORE ALL OTHER CHARACTERS             010 16 0
1   *C    IFL   SYMBL,12,20                                             010 17 0
1   *B    IBB   A-,9840         DID WE FINISH THE CARD                  010 18 0
1   *D    STP   WEMX                                                    010 19 0
1         BUN   WEM                                                     010 20 0
1         CNST  30628295809     MISSING FIELD ON SYMBOLIC CARD          010 21 0
1         BUN   SCNXX                                                   010 22 0
1         REM                                                           010 23 0
1         REM                                                           010 24 0
1   *R    LBC   K               ENTER CHARACTER                         010 25 0
1         SLA - 8               INTO SYMBOL STORAGE AREA                010 26 0
1         DLB   K,94,0                                                  010 27 0
1         DBB   *+4,10          TRUNCATE IDENTIFIER TO 50 CHARACTERS    010 28 0
1         ADD - SYMBL+10                                                010 29 0
1         STA - SYMBL+10,00                                             010 30 0
1         IFL   K,05,2                                                  010 31 0
1         DLB   SCNCT,94,0                                              010 32 0
1         CAD - CRD                                                     010 33 0
1         LDB   SCNCT                                                   010 34 0
1         SLA - 0                                                       010 35 0
1         SRA   8               GET NEXT CHARACTER                      010 36 0
1         STA   CHAR                                                    010 37 0
1         IFL   SCNCT,05,2                                              010 38 0
1         DBB   D-,162          DID WE FINISH THE CAR(IF SO-ERROR)      010 39 0
1         CFA   +40,02          IS THE NEW CHARACTER                    010 40 0
1         BCH   R-              AN ALFANUMERIC                          010 41 0
1         BFA   R-,02,14                                                010 42 0
1         CAD   SYMBL                                                   010 43 0
1         BSA   SCNXX,0         TERMINATE IF OTHER CHARACTER IS FOUND   010 44 0
1         CAD   CHAR            AND WE ARE NOT SCANING A PREFIX         010 45 0
1   *E    BFA   SCNXX,02,04     TERMINATE A PREFIX SOON AS WE GET A )   010 46 0
1         DLB   SCNCT,94,0                                              010 47 0
1         CAD - CRD                                                     010 48 0
1         LDB   SCNCT                                                   010 49 0
1         SLA - 0                                                       010 50 0
1         SRA   8                                                       010 51 0
1         IFL   SCNCT,05,02     CONTINUE LOOKING FOR A )                010 52 0
1         IBB   E-,9838                                                 010 53 0
1         BUN   D-              IF WE DO NOT FIND IT  ERROR             010 54 0
1         REM                                                           010 55 0
1         REM                                                           010 56 0
1   *N    SRT   1                                                       010 57 0
1         CAD   SYMBL                                                   010 58 0
1         SLT   1                                                       010 59 0
1         STA   SYMBL           NUMBER BUILDER                          010 60 0
1         DLB   SCNCT,94,0                                              010 61 0
1         CAD - CRD                                                     010 62 0
1         LDB   SCNCT                                                   010 63 0
1         IFL   SCNCT,04,2                                              010 64 0
1         SLA - 0                                                       010 65 0
1         SRA   8                                                       010 66 0
1         BFA   N-,91,8                                                 010 67 0
1         CAD   NTAG            SET LENGTH COUNT TO 10                  010 68 0
1         STA   K               AND MARK AS A NUMERIC LABEL             010 69 0
1   SCNXX CAD   K                                                       010 70 0
1         SLA   8                                                       010 71 0
1         STA   D2D3            SET UP LENGTH                           010 72 0
1   SCANX BUN   *                                                       010 73 0
1   NTAG  CNST  20000000010                                             010 74 0
1         REM                                                           010 75 0
1         REM                                                           010 76 0
1   SRCHP BFA   A+,02,00        IF AN EQUIVALENCE CARD ENTRY IS         010 77 0
1         BUN   SRCH            AT LEVEL ZERO AND HAS LENGTH            010 78 0
1   *A    LDR   K               LESS THAN 10 -- IT MAY BE               010 79 0
1         CFR   +10,03          IN THE LIST OF SPECIAL LIBRARY          010 80 0
1         BCH   SRCH            SUBROUTINES                             010 81 0
1         LDB   I                                                       010 82 0
1         CAD   SYMBL                                                   010 83 0
1   *C    CFA - EXLBT,00                                                010 84 0
1         BCE   B+                                                      010 85 0
1         DBB   C-,2                                                    010 86 0
1   I     CLA   24                                                      010 87 0
1         BUN   SRCH            IT IS NOT SO DO NORMAL SEARCH           010 88 0
1   *B    CAD - EXLBT+1         I FOUND IT                              010 89 0
1         STA   L,64            SET UP L TO POINT TO THE OPERAND        010 90 0
1         LDB   SRCHX                                                   010 91 0
1         BUN - 1               INCREMENTED EXIT                        010 92 0
1         REM                                                           010 93 0
1         REM   PROCESSING SUBROUTINE FOR INSTRUCTIONS                  010 94 0
1         REM   IN THE LIBRARY AND EXTERNAL PROGRAMS                    010 95 0
1         REM                                                           010 96 0
1   *A    F4247 0,0,0                                                   010 97 0
1   LBSB  NOP   *               NOP-BUN SWITCH (SEE WHY BELOW)          010 98 0
1         CFA   A-                                                      010 99 0
1         BCL   Z+              INSTRUCTION IS ABSOLUTE                 011 00 0
1         BFA   Y+,62,90        PARTIAL FIELD SCAN INSTRUCTION          011 01 0
1         BFA   Y+,62,91        PARTIAL FIELD SEARCH INSTRUCTION        011 02 0
1         BSA   A+,8            ADDRESS PROGRAM RELATIVE                011 03 0
1         BSA   A+,9            ADDRESS PROGRAM RELATIVE - B MOD        011 04 0
1         BSA   B+,7            CONTROL FIELD PROGRAM RELATIVE          011 05 0
1         BSA   C+,6            ADDRESS IDENTIFIER RELATIVE             011 06 0
1         BSA   D+,5            ADDRESS IDENTIFIER RELATIVE - B MOD     011 07 0
1   LBSBX BFA   *,62,99         EXIT IF FINISH PSEUDO-OP IS FOUND       011 08 0
1         BFA   E+,62,30        RETURN FOR AN EXTERNAL STATEMENT        011 09 0
1         BFA   F+,62,00        ADVANCE LOCATION COUNTER                011 10 0
1         BFA   G+,62,12        EQUIVALENCE DEFINITION FOR LIBRARY      011 11 0
1         BFA   X2+,62,01       NEXT INSTRUCTION IS A 11 DIGIT CONSTANT 011 12 0
1         BFA   X1+,62,02       MARKS NEXT INSTRUCTION AS I-O COMMAND   011 13 0
1         BFA   X3+,62,03                                               011 14 0
1         BFA   X4+,62,04     RELOCATE CONTROL FIELD OF NEXT INSTR      011 15 0
1         STP   WEMX                                                    011 16 0
1         BUN   WEM                                                     011 17 0
1         CNST  31926000000     IMPROPER PSEUDO-OP                      011 18 0
1         BUN   X+                                                      011 19 0
1         REM                                                           011 20 0
1         REM                                                           011 21 0
1   BIGCN DFL   LBSB,62,29                                              011 22 0
1         BUN   Z+                                                      011 23 0
1         REM                                                           011 24 0
1         REM                                                           011 25 0
1   I1    CNST  41000600000     CARD READER CONSTANT                    011 26 0
1   O1    CNST  41000610000     CARD PUNCH CONSTANT                     011 27 0
1   O2    CNST  42000610000     PRINTER CONSTANT                        011 28 0
1   CHNG  BFA   I+,62,60                                                011 29 0
1         BFA   I+,62,62                                                011 30 0
1         BFA   I+,62,64                                                011 31 0
1         LDR   O1                                                      011 32 0
1         BFA   *+4,11,1                                                011 33 0
1         LDR   O2                                                      011 34 0
1         BFA   *+2,11,2                                                011 35 0
1         BUN   IOERR                                                   011 36 0
1   *S    BFA   *+4,62,61                                               011 37 0
1         BFA   S+,62,63                                                011 38 0
1         BFA   S+,62,65                                                011 39 0
1         BUN   IOERR                                                   011 40 0
1   *S    STR   INSTR,11                                                011 41 0
1         CAD   INSTR                                                   011 42 0
1         DFL   LBSB,62,29                                              011 43 0
1         BUN   LBSB                                                    011 44 0
1   *I    LDR   I1                                                      011 45 0
1         BFA   S-,11,1                                                 011 46 0
1   IOERR STP   WEMX                                                    011 47 0
1         BUN   WEM                                                     011 48 0
1         CNST  31960380000     IMPROPER CARDATRON INSTRUCTION          011 49 0
1         LDR   INSTR                                                   011 50 0
1         BUN   S-                                                      011 51 0
1         REM                                                           011 52 0
1         REM                                                           011 53 0
1   *A    DFL   INSTR,12,80     ADJUST SIGN                             011 54 0
1   *L    CAA   MSK                                                     011 55 0
1         ADA   INSTR           RELOCATE ADDRESS FIELD                  011 56 0
1         BOF   *+1                                                     011 57 0
1         STA   INSTR,04                                                011 58 0
1         BUN   Z+                                                      011 59 0
1         REM                                                           011 60 0
1   *B    DFL   INSTR,12,70     ADJUST SIGN                             011 61 0
1         SUA   MSK             RELOCATE CONTROL FIELD                  011 62 0
1         STA   INSTR,44                                                011 63 0
1         BOF   *+1                                                     011 64 0
1         BUN   Z+                                                      011 65 0
1         REM                                                           011 66 0
1   *H    HLT   0                                                       011 67 0
1   *C    DFL   INSTR,12,20     ADJUST SIGN                             011 68 0
1   *D    DFL   INSTR,12,40                                             011 69 0
1   *K    STA   H-,82                                                   011 70 0
1         DLB   H-,84,0         GET EQUIVALENCE TABLE ENTRY             011 71 0
1         CAD - EQTAB                                                   011 72 0
1         BZA   L+              IMPROPER ENTRY                          011 73 0
1         BSA   J+,8         SIGN OF 9 MEANS FORWARD REFERENCE TO       011 74 0
1         ADA   INSTR           AN EXTERNAL PROCEDURE                   011 75 0
1   *N    SUB   H-              RELOCATE ADDRESS                        011 76 0
1         STA   INSTR,04        FIELD RELATIVE TO                       011 77 0
1         DLB - EQTAB,44,0      THE EQUIVALENCE TABLE ENTRY             011 78 0
1         STP   EXPLX                                                   011 79 0
1         BUN   EXPL                                                    011 80 0
1         BUN   Z+                                                      011 81 0
1         REM                                                           011 82 0
1   *J    DLB - EQTAB,44,0      INSERT 9 KK XXXX 0000  KK=INCREMENT     011 83 0
1         STP   EXPLX                       XXXX= LOCATION FIXED UP     011 84 0
1         BUN   EXPL                                                    011 85 0
1         CAD - 0                                                       011 86 0
1         BFA   *+2,11,8                                                011 87 0
1         LDB - 0                                                       011 88 0
1         STB   H-                                                      011 89 0
1         CAA   INSTR                                                   011 90 0
1         EXT   +11                                                     011 91 0
1         ADA   ADDIT                                                   011 92 0
1         CLL   ADDIT                                                   011 93 0
1         SLA   4                                                       011 94 0
1         STP   INSX                                                    011 95 0
1         BUN   INS                                                     011 96 0
1         CAA   LOCN                                                    011 97 0
1         LSA   8                                                       011 98 0
1         LDB   H-                                                      011 99 0
1         CLL   H-                                                      012 00 0
1         STP   INSX                                                    012 01 0
1         BUN   INS                                                     012 02 0
1         CAD   INSTR                                                   012 03 0
1         CLL   INSTR                                                   012 04 0
1         STA   INSTR,67                                                012 05 0
1         BUN   Z+                                                      012 06 0
1         REM                                                           012 07 0
1   *Y    DFL   INSTR,62,40                                             012 08 0
1         BSA   Z+,4            SPECIAL CONVENTIONS FOR PARTIAL FIELD   012 09 0
1         BSA   Z+,5            SCAN AND SCEARCH(90,91 SPECIAL OPS)     012 10 0
1         DFL   INSTR,12,20     S=4,5    ADDRESS ABSOLUTE               012 11 0
1         BSA   K-,6            S=6,7    ADDRESS RELATIVE TO IDENTIFIER 012 12 0
1         BSA   K-,7            S=8,9    ADDRESS RELATIVE TO PROGRAM    012 13 0
1         DFL   INSTR,12,20                                             012 14 0
1         BUN   L-                                                      012 15 0
1         REM                                                           012 16 0
1   *F2   BUN   BIGCN                                                   012 17 0
1   *X2   LDR   F2-             SET UP FOR AN 11 DIGIT                  012 18 0
1         STR   LBSB            WHICH FOLLOWS                           012 19 0
1         BUN   X+                                                      012 20 0
1         REM                                                           012 21 0
1   *F1   BUN   CHNG                                                    012 22 0
1   *X1   LDR   F1-             SET UP FOR THE CARDATRON                012 23 0
1         STR   LBSB            INSTRUCTION WHICH FOLLOWS               012 24 0
1         BUN   X+                                                      012 25 0
1         REM                                                           012 26 0
1   *X3   LDR   INSTR                                                   012 27 0
1         STR   ADDIT,04                                                012 28 0
1         BUN   X+                                                      012 29 0
1   *X4   LDR   MSK                                                     012 30 0
1         STR   MADIT,44                                                012 31 0
1         BUN   X+                                                      012 32 0
1         REM                                                           012 33 0
1   *Z    CAA   INSTR                                                   012 34 0
1         ADA   ADDIT                                                   012 35 0
1         CLL   ADDIT                                                   012 36 0
1         STA   INSTR,04                                                012 37 0
1         CAA   INSTR                                                   012 38 0
1         ADA   MADIT                                                   012 39 0
1         STA   INSTR,44                                                012 40 0
1         CLL   MADIT                                                   012 41 0
1         STP   WRITX         OUTPUT PROCESSED INSTRUCTION              012 42 0
1         BUN   WRIT2                                                   012 43 0
1   *X    LDB   LBSBX           INCREMENTED EXIT                        012 44 0
1         BUN - 1               INDICATES NO FINISH PSEUDO-OP WAS HERE  012 45 0
1         REM                                                           012 46 0
1   *E    DLB   EQTAB-1,44,0    RETURN PSEUDO-OP FOR EXTERNAL STATEMENT 012 47 0
1         DBB   *+1,9999                                                012 48 0
1         STB   INSTR,04                                                012 49 0
1         BUN   Z-                                                      012 50 0
1         REM                                                           012 51 0
1   *F    CAA   INSTR                                                   012 52 0
1         SLA   4                                                       012 53 0
1         ADA   LOCN                                                    012 54 0
1         STA   LOCN,64                                                 012 55 0
1         BUN   X-              LOCN=LOCN+NNNN                          012 56 0
1         REM                                                           012 57 0
1   *G    DLB   INSTR,44,0      EQUIVALENCE DEFINITION FOR LIBRARY      012 58 0
1         LDR - 0               GET OPERAND FOR EQUIVALENCE DEFINITION  012 59 0
1         LDB   INSTR                                                   012 60 0
1         STA - EQTAB,66                                                012 61 0
1         SRT   4               ENTER THE OPERAND INTO EQUIVALENCE      012 62 0
1         STR - EQTAB,04        TABLE ALONG WITH ITS ASSIGNMENT         012 63 0
1         BUN   X-                                                      012 64 0
1   *L    STP   WEMX                                                    012 65 0
1         BUN   WEM                                                     012 66 0
1   CNST9 CNST  33221000000     IMPROPER EQUIVALENCE  LIBRARY INCORRECT 012 67 0
1         BUN   N-                                                      012 68 0
1         REM                                                           012 69 0
1         REM                                                           012 70 0
1   EXPL  STB   HOLD                                                    012 71 0
1         CAD   HOLD                                                    012 72 0
1         SLA   4                                                       012 73 0
1         LDB   +23                                                     012 74 0
1   *A    CFA - EXLBT,64        OF THE THING REFERENCED                 012 75 0
1         BCE   A+              BY USE OF AN EQUIVALENCE                012 76 0
1         DBB   A-,2                                                    012 77 0
1         LDB   HOLD                                                    012 78 0
1         LDR - 1                                                       012 79 0
1         BFR   *+2,11,0                                                012 80 0
1         STR   EXPLN                                                   012 81 0
1   EXPLX BUN   *                                                       012 82 0
1   *A    LDR - EXLBT-1                                                 012 83 0
1         STR   EXPLN                                                   012 84 0
1         LDB   HOLD                                                    012 85 0
1         BUN   EXPLX                                                   012 86 0
1         REM                                                           012 87 0
1         REM                                                           012 88 0
1         REM   DICTIONARY OF WORDS FOR ERROR MESSAGES IN THE OVERLAY   012 89 0
1         REM                                                           012 90 0
1   DICT  CNST  $EXTRA$         01 EXTRA                                012 91 0
1         CNST  $LEFT$          02 LEFT                                 012 92 0
1         CNST  35741594555     03 PARENTHESIS                          012 93 0
1         CNST  36348456249                                             012 94 0
1         CNST  $S$                                                     012 95 0
1         CNST  35449626249     06 MISSING                              012 96 0
1         CNST  $NG$                                                    012 97 0
1         CNST  $NAME$          08 NAME                                 012 98 0
1         CNST  $CARD$          09 CARD                                 012 99 0
1         CNST  34567634559     10 EXTERNAL                             013 00 0
1         CNST  $NAL$                                                   013 01 0
1         CNST  35759564345     12 PROCEDURE                            013 02 0
1         CNST  $DURE$                                                  013 03 0
1         CNST  $NOT$           14 NOT                                  013 04 0
1         CNST  34445435341     15 DECLARED                             013 05 0
1         CNST  $RED$                                                   013 06 0
1         CNST  35759454649     17 PREFIX                               013 07 0
1         CNST  $X$                                                     013 08 0
1         CNST  34954575956     19 IMPROPER                             013 09 0
1         CNST  $PER$                                                   013 10 0
1         CNST  34558644965     21 EQUIVALENCE                          013 11 0
1         CNST  34153455543                                             013 12 0
1         CNST  $E$                                                     013 13 0
1         CNST  34649554962     24 FINISH                               013 14 0
1         CNST  $H$                                                     013 15 0
1         CNST  35762456444     26 PSEUDO-OP                            013 16 0
1         CNST  $O-OP$                                                  013 17 0
1         CNST  $FIELD$         28 FIELD                                013 18 0
1         CNST  $ON$            29 ON                                   013 19 0
1         CNST  34845414445     30 HEADER                               013 20 0
1         CNST  $R$                                                     013 21 0
1         CNST  36455444546     32 UNDEFINED                            013 22 0
1         CNST  $INED$                                                  013 23 0
1         CNST  $LABEL$         34 LABEL                                013 24 0
1         CNST  $-$             35 -                                    013 25 0
1         CNST  $NAME$          35 (STORAGE FOR PROGRAMMED MESSAGES)    013 26 0
1         CNST  $NAME$          37 (STORAGE FOR PROGRAMMED MESSAGES)    013 27 0
1         CNST  34955626359     38 INSTRUCTION                          013 28 0
1         CNST  36443634956                                             013 29 0
1         CNST  $N$                                                     013 30 0
1         CNST  $,$             41 ,                                    013 31 0
1         CNST  $TOTAL$         42 TOTAL                                013 32 0
1         CNST  $CHECK$         43 CHECK                                013 33 0
1         CNST  $SUM$           44 SUM                                  013 34 0
1         CNST  34356545749     45 COMPILED                             013 35 0
1         CNST  $LED$                                                   013 36 0
1         CNST  35759564759     47 PROGRAM                              013 37 0
1         CNST  $AM$                                                    013 38 0
1         CNST  $ENDS$          49 ENDS                                 013 39 0
1         CNST  $AT$            50 AT                                   013 40 0
1         CNST  36541594941     51 VARIABLES                            013 41 0
1         CNST  $BLES$                                                  013 42 0
1         CNST  $BEGIN$         53 BEGIN                                013 43 0
1         CNST  35349425941     54 LIBRARY                              013 44 0
1         CNST  $RY$                                                    013 45 0
1         CNST  34955435659     56 INCORRECT                            013 46 0
1         CNST  $RECT$                                                  013 47 0
1         CNST  36268544256     58 SYMBOLIC                             013 48 0
1         CNST  $LIC$                                                   013 49 0
1         CNST  34341594441     60 CARDATRON                            013 50 0
1         CNST  $TRON$                                                  013 51 0
1         CNST  34356545749     62 COMPILER                             013 52 0
1         CNST  $LER$                                                   013 53 0
1         CNST  34341574143     64 CAPACITY                             013 54 0
1         CNST  $ITY$                                                   013 55 0
1         CNST  34567434545     66 EXCEEDED                             013 56 0
1         CNST  $DED$                                                   013 57 0
1         CNST  35445545659     68 MEMORY                               013 58 0
1         CNST  $Y$                                                     013 59 0
1         CNST  $FOR$           70 FOR                                  013 60 0
1         CNST  35642514543     71 OBJECT                               013 61 0
1         CNST  $T$                                                     013 62 0
1         REM                                                           013 63 0
1         REM                                                           013 64 0
1   LIBRF CAD - 0             PUT LIBRARY SUBROUTINE INTO TARGET        013 65 0
1   LIBRX BFA   LIBRX,11,4    PROGRAM IF IT HASNT BEEN PUT THERE        013 66 0
1         SRA   4             ALREADY.                                  013 67 0
1         EXT   +1111                                                   013 68 0
1         SUB   VARB                                                    013 69 0
1         STA   VARB,04                                                 013 70 0
1         SLT   4                                                       013 71 0
1         STA - 0,64                                                    013 72 0
1         IFL - 0,64,1                                                  013 73 0
1         IFL - 0,11,1                                                  013 74 0
1         BUN   LIBRF                                                   013 75 0
1         REM                                                           013 76 0
1         REM                                                           013 77 0
1   FXUP  LDR   LOCN     COMPILE TO SET A PREV FRW REF TO PRES LOC      013 78 0
1         STA   DESCR                                                   013 79 0
1         SRT   4                                                       013 80 0
1         STR   DESCR,04                                                013 81 0
1         STA   WRTF,04                                                 013 82 0
1         BSA   *+2,7                                                   013 83 0
1         BUN   *+2                                                     013 84 0
1         IFL   DESCR,00,1    IF SIGN IS SEVEN, WE MEAN THE             013 85 0
1   FXUPY BCS   *+2,2                                                   013 86 0
1         BUN   *+4                                                     013 87 0
1         BSA   *+3,8                                                   013 88 0
1         STP 4 9898,0208                                               013 89 0
1         BUN 4 9898,WRTF                                               013 90 0
1         LDR   DESCR         PRESENT LOCATION PLUS 1                   013 91 0
1         LDB   LRTF                                                    013 92 0
1         CAD   WRTF                                                    013 93 0
1         CFA   PREV,04                                                 013 94 0
1         BCH   A+            IF WE CAN FIX UP THE INSTRUCTION WHILE    013 95 0
1         CAD - BUF+1         IT SITS IN THE OUTPUT BUFFER, WE WILL     013 96 0
1         BFA   A+,04,0       DO IT DIRECTLY                            013 97 0
1         CFA   WRTF,04                                                 013 98 0
1         BCH   A+                                                      013 99 0
1         SUB   WRTF                                                    014 00 0
1         SLA   6                                                       014 01 0
1         STA   *+1,44                                                  014 02 0
1         DBB   *+1,0                                                   014 03 0
1         STR - BUF+2,04                                                014 04 0
1         BUN   FXUPX                                                   014 05 0
1   *A    DFL   CNTRF,00,1    OTHERWISE WE PUT OUT A FIX UP             014 06 0
1         LDB   CNTRF         CODE FOR THE LOADING ROUTINE              014 07 0
1         STR - BUF+3                                                   014 08 0
1         BUN   WRIT6                                                   014 09 0
1   FXUPX BUN   FXUPX                                                   014 10 0
1         REM                                                           014 11 0
1         REM                                                           014 12 0
1         REM                                                           014 13 0
1   WRIT2 CAD   LOCN          WRITE SUBROUTINE - PUTS INSTRUCTION       014 14 0
1         SRA   4              INTO OUTPUT BUFFER.                      014 15 0
1         IFL   LOCN,64,1     WRIT2 ENTRY - PUT INSTRUCTION OUT FOR     014 16 0
1         BOF   *+1                                                     014 17 0
1         LDR   INSTR          LOCATION LOCN AND INCREMENT LOCN         014 18 0
1   WRIT3 STA   WRTF,04       WRIT3 ENTRY - LOCATION IS IN RA(04)       014 19 0
1         SUB   PREV          AND INSTRUCTION IS IN REGISTER R          014 20 0
1         LDB   CNTRI                                                   014 21 0
1         BFA   E+,04,0                                                 014 22 0
1         SUB   XONE+1        DOES THIS LOCATION EQUAL THE PREVIOUS ONE 014 23 0
1         BFA   F+,04,0       (IF SO WE WILL ERASE THE PREVIOUS ONE)    014 24 0
1         STB   LRTF,04       OR IS IT ONE HIGHER                       014 25 0
1         CAD   WRTF          IF NOT,WE WILL PUT OUT A NEW RECORD TRANS 014 26 0
1         STA - BUF+1                                                   014 27 0
1         IFL   CNTRI,00,1                                              014 28 0
1   *F    LDB   LRTF                                                    014 29 0
1         IFL - BUF+1,32,1    THE 32-FIELD CONTAINS THE NUMBER OF       014 30 0
1   WRIT7 IFL   CNTRI,00,1    SEQUENTIAL WORDS TO LOAD                  014 31 0
1         LDB   CNTRI                                                   014 32 0
1   *E    STR - BUF                                                     014 33 0
1         STR   DESCR                                                   014 34 0
1   WRT10 BCS   *+2,2                                                   014 35 0
1         BUN   *+3                                                     014 36 0
1         STP 4 9898,0300                                               014 37 0
1         BUN 4 9898,WRTF                                               014 38 0
1         CLL   EXPLN                                                   014 39 0
1         LDR   WRTF                                                    014 40 0
1         STR   PREV,04                                                 014 41 0
1   WRIT6 LDR   CNTRI         IS THE BUFFER FULL NOW                    014 42 0
1         CFR   CNTRF                                                   014 43 0
1         BCL   WRITX         IF NOT,EXIT                               014 44 0
1   WRIT5 LBC   NN            IF SO, CALCULATE CHECK SUM                014 45 0
1   *C    CLA   BUF+2                                                   014 46 0
1         SUB - BUF+99                                                  014 47 0
1         IBB   *-1,1                                                   014 48 0
1         BOF   *+1                                                     014 49 0
1         STA   BUF+99                                                  014 50 0
1         MIB 4 *+2,OT                                                  014 51 0
1         BUN   *-1                                                     014 52 0
1         MLS 4 OT                                                      014 53 0
1         MIB 4 *+2,OT                                                  014 54 0
1         BUN   *-1                                                     014 55 0
1         MOW 4 BUF,OT,1      WRITE ONE BLOCK                           014 56 0
1         IFL   BUF,00,1                                                014 57 0
1         CLL   CNTRI                                                   014 58 0
1         CLL   CNTRF         INITIALIZE FOR NEXT BLOCK                 014 59 0
1         IFL   CNTRF,00,96                                             014 60 0
1   WRIT4 CLL   BUF+1                                                   014 61 0
1         LDB   C-                                                      014 62 0
1         RTF   BUF+1,98                                                014 63 0
1         BUN   FXUPX                                                   014 64 0
1   WRITX DEFN  FXUPX                                                   014 65 0
1         REM                                                           014 66 0
1         REM                                                           014 67 0
1   SRCH  ADD   LL0                                                     014 68 0
1         EXT   +11             LOOK FOR SYMBOL IN TABLE                014 69 0
1         ADD   +SCRTB                                                  014 70 0
1         STA   L                                                       014 71 0
1         LDB   L                                                       014 72 0
1         DBB   C+,1                                                    014 73 0
1   *B    LDB   L                                                       014 74 0
1         IBB   SRCHX,9999                                              014 75 0
1   *C    CAD - 1                                                       014 76 0
1         CFA   D2D3,23         FIRST COMPARE LENGTHS                   014 77 0
1         STA   L               (AND WHETHER OR NOT A NUMERIC LABEL)    014 78 0
1         SRA   4                                                       014 79 0
1         BCU   B-                                                      014 80 0
1         STA   TEMP                                                    014 81 0
1         IFL   TEMP,63,9                                               014 82 0
1         STA   A+,04                                                   014 83 0
1         IFL   A+,04,1                                                 014 84 0
1         DLB   TEMP,54,1                                               014 85 0
1         BRP   A+                                                      014 86 0
1         LDB   +9                                                      014 87 0
1   *A    CAD - *               IF LENGTHS AGREE, COMPARE THE SYMBOLS   014 88 0
1         CFA - SYMBL,00                                                014 89 0
1         BCU   B-                                                      014 90 0
1         DBB   A-,1                                                    014 91 0
1         IFL   SRCHX,04,1      INCREMENTED EXIT                        014 92 0
1         DLB   L,64,0          IF SYMBOL IS FOUND                      014 93 0
1   SRCHX BUN   *                                                       014 94 0
1         REM                                                           014 95 0
1         REM                                                           014 96 0
1   WEM   LDR   +0525005250     WRITE ERROR MESSAGE                     014 97 0
1         STR   HALT                                                    014 98 0
1         CLL   MSG                                                     014 99 0
1         IFL   MSG,12,20                                               015 00 0
1         LDB   C+                                                      015 01 0
1         RTF   MSG,8           CLEAR MESSAGE BUFFER                    015 02 0
1         CLL   TEMP                                                    015 03 0
1   *G    LDB   WEMX                                                    015 04 0
1         CAD - 0                                                       015 05 0
1   *E    CLR   0000                                                    015 06 0
1         SRT   8                                                       015 07 0
1         BFA   A+,00,00                                                015 08 0
1         STA   E-,04                                                   015 09 0
1         STR   TEMP3                                                   015 10 0
1   *H    IFL   E-,04,1                                                 015 11 0
1         LDB   E-                                                      015 12 0
1         LDR - DICT-2          GET DICTIONARY ENTRY                    015 13 0
1   *C    CLA   MSG+1                                                   015 14 0
1         LBC   TEMP                                                    015 15 0
1         SLT   2               TRANSFER CHARACTERS                     015 16 0
1         BFA   B+,00,00        ONE AT A TIME INTO                      015 17 0
1         SLA - 8               BUFFER AREA                             015 18 0
1         DLB   TEMP,94,00                                              015 19 0
1         LSA   0                                                       015 20 0
1         ADD - MSG                                                     015 21 0
1         STA - MSG,00                                                  015 22 0
1         IFL   TEMP,05,02                                              015 23 0
1         BUN   C-                                                      015 24 0
1   *B    BSA   H-,3            PUT SPACE BETWEEN WORDS                 015 25 0
1         IFL   TEMP,05,02                                              015 26 0
1         CAD   TEMP3                                                   015 27 0
1         BUN   E-                                                      015 28 0
1   *A    IFL   WEMX,04,01                                              015 29 0
1         STP 4 9898,0906                                               015 30 0
1         BUN 4 9898,MSG                                                015 31 0
1   WEMX  BUN   0000            RETURN AND ATTEMPT TO CONTINUE          015 32 0
1   MSG   LOCN  *+9                                                     015 33 0
1         REM                                                           015 34 0
1         REM                                                           015 35 0
1         REM                                                           015 36 0
1   LBRT  LOCN  *+300           LIBRARY TABLE                           015 37 0
1   L     CNST  0               LAST OPERAND                            015 38 0
1   K     CNST  0               RUNNING COUNT OF LENGTH FOR SYMBOL      015 39 0
1   D2D3  HLT   0               STORAGE FOR LENGTH OF SYMBOL            015 40 0
1   INSTR HLT   0               CURRENT INSTRUCTION                     015 41 0
1   LL0   HLT   0               STACK TO SEARCH AT LEVEL 0              015 42 0
1   SCNCT HLT   0               COLUMN COUNT                            015 43 0
1   CHAR  HLT   0               CURRENT CHARACTER BEING SCANED          015 44 0
1   ZERSS HLT 2 0                                                       015 45 0
1         HLT 2 0                                                       015 46 0
1         HLT 2 0                                                       015 47 0
1         HLT 2 0                                                       015 48 0
1         HLT 2 0                                                       015 49 0
1         HLT 2 0                                                       015 50 0
1         HLT 2 0                                                       015 51 0
1         HLT 2 0                                                       015 52 0
1         HLT 2 0                                                       015 53 0
1   TEMP3 HLT   0               SHORT TERM STORAGE LOCATION             015 54 0
1   TEMP  HLT   0               DITTO                                   015 55 0
1   EXLBT CNST  $FIX$           TABLE FOR SPECIAL LIBRARY ROUTINES      015 56 0
1         F244  0,SCRTB+106,0                                           015 57 0
1         CNST  $FLOAT$                                                 015 58 0
1         F244  0,SCRTB+108,0                                           015 59 0
1         CNST  $FX*FX$                                                 015 60 0
1         F244  0,SCRTB+102,0                                           015 61 0
1         CNST  $FX*FL$                                                 015 62 0
1         F244  0,SCRTB+103,0                                           015 63 0
1         CNST  $FL*FX$                                                 015 64 0
1         F244  0,SCRTB+104,0                                           015 65 0
1         CNST  $FL*FL$                                                 015 66 0
1         F244  0,SCRTB+105,0                                           015 67 0
1         CNST  $LABLE$                                                 015 68 0
1         F244  0,SCRTB-9,0                                             015 69 0
1         CNST  $MONIT$                                                 015 70 0
1         F244  0,SCRTB+110,0                                           015 71 0
1         CNST  $ERROR$                                                 015 72 0
1         F244  0,SCRTB+113,0                                           015 73 0
1         CNST  $TRACE$                                                 015 74 0
1         F244  0,SCRTB+114,0                                           015 75 0
1         CNST  $RITE$                                                  015 76 0
1         F244  0,SCRTB+116,0                                           015 77 0
1         CNST  $REED$                                                  015 78 0
1         F244  0,SCRTB+117,0                                           015 79 0
1   FUNS  F424  FUNS,0,0        ALL PURPOSE STACK                       015 80 0
1         CNST  20000000000                                             015 81 0
1   CRD   LOCN  *+16            INPUT AREA                              015 82 0
1         HLT 2 0                                                       015 83 0
1   EQTAB LOCN  *+100           EQUIVALENCE TABLE                       015 84 0
1   BUFR  LOCN  *+100           INPUT BUFFER FOR LIBRARY PROCEDURES     015 85 0
1   IFERR CNST  $-----ERROR(S) WERE FOUND-----$                         015 86 0
1         HLT 2 0                                                       015 87 0
1         HLT 2 0                                                       015 88 0
1         HLT 2 0                                                       015 89 0
1   SYMBL CNST  0,0,0,0,0,0,0,0,0,0       SYMBOL STORAGE AREA           015 90 0
1   LEVEL HLT   0               LEVEL FOR SEARCHING                     015 91 0
1         REM                                                           015 92 0
1         REM                                                           015 93 0
1   INS   STB   A+,04                                                   015 94 0
1   AVALE LDR   AVAIL           INSERT RA(67) INTO ASSOCIATIVE MEMORY   015 95 0
1         BFR   B+,04,00                                                015 96 0
1   *C    LDR - 0                                                       015 97 0
1         LDB   AVAIL           NORMALLY THIS MEANS ON TOP OF THE       015 98 0
1         STA - 0,67            STACK NAMED BY THE B REGISTER           015 99 0
1         CAD - 0                                                       016 00 0
1         STR - 0,04                                                    016 01 0
1   *A    STB   *,04                                                    016 02 0
1         STA   AVAIL,04                                                016 03 0
1   INSX  BUN   *                                                       016 04 0
1   *B    LDR   MAMAX           IF AVAIL STACK IS EMPTY, TRY TO         016 05 0
1         CFR   SSC,04          INCREASE THE SIZE OF                    016 06 0
1         STR   AVAIL,04        ASSOCIATIVE MEMORY                      016 07 0
1         STR   D+,04                                                   016 08 0
1         DFL   MAMAX,00,1                                              016 09 0
1   *D    CLL   *                                                       016 10 0
1         BCH   C-                                                      016 11 0
1   FULL  STP   WEMX            IF NO ROOM IS LEFT, GIVE UP             016 12 0
1         BUN   WEM                                                     016 13 0
1         CNST  36264660000     COMPILER CAPACITY EXCEEDED              016 14 0
1         F424  6200,00,7777                                            016 15 0
1         REM                                                           016 16 0
1         REM                                                           016 17 0
1   REM   STB   A+,04           REMOVE INFORMATION FROM                 016 18 0
1         LDB - 0               ASSOCIATIVE MEMORY LOCATION IN          016 19 0
1         CAD - 0               THE STACK NAMED IN RB                   016 20 0
1   REMX  IBB   *,9999          IF THE STACK IS EMPTY, EXIT             016 21 0
1         IBB   *+1,1                                                   016 22 0
1         LDR   AVAIL           OTHERWISE MARK LOCATION AVAILABLE       016 23 0
1         STB   AVAIL,04        FOR FUTURE USE                          016 24 0
1         STR - 0,04                                                    016 25 0
1   *A    STA   *,04            INCREMENTED EXIT WITH THE REMOVED       016 26 0
1         LDB   REMX            QUANTITY IN RA                          016 27 0
1         BUN - 1                                                       016 28 0
1         REM                                                           016 29 0
1         REM   THE SYMBOLIC MEMORY DUMP GENERATOR                      016 30 0
1         REM                                                           016 31 0
1   KOUNT HLT   0               STACK COUNTER                           016 32 0
1   COUT  HLT   0               PRESENT LEVEL COUNTER                   016 33 0
1   *T    NOP   SCRTB           LINK TO NEXT ITEM                       016 34 0
1   MONST LDB   +TBL+1                                                  016 35 0
1         RTF   TBL,100         SET UP HEADS FOR 301 STACKS             016 36 0
1         RTF   TBL+100,100                                             016 37 0
1         RTF   TBL+200,100                                             016 38 0
1         CAD   SCRTB+113                                               016 39 0
1         SRA   4                                                       016 40 0
1         BFA   J+,51,3                                                 016 41 0
1         STA   ASSGZ,04        FIX DUMP SO IT CAN FIND                 016 42 0
1         IFL   ASSGZ,04,44                                             016 43 0
1         DFL   ASSGZ,12,80                                             016 44 0
1         CAD   SCRTB+117                                               016 45 0
1         SRA   4                                                       016 46 0
1         STA   Z1+,04                                                  016 47 0
1         STA   Z2+,04                                                  016 48 0
1         STA   Z3+,04                                                  016 49 0
1         STA   Z4+,04                                                  016 50 0
1         STA   Z5+,04                                                  016 51 0
1         STA   Z6+,04                                                  016 52 0
1         STA   Z7+,04                                                  016 53 0
1         STA   Z8+,04                                                  016 54 0
1         STA   Z9+,04                                                  016 55 0
1         STA   Z10+,04                                                 016 56 0
1         STA   Z11+,04                                                 016 57 0
1         STA   Z12+,04                                                 016 58 0
1         STA   Z13+,04                                                 016 59 0
1         STA   Z14+,04                                                 016 60 0
1         STA   Z15+,04                                                 016 61 0
1         STA   Z16+,04                                                 016 62 0
1         STA   Z17+,04                                                 016 63 0
1         STA   Z18+,04                                                 016 64 0
1         STA   Z19+,04                                                 016 65 0
1         STA   Z20+,04                                                 016 66 0
1         STA   Z21+,04                                                 016 67 0
1         STA   Z22+,04                                                 016 68 0
1         STA   Z23+,04                                                 016 69 0
1         STA   Z24+,04                                                 016 70 0
1         STA   Z25+,04                                                 016 71 0
1         STA   Z26+,04                                                 016 72 0
1   *J    NOP   SCRTB           LAST ENTRY FROM SCRAMBLE TABLE          016 73 0
1         LDR   KOUNT                                                   016 74 0
1         STR   COUT                                                    016 75 0
1         CFR   +100,00                                                 016 76 0
1         BCE   END1            IF EQUAL ALL STACKS IN SCRAMBLE TABLE   016 77 0
1         LDB   J-              HAVE BEEN PROCESSED                     016 78 0
1         CAD - 0               GET NEXT ENTRY FROM SCRTB               016 79 0
1         LDB - 0                                                       016 80 0
1         STB   J-,04           SAVE LINK TO NEXT ENTRY                 016 81 0
1         DBB   A+,2000         IF LINK IS LESS THAN 2000 END STACK NOW 016 82 0
1         IFL   KOUNT,00,1      INCREASE STACK COUNT                    016 83 0
1         IFL   T-,04,1                                                 016 84 0
1         LDR   T-                                                      016 85 0
1         STR   J-,04           SET UP FOR NEXT STACK                   016 86 0
1         IBB   J-,2000         IF LINK WAS NON-ZERO START NEW STACK    016 87 0
1         BZA   J-              SKIP TO NEXT STACK IF ZERO              016 88 0
1   *A    SRA   4               GET SREF IN 04 FIELD                    016 89 0
1         CFA   +2000,04                                                016 90 0
1         BCL   J-              IF SREF IS LESS THAN 2000 GET NEXT ONE  016 91 0
1         STA   SREF,04                                                 016 92 0
1         SRT   4                                                       016 93 0
1         LSA   0                                                       016 94 0
1         ADD   +8                                                      016 95 0
1         SRA   1                                                       016 96 0
1         STA   SL              SAVE SYMBOL LENGTH                      016 97 0
1         SLT   19                                                      016 98 0
1         BPA   *+2                                                     016 99 0
1         FDV   *               SET OVERFLOW IF A NUMERIC LABEL         017 00 0
1         LDB   SREF                                                    017 01 0
1         LDR - 1               GET ACTUAL SYMBOL                       017 02 0
1         CLA                                                           017 03 0
1         DIV   +99             SCRAMBLE IT                             017 04 0
1         SLT   10                                                      017 05 0
1         SUB   COUT            COMPUTE LEVEL                           017 06 0
1         STA   LEVEL,00                                                017 07 0
1         CAD - 0                                                       017 08 0
1         BSA   J-,1            SKIP                                    017 09 0
1         BSA   J-,3            CALL                                    017 10 0
1         BSA   J-,5            BY NAME                                 017 11 0
1         BSA   J-,7            THINGS                                  017 12 0
1         BSA   J-,9            AND INPUT,OUTPUT,FORMAT   LABELS        017 13 0
1         BSA   J-,8            AND EXTERNAL PROGRAMS                   017 14 0
1         BFA   B+,11,1         SIMPLE VARIABLES(FIRST 100 STACKS)      017 15 0
1         IFL   LEVEL,81,1                                              017 16 0
1         BFA   B+,11,5         ARRAYS(NEXT 100)                        017 17 0
1         IFL   LEVEL,81,1                                              017 18 0
1         BFA   A+,11,9         LABELS(NEXT 100)                        017 19 0
1         IFL   LEVEL,81,1                                              017 20 0
1         BFA   B+,11,8         PROCEDURES(ONLY ONE STACK)              017 21 0
1         BUN   J-              GET NEXT ITEM IF IT IS NONE OF ABOVE    017 22 0
1         REM                                                           017 23 0
1         REM                                                           017 24 0
1   *A    CFA   +2000000,64                                             017 25 0
1         BCL   J-              SKIP SEGMENT NAMES                      017 26 0
1   *B    STB   VL,33           VECTOR LENGTH                           017 27 0
1         IFL   VL,32,04        FOUR IS NORMAL(ARRAYS REQUIRE 6)        017 28 0
1         STA   VECTR+3         SAVE OPERAND                            017 29 0
1         CAA - 1                                                       017 30 0
1         LDR - 2               GET SYMBOL                              017 31 0
1         LDB   SL                                                      017 32 0
1         DBB   *+2,2                                                   017 33 0
1         CLR                   SYMBOL LENGTH LEQ 5 CHARACTERS          017 34 0
1         BOF   NUMLB           NUMERIC LABEL                           017 35 0
1         STA   VECTR+1                                                 017 36 0
1         STR   VECTR+2         SAVE FIRST 10 CHARACTERS OF SYMBOL      017 37 0
1         REM                                                           017 38 0
1         REM                                                           017 39 0
1   RETRN LDR   VECTR+3                                                 017 40 0
1         CLA                                                           017 41 0
1         BFR   P+,11,1                                                 017 42 0
1         BFR   P+,11,9                                                 017 43 0
1         BFR   *+3,11,5                                                017 44 0
1         STA   VECTR+3,89      PROCEDURE  02 FIELD IS LEVEL            017 45 0
1         BUN   P+                                                      017 46 0
1         LDB   VECTR+3                                                 017 47 0
1         IFL   VL,32,2         NEED TWO MORE FOR ARRAYS                017 48 0
1         LDR - 0                                                       017 49 0
1         STR   HOLD            SAVE LINK                               017 50 0
1         SRT   4                                                       017 51 0
1         CAD   VECTR+3                                                 017 52 0
1         CLL   VECTR+3                                                 017 53 0
1         CLL   VECTR+4                                                 017 54 0
1         CLL   VECTR+5                                                 017 55 0
1         STR   VECTR+3,04      LENGTH                                  017 56 0
1         STA   VECTR+5,67      SAVE OPERAND OF ARRAY                   017 57 0
1         CLL   DIM                                                     017 58 0
1         LDB   HOLD                                                    017 59 0
1         IBB   C+,9999         LINK ZERO INDICATES WE HAVE LINEAR      017 60 0
1         BUN   D+                           ARRAY                      017 61 0
1   *A    LDB   HOLD            END OF DIMENSION LIST OF CONSTANTS      017 62 0
1         IBB   A+,9999         IF LINK IS ZERO                         017 63 0
1   *D    LDR - 1                                                       017 64 0
1         DLB - 1,64,0                                                  017 65 0
1         STR   HOLD            SAVE OPERAND OF CONSTANT                017 66 0
1         CAD - 1                                                       017 67 0
1         LDB   DIM                                                     017 68 0
1         STA - DIMS            PUT CONSTANT INTO DIMENSION LIST        017 69 0
1         IFL   DIM,00,1        INCREASE DIMENSION COUNT                017 70 0
1         BUN   A-                                                      017 71 0
1   *A    LDR   DIMS                                                    017 72 0
1         STR   VECTR+4         SAVE LENGTH OF A ROW                    017 73 0
1   *B    LDB   DIM                                                     017 74 0
1         CAD - DIMS-1                                                  017 75 0
1         ADD   +1                                                      017 76 0
1         MUL - DIMS-2          CALCULATE ADDRESS OF FIRST              017 77 0
1         STR - DIMS-2          ELEMENT OF THE ARRAY                    017 78 0
1         DFL   DIM,00,1                                                017 79 0
1         DBB   B-,3                                                    017 80 0
1         CAA   DIMS                                                    017 81 0
1         ADD   +1                                                      017 82 0
1         SLA   4                                                       017 83 0
1         ADA   VECTR+5                                                 017 84 0
1   *F    STA   VECTR+5,64      STORE ACTUAL ADDRESS                    017 85 0
1         BUN   P+                                                      017 86 0
1   *C    LDR   VECTR+3         LINEAR ARRAY                            017 87 0
1         STR   VECTR+4         LENGTH OF ROW IS LENGTH OF ARRAY        017 88 0
1         CAD   VECTR+5                                                 017 89 0
1         ADD   +10000          ACTUAL ADDRESS IS ONLY 1 GREATER        017 90 0
1         BUN   F-                                                      017 91 0
1         REM                                                           017 92 0
1         REM                                                           017 93 0
1   *P    CAD   +TBL                                                    017 94 0
1         ADD   LEVEL                                                   017 95 0
1         STA   LEVEL           SET UP SEARCH OF PROPER STACK           017 96 0
1         STA   THROW           (NOTICE EVERY STACK IS INITIALIZED      017 97 0
1   TLU   LDB   LEVEL           WITH THE SYMBOL 9999999999)             017 98 0
1         CAD - 0                                                       017 99 0
1         STA   HOLD            SAVE LINK TO NEXT ITEM                  018 00 0
1         DLB   HOLD,64,0                                               018 01 0
1         LDR   VECTR+1                                                 018 02 0
1         CFR - 0,00            COMPARE FIRST FIVE CHARACTERS           018 03 0
1         BCL   YES             YES, INSERT IT                          018 04 0
1         BCE   MAYBE           COMPARISON ON NEXT 5 NEEDED             018 05 0
1   *C    LDR   LEVEL                                                   018 06 0
1         STR   THROW           LAST OPERAND USED LINKS TO              018 07 0
1         LDR   HOLD            THE OPERAND TO BE USED                  018 08 0
1         STR   LEVEL                                                   018 09 0
1         BUN   TLU                                                     018 10 0
1         REM                                                           018 11 0
1         REM                                                           018 12 0
1   YES   LDR   LEVEL                                                   018 13 0
1         CFR   THROW           IF THEY ARE EQUAL THEN THE SPECIAL      018 14 0
1         BCE   EH              CASE WHERE THE HEAD OF THE STACK        018 15 0
1         CAD   LEVEL           IS CHANGED                              018 16 0
1         STA   VECTR,04                                                018 17 0
1         STP   GETX            GET NEXT FREE CELLS                     018 18 0
1         BUN   GET                                                     018 19 0
1         LDB   THROW                                                   018 20 0
1         STA - 0,04            INSERT NEW OPERAND WITH                 018 21 0
1         ADD   +1              ITS NICE INFORMATIN INTO STACK          018 22 0
1         SLA   4                                                       018 23 0
1         STA   VECTR,64                                                018 24 0
1         LDB   MEM                                                     018 25 0
1   VL    RTF   VECTR,4         ENTER THE VECTOR INTO THE STACK         018 26 0
1         STB   MEM                                                     018 27 0
1         BUN   J-                                                      018 28 0
1   EH    STP   GETX            GET NEXT FREE CELLS                     018 29 0
1         BUN   GET                                                     018 30 0
1         ADD   +1                                                      018 31 0
1         SLA   4                                                       018 32 0
1         ADD   MEM                                                     018 33 0
1         LDB   THROW           DO AN INSERT FOR THIS SPECIAL CASE      018 34 0
1         LDR - 0                                                       018 35 0
1         STA - 0                                                       018 36 0
1         STR   VECTR                                                   018 37 0
1         BUN   VL-1                                                    018 38 0
1         REM                                                           018 39 0
1         REM                                                           018 40 0
1   MAYBE LDR   VECTR+2         COMPARE WITH                            018 41 0
1         CFR - 1,00            NEXT FIVE CHARACTERS                    018 42 0
1         BCH   C-                                                      018 43 0
1         BUN   YES                                                     018 44 0
1         REM                                                           018 45 0
1         REM                                                           018 46 0
1   NUMLB BZA   A+              CONVERT NUMERIC LABELS                  018 47 0
1         SRT   10              TO ALFANUMERIC FORM                     018 48 0
1         CLL   VECTR+1         WITH LEADING ZEROES                     018 49 0
1         BFR   B+,55,0         SUPPRESSED                              018 50 0
1         STP   SUPX                                                    018 51 0
1         BUN   SUP                                                     018 52 0
1         STA   VECTR+1                                                 018 53 0
1         STP   NSUPX                                                   018 54 0
1         BUN   NSUP                                                    018 55 0
1         STA   VECTR+2                                                 018 56 0
1         BUN   RETRN                                                   018 57 0
1   *B    SLT   5                                                       018 58 0
1         STP   SUPX                                                    018 59 0
1         BUN   SUP                                                     018 60 0
1         STA   VECTR+2                                                 018 61 0
1         BUN   RETRN                                                   018 62 0
1   *A    LDR   +80                                                     018 63 0
1         BUN   RETRN-2                                                 018 64 0
1         REM                                                           018 65 0
1         REM                                                           018 66 0
1   SUP   SLT   1               CONVERT A 5 DIGIT NUMERIC               018 67 0
1         BZA   *+2             TO ALFA WITH SUPPRESSION                018 68 0
1         ADD   +80             OF LEADING ZEROES                       018 69 0
1         IFL   *-1,11,2                                                018 70 0
1   SUPX  BOF   *                                                       018 71 0
1         SLA   1                                                       018 72 0
1         BUN   SUP                                                     018 73 0
1         REM                                                           018 74 0
1         REM                                                           018 75 0
1   NSUP  SLT   1               CONVERT A 5 DIGIT NUMERIC               018 76 0
1         ADD   +80             TO ALFA - DO NOT SUPPRESS               018 77 0
1   NSUPX BFA   *,11,8          LEADING ZEROES                          018 78 0
1         SLA   1                                                       018 79 0
1         BUN   NSUP                                                    018 80 0
1         REM                                                           018 81 0
1         REM                                                           018 82 0
1   END1  MLS 4 OT+10           MEMORY DUMP GOES ON ODD LANE            018 83 0
1         MPF 4 OT,4                                                    018 84 0
1   *A    LDB   +DUMBS                                                  018 85 0
1         STP   REMX            ENTRY IN DUMP STACK IS N NNNN LL LINK   018 86 0
1         BUN   REM             WHERE  NNNN= NUMBER OF ITEMS IN LIST    018 87 0
1         BUN   ACTUA                  LL= LEVEL NUMBER FOR THE         018 88 0
1         LDB   +SBMUD                     PROCEDURE WHICH CONTAINS     018 89 0
1         STP   INSX                       THE DUMP LIST                018 90 0
1         BUN   INS                                                     018 91 0
1         BUN   A-              INVERT STACK OF NECESSARY DUMPS         018 92 0
1   ACTUA LDB   +SBMUD                                                  018 93 0
1         STP   REMX                                                    018 94 0
1         BUN   REM                                                     018 95 0
1         BUN   FIN             END OF DUMPS                            018 96 0
1         CLL   IDEX                                                    018 97 0
1         STA   HOLD            SAVE DUMP ENTRY                         018 98 0
1         BFA   C+,62,0         IF ZERO - DUMP FOR PROGRAM              018 99 0
1         SRA   4               IF NON-ZERO                             019 00 0
1         STA   IDEX,02         SAVE LEVEL AND GET ASSOCIATED           019 01 0
1         CAD   TBL+300         PROCEDURE NAME                          019 02 0
1   *B    STA   DIM                                                     019 03 0
1         DLB   DIM,64,0                                                019 04 0
1         CAD - 2                                                       019 05 0
1         CFA   IDEX,02                                                 019 06 0
1         BCE   A+              PROCEDURE NAME FOUND                    019 07 0
1         LDB   DIM             GET NEXT ITEM FROM PROCEDURE STACK      019 08 0
1         CAD - 0                                                       019 09 0
1         BUN   B-                                                      019 10 0
1   *A    CAD - 0                                                       019 11 0
1         LDR - 1                                                       019 12 0
1         STA   J++4,00                                                 019 13 0
1         STR   J++5,00                                                 019 14 0
1         LDR   +EN                                                     019 15 0
1         STR   EM,04                                                   019 16 0
1         MOW 4 Q+,OT,3                                                 019 17 0
1   *C    STB   PRSW1,62                                                019 18 0
1         STB   PRSW2,62                                                019 19 0
1         CAD   HOLD                                                    019 20 0
1         BFA   *+3,45,0        IF THE DUMP LIST WAS NULL               019 21 0
1         IFL   PRSW1,62,29     SET SOME SWITCHES SO THAT               019 22 0
1         IFL   PRSW2,62,29     EVERY TABLE ITEM OUTPUT TO TAPE         019 23 0
1         IFL   PRSW1,62,1      WILL HAVE A SIGN OF 4                   019 24 0
1         IFL   PRSW2,62,1                                              019 25 0
1         DLB   SCRTB+114,64,0                                          019 26 0
1         STB   TRCE,04                                                 019 27 0
1         BUN   END15                                                   019 28 0
1         REM                                                           019 29 0
1         REM                                                           019 30 0
1   LOD3  DEFN  *                                                       019 31 0
1   *Q    BCS   V+-LOD3+100,9                                           019 32 0
1   *Z1   STP   *,2438                                                  019 33 0
1   *Z2   BUN   *,J+-LOD3+100                                           019 34 0
1   *V    NOP   LOD1-100                                                019 35 0
1         NOP   1                                                       019 36 0
1         LDB   *-1-LOD3+100                                            019 37 0
1         RTF   *+2-LOD3+100,3                                          019 38 0
1         BUN   1                                                       019 39 0
1         LBC   V--LOD3+100                                             019 40 0
1         MRD 4 100,OT,3,BMOD                                           019 41 0
1         BUN   100                                                     019 42 0
1   *J    CNST  $         PROCEDURE                                     019 43 0
1                                                                       019 44 0
1                          $                                            019 45 0
1         LOCN  *+10                                                    019 46 0
1         REM                                                           019 47 0
1         REM                                                           019 48 0
1   END15 MOW 4 Q+,OT,3                                                 019 49 0
1         LDB   IDEX                          DUMP                      019 50 0
1         CAD - TBL+200                                                 019 51 0
1   *C    STA   HOLD                                                    019 52 0
1         LDB   HOLD                                                    019 53 0
1         IBB   END2,9999       END OF THIS LABEL STACK                 019 54 0
1         DLB   HOLD,64,0                                               019 55 0
1         CAD - 2               GET OPERAND OF THE LABEL                019 56 0
1         STB   STOX1,62                                                019 57 0
1         BPA   PRSW1           SIGN OF 0 MEANS NOT BEING DUMPED        019 58 0
1         IFL   STOX1,62,1                                              019 59 0
1         BUN   B+                                                      019 60 0
1   PRSW1 BUN   D+              DUMP HAD A NULL LIST                    019 61 0
1         IFL   STOX1,62,1      SET UP TO MARK ITEM WITH A SIGN OF 4    019 62 0
1         BUN   B+                                                      019 63 0
1   *D    IFL   STOX1,62,30     DO NOT MARK FOR DUMPING                 019 64 0
1   *B    CAD - 0                                                       019 65 0
1         STP   STOXX                                                   019 66 0
1         BUN   STOX1                                                   019 67 0
1         CAD - 1                                                       019 68 0
1         STP   STOXX           ENTER ITEM INTO OUTPUT BUFFER           019 69 0
1         BUN   STOX1                                                   019 70 0
1         CAD - 2                                                       019 71 0
1         STP   STOXX                                                   019 72 0
1         BUN   STOX1                                                   019 73 0
1         LDB   HOLD                                                    019 74 0
1         CAD - 0                                                       019 75 0
1         BUN   C-                                                      019 76 0
1         REM                                                           019 77 0
1         REM                                                           019 78 0
1   END2  LSA   9               OUTPUT END FLAG                         019 79 0
1         STP   STOXX                                                   019 80 0
1         BUN   STOX                                                    019 81 0
1         IFL   *-1,11,5                                                019 82 0
1         BOF   END3                                                    019 83 0
1         LDB   IDEX                                                    019 84 0
1         CAD - TBL                                                     019 85 0
1         BUN   C-              PROCESS SIMPLE VARIABLES                019 86 0
1         REM                                                           019 87 0
1         REM                                                           019 88 0
1         REM                                                           019 89 0
1         REM                                                           019 90 0
1   STOX1 BUN   STOX                                                    019 91 0
1         LSA   4               MARK ITEM FOR DUMPING                   019 92 0
1   STOX  STA   0               ENTER ITEM INTO BUFFER                  019 93 0
1         IFL   STOX,02,1                                               019 94 0
1         BOF   *+2                                                     019 95 0
1   STOXX BUN   *               EXIT LINE                               019 96 0
1         MOW 4 0,OT,1          BUFFER FULL                             019 97 0
1         BUN   STOXX                                                   019 98 0
1         REM                                                           019 99 0
1   LOD1  DEFN  *               THIS PROGRAM IS RELOCATED TO            020 00 0
1   *Q    NOP 8 J++1            LOCATION 0100 AT OBJECT TIME            020 01 0
1   *R    CLB 8 I+              AND CAUSES THE PRINTING OF              020 02 0
1         BUN 8 *+3             THE FOLLOWING LIST                      020 03 0
1   *A    LDB 8 B+                                                      020 04 0
1         IBB 8 C+,1                                                    020 05 0
1         MRD 4 0,OT,1                                                  020 06 0
1         DBB 8 *+1,100         LAST LABEL PASSED WAS L(N)              020 07 0
1   *C    CAD - 100                                                     020 08 0
1         STB 8 B+,04                                                   020 09 0
1         BSA 8 EM,9            LABEL IN PROGRAM  NUMBER OF TIMES       020 10 0
1         BCS 8 A-,9                                                    020 11 0
1         IOM 8 EM                                   EXECUTED           020 12 0
1         BSA 8 EM,4                                                    020 13 0
1         BUN 8 A-                                                      020 14 0
1   EM    DEFN  *                      L                N               020 15 0
1   *D    BUN 8 *+1                                                     020 16 0
1         NOP 8 I++6                   -                -               020 17 0
1         LDB 8 *-1                                                     020 18 0
1   ASSGZ RTF 8 NONE,4          VARIABLE IN PROGRAM           VALUE     020 19 0
1         CAA 8 I++6                                                    020 20 0
1         ADA 8 I++7                     V                      N       020 21 0
1         BOF 8 *+1                      -                      -       020 22 0
1         BZA 8 *+2                      -                      -       020 23 0
1         BUN 8 EN-2                                                    020 24 0
1         NOP 8 NONE                                                    020 25 0
1         LDB 8 *-1                                                     020 26 0
1         STB 8 ASSGZ,04                                                020 27 0
1         BUN 8 D-                                                      020 28 0
1   *Z3   STP   *,2438                                                  020 29 0
1   *Z4   BUN   *,I+-LOD1+100                                           020 30 0
1   EN    LDB 8 R-              WITH A PROCEDURE THE FIRST              020 31 0
1         CLL 8 I+-1          MESSAGE IS NOT PRINTED                    020 32 0
1         IFL 8 I+-1,12,20                                              020 33 0
1         RTF 8 I+-1,24                                                 020 34 0
1         DFL 8 B+,04,1                                                 020 35 0
1         STP 8 D-                                                      020 36 0
1         BUN 8 A-                                                      020 37 0
1         BSA 8 V+,9                                                    020 38 0
1   *Z5   STP   *,2468                                                  020 39 0
1   *Z6   BUN   *,J+-LOD1+100                                           020 40 0
1         DFL 8 B+,04,1                                                 020 41 0
1         STP 8 D-                                                      020 42 0
1         BUN 8 A-                                                      020 43 0
1   *E    STA 8 I++2,00                                                 020 44 0
1         BSA 8 V+,9                                                    020 45 0
1         STP 8 D-                                                      020 46 0
1         BUN 8 A-                                                      020 47 0
1         STA 8 I++3,00                                                 020 48 0
1         STP 8 D-                                                      020 49 0
1         BUN 8 A-                                                      020 50 0
1         DLB - 100,64,0                                                020 51 0
1         CSA - 0                                                       020 52 0
1         BFA 8 *+2,62,44                                               020 53 0
1         CSA - 1                                                       020 54 0
1         CFA 8 TRCE,04                                                 020 55 0
1         BCU 8 *+2                                                     020 56 0
1         IBB 8 *-5,2                                                   020 57 0
1         SRA   6                                                       020 58 0
1         ADD 8 D1                                                      020 59 0
1         STP 8 D-                                                      020 60 0
1         BUN 8 A1+                                                     020 61 0
1         STA 8 I++8,08                                                 020 62 0
1   *Z7   STP   *,2408                                                  020 63 0
1   *Z8   BUN   *,I+-LOD1+100                                           020 64 0
1         STP 8 D-                                                      020 65 0
1         BUN 8 A-                                                      020 66 0
1         BUN 8 E-                                                      020 67 0
1   *V    LDB 8 A9+                                                     020 68 0
1         CLL 8 J+-1                                                    020 69 0
1         IFL 8 J+-1,12,20                                              020 70 0
1         RTF 8 J+-1,35                                                 020 71 0
1         STP 8 D-                                                      020 72 0
1         BUN 8 A-                                                      020 73 0
1         BSA 8 V+,9                                                    020 74 0
1   *Z9   STP   *,2468                                                  020 75 0
1   *Z10  BUN   *,K+-LOD1+100                                           020 76 0
1   *Z11  STP   *,2448                                                  020 77 0
1   *Z12  BUN   *,J+-LOD1+100                                           020 78 0
1         DFL 8 B+,04,1                                                 020 79 0
1   *C    STP 8 D-                                                      020 80 0
1         BUN 8 A-                                                      020 81 0
1         BSA 8 V+,9                                                    020 82 0
1         STA 8 J++2,00                                                 020 83 0
1         STP 8 D-                                                      020 84 0
1         BUN 8 A-                                                      020 85 0
1         STA 8 J++3,00                                                 020 86 0
1         STP 8 D-                                                      020 87 0
1         BUN 8 A-                                                      020 88 0
1         SRT   10                                                      020 89 0
1         DLB - 100,64,0                                                020 90 0
1   *A9   CLA 8 J+                                                      020 91 0
1         ADD - 0                                                       020 92 0
1         BFR 8 F+,21,0                                                 020 93 0
1         STP 8 D-                                                      020 94 0
1         BUN 8 A1+                                                     020 95 0
1         LDB 8 Q-                                                      020 96 0
1         DBB 8 *+1,9993                                                020 97 0
1         RTF 8 S+,3                                                    020 98 0
1         CLL 8 J++11                                                   020 99 0
1         IFL 8 J++11,12,20                                             021 00 0
1   *Z13  STP   *,2408                                                  021 01 0
1   *Z14  BUN   *,J+-LOD1+100                                           021 02 0
1         BUN 8 C-                                                      021 03 0
1   *F    SLA   2                                                       021 04 0
1         STA 8 S++5,02                                                 021 05 0
1         SRA   2                                                       021 06 0
1         SLA   2                                                       021 07 0
1         STP 8 D-                                                      021 08 0
1         BUN 8 A1+                                                     021 09 0
1         LDB 8 Q-                                                      021 10 0
1         DBB 8 *+1,9993                                                021 11 0
1         RTF 8 S+,3                                                    021 12 0
1         IFL 8 J++8,02,03                                              021 13 0
1         CAD 8 S++5                                                    021 14 0
1         LDR 8 S++1                                                    021 15 0
1         BFR 8 *+2,21,0                                                021 16 0
1         SUB 8 S++4                                                    021 17 0
1         STP 8 D-                                                      021 18 0
1         BUN 8 A1+                                                     021 19 0
1         SLT   16                                                      021 20 0
1         STR 8 J++11,44                                                021 21 0
1         CAD 8 S+                                                      021 22 0
1         SRA   2                                                       021 23 0
1         STA 8 J++10,04                                                021 24 0
1         IFL 8 J++10,82,23                                             021 25 0
1         BUN 8 F--3                                                    021 26 0
1   *A1   CLL 8 S+                                                      021 27 0
1         IFL 8 S+,12,20                                                021 28 0
1         BPA 8 *+3                                                     021 29 0
1         IFL 8 S+,82,20                                                021 30 0
1         LSA   0                                                       021 31 0
1         SRT   10                                                      021 32 0
1   TRCE  CLB                                                           021 33 0
1   *B    CLA                                                           021 34 0
1   *Y    SLA   1                                                       021 35 0
1         ADD 8 S++3                                                    021 36 0
1         SLT   1                                                       021 37 0
1         IBB 8 Y-,2000                                                 021 38 0
1         STA 9 S++1,00                                                 021 39 0
1         IFL 8 Y-,11,5                                                 021 40 0
1         BOF 8 D-                                                      021 41 0
1         IBB 8 B-,1                                                    021 42 0
1   D1    CNST  10000                                                   021 43 0
1   *S    CNST  20000000000                                             021 44 0
1         CNST  20000000000                                             021 45 0
1         CNST  20000000000                                             021 46 0
1         CNST  8                                                       021 47 0
1         CNST  50                                                      021 48 0
1         CNST  0                                                       021 49 0
1   *K    CNST  $        VARIABLE IN PROGRAM                    VALUE $ 021 50 0
1         CNST  20000000000                                             021 51 0
1   *J    CNST  $        LABEL IN PROGRAM       NUMBER OF TIMES EXECUTE 021 52 0
1               D$                                                      021 53 0
1         CNST  20000000000                                             021 54 0
1   *I    CNST  $        LAST LABEL PASSED WAS                          021 55 0
1                                                                       021 56 0
1                          $                                            021 57 0
1         REM                                                           021 58 0
1         REM                                                           021 59 0
1   *V    NOP   Q+-100          THIS PROGRAM READS IN THE               021 60 0
1         LDB 8 *+2           ARRAY DUMP ROUTINE                        021 61 0
1         RTF 8 *+2,3                                                   021 62 0
1         BUN   98                                                      021 63 0
1         LBC 8 *-4                                                     021 64 0
1         MRD 4 100,1,3,BMOD                                            021 65 0
1   NONE  CNST  $(NONE)              $                                  021 66 0
1         LOCN  LOD1+240                                                021 67 0
1         REM                                                           021 68 0
1         REM                                                           021 69 0
1         REM                                                           021 70 0
1   END3  CAD   STOX            DUMP BUFFER(LABELS AND VARIABLES)       021 71 0
1         BFA   *+2,04,0        IF IT IS NOT EMPTY                      021 72 0
1         MOW 4 0,OT,1                                                  021 73 0
1         CLR                                                           021 74 0
1         STR   STOX,04         INITIALIZE STORE ROUTINE                021 75 0
1         MOW 4 Q+,OT,3                                                 021 76 0
1         LDB   IDEX                                                    021 77 0
1         CAD - TBL+100                                                 021 78 0
1   *C    STA   HOLD                                                    021 79 0
1         LDB   HOLD                                                    021 80 0
1         IBB   END4,9999       END OF LIST OF ARRAYS                   021 81 0
1         DLB   HOLD,64,0                                               021 82 0
1         CAD - 4                                                       021 83 0
1         STB   STOX1,62                                                021 84 0
1         BPA   PRSW2           ITEM UNMARKES - MARK IT IF PRSW2 IS ON  021 85 0
1         IFL   STOX1,62,1                                              021 86 0
1         BUN   A+                                                      021 87 0
1   PRSW2 BUN   D+                                                      021 88 0
1         IFL   STOX1,62,1                                              021 89 0
1         BUN   A+                                                      021 90 0
1   *D    IFL   STOX1,62,30                                             021 91 0
1   *A    CAD - 0                                                       021 92 0
1         STP   STOXX                                                   021 93 0
1         BUN   STOX1                                                   021 94 0
1         CAD - 1                                                       021 95 0
1         STP   STOXX                                                   021 96 0
1         BUN   STOX1                                                   021 97 0
1         CAD - 2                                                       021 98 0
1         STP   STOXX                                                   021 99 0
1         BUN   STOX1                                                   022 00 0
1         CAD - 3               OUTPUT ARRAY ITEM TO TAPE               022 01 0
1         STP   STOXX                                                   022 02 0
1         BUN   STOX1                                                   022 03 0
1         CAD - 4                                                       022 04 0
1         STP   STOXX                                                   022 05 0
1         BUN   STOX1                                                   022 06 0
1         LDB   HOLD                                                    022 07 0
1         CAD - 0                                                       022 08 0
1         BUN   C-                                                      022 09 0
1         REM                                                           022 10 0
1         REM                                                           022 11 0
1   END4  LSA   9                                                       022 12 0
1         STP   STOXX           PUT A END FLAG OUT TO BUFFER            022 13 0
1         BUN   STOX                                                    022 14 0
1         CAD   STOX                                                    022 15 0
1         BFA   *+2,04,0                                                022 16 0
1         MOW 4 0,OT,1          DUMP BUFFER IF NOT EMPTY                022 17 0
1         CLR                                                           022 18 0
1         STR   STOX,04         INITIALIZE STORE SUBROUTINE             022 19 0
1         BUN   ACTUA           GET NEXTITEM FOR SBMUD STACK            022 20 0
1         REM                                                           022 21 0
1         REM                                                           022 22 0
1   LOD2  DEFN  *               THIS PROGRAM IS RELOCATED TO            022 23 0
1   *Q    CLB 8 J++1            LOCATION 0100 AT OBJECT TIME            022 24 0
1         BUN 8 *+3             AND CAUSES THE PRINTING OF              022 25 0
1   *A    LDB 8 B+              THE FOLLOWING LIST                      022 26 0
1         IBB 8 C+,1                                                    022 27 0
1         MRD 4 0,1,1                                                   022 28 0
1         DBB 8 *+1,100                                                 022 29 0
1   *C    CAD - 100                                                     022 30 0
1         STB 8 B+,04                                                   022 31 0
1         BSA 8 D+,9            ARRAY A                                 022 32 0
1         BCS 8 A-,9                                                    022 33 0
1         IOM 8 D+                                                      022 34 0
1         BSA 8 D+,4            (ELEMENTS OF THE ARRAY PRINTED BY ROW)  022 35 0
1         BUN 8 A-                                                      022 36 0
1   *D    BUN 8 *+2                                                     022 37 0
1         BUN 8 *-1                                                     022 38 0
1         BSA 8 V+,9                                                    022 39 0
1         STA 8 I++3,00                                                 022 40 0
1         STP 8 D-                                                      022 41 0
1         BUN 8 A-              NOTE THAT A ROW HAS AS MANY ELEMENTS    022 42 0
1         STA 8 I++4,00       IN IT AS THE LAST INTEGER IN THE          022 43 0
1   *Z15  STP   *,2468                                                  022 44 0
1   *Z16  BUN   *,I+-LOD2+100                                           022 45 0
1   *Z17  STP   *,2448                                                  022 46 0
1   *Z18  BUN   *,J+-LOD2+100                                           022 47 0
1         STP 8 D-                                                      022 48 0
1         BUN 8 A-                                                      022 49 0
1         STA 8 L+                                                      022 50 0
1         STP 8 D-                                                      022 51 0
1         BUN 8 A-                                                      022 52 0
1         CFA 8 S+,00                                                   022 53 0
1         BCU 8 *+2                                                     022 54 0
1         CAD 8 S++1                                                    022 55 0
1         STA 8 L++1                                                    022 56 0
1         STA 8 L++2                                                    022 57 0
1         STP 8 D-                                                      022 58 0
1         BUN 8 A-                                                      022 59 0
1         CFA 8 S+,21                                                   022 60 0
1         SRA   4                                                       022 61 0
1         STA 8 G+,04                                                   022 62 0
1   *H    CLL 8 N+                                                      022 63 0
1         IFL 8 N+,00,21                                                022 64 0
1         CAR                                                           022 65 0
1   *G    ADD   *                                                       022 66 0
1         CLL 8 J+-1                                                    022 67 0
1         CLL 8 T+                                                      022 68 0
1         IFL 8 T+,12,20                                                022 69 0
1         BPA 8 *+3                                                     022 70 0
1         IFL 8 T+,82,20                                                022 71 0
1         LSA   0                                                       022 72 0
1         BCU 8 *+3                                                     022 73 0
1         SLT   2                                                       022 74 0
1         STR 8 S++2,02                                                 022 75 0
1         SRT   10                                                      022 76 0
1         CLB                                                           022 77 0
1   *B    CLA                                                           022 78 0
1   *Y    SLA   1                                                       022 79 0
1         ADD 8 S++3                                                    022 80 0
1         SLT   1                                                       022 81 0
1         IBB 8 Y-,2000                                                 022 82 0
1         STA 9 T++1,00                                                 022 83 0
1         IFL 8 Y-,11,5                                                 022 84 0
1         BOF 8 *+2                                                     022 85 0
1         IBB 8 B-,1                                                    022 86 0
1         BCE 8 P+                                                      022 87 0
1         CLL 8 T++3                                                    022 88 0
1   *M    LBC 8 N+                                                      022 89 0
1         LDR 8 T+                                                      022 90 0
1         STR 9 J++22,04                                                022 91 0
1         LDR 8 T++1                                                    022 92 0
1         STR 9 J++23                                                   022 93 0
1         LDR 8 T++2                                                    022 94 0
1         STR 9 J++24                                                   022 95 0
1         LDR 8 T++3                                                    022 96 0
1         STR 9 J++25,66                                                022 97 0
1         DLB 8 L++1,04,1                                               022 98 0
1         IBB 8 W+,9999                                                 022 99 0
1         DLB 8 N+,04,3                                                 023 00 0
1         IBB 8 Y+,9999                                                 023 01 0
1   *H    DLB 8 L+,04,1                                                 023 02 0
1         DBB 8 X+,1                                                    023 03 0
1         LDR 8 O+                                                      023 04 0
1         BZR 8 E+                                                      023 05 0
1   *F    STP 8 D-                                                      023 06 0
1         BUN 8 A-                                                      023 07 0
1         BUN 8 D-+2                                                    023 08 0
1   *Z19  DEFN  *                                                       023 09 0
1   *E    STP   *,2428                                                  023 10 0
1   *Z20  BUN   *,J+-LOD2+100                                           023 11 0
1         LDB 8 Q-                                                      023 12 0
1         RTF 8 J+,23                                                   023 13 0
1         BUN 8 F-                                                      023 14 0
1   *X    CLL 8 O+                                                      023 15 0
1         IFL 8 G-,04,1                                                 023 16 0
1         CLA                                                           023 17 0
1         BUN 8 G-                                                      023 18 0
1   *Y    DEFN  *                                                       023 19 0
1   *Z21  STP   *,2408                                                  023 20 0
1   *Z22  BUN   *,J+-LOD2+100                                           023 21 0
1         CLL 8 N+                                                      023 22 0
1         IFL 8 N+,04,21                                                023 23 0
1         LDB 8 Q-                                                      023 24 0
1         RTF 8 J+,23                                                   023 25 0
1         STP 8 O+                                                      023 26 0
1         BUN 8 H-                                                      023 27 0
1   *Z23  DEFN  *                                                       023 28 0
1   *W    STP   *,2428                                                  023 29 0
1   *Z24  BUN   *,J+-LOD2+100                                           023 30 0
1         LDR 8 L++2                                                    023 31 0
1         STR 8 L++1                                                    023 32 0
1         BUN 8 Y-+2                                                    023 33 0
1   *P    IFL 8 T+,02,03                                                023 34 0
1         STR 8 T++2,04                                                 023 35 0
1         IFL 8 T++2,82,23                                              023 36 0
1         CAD 8 S++2                                                    023 37 0
1         LDR 8 T++1                                                    023 38 0
1         BFR 8 *+2,21,0                                                023 39 0
1         SUB 8 S++4                                                    023 40 0
1         BPA 8 *+3                                                     023 41 0
1         IFL 8 T++2,02,20                                              023 42 0
1         LSA   0                                                       023 43 0
1         CLR                                                           023 44 0
1         SRT   1                                                       023 45 0
1         SLA   1                                                       023 46 0
1         SLT   7                                                       023 47 0
1         ADD 8 S++5                                                    023 48 0
1         STA 8 T++3,00                                                 023 49 0
1         BUN 8 M-                                                      023 50 0
1   *O    CNST  0                                                       023 51 0
1   *T    CNST  20000000000                                             023 52 0
1         CNST  20000000000                                             023 53 0
1         CNST  20000000000                                             023 54 0
1         CNST  20000000000                                             023 55 0
1   *S    CNST  1                                                       023 56 0
1         CNST  9999                                                    023 57 0
1         CNST  0                                                       023 58 0
1         CNST  8                                                       023 59 0
1         CNST  50                                                      023 60 0
1         CNST  8080000000                                              023 61 0
1   *L    CNST  0                                                       023 62 0
1         CNST  0                                                       023 63 0
1         CNST  0                                                       023 64 0
1   *N    CNST  0                                                       023 65 0
1   *I    CNST  $       ARRAY                                           023 66 0
1                                                                       023 67 0
1                         $                                             023 68 0
1   *J    CNST  $                                                       023 69 0
1                                                                       023 70 0
1                         $                                             023 71 0
1         REM                                                           023 72 0
1         REM                                                           023 73 0
1   *V    NOP   LOD3-100        GET EITHER A PROCEDURE                  023 74 0
1         LDB 8 S-              HEADER OR END OF DUMP                   023 75 0
1         RTF 8 *+2,3           PROGRAM                                 023 76 0
1         BUN   1                                                       023 77 0
1         LBC 8 *-4                                                     023 78 0
1         MRD 4 100,1,3,BMOD                                            023 79 0
1         BUN   100                                                     023 80 0
1         LOCN  LOD2+240                                                023 81 0
1         REM                                                           023 82 0
1         REM                                                           023 83 0
1   FIN   MOW 4 Q+,OT,1         OUTPUT END OF DUMP PROGRAM              023 84 0
1         MRW 4 OT                                                      023 85 0
1         CAD   MEM                                                     023 86 0
1         CFA   +LDBG-1                                                 023 87 0
1         BCH   A+                                                      023 88 0
1         BUN   LDBG                                                    023 89 0
1   *A    CFA   +MEM+302                                                023 90 0
1         BCL   A+                                                      023 91 0
1         BUN   LDBG                                                    023 92 0
1   *A    MIB 4 *+2,T                                                   023 93 0
1         BUN   *-1                                                     023 94 0
1         MRW 4 T                                                       023 95 0
1         DLB   *,44,0                                                  023 96 0
1         MPF 4 T,10                                                    023 97 0
1         DBB   *-1,1100                                                023 98 0
1         MPF 4 T,2                                                     023 99 0
1         LDB   *+1                                                     024 00 0
1   POSCT NOP   0                                                       024 01 0
1         IBB   *+3,9999                                                024 02 0
1         MPF 4 T,1                                                     024 03 0
1         BUN   *-2                                                     024 04 0
1         MRD 4 400,T,10                                                024 05 0
1         MRD 4 1400,T,10                                               024 06 0
1         MRW 4 T                                                       024 07 0
1         MIB 4 *+2,T                                                   024 08 0
1         BUN   *-1                                                     024 09 0
1         MLS 4 OT                                                      024 10 0
1         BUN   LDBG                                                    024 11 0
1         REM                                                           024 12 0
1         REM                                                           024 13 0
1   LOD4  DEFN  *                                                       024 14 0
1   *Q    MRW 4 OT+10                                                   024 15 0
1         BCS   *+3-LOD4+100,9                                          024 16 0
1   *Z25  STP   *,2418                                                  024 17 0
1   *Z26  BUN   *,J+-LOD4+100                                           024 18 0
1         LDR   A+-LOD4+100                                             024 19 0
1         STR   MLOAD-1                                                 024 20 0
1         BUN   MLOAD-1                                                 024 21 0
1   *A    MNC 4 0,OT,4                                                  024 22 0
1   *J    CNST  $                                                       024 23 0
1                                                                       024 24 0
1                          $                                            024 25 0
1         LOCN  *+10          SPACE FOR PATCHES                         024 26 0
1         REM                                                           024 27 0
1         REM                                                           024 28 0
1   GET   CAD   MEM                                                     024 29 0
1         ADD   +7                                                      024 30 0
1         CFA   +XZERO-1,04                                             024 31 0
1         BCH   A+              IS THERE ENOUGH ROOM                    024 32 0
1         CAD   MEM             YES-  USE PRESENT SETTING OF MEM        024 33 0
1   GETX  BUN   *                                                       024 34 0
1   *A    CAD   +700            IF NOT SET IT TO 0800                   024 35 0
1         STA   MEM             AND DONT BOTHER CHECKING ANY MORE       024 36 0
1         BUN   GETX                                                    024 37 0
1         REM                                                           024 38 0
1         REM                                                           024 39 0
1   SBMUD F244  0,SBMUD,0       INVERTED DUMP STACK                     024 40 0
1   FIXUP F424  FIXUP,0,0       FIX-UPS FOR CALLS OF EXT PROGRAMS FROM  024 41 0
1         REM                   WITHIN SEGMENTS                         024 42 0
1   NN    CNST  99              CONSTANT 99                             024 43 0
1   LCHOD CNST  0                                                       024 44 0
1   HALT  F424  757,0,7250      O K  HALT                               024 45 0
1   VECTR CNST  0,0,0,0,0,0     STORAGE VECTOR USED BY THE MONSTER      024 46 0
1   SRERR CNST  21662454159     SEARCH ERROR                            024 47 0
1         CNST  24348004559                                             024 48 0
1         CNST  25956590202                                             024 49 0
1   CSERR CNST  21643484543     CHECK SUM ERROR                         024 50 0
1         CNST  25200626454                                             024 51 0
1         CNST  20045595956                                             024 52 0
1         CNST  25902020202                                             024 53 0
1   ERFRM FBGR  PRINT,9(T5A),75B                                        024 54 0
1   SREF  CNST  0               SYMBOL REFERENCE ADDRESS - PRESENT ITEM 024 55 0
1   SL    CNST  0               SYMBOL LENGTH                           024 56 0
1   HOLD  CNST  0               SHORT TERM STORAGE LOCATION             024 57 0
1   THROW CNST  0               DITTO                                   024 58 0
1   NINES CNST  9999999999,9999999999   LARGEST POSSIBLE SYMBOL         024 59 0
1         REM   ALL 301 STACKS USED BY THE MONSTER ARE INITIALIZED WITH 024 60 0
1         REM   THIS SYMBOL SO SORTING CAN BE DONE                      024 61 0
1   IDEX  CNST  0               LEVEL OF PROCEDURE                      024 62 0
1   DIM   CNST  0               NUMBER OF DIMENSIONS                    024 63 0
1   J     CNST  0               COUNTER USED IN CONNECTION WITH LBRT    024 64 0
1   TST   CNST  0               COUNT OF ROUTINES ASSIGNED INDIREDTLY   024 65 0
1   ADDIT CNST  0                                                       024 66 0
1   MADIT CNST  0                                                       024 67 0
1   DIMS  LOCN  *+20            DIMENSION LIST                          024 68 0
1   LX    LOCN  *+50                                                    024 69 0
1   MEM   HLT   *+302           NEXT FREE LOCATION                      024 70 0
1   TBL   F244  0,NINES,0       SORTED STACKS SET UP BY THE MONSTER     024 71 0
1         LOCN  4000                                                    024 72 0
1         MRW   2,4                                                     024 73 0
1   *A    MPF   2,0                                                     024 74 0
1         DFL   A--1,01,1                                               024 75 0
1         BRP   A-                                                      024 76 0
1         MPF   2,5                                                     024 77 0
1         MOW   0000,2,3                                                024 78 0
1         MOW   700,2,9                                                 024 79 0
1         MOW   1600,2,0                                                024 80 0
1         MOW   2600,2,0                                                024 81 0
1         MRW   2                                                       024 82 0
1         F424  2222,00,2222                                            024 83 0
1         LOCN  LX                                                      024 84 0
1         FINI  2                                                       024 85 0
