Personal tools
You are here: Home Projects FORTRAN and FORTRAN II Source Code ibsys FORTRAN 32K 709/7090 FORTRAN ASSEMBLY PROGRAM - MACRO-FAP
Document Actions

32K 709/7090 FORTRAN ASSEMBLY PROGRAM - MACRO-FAP

by Paul McJones last modified 2005-06-01 20:11

Click here to get the file

Size 856.1 kB - File type text/plain

File contents

$JOB   ASSEMBLY OF MONITOR, COMPILER SECTIONS 1 THROUGH 6 OF           $00000010
$*     FORTRAN II PROCESSOR, 7090-FO-928                                00000020
$*     VERSION 3, MODIFICATION LEVEL 35                             (35)00000030
$EXECUTE       IBSFAP                                                  $00000050
*      32K 709/7090 FORTRAN ASSEMBLY PROGRAM   MACRO-FAP                F0D00000
*      FAP                                                              F0D00010
*      32K 709/7090 FORTRAN ASSEMBLY PROGRAM   MACRO-FAP                F0D00020
       COUNT   10000                                                    F0D00030
       TITLE                                                            F0D00040
       ABS                                                              F0D00050
       SST     FORTRAN                                                 $F0D00060
       HEAD    4,5            COMMON TO PASS ONE AND TWO                F0D00070
       REM     PARAMETERS VARIABLE AT ASSEMBLY TIME                     F0D00080
       REM                                                              F0D00090
INPREM SYN     0              NUMBER OF WORDS PRECEDING PACKED RECORD   F0D00100
INPRCL SYN     16             LENGTH OF INTERMEDIATE RECORD             F0D00110
INPBKL SYN     16*INPRCL+INPREM LENGTH OF PACKED INTERMEDIATE BUFFER    F0D00120
UPDRCL SYN     14             LENGTH OF UPDATE INPUT/OUTPUT RECORD      F0D00130
UPDBKL SYN     16*UPDRCL      LENGTH OF UPDATE INPUT/OUTPUT BUFFER      F0D00140
TOPTAB SYN     BOTIOP-1       TOP OF AVAILABLE TABLE BUFFERS            F0D00150
BOTBUF SYN     TOPTAB-6*UPDBKL-2*INPBKL-214                             F0D00160
BOTTAB SYN     BOTTOM+7900    LOWER LIMIT FOR DATA TABLE SPACE          F0D00170
       REM                                                              F0D00180
M      SYN     1              TABLE FACTORS                             F0D00190
N      SYN     1                                                        F0D00200
LOPTBM SYN     2048           MAXIMUM LENGTH OF MACHINE OPERATION TABLE F0D00210
LMXTBL SYN     1000*M/N       MACRO EXPANSION TABLE LENGTH              F0D00220
LLITBL SYN     500*M/N*2      LITERAL TABLE LENGTH                      F0D00230
LTVTBL SYN     250*M/N        TRANSFER VECTOR TABLE LENGTH              F0D00240
LSMTBM SYN     BOTBUF-LLITBL-LTVTBL-BOTTAB                              F0D00250
       REM                    MAXIMUM LENGTH OF SYMBOL AND REF TABLES   F0D00260
LUDTBM SYN     LSMTBM/100     MAXIMUM LENGTH OF UNDEFINED SYMBOL TABLE  F0D00270
       REM                                                              F0D00280
       REM                                                              F0D00290
     T EQU     16             MAXIMUM NUMBER OF LOGICAL TAPES IN SYSTEM F0D00300
     C EQU     4              MAXIMUM NUMBER OF DATA CHANNELS IN SYSTEM F0D00310
       REM                    C MUST BE A MULTIPLE OF 2                 F0D00320
       REM                                                              F0D00330
 EXPRR SYN     1              SENSE LIGHT FOR ERROR ON EXPRESSION       F0D00340
 EXPND SYN     2              SENSE LIGHT FOR END OF EXPRESSION         F0D00350
 FLDND SYN     4              SENSE LIGHT FOR END OF VARIABLE FIELD     F0D00360
       REM                                                              F0D00370
 TDMSK BOOL    000001         FLAG FOR TYPE D SENSE OPERATION           F0D00380
 VLMSK BOOL    000002         FLAG FOR VARIABLE LENGTH OPERATION        F0D00390
 TKMSK BOOL    000004         FLAG FOR TYPE K DISC COMMAND              F0D00400
 9OMSK BOOL    020000         FLAG FOR OPERATIONS RESTRICTED TO 709/90  F0D00410
 04MSK BOOL    040000         FLAG FOR OPERATIONS RESTRICTED TO 704     F0D00420
       TTL     COMMON SUBROUTINES, CONSTANTS AND ERASABLE               F0D00430
       LBL     9F04,X                                                   F0D00440
       ORG     SYSCUR                                                  $F0D00450
       BCI     1,9F0400                                                $F0D00460
       ORG     (LODR)                                                  $F0D00470
       TXI     START,,40               ENTRY POINT,,RECORD NUMBER       F0D00480
       REM                                                              F0D00490
       ORG     BOTTOM-7      LOAD INFORMATION FOR MACHINE ERROR RECORD $F0D00494
       PZE     INRECT+1,,4   ORIGIN OF REC. COUNT TABLE,,LENGTH        $F0D00495
       REM                                                              F0D00500
       ORG     BOTTOM                                                   F0D00520
       REM                                                              F0D00530
       REM     TRANSFER VECTOR                                          F0D00540
       REM                                                              F0D00550
 CHANS PZE     C              NUMBER OF CHANNELS IN SYSTEM              F0D00560
SYSAST PZE     T              NUMBER OF TAPES ASSIGNED TO SYSTEM        F0D00570
SYSTPS PZE     7             NUMBER OF TAPES RESERVED TO MONITOR       $F0D00580
       REM                                                              F0D00590
       REM     ERASABLE INFORMATION TRANSMITTED BETWEEN PASSES          F0D00600
MAINPF PZE     ,,1            FLAG FOR MAIN PROGRAM (ZERO IF SUBPROGRAM)F0D00610
ABSFLG PZE     **             FLAG FOR ABSOLUTE ASSEMBLY                F0D00620
ONLCFG PZE     **             FLAG FOR ONLINE COLUMN BINARY CARDS       F0D00630
OFLCFG PZE     **             FLAG FOR OFFLINE COLUMN BINARY CARDS      F0D00640
CRDFLG PZE     **             FLAG FOR ONLINE CARDS                     F0D00650
LBLFLG PZE     **             FLAG FOR OFFLINE CARD LABEL AND SERIAL    F0D00660
IPTFLG PZE     **             FLAG FOR UPDATE INPUT TAPE                F0D00670
OPTFLG PZE     **             FLAG TO WRITE UPDATE OUTPUT TAPE          F0D00680
PAKFLG PZE     **,,**         FLAG TO UNPACK UPDATE OUTPUT TAPE         F0D00690
DELFLG PZE     **             FLAG TO DELETE ASSEMBLY                   F0D00700
SEPFLG SVN     -1,-1,-1       FLAG FOR STANDARD ERROR PROCEEDURE        F0D00710
       REM                    SET TO PZE BY 9F04FLOW                    F0D00720
       REM                    TO DELETE STANDARD ERROR PROCEDURE        F0D00730
LITSIZ PZE     22,,**         LOG LLITBL,,LITERAL TABLE COUNT           F0D00740
       REM                    (LITERAL TABLE LIMITED TO 1024 ENTRIES)   F0D00750
 PRGBK PZE     **             CURRENT PROGRAM BREAK                     F0D00760
 PROLG PZE     **             LENGTH OF VECTOR, LINKAGE DIRECTOR        F0D00770
       REM                                                              F0D00780
       REM     ERASABLE INFORMATION RESET BETWEEN PASSES                F0D00790
CHRCTR PZE                    NEXT CHARACTER IN VARIABLE FIELD          F0D00800
RESIDU PZE                    REMAINDER OF NEXT WORD IN VARIABLE FIELD  F0D00810
 UPCTR PZE     -207,,2        COMMON STORAGE COUNTER,,RELOCATION BIT    F0D00820
 CDCTR PZE     **             ABS CARD ORIGIN COUNTER                   F0D00830
 LOCTR PZE     **,,1          PROGRAM COUNTER,,RELOCATION BIT           F0D00840
 ADDRS PZE     **,,1          DEFINITION OF SYMBOL,,RELOCATABLE FLAG    F0D00850
 OPCOD PZE                    OP FIELD (CC 8 - 13)                      F0D00860
       DEC     ,,,,,,,,,      MULTIPLE HEAD CHARACTERS (PRECEDE BHEAD)  F0D00870
 BHEAD PZE                    HEADING CHARACTER                         F0D00880
 THEAD PZE                    HEADING CHARACTER PRECEDING $             F0D00890
 SYMB2 PZE                    HIGH ORDER SIX CHARACTRS ALPHAMERIC FIELD F0D00900
 SYMBL PZE                    LOW ORDER SIX CHARACTERS ALPHAMERIC FIELD F0D00910
 VFDFL PZE                    LOW ORDER HALF OF VARIABLE FIELD          F0D00920
       PZE                    HIGH ORDER HALF OF VARIABLE FIELD         F0D00930
 BINRY PZE                    36 BIT BINARY INSTRUCTION, DATA WORD      F0D00940
 NERAS PZE                    INTEGER FIELD                             F0D00950
 XERAS PZE                    EXPONENT (E) FIELD                        F0D00960
 BERAS PZE                    BINARY (B) FIELD                          F0D00970
 ERASE PZE                    GENERAL ERASABLE                          F0D00980
 OFLGS PZE                    FLAGS FOR DECODING OF MACHINE INSTRUCTION F0D00990
 VRFLD PZE     **,,**         CHARACTER COUNT,,WORD COUNT               F0D01000
 INDFG PZE     **             FLAG FOR INDIRECT ADDRESS OP CODE         F0D01010
 RBITS PZE     **             RELOCATION BITS FOR FIELD                 F0D01020
 INDIC PZE     **,,**         RELOCATION BITS FOR WORD                  F0D01030
 DUPCT PZE     ,,**           NUMBER OF ITERATIONS IN RANGE OF DUP CARD F0D01040
       PZE     **             PROGRAM COUNTER AT ENTRY INTO RANGE       F0D01050
       PZE     **             CARD COUNTER AT ENTRY INTO RANGE          F0D01060
 DUPFG PZE     **             FLAG TO UNBLOCK INTERMEDIATE TAPE         F0D01070
 SKDUP MZE     **             RANGE OF DUP TO BE BACKSPACED             F0D01080
 TVFLG PZE     **             FLAG FOR NAME IN TRANSFER VECTOR          F0D01090
 OPRFG PZE     **             FLAG FOR UNDEFINED OPERATION              F0D01100
 VFDRB PZE     **             NUMBER OF BITS REMAINING IN WORD          F0D01110
 VFDTB PZE     **             TOTAL BIT COUNT IN VAR FIELD OF VFD CARD  F0D01120
 VFDFB PZE     **             FIELD BIT COUNT IN VAR FIELD OF VFD CARD  F0D01130
 ELMEQ PZE     **             VALUE OF ELEMENT                          F0D01140
 ELMUN PZE     **             NUMBER OF SYMBOLS IN ELEMENT              F0D01150
 ELMUF PZE     **             FLAG FOR SYMBOLS IN ELEMENT               F0D01160
       REM                     0 ABSOLUTE                               F0D01170
       REM                    -1 COMMON                                 F0D01180
       REM                    +1 RELOCATABLE                            F0D01190
 TRMEQ PZE     **             VALUE OF TERM                             F0D01200
 TRMUN PZE     **             NUMBER OF SYMBOLS IN TERM                 F0D01210
 TRMUF PZE     **             FLAG FOR SYMBOLS IN TERM                  F0D01220
 VAREQ PZE     **             VALUE OF EXPRESSION                       F0D01230
 VARUC PZE     **             NUMBER OF COMMON SYMBOLS IN EXPRESSION    F0D01240
 VARUR PZE     **             NUMBER OF RELOCATABLE SYMBOLS IN EXPRSSN  F0D01250
 LINKG PZE     **             LOCATION OF LINKAGE DIRECTOR              F0D01260
 9LPMD PZE     **             FLAG FOR BINARY CONTROL CARD FORMAT       F0D01270
 FULMD PZE     **             FLAG FOR BINARY CARD FUL FORMAT           F0D01280
 BOLMD PZE     **             FLAG FOR BOOLEAN FIELD                    F0D01290
 DUPMD PZE     **             FLAG FOR RECORD WITHIN RANGE OF DUP       F0D01300
 ETCMD PZE     **             FLAG FOR FOLLOWING CARD A CALL OR VFD ETC F0D01310
 FCFLG PZE     **             FLAG FOR FIRST CARD GROUP COMPLETED       F0D01320
 SCNBC PZE     **             FLAG FOR BOOLEAN COM                      F0D01330
 SCNBE PZE     **             FLAG FOR BOOLEAN ERA                      F0D01340
 SCNFC PZE     **             FLAG FOR FIRST CHARACTER IN ELEMENT       F0D01350
 VFDPF PZE     **             MEDAL FOR 36 BIT VFD                      F0D01360
 VFDMD PZE     **             FLAG FOR VFD CARD                         F0D01370
 VFDHF PZE     **             HOLLERITH FIELD FLAG                      F0D01380
 VFDOF PZE     **             OCTAL FIELD FLAG                          F0D01390
 NOGOF PZE     **             FLAG FOR ASSEMBLY ERROR                   F0D01400
 TYPAF PZE     **             FLAG FOR TYPE A 0 00000 0 00000 INSTRUCTN F0D01410
 TYPCF PZE     **             FLAG FOR TYPE C VARIABLE LENGTH INSTRUCTN F0D01420
       REM                    OR TYPE K WITH HIGH ORDER COUNT FIELD     F0D01430
 TYPDF PZE     **             FLAG FOR TYPE D 0 00000  000000 INSTRUCTN F0D01440
 TYPKF PZE     **             FLAG FOR TYPE K 00 0000 0 00000 COMMAND   F0D01450
 OPFLG PZE     **             FLAG FOR OP DEFINITION PSEUDOOPERATION    F0D01460
 UNL1F PZE     **             PRELIMINARY FLAG TO SUSPEND LISTING       F0D01470
 UNLSF PZE     **             FLAG TO SUSPEND LISTING                   F0D01480
 TITLF PZE     **             FLAG TO SUSPEND LISTING OF GENERATED DATA F0D01490
 LBLFG PZE     **             BINARY CARD NUMBER LISTING FLAG           F0D01500
 PRTFG PZE     **             FLAG FOR ONLINE PRINTING OF ONE LINE      F0D01510
 PRTF1 PZE     **             PRELIMINARY FLAG FOR ONLINE PRINT         F0D01520
 DCNFG PZE     **             FLAG FOR DECIMAL POINT IN DECCV           F0D01530
 DCXFG PZE     **             FLAG FOR DECIMAL EXPONENT (E) IN DECCV    F0D01540
 DCBFG PZE     **             FLAG FOR BINARY EXPONENT (B) IN DECCV     F0D01550
 PRTIF PZE     **             FLAG FOR MACHINE INSTRUCTION IN PRINT     F0D01560
 704FG PZE     **             FLAG FOR ASSEMBLY IN 704 MODE             F0D01570
 ORDRF PZE     **             FLAG FOR INPUT CARD OUT OF ORDER          F0D01580
 TTLFG PZE     -1             FLAG TO PRINT SUBHEAD (PRESET FOR PASS 1) F0D01590
 P1FLG PZE     **             PASS 1 FLAGS TRANSMITTED TO PASS 2        F0D01600
       REM                    AS LOW ORDER 18 BITS OF WORD 14          $F0D01610
       REM                    BIT 35 PHASE ERROR                        F0D01620
       REM                        34 FOLLOWING CARD IS ETC              F0D01630
       REM                        33 FIELD ERROR                        F0D01640
       REM                        32 LITERAL ERROR                      F0D01650
       REM                        31 UNRECOGNIZED PSEUDOOP              F0D01660
       REM                        30 MACRO GENERATED CARD               F0D01670
       REM                        29 MISSING PSEUDOOP VARIABLE FIELD    F0D01680
       REM                        18 - 27 MACRO LEVEL NUMBER           $F0D01690
       REM                                                              F0D01700
       REM     FLAGS FOR ERRORS ON INPUT CARDS                          F0D01710
 DCPFG PZE     **             FLAG FOR EXCESS DECIMAL POINT            $F0D01720
 DCEFG PZE     **             FLAG FOR EXCESS EXPONENT (E)             $F0D01721
 DC2FG PZE     **             FLAG FOR EXCESS EXPONENT (B)             $F0D01722
 ERFDL PZE     **              IMPROPER DOLLAR SIGN                    $F0D01723
 ERRFU PZE     **             UNDEFINED SYMBOL                          F0D01730
 ERRFM PZE     **             MULTIPLY DEFINED SYMBOL                   F0D01740
 ERRFR PZE     **             RELOCATION ERROR                          F0D01750
 ERRFP PZE     **             PHASE ERROR                               F0D01760
 ERRFL PZE     **             LITERAL ERROR                             F0D01770
 ERRFO PZE     **             ILLEGAL OPERATION CODE                    F0D01780
 ERRFE PZE     **             VACUUM CLEANER                            F0D01790
 ERRFB PZE     **             BOOLEAN (OCTAL) ERROR                     F0D01800
       REM     FOLLOWING ERRORS ARE NON FATAL                           F0D01810
 ERRFN PZE     **             IMPROPER OP CODE                          F0D01820
 ERR49 PZE     **             MIXED MODE OPCODE                         F0D01830
 ERRFA PZE     **             MISSING ADDRESS                           F0D01840
 ERRFT PZE     **             MISSING TAG                               F0D01850
 ERRFD PZE     **             MISSING DECREMENT                         F0D01860
 ERRFI PZE     **             IMPROPER INDIRECT ADDRESS                 F0D01870
 ERRFF PZE     **             EXCESSIVE FIELD                           F0D01880
 ERFFM PZE     **             NON-FATAL MULTIPLY DEFINED SYMBOL         F0D01890
 EFLST PZE     *-ERRFN,,*-ERFDL NONFATAL LIST,,LENGTH OF ERROR LIST    $F0D01900
       REM     ADDITIONAL INFORMATION TRANSMITTED BETWEEN PASSES       $F0D01901
       REM                                                             $F0D01902
EVNFLG PZE     **             FLAG FOR EVEN CONTAINED IN PROGRAM       $F0D01903
       REM                                                             $F0D01904
       REM     ERROR CHARACTERS                                         F0D01910
       DEC     ,              PATCH SPACE                              $F0D01920
       BCI     1,$                                                     $F0D01921
       BCI     1,U                                                      F0D01930
       BCI     1,M                                                      F0D01940
       BCI     1,R                                                      F0D01950
       BCI     1,P                                                      F0D01960
       BCI     1,L                                                      F0D01970
       BCI     1,O                                                      F0D01980
       BCI     1,E                                                      F0D01990
       BCI     1,B                                                      F0D02000
       REM     FOLLOWING ERRORS ARE NONFATAL                            F0D02010
       BCI     1,N                                                      F0D02020
 FLG49 BCI     1,4            RESET TO 9 FOR 704 MODE CHANGE            F0D02030
       BCI     1,A                                                      F0D02040
       BCI     1,T                                                      F0D02050
       BCI     1,D                                                      F0D02060
       BCI     1,I                                                      F0D02070
       BCI     1,F                                                      F0D02080
       BCI     1,M                                                      F0D02090
 EFCHR SYN     *                                                        F0D02100
       REM                                                              F0D02110
       REM                                                              F0D02120
PGHDNG BCI     8,1                                                      F0D02130
       BCI     8,                                                       F0D02140
       BCI     2, PAGE 1                                                F0D02150
       REM                                                              F0D02160
BLANKS BCI     3,                                                       F0D02170
       BCI     5,PREPROCESSOR UPDATE PROGRAM                            F0D02180
       BCI     6,                                                       F0D02190
       REM                                                              F0D02200
PBUFF1 MZE     ,,4            PUNCH OUTPUT BUFFER                       F0D02210
       DEC     ,,,,,,,,,,,,,,,,,,,,,,                                   F0D02220
IDBUFF DEC     ,,,            CARD SERIAL BUFFER + ONE WORD SKEW SPACE  F0D02230
       REM                                                              F0D02240
       REM     BCD CARD BUFFERS                                         F0D02250
       REM                                                              F0D02260
 PFLAG DEC                    ERROR FLAGS                               F0D02270
       REM                    OCTAL EXPANSION OF MACHINE INSTRUCTION(23)F0D02275
 OCTAL DEC     ,,,                                                  (27)F0D02280
       REM                    (THIS BUFFER MUST PRECEDE BCDBF)          F0D02290
 BCDBF DEC     ,,,,,,,,,,,,,  SOURCE DECK WORKING BUFFER                F0D02300
 LITRL DEC                    VALUE OF LITERAL OR PSEUDOOP DEFINITION   F0D02310
 OPBIN DEC                    BINARY INSTRUCTION, PSEUDOOP TRANSFER     F0D02320
       REM                    (LITRL AND OPBIN MUST FOLLOW BCDBF)       F0D02330
       REM                                                              F0D02340
 INSBF BCI     9,                                                       F0D02350
       BCI     8,                                     INSERTED          F0D02360
       REM                                                              F0D02370
 DELBF BCI     9,                                                       F0D02380
       BCI     8,      THE FIRST CARD IN THIS DECK IS DELETED           F0D02390
       REM                                                              F0D02400
 ORDBF BCI     9,                                                       F0D02410
       BCI     9,                                           ORDER ERROR F0D02420
       REM                                                              F0D02430
       REM                                                              F0D02440
       REM     COMMON ROUTINES                                          F0D02450
       REM                                                              F0D02460
       REM     WRITE LINE ON AND OFF LINE                               F0D02470
       REM                    CALL IS TSX FPRINT,4                      F0D02480
       REM                            PZE FWORD,,COUNT                  F0D02490
       REM                           (MZE FWORD,,COUNT FORCE PRINTING)  F0D02500
       REM                           (         ,,0     BLANK LINE)      F0D02510
FPRINT SXA     FPRNX,4        SAVE CALLING LINKAGE                      F0D02520
       SXA     FPRNX+1,2      SAVE WORD COUNT                           F0D02530
       SXA     FPRNX+2,1      SAVE CHARACTER COUNT                      F0D02540
       CLA     1,4            LOAD PARAMETER                            F0D02550
       STA     FPRN2          INITIALIZE I/O COMMAND                    F0D02560
       STD     FPRN2                                                    F0D02570
       PDX     ,2             LOAD WORD COUNT                           F0D02580
PAGCNT AXT     **,1           LOAD PAGE LINE COUNT                  (20)F0D02590
PAGENO AXT     **,4           LOAD PAGE NUMBER                      (20)F0D02600
       TXH     FPRN0,2,0     IS BLANK LINE REQUESTED                   $F0D02610
       LDQ     IOBLK         YES,LOAD PARAMETER FOR BLANK LINE         $F0D02620
       STQ     FPRN2         INITIALIZE I/O COMMAND                    $F0D02630
       TXL     FPRN0,1,0      IS BLANK LINE AT TOP OF PAGE          (20)F0D02640
       TXH     FPRN0,1,4      IS BLANK LINE AT BOTTOM OF PAGE       (20)F0D02650
       ZSA     PAGCNT         YES, EJECT PAGE                       (20)F0D02660
       TXH     FPRNX,4,0      TRANSFER IF NOT FIRST PAGE            (20)F0D02670
       REM     LINE IS NOT BLANK,OR NOT AT BOTTOM OF PAGE           (20)F0D02680
 FPRN0 TPL     *+2            IS THIS LINE FORCED                   (20)F0D02690
       STL     PRTF1          YES,SET FLAG                          (20)F0D02700
       TIX     FPRN1,1,1      IS PAGE FULL                          (20)F0D02710
       TXI     *+1,4,1        YES, BUMP PAGE NUMBER                 (20)F0D02720
       SXA     PAGENO,4                                             (20)F0D02730
       PXA     ,4             LOAD NEW PAGE NUMBER                      F0D02740
       TSX     BCDCV,4       *CONVERT TO BCD                            F0D02750
       LDQ     BLANKS         APPEND FOLLOWING BLANKS                   F0D02760
       LGR     6              LEFT ADJUST                               F0D02770
       TNZ     *-1                                                      F0D02780
       STQ     PGHDNG+17      INSERT IN PAGE HEADING                    F0D02790
       TSX     WRITT,4       *WRITE PAGE HEADING                        F0D02800
       IOCD    PGHDNG,,18                                               F0D02810
       NZT     TTLFG          IS SUBTITLE SPECIFIED                     F0D02820
       TRA     *+3            NO                                        F0D02830
       TSX     WRITT,4       *YES, WRITE IT                             F0D02840
 IOHED IOCD    BLANKS,,14                                               F0D02850
       TSX     WRITT,4       *WRITE BLANK LINE                          F0D02860
 IOBLK IOCD    BLANKS,,3                                                F0D02870
       CLA    (PGCT)          RESET LINE COUNT                          F0D02880
       PDX     ,1                                                       F0D02890
       ZET     TTLFG          IS SUBTITLE SPECIFIED                     F0D02900
       TXI     *+1,1,-1       YES, BUMP PAGE LINE COUNT DOWN ONE        F0D02910
       TRA     PATCH                                                   $F0D02920
 FPRN1 CLA     PRTF1          NO, SET ONLINE PRINT FLAG                 F0D02930
       STO     PRTFG                                                    F0D02940
       STZ     PRTF1          RESET INTERMEDIATE FLAG                   F0D02950
       TSX     FPRNA,4       *TEST FOR PRINT CONTROL, SET XR4          $F0D02960
 FPRN2 IOCD    **,,**                                                   F0D02970
       SXA     PAGCNT,1       SAVE PAGE LINE COUNT                      F0D02980
 FPRNX AXT     **,4           RELOAD CALLING LINKAGE                    F0D02990
       AXT     **,2           RELOAD WORD COUNT                         F0D03000
       AXT     **,1           RELOAD CHARACTER COUNT                    F0D03010
       TRA     2,4                                                      F0D03020
       REM                                                              F0D03030
       REM     BLOCK LISTING OUTPUT TAPE                                F0D03040
 WRITT SXA     WRITX,4        SAVE CALLING LINKAGE                      F0D03050
       SXA     WRITX+1,2      SAVE WORD COUNT                           F0D03060
       SXA     WRITX+2,1      SAVE LINE COUNT                           F0D03070
       AXT     **,1           LOAD BLOCK WORD COUNT                     F0D03080
       LAC     WRBLK+1,2      LOAD BUFFER INDEX                         F0D03090
       TXL     *+4,1,0        IS THIS FIRST LINE IN BLOCK               F0D03100
       CAL     RECMK          NO, INSERT RECORD MARK                    F0D03110
       SLW*    BCD14+1,2      FOLLOWING LAST WORD OF PREVIOUS LINE      F0D03120
       TXI     *+1,1,-1       BUMP COUNT TO NEXT WORD IN BLOCK          F0D03130
       CAL     1,4            LOAD PARAMETER                            F0D03140
       STO     WRIT1+2        INITIALIZE PRINT I/O PARAMETER            F0D03150
       PDX     ,4             LOAD WORD COUNT                           F0D03160
       SXA     XERAS,4                                                  F0D03170
       ADM     XERAS          COMPUTE ORIGIN AT END OF BUFFER           F0D03180
       STA     *+1            INITIALIZE COPY LOOP                      F0D03190
       CAL     **,4           MOVE NEXT WORD                            F0D03200
       SLW*    BCD14+1,2      INTO OUTPUT BUFFER                        F0D03210
       TXI     *+1,1,-1       BUMP TO NEXT WORD IN BLOCK                F0D03220
       TIX     *-3,4,1        IS LINE COMPLETE                          F0D03230
       SXA     WRITT+3,1      YES, SAVE BLOCK WORD COUNT                F0D03240
 WRIT0 AXT     **,4           BUMP BLOCK LINE COUNT                     F0D03250
       TXI     *+1,4,1                                                  F0D03260
       SXA     WRIT0,4                                                  F0D03270
       TXH     *+2,4,-1       IS LISTING TAPE TO BE UNBUFFERED          F0D03280
       TXL     *+2,4,4        NO, IS BLOCKED BUFFER FULL                F0D03290
       TSX     WRBLK,4       *YES, WRITE BUFFER                         F0D03300
 WRITS NOP                    IS THIS LINE MONITORED                    F0D03310
       TRA     *+2            NO                                        F0D03320
       TRA     *+3            YES                                       F0D03330
       NZT     PRTFG          IS THIS LINE FORCED                       F0D03340
 WRIT1 TXL     WRITX,4,-1     NO, IS ONLINE PRINT SPECIFIED             F0D03350
       TSX    (PRNT),4       *YES, PRINT LINE                           F0D03360
       PZE     **,,**                                                   F0D03370
       SXA     PRTFG,0        RESET FLAG                                F0D03380
 WRITX AXT     **,4           RELOAD CALLING LINKAGE                    F0D03390
       AXT     **,2           RELOAD WORD COUNT                         F0D03400
       AXT     **,1           RELOAD LINE COUNT                         F0D03410
       TRA     2,4                                                      F0D03420
 RECMK OCT     606060606072   720 PRINTER RECORD MARK                   F0D03430
       REM                                                              F0D03440
       REM     WRITE FINAL BLOCK ON LISTING TAPE                        F0D03450
 WRFBK SXA     WRFBX,4        SAVE CALLING LINKAGE                      F0D03460
       LXA     WRITT+3,1      LOAD BLOCK WORD COUNT                     F0D03470
       TXL     WRFBX,1,0      IS BLOCK EMPTY                            F0D03480
       LAC     WRBLK+1,2      NO, LOAD BUFFER INDEX                     F0D03490
       CAL     FRCMK          INSERT 720 PRINTER NOP                    F0D03500
       SLW*    BCD14+1,2      FOLLOWING LAST LINE                       F0D03510
       TXI     *+1,1,-1       BUMP WORD COUNT                           F0D03520
       SXA     WRITT+3,1                                                F0D03530
       TSX     WRBLK,4       *WRITE LAST BUFFER                         F0D03540
 WRFBX AXT     **,4           RELOAD CALLING LINKAGE                    F0D03550
       TRA     1,4                                                      F0D03560
 FRCMK OCT     606060607260   720 PRINTER NOP                           F0D03570
       REM                                                              F0D03580
       REM     WRITE BLOCKED/UNBLOCKED LISTING OUTPUT TAPE              F0D03590
 WRBLK SXA     WRBLX,4        SAVE CALLING LINKAGE                      F0D03600
       AXC     1,2            LOAD BUFFER INDEX                         F0D03610
       SXA     *-1,2          FLIP BUFFER INDEX                         F0D03620
       LAC     WRITT+3,1      LOAD BLOCK WORD COUNT                     F0D03630
       TXL     WRBLX,1,0      IS BLOCK EMPTY                            F0D03640
       PXD     ,1             NO, INITIALIZE I/O COMMAND WORD COUNT     F0D03650
       STD     BCD14,2                                                  F0D03660
       TSX    (TAPE),4       *WRITE BLOCKED/UNBLOCKED RECORD            F0D03670
       PZE     BCD14,2,(WDNP)                                           F0D03680
       PZE     ,,MLSTAP                                                 F0D03690
       CAL*   (LNCT)          BUMP LINE COUNT                           F0D03700
       ADM     WRIT0                                                    F0D03710
       STA*   (LNCT)                                                    F0D03720
 WRBLX AXT     **,4           RELOAD CALLING LONKAGE                    F0D03730
       SXA     WRITT+3,0      RESET BLOCK WORD COUNT                    F0D03740
       SXA     WRIT0,0        RESET BLOCK LINE COUNT                    F0D03750
       TRA     1,4                                                      F0D03760
       REM                                                              F0D03770
       REM     ASSEMBLE UNIFORM SYMBOL                                  F0D03780
 LOCFL SXA     LOCFX,4        SAVE CALLING LINKAGE                      F0D03790
       STZ     SYMBL          CLEAR WORKING STORAGE                     F0D03800
       LAS     BLANKS         IS SYMBOL ALL BLANKS                      F0D03810
       TRA     *+2            NO                                        F0D03820
       TRA     LOCF2          YES                                       F0D03830
       XCL                    RECALL SYMBOL                             F0D03840
       AXT     6,4            PREPARE TO SCAN SIX CHARACTERS            F0D03850
 LOCF1 PXD     ,0                                                       F0D03860
       LGL     6              GET NEXT CHARACTER                        F0D03870
       LAS     BLANK          IS IT BLANK                               F0D03880
       TRA     *+2            NO                                        F0D03890
       TRA     *+5            YES                                       F0D03900
       LGR     6              ADD NONBLANK CHARACTER                    F0D03910
       CAL     SYMBL                                                    F0D03920
       LGL     6                                                        F0D03930
       SLW     SYMBL          SAVE PARTIAL SYMBOL                       F0D03940
       TIX     LOCF1,4,1      IS SYMBOL ASSEMBLED                       F0D03950
 LOCF2 CAL     SYMBL          YES, RELOAD UNIFORM SYMBOL                F0D03960
 LOCFX AXT     **,4           RELOAD CALLING LINKAGE                    F0D03970
       TRA     1,4                                                      F0D03980
       REM                                                              F0D03990
       REM     SET UP OPCODE, VARIABLE FIELD                            F0D04000
 SETUP SXA     STUPX,4        SAVE CALLING LINKAGE                      F0D04010
       STZ     INDFG          RESET INDIRECT ADDRESS FLAG               F0D04020
       REM     CHECK FOR COMMENTS CARD                              (24)F0D04030
       CAL     BCDBF          LOAD CARD WORD 1                      (24)F0D04040
       LGR     30             ISOLATE COLUMN 1                      (24)F0D04050
       ERA     ASTRK         IS THIS COMMENTS CARD                     $F0D04060
       TZE     1,4           YES                                       $F0D04070
       ERA     Q7            IS IT A DOLLAR SIGN                       $F0D04071
       TZE     1,4           YES                                       $F0D04072
       AXC     1,2            NO, INITIALIZE WORD AND               (24)F0D04080
       AXT     6,1            CHARACTER POSITIONS FOR OP CODE SCAN  (24)F0D04090
       CAL     BCDBF+1        CHECK FOR ASTERISK IN COLUMN 7 (UGH)  (24)F0D04100
       LGR     30             POSSIBLE IF IN IBSFAP MODE            (24)F0D04110
       ERA     ASTRK          IS IT BY CHANCE                       (24)F0D04120
       TZE     STP00         *CHECK MODE IF YES                     (24)F0D04130
       REM     REENTRY TO SCAN NEXT CHARACTER IN OP FIELD           (24)F0D04135
 STP01 SXA     STP06,2        STORE CURRENT WORD AND CHARACTER      (24)F0D04140
       SXA     NERAS,1        POSITIONS OF OP CODE SCAN             (24)F0D04150
       TSX     C019Q,4       *GO GET NEXT CHARACTER                 (24)F0D04160
       SUB     ASTRK          IS THIS *                                 F0D04170
       TNZ     *+3           NO                                        $F0D04180
       STL     INDFG         YES, SET INDIRECT FLAG                    $F0D04190
       TRA     STP02                                                   $F0D04200
       SUB     Q4            IS THIS BLANK                             $F0D04210
       TZE     STP2A          YES, END OF OPCODE                    (24)F0D04220
       SUB     EQUAL         NO, IS THIS ,                             $F0D04230
       TZE     STP03         YES, END OF OPCODE                        $F0D04240
       SUB     Q1            NO, IS THIS (                             $F0D04250
       TZE     STP04          YES                                   (24)F0D04260
       STZ     INDFG         NO, RESET INDIRECT FLAG                   $F0D04270
 STP02 TXH     STP01,2,-2     ARE WE STILL IN CARD WORD 2           (24)F0D04280
       TXH     STP01,1,4      NO, ARE WE PAST CC 14                 (24)F0D04290
       LXA     STUPX,4        YES, OP FIELD IS TOO LONG             (24)F0D04300
       TRA     2,4            TAKE ERROR RETURN                     (24)F0D04310
       REM     REENTRY FOR OP CODE TERMINATED BY BLANK              (24)F0D04320
 STP2A TSX     C019Q,4       *OBTAIN NEXT CHARACTER                 (24)F0D04330
       SUB     BLANK          IS IT BLANK                           (24)F0D04340
       TNZ     STP05          NO, VARIABLE FIELD HAS BEGUN          (24)F0D04350
       TXH     STP2A,2,-2     YES, ARE WE PAST WORD 2               (24)F0D04355
       TXH     STP2A,1,4      YES, IS NEXT COLUMN 16                (24)F0D04360
       REM     REENTRY FOR OP CODE TERMINATED BY ,                  (24)F0D04370
 STP03 TSX     C019Q,4       *INITIALIZE CHRCTR PROPERLY            (24)F0D04380
       REM     REENTRY FOR OP CODE TERMINATED BY (                  (24)F0D04390
 STP04 TXL     STP05,2,-2     ARE WE PAST WORD TWO                  (24)F0D04400
       TXH     STP01,1,4      NO, ( IN CC 8 IS PART OF OP CODE      (24)F0D04410
       REM     REENTRY FOR BEGINNING OF VARIABLE FIELD SENSED       (24)F0D04420
 STP05 CAL     CHRCTR         RELOAD BEGINNING CHARACTER            (24)F0D04430
       LGR     6              AND POSITION FOR SCAN                 (24)F0D04440
       STQ     RESIDU         STORE SCAN WORD                       (24)F0D04450
       TXI     *+1,1,1        BUMP CHARACTER POSITION BACK          (24)F0D04460
       SXD     VRFLD,2        STORE WORD AND CHARACTER              (24)F0D04470
       SXA     VRFLD,1        POSITIONS BEGINNING VARIABLE FIELD    (24)F0D04480
       LDQ     NERAS          LOAD CHARACTER POSITION OF OP FIELD   (24)F0D04490
       VLM     Q6,,15         END AND MULTIPLY BY 6 TO COMPUTE      (24)F0D04500
       LLS     15             AMOUNT OF SHIFT                       (24)F0D04510
       PAC     ,4                                                   (24)F0D04520
 STP06 AXC     **,2           RELOAD WORD ENDING OP FIELD           (24)F0D04530
       TXH     *+2,2,1        WAS IT WORD TWO                       (24)F0D04540
       TXI     *+1,4,-36      NO, BUMP SHIFT COUNT                  (24)F0D04550
       ZET     INDFG          WAS OPERATION INDIRECTLY ADDRESSED    (24)F0D04560
       TXI     STP07,4,-6     YES, ADJUST SHIFT COUNT TO OMIT *     (24)F0D04570
 STP07 CAL     BCDBF+1        LOAD CARD WORDS TWO                   (24)F0D04580
       LDQ     BCDBF+2        AND THREE (COLUMNS 7 THROUGH 18)      (24)F0D04590
       LGR     -6,4           RIGHT ADJUST OPERATION CODE           (24)F0D04600
       LGL     0,4            THEN LEFT ADJUST IT                   (24)F0D04610
       TNZ     STP08          IF OPCODE IS NULL,                    (24)F0D04620
       CAL     BLNK3          RESET IT TO BLANKS                    (24)F0D04630
 STP08 SLW     OPCOD          STORE OPERATION CODE                  (24)F0D04640
       ERA     DASTR          DID IT COME OUT AS **                 (24)F0D04650
       TNZ     STP09          NO, EXIT                              (24)F0D04660
       STZ     INDFG          YES, MUST HAVE BEEN ***               (24)F0D04670
       TXI     STP07,4,6      GO BACK TO READJUST IT                (24)F0D04680
 STP09 LXD     VRFLD,2        RELOAD SCAN WORD POSITION             (24)F0D04690
 STUPX AXT     **,4           RELOAD CALLING LINKAGE                (24)F0D04700
       TRA     3,4                                                  (24)F0D04710
       REM                                                          (24)F0D04720
       REM     THE FOLLOWING IS A PATCH TO SUBROUTINE SCANF         (24)F0D04725
 RELFG CLA     VARUC          ARE THERE RELOCATION ERRORS           (24)F0D04730
       TZE     *+2            IGNORE -0                             (24)F0D04740
       TMI     SCN12+5        COMPLEMENT OF COMMON ELEMENT          (24)F0D04750
       CLA     VARUR                                                (24)F0D04760
       TZE     *+2            IGNORE -0                             (24)F0D04770
       TMI     SCN12+5        COMPLEMENT OF RELOCATABLE ELEMENT     (24)F0D04780
       TRA     SCN12+1                                              (24)F0D04790
       REM                                                              F0D04800
       REM     FIND BINARY MACHINE OPERATION FOR BCD OPCODE             F0D04810
 SOPTB SXA     SOPTX,4        SAVE CALLING LINKAGE                      F0D04820
       AXT     0,1            LOAD LOCATION OF FIRST NAME IN TABLE      F0D04830
       LXA     OPTSIZ,2       LOAD LOGARITHM OF TABLE LENGTH            F0D04840
       TSX     LOWER,4       *EXECUTE BINARY SEARCH                     F0D04850
       REM                                                              F0D04860
       TRA     SOPTX+2        NOT FOUND                                 F0D04870
 SOPT1 TXL     *+4,1,**       IS SEARCH PAST UPPER END OF TABLE         F0D04880
       LAS     OPTTBL-2,1     NO, IS IT THIS OPCODE                     F0D04890
       TXI     LOWER,2,-2     NO, LARGER - GO LOOK HIGHER               F0D04900
       TRA     *+2            YES                                       F0D04910
       TXI     RAISE,2,-2     NO, SMALLER - GO LOOK LOWER               F0D04920
       REM     OPCODE FOUND IN TABLE                                    F0D04930
       LDI     OPTTBL-1,1     LOAD OPERATION DEFINITION                 F0D04940
 SOPTX AXT     **,4           RELOAD CALLING LINKAGE                    F0D04950
       TRA     2,4                                                      F0D04960
       REM     OPCODE NOT FOUND IN TABLE                                F0D04970
       LXA     SOPTX,4        RELOAD CALLING LINKAGE                    F0D04980
       TRA     1,4                                                      F0D04990
       REM                                                              F0D05000
       TXI     BSRCH,1,+16384                                           F0D05010
       TXI     BSRCH,1,-16384                                           F0D05020
       TXI     BSRCH,1,+8192                                            F0D05030
       TXI     BSRCH,1,-8192                                            F0D05040
       TXI     BSRCH,1,+4096                                            F0D05050
       TXI     BSRCH,1,-4096                                            F0D05060
       TXI     BSRCH,1,+2048                                            F0D05070
       TXI     BSRCH,1,-2048                                            F0D05080
       TXI     BSRCH,1,+1024                                            F0D05090
       TXI     BSRCH,1,-1024                                            F0D05100
       TXI     BSRCH,1,+512                                             F0D05110
       TXI     BSRCH,1,-512                                             F0D05120
       TXI     BSRCH,1,+256                                             F0D05130
       TXI     BSRCH,1,-256                                             F0D05140
       TXI     BSRCH,1,+128                                             F0D05150
       TXI     BSRCH,1,-128                                             F0D05160
       TXI     BSRCH,1,+64                                              F0D05170
       TXI     BSRCH,1,-64                                              F0D05180
       TXI     BSRCH,1,+32                                              F0D05190
       TXI     BSRCH,1,-32                                              F0D05200
       TXI     BSRCH,1,+16                                              F0D05210
       TXI     BSRCH,1,-16                                              F0D05220
       TXI     BSRCH,1,+8                                               F0D05230
       TXI     BSRCH,1,-8                                               F0D05240
       TXI     BSRCH,1,+4                                               F0D05250
       TXI     BSRCH,1,-4                                               F0D05260
       TXI     BSRCH,1,+2                                               F0D05270
       TXI     BSRCH,1,-2                                               F0D05280
       TRA     1,4            NOT FOUND                                 F0D05290
       TRA     1,4            NOT FOUND                                 F0D05300
 RAISE TRA     *,2                                                      F0D05310
 LOWER TRA     *,2                                                      F0D05320
 BSRCH TRA     2,4            LOOK FURTHER                              F0D05330
       REM                                                              F0D05340
       REM     EVALUATE NEXT EXPRESSION IN VARIABLE FIELD               F0D05350
 SCANF SXA     SCANX,4        SAVE CALLING LINKAGE                      F0D05360
       STZ     TRMEQ          RESET VALUE OF FIRST TERM IN EXPRESSION   F0D05370
       STZ     TRMUN          RESET UNITS OF TERM                       F0D05380
       STZ     TRMUF          RESET FLAG FOR TYPE OF UNITS TO ABSOLUTE  F0D05390
       STZ     VAREQ          RESET VALUE OF EXPRESSION                 F0D05400
       STZ     VARUR          RESET NUMBER OF RELOCATABLE SYMBOLS       F0D05410
       STZ     VARUC          RESET NUMBER OF COMMON SYMBOLS            F0D05420
       STZ     RBITS          RESET RELOCATION BITS                     F0D05430
       STZ     SCNBE          RESET FLAG FOR BOOLEAN ERA                F0D05440
       CAL     CHRCTR         LOAD FIRST CHARACTER IN NEXT EXPRESSION   F0D05450
       ERA     BLANK          IS IT END OF VARIABLE FIELD               F0D05460
       TNZ     *+3            NO                                        F0D05470
       STZ     BOLMD          YES, RESET BOOLEAN FLAG                   F0D05480
       TRA     1,4            RETURN ON VACUUOUS FIELD                  F0D05490
       AXC     SCADD,4        NO, INITIALIZE OPERATION SWITCH FOR       F0D05500
       SXD     OPSW1,4        FOLLOWING ELEMENT TO ADD                  F0D05510
       TRA     SCN01+5                                                  F0D05520
       REM     REENTRY TO EVALUATE NEXT ELEMENT                         F0D05530
 SCN01 NZT     TVFLG          IS THIS CALL SUBPROGRAM NAME              F0D05540
       TRA     *+4            NO                                        F0D05550
       TSX     SCEND,4        YES, SKIP TO END OF EXPRESSION            F0D05560
       STL     ERRFF          SET ERROR FLAG                            F0D05570
       TRA     SCN14                                                    F0D05580
       STL     SCNFC          SET FLAG FOR FIRST CHARACTER IN ELEMENT   F0D05590
       STZ     SCNBC          RESET FLAG FOR BOOLEAN COM                F0D05600
       CAL     BHEAD          SET HEADING CHARACTER                     F0D05610
       ZET     TVFLG          IS THIS CALL SUBPROGRAM NAME              F0D05620
       PXD     ,0             YES, DELETE HEADING CHARACTER             F0D05630
       TRA     SCN02+1                                                  F0D05640
       REM     REENTRY FOR $ REHEADING CHARACTER                        F0D05650
 SCN02 TRA     DLRUT           DOLLAR SIGN TEST                        $F0D05660
       SLW     THEAD                                                    F0D05670
       STZ     ELMEQ          RESET VALUE OF ELEMENT                    F0D05680
       STZ     ELMUN          RESET UNITS OF ELEMENT                    F0D05690
       STZ     ELMUF          RESET FLAG FOR TYPE OF UNITS TO ABSOLUTE  F0D05700
       TRA     SCN03+1                                                  F0D05710
       REM     REENTRY FOR BOOLEAN UNARY /                              F0D05720
 SCN03 STL     SCNBC          SET FLAG TO COMPLEMENT NEXT ELEMENT       F0D05730
       REM     REENTRY TO ASSEMBLE SYMBOL                               F0D05740
       TSX     SSCAN,4       *ASSEMBLE ELEMENT                          F0D05750
       TRA     EVALE         *END OF VARIABLE FIELD                     F0D05760
       SLT     EXPND          DID FIELD END WITH COMMA OR BLANK         F0D05770
       PAX     ,4             NO, LOAD PUNCTUATION CHARACTER            F0D05780
       TXL     SCADD,4,16     + OPERATION IS ADD                        F0D05790
       TXL     SCSUB,4,32     - OPERATION IS SUBTRACT                   F0D05800
       TXL     SCN02,4,43     $ RESET HEADING CHARACTER                 F0D05810
       TXL     SCN05,4,44     * OPERATION MAY BE MULTIPLY               F0D05820
       TXL     SCN04,4,49     / OPERATION MAY BE DIVIDE                 F0D05830
       TRA     EVALE         *PUNCTUATION WAS COMMA OR BLANK            F0D05840
       REM     CHARACTER IS /                                           F0D05850
 SCN04 NZT     SCNFC          IS THIS FIRST CHARACTER IN ELEMENT        F0D05860
       TRA     SCDIV          NO, IT IS DIVIDE OR BINARY NOT OPERATION  F0D05870
       STZ     SCNFC          YES, RESET FLAG                           F0D05880
       ZET     BOLMD          IS FIELD BOOLEAN                          F0D05890
       TRA     SCN03          YES, IT IS UNARY NOT OPERATION            F0D05900
       TRA     SCDIV          NO                                        F0D05910
       REM     CHARACTER IS *                                           F0D05920
 SCN05 NZT     SCNFC          IS THIS FIRST CHARACTER IN ELEMENT        F0D05930
       TRA     SCMPY          NO, IT IS MULTIPLY OPERATION              F0D05940
       STZ     SCNFC          YES, RESET FLAG                           F0D05950
       SLW     SYMBL          CHARACTER IS PROGRAM COUNTER              F0D05960
       TSX     SSCET,4       *FIND OPERATION                            F0D05970
       TXI     EVALE,,0       NO OPERATION FOLLOWS                      F0D05980
       TRA     SCN03+3                                                  F0D05990
       REM                                                              F0D06000
       REM     ENTRY POINTS TO EVALUATE ELEMENT ASSEMBLED ABOVE.        F0D06010
       REM     RETURN FROM EVALF IS TO OPERATION PRECEDING ELEMENT.     F0D06020
       REM     RETURN TO PRESENT OPERATION IS AFTER FOLLOWING ELEMENT   F0D06030
       REM     HAS BEEN EVALUATED.                                      F0D06040
 SCDIV TSX     EVALF,4       *EVALUATE PRECEDING ELEMENT                F0D06050
       REM                                                              F0D06060
       TRA     BLDIV          EXPRESSION IS BOOLEAN                     F0D06070
       CLA     TRMEQ          LOAD PARTIAL TERM                         F0D06080
       LRS     35                                                       F0D06090
       NZT     ELMEQ          IS ELEMENT UNDEFINED OR ZERO              F0D06100
       TRA     *+4            YES, ASSUME ELEMENT 1                     F0D06110
       DVP     ELMEQ          NO, COMBINE WITH FOLLOWING ELEMENT        F0D06120
       DCT                    DID DIVIDE FAIL                           F0D06130
       TSX     MACERR,4     **YES                                       F0D06140
       STQ     TRMEQ          SAVE PARTIAL TERM                         F0D06150
       STQ     TRMUN          SAVE COEFFICIENT OF SYMBOLS               F0D06160
       NZT     TRMUF          IS TERM ABSOLUTE                          F0D06170
       ZET     ELMUF          YES, IS ELEMENT ABSOLUTE                  F0D06180
       TRA     SCMP1        **NO, SET ERROR FLAGS                       F0D06190
       TRA     SCN10                                                    F0D06200
       REM                                                              F0D06210
 SCMPY TSX     EVALF,4       *EVALUATE PRECEDING ELEMENT                F0D06220
       REM                                                              F0D06230
       TRA     BLMPY          EXPRESSION IS BOOLEAN                     F0D06240
       LDQ     TRMEQ          COMBINE PARTIAL TERM                      F0D06250
       MPY     ELMEQ          WITH FOLLOWING ELEMENT                    F0D06260
       STQ     TRMEQ          SAVE PARTIAL TERM MOD 2**35               F0D06270
       LDQ     TRMUN          COMBINE COEFFICIENT FOR TERM              F0D06280
       MPY     ELMUN          WITH COEFFICIENT FOR FOLLOWING ELEMENT    F0D06290
       STQ     TRMUN          SAVE COEFFICIENT MOD 2**35                F0D06300
       ZET     TRMUF          IS TERM ABSOLUTE                          F0D06310
       NZT     ELMUF          NO, IS ELEMENT ABSOLUTE                   F0D06320
       TRA     *+3            YES                                       F0D06330
       REM     REENTRY AFTER RELOCATION ERROR ON DIVIDE                 F0D06340
 SCMP1 SLN     EXPRR          NO, SET ERROR FLAGS                       F0D06350
       STL     ERRFR                                                    F0D06360
       CAL     ELMUF          SET COMMON OR RELOCATABLE FLAG FOR ELEMENTF0D06370
       ORS     TRMUF          INTO FLAG FOR TERM (AT LEAST ONE IS ZERO) F0D06380
       TRA     SCN10                                                    F0D06390
       REM                                                              F0D06400
 SCADD TSX     EVALF,4       *EVALUATE PRECEDING ELEMENT                F0D06410
       REM                                                              F0D06420
       TRA     BLADD          EXPRESSION IS BOOLEAN                     F0D06430
       CLA     ELMEQ          LOAD VALUE OF FOLLOWING ELEMENT           F0D06440
       TRA     SCSB1                                                    F0D06450
       REM                                                              F0D06460
 SCSUB TSX     EVALF,4       *EVALUATE PRECEDING ELEMENT                F0D06470
       REM                                                              F0D06480
       TRA     BLSUB          EXPRESSION IS BOOLEAN                     F0D06490
       CLS     ELMUN          INVERT COEFFICIENT FOR FOLLOWING ELEMENT  F0D06500
       STO     ELMUN                                                    F0D06510
       CLS     ELMEQ          INVERT VALUE OF FOLLOWING ELEMENT         F0D06520
       REM     REENTRY FOR ADD                                          F0D06530
 SCSB1 XCA                    HOLD FOLLOWING ELEMENT                    F0D06540
       CLA     VAREQ          COMBINE VALUE OF PARTIAL EXPRESSION       F0D06550
       ADD     TRMEQ          WITH PRECEDING TERM                       F0D06560
       STO     VAREQ                                                    F0D06570
       STQ     TRMEQ          INITIALIZE FOLLOWING TERM TO VALUE OF ELEMF0D06580
       CLA     TRMUF          LOAD FLAG FOR UNITS OF TERM               F0D06590
       TZE     SCSB3          IS TERM ABSOLUTE                          F0D06600
       TMI     SCSB2          NO, IS TERM COMMON                        F0D06610
       CLA     VARUR          NO, BUMP NUMBER OF RELOCATABLE SYMBOLS    F0D06620
       ADD     TRMUN          BY COEFFICIENT OF TERM                    F0D06630
       STO     VARUR                                                    F0D06640
       TRA     SCSB3                                                    F0D06650
       REM     TERM IS COMMON                                           F0D06660
 SCSB2 CLA     VARUC          BUMP NUMBER OF COMMON SYMBOLS             F0D06670
       ADD     TRMUN          BY COEFFICIENT OF TERM                    F0D06680
       STO     VARUC                                                    F0D06690
       REM     REENTRY FOR ABSOLUTE OR RELOCATABLE TERM                 F0D06700
 SCSB3 CLA     ELMUN          INITIALIZE COEFFICIENT OF FOLLOWING TERM  F0D06710
       STO     TRMUN          TO COEFFICIENT OF FIRST ELEMENT           F0D06720
       CAL     ELMUF          INITIALIZE FLAG FOR UNITS OF TERM         F0D06730
       SLW     TRMUF          TO FLAG FOR UNITS OF FIRST ELEMENT        F0D06740
       TRA     SCN10                                                    F0D06750
       REM                                                              F0D06760
 BLADD TSX     BLERA,4       *EVALUATE POSSIBLE ERA                     F0D06770
       TRA     BLSUB+2                                                  F0D06780
       REM                                                              F0D06790
 BLSUB TSX     BLERA,4       *EVALUATE POSSIBLE ERA                     F0D06800
       STL     SCNBE          SET FLAG TO COMPLEMENT FOLLOWING ELEMENT  F0D06810
       SLW     VAREQ          SAVE PARTIAL VALUE OF EXPRESSION          F0D06820
       CAL     ELMEQ          INITIALIZE NEXT TERM TO VALUE OF          F0D06830
       SLW     TRMEQ          FIRST ELEMENT                             F0D06840
       TRA     SCN10                                                    F0D06850
       REM                                                              F0D06860
 BLMPY CAL     ELMEQ          MASK (AND) PARTIAL VALUE OF EXPRESSION    F0D06870
       ANS     TRMEQ          WITH VALUE OF ELEMENT                     F0D06880
       TRA     SCN10                                                    F0D06890
       REM                                                              F0D06900
 BLDIV CAL     ELMEQ          OPERATION IS BINARY NOT                   F0D06910
       COM                    COMPLEMENT ELEMENT                        F0D06920
       ANS     TRMEQ          MASK PARTIAL VALUE OF EXPRESSION          F0D06930
       REM                                                              F0D06940
       REM     ELEMENT HAS BEEN EVALUATED                               F0D06950
 SCN10 SLT     EXPND          WAS THIS END OF EXPRESSION                F0D06960
       TRA     SCN01          NO                                        F0D06970
       REM     END OF EXPRESSION                                        F0D06980
       NZT     BOLMD          IS EXPRESSION BOOLEAN                     F0D06990
       TRA     *+3            NO                                        F0D07000
       TSX     BLERA,4       *YES, EVALUATE POSSIBLE ERA                F0D07010
       TRA     SCN11                                                    F0D07020
       CLA     VAREQ          COMBINE PARTIAL VALUE OF EXPRESSION       F0D07030
       ADD     TRMEQ          WITH FINAL TERM                           F0D07040
       STO     VAREQ                                                    F0D07050
       CAL     P4             COMPLEMENT IF NEGATIVE                    F0D07060
       ALS     1                                                        F0D07070
       ADD     VAREQ                                                    F0D07080
       REM     REENTRY FOR BOOLEAN EXPRESSION                           F0D07090
 SCN11 ZET     VFDMD          IS THIS EXPRESSION PART OF VFD            F0D07100
       TRA     *+4            YES, KEEP ENTIRE WORD                     F0D07110
       ANA     ADTMK          NO, MASK IN FINAL 18 BITS                 F0D07120
       NZT     BOLMD          IS EXPRESSION BOOLEAN                     F0D07130
       ANA     ADDMK          NO, MASK IN FINAL 15 BITS                 F0D07140
       SLW     VAREQ          SAVE                                      F0D07150
       CLA     TRMUF          LOAD FLAG FOR TERM UNITS                  F0D07160
       TZE     SCN12          IS EXPRESSION ABSOLUTE                    F0D07170
       TMI     *+5            NO, IS EXPRESSION COMMON                  F0D07180
       CLA     VARUR          NO, BUMP NUMBER OF RELOCATABLE SYMBOLS    F0D07190
       ADD     TRMUN          BY COEFFICIENT OF LAST TERM               F0D07200
       STO     VARUR                                                    F0D07210
       TRA     SCN12                                                    F0D07220
       CLA     VARUC          BUMP NUMBER OF COMMON SYMBOLS             F0D07230
       ADD     TRMUN          BY COEFFICIENT OF LAST TERM               F0D07240
       STO     VARUC                                                    F0D07250
       REM     REENTRY FOR ABSOLUTE OR RELOCATABLE TERM                 F0D07260
SCN12  TRA     RELFG         CHECK FOR RELOCATION ERROR                $F0D07270
       ADD     VARUC         NUMBER OF RELOCATABLE AND COMMON SYMBOLS  $F0D07280
       TZE     SCN13          IS COEFFICIENT ZERO                       F0D07290
       SUB     Q1             NO, IS COEFFICIENT 1                      F0D07300
       TZE     *+3            YES                                       F0D07310
       SLN     EXPRR          NO, SET ERROR FLAGS                       F0D07320
       STL     ERRFR                                                    F0D07330
       CAL     VAREQ          COMPUTE RELATIVE POSITION                 F0D07340
       ANA     ADDMK          OF EXPRESSION ABOVE OR BELOW              F0D07350
       SUB     PRGBK          PROGRAM BREAK                             F0D07360
       ZET     VARUC          IS EXPRESSION IN COMMON                   F0D07370
       CHS                    YES, INVERT RELATIVE POSITION             F0D07380
       AXT     2,4            SET EXPRESSION DIRECTLY RELOCATABLE       F0D07390
       TMI     *+2            IS EXPRESSION DIRECTLY RELOCATABLE        F0D07400
       AXT     3,4            NO, SET EXPRESSION COMPLEMENT RELOCATABLE F0D07410
       SXA     RBITS,4                                                  F0D07420
 SCN13 TRA     *+2                                                     $F0D07430
       REM     CONSTANT FOR BCDCV CONVERSION ROUTINE                (25)F0D07435
TEN5TH DEC     100000                                               (25)F0D07440
       CAL     VAREQ          YES, LOAD LOGICAL VALUE OF EXPRESSION     F0D07450
       STZ     BOLMD          RESET BOOLEAN MODE FLAG                   F0D07460
       SLT     EXPRR          WAS ERROR FOUND IN THIS EXPRESSION        F0D07470
       TRA     SCANX          NO                                        F0D07480
 SCN14 SLN     EXPRR          YES, RESET ERROR FLAG                     F0D07490
       STZ     RBITS          DELETE RELOCATION BITS                    F0D07500
       PXD     ,0             DELETE VALUE OF SYMBOL                    F0D07510
       STZ     VAREQ                                                    F0D07520
 SCANX AXT     **,4           RELOAD CALLING LINKAGE                    F0D07530
       TRA     2,4                                                      F0D07540
       REM                                                              F0D07550
       REM     EVALUATE BOOLEAN EXPRESSION                              F0D07560
 BLERA CAL     TRMEQ          LOAD FOLLOWING TERM                       F0D07570
       NZT     SCNBE          IS OPERATION ERA                          F0D07580
       ORA     VAREQ          NO, COMBINE WITH PARTIAL TERM             F0D07590
       ZET     SCNBE          IS OPERATION ERA                          F0D07600
       ERA     VAREQ          YES, MASK PARTIAL VALUE OF EXPRESSION     F0D07610
       STZ     SCNBE          RESET FLAG                                F0D07620
       TRA     1,4                                                      F0D07630
       REM                                                              F0D07640
       REM     EVALUATE SYMBOL PRECEDING OPERATION, OR END OF EXPRESSIONF0D07650
 EVALE SLN     EXPND          SET END OF EXPRESSION FLAG                F0D07660
 EVALF SXD     OPSW2,4        SAVE CALLING LINKAGE (OP FOLLOWING SYMBOL)F0D07670
       CAL     SYMBL          LOAD LOW ORDER PORTION OF ELEMENT         F0D07680
       LAS     ASTRK          IS IT *                                   F0D07690
       TRA     *+2            NO                                        F0D07700
       TRA     EVAL1          YES, CURRENT CONTENTS OF LOCATION COUNTER F0D07710
       ORA     SYMB2          COMBINE LOW AND HIGH ORDER PORTIONS       F0D07720
       ANA     BLANKS         IS ELEMENT NUMERIC                        F0D07730
       TZE     EVAL3          YES                                       F0D07740
       ZET     SYMB2          NO, IS SYMBOL NAME LONGER THAN 6 CHARACTERF0D07750
       STL     ERRFE          YES                                       F0D07760
       LDQ     SYMBL          LOAD SYMBOL NAME                          F0D07770
       PXD     ,0                                                       F0D07780
       LGL     6              LOAD FIRST CHARACTER                      F0D07790
       TNZ     *+2            IS SYMBOL NAME SHORTER THAN 6 CHARACTERS  F0D07800
       CAL     THEAD          YES, APPEND CURRENT HEADING CHARACTER     F0D07810
       LGL     30                                                       F0D07820
       SLW     SYMBL          SAVE                                      F0D07830
       TSX     SSYMT,4       *EVALUATE SYMBOL                           F0D07840
       TRA     EVAL1+3                                                  F0D07850
       REM     SYMBOL IS *                                              F0D07860
 EVAL1 CLA     LOCTR          LOAD CURRENT PROGRAM COUNTER              F0D07870
       ZET     BOLMD          IS EXPRESSION BOOLEAN                     F0D07880
       PXD     ,0             YES, ASSUME IT IS AN OPERATOR             F0D07890
       REM                    WITH NO PRECEDENT OPERAND                 F0D07900
       REM     REENTRY FOR DEFINED SYMBOL                               F0D07910
       STA     ELMEQ          DEFINE THIS ELEMENT                       F0D07920
       ZET     BOLMD          IS EXPRESSION BOOLEAN                     F0D07930
       TRA     EVAL2          YES                                       F0D07940
       ARS     18             NO, SHIFT UP RELOCATION BITS              F0D07950
       ANA     Q3             DELETE EXTRANEOUS FLAGS                   F0D07960
       SUB     Q1             IS ELEMENT ABSOLUTE                       F0D07970
       TMI     EVAL5          YES                                       F0D07980
       SSM                    NO, SET ELEMENT COMMON                    F0D07990
       TNZ     *+2            IS ELEMENT COMMON                         F0D08000
       CLA     Q1             NO, RESET ELEMENT RELOCATABLE             F0D08010
       STO     ELMUF          SAVE ELEMENT UNIT FLAG                    F0D08020
       TRA     EVAL5+1                                                  F0D08030
       REM     SYMBOL IS BOOLEAN                                        F0D08040
 EVAL2 PAI                    LOAD RELOCATION BITS                      F0D08050
       LFT     3              IS SYMBOL ABSOLUTE                        F0D08060
       TRA     EVLBR        **NO                                        F0D08070
       ANA     ADTMK          DELETE EXTRANEOUS FLAGS                   F0D08080
       ZET     SCNBC          IS ELEMENT COMPLEMENTABLE                 F0D08090
       COM                    YES, FLATTER IT                           F0D08100
       SLW     ELMEQ          DEFINE ELEMENT                            F0D08110
 OPSW1 TXI     EVAL5+2,,**    (RETURN FOR OPERATION PRECEDING ELEMENT)  F0D08120
       REM     ERROR ON BOOLEAN SYMBOL                                  F0D08130
 EVLBR SLN     EXPRR          SET ERROR FLAGS                           F0D08140
       STL     ERRFB                                                    F0D08150
       TRA     EVAL5+2                                                  F0D08160
       REM     ELEMENT IS NUMERIC                                       F0D08170
 EVAL3 NZT     BOLMD          IS ELEMENT BOOLEAN                        F0D08180
       TXL     EVAL4,,0       NO, IS ELEMENT UNDER OCTAL QUALIFIER      F0D08190
       REM                    (SWITCH SET BY SAK)                       F0D08200
       TSX     OCTSV,4       *YES, CONVERT SYMBOL FROM OCTAL            F0D08210
       ZET     SCNBC          IS ELEMENT COMPLEMENTABLE                 F0D08220
       COM                    YES                                       F0D08230
       SLW     ELMEQ          SAVE ELEMENT                              F0D08240
       NZT     BOLMD          IS ELEMENT BOOLEAN                        F0D08250
       TRA     EVAL5          NO, SET RELOCATION UNITS FOR OCTAL INTEGERF0D08260
 OPSW2 TXI     EVAL5+2,,**    (RETURN FOR OPERATION FOLLOWING ELEMENT)  F0D08270
       REM     EVALUATE DECIMAL INTEGER                                 F0D08280
 EVAL4 TSX     DECSV,4       *CONVERT SYMBOL FROM DECIMAL               F0D08290
       STO     ELMEQ          SAVE                                      F0D08300
       REM     REENTRY FOR ABSOLUTE SYMBOL OR DECIMAL INTEGER           F0D08310
 EVAL5 CAL     ELMEQ          SET VALUE OF ELEMENT                      F0D08320
       REM     REENTRY FOR COMMON OR RELOCATABLE SYMBOL                 F0D08330
       SLW     ELMUN          AS COEFFICIENT OF ELEMENT                 F0D08340
       REM     REENTRY FOR BOOLEAN SYMBOL OR OCTAL INTEGER              F0D08350
       LXD     OPSW1,4        LOAD TRANSFER FOR OP PRECEDING ELEMENT    F0D08360
       CAL     OPSW2          RESET TRANSFER TO OP PRECEDING            F0D08370
       STD     OPSW1          FOLLOWING ELEMENT                         F0D08380
       ZET     BOLMD          IS EXPRESSION BOOLEAN                     F0D08390
       TRA     1,4            YES, TAKE BOOLEAN RETURN                  F0D08400
       TRA     2,4            NO                                        F0D08410
       REM                                                              F0D08420
       REM     CONVERT UP TO 12 DIGIT SIGNED OCTAL INTEGER TO BINARY    F0D08430
 OCTCV SXA     DECCX,4        SAVE CALLING LINKAGE                      F0D08440
       STZ     NERAS          CLEAR WORKING CELL                        F0D08450
       TSX     C019A,4       *LOOK AT FIRST CHARACTER                   F0D08460
       SUB     PLUSS          IS IT +                                   F0D08470
       TZE     OCT01          YES, IGNORE IT                            F0D08480
       SUB     PLUSS          NO, IS IT -                               F0D08490
       TNZ     OCT01+1        NO                                        F0D08500
       CAL     P4             YES, SET P BIT                            F0D08510
       SLW     NERAS                                                    F0D08520
       REM     REENTRY TO DELETE SIGN                                   F0D08530
 OCT01 TSX     C0190,4       *DELETE SIGN                               F0D08540
       REM     REENTRY FOR NO PRECEDING SIGN                            F0D08550
       TSX     SSCAN,4       *ASSEMBLE INTEGER                          F0D08560
       TXI     OCT02,,0       NULL INTEGER                              F0D08570
       SLT     EXPND          DID INTEGER END WITH COMMA OR BLANK       F0D08580
       TRA     OCTRR          NO                                        F0D08590
       TSX     OCTSV,4       *YES, CONVERT TO BINARY                    F0D08600
       SLT     EXPRR          IS INTEGER IN ERROR                       F0D08610
       ORA     NERAS          NO, APPEND SIGN                           F0D08620
       TRA     DECCX                                                    F0D08630
       REM     NULL INTEGER                                             F0D08640
 OCT02 SLN     FLDND          SET END OF VARIABLE FIELD FLAG            F0D08650
       ORA     NERAS          APPEND SIGN                               F0D08660
       TRA     DECCX                                                    F0D08670
       REM     ERROR ON OCTAL NUMBER                                    F0D08680
 OCTRR STL     ERRFB          SET ERROR FLAG                            F0D08690
       TSX     SCEND,4       *SKIP TO END OF FIELD                      F0D08700
       PXD     ,0             DELETE INTEGER IN ERROR                   F0D08710
       TRA     DECCX                                                    F0D08720
       REM                                                              F0D08730
       REM     CONVERT FOLLOWING DECIMAL FIELD TO BINARY                F0D08740
 DECCV SXA     DECCX,4        SAVE CALLING LINKAGE                      F0D08750
       STZ     NERAS          CLEAR INTEGER FIELD                       F0D08760
       STZ     XERAS          CLEAR EXPONENT (E) FIELD                  F0D08770
       STZ     BERAS          CLEAR BINARY (B) FIELD                    F0D08780
       STZ     DCNFG          RESET FLAG FOR DECIMAL POINT              F0D08790
       STZ     DCXFG          RESET FLAG FOR DECIMAL EXPONENT           F0D08800
       STZ     DCBFG          RESET FLAG FOR BINARY EXPONENT            F0D08810
       AXT     0,4            RESET DECIMAL PLACE COUNT                 F0D08820
       CAL     DECCV+1        LOAD INTEGER FIELD ADDRESS                F0D08830
       TRA     DCV15                                                   $F0D08840
       REM     REENTRY AFTER DECIMAL POINT TO BEGIN SCAN ON FRACTION    F0D08850
 DCV01 NZT     DCXFG          HAS DECIMAL EXPONENT BEGUN                F0D08860
       ZET     DCBFG          NO, HAS BINARY EXPONENT BEGUN             F0D08870
       TRA     DCVRR          YES                                       F0D08880
       STL     DCNFG          NO, SET FRACTION FLAG                     F0D08890
       CAL     DCV05          INITIALIZE TRANSFER ADDRESS               F0D08900
       STA     DCV07+1        TO COUNT DECIMAL PAACES                   F0D08910
       TRA     DCV05+2                                                  F0D08920
       REM     REENTRY AFTER E TO BEGIN SCAN ON DECIMAL EXPONENT        F0D08930
 DCV02 STL     DCXFG          SET DECIMAL EXPONENT FLAG                 F0D08940
       CAL     DECCV+2        LOAD DECIMAL EXPONENT FIELD ADDRESS       F0D08950
       TRA     DCV03+2                                                  F0D08960
       REM     REENTRY AFTER B TO BEGIN SCAN ON BINARY EXPONENT         F0D08970
 DCV03 STL     DCBFG          SET BINARY EXPONENT FLAG                  F0D08980
       CAL     DECCV+3        LOAD BINARY EXPONENT FIELD FLAG           F0D08990
       STA     DCV06          INITIALIZE FIELD CONVERSION ADDRESSES     F0D09000
       STA     DCV06+2                                                  F0D09010
       STA     DCV07                                                    F0D09020
       CAL     DCV05+1        INITIALIZE TRANSFER ADDRESS               F0D09030
       STA     DCV07+1        TO OMIT COUNTING DECIMAL PLACES           F0D09040
       CAL     DCV06+2        INITIALIZE INSTRUCTION TO ADD             F0D09050
       TRA     DCV04+3                                                  F0D09060
       REM     REENTRY AFTER MINUS                                      F0D09070
 DCV04 CLS     Q0             SET FIELD TO -0                           F0D09080
       STO*    DCV06                                                    F0D09090
       SUB     *              INITIALIZE INSTRUCTION TO SUBTRACT        F0D09100
       STD     DCV06+4                                                  F0D09110
       TOV     *+1                                                      F0D09120
       TRA     DCV05+2                                                  F0D09130
       REM     CONVERT NEXT DIGIT IN FIELD                              F0D09140
 DCV05 TRA     *+1            (TRANSFER ADDRESS TO BUMP DECIMAL COUNTER F0D09150
       TXI     *+1,4,-1       (TRANSFER ADDRESS TO OMIT BUMP)           F0D09160
       SXA     *+2,4          SAVE DECIMAL PLACE COUNT                  F0D09170
       TSX     C0190,4       *GET NEXT CHARACTER                        F0D09180
       AXT     **,4           RELOAD DECIMAL PLACE COUNT                F0D09190
       LAS     Q10            IS IT DIGIT                               F0D09200
       TRA     DCV08          NO                                        F0D09210
       TSX     MACERR,4     **CHARACTER IS BCD 10                       F0D09220
 DCV06 CLA     **             YES, MULTIPLY PARTIAL FIELD BY 10         F0D09230
       ALS     2                                                        F0D09240
       ADD     **                                                       F0D09250
       ALS     1                                                        F0D09260
       ***     CHRCTR         (INITIALIZED TO ADD OR SUBTRACT)          F0D09270
       TNO     *+2            DID AC OVERFLOW                           F0D09280
       TXI     *+2,4,1        YES, BUMP DECIMAL COUNTER BACK            F0D09290
 DCV07 STO     **             SAVE PARTIAL FIELD                        F0D09300
       TRA     **             TRANSFER TO OMIT/BUMP DECIMAL COUNTER     F0D09310
       REM     DETERMINE TYPE OF FOLLOWING FIELD                        F0D09320
 DCV08 LAS     COMMA          IS CHARACTER ,                            F0D09330
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09340
       TRA     DCV09+1        YES, END OF NUMERIC FIELD                 F0D09350
       LAS     BLANK          NO, IS CHARACTER BLANK                    F0D09360
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09370
       TRA     DCV09          YES, END OF VARIABLE FIELD                F0D09380
       LAS     MINUS          NO, IS CHARACTER -                        F0D09390
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09400
       TRA     DCV04          YES, RESET OPERATION CODE                 F0D09410
       LAS     POINT          NO, IS CHARACTER .                        F0D09420
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09430
       TRA     DCV16                                                   $F0D09440
       LAS     QE             NO, IS CHARACTER E                        F0D09450
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09460
       TRA     DCV17                                                   $F0D09470
       LAS     QB             NO, IS CHARACTER B                        F0D09480
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09490
       TRA     DCV18                                                   $F0D09500
       LAS     PLUSS          NO, IS CHARACTER +                        F0D09510
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09520
       TRA     DCV05+2        YES, IGNORE IT                            F0D09530
       TRA     DCVRR          NO, ILLEGAL CHARACTER                     F0D09540
       REM     TEST FOR DECIMAL EXPONENT                                F0D09550
 DCV09 SLN     FLDND          SET END OF VARIABLE FIELD (BLANK) FLAG    F0D09560
       CLA     NERAS          LOAD DIGIT                                F0D09570
       TZE     DECCX          IS DIGIT ZERO                             F0D09580
       NZT     DCXFG          NO, DOES DECIMAL EXPONENT EXIST           F0D09590
       TRA     DCV10          NO, TEST FOR BINARY EXPONENT              F0D09600
       CAL     P4             YES, COMPLEMENT NEGATIVE DECIMAL EXPONENT F0D09610
       ADD     XERAS                                                    F0D09620
       ALS     18             COMPUTE EXPLICIT+IMPLICIT EXPONENT        F0D09630
       STD     *+2                                                      F0D09640
       CLA     NERAS          RELOAD DIGIT                              F0D09650
       TXI     DCV11,4,**                                               F0D09660
       REM     TEST FOR BINARY EXPONENT                                 F0D09670
 DCV10 NZT     DCBFG          DOES BINARY EXPONENT EXIST                F0D09680
       ZET     DCNFG          NO, DOES DECIMAL EXPONENT EXIST           F0D09690
       TRA     DCV11          YES                                       F0D09700
       TRA     DECCX          NO, NUMBER IS BINARY INTEGER              F0D09710
       REM     CONVERT TO FLOATING POINT NUMBER                         F0D09720
 DCV11 STA     FPCV1          SAVE LOW ORDER 15 BITS                    F0D09730
       ARS     15             DELETE LOW ORDER 15 BITS                  F0D09740
       ORA     FPCV2          COMBINE WITH EXPONENT 2**52(8)            F0D09750
       FAD     FPCV2          NORMALIZE LEADING 20 BITS EXP 2**43(8)    F0D09760
       TPL     *+3            COMBINE NORMALIZED LEADING 20 BITS        F0D09770
       FSB     FPCV1          WITH FOLLOWING I5 BITS UNNORMALIZED       F0D09780
       TRA     *+2            EXPONENT 2**52(8)/2**15(8) = 2**33(8)     F0D09790
       FAD     FPCV1          INTO DOUBLE PRECISION NUMBER EXP 2**35(10)F0D09800
       STQ     ERASE          SAVE LEAST SIGNIFICANT PART               F0D09810
       TXL     DCV13,4,0      IS DECIMAL EXPONENT ZERO                  F0D09820
       TXH     DCV12,4,38     NO, IS DECIMAL EXPONENT NEGATIVE          F0D09830
       TXI     *+1,4,-1       NO, COMPLEMENT IT                         F0D09840
       SXD     *+2,4                                                    F0D09850
       AXT     -1,4                                                     F0D09860
       TIX     *+2,4,**                                                 F0D09870
       TSX     MACERR,4     **INDEX FAILURE                             F0D09880
       XCA                    BRING MOST SIGNIFICANT PART INTO MQ       F0D09890
       FMP     DECTAB,4       MULTIPLY BY POWER OF TEN (FACTOR IS SUCH  F0D09900
       REM                    THAT FPCV3 AND FPCV4 WILL CORRECT EXP)    F0D09910
       STO     NERAS          SAVE MOST SIGNIFICANT PART                F0D09920
       STQ     XERAS          SAVE LEAST SIGNIFICANT PART               F0D09930
       LDQ     ERASE          LOAD OLD LEAST SIGNIFICANT PART           F0D09940
       FMP     DECTAB,4       MULTIPLY BY POWER OF TEN                  F0D09950
       FAD     XERAS          COMBINE WITH DOUBLE PRECISION RESULTS     F0D09960
       FAD     NERAS          CONVERTED FROM OLD MOST SIGNIFICANT PART  F0D09970
       ACL     FPCV4          BUMP EXPONENT TO CORRECT FOR TABLE FACTOR F0D09980
       PBT                    DID AC OVERFLOW                           F0D09990
       TRA     DCV13          NO, PROCESS BINARY EXPONENT               F0D10000
       TRA     DCVRR+1        YES                                       F0D10010
 DCV12 TXL     DCVRR+1,4,-49  IS EXPONENT ILLEGAL                       F0D10020
       FDP     DECTAB,4       NO, DIVIDE BY POWER OF TEN                F0D10030
       STQ     NERAS          SAVE MOST SIGNIFICANT PART                F0D10040
       FAD     ERASE          COMBINE REMAINDER WITH LEAST SIGNIF PART  F0D10050
       FDP     DECTAB,4       DIVIDE BY POWER OF TEN                    F0D10060
       DCT                    DID DIVIDE FAIL                           F0D10070
       TSX     MACERR,4     **YES                                       F0D10080
       XCA                    RECALL MOST SIGNIFICANT PART              F0D10090
       FAD     NERAS          COMBINE WITH PRIOR MOST SIGNIFICANT PART  F0D10100
       ACL     FPCV3          BUMP EXPONENT TO CORRECT FOR TABLE FACTOR F0D10110
       PBT                    DID AC OVERFLOW                           F0D10120
       TRA     DCVRR+1        NO                                        F0D10130
 DCV13 NZT     DCBFG          DOES BINARY EXPONENT EXIST                F0D10140
       TRA     DECCX          NO, NUMBER IS FLOATING POINT              F0D10150
       STO     NERAS          YES, SAVE FLOATING POINT NUMBER           F0D10160
       ALS     2              DELETE P, Q, BITS                         F0D10170
       SSM                                                              F0D10180
       ARS     29             RIGHT ADJUST EXPONENT                     F0D10190
       ADD     Q128           COMPUTE ABSOLUTE EXPONENT                 F0D10200
       ADD     BERAS          COMBINE WITH BINARY EXPONENT              F0D10210
       TPL     *+2            IS EXPONENT TOO SMALL                     F0D10220
       TNZ     DCVRR+1        YES                                       F0D10230
       STA     DCV14          NO, USE EXPONENT AS SHIFT COUNT           F0D10240
       CLA     NERAS          RELOAD FLOATING POINT NUMBER              F0D10250
       LLS     8              DELETE AC, MQ EXPONENTS                   F0D10260
       ALS     2              DELETE P, Q BITS                          F0D10270
       ARS     10             REPOSITION 27 BIT FRACTION                F0D10280
       LLS     8              APPEND 27 LOW ORDER BITS                  F0D10290
 DCV14 LRS     **             SHIFT BINARY INTEGER TO PROPER POWER OF 2 F0D10300
       TRA     DECCX                                                    F0D10310
 DCVRR TSX     SCEND,4       *SKIP TO END OF FIELD                      F0D10320
       PXD     ,0             DELETE INTEGER IN ERROR                   F0D10330
       STL     ERRFE          SET ERROR FLAG                            F0D10340
 DECCX AXT     **,4           RELOAD CALLING LINKAGE                    F0D10350
       TRA     1,4                                                      F0D10360
 FPCV1 OCT     233000000000   CONSTANT TO NORMALIZE LOW ORDER 15 BITS   F0D10370
 FPCV2 OCT     252000000000   CONSTANT TO NORMALIZE HIGH ORDER 20 BITS  F0D10380
 FPCV3 OCT     335000000000   CONSTANT TO CORRECT EXPONENT ON DIVIDE    F0D10390
 FPCV4 OCT     043000000000   CONSTANT TO CORRECT EXPONENT ON MULTIPLY  F0D10400
       REM                                                              F0D10410
       REM     CONVERT ONE FIELD OF VFD TO BINARY                       F0D10420
 VFDCV SXA     VFDCX,4        SAVE CALLING LINKAGE                      F0D10430
       STZ     VFDFL          RESET LOW ORDER HALF OF FIELD             F0D10440
       STZ     VFDFL+1        RESET HIGH ORDER HALF OF FIELD            F0D10450
       STZ     VFDHF          RESET HOLLERITH FIELD FLAG                F0D10460
       STZ     VFDOF          RESET OCTAL FIELD FLAG                    F0D10470
       STZ     VFDFB          RESET FIELD WIDTH                         F0D10480
       TSX     C0190,4       *GET FIRST CHARACTER OF NEXT FIELD         F0D10490
       LAS     COMMA          IS IT COMMA                               F0D10500
       TRA     VCV07          NO, ILLEGAL CHARACTER                     F0D10510
       TRA     VCV06+1        YES, END OF FIELD                         F0D10520
       LAS     BLANK          IS IT BLANK                               F0D10530
       TRA     VCV07          NO, ILLEGAL CHARACTER                     F0D10540
       TRA     VCV06          YES, END OF VARIABLE FIELD                F0D10550
       LAS     QO             NO, IS IT O                               F0D10560
       TRA     VCV07          NO, ILLEGAL CHARACTER                     F0D10570
       TRA     VCV01          YES OCTAL FIELD FOLLOWS                   F0D10580
       LAS     QH             NO, IS IT H                               F0D10590
       TRA     VCV07          NO, ILLEGAL CHARACTER                     F0D10600
       TRA     VCV01+2        YES HOLLERITH FIELD FOLLOWS               F0D10610
       TRA     VCV02+1        NO, FIELD MUST BE SYMBOLIC                F0D10620
       REM     FIELD IS OCTAL                                           F0D10630
 VCV01 STL     VFDOF          SET OCTAL FIELD FLAG                      F0D10640
       TRA     VCV02                                                    F0D10650
       REM     FIELD IS HOLLERITH                                       F0D10660
       STL     VFDHF          SET HOLLERITH FIELD FLAG                  F0D10670
       REM     REENTRY TO COLLECT SECOND DIGIT OF FIELD WIDTH           F0D10680
 VCV02 TSX     C0190,4       *GET NEXT CHARACTER                        F0D10690
       REM     REENTRY FOR SYMBOLIC FIELD                               F0D10700
       LAS     SLASH          IS CHARACTER /                            F0D10710
       TRA     VCV07          NO, ILLEGAL CHARACTER                     F0D10720
       TRA     VCV03          YES, FIELD FOLLOWS                        F0D10730
       LAS     Q10            NO, IS CHARACTER NUMERIC                  F0D10740
       TRA     VCV07          NO, ILLEGAL CHARACTER                     F0D10750
       TSX     MACERR,4     **CHARACTER IS BCD 10                       F0D10760
       CLA     VFDFB          YES, MULTIPLY PARTIAL FIELD WIDTH BY 10   F0D10770
       ALS     2                                                        F0D10780
       ADD     VFDFB                                                    F0D10790
       ALS     1                                                        F0D10800
       ADD     CHRCTR         ADD NEXT DIGIT                            F0D10810
       STO     VFDFB          SAVE NEW PARTIAL FIELD WIDTH              F0D10820
       TRA     VCV02                                                    F0D10830
       REM     REENTRY AFTER / FIELD FOLLOWS                            F0D10840
 VCV03 LXA     VFDFB,4        LOAD FIELD WIDTH                          F0D10850
       TXL     *+4,4,63       IS FIELD TOO LONG                         F0D10860
       STL     ERRFE          YES, SET ERROR FLAG                       F0D10870
       AXT     63,4           RESET LENGTH OF FIELD                     F0D10880
       SXA     VFDFB,4                                                  F0D10890
       ZET     VFDHF          IS FIELD HOLLERITH                        F0D10900
       TRA     VCV05          YES                                       F0D10910
       NZT     VFDOF          NO, IS FIELD OCTAL                        F0D10920
       TRA     *+3            NO, FIELD IS SYMBOLIC                     F0D10930
       TXH     VCV04,4,36     YES, IS OCTAL FIELD GREATER THAN ONE WORD F0D10940
       STL     BOLMD          NO, SET BOOLEAN SCAN FLAG                 F0D10950
       REM     FIELD IS SYMBOLIC OR BOOLEAN NOT LONGER THAN ONE WORD    F0D10960
       TSX     SCANF,4       *EVALUATE SYMBOLIC OR BOOLEAN EXPRESSION   F0D10970
       TXI     VCV06,,0       NULL FIELD                                F0D10980
       SLT     EXPRR          WAS FIELD IN ERROR                        F0D10990
       TRA     *+2            NO                                        F0D11000
       TRA     VCV07+2        YES                                       F0D11010
       SLW     VFDFL          SAVE LOW ORDER PORTION                    F0D11020
       TRA     VCV06+1                                                  F0D11030
       REM     FIELD IS OCTAL                                           F0D11040
 VCV04 TSX     C0190,4       *GET NEXT CHARACTER                        F0D11050
       LAS     COMMA          IS IT COMMA                               F0D11060
       TRA     VCV07+1        NO, ILLEGAL CHARACTER                     F0D11070
       TRA     VCV06+1        YES, END OF FIELD                         F0D11080
       LAS     BLANK          IS IT BLANK                               F0D11090
       TRA     VCV07+1        NO, ILLEGAL CHARACTER                     F0D11100
       TRA     VCV06          YES, END OF VARIABLE FIELD                F0D11110
       LAS     Q8             IS IT AN OCTAL DIGIT                      F0D11120
       NOP                    NO                                        F0D11130
       TRA     VCV07+1        ILLEGAL CHARACTER                         F0D11140
       CAL     VFDFL+1        LOAD HIGH ORDER PORTION OF WORD           F0D11150
       LDQ     VFDFL          LOAD LOW ORDER PORTION OF WORD            F0D11160
       LGL     3              BUMP WORD LEFT ONE OCTAL DIGIT            F0D11170
       SLW     VFDFL+1        SAVE HIGH ORDER PORTION OF WORD           F0D11180
       XCL                                                              F0D11190
       ORA     CHRCTR         APPEND DIGIT TO LOW ORDER PORTION OF WORD F0D11200
       SLW     VFDFL          SAVE LOW ORDER PORTION OF WORD            F0D11210
       TRA     VCV04                                                    F0D11220
       REM     FIELD IS HOLLERITH                                       F0D11230
 VCV05 CAL     BLANKS         BLANK OUT HIGH AND LOW ORDER PORTION      F0D11240
       SLW     VFDFL+1        WORD                                      F0D11250
       SLW     VFDFL                                                    F0D11260
       TSX     C0190,4       *GET NEXT CHARACTER                        F0D11270
       LAS     COMMA          IS IT ,                                   F0D11280
       TRA     *+2            NO                                        F0D11290
       TRA     VCV06+1        YES, END OF FIELD                         F0D11300
       LAS     BLANK          NO, IS IT BLANK                           F0D11310
       TRA     *+2            NO                                        F0D11320
       TRA     VCV06          YES, END OF VARIABLE FIELD                F0D11330
       LDQ     VFDFL          NO, LOAD LOW ORDER PORTION OF WORD        F0D11340
       CAL     VFDFL+1        LOAD HIGH ORDER PORTION OF WORD           F0D11350
       LGL     6              SHIFT LEFT ONE CHARACTER                  F0D11360
       SLW     VFDFL+1        SAVE HIGH ORDER PORTION OF WORD           F0D11370
       XCL                                                              F0D11380
       ORA     CHRCTR         APPEND NEXT CHARACTER                     F0D11390
       SLW     VFDFL          SAVE LOW ORDER PORTION OF WORD            F0D11400
       TRA     VCV05+3                                                  F0D11410
       REM     REENTRY AFTER BLANK, END OF VARIABLE FIELD               F0D11420
 VCV06 SLN     FLDND          SET END OF VARIABLE FIELD FLAG            F0D11430
       REM     REENTRY AFTER COMMA, END OF FIELD                        F0D11440
       LXA     VFDFB,4        LOAD WIDTH OF FIELD                       F0D11450
       CAL     VFDFL+1        LOAD HIGH ORDER PORTION OF FIELD          F0D11460
       LDQ     VFDFL          LOAD LOW ORDER PORTION OF FIELD           F0D11470
       LGL     72,4           LEFT ADJUST FIELD CONTENTS                F0D11480
       SLW     VFDFL+1        SAVE HIGH ORDER PORTION OF FIELD          F0D11490
       STQ     VFDFL          SAVE LOW ORDER PORTION OF FIELD           F0D11500
       TRA     VFDCX                                                    F0D11510
       REM     ERROR ON FIELD DESIGNATION - SKIP OVER FIELD             F0D11520
 VCV07 STZ     VFDFB          RESET FIELD WIDTH                         F0D11530
       TSX     SCEND,4       *SKIP TO END OF FIELD                      F0D11540
       REM     FIELD IS IN ERROR                                        F0D11550
       STL     ERRFE          SET ERROR FLAG                            F0D11560
 VFDCX AXT     **,4           RELOAD CLALING LINKAGE                    F0D11570
       TRA     1,4                                                      F0D11580
       REM                                                              F0D11590
       REM     CONVERT 12 DIGIT OCTAL FIELD TO BINARY                   F0D11600
 OCTSV CAL     SYMBL          COMBINE LOW AND HIGH ORDER PORTIONS       F0D11610
       ORA     SYMB2          OF 12 DIGIT OCTAL FIELD                   F0D11620
       ANA     YYMSK          IS ELEMENT OCTAL                          F0D11630
       TNZ     OCTSR        **NO                                        F0D11640
       LDQ     SYMBL          LOAD LOW ORDER DIGITS                     F0D11650
       CAQ     OCTALT,,6      CONVERT FROM OCTAL                        F0D11660
       ARS     18             REPOSITION IN LOW ORDER                   F0D11670
       SLW     ELMEQ          SAVE                                      F0D11680
       NZT     SYMB2          DO HIGH ORDER DIGITS EXIST                F0D11690
       TRA     OCTSX          NO                                        F0D11700
       LDQ     SYMB2          LOAD HIGH ORDER DIGITS                    F0D11710
       PXD     ,0                                                       F0D11720
       CAQ     OCTALT,,6      CONVERT FROM OCTAL                        F0D11730
       ANA     PRDMK          DELETE LOW ORDER GARBAGE                  F0D11740
       ORA     ELMEQ          COMBINE WITH LOW ORDER DIGITS             F0D11750
       TRA     OCTSX                                                    F0D11760
 OCTSR SLN     EXPRR          SET ERROR FLAGS                           F0D11770
       STL     ERRFB                                                    F0D11780
       PXD     ,0             DELETE VALUE OF OCTAL INTEGER IN ERROR    F0D11790
 OCTSX TRA     1,4                                                      F0D11800
 PRDMK SVN     ,,-1           MASK FOR PREFIX,DECREMENT FIELD BITS 0-17 F0D11810
 YYMSK BCI     1,YYYYYY       MASK FOR NON-OCTAL CHARACTERS             F0D11820
       REM                                                              F0D11830
       REM     CONVERT 12 DIGIT DECIMAL FIELD TO BINARY                 F0D11840
 DECSV LDQ     SYMBL          LOAD LOW ORDER DIGITS                     F0D11850
       PXD     ,0                                                       F0D11860
       CAQ     INTTAB,,6      CONVERT FROM DECIMAL                      F0D11870
       ARS     16             REPOSITION IN LOW ORDER                   F0D11880
       STO     ELMEQ          SAVE                                      F0D11890
       NZT     SYMB2          DO HIGH ORDER DIGITS EXIST                F0D11900
       TRA     DECSX          NO                                        F0D11910
       LDQ     SYMB2          YES, LOAD LOW ORDER DIGITS                F0D11920
       PXD     ,0                                                       F0D11930
       CAQ     INTTAB,,6      CONVERT FROM DECIMAL                      F0D11940
       ARS     16             REPOSITION IN LOW ORDER                   F0D11950
       XCA                                                              F0D11960
       VLM     MILLN,,20      MULTIPLY BY 10**6                         F0D11970
       TOV     *+1            TURN OFF TRIGGER                          F0D11980
       LLS     8              SCALE                                     F0D11990
       ADD     ELMEQ          COMBINE WITH LOW ORDER DIGITS             F0D12000
       TNO     DECSX          IS NUMBER LARGER THAN 2**35               F0D12010
       SLN     EXPRR          YES, SET ERROR FLAGS                      F0D12020
       STL     ERRFE                                                    F0D12030
       PXD     ,0             DELETE NUMBER                             F0D12040
 DECSX TRA     1,4                                                      F0D12050
 MILLN DEC     004096000000                                             F0D12060
       REM                                                              F0D12070
       REM     CONVERT BINARY NUMBER RIGHT ADJUSTED IN AC TO BCD        F0D12080
 BCDCV LDQ     Q0             PREPARE TO CONVERT NUMBER TO DECIMAL      F0D12090
       TRA     BCDV1          HUNDRED THOUSAND PATCH                (25)F0D12100
       VDP     Q10000,,4      TENS OF THOUSANDS                         F0D12110
       RQL     6                                                        F0D12120
       LRS     4                                                        F0D12130
       VDP     Q1000,,4       THOUSANDS                                 F0D12140
       RQL     6                                                        F0D12150
       LRS     4                                                        F0D12160
       VDP     Q100,,4        HUNDREDS                                  F0D12170
       RQL     6                                                        F0D12180
       LRS     4                                                        F0D12190
       VDP     Q10,,4         TENS                                      F0D12200
       RQL     6                                                        F0D12210
       STQ     NERAS          COMBINE WITH                              F0D12220
       ORA     NERAS          ONES                                      F0D12230
       DCT                    TURN OFF TRIGGER                          F0D12240
       NOP                                                              F0D12250
       TRA     1,4                                                      F0D12260
       REM                                                              F0D12270
       REM     ASSEMBLE 12 CHARACTER ALPHAMERIC SYMBOL                  F0D12280
 SSCAN STZ     SYMB2          CLEAR HIGH ORDER SYMBOL                   F0D12290
       STZ     SYMBL          CLEAR LOW ORDER SYMBOL                    F0D12300
       CAL     CHRCTR         LOAD FIRST CHARACTER NEXT FIELD           F0D12310
       ERA     BLANK          IS IT BLANK                               F0D12320
       TZE     1,4            YES, NULL EXPRESSION                      F0D12330
       REM     REENTRY TO CONTINUE SCAN OF FIELD                        F0D12340
 SSCET SXA     SSCNX,4        SAVE CALLING LINKAGE                      F0D12350
       TOV     *+1            TURN OFF TRIGGER                          F0D12360
       TSX     C0190,4       *GET NEXT CHARACTER                        F0D12370
       PAX     ,4             FOR TESTING                               F0D12380
       TXL     SSCN1,4,9      CHARACTER IS NUMERIC                      F0D12390
       TXL     SSCN0,4,12     CHARACTER IS = OR '                       F0D12400
       TXL     SSCRR,4,15     CHARACTER IS ILLEGAL                      F0D12410
       TXL     SSCNX,4,16     CHARACTER IS +                            F0D12420
       TXL     SSCN1,4,25     CHARACTER IS ALPHABETIC                   F0D12430
       TXL     SSCRR,4,26     CHARACTER IS +0                           F0D12440
       TXL     SSCN1,4,27     CHARACTER IS .                            F0D12450
       TXL     SSCN0,4,28     CHARACTER IS )                            F0D12460
       TXL     SSCRR,4,31     CHARACTER IS ILLEGAL                      F0D12470
       TXL     SSCNX,4,32     CHARACTER IS -                            F0D12480
       TXL     SSCN1,4,41     CHARACTER IS ALPHABETIC                   F0D12490
       TXL     SSCRR,4,42     CHARACTER IS -0                           F0D12500
       TXL     SSCNX,4,44     CHARACTER IS $ OR *                       F0D12510
       TXL     SSCRR,4,47     CHARACTER IS ILLEGAL                      F0D12520
       TXL     SSCN2,4,48     CHARACTER IS BLANK                        F0D12530
       TXL     SSCNX,4,49     CHARACTER IS /                            F0D12540
       TXL     SSCN1,4,57     CHARACTER IS ALPHABETIC                   F0D12550
       TXL     SSCRR,4,58     CHARACTER IS RM                           F0D12560
       TXL     SSCN2+1,4,59   CHARACTER IS ,                            F0D12570
       TXH     SSCRR,4,60     CHARACTER IS ILLEGAL                      F0D12580
       REM     CHARACTER IS ( ) ' =                                     F0D12590
 SSCN0 TXL     SSCNX,4,**     IS THIS SCAN DURING MACRO DEFINITION      F0D12600
       TXL     SSCRR,4,12     NO, IS CHARACTER = OR ' NOT LEGAL IN FAP  F0D12610
       REM     CHARACTER IS VALID                                       F0D12620
 SSCN1 STZ     SCNFC          RESET FLAG FOR FIRST CHARACTER IN ELEMENT F0D12630
       CAL     SYMB2          LOAD HIGH ORDER PORTION                   F0D12640
       LDQ     SYMBL          LOAD LOW ORDER PORTION                    F0D12650
       LGL     6              SHIFT UP NEXT CHARACTER                   F0D12660
       TOV     SSCRR          IS SYMBOL (OR INTEGER) TOO LONG           F0D12670
       SLW     SYMB2          NO, SAVE HIGH ORDER PORTION               F0D12680
       XCL                                                              F0D12690
       ADD     CHRCTR         APPEND NEXT CHARACTER TO LOW ORDER PART   F0D12700
       SLW     SYMBL          SAVE LOW ORDER PORTION                    F0D12710
       TRA     SSCET+2                                                  F0D12720
       REM     CHARACTER IS ILLEGAL                                     F0D12730
 SSCRR STZ     SYMB2          CLEAR SYMBOL                              F0D12740
       STZ     SYMBL                                                    F0D12750
       SLN     EXPRR          SET ERROR FLAGS                           F0D12760
       STL     ERRFE                                                    F0D12770
       TSX     SCEND,4       *SKIP TO END OF INTEGER                    F0D12780
       TRA     FLAGB         SET BOOLEAN ERROR FLAG                    $F0D12790
       REM     END OF FIELD                                             F0D12800
 SSCN2 SLN     FLDND          SET END OF VARIABLE FIELD (BLANK) FLAG    F0D12810
       SLN     EXPND          SET END OF EXPRESSION (, OR BLANK) FLAG   F0D12820
 SSCNX AXT     **,4           RELOAD CALLING LINKAGE                    F0D12830
       TRA     2,4                                                      F0D12840
       REM                                                              F0D12850
       REM     SKIP TO END OF EXPRESSION                                F0D12860
 SCEND SXA     SCENX,4        SAVE CALLING LINKAGE                      F0D12870
       TSX     C0190,4       *GET NEXT CHARACTER                        F0D12880
       PAX     ,4             FOR TESTING                               F0D12890
       TXL     SCEND+1,4,47                                             F0D12900
       TXL     *+4,4,48       CHARACTER IS BLANK                        F0D12910
       TXL     SCEND+1,4,58                                             F0D12920
       TXL     SCENX,4,59     CHARACTER IS COMMA                        F0D12930
       TRA     SCEND+1                                                  F0D12940
       SLN     FLDND          SET END OF VARIABLE FIELD (BLANK) FLAG    F0D12950
 SCENX AXT     **,4           RELOAD CALLING LINKAGE                    F0D12960
       TRA     1,4                                                      F0D12970
       REM                                                              F0D12980
       REM     LEFT ADJUST SYMBOL NAME                                  F0D12990
 LADJS NZT     SYMB2          DOES LENGTH OF SYMBOL EXCEDE 6 CHARACTERS F0D13000
       TRA     *+3            NO                                        F0D13010
       SLN     EXPRR          YES, SET ERROR FLAGS                      F0D13020
       STL     ERRFE                                                    F0D13030
       CAL     SYMBL          LOAD LOW ORDER SYMBOL NAME                F0D13040
       TZE     *+5            DOES SYMBOL NAME EXIST                    F0D13050
       LDQ     BLANKS         YES, LOAD FOLLOWING BLANKS                F0D13060
       LGR     6              SHIFT OUT NEXT CHARACTER                  F0D13070
       TNZ     *-1            IS SYMBOL LEFT ADJUSTED                   F0D13080
       XCL                    YES, RECALL LEFT ADJUSTED SYMBOL NAME     F0D13090
       TRA     1,4                                                      F0D13100
       REM                                                              F0D13110
       REM     GOOD OLD C0190 - GET NEXT CHARACTER                      F0D13120
 C0190 LDQ     RESIDU         RELOAD REMAINDER OF SOURCE CARD WORD      F0D13130
 C019Q BSS     0              ENTRY FOR RESIDUE IN MQ               (24)F0D13135
       TIX     *+3,1,1        IS CHARACTER COUNT EXHAUSTED              F0D13140
       TSX     C0200,1       *YES, GET NEXT SOURCE CARD WORD            F0D13150
       AXT     6,1            RESET CHARACTER COUNT                     F0D13160
       PXD     ,0                                                       F0D13170
       LGL     6              SHIFT IN NEXT CHARACTER                   F0D13180
       STQ     RESIDU         SAVE REMAINDER OF SOURCE CARD             F0D13190
       SLW     CHRCTR         SAVE IT                                   F0D13200
       TRA     1,4                                                      F0D13210
       REM                                                              F0D13220
       REM     LOOK AT NEXT CHARACTER                                   F0D13230
 C019A LDQ     RESIDU         RELOAD REMAINDER OF SOURCE CARD WORD      F0D13240
       TXH     *+4,1,1        IS CHARACTER COUNT EXHAUSTED              F0D13250
       TSX     C0200,1       *YES, GET NEXT SOURCE CARD WORD            F0D13260
       STQ     RESIDU         SAVE REMAINDER OF SOURCE CARD             F0D13270
       AXT     7,1            RESET CHARACTER COUNT                     F0D13280
       PXD     ,0                                                       F0D13290
       LGL     6              SHIFT IN NEXT CHARACTER                   F0D13300
       TRA     1,4                                                      F0D13310
       REM                                                              F0D13320
       REM     GET NEXT WORD                                            F0D13330
 C0200 TXI     *+1,2,-1       BUMP CARD WORD COUNT                      F0D13340
       LDQ     BCDBF,2        LOAD NEXT SOURCE CARD WORD                F0D13350
       TXH     *+2,2,-12      IS THIS CARD IMAGE WORD 13                F0D13360
       LDQ     BLANKS         YES, SET STOP                             F0D13370
       TRA     1,1                                                      F0D13380
       REM                                                              F0D13390
       REM     BUMP STORAGE COUNTERS                                    F0D13400
 BPCTR STO     BERAS          SAVE LENGTH OF BUMP                       F0D13410
       ADD     CDCTR          BUMP CARD STORAGE COUNTER                 F0D13420
       STA     CDCTR                                                    F0D13430
       CLA     BERAS          RECALL LENGTH OF BUMP                     F0D13440
       ADD     LOCTR          BUMP PROGRAM COUNTER                      F0D13450
       STA     LOCTR                                                    F0D13460
       TRA     1,4                                                      F0D13470
       REM                                                              F0D13480
       REM     ERROR ROUTINES                                           F0D13490
SRCERR STI     DIGM2+1        SET TABLE NAME                            F0D13500
       TSX     WRITT,4       *WRITE DIAGNOSTIC HEADING                  F0D13510
       PZE     DIGM1,,5                                                 F0D13520
       CAL     DIGM1          SET DOUBLE SPACE                          F0D13530
       SLW     BCDBF-1                                                  F0D13540
       TSX     WRITT,4       *WRITE OFFENDING CARD                      F0D13550
       PZE     BCDBF-1,,15                                              F0D13560
       TSX     WRITT,4       *WRITE TABLE NAME                          F0D13570
       MZE     DIGM2,,5                                                 F0D13580
       TSX     WRFBK,4       *WRITE LAST PARTIAL LISTING BUFFER         F0D13590
       TSX    (SECL),4      **TERMINATE ASSEMBLY                        F0D13600
       PZE                    PATCH SPACE FOR POSSIBLE PARAMETER        F0D13610
       REM                                                              F0D13620
TAPERR STZ     ORDRF         SET TAPE ERROR FLAG                       $F0D13630
       TRA     MACERR+2      (RESET BY CLOSEOUT ROUTINES)              $F0D13640
MACERR TXI     *+1,,0        PARAMETER TO IDENTIFY MACHINE ERROR       $F0D13650
       STL     ORDRF         SET MACHINE ERROR FLAG                    $F0D13660
       ZET     ORDRF         WAS THIS TAPE ERROR                       $F0D13670
       TRA     (DIAG)      **NO,THIS WAS CORE ERROR                    $F0D13680
       TSX     (MECL),4    **YES,ERROR MESSAGE HAS BEEN PRINTED        $F0D13690
STP00  CAL*    (FGBX)                                                  $F0D13700
       ANA     Q4            IS THIS AN IBSFAP JOB                     $F0D13710
       TZE     STP01          NO, THIS IS FORTRAN MODE              (24)F0D13720
       STL     COMCD          YES, SET FLAG TO UNBLOCK              (24)F0D13730
       SSM                    CONTROL CARDS                         (24)F0D13740
       TRA     1,4                                                  (24)F0D13750
 BCDV1 LRS     4                                                    (25)F0D13760
       VDP     TEN5TH,,4      HUNDREDS OF THOUSANDS                 (25)F0D13770
       RQL     6                                                    (25)F0D13780
       LRS     4                                                    (25)F0D13790
       TRA     BCDCV+2        BACK TO BCDCV ROUTINE                 (25)F0D13800
       DUP     1,6            PATCH SPACE                           (25)F0D13810
       PZE                                                          (25)F0D13820
       REM                                                              F0D13850
 DIGM1 BCI     5,0        FAP DIAGNOSTIC RESULT                         F0D13860
 DIGM2 BCI     5,0            TABLE OVERFLOWED                          F0D13870
 HEDNM BCI     1,HEADNG                                                 F0D13880
 VECNM BCI     1,VECTOR                                                 F0D13890
 LITNM BCI     1,LITRAL                                                 F0D13900
 SYMNM BCI     1,SYMBOL                                                 F0D13910
 OPTNM BCI     1,OPRTN                                                  F0D13920
       REM                                                              F0D13930
*CALL MONITOR SCAN AFTER UPDATE WITH ASSEMBLY DELETED OR END OF PASS 2.$F0D13940
LOADER TSX     (LOAD),4,1   *CALL MONITOR SCAN                         $F0D13950
       BCI     1,9F0600      REC. 7 PARAMETER . MONITOR SCAN           $F0D13960
       REM                                                              F0D13970
       REM     SPACE PAGE                                               F0D13980
 SPACP SXA     *+5,1                                                    F0D13990
       AXT     7,1                                                      F0D14000
       TSX    (PRNT),4       *PRINT 7 DOUBLE SPACED BLANK LINES         F0D14010
       PZE     SPACE,,1       FOR THE NEARSIGHTED                       F0D14020
       TIX     *-2,1,1                                                  F0D14030
       AXT     **,1                                                     F0D14040
       CLA     ALONE          LIGHT UP CONSOLE                          F0D14050
       ALS     2                                                        F0D14060
       ORA     ALONE                                                    F0D14070
       LDQ     ALONE                                                    F0D14080
       HPR     -1,7           PAUSE                                     F0D14090
 SPACS NOP                    SHOULD JOB BE TERMINATED                  F0D14100
       TRA     1,2            NO                                        F0D14110
       TSX    (PRNT),4       *YES, TELL THE WORLD                       F0D14120
       PZE     *+2,,6                                                   F0D14130
       TRA     TAPERR       **TERMINATE ASSEMBLY                        F0D14140
       BCI     6,0 ASSEMBLY TERMINATED BY OPERATIONS.                   F0D14150
       REM                                                              F0D14160
       REM                                                              F0D14170
       REM     CONSTANTS                                                F0D14180
 Q0    PZE     0                                                        F0D14190
 Q1    PZE     1              9 BIT   0 ZONE                            F0D14200
 Q2    PZE     2              8 BIT  11 ZONE                            F0D14210
 Q4    PZE     4              7 BIT  12 ZONE                            F0D14220
 ZONER SYN     *                                                        F0D14230
 Q8    PZE     8              6 BIT  NO ZONE                            F0D14240
 Q16   PZE     16             5 BIT                                     F0D14250
 Q32   PZE     32             4 BIT                                     F0D14260
 Q64   PZE     64             3 BIT                                     F0D14270
 Q128  PZE     128            2 BIT                                     F0D14280
 Q256  PZE     256            1 BIT                                     F0D14290
 DIGIT PZE     512            0 BIT                                     F0D14300
 Q3    PZE     3                                                        F0D14310
 DASTR BCI     1,**0000       SPECIAL OP CODE COMPARE WORD          (24)F0D14320
 Q6    PZE     6                                                        F0D14330
 Q7    PZE     7              MASK FOR OCTAL CHARACTER                  F0D14340
 Q10   PZE     10                                                       F0D14350
 Q15   PZE     15                                                       F0D14360
 INP06                        NUMBER - ADDEND OF NEXT CARD          (25)F0D14370
 Q36   PZE     36                                                       F0D14380
 Q62   PZE     62                                                       F0D14390
 Q63   PZE     63             MASK FOR BCD CHARACTER                    F0D14400
 Q100  PZE     100                                                      F0D14410
 Q127  OCT     1777           MASK FOR LOW ORDER TEN BITS              $F0D14420
 Q1000 PZE     1000                                                     F0D14430
 Q4095 PZE     4095           MASK FOR TWO BCD CHARACTERS               F0D14440
 Q7680 PZE     7680                                                     F0D14450
 Q8192 PZE     8192                                                     F0D14460
Q10000 PZE     10000                                                    F0D14470
Q16384 PZE     16384                                                    F0D14480
 ADDMK PZE     -1             MASK FOR ADDRESS FIELD BITS 21 - 35       F0D14490
 T1    PZE     ,1                                                       F0D14500
 T2    PZE     ,2                                                       F0D14510
 T3    PZE     ,3                                                       F0D14520
 T4    PZE     ,4                                                       F0D14530
 NUM03 PZE     -1,-1,3        MASK FOR LOW ORDER 20 BITS            (25)F0D14540
 ADTMK PZE     -1,-1          MASK FOR ADDRESS,TAG FIELD BITS 18 - 35   F0D14550
 D1    PZE     ,,1                                                      F0D14560
 D2    PZE     ,,2            FLAG FOR EXPLICIT ZERO IN MACRO LOC FIELD F0D14570
       REM                    MASK FOR FLAG REQUIRING DECREMENT FIELD   F0D14580
 DELTF PZE                    FLAG FOR SYMBOLIC REF TABLE ENTRIES      $F0D14590
 D4    PZE     ,,4            MASK FOR FLAG REQUIRING TAG FIELD         F0D14600
 D5    PZE     ,,5            RELOCATION BITS FOR NAME IN TRANSFER VECTRF0D14610
 D8    PZE     ,,8            FLAG FOR DUPLICATELY-DEFINED SYMBOLS      F0D14620
       REM                    MASK FOR FLAG REQUIRING ADDRESS FIELD     F0D14630
 INP07                        ADDEND FOR NUMBERING                  (25)F0D14640
 D48   PZE     ,,48           INSTRUCTION INDIRECT ADDRESS BITS         F0D14650
 IMASK PZE     ,4,48          MASK FOR FLAGS PERMITTING INDIRECT ADDRS  F0D14660
 D63   PZE     ,,63           MASK FOR THIRD CHARACTER IN WORD          F0D14670
 D320  PZE     ,,320          COULUMN BINARY BITS                       F0D14680
 D4032 PZE     ,,4032         MACRO ARGUMENT FLAG                       F0D14690
D32512 PZE     ,,32512        MASK FOR 8-BIT COUNT FIELD                F0D14700
D32767 PZE     ,,-1                                                     F0D14710
 P1    PON                                                              F0D14720
 P4    FOR                                                              F0D14730
 BLNK3 BCI     1,   000       BLANK FOR OP CODE                     (24)F0D14740
 P7    SVN                                                              F0D14750
 ALONE SVN     -1,-1,-1       FULL WORD MASK                            F0D14760
 OPMSK OCT     777700217777   MASK FOR VALID MACHINE OPERATION BITS     F0D14770
 P1MSK OCT     777700000000   MASK TO DELETE CC 81 - 84                 F0D14780
 P2MSK BCI     1,00           MASK TO BLANK OUT CC 81 - 84              F0D14790
 QE    BCI     1,00000E                                                 F0D14800
 POINT BCI     1,00000.                                                 F0D14810
 QO    BCI     1,00000O                                                 F0D14820
 SPACE BCI     1,0            PROGRAM CONTROL CHARACTER                 F0D14830
 4FLAG BCI     1,4            MODE ERROR FLAG                           F0D14840
 9FLAG BCI     1,9            MODE ERROR FLAG                           F0D14850
 EFLAG BCI     1, E           LISTING FLAG FOR ERROR                    F0D14860
 MFLAG BCI     1, M                                                     F0D14870
 RCOMA BCI     1,,00000                                                 F0D14880
       REM                                                              F0D14890
       REM     MODE SETTING CHARACTERS FOR TAPENO PSEUDOOPERATION       F0D14900
 TAPCH BCI     1,00000        (1)                                       F0D14910
 QL    BCI     1,00000L       (2)                                       F0D14920
 QH    BCI     1,00000H       (3)                                       F0D14930
 QD    BCI     1,00000D       (4)                                       F0D14940
 QB    BCI     1,00000B       (5)                                       F0D14950
       REM                                                              F0D14960
       REM     MACRO PROCESSOR PUNCTUATION TABLE                        F0D14970
 BKTBM SYN     *                                                        F0D14980
 LPARN BCI     1,00000(                                                 F0D14990
 COMMA BCI     1,00000,                                                 F0D15000
 SLASH BCI     1,00000/                                                 F0D15010
 BLANK BCI     1,00000                                                  F0D15020
 ASTRK BCI     1,00000*                                                 F0D15030
 DOLAR BCI     1,00000$                                                 F0D15040
 MINUS BCI     1,00000-                                                 F0D15050
       BCI     1,00000)                                                 F0D15060
 PLUSS BCI     1,00000+                                                 F0D15070
 PRIME BCI     1,00000'                                                 F0D15080
 EQUAL BCI     1,00000=                                                 F0D15090
 BKTBL PZE     ,,BKTBL-BKTBM  MACRO PUNCTUATION TABLE                   F0D15100
       REM                                                              F0D15110
       REM     CONVERSION TABLES                                        F0D15120
       REM                                                              F0D15130
       REM     TO CONVERT DECIMAL TO BINARY INTEGER                     F0D15140
INTTAB PZE     INTTAB+10                                                F0D15150
       PZE     INTTAB+10,,25000                                         F0D15160
       PON     INTTAB+10,,50000                                         F0D15170
       PTW     INTTAB+10,,75000                                         F0D15180
       PTH     INTTAB+10,,100000                                        F0D15190
       PTH     INTTAB+10,,125000                                        F0D15200
       FOR     INTTAB+10,,150000                                        F0D15210
       FVE     INTTAB+10,,175000                                        F0D15220
       SIX     INTTAB+10,,200000                                        F0D15230
       SIX     INTTAB+10,,225000                                        F0D15240
               INTTAB+20                                                F0D15250
               INTTAB+20,,2500                                          F0D15260
               INTTAB+20,,5000                                          F0D15270
               INTTAB+20,,7500                                          F0D15280
               INTTAB+20,,10000                                         F0D15290
               INTTAB+20,,12500                                         F0D15300
               INTTAB+20,,15000                                         F0D15310
               INTTAB+20,,17500                                         F0D15320
               INTTAB+20,,20000                                         F0D15330
               INTTAB+20,,22500                                         F0D15340
               INTTAB+30                                                F0D15350
               INTTAB+30,,250                                           F0D15360
               INTTAB+30,,500                                           F0D15370
               INTTAB+30,,750                                           F0D15380
               INTTAB+30,,1000                                          F0D15390
               INTTAB+30,,1250                                          F0D15400
               INTTAB+30,,1500                                          F0D15410
               INTTAB+30,,1750                                          F0D15420
               INTTAB+30,,2000                                          F0D15430
               INTTAB+30,,2250                                          F0D15440
               INTTAB+40                                                F0D15450
               INTTAB+40,,25                                            F0D15460
               INTTAB+40,,50                                            F0D15470
               INTTAB+40,,75                                            F0D15480
               INTTAB+40,,100                                           F0D15490
               INTTAB+40,,125                                           F0D15500
               INTTAB+40,,150                                           F0D15510
               INTTAB+40,,175                                           F0D15520
               INTTAB+40,,200                                           F0D15530
               INTTAB+40,,225                                           F0D15540
               INTTAB+50                                                F0D15550
               INTTAB+50,4,2                                            F0D15560
               INTTAB+50,0,5                                            F0D15570
               INTTAB+50,4,7                                            F0D15580
               INTTAB+50,0,10                                           F0D15590
               INTTAB+50,4,12                                           F0D15600
               INTTAB+50,0,15                                           F0D15610
               INTTAB+50,4,17                                           F0D15620
               INTTAB+50,0,20                                           F0D15630
               INTTAB+50,4,22                                           F0D15640
               0                                                        F0D15650
               0,2                                                      F0D15660
               0,4                                                      F0D15670
               0,6                                                      F0D15680
               0,0,1                                                    F0D15690
               0,2,1                                                    F0D15700
               0,4,1                                                    F0D15710
               0,6,1                                                    F0D15720
               0,0,2                                                    F0D15730
               0,2,2                                                    F0D15740
       REM                                                              F0D15750
       REM                                                              F0D15760
       REM     TO CONVERT OCTAL TO BINARY INTEGER                       F0D15770
OCTALT PZE     OCTALT+8                                                 F0D15780
       PON     OCTALT+8                                                 F0D15790
       PTW     OCTALT+8                                                 F0D15800
       PTH     OCTALT+8                                                 F0D15810
       FOR     OCTALT+8                                                 F0D15820
       FVE     OCTALT+8                                                 F0D15830
       SIX     OCTALT+8                                                 F0D15840
       SVN     OCTALT+8                                                 F0D15850
               OCTALT+16                                                F0D15860
               OCTALT+16,,4096                                          F0D15870
               OCTALT+16,,2*4096                                        F0D15880
               OCTALT+16,,3*4096                                        F0D15890
               OCTALT+16,,4*4096                                        F0D15900
               OCTALT+16,,5*4096                                        F0D15910
               OCTALT+16,,6*4096                                        F0D15920
               OCTALT+16,,7*4096                                        F0D15930
               OCTALT+24                                                F0D15940
               OCTALT+24,,512                                           F0D15950
               OCTALT+24,,2*512                                         F0D15960
               OCTALT+24,,3*512                                         F0D15970
               OCTALT+24,,4*512                                         F0D15980
               OCTALT+24,,5*512                                         F0D15990
               OCTALT+24,,6*512                                         F0D16000
               OCTALT+24,,7*512                                         F0D16010
               OCTALT+32                                                F0D16020
               OCTALT+32,,64                                            F0D16030
               OCTALT+32,,2*64                                          F0D16040
               OCTALT+32,,3*64                                          F0D16050
               OCTALT+32,,4*64                                          F0D16060
               OCTALT+32,,5*64                                          F0D16070
               OCTALT+32,,6*64                                          F0D16080
               OCTALT+32,,7*64                                          F0D16090
               OCTALT+40                                                F0D16100
               OCTALT+40,,8                                             F0D16110
               OCTALT+40,,16                                            F0D16120
               OCTALT+40,,24                                            F0D16130
               OCTALT+40,,32                                            F0D16140
               OCTALT+40,,40                                            F0D16150
               OCTALT+40,,48                                            F0D16160
               OCTALT+40,,56                                            F0D16170
               0                                                        F0D16180
               ,,1                                                      F0D16190
               ,,2                                                      F0D16200
               ,,3                                                      F0D16210
               ,,4                                                      F0D16220
               ,,5                                                      F0D16230
               ,,6                                                      F0D16240
               ,,7                                                      F0D16250
       REM                                                              F0D16260
       REM                                                              F0D16270
       REM     TO CONVERT DECIMAL TO FLOATING POINT BINARY              F0D16280
DECTAB SYN     *-1                                                      F0D16290
       OCT 141500000000,144620000000,147764000000,153470400000          F0D16300
       OCT 156606500000,161750220000,165461132000,170575360400          F0D16310
       OCT 173734654500,177452013710,202564416672,205721522451          F0D16320
       OCT 211443023471,214553630410,217706576512,223434157116          F0D16330
       OCT 226543212741,231674055532,235425434430,240532743536          F0D16340
       OCT 243661534466,247417031702,252522640262,255647410336          F0D16350
       OCT 261410545213,264512676456,267635456171,273402374714          F0D16360
       OCT 276503074077,301623713116,304770675742,310473426555          F0D16370
       OCT 313612334311,316755023373,322464114135,325601137164          F0D16380
       OCT 330741367021,334454732313,337570120775,342726145174          F0D16390
       OCT 346445677216,351557257061,354713132676,360436770626          F0D16400
       OCT 363546566774,366700324573,372430204755,375536246150          F0D16410
       REM                                                              F0D16420
       REM     I/O COMMANDS                                             F0D16430
 BSREC MZE     1,,0           COMMAND TO BACKSPACE ONE RECORD           F0D16440
 BS2RC MZE     2,,0           I/O COMMAND TO BACKSPACE TWO RECORDS      F0D16450
 REWND PZE     ,,-1           COMMAND TO REWIND TAPE                    F0D16460
 UNLOD MZE     ,,-1           COMMAND TO REWIND-UNLOAD TAPE             F0D16470
 INTAP PZE     ILABL,,FINTAP  PARAM TO READ/WRITE FIRST INTERMED TAPE   F0D16480
       PZE     ILABL,,SINTAP  PARAM TO READ/WRITE SECOND INTERMED TAPE  F0D16490
 INTCK PZE     FINTAP,,(CHKU) COMMAND TO CHECK TRANSMISSION INT TAPE 1  F0D16500
       PZE     SINTAP,,(CHKU) COMMAND TO CHECK TRANSMISSION INT TAPE 2  F0D16510
 ITSCH PZE    (SCHU)+FINTAP   INTERMEDIATE TAPE 1 HISTORY CELL          F0D16520
       PZE    (SCHU)+SINTAP   INTERMEDIATE TAPE 2 HISTORY CELL          F0D16530
 BLABL BCI     1,FAPBIN       INTERMEDIATE PUNCH TAPE RECORD LABEL      F0D16540
 ILABL BCI     1,FAPBCD       INTERMEDIATE PRINT TAPE RECORD LABEL      F0D16550
       REM                                                              F0D16560
       IORT    BBUF11,,**     I/O COMMAND TO WRITE LISTING TAPE         F0D16570
 BCD14 PZE     BBUF11,1       ORIGIN OF LISTING OUTPUT BUFFER           F0D16580
       IORT    BBUF12,,**                                               F0D16590
       PZE     BBUF12,1                                                 F0D16600
       REM                                                              F0D16610
       IORT    BBUF21,,UPDBKL I/O COMMAND TO READ UPDATE INPUT TAPE     F0D16620
 BCD24 PZE     BBUF22,1       ORIGIN OF UPDATE INPUT BUFFER             F0D16630
       IORT    BBUF22,,UPDBKL                                           F0D16640
       PZE     BBUF21,1                                                 F0D16650
       REM                                                              F0D16660
       IORT    BBUF31,,UPDBKL I/O COMMAND TO READ SOURCE INPUT TAPE     F0D16670
 BCD34 PZE     BBUF32,1       ORIGIN OF SOURCE INPUT BUFFER             F0D16680
       IORT    BBUF32,,UPDBKL                                           F0D16690
       PZE     BBUF31,1                                                 F0D16700
       REM                                                              F0D16710
       IORT    BBUF41,,**     I/O COMMAND TO WRITE UPDATE OUTPUT TAPE   F0D16720
 BCD44 PZE     BBUF41,1       ORIGIN OF UPDATE OUTPUT BUFFER            F0D16730
       IORT    BBUF42,,**                                               F0D16740
       PZE     BBUF42,1                                                 F0D16750
       REM                                                              F0D16760
       IORT    BBUF51,,**     I/O COMMAND TO WRITE INTERMEDIATE TAPE    F0D16770
 BCD54 PZE     BBUF51,1       ORIGIN OF INTERMEDIATE OUTPUT BUFFER      F0D16780
       IORT    BBUF52,,**                                               F0D16790
       PZE     BBUF52,1                                                 F0D16800
       REM                                                              F0D16810
       IORT    BBUF51,,INPBKL I/O COMMAND TO READ INTERMEDIATE TAPE     F0D16820
 BCD55 PZE     BBUF52,1       ORIGIN OF INTERMEDIATE INPUT BUFFER       F0D16830
       IORT    BBUF52,,INPBKL                                           F0D16840
       PZE     BBUF51,1                                                 F0D16850
       REM                                                              F0D16860
       IOCP    PBUFF2,,24     I/O COMMAND TO WRITE BINARY OUTPUT RECORD F0D16870
 BOTIO IOCT    PBUFF2+24,,3   AND CARD SERIALIZATION FROM PROPER BUFFER F0D16880
       IOCP    PBUFF3,,24                                               F0D16890
       IOCT    PBUFF3+24,,3                                             F0D16900
       REM                                                              F0D16910
       PZE     PBUFF2+27,4    ORIGIN OF BINARY OUTPUT RECORD BUFFER     F0D16920
 BOTBF PZE     PBUFF2+1       BINARY OUTPUT BUFFER CHECKSUM             F0D16930
       PZE     PBUFF3+27,4                                              F0D16940
       PZE     PBUFF3+1                                                 F0D16950
       REM                                                              F0D16960
       PZE     PBUFF4+27,4    ORIGIN OF BINARY INTERMED RECORD BUFFER   F0D16970
 BINBF PZE     PBUFF4+1       BINARY INTERMEDIATE BUFFER CHECKSUM       F0D16980
       PZE     PBUFF5+27,4                                              F0D16990
       PZE     PBUFF5+1                                                 F0D17000
       REM                                                              F0D17010
       IOCT    PBUFF4,,24     I/O COMMAND TO WRITE BINARY INTER RECORD  F0D17020
 BINIO PZE                                                              F0D17030
       IOCT    PBUFF5,,24                                               F0D17040
       REM                                                              F0D17050
       REM                                                              F0D17060
 DCV15 STZ     DCPFG          RESET EXCESS DECIMAL POINT FLAG          $F0D17070
       STZ     DCEFG          RESET EXCESS EXPONENT (E) FLAG           $F0D17071
       STZ     DC2FG          RESET EXCESS EXPONENT (B) FLAG           $F0D17072
       TRA     DCV03+2                                                 $F0D17073
 DCV16 ZET     DCPFG          IS THERE AN EXCESS DECIMAL POINT         $F0D17074
       TRA     DCVRR          YES, SET ERROR FLAG                      $F0D17075
       STO     DCPFG          NO                                       $F0D17076
       TRA     DCV01                                                   $F0D17077
 DCV17 ZET     DCEFG          IS THERE AN EXCESS EXPONENT (E)          $F0D17078
       TRA     DCVRR          YES, SET ERROR FLAG                      $F0D17079
       STO     DCEFG          NO                                       $F0D1707A
       TRA     DCV02                                                   $F0D1707B
 DCV18 ZET     DC2FG          IS THERE AN EXCESS EXPONENT (B)          $F0D1707C
       TRA     DCVRR          YES, SET ERROR FLAG                      $F0D1707D
       STO     DC2FG          NO                                       $F0D1707E
       TRA     DCV03                                                   $F0D1707F
       REM     CONVERT BINARY NUMBER TO DECIMAL                        $F0D1707G
OCTDV  VLM     Q8,,3                                                   $F0D1707H
       STO     NERAS                                                   $F0D1707I
       VLM     Q80,,3                                                  $F0D1707J
       ADD     NERAS                                                   $F0D1707K
       STO     NERAS                                                   $F0D1707L
       VLM     Q800,,3                                                 $F0D1707M
       ADD     NERAS                                                   $F0D1707N
       STO     NERAS                                                   $F0D1707O
       VLM     Q8000,,3                                                $F0D1707P
       ADD     NERAS                                                   $F0D1707Q
       STO     NERAS                                                   $F0D1707R
       VLM     Q80000,,3                                               $F0D1707S
       ADD     NERAS                                                   $F0D1707T
       TRA     1,4                                                     $F0D1707U
Q80    PZE     80                                                      $F0D1707V
Q800   PZE     800                                                     $F0D1707W
Q8000  PZE     8000                                                    $F0D1707X
Q80000 DEC     80000                                                   $F0D1707Y
FPRNA  CAL*    FPRN2          PICK UP FIRST WORD OF LINE               $F0D1707Z
       ARS     30             ISOLATE FIRST CHARACTER                  $F0D17080
       TNZ     WRITT          NOT DOUBLE-SPACE, WRITE LINE             $F0D17081
       TIX     WRITT,1,1      YES, BUMP LINE COUNT ONE EXTRA           $F0D17082
       TRA     PAGENO         PAGE IS FULL                             $F0D17083
 DLRUT TSX     C019A,4         GET NEXT CHARACTER FOR TEST             $F0D17084
       PAX     ,4                                                      $F0D17085
       TXL     HDTST,4,9       CHARACTER IS NUMERIC                    $F0D17086
       TXL     DLERR,4,16      CHARACTER IS ILLEGAL OR PLUS            $F0D17087
       TXL     HDTST,4,25      CHARACTER IS ALPHABETIC                 $F0D17088
       TXL     DLERR,4,26      CHARACTER IS ILLEGAL                    $F0D17089
       TXL     HDTST,4,28      CHARACTER IS PERIOD OR RIGHT PARENTHESIS$F0D1708A
       TXL     DLERR,4,32      CHARACTER IS ILLEGAL OR MINUS           $F0D1708B
       TXL     HDTST,4,41      CHARACTER IS ALPHABETIC                 $F0D1708C
       TXL     DLERR,4,49      CHARACTER IS BLANK OR EQUALS            $F0D1708D
       TXL     HDTST,4,57      CHARACTER IS ALPHABETIC                 $F0D1708E
       TXL     DLERR,4,59      CHARACTER IS ILLEGAL OR COMMA           $F0D1708F
       TXL     HDTST,4,60      CHARACTER IS LEFT PARENTHESIS           $F0D1708G
       REM     REENTRY FOR IMPROPER DOLLAR SIGN                        $F0D1708H
 DLERR SLN     EXPRR           SET ERROR FLAGS                         $F0D1708I
       STL     ERFDL                                                   $F0D1708J
       TRA     SCN02+2         RETURN                                  $F0D1708K
       REM     REENTRY TO TEST FOR MORE THAN ONE CHARACTER PRECEEDING  $F0D1708L
 HDTST CAL     SYMBL           GET PRECEEDING CHARACTERS               $F0D1708M
       LGR     6                                                       $F0D1708N
       TNZ     DLERR           MORE THAN ONE BEFORE DOLLAR SIGN        $F0D1708O
       LGL     6               OK                                      $F0D1708P
       TRA     SCN02+1         RETURN                                  $F0D1708Q
PATCH  TXH     FPRN1,2,0      IS LINE AT TOP OF PAGE BLANK             $F0D1708R
       TXI     FPRN1,1,-1     YES, BUMP PAGE LINE COUNT DOWN ONE       $F0D1708S
FLAGB  STL     ERRFB          INDICATE BOOLEAN ERROR                   $F0D1708T
       TRA     SSCN2+1        RETURN                                   $F0D1708U
       TTL     PASS ONE SUBROUTINES                                     F0D17090
PASSLP SYN     *                                                       $F0D17093
       REM     PASS ONE                                                 F0D17100
       REM                                                              F0D17110
       REM     COPY INPUT TAPE TO INTERMEDIATE TAPE                     F0D17120
       REM     PREPARE TABLE OF SYMBOLS APPEARING IN SOURCE PROGRAM     F0D17130
       REM     PARTIALLY PROCESS PSEUDOOPS AND LITERALS                 F0D17140
       REM     PREPARE TRANSFER VECTOR                                  F0D17150
       REM                                                              F0D17160
       HEAD    4              PASS ONE                                  F0D17170
       ORG     PASSLP                                                   F0D17180
       REM                                                              F0D17190
       REM     SSYMT SUBROUTINE MUST ORIGIN AT SAME LOCATN PASS 1 AND 2 F0D17200
       REM     LINEAR SEARCH OF SYMBOL TABLE                            F0D17210
 SSYMT SXA     SRCHX,4        SAVE CALLING LINKAGE                      F0D17220
       CAL     SYMSIZ         COMPUTE LENGTH OF SYMBOL TABLE            F0D17230
       COM                                                              F0D17240
       ARS     18                                                       F0D17250
       ADD     Q3                                                       F0D17260
       PAX     ,4                                                       F0D17270
       ADM     ESYM3          COMPUTE ORIGIN AT END OF SYMBOL TABLE     F0D17280
       STA     SRCH1          FOR SYMBOL NAMES                          F0D17290
       ADD     Q1                                                       F0D17300
       STA     SRCH2          FOR LOCATIONS                             F0D17310
       CAL     SYMBL          LOAD SYMBOL NAME                          F0D17320
 SRCH1 LAS     **,4           IS IT IN SYMBOL TABLE                     F0D17330
       TIX     SRCH1,4,2      NOT YET                                   F0D17340
       TXH     SRCH2,4,2      YES                                       F0D17350
       TIX     SRCH1,4,2      NOT YET, IS SYMBOL TABLE EXHAUSTED        F0D17360
       SLN     EXPRR          YES, PHASE ERROR                          F0D17370
       PXD     ,0                                                       F0D17380
       TRA     SRCHX                                                    F0D17390
 SRCH2 CLA     **,4           LOAD LOCATION OF SYMBOL                   F0D17400
       PAI                    LOAD FLAGS                                F0D17410
       LFT     4              IS THIS NAME IN TRANSFER VECTOR           F0D17420
       SLN     EXPRR          YES, PHASE ERROR (CANNOT DEFINE PSEUDOOP) F0D17430
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0D17440
       ANA     ADTMK          YES, DELETE EXTRANEOUS FLAGS              F0D17450
       SXA     SET01,4        SAVE LOCATION OF SYMBOL                   F0D17460
 SRCHX AXT     **,4           RELOAD CALLING LINKAGE                    F0D17470
       TRA     1,4                                                      F0D17480
       REM                                                              F0D17490
       REM     ENTER NAME IN AC, DEFINITION IN SI, IN COMBINED OP TABLE F0D17500
       REM     SEE REQUIRED FLAGS UNDER COMBINED OP TABLE               F0D17510
 EOPTB CAL     BCDBF          LOAD LOCATION FIELD                       F0D17520
 EOPTT SXA     EOPTX,4        SAVE CALLING LINKAGE                      F0D17530
       STI     BERAS          SAVE OP DEFINITION                        F0D17540
       TSX     LOCFL,4       *ASSEMBLE OP NAME                          F0D17550
       TZE     FIELD        **DOES OP NAME EXIST                        F0D17560
       LGR     6              YES, LEFT ADJUST NAME                     F0D17570
       TNZ     *-1                                                      F0D17580
       XCL                                                              F0D17590
       SLW     SYMBL          SAVE LEFT ADJUSTED OP NAME                F0D17600
       TSX     SOPTB,4       *FIND LOCATION IN OP TABLE                 F0D17610
       TRA     *+2            NOT IN                                    F0D17620
       TRA     EOPT1+3        IN TABLE, REDEFINE                        F0D17630
       LAS     OPTTBL-2,1     PINPOINT LOCATION OF ENTRY                F0D17640
       TXI     *+2,1,-2                                                 F0D17650
       TSX     MACERR,4     **IMPOSSIBLE PATH OF FLOW                   F0D17660
       SXD     EOPT1,1        MARK LOWEST NAME TO BE MOVED UP           F0D17670
       LXD     OPTSIZ,6       LOAD CURRENT TABLE LENGTH                 F0D17680
       TXI     *+1,4,-2       BUMP                                      F0D17690
       TXH     *+3,4,-LOPTBM  DID OP TABLE OVERFLOW                     F0D17700
       LDI     OPTNM          YES, SET OP TABLE OVERFLOW                F0D17710
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D17720
       SXD     OPTSIZ,4       NO, SET NEW TABLE LENGTH                  F0D17730
       TXI     *+1,4,-1                                                 F0D17740
       SXD     SOPT1,4        SET UPPER LIMIT FOR TABLE SEARCH          F0D17750
       CAL     OPTTBL-2,2     MOVE TABLE UP OFF THE TOP                 F0D17760
       LDQ     OPTTBL-1,2     TO MAKE ROOM FOR NEW ENTRY                F0D17770
       SLW     OPTTBL,2                                                 F0D17780
       STQ     OPTTBL+1,2                                               F0D17790
       TXI     *+1,2,2        BUMP TO NEXT PAIR                         F0D17800
       TXL     *+2,2,0        IS ENTRY AT BOTTOM OF TABLE               F0D17810
 EOPT1 TXL     *-6,2,**       NO, IS TABLE MOVED                        F0D17820
       CAL     SYMBL          YES, INSERT OP NAME                       F0D17830
       SLW     OPTTBL-2,1     INTO TABLE                                F0D17840
       LDI     BERAS          INSERT OP DEFINITION                      F0D17850
       STI     OPTTBL-1,1     INTO TABLE                                F0D17860
 EOPT2 TXH     EOPTX,4,-2048  IS TABLE NOW LONGER THAN 1024 OPCODES     F0D17870
       LXD     EOPT2,4        YES, LOAD CURRENT TABLE LENGTH            F0D17880
       TXI     *+1,4,-2048    DOUBLE                                    F0D17890
       SXD     *-1,4          RESET BUMP                                F0D17900
       SXD     EOPT2,4        RESET TEST                                F0D17910
       CAL     OPTSIZ         BUMP LOGARITHM                            F0D17920
       ADD     Q2             FOR TABLE OF DOUBLE SIZE                  F0D17930
       STA     OPTSIZ                                                   F0D17940
 EOPTX AXT     **,4           RELOAD CALLING LINKAGE                    F0D17950
       TRA     1,4                                                      F0D17960
       REM                                                              F0D17970
       REM     ASSEMBLE SUBPROGRAM NAME AND ENTER INTO TRANSFER VECTOR  F0D17980
 CALNM SXA     CALNX,4        SAVE CALLING LINKAGE                      F0D17990
       STZ     SYMBL          CLEAR SUBPROGRAM NAME                     F0D18000
       TRA     CALN1          TEST FOR ABSOLUTE ASSEMBLY               $F0D18010
       TSX     SCANF,4       *ASSEMBLE SUBPROGRAM NAME                  F0D18020
       TXI     AFLAG,,0       NULL SUBPROGRAM NAME                      F0D18030
       SLT     EXPRR          TURN OFF ERROR FLAG                       F0D18040
       NOP                    PERMIT MULTIPLE DEFINITION                F0D18050
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0D18060
       TRA     CALNX          YES                                       F0D18070
       TSX     LADJS,4       *LEFT ADJUST SUBPROGRAM NAME               F0D18080
       TZE     *+3            DOES SUBPROGRAM NAME EXIST                F0D18090
       SLT     EXPRR          YES, IS SUBPROGRAM NAME FLAGGED AS ERROR  F0D18100
       TSX     TRVCR,4       *NO, ENTER NAME IN TRANSFER VECTOR TABLE   F0D18110
       STZ     TVFLG          RESET TRANSFER VECTOR NAME FLAG           F0D18120
 CALNX AXT     **,4           RELOAD CALLING LINKAGE                    F0D18130
       TRA     1,4                                                      F0D18140
       REM                                                              F0D18150
       REM     ENTER NAMES IN TRANSFER VECTOR TABLE                     F0D18160
 TRVCR SXA     TRVCX,4        SAVE CALLING LINKAGE                      F0D18170
       AXT     LTVTBL,4       LOAD TRANSFER VECTOR TABLE LENGTH         F0D18180
       TXL     TRVC1,4,LTVTBL IS VECTOR EXHAUSTED                       F0D18190
       LAS     VECTOR+LTVTBL,4 NO, IS IT THIS WORD IN VECTOR            F0D18200
       TXI     *-2,4,-1       NO                                        F0D18210
       TRA     TRVCX          YES                                       F0D18220
       TXI     *-4,4,-1       NO                                        F0D18230
 TRVC1 TXH     *+3,4,0        DID TRANSFER VECTOR TABLE OVERFLOW        F0D18240
       LDI     VECNM          YES, SET TRANSFER VECTOR OVERFLOW         F0D18250
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D18260
       SLW     VECTOR+LTVTBL,4 ADD NAME TO END OF TABLE                 F0D18270
       PAI                    HOLD SYMBOL NAME                          F0D18280
       TXI     *+1,4,-1       BUMP VECTOR COUNT                         F0D18290
       SXD     TRVCR+2,4      RESET END OF TRANSFER VECTOR TABLE TEST   F0D18300
       LDC     TRVCR+2,4      COMPUTE CURRENT LENGTH OF TRANSFER VECTOR F0D18310
       TXI     *+1,4,LTVTBL                                             F0D18320
       SXD     PBUFF1+2,4     INSERT IN PROGRAM CARD 8L DECREMENT       F0D18330
       SXA     PBUFF1+5,4     INSERT ENTRY POINT IN PC 7R ADDRESS       F0D18340
       TXI     *+1,4,-1       COMPUTE RELATIVE LOCATION OF VECTOR NAME  F0D18350
       PXA     ,4                                                       F0D18360
       ORA     D5             AND VECTOR RELOCATION BITS                F0D18370
       STO     ADDRS                                                    F0D18380
       PIA                    RECALL SYMBOL NAME                        F0D18390
       TSX     ESYMT,4       *DEFINE SYMBOL                             F0D18400
 TRVCX AXT     **,4           RELOAD CALLING LINKAGE                    F0D18410
       TRA     1,4                                                      F0D18420
       REM                                                              F0D18430
       REM     ENTER NAME, DEFINITION IN ADDRS, INTO SYMBOL TABLE       F0D18440
       REM     ENTRY WORD 1 CONTAINS SYMBOL NAME RIGHT ADJUSTED         F0D18450
       REM                           HEADING CHARACTER LEFT ADJUSTED    F0D18460
       REM                           FILLED WITH ZEROES                 F0D18470
       REM     ENTRY WORD 2 CONTAINS ASSIGNED LOCATION BITS 18-35       F0D18480
       REM                           FLAGS BITS 3 - 17                  F0D18490
       REM                                 BIT  13 SET SYMBOL           F0D18500
       REM                                      14 MULTIPLY DEFINED     F0D18510
       REM                                      15 TRANSFER VECTOR NAME F0D18520
       REM                                      16 COMMON VARIABLE      F0D18530
       REM                                      17 RELOCATABLE SYMBOL   F0D18540
 ESYML CAL     BCDBF          ENTRY POINT TO DEFINE LOCATION FIELD      F0D18550
 ESYMT SXA     ESYMX,4        SAVE CALLING LINKAGE                      F0D18560
       SXA     ESYMX+1,2      SAVE WORD COUNT                           F0D18570
       TXH     ESYM0,4,-1     IS SYSTEM SYMBOL TABLE PRESERVED          F0D18580
       SXD     *-1,0          NO, RESET SWITCH                          F0D18590
       LDC     SYMSIZ,6       LOAD LENGTH OF SYMBOL TABLE               F0D18600
       TXI     *+1,2,SYMTBL   COMPUTE ORIGIN AT END OF SYMBOL TABLE     F0D18610
       SXA     *+1,2          INITIALIZE CLEAR LOOP                     F0D18620
       STZ     **,4           CLEAR SYMBOL TABLE                        F0D18630
       TIX     *-1,4,1                                                  F0D18640
       STZ     SYMSIZ         RESET SYMBOL TABLE COUNT                  F0D18650
 ESYM0 STL     FCFLG          SET FLAG TO PREVENT ABS OR ENTRY CARDS    F0D18660
       REM                    FROM SETTING MODE OF ASSEMBLY             F0D18670
       TSX     LOCFL,4       *ASSEMBLE UNIFORM SYMBOL                   F0D18680
       TZE     ESYMX          IS THERE A SYMBOL                         F0D18690
       LXD     SYMSIZ,4       YES, LOAD CURRENT SYMBOL TABLE SIZE       F0D18700
       AXT     0,2            LOAD SINGLE HEAD COUNT                    F0D18710
       XCL                                                              F0D18720
       LGL     6              SHIFT IN FIRST CHARACTER                  F0D18730
       ZET     TVFLG          IS THIS NAME IN TRANSFER VECTOR           F0D18740
       TRA     *+4            YES, FORCE UNHEADING                      F0D18750
       TNZ     *+3            NO, IS SYMBOL SHORTER THAN SIX CHARACTERS F0D18760
 HEDCT AXT     **,2           NO, LOAD MULTIPLE HEADING COUNT           F0D18770
 ESYM2 CAL     BHEAD,2        APPEND HEADING CHARACTER                  F0D18780
       LGL     30             SHIFT IN HEADED SYMBOL                    F0D18790
 ESYM3 SLW     SYMTBL,4       ADD SYMBOL TO END OF TABLE                F0D18800
       LGR     30             HOLD UNHEADED SYMBOL                      F0D18810
       CLA     ADDRS          DEFINE SYMBOL AS CURRENT CONTENTS OF      F0D18820
       STO     SYMTBL+1,4     PROGRAM COUNTER                           F0D18830
       TXI     *+1,4,-2       BUMP SYMBOL TABLE COUNTER                 F0D18840
       TXH     *+3,4,-LSMTBM  DID SYMBOL TABLE OVERFLOW                 F0D18850
       LDI     SYMNM          YES, SET SYMBOL TABLE OVERFLOW            F0D18860
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D18870
       TXL     *+2,2,0        IS MULTIPLE HEADING LIST EXHAUSTED        F0D18880
       TXI     ESYM2,2,-1     NO, BUMP LIST COUNT TO NEXT HEAD CHARACTERF0D18890
       SXD     SYMSIZ,4       SAVE SYMBOL TABLE LENGTH                  F0D18900
 ESYMS TXI     ESYMZ,4,-SYMTBL TO TEST FOR OVERLAP OF MACRO TABLE      $F0D18910
       SXD     STPTR,4        SAVE CURRENT SYMBOL TABLE END            $F0D18920
 ESYMX AXT     **,4           RELOAD CALLING LINKAGE                    F0D18930
       AXT     **,2           RELOAD WORD COUNT                         F0D18940
       TRA     1,4                                                      F0D18950
       REM                                                              F0D18960
       REM     SCAN PSEUDOOP VARIABLE FIELD                             F0D18970
 SCANP SXA     SCNPX,4        SAVE CALLING LINKAGE                      F0D18980
       TSX     SCANF,4       *EVALUATE VARIABLE FIELD                   F0D18990
       TXI     SCNPX+2,,0     NULL VARIABLE FIELD                       F0D19000
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D19010
       TRA     *+2            NO                                        F0D19020
       TRA     FIELX        **YES                                       F0D19030
       LDI     Q0             PRESET ABSOLUTE SYMBOL                    F0D19040
       ZET     VARUR          IS VARIABLE FIELD RELOCATABLE             F0D19050
       SIL     1              YES, SET RELOCATION BIT                   F0D19060
       ZET     VARUC          IS VARIABLE FIELD COMMON                  F0D19070
       SIL     2              YES, SET COMMON BIT (CANNOT BE BOTH)      F0D19080
 SCNPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D19090
       TRA     2,4                                                      F0D19100
       LXA     SCNPX,4        RELOAD CALLING LINKAGE                    F0D19110
       LDI     Q0             SET NULL FIELD ABSOLUTE ZERO              F0D19120
       TRA     1,4                                                      F0D19130
       REM                                                              F0D19140
       REM     SET FLAG FOR MISSING PSEUDOOP VARIABLE FIELD             F0D19150
 AFLAG CAL     Q64            FLAG MISSING VARIABLE FIELD               F0D19160
       ORS     P1FLG                                                    F0D19170
       SLN     FLDND          DELETE F FLAG                             F0D19180
       PXD     ,0                                                       F0D19190
       TRA     2,4                                                      F0D19200
       REM                                                              F0D19210
       REM     LOOK AHEAD FOR ETC CARD                                  F0D19220
 PEEKS SXA     PEEKX,4        SAVE CALLING LINKAGE                      F0D19230
       SXA     PEEKX+1,2      SAVE WORD COUNT                           F0D19240
       SXA     PEEKX+2,1      SAVE CHARACTER COUNT                      F0D19250
 PKMSW TXH     *+3,4,**       IS NEXT CARD TO BE MACRO COMPILED         F0D19260
       TXH     PEEKX,4,**     YES, WILL NEXT CARD BE AN ETC             F0D19270
       TRA     PEEK1          YES                                       F0D19280
       LXA     DUPCD,4        LOAD COUNT OF REMAINING CARDS IN DUP      F0D19290
       ZET     DUPMD          IS THIS CARD WITHIN RANGE OF DUP          F0D19300
       TXL     PEEKX,4,0      YES, IS THIS LAST CARD IN DUP             F0D19310
       LXD     SRCSW,4        NO, LOAD SOURCE BUFFER SWITCH             F0D19320
       TXL     *+3,4,0        IS SOURCE BUFFER EMPTY                    F0D19330
       SXD     SRCSW,0        YES, RESET SWITCH                         F0D19340
       TSX     SRCIN,4       *READ NEXT SOURCE CARD                     F0D19350
       LXD     UPDSW,4        LOAD UPDATE BUFFER SWITCH                 F0D19360
       TXL     *+3,4,0        IS UPDATE BUFFER EMPTY                    F0D19370
       SXD     UPDSW,0        YES, RESET SWITCH                         F0D19380
       TSX     UPDIN,4       *READ NEXT UPDATE CARD                     F0D19390
       LDQ     INSBF+2        PRELOAD SOURCE WORD 2                     F0D19400
       REM                    THIS HAD BETTER NOT BE A 'DELETE'         F0D19410
       REM                    FOLLOWED BY AN 'ETC' CARD                 F0D19420
       CAL     SRCID+1        LOAD SOURCE ID LEADING CHARACTERS         F0D19430
       LAS     UPDID+1        IS IT SMALLER THAN UPDATE ID              F0D19440
       TRA     *+5            NO, USE UPDATE OPFIELD                    F0D19450
       TRA     *+2            EQUAL, CHECK FURTHER                      F0D19460
       TRA     *+5            YES, USE SOURCE OPFIELD                   F0D19470
       CAL     SRCID          LOAD SOURCE ID                            F0D19480
       LAS     UPDID          IS IT SMALLER THAN UPDATE ID              F0D19490
       LDQ     DELBF+2        NO, USE UPDATE WORD 2                     F0D19500
       NOP                    EQUAL, USE SOURCE OPFIELD                 F0D19510
       XCA                                                              F0D19520
       ANA     PKMSK          MASK IN CC 8 - 11                         F0D19530
       ERA     ETCMK          IS OPCODE ETC                             F0D19540
       TNZ     PEEKX          NO                                        F0D19550
 PEEK1 CAL     Q2             YES, SET ETC FLAG IN CARD WORD 14 (CC 84) F0D19560
       ORS     P1FLG                                                    F0D19570
       STL     ETCMD          SET ETC FLAG                              F0D19580
       LXA     PEEKX,4        RELOAD CALLING LINKAGE                    F0D19590
       LXA     PEEKX+1,2      RELOAD WORD COUNT                         F0D19600
       LXA     PEEKX+2,1      RELOAD CHARACTER COUNT                    F0D19610
       TRA     1,4            ETC RETURN                                F0D19620
 PEEKX AXT     **,4           RELOAD CALLING LINKAGE                    F0D19630
       AXT     **,2           RELOAD WORD COUNT                         F0D19640
       AXT     **,1           RELOAD CHARACTER COUNT                    F0D19650
       TRA     2,4            NO ETC RETURN                             F0D19660
 PKMSK OCT     007777777700   MASK FOR OP FIELD CC 8 - 11               F0D19670
 ETCMK BCI     1,0ETC 0       MASK FOR ETC PSEUDOOPERATION              F0D19680
       REM                                                              F0D19690
       REM                                                              F0D19700
       REM     INPUT/OUTPUT SUBROUTINES                                 F0D19710
       REM                                                              F0D19720
       REM     READ CARD FROM SOURCE/UPDATE TAPES                       F0D19730
 INPUT SXA     INPTX,4        SAVE CALLING LINKAGE                      F0D19740
 SRCSW TXH     *+3,4,-1       IS SOURCE BUFFER EMPTY                    F0D19750
       SXD     *-1,0          YES, RESET SWITCH                         F0D19760
       TSX     SRCIN,4       *READ NEXT SOURCE CARD                     F0D19770
       TRA     SRCS1                                                   $F0D19780
       ORA     SRCID+1        CC 73 - 80                                F0D19790
       TZE     INP03+1        IS SOURCE ID BLANK                        F0D19800
       NZT     IPTFLG         NO, IS UPDATE INPUT TAPE PROVIDED         F0D19810
       TRA     INP03+1        NO                                        F0D19820
 UPDSW TXH     *+3,4,0        YES, IS UPDATE BUFFER EMPTY               F0D19830
       SXD     *-1,0          YES, RESET SWITCH                         F0D19840
       TSX     UPDIN,4       *READ NEXT UPDATE CARD                     F0D19850
       TRA     INP02+7                                                  F0D19860
       REM     LAST CARD READ WAS SKIP TO                               F0D19870
 INP00 ZSD     SKPFG          SET SKIP-TO SWITCH                        F0D19880
       REM     LAST CARD READ WAS IGNORE                                F0D19890
       AXT     -1,4           SET IGNORE SWITCH                         F0D19900
       SXD     DELUP+2,4                                                F0D19910
       REM     LAST CARD READ WAS DELETE                                F0D19920
       CAL     BCDBF+2        LOAD CARD WORD 3                          F0D19930
       LAS     EBTHR          IS CARD DELETE/IGNORE  THRU               F0D19940
       TRA     *+2            NO                                        F0D19950
       TRA     *+6            YES                                      $F0D19960
       ERA     ETHRU          IS CARD DELETE/IGNORE THRU               $F0D19970
       TZE     *+4            YES                                       F0D19980
       CAL     BCDBF+1        IS CARD                                   F0D19990
       ERA     SKIPC          SKIPTO                                    F0D20000
       TNZ     INP02          NO                                        F0D20010
       STZ     SEQID          YES, AVOID ERRORS ON DELETE               F0D20020
       STZ     SEQID+1                                                  F0D20030
 INP01 CAL     UPDID+1        LOAD UPDATE ID LEADING CHARACTERS         F0D20040
       LAS     SRCID+1        IS IT SMALLER THAN SOURCE ID              F0D20050
       TRA     INP02          NO, ALL DONE                              F0D20060
       TRA     *+2            EQUAL, CHECK FURTHER                      F0D20070
       TRA     *+5            YES, DELETE ANOTHER UPDATE CARD           F0D20080
       CAL     UPDID          LOAD UPDATE ID                            F0D20090
       LAS     SRCID          IS IT SMALLER THAN SOURCE ID              F0D20100
       TRA     INP02          NO, ALL DONE                              F0D20110
       TRA     *+4            EQUAL, ONE MORE TO GO                     F0D20120
 SKP01 TSX     DELUP+2,4     *YES, LIST UPDATE CARD DELETED             F0D20130
       TSX     UPDIN,4       *GET NEXT UPDATE CARD                      F0D20140
       TRA     INP01                                                    F0D20150
 SKPFG TXH     *+2,4,-1       SKIP SWITCH, DECR IS ZERO IF SKIP-TO      F0D20160
       TSX     DELUP,4       *DELETE MATCHING UPDATE CARD               F0D20170
       AXT     -1,4           RESET SKIP SWITCH                         F0D20180
       SXD     *-3,4          FOR ANOTHER USE                           F0D20190
       REM     DELETE IS COMPLETE                                       F0D20200
 INP02 CAL     SKPFG          IS SKIP-TO IN EFFECT                      F0D20210
       ANA     D32767         IF YES, CONSINUE SEARCHING FOR            F0D20220
       TZE     SKP01          MATCHING SERIALIZATION                    F0D20230
       TSX     SRCIN,4       *NO, GET CARD FOLLOWING CONTROL CARD       F0D20240
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0D20250
       PZE                                                              F0D20260
       TRA     INPUT+1                                                  F0D20270
       REM     MOVE NEXT CARD                                           F0D20280
       TRA     INP2A                                                   $F0D20290
       CAL     INSBF+3        LOAD SOURCE WORD 3                        F0D20300
       LAS     EBTHR          IS CARD DELETE/IGNORE  THRU               F0D20310
       TRA     *+2            NO                                        F0D20320
       TRA     INP03+1        YES, USE IT                               F0D20330
       ERA     ETHRU          IS CARD DELETE/IGNORE THRU                F0D20340
       TZE     INP03+1        YES, USE IT                               F0D20350
       CAL     INSBF+2        IS CARD                                   F0D20360
       ERA     SKIPC          SKIPTO                                    F0D20370
       TZE     INP03+1        YES, FA LA LA LA                          F0D20380
       CAL     UPDID+1        NO, LOAD UPDATE ID LEADING CHARACTERS     F0D20390
       LAS     SRCID+1        IS IT SMALLER THAN SOURCE ID              F0D20400
       TRA     INP03+1        NO, USE SOURCE CARD                       F0D20410
       TRA     *+2            EQUAL, CHECK FURTHER                      F0D20420
       TRA     *+5            YES, USE UPDATE CARD                      F0D20430
       CAL     UPDID          LOAD UPDATE ID                            F0D20440
       LAS     SRCID          IS IT SMALLER THAN SOURCE ID              F0D20450
       TRA     INP03+1        NO, USE SOURCE CARD                       F0D20460
       TRA     INPCH         EQUAL ,DELETE UPDATE CARD                 $F0D20470
       AXT     14,4           YES, MOVE UPDATE CARD                     F0D20480
       CAL     DELBF+15,4     FROM UPDATE INPUT BUFFER                  F0D20490
       SLW     BCDBF+14,4     TO WORKING BUFFER                         F0D20500
       TIX     *-2,4,1                                                  F0D20510
       AXT     -1,4           SET SWITCH FOR EMPTY UPDATE BUFFER        F0D20520
       SXD     UPDSW,4                                                  F0D20530
       CAL     UPDID+1        LOAD ID FOR THIS CARD                     F0D20540
       LDQ     UPDID                                                    F0D20550
       TRA     INP04                                                    F0D20560
       REM     USE NEXT SOURCE CARD                                     F0D20570
 INP03 TSX     DELUP,4       *DELETE MATCHING UPDATE CARD               F0D20580
       AXT     14,4           MOVE SOURCE CARD                          F0D20590
       CAL     INSBF+15,4     FROM SOURCE INPUT BUFFER                  F0D20600
       SLW     BCDBF+14,4     TO WORKING BUFFER                         F0D20610
       TIX     *-2,4,1                                                  F0D20620
       TRA     INP3A                                                   $F0D20630
       LDQ     BCDBF+2        LOAD CARD WORD 3                          F0D20640
       LGL     6              ASSEMBLE OPCODE (CC 8 - 13)               F0D20650
       ZET     IPTFLG         IS AN UPDATE INPUT TAPE PROVIDED          F0D20660
       LAS     IGNOR          YES, IS CARD IGNORE                       F0D20670
       TRA     *+2            NO                                        F0D20680
       TRA     INP00+1        YES                                       F0D20690
       ERA     DELET          IS CARD DELETE                            F0D20700
       ZET     IPTFLG         AND IS AN UPDATE INPUT TAPE PROVIDED      F0D20710
       TZE     INP00+3        YES                                       F0D20720
       CAL     BCDBF+1        IS CARD                                   F0D20730
       ERA     SKIPC          SKIPTO                                    F0D20740
       ZET     IPTFLG         AND IS UPDATE INPUT TAPE PROVIDED         F0D20750
       TZE     INP00          YES                                       F0D20760
       AXT     -1,4           NO, SET SWITCH FOR EMPTY SOURCE BUFFER    F0D20770
       SXD     SRCSW,4                                                  F0D20780
       NZT     DELFLG         IS ASSEMBLY DELETED                       F0D20790
       ZET     IPTFLG         NO, IS AN UPDATE INPUT TAPE PROVIDED      F0D20800
       TSX     INSUP,4       *YES, LIST INSERTED CARD                   F0D20810
       CAL     SRCID+1        LOAD ID FOR THIS CARD                     F0D20820
       LDQ     SRCID                                                    F0D20830
       REM     PROPER CARD IS IN WORKING BUFFER                         F0D20840
 INP04 SLW     SEQID+1        SAVE ID FOR SEQUENCE CHECKING             F0D20850
       STQ     SEQID                                                    F0D20860
       TXL     INP05,4,-1     IS RESERIALIZATION REQUESTED              F0D20870
       CLA     INP06          YES. BUMP SERIALIZATION               (25)F0D20880
       ADD     INP07                                                (25)F0D20890
       STO     INP06                                                (25)F0D20900
       ANA     NUM03          TRUNCATE TO 19 BITS                   (25)F0D20910
       TSX     BCDCV,4       *CONVERT TO DECIMAL                    (25)F0D20920
       LGR     12             RIGHT ADJUST TO COLUMN 80             (25)F0D20930
       ACL     PROID          APPEND LEADING CHARACTERS             (25)F0D20940
       AXT     0,0            PATCH SPACE                           (25)F0D20950
       SLW     BCDBF+12       INSERT NEW ID                             F0D20960
       STQ     BCDBF+13                                                 F0D20970
 INP05 CAL     BCDBF+13       BLANK CC 81 - 84                          F0D20980
       ANA     P1MSK                                                    F0D20990
       ORA     P2MSK                                                    F0D21000
       SLW     BCDBF+13                                                 F0D21010
 INPTX AXT     **,4           RELOAD CALLING LINKAGE                    F0D21020
       TRA     1,4                                                      F0D21030
 DELET BCI     1,DELETE                                                 F0D21040
 IGNOR BCI     1,IGNORE                                                 F0D21050
 EBTHR BCI     1,E  THR                                                 F0D21060
 ETHRU BCI     1,E THRU                                                 F0D21070
 SKIPC BCI     1, SKIPT       MASK FOR SKIPTO                           F0D21080
 PROID PZE                    LEADING CHARACTERS FOR RESERIALIZATION    F0D21090
       REM                                                              F0D21100
       REM     DELETE CARD FROM UPDATE TAPE                             F0D21110
 DELUP AXT     -1,1           SET SWITCH FOR EMPTY UPDATE BUFFER        F0D21120
       SXD     UPDSW,1                                                  F0D21130
       TXL     DELPX+1,4,**   IS CARD IGNORE OR SKIP                    F0D21140
       SXA     DELPX,4        NO, SAVE CALLING LINKAGE                  F0D21150
       TSX     FPRINT,4      *LIST DELETED CARD                     (24)F0D21160
               DELBF,,17                                            (24)F0D21170
 DELPX AXT     **,4           RELOAD CALLING LINKAGE                (24)F0D21180
       TRA     1,4                                                  (24)F0D21190
       REM                                                          (24)F0D21200
       REM     CHECK OPCODE FOR UPDATE PSEUDOOPERATION              (24)F0D21205
 CKUPD SXA     CKPDX,4        SAVE LINKAGE                          (24)F0D21210
       CAL     OPCOD          OBTAIN OP CODE                        (24)F0D21215
       TSX     SOPTB,4       *DEFINE IT                             (24)F0D21220
       TRA     CKPDX          OPCODE IS UNDEFINED                   (24)F0D21225
       RNT     100000         IS IT A MACHINE OPERATION             (24)F0D21230
       LNT     100000         NO, IS IT A NON-UPDATE OPERATION      (24)F0D21235
       TRA     CKPDX          YES                                   (24)F0D21240
       LXA     CKPDX,4        RETURN FOR OPCODE                     (24)F0D21245
       TRA     2,4            IS AN UPDATE PSEUDOOPERATION          (24)F0D21250
 CKPDX AXT     **,4           RETURN FOR OPCODE                     (24)F0D21255
       TRA     1,4            IS NOT AN UPDATE PSEUDOOPERATION      (24)F0D21260
 NUM02 STO     INP06          RESET SERIALIZATION                   (25)F0D21261
       TSX     SCANP,4       *IS THERE A 2ND SUBFIELD               (25)F0D21262
       CLA     Q10            NO. ADDEND = 10.                      (25)F0D21263
       RFT     3              YES. IS IT ABSOLUTE                   (25)F0D21264
       TRA     FIELD        **NO.                                   (25)F0D21265
       STO     INP07          YES. INP07 = ADDEND                   (25)F0D21266
       XCA                    INP06 = ADDEND * 1ST FIELD            (25)F0D21267
       TRA     NUM04                                                (25)F0D21270
       REM                                                              F0D21280
       REM     LIST CARD INSERTED INTO UPDATE TAPE                      F0D21290
 INSUP SXA     INSPX,4        SAVE CALLING LINKAGE                      F0D21300
       TSX     SETUP,4       *FIND OPCODE                               F0D21310
       TRA     INS01          CARD IS COMMENTS CARD                     F0D21320
       TRA     INS01          OPFIELD IS IN ERROR                       F0D21330
       TSX     CKUPD,4        SHOULD CARD BE LISTED AS INSERTED     (24)F0D21340
       TRA     INS01          YES                                       F0D21380
       CAL     INSBF+2        NO, LOAD SOURCE CARD WORD 2               F0D21390
       ANA     PKMSK          MASK IN CC 8 - 10                         F0D21400
       ERA     ENDMK          IS IT END                                 F0D21410
       TNZ     INSPX          NO, OMIT LISTING UPDATE CARD              F0D21420
 INS01 TSX     FPRINT,4      *LIST INSERTED CARD                    (24)F0D21430
               INSBF,,17                                            (24)F0D21440
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0D21530
       PZE                                                              F0D21540
 INSPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D21550
       TRA     1,4                                                      F0D21560
       REM                                                              F0D21570
       REM     READ NEXT CARD ON UPDATE TAPE                            F0D21580
 UPDIN SXA     UPDNX,4        SAVE CALLING LINKAGE                      F0D21590
       AXT     **,1           LOAD BLOCK WORD COUNT                     F0D21600
       TXH     *+2,1,**       IS BLOCK EXHAUSTED                        F0D21610
       TSX     RDUPD,4       *YES, READ NEXT BLOCK                      F0D21620
       LXA     RDUPD+1,2      LOAD BUFFER INDEX                         F0D21630
       AXT     14,4           LOAD CARD LENGTH                          F0D21640
       LDQ*    BCD24+1,2      MOVE NEXT WORD                            F0D21650
       STQ     DELBF+15,4     INTO UPDATE INPUT BUFFER                  F0D21660
       TXI     *+1,1,-1       BUMP BLOCK COUNT TO NEXT WORD             F0D21670
       TIX     *-3,4,1        IS RECORD COMPLETE                        F0D21680
       TXI     *+1,1,14-UPDRCL YES, BUMP COUNT PAST EXTRANEOUS WORDS    F0D21690
       SXA     UPDIN+1,1      SAVE NEW BLOCK COUNT                      F0D21700
       CAL     DELBF+13       LOAD WORD 13 (CC 73 - 78)                 F0D21710
       SLW     UPDID+1        SAVE LEADING CHARACTERS                   F0D21720
       STZ     ORDRF          RESET SOURCE CARD FLAG                    F0D21730
       TSX     ORDER,4       *ASSEMBLE SERIALIZATION (CC 73 -80)        F0D21740
       SLW     UPDID                                                    F0D21750
       ERA     BLANKS         IS SERIALIZATION BLANK                    F0D21760
       TNZ     UPDNX          NO                                        F0D21770
       STZ     UPDID          YES, SET ID TO ZERO                       F0D21780
       STZ     UPDID+1                                                  F0D21790
 UPDNX AXT     **,4           RELOAD CALLING LINKAGE                    F0D21800
       TRA     1,4                                                      F0D21810
 UPDID SVN     -1,-1,-1       ID (CC 75 - 80) FOR UPDATE CARD           F0D21820
       SVN     -1,-1,-1       ID (CC 73 - 78) FOR UPDATE CARD           F0D21830
       REM                                                              F0D21840
       REM     READ UPDATE INPUT TAPE                                   F0D21850
 RDUPD SXA     RDUPX,4        SAVE CALLING LINKAGE                      F0D21860
       AXC     1,1            LOAD BUFFER INDEX                         F0D21870
       SXA     *-1,1          FLIP BUFFER INDEX                         F0D21880
       TSX    (TAPE),4       *LOAD NEXT BUFFER                          F0D21890
       PZE     BCD24,1,(RDEP)                                           F0D21900
UPDTAP PZE     ,,**                                                     F0D21910
       MZE     UPDRR                                                    F0D21920
       CLA     BCD24+1,1      LOAD BUFFER ORIGIN                        F0D21930
       PAX     ,4                                                       F0D21940
       SXD     *+3,4                                                    F0D21950
 RDUP0 LAC     **,4           LOAD LAST+1 WORD READ                     F0D21960
       TXL     RDUPD+1,4,0    WAS END FILE ON UPDATE INPUT TAPE SENSED  F0D21970
       TXI     *+1,4,**       NO, COMPUTE LENGTH OF RECORD              F0D21980
       SXD     UPDIN+2,4      RESET TEST FOR END OF BUFFER              F0D21990
       CAL     IPRECT         BUMP UPDATE INPUT RECORD COUNT            F0D22000
       ADD     Q1                                                       F0D22010
       STA     IPRECT                                                   F0D22020
       AXT     0,1            RESET BLOCK LENGTH                        F0D22030
       SXA     UPDIN+1,0                                                F0D22040
 RDUPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D22050
       TRA     1,4                                                      F0D22060
       REM                                                              F0D22070
       REM     ERROR ON UPDATE INPUT TAPE                               F0D22080
 UPDRR TSX    (TAPE),4       *SKIP OVER ERROR RECORD                    F0D22090
       PZE     Q1,,(SKDP)                                               F0D22100
       PZE     UPDTAP,,-1                                               F0D22110
       MZE     *+1                                                     $F0D22120
       CAL     IPRECT         BUMP UPDATE INPUT TAPE RECORD COUNT      $F0D22130
       ADD     Q1                                                      $F0D22140
       STA     IPRECT                                                  $F0D22150
       TRA     *+2                                                     $F0D22160
       PZE     UPDTAP,,-1                                               F0D22170
       TSX     FPRINT,4      *PRINT ERROR MESSAGE                       F0D22180
       MZE     UPDRM,,8                                                 F0D22190
       TSX     FPRINT,4      *PRINT CARD PRECEDING CARD DELETED         F0D22200
       MZE     DELBF,,17                                                F0D22210
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0D22220
       PZE                                                              F0D22230
 UPDR1 AXT     5,4            LOAD ERROR COUNT                          F0D22240
       TIX     UPDR2,4,1      IS COUNT EXCESSIVE                        F0D22250
       TSX    (PRNT),4       *YES, TELL OPERATOR                        F0D22260
       PZE     XREDN,,11                                                F0D22270
       TSX     SPACP,2       *LET OPERATOR CHECK                        F0D22280
       AXT     5,4            RESET ERROR COUNT                         F0D22290
 UPDR2 SXA     UPDR1,4        SAVE ERROR COUNT                          F0D22300
       STZ*    UPD00          FORCE FILL OF UPDATE INPUT BUFFERS        F0D22310
       TRA     RDUPD+1                                                  F0D22320
       REM                                                              F0D22330
 UPDCL SXA     UPDCX,4        SAVE CALLING LINKAGE                      F0D22340
       AXT     UPDC1,4        RESET ERROR RETURN                        F0D22350
       SXA     UPDRR,4        TO AVOID HANGING ERROR MESSAGE            F0D22360
       TSX    (TAPE),4       *BACKSPACE OVER FIRST LOOKAHEAD RECORD     F0D22370
       PZE     BSREC,,(SKDP)                                            F0D22380
       PZE     UPDTAP,,-1                                               F0D22390
       CAL     IPRECT         UNBUMP UPDATE INPUT RECORD COUNT          F0D22400
       SUB     Q1                                                       F0D22410
       STA     IPRECT                                                   F0D22420
 UPDC1 AXT    (TAPE),4        RESET ERROR RETURN                        F0D22430
       SXA     UPDRR,4        TO CATCH FUTURE ERRORS                    F0D22440
       LXD     UPDSW,4        LOAD UPDATE INPUT TAPE SWITCH             F0D22450
       SXD     UPDSW,0        RESET UPDATE INPUT TAPE SWITCH            F0D22460
       TXH     UPDCX,4,0      WAS SECOND RECORD LOOKED AHEAD            F0D22470
       TSX    (TAPE),4       *YES, BACKSPACE OVER SECOND LOOKAHEAD      F0D22480
       PZE     BSREC,,(SKDP)                                            F0D22490
       PZE     UPDTAP,,-1                                               F0D22500
       CAL     IPRECT         UNBUMP UPDATE INPUT RECORD COUNT          F0D22510
       SUB     Q1                                                       F0D22520
       STA     IPRECT                                                   F0D22530
 UPDCX AXT     **,4           RELOAD CALLING LINKAGE                    F0D22540
       TRA     1,4                                                      F0D22550
       REM                                                              F0D22560
       REM     READ NEXT CARD ON SOURCE TAPE                            F0D22570
 SRCIN SXA     SRCNX,4        SAVE CALLING LINKAGE                      F0D22580
       AXT     **,1           LOAD BLOCK WORD COUNT                     F0D22590
       TXH     *+2,1,**       IS BLOCK EXHAUSTED                        F0D22600
       TSX     RDSRC,4       *YES, READ NEXT BLOCK                      F0D22610
       LXA     RDSRC+1,2      LOAD BUFFER INDEX                         F0D22620
       AXT     14,4           LOAD CARD LENGTH                          F0D22630
       LDQ*    BCD34+1,2      MOVE NEXT WORD                            F0D22640
       STQ     INSBF+15,4     INTO SOURCE INPUT BUFFER                  F0D22650
       TXI     *+1,1,-1       BUMP BLOCK COUNT TO NEXT WORD             F0D22660
       TIX     *-3,4,1        IS RECORD COMPLETE                        F0D22670
       TXI     *+1,1,14-UPDRCL YES, BUMP COUNT PAST EXTRANEOUS WORDS    F0D22680
       SXA     SRCIN+1,1      SAVE NEW BLOCK COUNT                      F0D22690
       CAL     INSBF+13       LOAD WORD 13 (CC 73 - 78)                 F0D22700
       SLW     SRCID+1        SAVE LEADING CHARACTERS                   F0D22710
       STL     ORDRF          SET SOURCE CARD FLAG                      F0D22720
       TSX     ORDER,4       *ASSEMBLE SERIALIZATION (CC 73 -80)        F0D22730
       SLW     SRCID                                                    F0D22740
       ERA     BLANKS         IS SERIALIZATION BLANK                    F0D22750
       TNZ     SRCNX          NO                                        F0D22760
       STZ     SRCID          YES, SET ID TO ZERO                       F0D22770
       STZ     SRCID+1                                                  F0D22780
 SRCNX AXT     **,4           RELOAD CALLING LINKAGE                    F0D22790
       TRA     1,4                                                      F0D22800
 SRCID PZE                    ID (CC 75 - 80) FOR SOURCE CARD           F0D22810
       PZE                    ID (CC 73 - 78) FOR SOURCE CARD           F0D22820
       REM                                                              F0D22830
       REM     READ SOURCE INPUT TAPE                                   F0D22840
 RDSRC SXA     RDSRX,4        SAVE CALLING LINKAGE                      F0D22850
       AXC     1,1            LOAD BUFFER INDEX                         F0D22860
       SXA     *-1,1          FLIP BUFFER INDEX                         F0D22870
       TSX    (TAPE),4       *LOAD NEXT BUFFER                          F0D22880
       PZE     BCD34,1,(RDEP)                                           F0D22890
       PZE     ,,MINTAP                                                 F0D22900
       MZE     SRCRR         IS IT REDUNDANCY OR BINARY MODE           $F0D22910
       CLA     BCD34+1,1      LOAD BUFFER ORIGIN                        F0D22920
       PAX     ,4                                                       F0D22930
       SXD     *+3,4                                                    F0D22940
       LAC    (SCHU)+MINTAP,4 LOAD LAST+1 WORD READ                     F0D22950
       TXL     EOFIN,4,0      ENDFIL DETECTED                       (26)F0D22960
       TXI     *+1,4,**       NO, COMPUTE LENGTH OF RECORD              F0D22970
       SXD     SRCIN+2,4      RESET TEST FOR END OF BUFFER              F0D22980
       CAL     INRECT         BUMP SOURCE INPUT RECORD COUNT            F0D22990
       ADD     Q1                                                       F0D23000
       STA     INRECT                                                   F0D23010
       AXT     0,1            RESET BLOCK LENGTH                        F0D23020
       SXA     SRCIN+1,0                                                F0D23030
 RDSRX AXT     **,4           RELOAD CALLING LINKAGE                    F0D23040
       TRA     1,4                                                      F0D23050
       REM                                                              F0D23060
       REM     ERROR ON SOURCE INPUT TAPE                               F0D23070
 SRCRR STZ     TTLFG         KILL SUBTITLE                          (26)F0D23080
       TRA     ETEST                                                   $F0D23090
       TSX     (TAPE),4      PRINT ERROR MESSAGE                       $F0D23100
       PZE     *+4,,(TPER)   FOR REDUNDANCY                            $F0D23110
       MZE     *+2,,MINTAP                                             $F0D23120
       TRA     TAPERR                                                  $F0D23130
       BCI     2,SOURCEREDUN                                           $F0D23140
SRCRM  BCI     4, INCOMPLETE MACRO DEF.,                            (26)F0D23150
       BCI     6,UNMATCHED RMT, OR MISSING END CARD                 (26)F0D23160
ECARD  BCI     2,BINARY EOF                                         (26)F0D23170
       PZE                    (NOT USED)                            (26)F0D23180
       REM                                                              F0D23190
       REM     LIST ORDER ERROR                                         F0D23200
 ORDER SXA     ORDRX,4        SAVE CALLING LINKAGE                      F0D23210
       SLW     XERAS          SAVE LEADING CHARACTERS (CC 73 - 78)      F0D23220
       LGL     12             ASSEMBLE ID                               F0D23230
       SLW     BERAS          SAVE FOLLOWING CHARACTERS (CC 75 - 80)    F0D23240
       ERA     BLANKS         IS NEW ID BLANK                           F0D23250
       TZE     ORDR3+1        YES, OMIT ORDER CHECK                     F0D23260
       CAL     XERAS          NO, LOAD NEW LEADING CHARACTERS           F0D23270
       LAS     SEQID+1        IS CARD OUT OF ORDER                      F0D23280
       TRA     ORDR3+1        NO                                        F0D23290
       TRA     *+2            MAYBE                                     F0D23300
       TRA     ORDR1          YES                                       F0D23310
       CAL     BERAS          LOAD NEW FOLLOWING CHARACTERS             F0D23320
       LAS     SEQID          IS CARD OUT OF ORDER                      F0D23330
       TRA     ORDR3+1        NO                                        F0D23340
       TRA     ORDR3+1        NO                                        F0D23350
       REM     CARD IS OUT OF ORDER                                     F0D23360
 ORDR1 CAL     INSBF+2        LOAD SOURCE WORD 2                        F0D23370
       ANA     PKMSK          MASK IN CC 8 - 10                         F0D23380
       ERA     ENDMK          IS IT END                                 F0D23390
       NZT     ORDRF          YES, IS ORDER ERROR ON UPDATE INPUT TAPE  F0D23400
       TZE     ORDR3+1        YES, AVOID ORDER ERROR MESSAGE            F0D23410
       AXT     14,4           NO, PREPARE TO MOVE CARD OUT OF ORDER     F0D23420
       CAL     INSBF+15,4     FROM SOURCE INPUT BUFFER                  F0D23430
       NZT     ORDRF          IS SOURCE CARD IN ERROR                   F0D23440
       CAL     DELBF+15,4     NO, FROM UPDATE INPUT BUFFER              F0D23450
       SLW     ORDBF+15,4     TO ORDER BUFFER                           F0D23460
       TIX     *-4,4,1                                                  F0D23470
       CAL     SRCWD          LOAD SOURCE LABEL                         F0D23480
       NZT     ORDRF          IS SOURCE CARD IN ERROR                   F0D23490
       CAL     UPDWD          NO, LOAD UPDATE LABEL                     F0D23500
       SLW     ORDBF+15       INSERT IN MESSAGE                         F0D23510
       TSX     FPRINT,4      *LIST CARD OUT OF ORDER                    F0D23520
 ORDRS MZE     ORDBF,,18                                                F0D23530
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0D23540
       PZE                                                              F0D23550
 ORDR2 AXT     40,4           LOAD ORDER ERROR COUNT                    F0D23560
       TIX     ORDR3,4,1      IS COUNT EXCESSIVE                        F0D23570
       TSX    (PRNT),4       *YES, TELL OPERATOR                        F0D23580
       PZE     XORDR,,11                                                F0D23590
       TSX     SPACP,2       *LET OPERATOR CHECK                        F0D23600
       AXT     40,4           RESET ORDER ERROR COUNT                   F0D23610
 ORDR3 SXA     ORDR2,4        SAVE ORDER ERROR COUNT                    F0D23620
       REM     REENTRY FOR CARD NOT OUT OF ORDER                        F0D23630
       CAL     BERAS          RELOAD FOLLOWING CHARACTERS               F0D23640
 ORDRX AXT     **,4           RELOAD CALLING LINKAGE                    F0D23650
       TRA     1,4                                                      F0D23660
 SRCWD BCI     1,SOURCE                                                 F0D23670
 UPDWD BCI     1,UPDATE                                                 F0D23680
 ENDMK BCI     1,0END 0       MASK FOR END PSEUDOOPERATION              F0D23690
 SEQID PZE                    ID (CC 75 - 80) FOR LAST CARD USED        F0D23700
       PZE                    ID (CC 79 - 80) FOR LAST CARD USED        F0D23710
       REM                                                              F0D23720
       REM     PACK INTERMEDIATE, UPDATE BUFFERS                        F0D23730
 OTPUT SXA     OTPTX,4        SAVE CALLING LINKAGE                      F0D23740
       AXT     **,1           LOAD UPDATE OUTPUT TAPE BLOCK COUNT       F0D23750
       NZT     OPTFLG         IS UPDATE OUTPUT TAPE REQUESTED           F0D23760
       TRA     OTPT1          NO                                        F0D23770
 MCREF TXH     *+2,4,**       YES, IS THIS MACRO EXPANSION              F0D23780
       REM                    (DECREMENT IS -1 FOR MACRO GENERATED CARD)F0D23790
       TXL     OTPT1,4,-1     YES, IS MACRO EXPANSION TO BE OUTPUT      F0D23800
 MCRDF TXH     *+2,4,**       NO, IS THIS MACRO DEFINITION OR CALL      F0D23810
       REM                    (DECREMENT IS -1 FOR MACRO CALL OR DEF)   F0D23820
       TXL     OTPT1,4,**     YES, IS MACRO CALL OR DEF TO BE OUTPUT    F0D23830
       REM                    (UMC FLIPS DECREMENTS MCREF+1, MCRDF+1)   F0D23840
       TXL     *+4,1,0        YES, HAS THIS BLOCK BEEN STARTED          F0D23850
       NZT     PAKFLG         YES, IS UNBLOCKED OUTPUT TAPE REQUESTED   F0D23860
 UPBLK TXH     *+2,1,-UPDBKL+UPDRCL-1  NO. IS BLOCK FULL            (25)F0D23870
       TSX     WROPT,4       *YES, WRITE LAST BLOCK                     F0D23880
       LAC     WROP0,2        LOAD BUFFER INDEX                         F0D23890
       AXT     UPDRCL,4       LOAD RECORD LENGTH                        F0D23900
       CAL     BCDBF+UPDRCL,4 MOVE NEXT WORD                            F0D23910
       SLW*    BCD44+1,2      INTO UPDATE OUTPUT BUFFER                 F0D23920
       TXI     *+1,1,-1       BUMP BLOCK COUNT TO NEXT WORD             F0D23930
       TIX     *-3,4,1        IS CARD COMPLETE                          F0D23940
       SXA     OTPUT+1,1      YES, SAVE NEW BLOCK COUNT                 F0D23950
       ZET     PAKFLG         IS UNBLOCKED OUTPUT TAPE REQUESTED        F0D23960
       TSX     WROPT,4       *YES, WRITE THIS BLOCK                     F0D23970
       SXD     PAKFLG,0       RESET FLAG                                F0D23980
       TRA     OTPT1                                                    F0D23990
       REM     ENTRY TO WRITE INTERMEDIATE TAPE ONLY                    F0D24000
 OTPT0 SXA     OTPTX,4        SAVE CALLING LINKAGE                      F0D24010
 OTPT1 AXT     **,1           LOAD INTERMEDIATE TAPE BLOCK WORD COUNT   F0D24020
       ZET     DELFLG         HAS ASSEMBLY BEEN DELETED                 F0D24030
       TRA     OTPTX          YES                                       F0D24040
       CAL     P1FLG          NO, INSERT PASS 1 FLAGS                   F0D24050
 OTPT2 TRA     OTPT3          AS RIGHT HALF OF WORD 14                 $F0D24060
       TXL     *+4,1,0        HAS THIS BLOCK BEEN STARTED               F0D24070
       NZT     DUPFG          YES, IS UNBLOCKED INTERMED TAPE REQUESTED F0D24080
       TXH     *+2,1,-INPBKL+INPRCL+INPREM-1  NO, IS BLOCK FULL         F0D24090
       TSX     WRINT,4       *YES, WRITE LAST BLOCK                     F0D24100
       LAC     WRIN0,2        LOAD BUFFER LENGTH                        F0D24110
       AXT     INPRCL,4       LOAD RECORD LENGTH                        F0D24120
       CAL     BCDBF+INPRCL,4 MOVE NEXT WORD                            F0D24130
       SLW*    BCD54+1,2      INTO INTERMEDIATE OUTPUT BUFFER           F0D24140
       TXI     *+1,1,-1       BUMP BLOCK COUNT TO NEXT WORD             F0D24150
       TIX     *-3,4,1        IS RECORD COMPLETE                        F0D24160
       SXA     OTPT1,1        YES, SAVE NEW BLOCK COUNT                 F0D24170
       ZET     DUPFG          IS UNBLOCKED INTERMEDIATE TAPE REQUIRED   F0D24180
       TSX     WRINT,4       *YES, WRITE THIS BLOCK                     F0D24190
       STZ     DUPFG          RESET FLAG                                F0D24200
 OTPTX AXT     **,4           RELOAD CALLING LINKAGE                    F0D24210
       ZSD     MCREF          RESET MACRO GENERATED CARD SWITCH         F0D24220
       TRA     1,4                                                      F0D24230
       REM                                                              F0D24240
       REM     WRITE UPDATE OUTPUT TAPE                                 F0D24250
 WROPT SXA     WROPX,4        SAVE CALLING LINKAGE                      F0D24260
       LAC     OTPUT+1,1      LOAD UPDATE OUTPUT TAPE BLOCK WORD COUNT  F0D24270
       TXL     WROPX,1,0      IS BLOCK EMPTY                            F0D24280
       PXD     ,1             NO, SET BLOCK LENGTH                      F0D24290
 WROP0 AXC     1,1            LOAD BUFFER INDEX                         F0D24300
       SXA     *-1,1          FLIP BUFFER INDEX                         F0D24310
       STD     BCD44,1        INITIALIZE I/O COMMAND WORD COUNT         F0D24320
       TSX    (TAPE),4       *WRITE UPDATE OUTPUT TAPE                  F0D24330
       PZE     BCD44,1,(WDNP)                                           F0D24340
OPDTAP PZE     ,,**                                                     F0D24350
       PZE     TAPERR                                                   F0D24360
       CAL     OPRECT         BUMP UPDATE OUTPUT TAPE RECORD COUNT      F0D24370
       ADD     Q1                                                       F0D24380
       STA     OPRECT                                                   F0D24390
       AXT     0,1            RESET BLOCK LENGTH                        F0D24400
       SXA     OTPUT+1,0                                                F0D24410
 WROPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D24420
       TRA     1,4                                                      F0D24430
       REM                                                              F0D24440
       REM     WRITE INTERMEDIATE TAPES                                 F0D24450
 WRINT SXA     WRINX,4        SAVE CALLING LINKAGE                      F0D24460
       LXA     READ1,2        LOAD INTERMEDIATE TAPE INDEX              F0D24470
       LAC     OTPT1,1        LOAD INTERMEDIATE TAPE BLOCK WORD COUNT   F0D24480
       TXL     WRINX,1,0      IS BLOCK EMPTY                            F0D24490
       PXD     ,1             NO, SET BLOCK LENGTH                      F0D24500
 WRIN0 AXC     1,1            LOAD BUFFER INDEX                         F0D24510
       SXA     *-1,1          FLIP BUFFER INDEX                         F0D24520
       STD     BCD54,1        INITIALIZE I/O COMMAND WORD COUNT         F0D24530
       TSX    (TAPE),4       *WRITE INTERMEDIATE RECORD                 F0D24540
       PZE     BCD54,1,(WBNP)                                           F0D24550
       PZE     INTAP,2,-1                                               F0D24560
       PZE     TAPERR                                                   F0D24570
       AXT     0,1            RESET BLOCK LENGTH                        F0D24580
       SXA     OTPT1,0                                                  F0D24590
 WRINX AXT     **,4           RELOAD CALLING LINKAGE                    F0D24600
       TRA     1,4                                                      F0D24610
       TTL     PASS ONE CONTROL                                         F0D24620
 START AXT     1,1            SET FLAG FOR ENTRY INTO                  $F0D24660
       SXA    (MSLN),1        ERROR RECORDS                             F0D24670
       TSX    (TAPE),4       *REWIND FIRST INTERMEDIATE TAPE            F0D24680
       PZE     REWND,,(SKBP)                                            F0D24690
       PZE     ,,FINTAP                                                 F0D24700
       DCT                    TURN OFF TRIGGER                          F0D24710
       NOP                                                              F0D24720
       CAL    (DATE)          LOAD JOB DATE                             F0D24730
       TZE     NDATE          IS THERE A PRESUMPTIVE DATE               F0D24740
       ANA     BLANKS         YES, MASK IN ZONE BITS                    F0D24750
       TNZ     NDATE          IS DATE VALID                             F0D24760
       LDQ    (DATE)          YES, RELOAD APPARENTLY VALID DATE         F0D24770
       LGL     6                                                        F0D24780
       TNZ     *+2            IS IT A TWO-DIGIT MONTH                   F0D24790
       CAL     BLANK          NO, BLANK OUT FIRST DIGIT                 F0D24800
       LGL     6              LEFT ADJUST SECOND DIGIT IN MONTH         F0D24810
       ALS     6                                                        F0D24820
       ORA     SLASH          APPEND SLASH                              F0D24830
       LGL     12             LEFT ADJUST TWO DIGIT DAY                 F0D24840
       ALS     6                                                        F0D24850
       ORA     SLASH          APPEND SLASH                              F0D24860
       SLW     PGHDNG+14      INSERT IN WORD IS OF PAGE HEADING         F0D24870
       LGL     12             LEFT ADJUST TWO DIGIT YEAR                F0D24880
       LDQ     BLANKS         FOLLOWED BY BLANKS                        F0D24890
       LGL     24                                                       F0D24900
       SLW     PGHDNG+15      INSERT IN WORD 16 OF PAGE HEADING         F0D24910
 NDATE LXD     SYMSIZ,4       LOAD LENGTH OF SYSTEM SYMBOL TABLE        F0D24920
       SXD     *+2,4          INITIALIZE COMPUTATION TO SAVE SST        F0D24930
       AXT     TOPTAB-BOTTAB,4 PREPARE TO CLEAR MEMORY                  F0D24940
       TXI     *+1,4,**       SAVE SYSTEM SYMBOL TABLE                  F0D24950
       STZ     TOPTAB+1,4     CLEAR REST OF MEMORY                      F0D24960
       TIX     *-1,4,1                                                  F0D24970
       LXD     OPTSIZ,4       INITIALIZE TEST                           F0D24980
       TXI     *+1,4,-1                                                 F0D24990
       SXD     SOPT1,4        FOR END OF OPTABLE SEARCH                 F0D25000
       LXD     MOPTR,2        LOAD INITIAL BOTTOM OF MACRO TABLE        F0D25010
       SXD     MAC07,2        SET MACRO EXPANSION TABLE OVERFLOW TEST   F0D25020
       SXD     ESYMZ,2        AND SYMBOL TABLE OVERLAP TEST            $F0D25030
       AXT     ,0                                                      $F0D25040
       TSX    (TAPE),4       *REWIND SECOND INTERMEDIATE TAPE           F0D25050
       PZE     REWND,,(SKDP)                                            F0D25060
       PZE     ,,SINTAP                                                 F0D25070
       LDI    (ENDS)          LOAD END CARD SETTINGS                    F0D25080
       RNT     040000         IS END CARD SETTING 1 SPECIFIED           F0D25090
       STL     CRDFLG         NO, SET ONLINE CARDS FLAG                 F0D25100
       RFT     010000         IS END CARD SETTING 3 SPECIFIED           F0D25110
       SXD     WRIT1,0        YES, SET ONLINE PRINT SWITCH              F0D25120
       RFT     004000         IS END CARD SETTING 4 SPECIFIED           F0D25130
       STL     ONLCFG         YES, SET ONLINE COLUMN BINARY FLAG        F0D25140
       RFT     000400         IS END CARD SETTING 7 SPECIFIED           F0D25150
       STL     LBLFLG         YES, SET CARD LABEL FLAG                  F0D25160
       RNT     000100         IS END CARD SETTING 9 SPECIFIED           F0D25170
       STL     OFLCFG         NO, SET OFFLINE COLUMN BINARY FLAG        F0D25180
 ENDC  TRA     FRPA1         YES, CHECK PACK/UNPACK OPTIONS            $F0D25190
       PZE                                                             $F0D25200
       CAL     BLANKS         SET ID BLANK EX NEW C/T SIMULATOR         F0D25210
       SLW     BBUF31+12                                                F0D25220
       SLW     BBUF31+13                                                F0D25230
       SLW     BBUF32+12                                                F0D25240
       SLW     BBUF32+13                                                F0D25250
       STL    (SCHU)+MINTAP   RESET HANGING END OF FILE                 F0D25260
       REM                    LEFT BY NONSTANDARD MONITOR               F0D25270
       REM                    VIOLATING RULES OF IOP                    F0D25280
       REM                    TSK, TSK, TSK                             F0D25290
       TSX     RDSRC,4       *START LOOKAHEAD BUFFERING                 F0D25300
       TRA     SOURC                                                    F0D25310
       REM                                                              F0D25320
       REM     CONTROL ROUTINE FOR DELETED ASSEMBLIES                   F0D25330
 DPAS1 TSX     SETUP,4       *FIND OPCODE                               F0D25340
       TRA     COMCD          MAY BE * CONTROL CARD                     F0D25350
       TRA     READ3+1        IMPROPER OPCODE                       (24)F0D25360
       ZSD     READ2          GUARD AGAINST ACCIDENTAL REWIND       (24)F0D25370
       ZSA     COMCD          SET FLAG TO BLOCK COMMENTS CARD       (24)F0D25380
       TSX     CKUPD,4       *IS OPCODE AN UPDATE PSEUDOOPERATION   (24)F0D25390
       TRA     READ3+1        NO                                    (24)F0D25400
       TRA     PSOPT          YES, PROCESS IT                       (24)F0D25410
       PZE                    (NOT USED)                            (24)F0D25420
       PZE                    (NOT USED)                            (24)F0D25430
       REM                                                              F0D25440
       REM     CARD IS COMMENTS CARD                                    F0D25450
 COMCD AXT     -1,2           SET FLAG TO UNBLOCK UPDATE OUTPUT TAPE    F0D25460
       SXD     PAKFLG,2                                                 F0D25470
       TXH     READ1,4,-1     IS THIS FIRST COMMENTS CARD               F0D25480
       TRA     STP0A         YES, WHAT KIND                            $F0D25490
       ZET     FCFLG          IS THIS FIRST CARD GROUP                  F0D25500
       TRA     READ1          NO                                        F0D25510
       CAL     BLANK          YES, DELETE ASTERISK                      F0D25520
       LGR     6                                                        F0D25530
       AXT     12,4                                                     F0D25540
       STQ     PGHDNG+13,4    INSERT CC 2 - 72                          F0D25550
       LDQ     BCDBF+13,4     INTO WORDS 2 - 13 OF PAGE HEADING         F0D25560
       TIX     *-2,4,1                                                  F0D25570
       NZT     OPTFLG         IS UPDATE OUTPUT TAPE REQUIRED            F0D25580
       TRA     SOURC          NO                                        F0D25590
       REM                                                              F0D25600
       REM                                                              F0D25610
       REM     REENTRY TO WRITE CARD                                    F0D25620
 READ1 AXT     0,2            LOAD INTERMEDIATE TAPE INDEX              F0D25630
       AXT     1000,4         LOAD FIRST INTERMEDIATE TAPE RECORD LIMIT F0D25640
       NZT     DUPMD          IS THIS RECORD IN RANGE OF A DUP CARD     F0D25650
       TRA     READ2          NO                                        F0D25660
       REM                                                              F0D25670
       REM     CARD IS WITHIN RANGE OF DUP                              F0D25680
       STL     DUPFG          SET FLAG TO UNBLOCK INTERMEDIATE TAPE     F0D25690
 DUPCD AXT     **,4           LOAD COUNT OF CARDS REMAINING IN DUP      F0D25700
       TXL     DUPC1,4,0      IS DUP EXHAUSTED                          F0D25710
       TXI     *+1,4,-1       NO, BUMP COUNT DOWN                       F0D25720
       SXA     DUPCD,4        RESET DUP CARD COUNT                      F0D25730
       LXA     READ1+1,4      RELOAD COUNT FOR FIRST INTERMEDIATE TAPE  F0D25740
       TIX     READ3,4,1      IS FIRST INTERMEDIATE TAPE FULL           F0D25750
       TRA     READ3+1        YES, BUT DO NOT SWITCH TAPES              F0D25760
       REM     RANGE OF DUP IS EXHAUSTED                                F0D25770
 DUPC1 CAL     LOCTR          COMPUTE NET LENGTH OF DUP                 F0D25780
       SUB     DUPCT+1                                                  F0D25790
       XCA                                                              F0D25800
       VLM     DUPCT,,18      COMPUTE GROSS LENGTH OF DUP               F0D25810
       STO     BERAS          SAVE LENGTH OF BUMP                       F0D25820
       ADD     DUPCT+1                                                  F0D25830
       STA     LOCTR          RESET PROGRAM COUNTER                     F0D25840
       CLA     BERAS          RECALL LENGTH OF BUMP                     F0D25850
       ADD     DUPCT+2        RESET CARD STORAGE COUNTER                F0D25860
       STA     CDCTR                                                    F0D25870
       STZ     DUPMD          RESET FLAG                                F0D25880
       TRA     READ3+1                                                  F0D25890
       REM     CARD IS NOT WITHIN RANGE OF DUP                          F0D25900
 READ2 TIX     READ3,4,1      IS FIRST INTERMEDIATE TAPE FULL           F0D25910
       TSX    (TAPE),4       *YES, WRITE END FILE                       F0D25920
       PZE     ,,(WEFP)                                                 F0D25930
       PZE     INTAP,,-1                                                F0D25940
       PZE     TAPERR                                                   F0D25950
       TSX    (TAPE),4       *REWIND FIRST INTERMEDIATE TAPE            F0D25960
       PZE     REWND,,(SKBP)                                            F0D25970
       PZE     INTAP,,-1                                                F0D25980
       AXT     -1,2           SWITCH TO SECOND INTERMEDIATE TAPE       $F0D25990
       AXT     -1,4                                                    $F0D25995
       SXA     READ1,2        RESET INTERMEDIATE TAPE INDEX             F0D26000
       SXD     READ2,0        DELETE INTERMEDIATE TAPE FULL TEST        F0D26010
       REM     REENTRY FOR UNSWITCHED TAPES, CARD WITHIN RANGE OF DUP   F0D26020
 READ3 SXA     READ1+1,4      SAVE INTERMEDIATE TAPE COUNT              F0D26030
       TSX     OTPUT,4       *WRITE INTERMEDIATE/UPDATE RECORD          F0D26040
       REM     REENTRY FOR CARDS NOT WRITTEN ON INTERMEDIATE TAPES      F0D26050
       REM     INCLUDING PAGE HEADING, UPDATE PSEUDOOPERATIONS,         F0D26060
       REM     OR AFTER CARDS OUTPUT INDEPENDENTLY BY MACRO PROCESSOR   F0D26070
 SOURC TXI     *+1,,**        IS NEXT CARD TO BE MACRO GENERATED        F0D26080
       REM                    (POINTER TO NEXT HIGHER LEVEL SWITCH)     F0D26090
       TSX     INPUT,4       *NO, GET NEXT SOURCE/UPDATE CARD           F0D26100
       REM                                                              F0D26110
       REM     PROCESS CARD SUCCESSFULLY READ                           F0D26120
       ZET     DELFLG         IS ASSEMBLY DELETED                       F0D26130
       TRA     DPAS1          YES                                       F0D26140
       STZ     P1FLG          NO, CLEAR PASS 1 FLAGS                    F0D26150
       REM     REENTRY FOR MACRO GENERATED CARDS                        F0D26160
 CNTRL SLF                    TURN OFF FLAGS                            F0D26170
       STZ     SYMBL          CLEAR SYMBOL                              F0D26180
       STZ     LITRL          CLEAR VALUE OF LITERAL OR PSEUDOOPERATION F0D26190
       STZ     OPBIN          CLEAR INSTRUCTION, PSEUDOOP TRANSFER      F0D26200
       CLA     LOCTR          UPDATE PROGRAM COUNTER                    F0D26210
       STO     ADDRS                                                    F0D26220
       TSX     SETUP,4       *SET UP VARIABLE FIELD                     F0D26230
       TRA     COMCD          CARD IS COMMENTS CARD                     F0D26240
       SLN     EXPRR          OP FIELD IS IN ERROR                      F0D26250
       SXA     COMCD,0        RESET FLAG TO BLOCK COMMENTS CARDS        F0D26260
 ROUTE TXI     *+1,,**        IS THIS CARD MACRO DEFINING               F0D26270
       REM                    (POINTER TO NEXT HIGHER LEVEL SWITCH)     F0D26280
       SLT     EXPRR          NO, IS OP FIELD IN ERROR                  F0D26290
       TRA     *+2            NO                                        F0D26300
       TRA     INSTR          YES                                       F0D26310
       ZET     ETCMD          DOES THIS CARD FOLLOW CALL OR VFD         F0D26320
       TRA     ETCOP          YES                                       F0D26330
       CAL     OPCOD          NO, RELOAD OPERATION CODE                 F0D26340
       TSX     SOPTB,4       *FIND OPERATION IN COMBINED OPERATION TABLEF0D26350
       TRA     INSTR          NOT FOUND                                 F0D26360
       STI     OPBIN          SAVE FOR PASS TWO                         F0D26370
       RNT     100000         IS THIS A PSEUDOOPERATION                 F0D26380
       TRA     PSOPT          YES                                       F0D26390
       REM     OPCODE IS MACHINE OPERATION                              F0D26400
       REM     REENTRY FOR IMPROPER USE OF PSEUDOOP, IMPROPER OP FIELD  F0D26410
 INSTR NZT     CNTFG          HAS CARD COUNT BEEN GIVEN                 F0D26420
       TRA     *+4            YES                                       F0D26430
 CNTFG TSX     WRITT,4       *NO, WRITE NO COUNT MESSAGE                F0D26440
       IOCD    NOCNT,,5                                                 F0D26450
       STZ     CNTFG          RESET SWITCH                              F0D26460
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D26470
       CLA     Q1                                                       F0D26480
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D26490
       CAL     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0D26500
       SUB     EQUAL          IS CHARACTER =                            F0D26510
       TZE     LITOP          YES                                       F0D26520
       SUB     MINUS          IS CHARACTER $                            F0D26530
       NZT     ABSFLG         MAYBE, BUT IGNORE IT IN ABS ASSEMBLY      F0D26540
       TZE     DOLOP          YES                                       F0D26550
       TRA     READ1                                                    F0D26560
       REM                                                              F0D26570
       REM                                                              F0D26580
       REM     END OF INPUT TAPE                                        F0D26590
 ENDFA AXT     ENDF1,4        RESET ERROR RETURN FOR BINARY INPUT       F0D26600
       SXA     SRCRR+1,4      FOLLOWING END CARD                        F0D26610
       TSX    (TAPE),4       *BACKSPACE OVER END FILE OR LOOKAHEAD CARD F0D26620
       PZE     BSREC,,(SKDP)                                            F0D26630
       PZE     ,,MINTAP                                                 F0D26640
       CAL     INRECT         UNBUMP SOURCE INPUT RECORD COUNT          F0D26650
       SUB     Q1                                                       F0D26660
       STA     INRECT                                                   F0D26670
 ENDF1 ZET     IPTFLG         IS UPDATE INPUT TAPE PROVIDED             F0D26680
       TSX     UPDCL,4       *YES, BACKSPACE OVER LOOKAHEAD CARDS       F0D26690
       NZT     OPTFLG         IS AN UPDATE OUTPUT TAPE REQUESTED        F0D26700
       TRA     *+4            NO                                        F0D26710
       TSX    (TAPE),4       *YES, CLOSE OUT UPDATE OUTPUT TAPE         F0D26720
       PZE     Q0,,(SKDP)                                               F0D26730
       PZE     OPDTAP,,-1                                               F0D26740
       NZT     DELFLG         IS ASSEMBLY DELETED                       F0D26750
       TRA     ENDFC          NO                                        F0D26760
       TSX     WRFBK,4        YES, WRITE LAST PARTIAL LISTING BUFFER    F0D26770
       AXT     ENDFB,4        RESET ERROR RETURN                        F0D26780
       SXA     TAPERR+1,4                                               F0D26790
       AXT     6,1                                                     $F0D26800
       TSX    (TAPE),4       *CLOSE OUT ALL TAPES                       F0D26810
       PZE     8,1,(CHKU)     CLOSE OUT TAPES 2 THRU 7                 $F0D26820
 ENDFB TIX     *-2,1,1                                                  F0D26830
       TSX    (TAPE),4       *SPACE OVER PASS 2                         F0D26840
       PZE     Q1,,(SKBP)                                               F0D26850
       PZE     ,,SYSTAP                                                 F0D26860
       TRA     LOADER                                                   F0D26870
 ENDFC LXD     RMTEN+1,1      LOAD POINTER TO REMOTE SEQUENCES          F0D26880
       TXL     ENDFD,1,0      ARE THERE ANY REMOTE SEQUENCES            F0D26890
       AXT     6,4            YES, MOVE COMMENT INTO CARD IMAGE         F0D26900
       CAL     RMTCD+6,4                                                F0D26910
       SLW     BCDBF+6,4                                                F0D26920
       TIX     *-2,4,1                                                  F0D26930
       AXT     8,4            FILL CARD IMAGE WITH BLANKS               F0D26940
       CAL     BLANKS                                                   F0D26950
       SLW     BCDBF+14,4                                               F0D26960
       TIX     *-1,4,1                                                  F0D26970
       SXA     BCDBF+13,0     DELETE PASS 1 FLAGS                       F0D26980
       AXT     5$REMOP,4      SET PASS TWO TRANSFER TO PRINT CARD       F0D26990
       SXD     OPBIN,4                                                  F0D27000
       TSX     OTPT0,4       *WRITE REMOTE HEADING                     $F0D27010
       AXT     ENDFD,4        PREVENT ANY FURTHER READING               F0D27020
       SXA     SOURC,4        OF SOURCE INPUT TAPE                      F0D27030
       TSX     RMTSR,4       *EXPAND REMOTE SEQUENCES                   F0D27040
 ENDFD TSX     WRINT,4       *WRITE LAST PARTIAL INTERMEDIATE BLOCK     F0D27050
       TXH     ENDFE,2,0      IS THIS FIRST INTERMEDIATE TAPE           F0D27060
       TSX    (TAPE),4       *YES, WRITE END FILE ON FIRST INT TAPE     F0D27070
       PZE     ,,(WEFP)                                                 F0D27080
       PZE     INTAP,,-1                                                F0D27090
       PZE     TAPERR                                                   F0D27100
       TSX    (TAPE),4       *REWIND FIRST INTERMEDIATE TAPE            F0D27110
       PZE     REWND,,(SKBP)                                            F0D27120
       PZE     INTAP,,-1                                                F0D27130
       TSX    (TAPE),4       *WRITE EMPTY RECORD ON SECOND INTERM TAPE  F0D27140
       PZE     P7,,(WBNP)                                              $F0D27150
       PZE     INTAP+1,,-1                                              F0D27160
       PZE     TAPERR                                                   F0D27170
 ENDFE TSX    (TAPE),4       *WRITE END FILE ON SECOND INTERM TAPE      F0D27180
       PZE     ,,(WEFP)                                                 F0D27190
       PZE     INTAP+1,,-1                                              F0D27200
       PZE     TAPERR                                                   F0D27210
       TSX    (TAPE),4       *REWIND SECOND INTERMEDIATE TAPE           F0D27220
       PZE     REWND,,(SKBP)                                            F0D27230
       PZE     INTAP+1,,-1                                              F0D27240
       REM     PREPARE PROGRAM CARD                                     F0D27250
 ENDFF TRA     ENDFP          CHECK FOR EVEN OP WITH ODD PROLOGUE      $F0D27260
       ZET     SEPFLG         IS STANDARD ERROR PROCEDURE REQUESTED     F0D27270
       ZET     MAINPF         YES, IS THIS A SUBPROGRAM                 F0D27280
       TRA     *+2            NO, STORE PROLOGUE LENGTH                $F0D27290
       ADD     Q2             YES, BUMP BY LENGTH OF LINKAGE DIRECTOR   F0D27300
       STA     PBUFF1+5       SAVE ENTRY POINT PC 7R ADDRESS            F0D27310
       STA     PROLG          SAVE LENGTH OF RELOCATION                 F0D27320
       CLA     CDCTR          COMPUTE PROGRAM BREAK                     F0D27330
       CAS     PRGBK          IS THIS PORTION OF PROGRAM LONGER         F0D27340
       STA     PRGBK          YES                                       F0D27350
       NOP                    NO                                        F0D27360
       CLA     PRGBK          LOAD LENGTH OF PROGRAM                    F0D27370
       ADD     PBUFF1+5       ADD LENGTH OF TRANSFER VECTOR AND PROLOG  F0D27380
       STA     PBUFF1+2       SAVE ACTUAL PROGRAM BREAK PC 8L ADDRESS   F0D27390
       LDC     LSCH1,2        ADD LENGTH OF LITERAL TABLE               F0D27400
       TXI     *+1,2,-2                                                 F0D27410
       PXA     ,2                                                       F0D27420
       ADD     PRGBK          TO END OF PROGRAM                         F0D27430
       STA     ADDRS                                                    F0D27440
       CAL     ENDOP          LOAD END CARD LOCATION SYMBOL             F0D27450
       TSX     ESYMT,4       *DEFINE PROGRAM BREAK                      F0D27460
       REM                                                              F0D27470
       REM     PREPARE FOR PASS TWO TABLE SEARCHES                      F0D27480
       LDC     LSCH1,2        COMPUTE LENGTH OF LITERAL TABLE           F0D27490
       TXI     *+1,2,-1                                                 F0D27500
       SXD     LITSIZ,2                                                 F0D27510
       PXA     ,2             COMPUTE LOGARITHM OF TABLE LENGTH         F0D27520
       AXT     2,2            PREPARE FOR ONE-WORD ENTRIES              F0D27530
       ARS     1              DIVIDE TABLE IN HALF                      F0D27540
       TZE     *+2            HAS TABLE DISAPPPEARED                    F0D27550
       TXI     *-2,2,1        NO, BUMP LOGARATHM                        F0D27560
       PXA     ,2                                                       F0D27570
       ALS     1                                                        F0D27580
       STA     LITSIZ                                                   F0D27590
       LDC     SYMSIZ,2       DITTO FOR SYMBOL TABLE                    F0D27600
       SXD     SYMSIZ,2                                                 F0D27610
       PXA     ,2                                                       F0D27620
       AXT     1,2            BUT TABLE IS OF TWO WORD ENTRIES          F0D27630
       ARS     1                                                        F0D27640
       TZE     *+2                                                      F0D27650
       TXI     *-2,2,1                                                  F0D27660
       PXA     ,2                                                       F0D27670
       ALS     1                                                        F0D27680
       STA     SYMSIZ                                                   F0D27690
       ZET     ABSFLG         IS THIS PROGRAM ABSOLUTE                  F0D27700
       TRA     REL02+1        YES                                       F0D27710
       CLA     UPCTR          NO, COMPUTE COMMON BREAK                  F0D27720
 ENDCF TXL     *+2,4,-1       IS THERE ANY COMMON                       F0D27730
       STA     PBUFF1+3       YES, SAVE COMMON BREAK PC 8R ADDRESS      F0D27740
       CLA     PBUFF1+3       SET COMMON BREAK FLAG                     F0D27750
       SLW     UPCTR          STORE IT WITHOUT SIGN                    $F0D27760
       REM     RELOCATE SYMBOL TABLE                                    F0D27770
       LDC     SYMSIZ,4       LOAD LENGTH OF SYMBOL TABLE               F0D27780
       TXL     SORT9,4,0      IS THERE A SYMBOL TABLE                   F0D27790
       SXD     REL02,4        YES, SET END OF SYMBOL TABLE TEST         F0D27800
       AXT     0,4            START WITH BOTTOM OF TABLE                F0D27810
 REL01 LDI     SYMTBL+1,4     LOAD NEXT ADDRESS                         F0D27820
       LFT     1              IS SYMBOL RELOCATABLE                     F0D27830
       LFT     4              YES, IS IT ABOVE TRANSFER VECTOR          F0D27840
       TXI     REL02,4,-2     NO, BUMP TO NEXT ENTRY                    F0D27850
       PIA                    YES, RELOCATE SYMBOL UPWARD               F0D27860
       ADD     PBUFF1+5       BY LENGTH OF TRANSFER VECTOR AND PROLOG   F0D27870
       STA     SYMTBL+1,4     INSERT IN SYMBOL TABLE                    F0D27880
       TXI     REL02,4,-2     BUMP TO NEXT ENTRY                        F0D27890
 REL02 TXH     REL01,4,**     IS TABLE FINISHED                         F0D27900
       REM     SORT SYMBOL TABLE                                        F0D27910
       REM     THE ALGORITHM FOR THIS SORT HAS APPEARED IN AN ISSUE OF  F0D27920
       REM     ACM AND WAS ADAPTED FOR 709 USE BY THE DEES CANTOR AND   F0D27930
       REM     MOORE. IT IS A RADIX 2 SORT, AND SORTS ON BITS IN        F0D27940
       REM     DESCENDING ORDER FROM 0 (SIGN) BIT TO BIT 35             F0D27950
       REM     SORTB CONTAINS (COMPLEMENT OF) LOCATION OF FIRST SYMBOL  F0D27960
       REM     SORTA CONTAINS (COMPLEMENT OF) LOCATION OF LAST SYMBOL   F0D27970
       REM     SORTA+N CONTAIN (COMPLEMENT OF) LOCATION OF BREAK        F0D27980
       REM             BETWEEN 0 AND 1 BIT ON -N KEY (E.G. SORTA+35,    F0D27990
       REM             KEY 0 (SIGN) BIT, SORTA+34 BIT 1). THIS IS TO    F0D28000
       REM             DELIMIT SUBSORTS ON LOWER ORDER BITS. IF NO      F0D28010
       REM             SUBSORT IS NECESSARY (LOWER ORDER BITS DO NOT    F0D28020
       REM             EXIST, OR FALL RANDOMLY IN PROPER ORDER) EMPTY   F0D28030
       REM             KEY CONDITION IS INDICATED BY SORTA+N = SORTA+N+1F0D28040
       REM     IF TWO SYMBOL NAMES FALL INTO SAME KEY GROUP DOWN TO BIT F0D28050
       REM     35, THEY ARE IDENTICAL AND ENTERED INTO DUPICATELY       F0D28060
       REM     DEFINED SYMBOL LIST WITH EVERY ADDRESS WITHIN KEY.       F0D28070
       REM     AS SORT IS COMPLETED (EMPTY KEY GROUPS) AT THE UPPER AND F0D28080
       REM     LOWER EXTREMITIES OF THE SORT, SORTA AND SORTB ARE BUMPEDF0D28090
       REM     DOWN AND UP (COMPLEMENT) RESPECTIVELY.                   F0D28100
       REM     IF SORT FAILS, IE UNDEFINED SYMBOLS WHICH APPEAR IN      F0D28110
       REM     LOCATION FIELDS, CHECK THE SENSE INDICATORS FOR MACHINE  F0D28120
       REM     ERROR. THIS IS THE BEST KNOWN TEST OF SENSE INDICATORS   F0D28130
       LXD     SYMSIZ,2       COMPUTE ACTUAL LENGTH OF SYMBOL TABLE     F0D28140
       TNX     SORT9,2,2      HAS TABLE ONLY ONE ENTRY                  F0D28150
       TXI     *+1,2,SYMTBL   NO, COMPUTE LOCATION OF LAST NAME IN TABLEF0D28160
       PXA     ,2                                                       F0D28170
       PAC     ,2                                                       F0D28180
       SXA     SORTA,2        SAVE COMPLEMENT OF LOCATION               F0D28190
       AXT     36,1           PREPARE TO SORT ON BIT 0 (SIGN BIT)       F0D28200
       REM     REENTRY TO SORT ON NEXT BIT                              F0D28210
 SORT1 LXA     SORTB,4        LOAD POSITION OF CURRENT START OF SORT    F0D28220
       CLA     SORTA+36,1     LOAD POSITION OF CURRENT END OF SORT BLOCKF0D28230
       PAX     ,2                                                       F0D28240
       CAL     SRTBT+36,1     LOAD CURRENT SORTING BIT                  F0D28250
       TXI     SORT3,2,-2     BUMP TO ORG FOLLOWING LAST NAME IN BLOCK  F0D28260
       REM     REENTRY FOR SYMBOL NAME EQUAL TO KEY (KEY BIT = 1)       F0D28270
 SORT2 TXI     *+1,4,-2       BUMP CURRENT SYMBOL INDEX UP              F0D28280
       TXI     *+1,2,2        BUMP ORIGIN DOWN ONE SYMBOL               F0D28290
       SXD     *+1,4          INITIALIZE TEST FOR END OF MOVE LOOP      F0D28300
       TXH     SORT5,2,**     IS SYMBOL AT END OF SORT                  F0D28310
       LDI     0,2            NO, LOAD NEXT SYMBOL                      F0D28320
       TIF     *+2            IS THIS SYMBOL LOCICALLY LOWER (KEY BIT=0)F0D28330
       TXI     *-3,2,2        NO, BUMP TO NEXT SYMBOL                   F0D28340
       LDQ     -2,4           YES, INTERCHANGE SYMBOL NAMES             F0D28350
       STI     -2,4                                                     F0D28360
       STQ     0,2                                                      F0D28370
       LDI     1,2            INTERCHANGE LOCATIONS                     F0D28380
       LDQ     -1,4                                                     F0D28390
       STI     -1,4                                                     F0D28400
       STQ     1,2                                                      F0D28410
 SORT3 SXD     *+1,2          SET TEST FOR LOCATION OF LAST SYMBOL NAME F0D28420
       TXL     SORT5,4,**     IS CURRENT SYMBOL AT END OF SORT          F0D28430
       LDI     0,4            NO, LOAD CURRENT SYMBOL NAME              F0D28440
       TIO     SORT2          DOES CURRENT SYMBOL NAME CONTAIN KEY BIT=1F0D28450
       TXI     *-3,4,-2       NO, BUMP TO NEXT SYMBOL NAME              F0D28460
       REM     KEY IS NOT EMPTY                                         F0D28470
 SORT4 CLA     SORTA+36,1     LOAD END OF NEXT BLOCK                    F0D28480
       TRA     SORT5+2                                                  F0D28490
       REM     SORT ON THIS BIT IN CURRENT BLOCK IS FINISHED            F0D28500
 SORT5 TXI     *+1,2,2        BUMP ORIGIN DOWN ONE SYMBOL               F0D28510
       PXA     ,2                                                       F0D28520
       STA     SORTA+37,1     SAVE BREAK BETWEEN 0 AND 1 BITS THIS BLOCKF0D28530
       CAS     SORTB          IS THIS BLOCK EMPTY                       F0D28540
       TRA     SORT4          NO, BUMP BREAK TO NEXT BLOCK              F0D28550
       TRA     SORT7          YES, BUMP START OF SORT TO NEXT BLOCK     F0D28560
 SORT6 TIX     SORT1,1,1      NO, ARE ALL KEYS EXHAUSTED                F0D28570
       REM     SYMBOL IS MULTIPLY DEFINED                               F0D28580
       CAL     D8             LOAD DUPLICATELY-DEFINED SYMBOL FLAG      F0D28590
       LXA     SORTA+36,2     LOAD BEGINNING OF DD SYMBOL BLOCK         F0D28600
       LXA     SORTB,4        LOAD END OF DD SYMBOL BLOCK               F0D28610
       SXD     *+3,4          SET TEST FOR END OF LOOP                  F0D28620
       ORS     1,2            FLAG THIS SYMBOL                          F0D28630
       TXI     *+1,2,2        BUMP TO NEXT SYMBOL                       F0D28640
       TXL     *-2,2,**       IS BLOCK COMPLETELY FLAGGED               F0D28650
       AXT     1,1            YES, RESET KEY INDEX TO BIT 35            F0D28660
       CLA     SORTA+36       DELETE BLOCK INCLUDING                    F0D28670
       SUB     Q2             DUPICATELY DEFINED SYMBOL                 F0D28680
       STA     SORTB                                                    F0D28690
       CLA     SORTA+35       BUMP BREAK UP TO NEXT BLOCK               F0D28700
       STA     SORTA+36                                                 F0D28710
       CAS     SORTB          IS NEXT BLOCK EMPTY                       F0D28720
       STA     SORTB          NO, DELETE NEXT BLOCK                     F0D28730
       TRA     SORT8          YES, GO TEST FOR END OF SORT              F0D28740
       TRA     SORT6+1        NO, FLAG NEXT DD SYMBOL BLOCK             F0D28750
       REM     REENTRY FOR EMPTY BLOCK                                  F0D28760
 SORT7 SUB     Q2             BUMP START OF SORT UP TO NEXT BLOCK       F0D28770
       STA     SORTB                                                    F0D28780
       LDQ     SORTA+36,1     BUMP BREAK UP TO NEXT BLOCK               F0D28790
       STQ     SORTA+37,1                                               F0D28800
       TLQ     SORT6          IS THIS BLOCK EMPTY                       F0D28810
       REM     REENTRY AFTER FLAGGING MULTIPLY DEFINED SYMBOL           F0D28820
 SORT8 TXH     SORT9,1,35     YES, IS SORT COMPLETE                     F0D28830
       LDQ     SORTA+35,1     NO, BUMP END OF SORT DOWN ONE BLOCK       F0D28840
       STQ     SORTA+36,1                                               F0D28850
       TLQ     *+2            IS THIS BLOCK EMPTY                       F0D28860
       TXI     SORT8,1,1      YES, BUMP KEY INDEX UP TO NEXT KEY        F0D28870
       SUB     Q2             BUMP START OF SORT UP TO NEXT SYMBOL      F0D28880
       STA     SORTB                                                    F0D28890
       TLQ     SORT1          IS THIS BLOCK EMPTY                       F0D28900
       TXI     SORT8,1,1      YES, BUMP KEY INDEX TO NEXT KEY           F0D28910
       REM     END OF SORT                                              F0D28920
 SORT9 TRA     JPLCH        *CALL PASS TWO.                            $F0D28930
       TTL     PASS ONE PSEUDOOPERATION PROCESSOR                       F0D28940
 PSOPT ZET     INDFG          IS PSEUDOOPERATION INDIRECTLY ADDRESSED   F0D28950
       TRA     OPERR        **YES                                       F0D28960
       LXD     VRFLD,2        NO, RELOAD WORD COUNT                     F0D28970
       LXA     VRFLD,1        RELOAD CHARACTER COUNT                    F0D28980
       PIA                    RECALL TRANSFER ADDRESS                   F0D28990
       STA     *+1            INITIALIZE TRANSFER                       F0D29000
       TRA     **                                                       F0D29010
       REM                                                              F0D29020
 704OP AXT     11,4           RESET NUMBER OF COLUMNS PRECEEDING        F0D29030
       SXA     CMPVF,4        VARIABLE FIELD FOR MACRO GENERATED CARD   F0D29040
       TRA     READ1                                                    F0D29050
       REM                                                              F0D29060
 709OP AXT     15,4           RESET NUMBER OF COLUMNS PRECEEDING        F0D29070
       SXA     CMPVF,4        VARIABLE FIELD FOR MACRO GENERATED CARD   F0D29080
       TRA     READ1                                                    F0D29090
       REM                                                              F0D29100
 ABSOP ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0D29110
       TRA     ABS01          YES                                       F0D29120
       ZET     MAINPF         MAYBE, WAS THERE A PRECEDING ENTRY CARD   F0D29130
       ZET     FCFLG          NO, IS THIS FIRST CARD GROUP              F0D29140
       TRA     OPERR        **NO, TOO LATE                              F0D29150
       STL     ABSFLG         YES, SET ABSOLUTE ASSEMBLY FLAG           F0D29160
       STZ     SEPFLG         RESET STANDARD ERROR PROCEDURE FLAG       F0D29170
       STZ     PBUFF1         DELETE PROGRAM CARD 9L PREFIX, WORD COUNT F0D29180
       SXD     LOCTR,0        DELETE RELOCATION BITS                    F0D29190
 ABS01 TRA     READ1                                                    F0D29200
       REM                                                              F0D29210
 BCDOP CAL     BCDBF+1        LOAD CARD WORD 2                          F0D29220
       ANA     Q63            MASK IN CC 12                             F0D29230
       LAS     BLANK          IS IT BLANK                               F0D29240
       TRA     BCI02+3        NO, IT IS ILLEGAL                         F0D29250
       TRA     BCI01          YES (FULL CARD)                           F0D29260
       TZE     BCI01          NO, IS IT ZERO (FULL CARD)                F0D29270
       TRA     BCI02+1        NO                                        F0D29280
       REM                                                              F0D29290
 BCIOP CLA     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0D29300
       TZE     BCI03                                                   $F0D29310
       SUB     COMMA          NO, IS IT COMMA                           F0D29320
       TNZ     BCI02          NO                                        F0D29330
       TXH     BCI02,1,2      YES, IS COMMA IN CC 12                    F0D29340
       TXL     BCI02,1,1      MAYBE                                     F0D29350
 BCI01 CLA     Q10            YES                                       F0D29360
       TRA     BCI03                                                    F0D29370
 BCI02 ADD     COMMA          RESTORE FIRST CHARACTER                   F0D29380
       CAS     Q10            IS IT LEGAL                               F0D29390
       NOP                    NO                                        F0D29400
       CLA     Q1             NO, SET IT TO 1                           F0D29410
       REM                    (MACHINE ERROR WILL BE CAUGHT PASS 2)     F0D29420
 BCI03 TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D29430
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D29440
       TRA     READ1                                                    F0D29450
       REM                                                              F0D29460
 BESOP SXD     BSS01,0        SET BES SWITCH                            F0D29470
       TRA     BSSOP+1                                                  F0D29480
       REM                                                              F0D29490
 BSSOP SXD     BSS01,2        SET BSS SWITCH                            F0D29500
       TSX     SCANF,4       *EVALUATE LENGTH OF BLOCK                  F0D29510
       TXI     AFLAG,,0       NULL BLOCK LENGTH                         F0D29520
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D29530
       ZET     RBITS          NO, IS VARIABLE FIELD RELOCATABLE         F0D29540
       TRA     PHASE        **YES                                       F0D29550
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D29560
       LDI     Q0             PRESET SYMBOL LOC TO BEGINNING OF BLOCK   F0D29570
 BSS01 TXL     *+3,1,**       IS PSEUDOOP BES                           F0D29580
       STA     ADDRS          YES, DEFINE SYMBOL AT END OF BLOCK        F0D29590
       LDI     VAREQ                                                    F0D29600
       PIA                    RECALL SYMBOL DEFINITION                  F0D29610
       ALS     18             CONSTRUCT LENGTH,,DEFINITION FOR PASS 2   F0D29620
       ADD     VAREQ                                                    F0D29630
       SLW     LITRL                                                    F0D29640
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D29650
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D29660
       TRA     FIELD        **NO                                        F0D29670
       TRA     READ1          YES                                       F0D29680
       REM                                                              F0D29690
 BOLOP STL     BOLMD          SET BOOL MODE FLAG                        F0D29700
       TSX     SCANF,4       *EVALUATE BOOLEAN EXPRESSION               F0D29710
       TXI     AFLAG,,0       NULL BOOLEAN EXPRESSION                   F0D29720
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D29730
       ZET     RBITS          NO, IS VARIABLE FIELD RELOCATABLE         F0D29740
       TRA     FIELD        **YES                                       F0D29750
       SLW     ADDRS          SAVE DEFINITION                           F0D29760
       SLW     LITRL          SAVE FOR PASS 2                           F0D29770
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D29780
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D29790
       TRA     FIELD        **NO                                        F0D29800
       TRA     READ1          YES                                       F0D29810
       REM                                                              F0D29820
 ETCOP STZ     ETCMD          RESET ETC MODE FLAG                       F0D29830
       ZET     VFDMD          IS THIS VFD ETC CARD                      F0D29840
       TRA     VFETC          YES                                       F0D29850
       TRA     CLETC          NO, THIS MUST BE CALL ETC                 F0D29860
       REM                                                              F0D29870
 CALOP TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D29880
       TSX     CALNM,4       *ENTER NAME IN TRANSFER VECTOR             F0D29890
       TRA     CAL01+1                                                  F0D29900
       REM     REENTRY AFTER COMMA OR ETC CARD                          F0D29910
 CLETC TSX     C019A,4       *LOOK AT NEXT CHARACTER                    F0D29920
       ERA     BLANK          IS IT BLANK FOLLOWING COMMA               F0D29930
       TNZ     CAL01          NO                                        F0D29940
       TSX     PEEKS,4       *YES, DOES ETC CARD FOLLOW                 F0D29950
       TRA     CAL03          YES                                       F0D29960
       CLA     Q1             NO, LOAD LENGTH OF NULL FIELD             F0D29970
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D29980
       TRA     CAL02                                                    F0D29990
       REM     REENTRY TO COUNT NEXT ARGUMENT                           F0D30000
 CAL01 TSX     SCEND,4       *SKIP TO END OF ARGUMENT                   F0D30010
       REM     REENTRY AFTER SUBPROGRAM NAME                            F0D30020
       CLA     Q1             LOAD LENGTH OF SUBROUTINE NAME OR ARGUMENTF0D30030
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D30040
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D30050
       TRA     CLETC          NO, PUNCTUATION WAS COMMA                 F0D30060
       REM     ETC MAY NOT FOLLOW                                       F0D30070
 CAL02 CLA     Q2             LOAD LENGTH OF SEP PARAMETERS             F0D30080
       ZET     SEPFLG         IS STANDARD ERROR PROCEDURE REQUESTED     F0D30090
       TSX     BPCTR,4       *YES, BUMP PROGRAM COUNTER                 F0D30100
 CAL03 TRA     READ1                                                    F0D30110
       REM                                                              F0D30120
 COMOP ZET     ABSFLG         IS THIS AN ABSOLUTE ASSEMBLY              F0D30130
       TRA     OPERR        **YES, OPERATION IS UNDEFINED               F0D30140
       ZET     DUPMD          NO, IS THIS WITHIN RANGE OF DUP           F0D30150
       TRA     PHASE        **YES                                       F0D30160
       SXD     ENDCF,0        NO, SET COMMON FLAG                       F0D30170
       TSX     SCANF,4       *EVALUATE LENGTH OF BLOCK                  F0D30180
       TXI     AFLAG,,0       NULL BLOCK LENGTH                         F0D30190
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D30200
       ZET     RBITS          NO, IS VARIABLE FIELD RELOCATABLE         F0D30210
       TRA     PHASE        **YES                                       F0D30220
       CLA     UPCTR          NO, DEFINE COMMON VARIABLE AS CURRENT     F0D30230
       STO     ADDRS          LOCATION OF UPPER STORAGE COUNTER         F0D30240
       STA     LITRL          CONSTRUCT ADDRS,,UPCTR FOR PASS 2         F0D30250
       SUB     VAREQ          BUMP COUNTER                              F0D30260
       STA     UPCTR                                                    F0D30270
       ALS     18                                                       F0D30280
       STD     LITRL                                                    F0D30290
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D30300
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D30310
       TRA     FIELD        **NO                                        F0D30320
       TRA     READ1          YES                                       F0D30330
       REM                                                              F0D30340
 CNTOP NZT     FCFLG          IS THIS FIRST CARD GROUP                  F0D30350
       NZT     CNTFG          YES, IS CARD COUNT MISSING                F0D30360
       TRA     FIELD        **NO, TOO LATE                              F0D30370
       STZ     CNTFG          YES, RESET FLAG                           F0D30380
       TSX     SCANF,4       *EVALUATE VARIABLE FIELD                   F0D30390
       TXI     AFLAG,,0       NULL COUNT                                F0D30400
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D30410
       ZET     RBITS          NO, IS COUNT RELOCATABLE                  F0D30420
       TRA     FIELD        **YES                                       F0D30430
       ARS     1              DIVIDE BY TWO                             F0D30440
       CAS     Q36            IS COUNT LESS THAN ONE BLOCK              F0D30450
       STA     READ1+1        NO, RESET INTERMEDIATE TAPE RECORD LIMIT  F0D30460
       NOP                    YES                                       F0D30470
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D30480
       TRA     FIELD        **NO                                        F0D30490
       TRA     READ1          YES                                       F0D30500
       REM                                                              F0D30510
 DECOP TSX     SCEND,4       *SKIP TO END OF INTEGER                    F0D30520
       CLA     Q1                                                       F0D30530
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D30540
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D30550
       TRA     DECOP          NO                                        F0D30560
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D30570
       TRA     READ1                                                    F0D30580
       REM                                                              F0D30590
 DOLOP LXD     VRFLD,2        RELOAD WORD COUNT                         F0D30600
       LXA     VRFLD,1        RELOAD CHARACTER COUNT                    F0D30610
       TSX     C0190,4       *DELETE DOLLAR SIGN                        F0D30620
       TSX     CALNM,4       *ENTER SUBPROGRAM NAME INTO TRANSFER VECTORF0D30630
       TRA     READ1                                                    F0D30640
       REM                                                              F0D30650
 DUPOP TSX     SCANF,4       *EVALUATE RANGE OF DUP                     F0D30660
       TXI     AFLAG,,0       NULL RANGE                                F0D30670
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D30680
       ZET     RBITS          NO, IS VARIABLE FIELD RELOCATABLE         F0D30690
       TRA     PHASE        **YES                                       F0D30700
       TZE     DUP01          DOES DUP CONTAIN CARDS                    F0D30710
       STA     LITRL          YES, CONSTRUCT RANGE,,ITERATNS FOR PASS 2 F0D30720
       TSX     SCANF,4       *EVALUATE ITERATIONS OF DUP                F0D30730
       TXI     DUP01,,0       NULL ITERATIONS                           F0D30740
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D30750
       ZET     RBITS          NO, IS VARIABLE FIELD RELOCATABLE         F0D30760
       TRA     PHASE        **YES                                       F0D30770
       TZE     *+3            IS DUP ITERATIVE                          F0D30780
       SUB     Q1             YES, IS ITERATIONS GREATER THAN 1         F0D30790
       TNZ     *+3            YES                                       F0D30800
       SLF                    NO, SET FIELD ERROR FLAG                  F0D30810
       TRA     DUP01                                                    F0D30820
       ZET     DUPMD          YES, IS DUP WITHIN RANGE OF DUP           F0D30830
       TRA     PHASE        **YES                                       F0D30840
       ALS     18             NO, REPOSITION ITERATIONS                 F0D30850
       STD     LITRL          SAVE FOR PASS 2                           F0D30860
       ADD     D1             BUMP BACK TO ITERATION COUNT              F0D30870
       STD     DUPCT          INITIALIZE COUNTER                        F0D30880
       CLA     LITRL          RELOAD RANGE OF DUP                       F0D30890
       STA     DUPCD          SET CARD COUNTER                          F0D30900
       CLA     LOCTR          SAVE PROGRAM COUNTER AT BEGINNING OF DUP  F0D30910
       STA     DUPCT+1                                                  F0D30920
       CLA     CDCTR          SAVE CARD STORAGE COUNTER                 F0D30930
       STA     DUPCT+2                                                  F0D30940
       STL     DUPMD          SET DUP MODE FLAG                         F0D30950
 DUP01 TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D30960
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D30970
       TRA     FIELD        **NO                                        F0D30980
       TRA     READ1          YES                                       F0D30990
       REM                                                              F0D31000
 ENDOP SXD     PAKFLG,4       SET FLAG TO UNBLOCK END CARD              F0D31010
       STL     COMCD          SET FLAG TO UNBLOCK CONTROL CARDS         F0D31020
       ZET     DELFLG         IS ASSEMBLY DELETED                       F0D31030
       TRA     READ3+1        YES                                       F0D31040
       CAL     BCDBF          NO, HOLD LOCATION FIELD                   F0D31050
       SLW     ENDOP          TO BE DEFINED AFTER REMOTE SEQUENCES      F0D31060
       TSX     OTPUT,4       *WRITE END CARD                            F0D31070
       TRA     ENDFA                                                    F0D31080
       REM                                                              F0D31090
 ENFOP CAL     READ2+2        PREPARE TO WRITE END FILE                 F0D31100
       TSX     UPTOP,4       *WRITE END FILE                            F0D31110
       TRA     SOURC                                                    F0D31120
       REM                                                              F0D31130
 ENPOP TSX     UPDLS,4       LIST CARD                              (25)F0D31140
       STL     DELFLG                                               (26)F0D31150
       TRA     ENDFA                                                (26)F0D31160
       PZE                    (NOT USED)                            (26)F0D31170
       PZE                    (NOT USED)                            (26)F0D31180
       REM                                                              F0D31190
 ENTOP ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0D31200
       TRA     OPERR        **YES, OPERATION IS UNDEFINED               F0D31210
       ZET     FCFLG          NO, IS THIS FIRST CARD GROUP              F0D31220
       TRA     PHASE        **NO, TOO LATE                              F0D31230
       SXD     MAINPF,0       YES, RESET MAIN PROGRAM FLAG              F0D31240
       TRA     READ1                                                    F0D31250
       REM                                                              F0D31260
 EXTOP ZET     ABSFLG         IS THIS ASSEMBLY ABSOLUTE                 F0D31270
       TRA     OPERR        **YES, OPERATION IS UNDEFINED               F0D31280
       TSX     CALNM,4       *NO, ENTER SUBPROGRAM NAME IN VECTOR       F0D31290
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D31300
       TRA     *-2            NO, GET NEXT TRANSFER VECTOR NAME         F0D31310
       TRA     READ1          YES                                       F0D31320
       REM                                                              F0D31330
 HADOP TSX     SSCAN,4       *ASSEMBLE HEADING CHARACTER                F0D31340
       TXI     HED01,,0       NULL HEADING CHARACTER                    F0D31350
       CAL     SYMBL          LOAD HEADING CHARACTER                    F0D31360
       TRA     HED01                                                    F0D31370
       REM                                                              F0D31380
 HEDOP PXD     ,0             LOAD CARD COLUMN 1                        F0D31390
       LDQ     BCDBF                                                    F0D31400
       LGL     6                                                        F0D31410
 HED01 LAS     BLANK          IS HEADING CHARACTER BLANK                F0D31420
       TRA     *+2            NO                                        F0D31430
       PXD     ,0             YES, DELETE IT                            F0D31440
       SLW     BHEAD          SAVE HEADING CHARACTER                    F0D31450
       SLW     LITRL          SAVE FOR PASS 2                           F0D31460
       SXA     HEDCT,0        RESET MULTIPLE HEADING COUNT              F0D31470
 HED02 TSX     SSCAN,4       *ASSEMBLE NEXT SYMBOL                      F0D31480
       TXI     READ1,,0       END OF VARIABLE FIELD RETURN              F0D31490
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D31500
       SLT     EXPND          NO, WAS SYMBOL FOLLOWED BY AN OPERATION   F0D31510
       TRA     FIELD        **YES, OMIT HEADING CHARACTERS              F0D31520
       LXA     HEDCT,4        NO, BUMP MULTIPLE HEADING COUNT           F0D31530
       TXI     *+1,4,1                                                  F0D31540
       TXL     *+3,4,11       DID BHEAD TABLE OVERFLOW                  F0D31550
       LDI     HEDNM          YES, SET MULTIHEADING TABLE OVERFLOW      F0D31560
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D31570
       SXA     HEDCT,4        NO, SAVE CURRENT MULTIPLE HEADING COUNT   F0D31580
       CAL     SYMBL          ADD HEADING CHARACTER                     F0D31590
       SLW     BHEAD,4        TO MULTIPLE HEADING LIST                  F0D31600
       TRA     HED02                                                    F0D31610
       REM                                                              F0D31620
 IFEOP ZET     ABSFLG         IS THIS ASSEMBLY ABSOLUTE                 F0D31630
       TRA     OPERR        **YES, OPERATION IS UNDEFINED               F0D31640
       TSX     ESYML,4       *NO, DEFINE POSSIBLE LOCATION FIELD        F0D31650
       CAL     L(EOF          LOAD ENTRY POINT NAME                     F0D31660
       TSX     TRVCR,4       *MAKE ENTRY IN TV TABLE AND SYMBOL TABLE   F0D31670
       CLA     Q2             LOAD LENGTH OF TWO INSTRUCTION MACRO      F0D31680
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D31690
       TRA     READ1                                                    F0D31700
 L(EOF BCI     1,(EOF)                                                  F0D31710
       REM                                                              F0D31720
       REM     EVALUATE LITERALS                                        F0D31730
 LITOP LXD     VRFLD,2        LOAD WORD COUNT                           F0D31740
       LXA     VRFLD,1        LOAD CHARACTER COUNT                      F0D31750
       TSX     C0190,4       *DELETE = CHARACTER                        F0D31760
       TSX     C0190,4       *GET CHARACTER FOLLOWING EQUAL SIGN        F0D31770
       LAS     QO             IS CHARACTER O                            F0D31780
       TXI     LITDC,1,1      NO, IT IS DECIMAL                         F0D31790
       TRA     LITCL          YES, IT IS OCTAL                          F0D31800
       LAS     QH             NO, IS CHARACTER H                        F0D31810
       TXI     LITDC,1,1      NO, IT IS DECIMAL                         F0D31820
       TRA     LITHL          YES, IT IS HOLLERITH                      F0D31830
       TXI     LITDC,1,1      NO, BUMP COUNTER LEFT ONE CHARACTER       F0D31840
       REM     EVALUATE DECIMAL LITERALS                                F0D31850
 LITDC LGR     6              RESTORE FIRST CHARACTER (SIGN OR DIGIT)   F0D31860
       STQ     RESIDU                                                   F0D31870
       STZ     ERRFE          RESET ERROR FLAG                          F0D31880
       TSX     DECCV,4       *CONVERT DECIMAL FIELD TO BINARY           F0D31890
       STO     LITRL                                                    F0D31900
       NZT     ERRFE          WAS FIELD IN ERROR                        F0D31910
       TRA     LITDF          NO                                        F0D31920
       TRA     LITRR        **YES                                       F0D31930
       REM     EVALUATE OCTAL LITERALS                                  F0D31940
 LITCL STZ     ERRFB          RESET ERROR FLAG                          F0D31950
       TSX     OCTCV,4       *CONVERT OCTAL FIELD TO BINARY             F0D31960
       SLW     LITRL                                                    F0D31970
       NZT     ERRFB          WAS FIELD IN ERROR                        F0D31980
       TRA     LITDF          NO                                        F0D31990
       TRA     LITRR        **YES                                       F0D32000
       REM     EVALUATE HOLLERITH LITERALS                              F0D32010
 LITHL TSX     C0190,4       *GET NEXT CHARACTER                        F0D32020
       AXT     **,4           LOAD CHARACTER COUNT                      F0D32030
       TXI     *+1,4,1        BUMP CHARACTER COUNT                      F0D32040
       TXH     LITH1,4,6      HAVE SIX CHARACTERS BEEN COLLECTED        F0D32050
       SXA     LITHL+1,4      NO, SAVE CHARACTER COUNT                  F0D32060
       LGR     6              APPEND NEXT CHARACTER                     F0D32070
       CAL     LITRL          TO PARTIAL LITERAL                        F0D32080
       LGL     6                                                        F0D32090
       SLW     LITRL          SAVE PARTIAL LITERAL                      F0D32100
       TRA     LITHL                                                    F0D32110
 LITH1 SXA     LITHL+1,0      RESET CHARACTER COUNT                     F0D32120
       SUB     BLANK          IS IT BLANK                               F0D32130
       TZE     LITDF          YES, END OF VARIABLE FIELD                F0D32140
       SUB     EQUAL          NO, IS IT COMMA                           F0D32150
       TZE     LITDF          YES, END OF LITERAL FIELD                 F0D32160
       STZ     LITRL          NO, ILLEGAL CHARACTER                     F0D32170
       TRA     LITRR        **SET ERROR FLAGS                           F0D32180
       REM                                                              F0D32190
       REM     ENTER LITERAL INTO TABLE                                 F0D32200
 LITDF CAL     LITRL          LOAD LITERAL                              F0D32210
       LXA     LITSIZ,2       LOAD LOGARITHM OF TABLE LENGTH            F0D32220
       AXT     0,1            LOAD POSITION OF FIRST LITERAL IN TABLE   F0D32230
       XEC     LSCH2+1,2      BUMP SEARCH TO MIDDLE OF TABLE            F0D32240
       REM     REENTRY AFTER BINARY HOP                                 F0D32250
 LSCH1 TXL     *+4,1,-1       IS CURRENT POSITION ABOVE TABLE ENTRIES   F0D32260
       LAS     LITTBL-1,1     NO, IS NEW ENTRY IN TABLE                 F0D32270
       TXI     LSCH2+1,2,-2   NO, LARGER - GO LOOK HIGHER               F0D32280
       TRA     LSCH3          YES, IGNORE IT                            F0D32290
       TXI     LSCH2,2,-2     NO, SMALLER - GO LOOK LOWER               F0D32300
       REM                                                              F0D32310
       TXI     LSCH1,1,-512   (MAXIMUM TABLE SIZE = 1024 LITERALS)      F0D32320
       TXI     LSCH1,1,+256                                             F0D32330
       TXI     LSCH1,1,-256                                             F0D32340
       TXI     LSCH1,1,+128                                             F0D32350
       TXI     LSCH1,1,-128                                             F0D32360
       TXI     LSCH1,1,+64                                              F0D32370
       TXI     LSCH1,1,-64                                              F0D32380
       TXI     LSCH1,1,+32                                              F0D32390
       TXI     LSCH1,1,-32                                              F0D32400
       TXI     LSCH1,1,+16                                              F0D32410
       TXI     LSCH1,1,-16                                              F0D32420
       TXI     LSCH1,1,+8                                               F0D32430
       TXI     LSCH1,1,-8                                               F0D32440
       TXI     LSCH1,1,+4                                               F0D32450
       TXI     LSCH1,1,-4                                               F0D32460
       TXI     LSCH1,1,+2                                               F0D32470
       TXI     LSCH1,1,-2                                               F0D32480
       TXI     LSCH1,1,+1                                               F0D32490
       TXI     LSCH1,1,-1                                               F0D32500
       TXI     LITNT,1,-1                                               F0D32510
       TXI     LITNT,1,-2                                               F0D32520
       REM                                                              F0D32530
 LSCH2 XEC     *,2                                                      F0D32540
       XEC     *,2                                                      F0D32550
       REM                                                              F0D32560
       REM     LITERAL IS NEW, ENTER IT INTO TABLE INCREASING UPWARD    F0D32570
 LITNT LXD     LSCH1,2        LOAD CURRENT LENGTH OF LITERAL TABLE     $F0D32580
       LXD     LSCH1,4                                                 $F0D32585
       TXI     *+1,2,-1       BUMP COUNT                                F0D32590
       SXD     LSCH1,2                                                  F0D32600
       TXH     *+3,2,-LLITBL  DID LITERAL TABLE OVERFLOW                F0D32610
       LDI     LITNM          YES, SET LITERAL TABLE OVERFLOW           F0D32620
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D32630
       SXD     *+1,1          NO, INITIALIZE POSITION TEST              F0D32640
       TXH     *+4,4,**       IS THIS ORDERED POSITION OF NEW ENTRY     F0D32650
       LDQ     LITTBL-2,4     NO, MOVE NEXT ENTRY UP ONE                F0D32660
       STQ     LITTBL-1,4     TO MAKE ROOM FOR NEW ENTRY                F0D32670
       TXI     *-3,4,1        BUMP TABLE COUNT UP ONE POSITION          F0D32680
       SLW     LITTBL-1,4     INSERT NEW ENTRY IN PROPER ORDER          F0D32690
 LSCH3 TRA     READ1                                                    F0D32700
       REM                                                              F0D32710
 LOCOP AXT     -1,4           SET LOC SWITCH                            F0D32720
       SXD     ORG02+3,4                                                F0D32730
       CAL     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0D32740
       ERA     BLANK          IS IT BLANK                               F0D32750
       TNZ     ORG01          NO                                        F0D32760
       CAL     CDCTR          YES, DISCONTINUE LOC                      F0D32770
       SLN     FLDND          SET END OF VARIABLE FIELD FLAG            F0D32780
       TRA     ORG02                                                    F0D32790
       REM                                                              F0D32800
 MAXOP SXD     MIN03,0        SET MAX SWITCHES                          F0D32810
       SXD     MIN03+2,0                                                F0D32820
       TRA     MIN01                                                    F0D32830
       REM                                                              F0D32840
 MINOP AXT     -1,4           SET MIN SWITCHES                          F0D32850
       SXD     MIN03,4                                                  F0D32860
       SXD     MIN03+2,4                                                F0D32870
       REM     REENTRY FOR MAX                                          F0D32880
 MIN01 TSX     SCANP,4       *EVALUATE FIRST FIELD                      F0D32890
       TXI     AFLAG,,0       NULL FIELD                                F0D32900
       STI     ADDRS          SAVE RELOCATION BITS                      F0D32910
       IIL     3              INITIALIZE TEST FOR CONSISTENT BITS       F0D32920
       STI     ERASE                                                    F0D32930
 MIN02 STO     LITRL          SAVE CURRENT GREATEST/LEAST FIELD         F0D32940
       TSX     SCANP,4       *EVALUATE NEXT FIELD                       F0D32950
       TXI     MIN04,,0       NULL FIELD                                F0D32960
       OFT     ERASE          IS SYMBOL CONSISTENT                      F0D32970
       TRA     FIELX        **NO                                        F0D32980
       LAS     LITRL          YES, IS THIS SYMBOL GREATER/LESSER        F0D32990
 MIN03 TXH     MIN02,4,**     SYMBOL IS GREATER - IS THIS MAX           F0D33000
       TRA     MIN02+1        NO                                        F0D33010
       TXL     MIN02,4,**     SYMBOL IS LESSER - IS THIS MIN            F0D33020
       TRA     MIN02+1        NO                                        F0D33030
       REM     END OF VARIABLE FIELD                                    F0D33040
 MIN04 CAL     LITRL          DEFINE SYMBOL AS MAX/MIN                  F0D33050
       ORA     ADDRS          COMBINE WITH RELOCATION BITS              F0D33060
       SLW     LITRL          SAVE FOR PASS 2                           F0D33070
       SLW     ADDRS                                                    F0D33080
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D33090
       SLT     FLDND          WAS VARIABLE FIELD NULL                   F0D33100
       TRA     FIELD        **YES                                       F0D33110
       TRA     READ1          NO                                        F0D33120
       REM                                                              F0D33130
 NUMOP SXD     INP04+2,0      SET SWITCH TO RESERIALIZE BCD CARDS       F0D33140
       CAL     BCDBF          LOAD LEADING CHARACTERS                   F0D33150
       TSX     LOCFL,4       *ASSEMBLE LEADING CHARACTERS               F0D33160
       LGR     6              LEFT ADJUST                               F0D33170
       TNZ     *-1                                                      F0D33180
       STQ     PROID          SAVE LEADING CHARACTERS                   F0D33190
       TSX     SCANP,4       *ASSEMBLE NEW SERIALIZATION                F0D33200
       TXI     NUM01,,0       NULL SERIALIZATION                        F0D33210
       RFT     3              IS SERIALIZATION ABSOLUTE                 F0D33220
       TRA     FIELD        **NO                                        F0D33230
       TRA     NUM02         *YES. RESET SERIALIZATION              (25)F0D33240
 UPD03 SLT     FLDND          WAS END OF VARIABLE FIELD SENSED      (25)F0D33250
       TRA     FIELD        **NO                                        F0D33260
       TSX     UPDLS,4       *YES, LIST THIS CARD                       F0D33270
       TRA     SOURC                                                    F0D33280
       REM     TURN OFF BCD CARD RESERIALIZATION                        F0D33290
 NUM01 AXT     -1,4           RESET SWITCH TO RESERIALIZE BCD CARDS     F0D33300
       SXD     INP04+2,4                                                F0D33310
       TSX     UPDLS,4       *LIST CARD                                 F0D33320
       TRA     SOURC                                                    F0D33330
       REM                                                              F0D33340
 OPDOP CAL     CHRCTR         LOAD FIRST CHARACTER                      F0D33350
       ERA     BLANK          IS VARIABLE FIELD BLANK                   F0D33360
       TZE     FIELD        **YES                                       F0D33370
       STZ     ERRFE          NO, CLEAR HANGING FLAGS                   F0D33380
       STZ     ERRFB                                                    F0D33390
       TSX     OCTCV,4       *ASSEMBLE OCTAL EQUIVALENT                 F0D33400
       NZT     ERRFE          IS OCTAL EQUIVALENT IN ERROR              F0D33410
       ZET     ERRFB                                                    F0D33420
       TRA     FIELD        **YES                                       F0D33430
       ORA     T1             NO, APPEND MACHINE OPERATION FLAG         F0D33440
       SLW     LITRL          SAVE FOR PASS TWO                         F0D33450
       PAI                                                              F0D33460
       TSX     EOPTB,4       *ENTER INTO OP TABLE                       F0D33470
       TRA     READ1                                                    F0D33480
       REM                                                              F0D33490
 OPSOP TSX     SSCAN,4       *ASSEMBLE EQUIVALENT NAME                  F0D33500
       TXI     FIELD,,0     **NULL EQUIVALENT NAME                      F0D33510
       SLT     EXPRR          IS SYMBOL IN ERROR                        F0D33520
       ZET     SYMB2          NO, IS SYMBOL TOO LONG                    F0D33530
       TRA     FIELD        **YES                                       F0D33540
       CAL     SYMBL          NO, LOAD EQUIVALENT NAME                  F0D33550
       LDQ     Q0                                                       F0D33560
       LGR     6              LEFT ADJUST                               F0D33570
       TNZ     *-1                                                      F0D33580
       XCL                                                              F0D33590
       TSX     SOPTB,4       *FIND CORRESPONDING OCTAL OPCODE           F0D33600
       TRA     FIELD        **NOT IN TABLE                              F0D33610
       STI     LITRL          SAVE FOR PASS TWO                         F0D33620
       TSX     EOPTB,4       *ENTER INTO OP TABLE                       F0D33630
       TRA     READ1                                                    F0D33640
       REM                                                              F0D33650
 OPVOP CAL     CHRCTR         LOAD FIRST CHARACTER                      F0D33660
       ERA     BLANK          IS VARIABLE FIELD BLANK                   F0D33670
       TZE     FIELD        **YES                                       F0D33680
       STZ     ERASE          NO, CLEAR WORKING STORAGE                 F0D33690
       STZ     ERRFE          RESET POSSIBLE HANGING ERROR FLAG         F0D33700
       STL     VFDMD          SET VFD MODE FLAG FOR SCAN                F0D33710
       AXT     36,4           SET UNUSED BIT COUNT TO FULL WORD         F0D33720
       SXA     VFDRB,4                                                  F0D33730
 OPV01 TSX     VFDCV,4       *ASSEMBLE NEXT FIELD                       F0D33740
       CLA     VFDFB          LOAD FIELD LENGTH                         F0D33750
       STA     OPV02          INITIALIZE SHIFT                          F0D33760
       SUB     VFDRB          COMPUTE COUNT OF REMAINING BITS           F0D33770
       STA     VFDRB                                                    F0D33780
       CAL     ERASE          LOAD PARTIAL WORD                         F0D33790
       LDQ     VFDFL+1        LOAD NEW FIELD                            F0D33800
 OPV02 LGL     **             PACK IT IN                                F0D33810
       SLW     ERASE          SAVE NEW PARTIAL WORD                     F0D33820
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D33830
       TRA     OPV01          NO                                        F0D33840
       STZ     VFDMD          YES, RESET VFD FLAG                       F0D33850
       NZT     ERRFE          IS WORD IN ERROR                          F0D33860
       ZET     RBITS          NO, IS WORD RELOCATABLE                   F0D33870
       TRA     FIELD        **YES                                       F0D33880
       ZET     VFDRB          NO, IS WORD EXACTLY 36 BITS               F0D33890
       TRA     FIELD        **NO                                        F0D33900
       LDI     ERASE          YES, LOAD OCTAL OPCODE                    F0D33910
       SIR     100000         APPEND MACHINE OPERATION FLAG             F0D33920
       STI     LITRL          SAVE FOR PASS TWO                         F0D33930
       TSX     EOPTB,4       *ENTER INTO OP TABLE                       F0D33940
       TRA     READ1                                                    F0D33950
       REM                                                              F0D33960
 ORDOP CAL     OPBIN          LOAD OPCODE                               F0D33970
       SLW     LITRL          SAVE FOR PASS TWO                         F0D33980
       AXT     5$ORDOP,4      SET PASS TWO TRANSFER ADDRESS             F0D33990
       SXD     OPBIN,4                                                  F0D34000
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D34010
       CLA     Q2             ORDER TAKES TWO WORDS                     F0D34020
       TSX     BPCTR,4       *BUMP LOCATION COUNTER                     F0D34030
       TRA     READ1                                                    F0D34040
       REM                                                              F0D34050
 ORGOP ZSD     ORG02+3        SET ORG SWITCH                            F0D34060
       CLA     CDCTR          LOAD CARD STORAGE COUNTER                 F0D34070
       CAS     PRGBK          IS IT GREATER THAN GREATEST TO DATE       F0D34080
       STO     PRGBK          YES, RESET PROGRAM BREAK                  F0D34090
       NOP                                                              F0D34100
 ORG01 TSX     SCANF,4       *EVALUATE NEW ORIGIN                       F0D34110
       TXI     AFLAG,,0       NULL ORIGIN                               F0D34120
       SLT     EXPRR          WAS VARIABLE FIELD IN ERROR               F0D34130
       ZET     VARUC          NO, IS VARIABLE FIELD IN COMMON           F0D34140
       TRA     PHASE        **YES                                       F0D34150
       NZT     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0D34160
       ORA     D1             NO, SET RELOCATION BIT                    F0D34170
 ORG02 ZET     DUPMD          IS CARD IN RANGE OF DUP                   F0D34180
       TRA     PHASE        **YES                                       F0D34190
       STA     LOCTR          NO, UPDATE PROGRAM COUNTER                F0D34200
       TXL     *+2,4,**       IS CARD LOC                               F0D34210
       STA     CDCTR          NO, UPDATE CARD ORIGIN COUNTER            F0D34220
       SLW     ADDRS          DEFINE SYMBOL                             F0D34230
       SLW     LITRL          SAVE FOR PASS TWO                         F0D34240
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D34250
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0D34260
       TRA     FIELD        **NO                                        F0D34270
       TRA     READ1          YES                                       F0D34280
       REM                                                              F0D34290
 PRTOP TSX    (PRNT),4       *PRINT CC 13 - 72 ON LINE                  F0D34300
       PZE     BCDBF+2,,10                                              F0D34310
       TSX     SPACP,2       *SPACE PAGE                                F0D34320
       TSX     UPDLS,4       *LIST CARD                                 F0D34330
       TRA     SOURC                                                    F0D34340
       REM                                                              F0D34350
 REWOP CAL     *+4            PREPARE TO REWIND                         F0D34360
       TSX     UPTOP,4       *REWIND                                    F0D34370
       TSX     UPDSC,4       *LOGICALLY DISCONNECT THIS TAPE            F0D34380
       TRA     SOURC                                                    F0D34390
       PZE     REWND,,(SKDP)                                            F0D34400
       REM                                                              F0D34410
 SKFOP CAL     *+3            PREPARE TO SKIP FILE                      F0D34420
       TSX     UPTIP,4       *SKIP FILE                                 F0D34430
       TRA     SKF01          INITIALIZE BUFFERS AND PROCESS NEXT      $F0D34440
       REM                    UPDATE CARD.                             $F0D34441
       PZE     D1,,(SKDP)                                               F0D34450
       REM                                                              F0D34460
 SSTOP TRA     FRPA2                                                   $F0D34470
       TRA     READ1                                                    F0D34480
       REM                                                              F0D34490
 SYNOP TSX     SCANP,4       *EVALUATE SYN DEFINITION                   F0D34500
       TXI     AFLAG,,0       NULL DEFINITION                           F0D34510
       OAI                    COMBINE BITS WITH DEFINITION              F0D34520
       STI     ADDRS          DEFINE SYMBOL                             F0D34530
       STI     LITRL          SAVE FOR PASS 2                           F0D34540
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D34550
       SLT     FLDND          WAS VARIABLE FIELD NULL                   F0D34560
       TRA     FIELD        **YES                                       F0D34570
       TRA     READ1          NO                                        F0D34580
       REM                                                              F0D34590
 TAPOP CAL     Q128           SET DEFINITION TO 0200                    F0D34600
       SLW     ADDRS                                                    F0D34610
       TSX     C0190,4       *LOAD CHANNEL CHARACTER                    F0D34620
       LAS     BLANK          IS FIELD NULL                             F0D34630
       TRA     FIELD        **NO, ILLEGAL CHARACTER                     F0D34640
       TRA     TAP01          YES                                       F0D34650
       LAS     QH             NO, IS IT GREATER THAN H                  F0D34660
       TRA     FIELD        **YES, TOO MANY CHANNELS                    F0D34670
       NOP                    NO                                        F0D34680
       LAS     PLUSS          IS IT GREATER THAN +                      F0D34690
       TRA     *+3            YES                                       F0D34700
       TRA     FIELD        **NO, ILLEGAL CHARACTER                     F0D34710
       TRA     TAP01+3        NO CHANNEL DESIGNATED                     F0D34720
       ANA     Q15            MASK OUT ZONE BITS (CHANNEL NUMBER)       F0D34730
       ALS     9              POSITION CHANNEL NUMBER                   F0D34740
       ORS     ADDRS          INSERT IN DEFINITION                      F0D34750
       TRA     TAP01+2                                                  F0D34760
       REM     REENTRY FOR NULL FIELD                                   F0D34770
 TAP01 STZ     CHRCTR         DELETE BLANK                              F0D34780
       TSX     AFLAG,4       *FLAG OMITTED FIELD                        F0D34790
       REM     REENTRY TO EVALUATE NEXT DIGIT IN TAPE NUMBER            F0D34800
       TSX     C0190,4       *GET NEXT DIGIT                            F0D34810
       REM     REENTRY FOR NO CHANNEL DESIGNATED                        F0D34820
       LAS     Q10            IS IT GREATER THAN 10                     F0D34830
       TRA     TAP02          YES, THIS MAY BE MODE CHARACTER           F0D34840
       TSX     MACERR,4     **CHARACTER IS BCD 10                       F0D34850
       LDQ     ADDRS          PICK UP CHANNEL AND PARTIAL TAPE ADDRESS  F0D34860
       VLM     Q10,,6         MULTIPLY CURRENT DIGIT BY 10              F0D34870
       VLM     Q1,,8          AND CHANNEL BY 1                          F0D34880
       LLS     14             REPOSITION CONVERTED PARTIAL ADDRESS      F0D34890
       ADD     CHRCTR         ADD IN THIS DIGIT OF TAPE ADDRESS         F0D34900
       SLW     ADDRS          SAVE CHANNEL AND PARTIAL TAPE ADDRESS     F0D34910
       ANA     BLANK          WAS TAPE NUMBER VALID                     F0D34920
       TZE     TAP01+2        YES, GET NEXT DIGIT                       F0D34930
       TRA     FIELD        **NO                                        F0D34940
       REM     REENTRY FOR CHARACTER FOLLOWING TAPE ADDRESS             F0D34950
 TAP02 AXT     5,4            LOAD LENGTH OF TAPE CHARACTER LIST        F0D34960
       LAS     TAPCH+5,4      IS CHARACTER THIS TAPE CHARACTER          F0D34970
       TRA     FIELD        **NO                                        F0D34980
       TRA     TAP03+5,4      YES                                       F0D34990
       TIX     *-3,4,1        IS LIST EXHAUSTED                         F0D35000
       TRA     FIELD        **YES                                       F0D35010
       REM                                                              F0D35020
 TAP03 TRA     TAP04          CHARACTER IS BLANK                        F0D35030
       TRA     *+5            CHARACTER IS L                           $F0D35040
       TRA     *+2            CHARACTER IS H                           $F0D35050
       TRA     *+3            CHARACTER IS D                            F0D35060
       CAL     PLUSS          CHARACTER IS B                            F0D35070
       ORS     ADDRS          INSERT BINARY/HIGH DENSITY MODE BIT      $F0D35080
       TSX     C0190,4       *GET NEXT CHARACTER                        F0D35090
       ERA     BLANK          IS IT BLANK                               F0D35100
       TNZ     FIELD        **NO                                        F0D35110
 TAP04 CAL     ADDRS          SAVE DEFINITION FOR PASS TWO              F0D35120
       SLW     LITRL                                                    F0D35130
       TSX     ESYML,4       *DEFINE TAPE ADDRESS                       F0D35140
       TRA     READ1                                                    F0D35150
       REM                                                              F0D35160
 TCDOP NZT     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0D35170
       TRA     OPERR        **NO, OPERATION IS UNDEFINED                F0D35180
       TRA     READ1                                                    F0D35190
       REM                                                              F0D35200
 ULDOP CAL     *+4            PREPARE TO UNLOAD                         F0D35210
       TSX     UPTOP,4       *UNLOAD                                    F0D35220
       TSX     UPDSC,4       *LOGICALLY DISCONNECT THIS TAPE            F0D35230
       TRA     SOURC                                                    F0D35240
       PZE     UNLOD,,(SKDP)                                            F0D35250
       REM                                                              F0D35260
 UMCOP NZT     OPTFLG         IS AN UPDATE OUTPUT TAPE REQUESTED        F0D35270
       TRA     OPERR        **NO, OPERATION IS UNDEFINED                F0D35280
       CAL     MCREF+1        YES, FLIP SWITCHES TO OUTPUT              F0D35290
       LDQ     MCRDF+1        MACRO EXPANSIONS OR MACRO DEFINITIONS AND F0D35300
       STQ     MCREF+1        CALLS ON UPDATE OUTPUT TAPE               F0D35310
       SLW     MCRDF+1                                                  F0D35320
       TSX     UPDLS,4       *LIST CARD                                 F0D35330
       TRA     SOURC                                                    F0D35340
       REM                                                              F0D35350
 UPDOP TSX     WROPT,4       *WRITE LAST PARTIAL UPDATE OUTPUT BLOCK    F0D35360
       LXD     VRFLD,2        RELOAD WORD COUNT                         F0D35370
       LXA     VRFLD,1        RELOAD CHARACTER COUNT                    F0D35380
       TSX     UPSCN,4       *ASSEMBLE UPDATE INPUT TAPE NUMBER         F0D35390
       LAS     IPTFLG         IS THIS NEW UPDATE INPUT TAPE             F0D35400
       TRA     *+2            YES                                       F0D35410
       TRA     UPD01          NO                                        F0D35420
       STA     IPTFLG         RESET UPDATE INPUT TAPE FLAG              F0D35430
       LXD     IPRECT,4       LOAD OLD UPDATE INPUT TAPE NUMBER         F0D35440
       TXL     *+3,4,0        DOES OLD UPDATE INPUT TAPE EXIST          F0D35450
       TSX     UPDCL,4       *YES, BACKSPACE OVER LOOKAHEAD CARDS       F0D35460
       SXA     IPRECT,0       RESET UPDATE INPUT RECORD COUNT           F0D35470
       LXA     IPTFLG,4       RELOAD NEW UPDATE INPUT TAPE NUMBER       F0D35480
       SXD     IPRECT,4       SET NEW UPDATE INPUT TAPE NUMBER          F0D35490
       SXD     UPDTAP,4                                                 F0D35500
       TXI     *+1,4,(SCHU)   COMPUTE (SCHU)+MIPTAP                     F0D35510
       SXA     RDUP0,4        SET NEW END FILE TEST                     F0D35520
       TXL     UPD01,4,(SCHU) IS THERE A NEW UPDATE INPUT TAPE          F0D35530
       SXA     *+1,4          YES, INITIALIZE LOCATION OF (SCHU)+MIPTAP F0D35540
 UPD00 STL     **             RESET HANGING END FILE                    F0D35550
       SXA     *+2,1          SAVE CHARACTER COUNT                      F0D35560
       TSX     RDUPD,4       *START LOOKAHEAD BUFFERING                 F0D35570
       AXT     **,1           RELOAD CHARACTER COUNT                    F0D35580
       AXT     -1,4           SET SWITCH FOR EMPTY UPDATE BUFFER        F0D35590
       SXD     UPDSW,4                                                  F0D35600
 UPD01 TSX     UPSCN,4       *ASSEMBLE UPDATE OUTPUT TAPE NUMBER        F0D35610
       LAS     IPTFLG         IS OUTPUT TAPE INPUT TAPE                 F0D35620
       TRA     *+2            NO                                        F0D35630
       TNZ     FIELD         IF BLANK OR ZERO DISCONTINUE UPDATING     $F0D35640
       LAS     OPTFLG         IS THIS NEW UPDATE OUTPUT TAPE            F0D35650
       TRA     *+2            YES                                       F0D35660
       TRA     UPD02          NO                                        F0D35670
       STA     OPTFLG         RESET UPDATE OUTPUT TAPE FLAG             F0D35680
       LXD     OPRECT,4       LOAD OLD UPDATE OUTPUT TAPE NUMBER        F0D35690
       TXL     *+5,4,0        DOES OLD UPDATE OUTPUT TAPE EXIST         F0D35700
       TSX    (TAPE),4       *YES, CLOSE OUT OLD UPDATE OUTPUT TAPE     F0D35710
       PZE     Q0,,(SKDP)                                               F0D35720
       PZE     OPDTAP,,-1                                               F0D35730
       SXA     OPRECT,0       RESET UPDATE OUTPUT RECORD COUNT          F0D35740
       LXA     OPTFLG,4       RELOAD NEW UPDATE OUTPUT TAPE NUMBER      F0D35750
       SXD     OPRECT,4       SET NEW UPDATE OUTPUT TAPE NUMBER         F0D35760
       SXD     OPDTAP,4                                                 F0D35770
 UPD02 TSX     SCANF,4       *ASSEMBLE BLOCKING FACTOR              (25)F0D35780
       TRA     UPD05-1        NO 3RD FIELD. TURN ON BLOCKING        (25)F0D35790
       STL     PAKFLG         INITIALIZE BLOCKING OFF.              (25)F0D35800
       TZE     UPD05-2        IS VALUE ZERO                         (25)F0D35810
       SUB     Q10            NO. IS TI TEN                         (25)F0D35820
       TNZ     UPD05                                                (25)F0D35830
       AXT     -1-10*UPDRCL+UPDRCL,4 YES. SET BLOCKING FACTOR TO 10.(25)F0D35840
       SXD     UPBLK,4                                              (25)F0D35850
       SLT     EXPRR          IS EXPRESSION UNDEFINED               (25)F0D35860
       ZSA     PAKFLG         NO. 0 OR 10. TURN ON BLOCKING.        (25)F0D35870
 UPD05 TSX     SSCAN,4       *ASSEMBLE 4TH SUBFIELD                 (25)F0D35880
       TRA     UPD03        **THERE ISNT ANY                        (25)F0D35890
       CAL     SYMBL                                                (25)F0D35900
       TRA     UPSSC                                                (25)F0D35910
       REM                                                              F0D35920
 UPTIP LDQ     IPTFLG         LOAD INPUT TAPE NUMBER                    F0D35930
       TRA     UPTOP+1                                                  F0D35940
       REM                                                              F0D35950
 UPTOP LDQ     OPTFLG         LOAD OUTPUT TAPE NUMBER                   F0D35960
       SXA     UPTPX,4        SAVE CALLING LINKAGE                      F0D35970
       STQ     BERAS          HOLD UPDATE TAPE NUMBER                   F0D35980
       SLW     UPT02          SET OPERATION PARAMETER                   F0D35990
       TSX     UPSCN,4       *EVALUATE LOGICAL TAPE NUMBER              F0D36000
       TNZ     UPT01          IS A LOGICAL TAPE NUMBER SPECIFIED        F0D36010
       CAL     BERAS          NO, RELOAD UPDATE TAPE NUMBER             F0D36020
       TZE     OPERR        **IS AN UPDATE TAPE NUMBER SPECIFIED        F0D36030
       REM     REENTRY FOR LOGICAL TAPE NUMBER SPECIFIED                F0D36040
 UPT01 ALS     18             POSITION LOGICAL TAPE NUMBER              F0D36050
       STD     UPT02+1        INITIALIZE TAPE NUMBER PARAMETER          F0D36060
       CAS     OPDTAP         IS UPDATE OUTPUT TAPE SELECTED            F0D36070
       TRA     *+2            NO                                        F0D36080
       TSX     WROPT,4        YES, WRITE LAST UPDATE OUTPUT TAPE BLOCK  F0D36090
       TSX    (TAPE),4       *PERFORM TAPE OPERATION                    F0D36100
 UPT02 ***     **,,**                                                   F0D36110
       PZE     ,,**                                                     F0D36120
       PZE     TAPERR                                                   F0D36130
       TSX     UPDLS,4       *LIST CARD                                 F0D36140
 UPTPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D36150
       TRA     1,4                                                      F0D36160
       REM                                                              F0D36170
 UPSCN SXA     UPSCX,4        SAVE CALLING LINKAGE                      F0D36180
       TSX     SCANP,4       *ASSEMBLE UPDATE TAPE NUMBER               F0D36190
       TRA     PATCHA        BLANK UPDATE TAPE NUMBER                  $F0D36200
       RFT     3              IS TAPE NUMBER ABSOLUTE                   F0D36210
       TRA     FIELD        **NO                                        F0D36220
       TZE     UPSCX          IS UPDATE TAPE DELETED                    F0D36230
       PAX     ,4             NO. TEST FOR LEGAL ASSIGNMENT         (25)F0D36240
       TXH     FIELD,4,T    **IS TAPE ASSIGNED TO SYSTEM            (25)F0D36250
       TXL     FIELD,4,7    **YES  IS IT RESERVED TO MONITOR        (25)F0D36260
 UPSCX AXT     **,4           NO. RETURN                            (25)F0D36270
       TRA     1,4                                                  (25)F0D36280
       REM                                                          (25)F0D36290
 UPSSC SLT     EXPRR          DOES 4TH FIELD CONTAIN ILLEGAL CHAR   (25)F0D36300
       TRA     *+2            NO                                    (25)F0D36310
       TRA     FIELD        **YES                                   (25)F0D36320
       ZET     DELFLG         IS ASSEMBLY ALREADY DELETED           (25)F0D36330
       TRA     UPD03        **YES                                   (25)F0D36340
       TZE     UPD03          NO. IS ASSEMBLY DELETED NOW           (25)F0D36350
       STL     DELFLG         YES. SET ASSEMBLY DELETED FLAG        (25)F0D36360
       TSX     (PRNT),4       PRINT UPDATE ONLY MSG ONLINE          (25)F0D36370
       PZE     DELMS,,5                                             (25)F0D36380
       TRA     UPD03        **CHECK FOR TOO MANY FIELDS             (25)F0D36390
       ...                    PATCH SPACE                           (25)F0D36400
       REM                                                              F0D36410
 UPDLS SXA     UPDLX,4        SAVE CALLING LINKAGE                      F0D36420
       TRA     UPFIX         WHICH BUFFER DO WE PRINT FROM          (25)F0D36430
       PZE                   (NOT USED)                             (25)F0D36440
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0D36450
       PZE                                                              F0D36460
       CLA     INP06          UNBUMP SERIAL FOR UPDATE PSEUDOOP     (25)F0D36470
       SUB     INP07          NOT APPEARING ON UPDATE OUTPUT TAPE   (25)F0D36480
       STO     INP06                                                (25)F0D36490
       STL     COMCD          SET FLAG TO UNBLOCK MONITOR CONTROL CARDS F0D36500
 UPDLX AXT     **,4           RELOAD CALLING LINKAGE                    F0D36510
       TRA     1,4                                                      F0D36520
       REM                                                              F0D36530
       REM     LOGICALLY DISCONNECT FINISHED UPDATE TAPE                F0D36540
 UPDSC CAL     UPT02+1        RELOAD LOGICAL TAPE NUMBER                F0D36550
       CAS     OPDTAP         IS THIS UPDATE OUTPUT TAPE                F0D36560
       TRA     *+2            NO                                        F0D36570
       STZ     OPTFLG         YES, DISCONNECT UPDATE OUTPUT TAPE        F0D36580
       CAS     UPDTAP         IS THIS UPDATE INPUT TAPE                 F0D36590
       TRA     *+2            NO                                        F0D36600
       STZ     IPTFLG         YES, DISCONNECT UPDATE INPUT TAPE         F0D36610
       TRA     1,4                                                      F0D36620
       REM                                                              F0D36630
 VFDOP STL     VFDMD          SET VFD FLAG                              F0D36640
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D36650
       STZ     VFDTB          CLEAR TOTAL BIT COUNT                     F0D36660
 VFETC STZ     VFDFB          CLEAR FIELD WIDTH                         F0D36670
       TSX     C0190,4       *GET NEXT CHARACTER                        F0D36680
       LAS     COMMA          IS CHARACTER COMMA                        F0D36690
       TRA     VFD04          NO                                        F0D36700
       TRA     VFETC+1        YES, NULL FIELD                           F0D36710
       LAS     BLANK          IS CHARACTER BLANK                        F0D36720
       TRA     VFD04          NO                                        F0D36730
       TRA     VFD06          YES, END OF VARIABLE FIELD                F0D36740
       LAS     QO             IS CHARACTER O                            F0D36750
       TRA     VFD04          NO                                        F0D36760
       TRA     VFD02          YES, OCTAL FIELD                          F0D36770
       LAS     QH             IS CHARACTER H                            F0D36780
       TRA     VFD04          NO                                        F0D36790
       TRA     VFD02          YES, HOLLERITH FIELD                      F0D36800
       REM     REENTRY TO COMPUTE PARTIAL FIELD WIDTH                   F0D36810
 VFD01 LAS     SLASH          IS CHARACTER /                            F0D36820
       TRA     VFD05          NO                                        F0D36830
       TRA     VFD03          YES, FIELD FOLLOWS                        F0D36840
       LAS     Q10            IS CHARACTER NUMERIC                      F0D36850
       TRA     VFD05          NO                                        F0D36860
       TSX     MACERR,4     **CHARACTER IS BCD 10                       F0D36870
       CLA     VFDFB          YES, OLD PARTIAL FIELD WIDTH              F0D36880
       ALS     2                                                        F0D36890
       ADD     VFDFB          TIMES TEN                                 F0D36900
       ALS     1                                                        F0D36910
       ADD     CHRCTR         PLUS NEXT DIGIT                           F0D36920
       STO     VFDFB          IS NEW PARTIAL FIELD WIDTH                F0D36930
       REM     FIELD WIDTH FOLLOWS                                      F0D36940
 VFD02 TSX     C0190,4       *GET NEXT CHARACTER                        F0D36950
       TRA     VFD01                                                    F0D36960
       REM     FIELD FOLLOWS                                            F0D36970
 VFD03 CLA     VFDFB          LOAD FIELD WIDTH                          F0D36980
       CAS     Q63            IS SUBFIELD TOO LONG                      F0D36990
       CLA     Q63            YES, TRUNCATE IT                          F0D37000
       NOP                                                              F0D37010
       ADD     VFDTB          ADD TO TOTAL BIT COUNT                    F0D37020
       SLW     VFDTB          AND SAVE                                  F0D37030
       REM     LOOK FOR END OF FIELD                                    F0D37040
 VFD04 TSX     C0190,4       *GET NEXT CHARACTER                        F0D37050
 VFD05 LAS     COMMA          IS IT COMMA AT END OF FIELD               F0D37060
       TRA     VFD04          NO                                        F0D37070
       TRA     VFETC          YES, GET NEXT FIELD                       F0D37080
       ERA     BLANK          IS IT BLANK                               F0D37090
       TNZ     VFD04          NO                                        F0D37100
       TRA     VFD06+2        YES, ETC MAY NOT FOLLOW                   F0D37110
       REM     END OF VARIABLE FIELD                                    F0D37120
 VFD06 TSX     PEEKS,4       *IS NEXT CARD AN ETC CARD                  F0D37130
       TRA     VFD07          YES                                       F0D37140
       REM     END OF VFD STATEMENT                                     F0D37150
       LDQ     VFDTB          LOAD TOTAL BIT COUNT                      F0D37160
       PXD     ,0                                                       F0D37170
       DVP     Q36            COMPUTE NUMBER OF WORDS                   F0D37180
       DCT                    DID DIVIDE FAIL                           F0D37190
       TSX     MACERR,4     **YES                                       F0D37200
       TZE     *+2            IS THERE A PARTIAL WORD                   F0D37210
       CLA     Q1             YES, RESERVE SPACE FOR IT                 F0D37220
       STQ     VFDTB          COMBINE FULL WORDS                        F0D37230
       ADD     VFDTB          WITH PARTIAL WORD                         F0D37240
       TNZ     *+2            HAVE ANY BITS BEEN GENERATED              F0D37250
       CLA     Q1             NO, RESERVE WORD OF ZEROES                F0D37260
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D37270
       STZ     VFDMD          RESET VFD FLAG                            F0D37280
 VFD07 TRA     READ1                                                    F0D37290
       REM                                                              F0D37300
       REM     ERROR IN PROCESSING PSEUDOOPERATIONS                     F0D37310
 LITRR CAL     Q8             SET ERROR FLAG                            F0D37320
       TRA     PHASE+2                                                  F0D37330
 FIELX STZ     LITRL          DELETE PARTIAL DEFINITION                 F0D37340
 FIELD CAL     Q4             FLAG FIELD ERROR                          F0D37350
       TRA     PHASE+2                                                  F0D37360
 PHASE STZ     LITRL          DELETE DEFINITION IN ERROR                F0D37370
       CAL     Q1             FLAG PHASE ERROR                          F0D37380
       ORS     P1FLG                                                    F0D37390
       TRA     READ1                                                    F0D37400
       REM                                                              F0D37410
 OPERR CAL     Q16            SET UNDEFINED OPERATION FLAG              F0D37420
       ORS     P1FLG                                                    F0D37430
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD            F0D37440
       CLA     Q1                                                       F0D37450
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0D37460
       TRA     READ1                                                    F0D37470
       REM                                                              F0D37480
       REM                                                              F0D37490
 DELMS BCI     5,+         ...UPDATE ONLY...                            F0D37500
 UPDRM BCI     8, NON-BCD CARD(S) ON UPDATE INPUT TAPE FOLLOWING        F0D37510
 XREDN BCI     9,0 EXCESSIVE REDUNDANCY ERRORS. VERIFY INPUT TAPES AND  F0D37520
       BCI     2,PUSH START.                                            F0D37530
 XORDR BCI     9,0 EXCESSIVE CARD ORDER ERRORS. VERIFY INPUT TAPES AND  F0D37540
       BCI     2,PUSH START.                                            F0D37550
 NOCNT BCI     5,  CARD-COUNT ESTIMATE MISSING.                         F0D37560
 CHANG BCI     5,0 CHANGE TAPE AND PUSH START.                          F0D37570
       REM                                                              F0D37580
       REM     SORT TABLES                                              F0D37590
 SRTBT DEC     -0,1B1,1B2,1B3,1B4,1B5,1B6,1B7,1B8,1B9,1B10,1B11,1B12    F0D37600
       DEC     1B13,1B14,1B15,1B16,1B17,1B18,1B19,1B20,1B21,1B22,1B23   F0D37610
       OCT     4000,2000,1000,400,200,100,40,20,10,4,2,1                F0D37620
       REM                                                              F0D37630
 SORTB PZE     -SYMTBL        LOCATION (COMPLEMENT) OF BOTTOM OF TABLE  F0D37640
 SORTA PZE     **             LOCATION (COMPLEMENT) OF TOP OF TABLE     F0D37650
       DEC     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,                      F0D37660
       TTL     PASS ONE MACRO PROCESSOR                                 F0D37670
       REM     ROUTINES TO DEFINE MACROS                                F0D37680
       REM                    MACRO, MOP, RMT                           F0D37690
       REM                                                              F0D37700
 MOPSW SLT     EXPRR          IS OPFIELD IN ERROR                       F0D37710
       TTR     **             NO                                        F0D37720
       TRA     INSTR          YES                                       F0D37730
       REM                                                              F0D37740
 MCROP CAL     BCDBF          LOAD LOCATION FIELD                       F0D37750
       TSX     LOCFL,4       *ASSEMBLE MACRO NAME                       F0D37760
       TNZ     MOP00+1        HAS NAME BEEN GIVEN                       F0D37770
       CAL     CHRCTR         NO, IS VARIABLE FIELD BLANK               F0D37780
       ERA     BLANK                                                    F0D37790
       TNZ     MOP00          NO, IMPROPER CARD                         F0D37800
       AXT     MCR01,4        SET VECTOR TO AVOID INITIALIZATION        F0D37810
       SXA     MOPSW+1,4                                                F0D37820
       TSX     SETTP,4       *SET UP MACRO ROUTING                      F0D37830
       PZE     ROUTE,,MOPSW                                             F0D37840
       TSX     MACERR,4     **ALREADY SET UP                            F0D37850
       AXT     -1,4           SET MACRO DEFINITION CARD SWITCH          F0D37860
       SXD     MCRDF,4                                                  F0D37870
       TRA     READ1          GET NEXT CARD WITH MACRO NAME IN OPFIELD  F0D37880
       REM     REENTRY FOR CARD FOLLOWING BLANK MACRO CARD              F0D37890
 MCR01 CAL     BCDBF          LOAD LOCATION FIELD                       F0D37900
       TSX     LOCFL,4       *ASSEMBLE LOCATION SYMBOL                  F0D37910
       SLW     LCARG          SAVE POSSIBLE LOCATION ARGUMENT           F0D37920
       LDQ     OPCOD          LOAD OPCODE                               F0D37930
       TRA     MOP01                                                    F0D37940
       REM                                                              F0D37950
 MOPOP TSX     SSCAN,4       *ASSEMBLE MACRO NAME                       F0D37960
       TXI     MOP00,,0       NO MACRO NAME, IMPROPER CARD              F0D37970
       SLT     EXPRR          WAS MACRO NAME IN ERROR                   F0D37980
       SLT     EXPND          NO, DID NAME END WITH OPERATOR            F0D37990
       STZ     SYMBL          YES, IMPROPER CARD                        F0D38000
       ZET     SYMB2          NO, IS MACRO NAME TOO LONG                F0D38010
 MOP00 STZ     SYMBL          YES, IMPROPER CARD                        F0D38020
       REM     REENTRY FOR MACRO                                        F0D38030
       TSX     SETTP,4       *SET UP MACRO ROUTING                      F0D38040
       PZE     ROUTE,,MOPSW                                             F0D38050
       TSX     MACERR,4     **ALREADY SET UP                            F0D38060
       AXT     -1,4           SET MACRO DEFINITION CARD SWITCH          F0D38070
       SXD     MCRDF,4                                                  F0D38080
       CAL     SYMBL          LOAD RIGHT ADJUSTED SYMBOL NAME           F0D38090
       LDQ     Q0             (NAME WILL BE ZERO FOR IMPROPER CARD)     F0D38100
       LGR     6              LEFT ADJUST                               F0D38110
       TNZ     *-1                                                      F0D38120
       REM     REENTRY FOR CARD FOLLOWING BLANK MACRO CARD              F0D38130
 MOP01 AXT     MOP03,4        SET VECTOR UNTIL FIRST NON-ETC CARD       F0D38140
       SXA     MOPSW+1,4                                                F0D38150
       SXA     MOP02,2        SAVE WORD COUNT                           F0D38160
       SXA     MOP02+1,1      SAVE CHARACTER COUNT                      F0D38170
       CAL     MOPP2          SET PASS TWO TRANSFER                     F0D38180
       SLW     OPBIN          TO PRINT CARD                             F0D38190
       XCL                    RECALL LEFT ADJUSTED MACRO NAME           F0D38200
       SLW     MOPNM          SAVE FOR END TEST                         F0D38210
       TNZ     *+3            IS NAME NULL                              F0D38220
       CAL     UNDFL          YES, LOAD UNDEFINED MACRO FLAG            F0D38230
       TRA     *+4                                                      F0D38240
       TSX     SOPTB,4       *IS MACRO NAME IN OPERATIONS TABLE         F0D38250
       TRA     *+5            NO                                        F0D38260
       CAL     MFLAG          YES, SET MULTIPLE DEFINITION FLAG         F0D38270
       SLW     LITRL          SAVE FOR PASS TWO                         F0D38280
       AXT     5$MCERR,4      SET PASS TWO TRANSFER                     F0D38290
       SXD     OPBIN,4        TO PRINT FLAG AND CARD IN ERROR           F0D38300
       CAL     MOPNM          RELOAD MACRO NAME                         F0D38310
       LDI     MOPTR          LOAD POINTER TO MACRO DEFINITION TABLE    F0D38320
       TZE     *+2            WAS NAME NULL                             F0D38330
       TSX     EOPTT,4       *NO, ENTER IN COMBINED OPERATIONS TABLE    F0D38340
       LXD     MOPTR,1        RELOAD POINTER TO MACRO DEFINITION TABLE  F0D38350
       TXI     *+1,1,1        BUMP POINTER BY LENGTH OF HEADING         F0D38360
       AXT     1,2            SET SWITCH TO STUFF BACKWARD              F0D38370
       CAL     *              LOAD CALLING LINKAGE                      F0D38380
       TRA     STUFY         *INIT SUBROUTINE TO STUFF MACRO DEF TABLE  F0D38390
       ZSA     MPCNT          RESET MACRO ARGUMENT COUNT                F0D38400
       TSX     SARGT,4       *INITIALIZE LOCATION OF ARGUMENT TABLE     F0D38410
 MOP02 AXT     **,2           RELOAD WORD COUNT                         F0D38420
       AXT     **,1           RELOAD CHARACTER COUNT                    F0D38430
       TRA     MOP04                                                    F0D38440
       REM     REENTRY FOR MACRO ETC CARD                               F0D38450
 MOP03 NZT     ETCMD          IS ETC CARD EXPECTED                      F0D38460
       TSX     MACERR,4     **NO                                        F0D38470
       STZ     ETCMD          YES, RESET FLAG                           F0D38480
       TSX     RESTF,4       *RESTORE STUFF CONDITIONS                  F0D38490
       CAL     PSYMB          LOAD PARTIAL ARGUMENT                     F0D38500
       TZE     MOP04          IS THERE A PARTIAL ARGUMENT               F0D38510
       SLW     SYMBL          YES, PRESET PARTIAL ARGUMENT              F0D38520
       STZ     SYMB2          CLEAR HIGH ORDER PORTION                  F0D38530
       TSX     SSCET,4       *ASSEMBLE REST OF ARGUMENT                 F0D38540
       TXI     MOP06,,0       NO MORE ARGUMENT                          F0D38550
       CAL     SYMBL          LOAD ARGUMENT                             F0D38560
       LXA     MPCNT,4        LOAD COUNT OF PARTIAL ARGUMENT            F0D38570
       TRA     MOP05                                                    F0D38580
       REM     REENTRY TO ASSEMBLE NEXT ARGUMENT                        F0D38590
 MOP04 TSX     SSCAN,4       *ASSEMBLE NEXT ARGUMENT                    F0D38600
       TXI     MOP06,,0       NO MORE ARGUMENT                          F0D38610
       CAL     SYMBL          LOAD ARGUMENT                             F0D38620
       TZE     MOP05+1        IS ARGUMENT ZERO                          F0D38630
       LXA     MPCNT,4        NO, BUMP ARGUMENT COUNT                   F0D38640
       TXI     *+1,4,1                                                  F0D38650
       TXH     MOP05+1,4,63   DID ARGUMENT TABLE OVERFLOW               F0D38660
       SXA     MPCNT,4        NO                                        F0D38670
       REM     REENTRY FOR ARGUMENT LIST ETC CARD                       F0D38680
 MOP05 SLW     DARGS,4        INSERT ARGUMENT IN TABLE                  F0D38690
       REM     REENTRY FOR TRUNCATED ARGUMENT LIST                      F0D38700
       SLW     PSYMB          SAVE POSSIBLE PARTIAL ARGUMENT            F0D38710
       LXA     CHRCTR,4       LOAD PUNCTUATION CHARACTER                F0D38720
       TXL     MOP04,4,27                                               F0D38730
       TXL     MOP08,4,28     PUNCTUATION IS )                          F0D38740
       TXL     MOP04,4,42                                               F0D38750
       TXL     MOP07,4,43     PUNCTUATION IS $                          F0D38760
       TXL     MOP04,4,47                                               F0D38770
       TXL     MOP06,4,48     PUNCTUATION IS BLANK                      F0D38780
       TXL     MOP04,4,59                                               F0D38790
       TXL     *+2,4,60       PUNCTUATION IS (                          F0D38800
       TSX     MACERR,4     **CHARACTER IS ILLEGAL                      F0D38810
       REM     PUNCTUATION IS (                                         F0D38820
       CLA     PARNC          BUMP PARENTHESES COUNT                    F0D38830
       ADD     Q1                                                       F0D38840
       STO     PARNC                                                    F0D38850
       TRA     MOP04                                                    F0D38860
       REM     PUNCTUATION IS BLANK                                     F0D38870
 MOP06 ZET     PARNC          ARE PARENTHESES BALANCED                  F0D38880
       TRA     *+3            NO                                        F0D38890
       TXL     MOP07+3,2,-12  YES, IS VARIABLE FIELD EXHAUSTED          F0D38900
       TRA     MOP10          NO                                        F0D38910
       TSX     PEEKS,4       *DOES ETC CARD FOLLOW                      F0D38920
       TRA     GSC32          YES                                       F0D38930
       TRA     MOP10-1      **NO, FLAG ERROR                        (23)F0D38940
       REM     PUNCTUATION IS $                                         F0D38950
 MOP07 TSX     C019A,4       *LOOK AT NEXT CHARACTER                    F0D38960
       ERA     BLANK          IS IT BLANK                               F0D38970
       TNZ     MOP04          NO, $ IS HEADING CHARACTER                F0D38980
       REM     REENTRY FOR VARIABLE FIELD EXHAUSTED                     F0D38990
       TSX     PEEKS,4       *DOES ETC CARD FOLLOW                      F0D39000
       TRA     GSC32          YES                                       F0D39010
       TRA     MOP10          NO                                        F0D39020
       REM     PUNCTUATION IS )                                         F0D39030
 MOP08 CLA     PARNC          BUMP PARENTHESES COUNT                    F0D39040
       SUB     Q1                                                       F0D39050
       STO     PARNC                                                    F0D39060
       TPL     MOP04          ARE THERE TOO MANY RIGHT PARENTHESES      F0D39070
       TSX     MCER1,4       *YES, SET ERROR FLAG                   (23)F0D39080
       REM     NO ETC CARD FOLLOWS                                      F0D39090
 MOP10 AXT     MOP11,4        RESET TRANSFER UNTIL END CARD             F0D39100
       SXA     MOPSW+1,4                                                F0D39110
       LXD     MOPTR,1        LOAD POINTER TO THIS MACRO                F0D39120
       LXA     MPCNT,4        LOAD ARGUMENT COUNT                       F0D39130
       PXD     ,4                                                       F0D39140
       STO     0,1            INSERT ARGUMENT COUNT IN HEADING          F0D39150
       CAL     LCARG          LOAD POSSIBLE LOCATION ARGUMENT           F0D39160
       TZE     GSC32          DOES IT EXIST                             F0D39170
       STZ     LCARG          YES, RESET IT                             F0D39180
       TXI     *+1,4,1        BUMP ARGUMENT COUNT                       F0D39190
       SXA     MPCNT,4                                                  F0D39200
       SLW     DARGS,4        ADD LAST ARGUMENT                         F0D39210
       PXD     ,4                                                       F0D39220
       SSM                    SET FLAG FOR LOCATION TYPE ARGUMENT       F0D39230
       STO     0,1            INSERT REVISED ARGUMENT COUNT IN HEADING  F0D39240
       TRA     GSC32                                                    F0D39250
       REM     REENTRY FOR MACRO INSTRUCTION CARDS                      F0D39260
 MOP11 TSX     RESTF,4       *RESTORE STUFF CONDITIONS                  F0D39270
       ZET     ETCMD          IS AN ETC CARD EXPECTED                   F0D39280
       TRA     MSC10          YES                                       F0D39290
       CAL     OPCOD          NO, LOAD OPCODE                           F0D39300
       ERA     ENDMM          IS OPCODE END                             F0D39310
       TNZ     MSC01          NO                                        F0D39320
       REM     OPCODE IS END                                            F0D39330
       CAL     BCDBF          LOAD LOCATION FIELD                       F0D39340
       TSX     LOCFL,4       *ASSEMBLE LOCATION SYMBOL                  F0D39350
       TNZ     MOP12          IS THERE A SYMBOL                         F0D39360
       LDQ     RESIDU         NO, SAVE BEGINNING OF VARIABLE FIELD      F0D39370
       STQ     MOPMQ          WHILE FINDING MACRO NAME                  F0D39380
       CAL     CHRCTR                                                   F0D39390
       SLW     MOPCH                                                    F0D39400
       LXD     VRFLD,2        LOAD WORD COUNT                           F0D39410
       LXA     VRFLD,1        LOAD CHARACTER COUNT                      F0D39420
       TSX     SSCAN,4       *ASSEMBLE VARIABLE FIELD SYMBOL            F0D39430
       TXI     RMT02,,0       NO VARIABLE FIELD SYMBOL                  F0D39440
       LDQ     MOPMQ          RESTORE BEGINNING OF VARIABLE FIELD       F0D39450
       STQ     RESIDU                                                   F0D39460
       CAL     MOPCH                                                    F0D39470
       SLW     CHRCTR                                                   F0D39480
       CAL     SYMBL          LOAD SYMBOL                               F0D39490
 MOP12 LDQ     Q0             LEFT ADJUST                               F0D39500
       LGR     6                                                        F0D39510
       TNZ     *-1                                                      F0D39520
       XCL                                                              F0D39530
       ERA     MOPNM          IS THIS END OF MACRO                      F0D39540
       TZE     RMT02          YES                                       F0D39550
       TRA     MSC01          NO                                        F0D39560
       REM                                                              F0D39570
 RMTOP AXT     -1,4           SET MACRO DEFINITION CARD SWITCH          F0D39580
       SXD     MCRDF,4        (CALL CARD SWITCH FOR RMT * )             F0D39590
       CAL     CHRCTR         LOAD FIRST CHARACTER                      F0D39600
       ERA     ASTRK          IS IT *                                   F0D39610
       TNZ     RMT00          NO                                        F0D39620
       AXT     5$BES01+4,4    YES, SET PASS TWO TRANSFER ADDRESS       $F0D39630
       REM                    TO LIST LOCATION LEFT ADJUSTED            F0D39640
       SXD     OPBIN,4                                                  F0D39650
       TSX     OTPUT,4       *WRITE RMT * CARD                          F0D39660
       TSX     RMTSR,4       *OUTPUT WAITING SEQUENCES                  F0D39670
       TRA     SOURC                                                    F0D39680
 RMT00 TSX     SETTP,4       *SET UP REMOTE ROUTING                     F0D39690
       PZE     ROUTE,,MOPSW                                             F0D39700
       TSX     MACERR,4     **ALREADY SET UP                            F0D39710
       AXT     RMT01,4        SET TRANSFER UNTIL NEXT RMT CARD          F0D39720
       SXA     MOPSW+1,4                                                F0D39730
       CAL     MOPTR          LOAD POINTER TO MACRO DEFINITION TABLE    F0D39740
       LXD     RMTEN,1        LOAD POINTER TO LAST REMOTE               F0D39750
       STD     0,1            INSERT POINTER IN HEADING DECREMENT       F0D39760
       STD     RMTEN          RESET POINTER                             F0D39770
       PDX     ,1                                                       F0D39780
       CAL     BHEAD          INSERT CURRENT HEADING CHARACTER          F0D39790
       ANA     Q63            WITH EXTRANEOUS CHARACTERS DELETED        F0D39800
       SLW     0,1            AS HEADING ADDRESS                        F0D39810
       TXI     *+1,1,1        BUMP POINTER BY LENGTH OF HEADING         F0D39820
       ZSA     MPCNT          RESET REMOTE ARGUMENT COUNT               F0D39830
       AXT     1,2            SET SWITCH TO STUFF BACKWARD              F0D39840
       CAL     *              LOAD CALLING LINKAGE                      F0D39850
       TRA     STUFY         *INITIALIZE SUBROUTINE TO STUFF MACRO DEF  F0D39860
       TSX     SARGT,4       *INITIALIZE LOCATION OF ARGUMENT TABLE     F0D39870
       TRA     GSC32                                                    F0D39880
       REM                                                              F0D39890
       REM     REENTRY FOR REMOTE INSTRUCTION CARD                      F0D39900
 RMT01 TSX     RESTF,4       *RESTORE STUFF CONDITIONS                  F0D39910
       ZET     ETCMD          IS AN ETC CARD EXPECTED                   F0D39920
       TRA     MSC10          YES                                       F0D39930
       CAL     OPCOD          NO, LOAD OPCODE                           F0D39940
       ERA     RMTMM          IS OPCODE RMT                             F0D39950
       TNZ     MSC01          NO                                        F0D39960
       REM     OPCODE IS RMT, END OF REMOTE SEQUENCE                    F0D39970
       REM     REENTRY AFTER END OF MACRO DEFINITION                    F0D39980
       REM     CLOSE OUT MACRO DEFINITION TABLE                         F0D39990
 RMT02 TSX     SFZRO,4       *STUFF TERMINATING ZEROS                   F0D40000
       TRA     RMT03          TO CHECK FOR UNNESTED MACRO              $F0D40010
       SXD     MOPTR,2        NO, SET POINTER TO NEXT HEADING           F0D40020
       SXD     MAC07,2        RESET MACRO EXPANSION TABLE OVERFLOW TEST F0D40030
       TSX     OTPUT,4       *WRITE RMT/END CARD                        F0D40040
       ZSD     SSCN0          RESET MACRO DEFINITION SCAN SWITCH        F0D40050
       ZSD     MCRDF          RESET MACRO DEFINITION CARD SWITCH        F0D40060
       TSX     RESTP,4       *RESET ASSEMBLER ROUTING                   F0D40070
       PZE     ROUTE,,MOPSW                                             F0D40080
       TRA     SOURC                                                    F0D40090
       REM                                                              F0D40100
       REM     ANALYSE CARD IN RANGE OF MACRO OR RMT                    F0D40110
       REM     DEFINE CARD LOCATION FIELD                               F0D40120
 MSC01 CAL     BCDBF          LOAD LOCATION FIELD                       F0D40130
       LAS     BLANKS         DOES LOCATION FIELD EXIST                 F0D40140
       TRA     *+2            YES                                       F0D40150
       TRA     MSC02          NO                                        F0D40160
       TSX     LOCFL,4       *ASSEMBLE LOCATION SYMBOL (OR EXPLICIT 0)  F0D40170
       TSX     SMART,4       *LOOK UP LOCATION IN ARGUMENT TABLE        F0D40180
       TSX     SFARN,4       *STUFF ARGUMENT NUMBER                     F0D40190
       TSX     SFARS,4       *STUFF LOCATION SYMBOL                     F0D40200
       REM     DEFINE CARD OPCODE                                       F0D40210
 MSC02 AXC     Q1,1           PREPARE TO STUFF OP TAG                   F0D40220
       TSX     SFFLG,4       *STUFF FLAG                                F0D40230
       LDQ     RESIDU         SAVE BEGINNING OF VARIABLE FIELD          F0D40240
       STQ     MOPMQ          DURING OPCODE ANALYSIS                    F0D40250
       LDQ     CHRCTR                                                   F0D40260
       STQ     MOPCH                                                    F0D40270
       LDQ     BCDBF+1        LOAD OPCODE                               F0D40280
       LGL     6              INITIALIZE VARIABLE FIELD SCAN            F0D40290
       STQ     RESIDU         TO SCAN OPCODE                            F0D40300
       ZAC                    INITIALIZE FIRST CHARACTER IN OPCODE      F0D40310
       LGL     6                                                        F0D40320
       SLW     CHRCTR                                                   F0D40330
       AXT     -1,2           SET COUNT TO WORD 2                       F0D40340
       AXT     6,1            SET COUNT TO CHARACTER 2                  F0D40350
       REM     REENTRY AFTER ' OR *                                     F0D40360
 MSC03 TSX     SSCAN,4       *ASSEMBLE (PARTIAL) OP FIELD               F0D40370
       TXI     MSC05,,0       NULL OP FIELD                             F0D40380
       CAL     SYMBL          LOAD PARTIAL OP CODE                      F0D40390
       TZE     MSC04+2        IS THERE AN OP CODE                       F0D40400
       SXA     MSC04,2        YES, SAVE WORD COUNT                      F0D40410
       SXA     MSC04+1,1      SAVE CHARACTER COUNT                      F0D40420
       TSX     SMART,4       *LOOK UP OP CODE IN ARGUMENT TABLE         F0D40430
       TSX     SFARN,4       *STUFF ARGUMENT NUMBER                     F0D40440
       TSX     SFARS,4       *STUFF OPCODE                              F0D40450
 MSC04 AXT     **,2           RELOAD WORD COUNT                         F0D40460
       AXT     **,1           RELOAD CHARACTER COUNT                    F0D40470
       CAL     CHRCTR         RELOAD PUNCTUATION                        F0D40480
       LAS     PRIME          IS PUNCTUATION '                          F0D40490
       TRA     *+2            NO                                        F0D40500
       TRA     MSC03          YES, GET NEXT SUBFIELD                    F0D40510
       ERA     ASTRK          IS PUNCTUATION *                          F0D40520
       TNZ     MSC07          NO, CHECK FURTHER                     (24)F0D40530
 MSC06 CAL     CHRCTR         YES, SET SUBFIELD TO PUNCTUATION      (24)F0D40540
       SLW     SYMBL                                                    F0D40550
       TSX     SFARS,4       *STUFF *                                   F0D40560
       TRA     MSC03          GET NEXT SUBFIELD                         F0D40570
       REM     BEGINNING OF VARIABLE FIELD SENSED                       F0D40580
 MSC05 AXC     Q62,1          PREPARE TO STUFF FIELD TAG                F0D40590
       TSX     SFFLG,4       *STUFF FLAG                                F0D40600
       TRA     MSC09          COMPUTE VARIABLE FIELD POSITION       (24)F0D40610
       SXA     ERASE,1        STORE IT FOR STUFF ROUTINE            (24)F0D40620
       AXC     ERASE,1        STUFF INTO MACRO DEFINITION           (24)F0D40630
       TSX     SFFLG,4                                              (24)F0D40640
       REM                                                              F0D40650
       REM     BEGIN TESTS FOR OPCODES REQUIRING SPECIAL HANDLING       F0D40660
 MSC10 LXD     VRFLD,2        LOAD WORD COUNT                       (24)F0D40670
       LXA     VRFLD,1        LOAD CHARACTER COUNT                  (24)F0D40680
       AXT     -1,4           PRESET FIRST FIELD SWITCH                 F0D40690
       SXD     GSCSA+1,4                                                F0D40700
       STZ     COUNT          RESET FIELD COUNT                         F0D40710
       STZ     SYMBL          RESET FIELD                               F0D40720
       AXT     1,4            PRESET LENGTH OF FIELD TO BE STUFFED  (24)F0D40730
       SXD     TOTAL,4                                              (24)F0D40740
       CAL     OPCOD          LOAD OPCODE                               F0D40750
       REM     COMPARE FOR OP CODE OF BCD, BCI, TTL, OR REM         (23)F0D40760
       AXT     4,4            LOAD LENGTH OF TABLE                  (23)F0D40770
       LAS     BCDMM+4,4      COMPARE SUCCESSIVE ENTRIES            (23)F0D40780
       TRA     *+2            AND IF MATCH IS FOUND, GO INITIALIZE  (23)F0D40790
       TRA     MSC11          FOR FULL CARD SCAN                    (23)F0D40800
       TIX     *-3,4,1        IS LIST EXHAUSTED                     (23)F0D40810
       TRA     MSC1A          YES, GO CHECK FOR LITERAL             (23)F0D40820
       REM     PATCH TO MACRO INSTRUCTION ARGUMENT SCAN             (23)F0D40830
 MCERP TSX     MCER1,4        SET FLAG AND PASS TWO ADDRESS         (23)F0D40840
       TRA     SSN04+4                                              (23)F0D40850
       REM     ERROR ROUTINE FOR UNDEFINED MACRO NAME               (23)F0D40860
 MCER3 CAL     UNDFL          LOAD UNDEFINED FLAG                   (23)F0D40870
       TSX     MCERR,4       *SET FOR PASS TWO                      (23)F0D40880
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD        (23)F0D40890
       TRA     READ1                                                (23)F0D40900
       REM     PATCH TO IFF PSEUDO-OPERATION PROCESSOR              (23)F0D40910
 IFF06 TXH     IFF02,2,0      DO ARGUMENT LENGTHS DIFFER..          (23)F0D40920
       LXA     MARGS,4        NO, LOAD POINTER TO FIRST ARGUMENT    (23)F0D40930
       LXA     MARGS-1,2      LOAD POINTER TO SECOND ARGUMENT       (23)F0D40940
       SXD     IFF08,2        AND INITIALIZE TEST FOR END           (23)F0D40950
 IFF07 CAL     0,4            COMPARE CORRESPONDING WORDS           (23)F0D40960
       ERA     0,2            OF ARGUMENT STRINGS                   (23)F0D40970
       TNZ     IFF02          THROUGH IF DIFFERENT                  (23)F0D40980
       TXI     IFF08,4,-1     BUMP FIRST ARGUMENT POINTER           (23)F0D40990
 IFF08 TXL     IFF02+1,4,**   HAVE WE COMPARED ALL OF IT            (23)F0D41000
       TXI     IFF07,2,-1     NO, KEEP CHECKING                     (23)F0D41010
       REM     TEST FOR LITERAL                                        $F0D41020
 MSC1A CAL     CHRCTR                                                  $F0D41030
       ERA     EQUAL         IF EQUAL TREAT AS                         $F0D41040
       TNZ     MSC20         HOLLERITH FIELD                           $F0D41050
       REM     REENTRY FOR  TTL,REM, BCI, BCD WITH SYMBOLIC COUNT      $F0D41060
 MSC11 SXA     GSAV1,1       SAVE VARIABLE FIELD CHARACTER COUNT       $F0D41070
       TXI     MSC14,1,-1                                              $F0D41080
       REM     PATCH TO MACRO-INSTRUCTION PROCESSOR                 (23)F0D41090
 MACIF TXL     IFF01,4,**     IS THIS IFF PSEUDO OPERATION          (23)F0D41100
       TRA     MAC02          NO, CONTINUE TO ARGUMENT SCAN         (23)F0D41110
       REM     PATCH TO GENERAL SCAN ROUTINE TO PREVENT LOSS OF     (23)F0D41120
       REM     LAST PUNCTUATION CHARACTER OF ALPHANUMERIC FIELD     (23)F0D41130
 GSCBP AXC     MSC22,4        UPDATE RETURN ADDRESS FROM GSCET      (23)F0D41140
       SXA     SMARX,4        SUBROUTINE IN CASE NON-BLANK          (23)F0D41150
       TRA     MSC22+2        PUNCTUATION OCCURS LATER ON CARD      (23)F0D41160
       REM     RE-ENTRY FOR VARIABLE FIELD TO BE SCANNED IN FULL    (23)F0D41161
 MSC14 AXC     12,4          SET LENGTH OF CARD TO SCAN                $F0D41170
       SXD     GSC11+1,4     SET END OF HOLLERITH FIELD SCAN TEST      $F0D41180
       AXT     -1,4           SET HOLLERITH FIELD SWITCHES              F0D41190
       SXD     GSC07,4                                                  F0D41200
       SXD     GSC09,4                                                  F0D41210
       TRA     MSC22                                                    F0D41220
       REM     REENTRY FOR NONHOLLERITH OPCODES                         F0D41230
 MSC20 SXA     GSAV1,1        SAVE VARIABLE FIELD CHARACTER COUNT       F0D41240
       TXI     *+1,1,-1                                                 F0D41250
       NZT     ETCMD          IS ETC CARD EXPECTED                      F0D41260
       TRA     MSC22         NO                                        $F0D41270
       STZ     ETCMD          YES, RESET FLAG                           F0D41280
       LXD     PCONT,4        PRESET PARTIAL FIELD COUNT                F0D41290
       SXD     COUNT,4                                                  F0D41300
       CAL     PSYMB          PRESET PARTIAL SYMBOL                     F0D41310
       SLW     SYMBL                                                    F0D41320
       ZSD     GSC02+1        SET SWITCH TO PROCESS FIRST FIELD         F0D41330
       REM                                                              F0D41340
       REM     REENTRY FOR HOLLERITH OPCODES                            F0D41350
       REM     BEGIN VARIABLE FIELD SCAN                                F0D41360
 MSC22 TSX     GSCET,4       *ASSEMBLE NEXT FIELD                       F0D41370
       TRA     MSC23          FIELD IS AN ARGUMENT                      F0D41380
       REM     REENTRY FOR HOLLERITH FIELD NOT AN ARGUMENT              F0D41390
       ZSD     GSCSA+1        RESET FIRST FIELD SWITCH                  F0D41400
       CLA     COUNT          ADD FIELD COUNT                           F0D41410
       ADD     TOTAL          INTO STUFF COUNT                          F0D41420
       STO     TOTAL                                                    F0D41430
       STZ     COUNT          RESET FIELD COUNT                         F0D41440
       STZ     SYMBL          DELETE FIELD NOT AN ARGUMENT              F0D41450
       LXA     GSAV2,2        LOAD VARIABLE FIELD WORD COUNT            F0D41460
       TRA     GSC01                                                    F0D41470
       REM     FIELD IS AN ARGUMENT                                     F0D41480
       REM     REENTRY AFTER FIRST BLANK IN HOLLERITH FIELD             F0D41490
 MSC23 TSX     GSCSA,4       *STUFF ARGUMENT                            F0D41500
       STZ     COUNT          RESET FIELD COUNT                         F0D41510
       STZ     SYMBL          RESET FIELD                               F0D41520
       AXT     2,2            SET STUFF COUNT TO INCLUDE                F0D41530
       SXD     TOTAL,2        PRECEDING PUNCTUATION                     F0D41540
 GSAV2 AXT     **,2           LOAD VARIABLE FIELD WORD COUNT            F0D41550
 GSAV1 AXT     **,1           LOAD VARIABLE FIELD CHARACTER COUNT       F0D41560
       TRA     MSC22          ENSURE CORRECT RETURN ADDRESS         (23)F0D41570
       REM                                                              F0D41580
       REM     ASSEMBLE NEXT FIELD                                      F0D41590
 GSCET SXA     SMARX,4        SAVE CALLING LINKAGE                      F0D41600
       SXA     GSCX1,2        SAVE STUFF WORD COUNT                     F0D41610
       SXA     GSCX2,1        SAVE STUFF CHARACTER COUNT                F0D41620
 GSC01 LXA     GSAV1,1        LOAD VARIABLE FIELD CHARACTER COUNT       F0D41630
       TSX     C0190,4       *GET NEXT CHARACTER                        F0D41640
       SXA     GSAV1,1        SAVE VARIABLE FIELD CHARACTER COUNT       F0D41650
       LXD     COUNT,1        BUMP FIELD COUNT                          F0D41660
       TXI     *+1,1,1                                                  F0D41670
       SXD     COUNT,1                                                  F0D41680
       LXD     BKTBL,4        LOAD SPECIAL CHARACTER COUNT              F0D41690
       LAS     BKTBL,4        IS THIS A SPECIAL CHARACTER               F0D41700
       TRA     *+3            NO                                        F0D41710
       TRA     GSC02          YES                                       F0D41720
       TIX     *-3,4,1        IS SPECIAL CHARACTER COUNT EXHAUSTED      F0D41730
       CAL     SYMBL          YES, APPEND THIS CHARACTER                F0D41740
       ALS     6              TO PARTIAL SYMBOL                         F0D41750
       ORA     CHRCTR                                                   F0D41760
       SLW     SYMBL                                                    F0D41770
       TRA     GSC01                                                    F0D41780
       REM                                                              F0D41790
       REM     SYMBOL HAS BEEN ASSEMBLED, TRANSFER ON PUNCTUATION       F0D41800
 GSC02 SXA     GSAV2,2        SAVE VARIABLE FIELD WORD COUNT            F0D41810
       TXH     GSC16,2,-1     IS THIS FIRST FIELD ON ETC CARD           F0D41820
       TRA     GSC04+1,4      NO, PROCESS FIELD ON PUNCTUATION          F0D41830
       REM                                                              F0D41840
       TRA     GSC15          PUNCTUATION IS (                          F0D41850
       TRA     GSC34          PUNCTUATION IS ,                          F0D41860
       TRA     GSC34          PUNCTUATION IS /                          F0D41870
       TRA     GSC09          PUNCTUATION IS BLANK                      F0D41880
       TRA     GSC34          PUNCTUATION IS *                          F0D41890
       TRA     GSC08          PUNCTUATION IS $                          F0D41900
       TRA     GSC34          PUNCTUATION IS -                          F0D41910
       TRA     GSC07          PUNCTUATION IS )                          F0D41920
       TRA     GSC34          PUNCTUATION IS +                          F0D41930
       TRA     GSC05          PUNCTUATION IS '                          F0D41940
 GSC04 TRA     GSC34         PUNCTUATION IS =                          $F0D41950
       REM                                                              F0D41960
       REM     PUNCTUATION IS '                                         F0D41970
 GSC05 TSX     GSC33,4       *CHECK PRECEDING FIELD FOR ARGUMENT        F0D41980
       TRA     GSC06          FIELD IS AN ARGUMENT                      F0D41990
       CLA     COUNT          ADD FIELD COUNT                           F0D42000
       SUB     D1             LESS PUNCTUATION CHARACTER                F0D42010
       ADD     TOTAL          INTO STUFF COUNT                          F0D42020
       STO     TOTAL                                                    F0D42030
       TSX     GSCSF,4       *STUFF FIELD PRECEDING '                   F0D42040
       ZSD     GSCSA+1        RESET FIRST FIELD SWITCH                  F0D42050
       TRA     GSC06+1                                                  F0D42060
       REM     ' FOLLOWS ARGUMENT                                       F0D42070
 GSC06 TSX     GSCSA,4       *STUFF ARGUMENT PRECEDING '                F0D42080
       AXC     MSC22,4        SIMULATE CALL TO ASSEMBLE NEXT FIELD      F0D42090
       SXA     SMARX,4                                                  F0D42100
       STZ     COUNT          RESET FIELD COUNT                         F0D42110
       STZ     SYMBL          RESET FIELD                               F0D42120
       AXT     1,2            SET STUFF COUNT TO OMIT PRECEDING '       F0D42130
       SXD     TOTAL,2                                                  F0D42140
       LXA     GSAV2,2        LOAD VARIABLE FIELD WORD COUNT            F0D42150
       LXA     GSAV1,1        LOAD VARIABLE FIELD CHARACTER COUNT       F0D42160
       TIX     *+3,1,1        DELETE ' FROM STUFF COUNT                 F0D42170
       TXI     *+1,2,-1                                                 F0D42180
       AXT     6,1                                                      F0D42190
       SXA     GSCX2,1        SAVE STUFF CHARACTER COUNT                F0D42200
       SXA     GSCX1,2        SAVE STUFF WORD COUNT                     F0D42210
       LXA     GSAV2,2        RELOAD VARIABLE FIELD WORD COUNT          F0D42220
       TRA     GSC01                                                    F0D42230
       REM                                                              F0D42240
       REM     PUNCTUATION IS )                                         F0D42250
 GSC07 TXL     GSC34,4,**     IS ) WITHIN HOLLERITH FIELD               F0D42260
       CLA     PARNC          NO, BUMP PARENTHESES COUNT                F0D42270
       SUB     Q1                                                       F0D42280
       STO     PARNC                                                    F0D42290
       TPL     GSC34          ARE THERE TOO MANY RIGHT PARENTHESES      F0D42300
       TSX     SFZRO,4       *YES, END THIS RECORD                      F0D42310
       TRA     GSCPE        **SET ERROR FLAG                        (23)F0D42320
       REM                                                              F0D42330
       REM     PUNCTUATION IS $                                         F0D42340
 GSC08 LXA     GSAV1,1        LOAD VARIABLE FIELD CHARACTER COUNT       F0D42350
       TSX     C019A,4       *LOOK AT NEXT CHARACTER                    F0D42360
       ERA     BLANK          IS IT BLANK                               F0D42370
       TNZ     GSC34          NO, $ IS HEADING CHARACTER                F0D42380
       TSX     PEEKS,4       *YES, DOES ETC CARD FOLLOW                 F0D42390
       TRA     GSC20          YES                                       F0D42400
       NZT     PARNC          NO, ARE PARENTHESES BALANCED              F0D42410
       TRA     GSC34          YES                                       F0D42420
       TRA     GSCPE        **NO, SET FLAG                          (23)F0D42430
       REM                                                              F0D42440
       REM     PUNCTUATION IS BLANK                                     F0D42450
 GSC09 TXH     GSC12,4,**     IS BLANK WITHIN HOLLERITH FIELD           F0D42460
       TXH     GSC10,1,1     YES,HAS A FIELD BEEN COLLECTED            $F0D42470
       AXT     ,0            NO OPERATION                              $F0D42480
       TXL     GSC11,4,**     NO, IS THIS FIRST BLANK                   F0D42490
       AXT     -1,4           YES, RESET SWITCH                         F0D42500
       SXD     GSC09+3,4                                                F0D42510
       CLA     TOTAL          SAVE STUFF COUNT                          F0D42520
       STO     PCONT          TO OMIT TERMINATING BLANKS                F0D42530
       TRA     GSC11                                                    F0D42540
       REM     FIELD HAS BEEN COLLECTED                                 F0D42550
 GSC10 TSX     GSC33,4       *CHECK FIELD FOR ARGUMENT                  F0D42560
       TXI     G10P1,4,GSC10-1    *AXT -1,4  FIELD IS AN ARGUMENT.     $F0D42570
       CLA     COUNT          ADD FIELD COUNT                           F0D42580
       ADD     TOTAL          INTO HOLLERITH FIELD COUNT                F0D42590
       TXI     G10PA,4,GSC10-2    *AXT -2,4  STUFF UP TO BLANK.        $F0D42600
 GSC11 LXA     GSAV2,4        LOAD VARIABLE FIELD WORD COUNT            F0D42610
       TXH     GSCBP,4,**     IS HOLLERITH FIELD COMPLETE           (23)F0D42620
       ZSD     GSC09+3        YES, SET FIRST BLANK SWITCH               F0D42630
       CLA     PCONT          SET STUFF COUNT                           F0D42640
       STO     TOTAL          TO HOLLERITH FIELD COUNT                  F0D42650
       TSX     GSCSF,4       *STUFF FIELD PRECEDING BLANK               F0D42660
       TRA     GSC31                                                    F0D42670
       REM     CARD IS STANDARD FORMAT                                  F0D42680
 GSC12 NZT     PARNC          ARE PARENTHESES BALANCED                  F0D42690
       TRA     *+5            YES                                       F0D42700
       TXH     GSC34,2,-12    NO, IS VARIABLE FIELD EXHAUSTED           F0D42710
       TSX     PEEKS,4       *YES, DOES AN ETC CARD FOLLOW              F0D42720
       TRA     GSC20          YES                                       F0D42730
 GSCPE TSX     MCER1,4       *NO, SET ERROR FLAG                    (23)F0D42740
       REM     END OF VARIABLE FIELD - BLANK DOES NOT FOLLOW ( OR $     F0D42750
       TXH     *+4,2,-12      IS VARIABLE FIELD EXHAUSTED               F0D42760
       TSX     PEEKS,4       *YES, DOES AN ETC CARD FOLLOW              F0D42770
       TRA     GSC20          YES                                       F0D42780
       TRA     GSC13          NO                                        F0D42790
       TSX     PEEKS,4       *DOES A PROGRAMMERS ETC FOLLOW             F0D42800
       TRA     *+2            YES                                       F0D42810
       TRA     GSC13          NO                                        F0D42820
       STZ     ETCMD          RESET ETC FLAG                            F0D42830
       STZ     ARGNO          DELETE ARGUMENT NUMBER                    F0D42840
       TSX     SFARN+1,4      STUFF 7700 FLAG FOR FOLLOWING CARD ETC    F0D42850
       REM     REENTRY FOR NO ETC CARD TO FOLLOW                        F0D42860
 GSC13 TSX     GSC33,4       *CHECK FIELD FOR ARGUMENT                  F0D42870
       TRA     GSC14          FIELD IS AN ARGUMENT                      F0D42880
       CLA     COUNT          ADD FIELD COUNT                           F0D42890
       SUB     D1             LESS PUNCTUATION CHARACTER                F0D42900
       ADD     TOTAL          INTO STUFF COUNT                          F0D42910
       STO     TOTAL                                                    F0D42920
       TSX     GSCSF,4       *STUFF FIELD PRECEDING BLANK               F0D42930
       TRA     GSC31                                                    F0D42940
 GSC14 TSX     GSCSA,4       *STUFF ARGUMENT PRECEDING FINAL BLANK      F0D42950
       TRA     GSC31                                                    F0D42960
       REM                                                              F0D42970
       REM     PUNCTUATION IS (                                         F0D42980
 GSC15 CLA     PARNC          BUMP PARENTHESES COUNT                    F0D42990
       ADD     Q1                                                       F0D43000
       STO     PARNC                                                    F0D43010
       TRA     GSC34                                                    F0D43020
       REM                                                              F0D43030
       REM     REENTRY FOR FIRST FIELD ON ETC CARD                      F0D43040
 GSC16 SXA     GSC19,4        SAVE PUNCTUATION CHARACTER                F0D43050
       CLA     COUNT          COMPUTE LENGTH OF ADDED SYMBOL            F0D43060
       SUB     PCONT                                                    F0D43070
       STD     COUNT                                                    F0D43080
 GSC17 TXL     *+4,1,**       IS THIS TAIL END OF A FIELD               F0D43090
       REM                    WHICH WAS TOO LONG TO BE AN ARGUMENT      F0D43100
       TXH     *+3,1,7        NO, IS FIELD TOO LONG TO BE AN ARGUMENT   F0D43110
       TSX     GSC33,4       *NO, CHECK FIELD FOR ARGUMENT              F0D43120
       TRA     GSC18+2        FIELD IS AN ARGUMENT                      F0D43130
       ZSD     GSC17          RESET TAIL END SWITCH                     F0D43140
       LXD     PCONT,1        LOAD LENGTH OF PARTIAL FIELD              F0D43150
       TXL     GSC18,1,0      IS THERE A PARTIAL FIELD                  F0D43160
       TXI     *+1,1,1        YES, COMPUTE LENGTH+1 OF PARTIAL FIELD    F0D43170
       SXA     ERASE,1                                                  F0D43180
       AXC     ERASE,1                                                  F0D43190
       TSX     SFFLG,4       *STUFF COUNT+1                             F0D43200
       LXD     PCONT,4        LOAD LENGTH OF PARTIAL FIELD              F0D43210
       LDC     PCONT,2        COMPUTE LOCATION OF FIRST CHARACTER       F0D43220
       TXI     *+1,2,6                                                  F0D43230
       AXC     PSYMB,1        PREPARE TO STUFF PARTIAL FIELD            F0D43240
       CAL     *              LOAD CALLING LINKAGE                      F0D43250
       TRA     STUFF         *STUFF PARTIAL FIELD                       F0D43260
       TSX     MACERR,4     **IMPOSSIBLE RETURN                         F0D43270
       TRA     ETCPC          TRANSFER TO PATCH                        $F0D43280
 GSC18 AXT     -1,4           SET PARTIAL FIELD SWITCH                  F0D43290
       SXD     SMART+1,4                                                F0D43300
       AXT     -1,4           RESET FIRST FIELD SWITCH                  F0D43310
       SXD     GSC02+1,4                                                F0D43320
       AXC     MSC22,4        SIMULATE CALL TO ASSEMBLE NEXT FIELD      F0D43330
       SXA     SMARX,4                                                  F0D43340
       LXD     COUNT,1        LOAD LENGTH OF ADDED FIELD                F0D43350
 GSC19 AXT     **,4           RELOAD PUNCTUATION CHARACTER              F0D43360
       TRA     GSC02+2                                                  F0D43370
       REM                                                              F0D43380
       REM     ETC CARD WILL FOLLOW (BLANK, $BLANK, OR CARD COLUMN 72   F0D43390
 GSC20 LXD     COUNT,4        LOAD FIELD COUNT                          F0D43400
       TXI     *+1,4,-1       DELETE TERMINAL $ OR BLANK                F0D43410
       TXH     GSC21,4,6      IS FIELD TOO LONG TO BE AN ARGUMENT       F0D43420
       SXD     PCONT,4        NO, SAVE PARTIAL FIELD COUNT              F0D43430
       CAL     SYMBL          SAVE PARTIAL FIELD                        F0D43440
       SLW     PSYMB                                                    F0D43450
       TSX     GSCSF,4       *STUFF FIELD PRECEDING PARTIAL FIELD       F0D43460
       TRA     GSC32                                                    F0D43470
       REM     LAST FIELD IS NOT AN ARGUMENT                            F0D43480
 GSC21 STZ     PCONT          RESET LENGTH OF PARTIAL FIELD             F0D43490
       STZ     PSYMB          DELETE PARTIAL FIELD                      F0D43500
       PXD     ,4             RECALL LENGTH OF PARTIAL FIELD            F0D43510
       ADD     TOTAL          ADD INTO STUFF COUNT                      F0D43520
       STO     TOTAL                                                    F0D43530
       AXT     -1,4           SET SWITCH THAT FIRST FIELD ON NEXT CARD  F0D43540
       SXD     GSC17,4        IS TAIL END OF A FIELD NOT AN ARGUMENT    F0D43550
       TSX     GSCSF,4       *STUFF TERMINAL FIELD                      F0D43560
       TRA     GSC32                                                    F0D43570
       REM                                                              F0D43580
       REM     REENTRY AFTER END OF SCAN                                F0D43590
 GSC31 TSX     SFZRO,4       *STUFF END OF RECORD MARK                  F0D43600
       STZ     PARNC          RESET PAREN COUNT                         F0D43610
       ZSD     GSC07          RESET HOLLERITH FIELD SWITCHES            F0D43620
       ZSD     GSC09                                                    F0D43630
       REM     REENTRY AFTER END OF SCAN, ETC FOLLOWS                   F0D43640
       REM     REENTRY AFTER END OF MACRO DEFINING ARGUMENTS            F0D43650
 GSC32 LXD     STUFI,4        SAVE STUFF CONDITIONS                     F0D43660
       SXA     RSTF1,4        IN CASE MAC ALTERS THEM                   F0D43670
       LXD     STUM2,4                                                  F0D43680
       SXA     RSTF1+2,4                                                F0D43690
       TRA     READ1                                                    F0D43700
       REM                                                              F0D43710
       REM     REENTRY AFTER ' OR BLANK, OR FIRST FIELD ON ETC CARD     F0D43720
 GSC33 SXA     SMARX,4        SAVE CALLING LINKAGE                      F0D43730
       REM     REENTRY AFTER OTHER PUNCTUATION                          F0D43740
 GSC34 ZSD     GSC09+3        SET FIRST BLANK SWITCH                    F0D43750
       LXD     COUNT,4        LOAD FIELD WIDTH                          F0D43760
       TXH     SMARX,4,7      IS FIELD TOO LONG TO BE AN ARGUMENT       F0D43770
       CAL     SYMBL          NO, LOAD FIELD                            F0D43780
       TRA     SMART+1        CHECK FOR ARGUMENT                        F0D43790
       REM                    RETURN IS TO 1,4 FOR ARGUMENT             F0D43800
       REM                                 2,4 FOR OTHER FIELD          F0D43810
       REM                                                              F0D43820
       REM     STUFF ARGUMENT INTO MACRO DEFINITION                     F0D43830
 GSCSA SXA     GSCAX,4        SAVE CALLING LINKAGE                      F0D43840
       TXL     *+2,4,**       IS THIS FIRST FIELD                       F0D43850
       TSX     GSCSF,4       *NO, STUFF FIELD PRECEDING ARGUMENT        F0D43860
       TSX     SFARN+1,4     *STUFF ARGUMENT                            F0D43870
       ZSD     GSCSA+1        RESET FIRST FIELD SWITCH                  F0D43880
 GSCAX AXT     **,4           RELOAD CALLING LINKAGE                    F0D43890
       TRA     1,4                                                      F0D43900
       REM                                                              F0D43910
       REM     STUFF FIELD INTO MACRO DEFINITION                        F0D43920
 GSCSF SXA     GSFP1,4        SAVE CALLING LINKAGE.                    $F0D43930
       LXD     TOTAL,1        LOAD LENGTH OF VARIABLE FIELD             F0D43940
       TXL     GSCFX+1,1,1    DOES A VARIABLE FIELD EXIST...           $F0D43950
       TXL     *+3,1,61       YES. IS FIELD COUNT TOO LONG...          $F0D43960
       TXI     GSFPA,1,-14   *YES. BREAK IT UP AND STUFF TWICE.        $F0D43970
       SXD     TOTAL,1       *TELL GS0X1+1 HOW MUCH TO STUFF.          $F0D43980
       SXA     GSCFX,4        SET RETURN TO PATCH OR CALLER.           $F0D43990
 GSCS1 SXA     ERASE,1        SET LENGTH+1 OF FIELD                     F0D44000
       AXC     ERASE,1                                                  F0D44010
       TSX     SFFLG,4       *STUFF COUNT+1                             F0D44020
 GSCX2 AXC     **,2           LOAD COUNT OF FIRST CHAR TO BE STUFFED    F0D44030
 GSCX1 AXT     **,1           LOAD COUNT OF FIRST WORD TO BE STUFFED    F0D44040
       LXD     TOTAL,4        LOAD LENGTH OF FIELD TO BE STUFFED        F0D44050
       TXI     *+1,2,6        COMPUTE LOCATION OF FIRST CHARACTER       F0D44060
       TXI     *+1,1,-BCDBF   COMPUTE LOCATION OF FIRST WORD            F0D44070
       CAL     *              LOAD CALLING LINKAGE                      F0D44080
       TXI     STUFF,4,-1     STUFF FIELD                               F0D44090
       TSX     MACERR,4     **IMPOSSIBLE RETURN                         F0D44100
 GSCFX AXT     **,4           RELOAD CALLING LINKAGE                    F0D44110
       TRA     1,4                                                      F0D44120
       REM                                                              F0D44130
       REM     FLOAT MACRO ARGUMENT TABLE ABOVE SYMBOL TABLE            F0D44140
 SARGT LXD     STPTR,1        GET SYMBOL TABLE END                     $F0D44150
       TRA     SARGP          AND CHECK FOR NESTING                    $F0D44160
       SXD     MP1,1          INITIALIZE MAC DEF OVERFLOW TEST         $F0D44170
       AXT     -1,1           SET MACRO DEFINITION SCAN SWITCH          F0D44180
       SXD     SSCN0,1                                                  F0D44190
       TRA     1,4                                                      F0D44200
       REM                                                              F0D44210
       REM                                                              F0D44220
       REM     RESTORE STUFF CONDITIONS                                 F0D44230
 RESTF SXA     RSTFX,4        SAVE CALLING LINKAGE                      F0D44240
 RSTF1 AXT     **,4           RESTORE STUFF                             F0D44250
       TRA     MP1            TEST FOR OVERFLOW OF MACRO DEF TABLE     $F0D44260
       AXT     **,4           BY AN INTERVENING MAC CARD                F0D44270
       SXD     STUM2,4                                                  F0D44280
       SXD     STF01,4                                                  F0D44290
       ZSD     STF03+1        DELETE OVERFLOW TEST                      F0D44300
       ZSD     STF08+2                                                  F0D44310
       AXT     1,4                                                      F0D44320
       SXD     STF08+1,4      SET DIRECTION OF STUFF BACKWARD           F0D44330
       SXD     STF10+2,4                                                F0D44340
       AXT     ,0                                                   (23)F0D44350
       CAL     MOPP2          SET PASS 2 TRANSFER ADDRESS               F0D44360
       SLW     OPBIN          TO PRINT CARD                             F0D44370
 RSTFX AXT     **,4           RELOAD CALLING LINKAGE                    F0D44380
       TRA     1,4                                                      F0D44390
       REM                                                              F0D44400
       REM     LOOK UP SYMBOL IN ARG TABLE                              F0D44410
 SMARS CAL     SYMBL                                                    F0D44420
 SMART SXA     SMARX,4        SAVE CALLING LINKAGE                      F0D44430
       TXL     SMARX,4,**     IS THIS PARTIAL FIELD ON ETC CARD         F0D44440
       TZE     SMARX          NO, DOES ARGUMENT EXIST                   F0D44450
 MPCNT AXT     **,4           YES, LOAD COUNT OF ARGUMENTS IN TABLE     F0D44460
       TXL     SMARX,4,0      DO ARGUMENTS EXIST                        F0D44470
       LAS     DARGS,4        YES, IS IT THIS ARGUMENT                  F0D44480
       TRA     *+2            NO                                        F0D44490
       TRA     *+3            YES                                       F0D44500
       TIX     *-3,4,1        IS ARGUMENT TABLE EXHAUSTED               F0D44510
       TRA     SMARX          YES                                       F0D44520
       REM     ARGUMENT HAS BEEN LOCATED IN TABLE                       F0D44530
       SXD     ARGNO,4        SAVE ARGUMENT NUMBER                      F0D44540
       LXA     SMARX,4        RELOAD CALLING LINKAGE                    F0D44550
       TRA     1,4                                                      F0D44560
       REM     SYMBOL IS NOT AN ARGUMENT                                F0D44570
 SMARX AXT     **,4           RELOAD CALLING LINKAGE                    F0D44580
       ZSD     SMART+1        RESET PARTIAL FIELD SWITCH                F0D44590
       TRA     2,4                                                      F0D44600
       REM                                                              F0D44610
       REM     STUFF ARGUMENT NUMBER                                    F0D44620
 SFARN TXI     *+1,4,-1       BUMP CALLING LINKAGE TO RETURN TO 2,4     F0D44630
       SXA     SFARX,4        SAVE CALLING LINKAGE                      F0D44640
       CAL     ARGNO          LOAD ARGUMENT NUMBER                      F0D44650
       ORA     D4032          FORM 0077NN000000                         F0D44660
       SLW     ERASE                                                    F0D44670
       AXC     ERASE,1        PREPARE TO STUFF FROM ERASE               F0D44680
       AXT     1,6            BEGINNING WITH SECOND CHARACTER           F0D44690
       TXI     SFS04,4,1      USING TWO CHARACTERS                      F0D44700
       REM     STUFF ARGUMENT SYMBOL                                    F0D44710
 SFARS SXA     SFARX,4        SAVE CALLING LINKAGE                      F0D44720
       AXT     7,4            PREPARE TO COUNT CHARACTERS               F0D44730
       AXT     0,2                                                      F0D44740
       ZAC                                                              F0D44750
       LDQ     SYMBL          LOAD SYMBOL                               F0D44760
       LGL     6              NEXT CHARACTER                            F0D44770
       TNZ     *+3            IS THIS IT                                F0D44780
       TXI     *+1,2,1        NO, BUMP CHARACTER COUNT                  F0D44790
       TIX     *-3,4,1        IS SYMBOL ALL SCANNED                     F0D44800
       SXA     SFS03,4        SAVE LENGTH OF SYMBOL                     F0D44810
       SXA     SFS03+1,2      SAVE STARTING CHARACTER                   F0D44820
       TXH     SFS02,4,1      WAS FIELD BLANK OR ZERO                   F0D44830
       AXC     D2,1           YES, PREPARE TO STUFF EXPLICIT ZERO       F0D44840
       AXT     2,2            BEGINNING WITH THIRD CHARACTER            F0D44850
       TXI     SFS04,4,1      USING TWO CHARACTERS                      F0D44860
       REM     ARGUMENT SYMBOL EXISTS                                   F0D44870
 SFS02 SXA     ERASE,4        SET LENGTH+1 OF SYMBOL                    F0D44880
       AXC     ERASE,1                                                  F0D44890
       TSX     SFFLG,4       *STUFF COUNT+1                             F0D44900
 SFS03 AXT     **,4           RELOAD LENGTH+1 OF SYMBOL                 F0D44910
       AXT     **,2           RELOAD POSITION OF FIRST CHARACTER        F0D44920
       AXC     SYMBL,1        PREPARE TO STUFF ARGUMENT SYMBOL          F0D44930
       TXI     *+1,4,-1       USING LENGTH OF SYMBOL                    F0D44940
 SFS04 CAL     *              LOAD CALLING LINKAGE                      F0D44950
       TRA     STUFF         *STUFF SYMBOL OR COUNT AND FLAG            F0D44960
       TSX     MACERR,4     **IMPOSSIBLE RETURN                         F0D44970
 SFARX AXT     **,4           RELOAD CALLING LINKAGE                    F0D44980
       TRA     1,4                                                      F0D44990
       REM                                                              F0D45000
       REM     STUFF TERMINATING ZEROS                                  F0D45010
 SFZRO AXC     Q0,1           PREPARE TO STUFF FROM ZEROS               F0D45020
       REM     STUFF COUNT OR FLAG                                      F0D45030
 SFFLG SXA     SFZRX,4        SAVE CALLING LINKAGE                      F0D45040
       AXT     5,2            PREPARE TO STUFF FROM LAST CHARACTER      F0D45050
       AXT     1,4            USING ONE CHARACTER                       F0D45060
       CAL     *                                                        F0D45070
       TRA     STUFF                                                    F0D45080
       TSX     MACERR,4     **IMPOSSIBLE RETURN                         F0D45090
 SFZRX AXT     **,4           RELOAD CALLING LINKAGE                    F0D45100
       TRA     1,4                                                      F0D45110
       EJECT                                                            F0D45120
       REM     ROUTINES TO EXPAND MACROS                                F0D45130
       REM                    IFF, IRP, MAC, RMT *                      F0D45140
       REM                                                              F0D45150
 IFFOP TSX     SCANF,4       *EVALUATE SWITCH                           F0D45160
       TXI     AFLAG+2,,0     NULL SWITCH                               F0D45170
       SLT     EXPRR          IS SWITCH IN ERROR                        F0D45180
       NZT     RBITS          NO, IS SWITCH ABSOLUTE                    F0D45190
       TZE     *+2            YES, IS SWITCH ZERO                       F0D45200
       CAL     Q1             NO, SET ABSOLUTE NONZERO, OR RELOCATABLE, F0D45210
       REM                    SWITCH NOT IN ERROR TO 1                  F0D45220
       SLW     VAREQ                                                    F0D45230
       AXT     -1,4           SET INTERCEPT IN MACRO PROCESSOR      (23)F0D45240
       SXD     MACIF,4        TO RETURN AFTER SCAN INITIALIZATION   (23)F0D45250
       SXD     SSN33,4        SET SWITCH FOR POSSIBLE ETC           (23)F0D45260
       SXA     VRFLD,1        UPDATE CHARACTER POSITION             (23)F0D45265
       TRA     MACOP+3       *INITIALIZE FOR ARGUMENT SCAN          (23)F0D45270
       REM     REENTRY FROM MACRO ARGUMENT SCAN INITIALIZATION      (23)F0D45275
 IFF01 ZSD     MACIF          RESET SWITCH                          (23)F0D45280
       SLT     FLDND         WAS END OF VARIABLE FIELD SENSED       (33)F0D45290
       TRA     IFFIX         NO                                     (33)F0D45300
       TRA     IFFIX+1       YES                                    (33)F0D45310
       LXD     MARGS,2        OBTAIN LENGTH OF FIRST ARGUMENT       (23)F0D45320
       TXH     *+2,2,0        IS IT NULL                            (23)F0D45330
       TXL     IFF02+1,4,1    YES,TRANSFER IF NO SECOND ARGUMENT    (23)F0D45340
       LDC     MARGS-1,4      INITIALIZE COMPUTATION OF             (23)F0D45350
       SXD     *+1,4          DIFFERENCE IN ARGUMENT LENGTHS        (23)F0D45360
       TXI     IFF06,2,**    *COMPUTE DIFFERENCE IN LENGTH          (23)F0D45370
       REM     REENTRY FROM COMPARISON OF ARGUMENTS                 (23)F0D45380
 IFF02 CAL     Q1             LOAD FLAG FOR UNEQUAL ARGUMENTS       (23)F0D45390
       ERA     VAREQ          COMBINE WITH SWITCH                       F0D45400
       TNZ     *+6            SHOULD FOLLOWING CARD BE OMITTED          F0D45410
       AXT     -1,4           YES, SET FIRST CARD SWITCH                F0D45420
       SXD     IFF04,4                                                  F0D45430
       TSX     SETTP,4       *PLANT IFF INTERCEPT                       F0D45440
       PZE     ROUTE,,IFF03                                             F0D45450
       TSX     MACERR,4     **ALREADY SET UP                            F0D45460
       TSX     PMCS3,4        RESTORE MACRO STATUS                  (23)F0D45470
       ZSD     SSN33          RESET FOR NORMAL ETC PRINTING         (23)F0D45480
       TRA     READ1          YES                                       F0D45490
       REM     RETURN FROM MACRO COMPILER FOR SUBSEQUENT CARD           F0D45500
 IFF03 CAL     BCDBF+1        LOAD OPCODE                               F0D45510
       ANA     PKMSK          MASK IN CC 8 - 11                         F0D45520
       ERA     ETCMK          IS CARD ETC                               F0D45530
       TZE     IFF04+2        YES, CONTINUE DELETING GENERATED CARDS    F0D45540
 IFF04 TXH     IFF05,4,**     HAS A NON ETC CARD BEEN DELETED           F0D45550
       ZSD     IFF04          NOT YET, RESTORE SWITCH                   F0D45560
       AXT     5$TTL03+1,4    SET PASS TWO TRANSFER ADDRESS TO LIST    $F0D45570
       SXD     OPBIN,4        THIS CARD UNDER CONTROL OF PCC           $F0D45580
       TRA     READ1                                                    F0D45590
       REM     DELETION IS COMPLETE                                     F0D45600
 IFF05 TSX     RESTP,4       *REMOVE INTERCEPT                          F0D45610
       PZE     ROUTE,,IFF03                                             F0D45620
       TRA     ROUTE                                                    F0D45630
       REM                                                              F0D45640
 IRPOP LXA     CLEVL,4        LOAD MACRO LEVEL                          F0D45650
       TXL     OPERR,4,0    **IS IRP WITHIN A MACRO                     F0D45660
       AXT     -1,4           YES, SET SWITCH TO INTERCEPT              F0D45670
       SXD     CMP22,4        SUBSEQUENT IRP CARD                       F0D45680
       TSX     OTPT0,4       *LIST FIRST IRP                            F0D45690
       TSX     IRP10,4       *SUPPRESS FOLLOWING ETC                    F0D45700
       LXA     CHRCTR,1       LOAD FIRST CHARACTER IN VARIABLE FIELD    F0D45710
       TXI     *+1,1,-48      IS IT BLANK                               F0D45720
       TXL     IRP01+1,1,0    YES                                       F0D45730
 IRP01 AXT     **,1           NO, LOAD ARGUMENT NUMBER                  F0D45740
       SXD     IRPNO,1                                                  F0D45750
       TXL     IRP06+1,1,0    IS IRP ON AN ARGUMENT                     F0D45760
       CAL     MDFCT          YES, SAVE MACRO DEFINITION WORD,,CHAR     F0D45770
       SLW     IRPPW          COUNT OF BEGINNING OF IRP                 F0D45780
       CLA     MARGS+1,1      LOAD POINTER TO IRP ARGUMENT              F0D45790
       STO     IRPAR          SAVE IT FOR END OF IRP                    F0D45800
       ADD     Q1                                                       F0D45810
       STA     IRPSD          SET WORD COUNT OF BEGINNING OF ARGUMENT   F0D45820
       AXT     5,4                                                      F0D45830
       SXD     IRPSD,4        SET CHAR COUNT OF BEGINNING OF ARGUMENT   F0D45840
       CAL     COMMA          PRESET LAST PUNCTUATION TO ,              F0D45850
       STA     IRPNO          TO SCAN ARGUMENTS ON GENERATED IRP CARD   F0D45860
       STA     LCHAR                                                    F0D45870
       TXI     IRP03,1,-1                                               F0D45880
       REM     REENTRY FROM COMPILER FOR NEXT CARD IN RANGE OF IRP      F0D45890
 IRP02 CAL     BCDBF+1        LOAD OP FIELD                             F0D45900
       ANA     PKMSK          MASK IN CARD COLUMNS 8 - 11               F0D45910
       ERA     IRPMK          IS OPCODE IRP                             F0D45920
       TZE     *+4            YES                                       F0D45930
       LXD     IRPNO,4        NO, LOAD IRP ARGUMENT COUNT               F0D45940
       TXL     IRP06+1,4,0    IS IRP ON AN ARGUMENT                     F0D45950
       TRA     CMP22+1        YES                                       F0D45960
       REM     SUBSEQUENT CARD IS IRP MARKING END OF RANGE              F0D45970
       TSX     IRP10,4       *SUPPRESS FOLLOWING ETC                    F0D45980
       LXD     IRPNO,1        LOAD ARGUMENT NUMBER                      F0D45990
       TXL     IRP06,1,0      WAS IRP ON AN ARGUMENT                    F0D46000
       CAL     IRPNO          YES, PRESET PUNCTUATION                   F0D46010
       STA     LCHAR          AT BEGINNING OF NEXT STRING               F0D46020
       ANA     ADDMK                                                    F0D46030
       ERA     BLANK          IS IT BLANK                               F0D46040
       TZE     IRP05          YES, IRP ARGUMENTS ARE EXHAUSTED          F0D46050
       TXI     *+1,1,-1       NO, BUMP ARGUMENT COUNT                   F0D46060
       CLA     MARGS,1        LOAD REFERENCE TO THIS ARGUMENT           F0D46070
       STA     MEPTR          OVERLAP ARGUMENTS                         F0D46080
       REM     REENTRY FOR FIRST IRP CARD                               F0D46090
 IRP03 STZ     MARGS,1        DELETE REFERENCE TO THIS ARGUMENT         F0D46100
       SXD     ARGJL,1        SET ARGUMENT INDEX                        F0D46110
       AXT     -1,1                                                     F0D46120
       SXD     SSN17,1        SET SWITCH TO AVOID BUMPING ARG INDEX     F0D46130
       CAL     PRNLS          SET PAREN LEVEL TO 0, ENABLE SCAN FOR ,   F0D46140
       LXA     LCHAR,4        LOAD LAST PUNCTUATION                     F0D46150
       TXL     *+3,4,59       WAS IT (                                  F0D46160
       TXH     *+2,4,60       NO                                        F0D46170
       CAL     PRNLT          YES, SET PAREN LEVEL TO 1, DISABLE , SCAN F0D46180
       SLW     PLEVL                                                    F0D46190
       CAL     IRPSD          SET BEGINNING OF STRING                   F0D46200
       STD     SSNBC          CHARACTER COUNT                           F0D46210
       STA     SSNBW          WORD COUNT                                F0D46220
       TSX     SCANS,4       *INITIALIZE CHARACTER SCAN ROUTINE         F0D46230
       TXL     SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D46240
       TXL     SSN01,,4       PUNCTUATION RETURN,,LENGTH OF TABLE       F0D46250
       TXL     ,1,0           NULLIFY OVERFLOW TEST                     F0D46260
       TSX     SSINS,4       *ASSEMBLE NEXT STRING                      F0D46270
       LXD     IRPNO,4        LOAD ARGUMENT COUNT                       F0D46280
       CAL     MARGS+1,4      LOAD REFERENCE TO THIS ARGUMENT           F0D46290
       TNZ     *+5            IS THIS FINAL NULL STRING                 F0D46300
       CAL     IRPNO                                                    F0D46310
       ANA     ADDMK                                                    F0D46320
       ERA     COMMA          WAS PUNCTUATION COMMA                     F0D46330
       TNZ     IRP05+1                                                  F0D46340
       LXD     SSNBC,2        NO, HOLD COUNTS OF START OF FOLLOWING STRNF0D46350
       LXA     SSNBW,1                                                  F0D46360
       SXD     IRPSD,2                                                  F0D46370
       SXA     IRPSD,1                                                  F0D46380
       CAL     CCHAR          HOLD CURRENT PUNCTUATION CHARACTER        F0D46390
       STA     IRPNO          FOR BEGINNING OF FOLLOWING STRING         F0D46400
       CAL     IRPPW          RESTORE MACRO DEFINITION WORD,,CHAR COUNT F0D46410
       SLW     MDFCT          FOR NEXT ITERATION OVER RANGE OF IRP      F0D46420
       TRA     IRP06+1                                                  F0D46430
       REM     ARGUMENT LIST IS EXHAUSTED                               F0D46440
 IRP05 LXD     IRPNO,4        LOAD ARGUMENT COUNT                       F0D46450
       CAL     IRPAR          RESTORE REFERENCE TO THIS ARGUMENT        F0D46460
       SLW     MARGS+1,4                                                F0D46470
 IRP06 ZSD     CMP22          RESET IRP INTERCEPT                       F0D46480
       TRA     SOURC                                                    F0D46490
       REM                                                              F0D46500
       REM     PREPARE FOR FOLLOWING ETC                                F0D46510
 IRP10 SXA     IRP1X,4        SAVE CALLING LINKAGE                      F0D46520
       TSX     PEEKS,4       *WILL FOLLOWING CARD BE AN ETC             F0D46530
       TRA     *+2            YES                                       F0D46540
       TRA     IRP1X          NO                                        F0D46550
       LXD     MDFCT,1        BUMP MACRO DEFINITION CHARACTER COUNT     F0D46560
       TXI     *+1,1,1                                                  F0D46570
       SXD     MDFCT,1                                                  F0D46580
       STZ     ETCMD          SUPPRESS ETC CARD                         F0D46590
       ZSD     CMP01          AS SCAN WAS IN MACRO EXPANSION TABLE      F0D46600
 IRP1X AXT     **,4           RELOAD CALLING LINKAGE                    F0D46610
       TRA     1,4                                                      F0D46620
       REM                                                              F0D46630
 MACOP SLN     1              SET FLAG FOR MAC CALL                     F0D46640
       REM     ENTRY FOR MACRO NAME IN OPFIELD                          F0D46650
       AXT     -1,4           SET MACRO DEFINITION CARD SWITCH          F0D46660
       SXD     MCRDF,4                                                  F0D46670
       TXI     *+1,2,-BCDBF   COMPUTE VARIABLE FIELD WORD COUNT         F0D46680
       LAC     VRFLD,1        COMPUTE COUNT OF FIRST CHARACTER          F0D46690
       TXI     *+1,1,6        IN VARIABLE FIELD                         F0D46700
       SXA     SSNBW,2        SAVE COUNTS OF BEGINNING OF STRING        F0D46710
       SXD     SSNBC,1                                                  F0D46720
       TSX     PMCS1,4       *PUSH MACRO STATUS DOWN                    F0D46730
       CAL     INDFG          SET INDIRECTLY ADDRESSED MACRO FLAG       F0D46740
       STA     MCIND                                                    F0D46750
       TSX     SCANS,4       *INITIALIZE CHARACTER SCAN ROUTINE         F0D46760
       TXL     SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D46770
       TXL     SSN01,,4       PUNCTUATION RETURN,,LENGTH OF TABLE       F0D46780
       TXL     SSN03,1,-BCDBF-12 OVERFLOW TEST                          F0D46790
       CAL     PRNLS          ENABLE SCAN FOR ,                         F0D46800
       SLW     PLEVL          SET PAREN LEVEL TO 0                      F0D46810
       CAL     COMMA          PRESET LAST PUNCTUATION TO ,              F0D46820
       STA     LCHAR                                                    F0D46830
       STZ     MARGS          RESET REFERENCE TO THIS ARGUMENT          F0D46840
       ZSD     ARGJL          RESET ARGUMENT INDEX                      F0D46850
       SLT     1              IS THIS MAC CALL                          F0D46860
       TRA     MACIF          NO, TEST FOR IFF                      (23)F0D46870
       TSX     SSING,4       *YES, LOCATE MACRO NAME IN STRING          F0D46880
       LXD     MARGS,4        LOAD NUMBER OF CHARACTERS IN NAME         F0D46890
       TXL     MCER3,4,0    **IS NAME NULL                              F0D46900
       LXD     MARGS,2        NO, LOAD LENGTH OF MACRO NAME             F0D46910
       LXA     MARGS,1        LOAD POINTER TO NAME IN MACEXP            F0D46920
       CAL     0,1            LOAD MACRO NAME                           F0D46930
       ANA     MARMK,2        MASK OUT FOLLOWING GARBAGE                F0D46940
       TSX     SOPTB,4       *EVALUATE MACRO NAME                       F0D46950
       TRA     MCER3        **NOT FOUND                                 F0D46960
       RNT     100000         IS THIS MACHINE OPERATION                 F0D46970
       LNT     200000         NO, IS THIS PSEUDOOPERATION               F0D46980
       TRA     MCER3        **YES                                       F0D46990
       STZ     MARGS          NO, IT IS MACRO, DELETE MACRO NAME        F0D47000
       ZSD     ARGJL          RESET ARGUMENT INDEX                      F0D47010
       PIA                    RECALL SYMBOL DEFINITION                  F0D47020
       PDX     ,1             LOAD POINTER TO MACRO SKELETON            F0D47030
       TXI     MAC02+2,1,1    BUMP PAST DEFINITION HEAD                 F0D47040
       REM     REENTRY FOR MACRO NAME IN OPFIELD                        F0D47050
 MAC02 LXD     OPBIN,1        LOAD POINTER FROM OP TABLE                F0D47060
       TXI     *+1,1,1        BUMP PAST DEFINITION HEAD                 F0D47070
       SXA     MDFCT,1        SET FIRST WORD OF MACRO SKELETON          F0D47080
       ZSD     MDFCT          SET MACRO DEFINITION CHARACTER COUNT      F0D47090
       REM                    TO FIRST CHARACTER IN WORD                F0D47100
       CAL     MOPP2          SET PASS TWO TRANSFER ADDRESS             F0D47110
       STO     OPBIN          IN CASE OF EMPTY MACRO                   $F0D47120
       CAL     0,1            LOAD FIRST WORD OF MACRO DEFINITION       F0D47130
       TNZ     *+3            IS MACRO EMPTY                            F0D47140
       TSX     PMCS3,4       *YES, PUSH MACRO STATUS UP                 F0D47150
       TRA     MAC2A                                                   $F0D47160
       CLA     1,1            NO, LOAD MACRO ARGUMENT COUNT             F0D47170
       STD     ARGIL          SET ARGUMENT COUNT                        F0D47180
       AXT     5$BES01+3,1    SET PASS TWO TRANSFER ADDRESS TO OMIT    $F0D47190
       TPL     MAC03          IS THERE A LOCATION ARGUMENT              F0D47200
       AXT     5$UNLOP+1,1    YES, RESET PASS 2 TRANSFER ADDRESS TO OMITF0D47210
       REM                    LISTING OCTAL LOCATION                    F0D47220
       CAL     BCDBF          LOAD LOCATION FIELD                       F0D47230
       TSX     LOCFL,4       *ASSEMBLE LOCATION SYMBOL                  F0D47240
       SLW     ARGWD          HOLD TO END OF ETC CARDS                  F0D47250
       TRA     MAC03+1        PREVENT MULTIPLY DEFINED LOCATION FIELDS  F0D47260
       REM     ASSEMBLE ARGUMENTS                                       F0D47270
 MAC03 TSX     ESYML,4       *DEFINE LOCATION FIELD                     F0D47280
       SXD     OPBIN,1        SET PASS TWO TRANSFER ADDRESS             F0D47290
       TSX     SSINS,4       *ASSEMBLE ARGUMENT STRINGS                 F0D47300
 MEPTR AXT     **,1           LOAD POINTER TO NEXT ENTRY                F0D47310
       REM                    IN MACRO EXPANSION TABLE                  F0D47320
       TRA     MAC06                                                    F0D47330
       REM     REENTRY TO CREATE NEXT SYMBOL                            F0D47340
 MAC04 NZT     CRSNO          ARE CREATED SYMBOLS PERMITTED             F0D47350
       TRA     MAC05          NO                                        F0D47360
 CRSCT AXT     **,4           YES, LOAD CREATED SYMBOL COUNT            F0D47370
       TXI     *+1,4,1        BUMP TO NEXT SYMBOL                       F0D47380
       SXA     CRSCT,4                                                  F0D47390
       TXL     *+3,4,9999     ARE THERE TOO MANY CREATED SYMBOLS        F0D47400
       LDI     CRSNM          YES, LOAD CREATED SYMBOL NAME             F0D47410
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D47420
       PXA     ,4             NO, LOAD SYMBOL                           F0D47430
       TSX     BCDCV,4       *CONVERT TO BCD                            F0D47440
       LAS     ADTMK          IS CREATED SYMBOL GREATER THAN 3 DIGITS   F0D47450
       TRA     *+3            YES                                       F0D47460
       NOP                    NO                                        F0D47470
       ORA     CRPT1          APPEND . AS SECOND CHARACTER              F0D47480
       ALS     6              LEFT ADJUST                               F0D47490
       ORA     CRPT2          APPEND . AS FIRST CHARACTER               F0D47500
       SLW     0,1            INSERT CREATED SYMBOL                     F0D47510
       SXA     CRSNO,1        SAVE POINTER TO THIS SYMBOL               F0D47520
       TXI     *+1,1,-1       BUMP POINTER TO NEXT ENTRY                F0D47530
       REM     REENTRY FOR CREATED SYMBOLS SUPPRESSED                   F0D47540
 MAC05 CAL     CRSNO          LOAD CREATED SYMBOL POINTER,,COUNT        F0D47550
       LXD     ARGJL,2        LOAD ARGUMENT TABLE INDEX                 F0D47560
       TXI     *+1,2,1        BUMP ARGUMENT TABLE INDEX                 F0D47570
       SXD     ARGJL,2                                                  F0D47580
       SLW     MARGS+1,2      INSERT REFERENCE                          F0D47590
       REM     REENTRY AFTER ASSEMBLING STRING                          F0D47600
 MAC06 LXD     ARGIL,4        LOAD LENGTH OF ARGUMENT LIST              F0D47610
 ARGJL TXH     MAC04,4,**     ARE ANY TERMINAL ARGUMENTS MISSING        F0D47620
       REM                    (DECREMENT IS CURRENT ARGUMENT NUMBER)    F0D47630
       CAL     ARGWD          NO, LOAD SUBSTITUTABLE LOCATION FIELD     F0D47640
       TZE     MAC07          IS THERE ANY                              F0D47650
       LDQ     BLANKS         YES, LOAD FOLLOWING BLANKS                F0D47660
       AXT     1,2            PREPARE TO COUNT CHARACTERS               F0D47670
       LGR     6              LEFT ADJUST SYMBOL                        F0D47680
       TZE     *+2                                                      F0D47690
       TXI     *-2,2,1                                                  F0D47700
       STQ     0,1            INSERT LOCATION ARGUMENT IN MACEXP TABLE  F0D47710
       PXA     ,1                                                       F0D47720
       TXI     *+1,1,-1       BUMP POINTER TO NEXT ENTRY                F0D47730
       SLW     MARGS+1,4      OVERWRITE PREVIOUS POINTER WORD           F0D47740
       PXD     ,2             RECALL CHARACTER COUNT                    F0D47750
       STD     MARGS+1,4      INSERT IN REFERENCE                       F0D47760
       STZ     ARGWD          DELETE SUBSTITUTABLE LOCATION FIELD       F0D47770
       REM     REENTRY FOR CREATED ARGUMENTS SUPPRESSED                 F0D47780
 MAC07 TXL     OVRLP,1,**     IS MACRO EXPANSION TABLE FULL             F0D47790
       SXA     MEPTR,1        NO, SAVE POINTER TO NEXT ENTRY            F0D47800
       TSX     PMCL1,4       *BUMP MACRO LEVEL                          F0D47810
       TSX     OTPUT,4       *WRITE MACRO CALL CARD                     F0D47820
       ZSD     MCRDF          RESET MACRO CALL CARD SWITCH              F0D47830
       TRA     SOURC                                                    F0D47840
       REM                                                              F0D47850
       REM     OUTPUT REMOTE SEQUENCES                                  F0D47860
 RMTSR SXA     RMTSX,4        SAVE CALLING LINKAGE                      F0D47870
       TSX     SETTP,4       *SET UP REMOTE ROUTING                     F0D47880
       PZE     SOURC,,RMTS1                                             F0D47890
       TSX     MACERR,4     **ALREADY SET UP                            F0D47900
       CAL     BHEAD          SAVE CURRENT HEADING CHARACTER            F0D47910
       STA     RMTS2                                                    F0D47920
       ZSD     MCRDF          RESET MACRO CALL CARD SWITCH              F0D47930
       REM     REENTRY AFTER OUTPUTTING REMOTE SEQUENCE                 F0D47940
 RMTS1 LXD     RMTEN+1,1      LOAD POINTER TO NEXT SEQUENCE             F0D47950
       TXL     RMTS2,1,0      IS TABLE EXHAUSTED                        F0D47960
       TSX     PMCS1,4       *NO, PUSH MACRO STATUS DOWN                F0D47970
       ZSD     ARGIL          RESET NUMBER OF ARGUMENTS                 F0D47980
       ZSD     MDFCT          SET MACRO DEFINITION CHARACTER COUNT      F0D47990
       REM                    TO FIRST CHARACTER IN WORD                F0D48000
       LXD     RMTEN+1,1      LOAD POINTER TO NEXT SEQUENCE             F0D48010
       CAL     0,1            LOAD HEADING                              F0D48020
       STA     BHEAD          SET REMOTE HEADING CHARACTER              F0D48030
       STA     LITRL          SAVE FOR PASS TWO                         F0D48040
       ANA     D32767         MOVE POINTER TO NEXT SEQUENCE             F0D48050
       STD     RMTEN+1        TO CURRENT POINTER                        F0D48060
       TNZ     *+3            IS THERE ANOTHER SEQUENCE                 F0D48070
       AXC     RMTEN+1,4      NO, RESTORE POINTER FOR FIRST SEQUENCE    F0D48080
       SXD     RMTEN,4                                                  F0D48090
       TXI     *+1,1,1        BUMP COUNT PAST HEADING                   F0D48100
       SXA     MDFCT,1                                                  F0D48110
       TSX     PMCL1,4       *BUMP MACRO LEVEL                          F0D48120
       CAL     RMTP2          SET PASS TWO TRANSFER ADDRESS             F0D48130
       SLW     OPBIN                                                    F0D48140
       TSX     OTPT0,4       *WRITE INTERMEDIATE TAPE ONLY              F0D48150
       TRA     SOURC                                                    F0D48160
       REM     REMOTE SEQUENCES EXHAUSTED                               F0D48170
 RMTS2 AXT     **,4           RESTORE CURRENT HEADING CHARACTER         F0D48180
       SXA     BHEAD,4                                                  F0D48190
       SXA     LITRL,4        SAVE FOR PASS TWO                         F0D48200
       CAL     RMTP2          SET PASS TWO TRANSFER ADDRESS             F0D48210
       SLW     OPBIN                                                    F0D48220
       TSX     OTPT0,4       *WRITE INTERMEDIATE TAPE ONLY              F0D48230
       TSX     RESTP,4       *RESTORE ASSEMBLER ROUTING                 F0D48240
       PZE     SOURC,,RMTS1                                             F0D48250
 RMTSX AXT     **,4           RELOAD CALLING LINKAGE                    F0D48260
       TRA     1,4                                                      F0D48270
       REM                                                              F0D48280
       REM     ASSEMBLE MACRO NAME                                      F0D48290
 SSING AXT     -1,1           SET INTERCEPT TO RETURN WITH MACRO NAME   F0D48300
       SXD     SSN18,1                                                  F0D48310
       REM     REENTRY TO ASSEMBLE STRING                               F0D48320
 SSINS SXA     SSINX,4        SAVE CALLING LINKAGE                      F0D48330
       LXD     SSNBC,2        LOAD BEGINNING OF STRING CHARACTER COUNT  F0D48340
       LXA     SSNBW,1        LOAD BEGINNING OF STRING WORD COUNT       F0D48350
       TXI     SCANT,2,1                                                F0D48360
       REM                                                              F0D48370
       REM     CHARACTER IS PUNCTUATION                                 F0D48380
 SSN01 STA     CCHAR          SAVE CURRENT CHARACTER                    F0D48390
       TRA     *+5,4                                                    F0D48400
       TRA     SSN08          CHARACTER IS (                            F0D48410
 PLEVL TXI     SSN07,,**      CHARACTER IS ,                            F0D48420
       REM                    (RESET TO SSN10 IF WITHIN PARENS)         F0D48430
       TRA     SSN02          PUNCTUATION IS BLANK                      F0D48440
       REM     PUNCTUATION IS )                                         F0D48450
       LXD     PLEVL,4        LOAD PAREN COUNT                          F0D48460
       TXL     MCERP,4,0    **IS ) EXCESSIVE                        (23)F0D48470
       TXI     *+1,4,-1       NO, BUMP PAREN COUNT                      F0D48480
       SXD     PLEVL,4                                                  F0D48490
       TXH     SSN10,4,0      IS THIS OUTERMOST )                       F0D48500
       AXT     SSN07,4        YES, REENABLE SCAN FOR ,                  F0D48510
       SXA     PLEVL,4                                                  F0D48520
       TRA     SSN11                                                    F0D48530
       REM     PUNCTUATION IS BLANK                                     F0D48540
 SSN02 LXD     PLEVL,4        LOAD PAREN LEVEL                          F0D48550
       TXL     *+5,4,0        IS BLANK BETWEEN PARENTHESES              F0D48560
       LXA     LCHAR,4        YES, LOAD PRECEDING CHARACTER             F0D48570
       TXL     SSN10,4,42     IS IT $                                   F0D48580
       TXH     SSN10,4,43     NO                                        F0D48590
       TRA     SSN03+3        YES                                       F0D48600
       REM     BLANK IS NOT WITHIN PARENTHESES                          F0D48610
       LXA     LCHAR,4        LOAD PRECEDING CHARACTER                  F0D48620
       TXL     SSN04+4,4,42   IS CHARACTER $                            F0D48630
       TXH     SSN04+4,4,43   NO                                        F0D48640
       TRA     SSN03+3        YES                                       F0D48650
       REM     REENTRY AFTER INPUT CARD COLUMN 72                       F0D48660
 SSN03 LXA     LCHAR,4        LOAD PRECEDING CHARACTER                  F0D48670
       TXL     SSN04,4,42     IS IT $                                   F0D48680
       TXH     SSN04,4,43     NO                                        F0D48690
       REM     REENTRY FOR $BLANK                                       F0D48700
       TXH     *+3,2,0        DELETE $                                  F0D48710
       TXI     *+1,1,1                                                  F0D48720
       TXI     *+2,2,5                                                  F0D48730
       TXI     *+1,2,-1                                                 F0D48740
       REM     REENTRY AFTER CARD COLUMN 72 WITH NO PRECEDING $         F0D48750
 SSN04 TSX     PEEKS,4       *DOES ETC CARD FOLLOW                      F0D48760
       TRA     SSN05          YES                                       F0D48770
       LXD     PLEVL,4        NO, LOAD PAREN LEVEL                      F0D48780
       TXH     MCERP,4,0    **ARE PARENTHESES UNBALANCED            (23)F0D48790
       REM     REENTRY FOR BLANK NOT WITHIN PARENTHESES                 F0D48800
       AXT     -1,4           NO                                        F0D48810
       SXD     SSN18,4        SET SWITCH TO RETURN WITH STRING          F0D48820
       SXD     SSN12,4        SET SWITCH TO SUPPRESS NULL STRING STUFF  F0D48830
       TRA     SSN11                                                    F0D48840
       REM     REENTRY FOR ETC CARD TO FOLLOW                           F0D48850
 SSN05 PXD     ,2             LOAD INPUT CARD CHAR COUNT (CLEAR AC)     F0D48860
       TXL     SSN06,2,0      IS INPUT WORD EXHAUSTED                   F0D48870
       LDQ     0,1            NO, LOAD INPUT WORD                       F0D48880
       PDX     ,4             LOAD CHARACTER COUNT                      F0D48890
       TNX     SSN06+2,4,1    LEFT ADJUST PRECEDING CHARACTER           F0D48900
       RQL     6                                                        F0D48910
       TRA     *-2                                                      F0D48920
 SSN06 LDQ     -1,1           LOAD NEXT INPUT WORD                      F0D48930
       RQL     30             LEFT ADJUST PRECEDING CHARACTER           F0D48940
       LGL     6              LOAD PRECEDING CHARACTER                  F0D48950
       STA     CCHAR                                                    F0D48960
       AXT     -1,4                                                     F0D48970
       SXD     SSN17,4        SET SWITCH TO AVOID BUMPING ARGUMENT COUNTF0D48980
       TRA     SSN11                                                    F0D48990
       REM     PUNCTUATION IS ,                                         F0D49000
 SSN07 LXA     LCHAR,4        LOAD PRECEDING CHARACTER                  F0D49010
       TXH     SSN11,4,28     IS PRECEDING CHARACTER )                  F0D49020
       TXL     SSN11,4,27     NO                                        F0D49030
       TRA     SSN09          YES, , NOT CONSIDERED PUNCTUATION         F0D49040
       REM     PUNCTUATION IS (                                         F0D49050
 SSN08 LXD     PLEVL,4        BUMP PAREN COUNT                          F0D49060
       TXI     *+1,4,1                                                  F0D49070
       SXD     PLEVL,4                                                  F0D49080
       TXH     SSN10,4,1      IS THIS FIRST (                           F0D49090
       AXT     SSN10,4        YES, DISABLE SCAN FOR ,                   F0D49100
       SXA     PLEVL,4                                                  F0D49110
 LCHAR AXT     **,4           LOAD PRECEDING CHARACTER                  F0D49120
       TXH     SSN11,4,59     IS IT ,                                   F0D49130
       TXH     SSN09,4,58     YES                                       F0D49140
       TXH     SSN11,4,28     NO, IS IT (                               F0D49150
       TXL     SSN11,4,27     NO                                        F0D49160
       REM     REENTRY FOR ), OR ,(                                     F0D49170
 SSN09 SXD     SSNBC,2        RESET BEGINNING OF STRING                 F0D49180
       SXA     SSNBW,1        TO COUNT OF PUNCTUATION CHARACTER         F0D49190
       CAL     CCHAR          RELOAD CURRENT CHARACTER                  F0D49200
       REM     CHARACTER IS NOT PUNCTUATION, OR PUNCTUATION NOT BREAK   F0D49210
 SSN10 STA     LCHAR          SAVE LAST CHARACTER                       F0D49220
       TXI     SCANU+1,2,1                                              F0D49230
       REM                                                              F0D49240
       REM     PUNCTUATION IS BREAK CHARACTER                           F0D49250
 SSN11 SXA     SSNEC,2        SAVE POSITION OF PUNCTUATION              F0D49260
       SXD     SSNEW,1        AT END OF STRING                          F0D49270
 SSNBW AXT     **,1           LOAD COUNT OF WORD INCLUDING PUNCTUATION  F0D49280
       REM                    AT BEGINNING OF STRING                    F0D49290
 SSNEW TXL     *+3,1,**       IS THIS WORD  AT END OF STRING            F0D49300
       TXI     *+1,2,6        NO, BUMP CHARACTER COUNT BY ONE WORD      F0D49310
       TXI     *-2,1,-1       BUMP WORD COUNT BY ONE WORD               F0D49320
 SSNBC TIX     *+2,2,**       REDUCE STRING LENGTH BY CHARACTER COUNT   F0D49330
       REM                    OF PUNCTUATION AT BEGINNING OF STRING     F0D49340
       TRA     *+2            IT WAS -1, OMIT NEXT STEP             (24)F0D49350
       TXI     *+1,2,-1       DELETE PUNCTUATION CHARACTER FROM COUNT   F0D49360
       SXD     COUNT,2        SAVE LENGTH OF STRING                 (23)F0D49370
 SSN13 TXL     SSN14,1,**     IS THIS FIRST ON ETC CARD             (23)F0D49380
 SSN12 TXH     *+2,1,**       NO, IS THIS FINAL STRING              (23)F0D49390
       TXL     SSN22,2,0      YES, IS IT NULL                       (23)F0D49400
       LXA     MEPTR,1        NO, LOAD POINTER TO MACRO EXPANSION TABLE F0D49410
       AXT     -1,2           SET DIRECTION OF STUFF FORWARD            F0D49420
       LXD     MAC07,4        LOAD LOWER END OF MACRO DEFINITION TABLE  F0D49430
       CAL     *              LOAD CALLING LINKAGE                      F0D49440
       TRA     STUFY         *INITIALIZE ROUTINE TO STUFF MACEXP        F0D49450
 SSN14 ZSD     SSN13          RESET ETC SWITCH                          F0D49460
       LXD     SSNBC,2        RELOAD COUNTS OF BEGINNING OF STRING      F0D49470
       LXA     SSNBW,1                                                  F0D49480
       TXI     *+1,2,1        NUMBER OF LEADING CHARACTERS          (24)F0D49490
       TXL     *+3,2,5        IN FIRST WORD, IS IT SIX              (24)F0D49500
       TXI     *+1,1,-1       YES, BUMP TO NEXT WORD                (24)F0D49510
       TXI     *+1,2,-6       AND ADJUST CHARACTER COUNT            (24)F0D49520
       LXD     COUNT,4        LOAD LENGTH OF STRING                     F0D49530
       CAL     *              LOAD CALLING LINKAGE                      F0D49540
       TRA     STUFF         *ADD STRING TO EXPANSION                   F0D49550
       TRA     OVRLP        **EXPANSION TABLE FULL                      F0D49560
       ZET     ETCMD          WILL AN ETC CARD FOLLOW                   F0D49570
       TRA     SSN16          YES                                       F0D49580
       AXT     1,7            NO, PREPARE TO STUFF ONE CHARACTER        F0D49590
       CAL     *              LOAD CALLING LINKAGE                      F0D49600
       TXI     STUFF,1,-BLANKS-1  *STUFF TERMINATING BLANK              F0D49610
       TRA     OVRLP        **EXPANSION TABLE FULL                      F0D49620
 SSN16 LDQ     MEPTR          LOAD POINTER TO THIS ARGUMENT             F0D49630
       SXA     MEPTR,2        SET POINTER TO NEXT ARGUMENT              F0D49640
       LXD     ARGJL,4        LOAD ARGUMENT LIST COUNT                  F0D49650
       CLA     MARGS,4        LOAD REFERENCE TO THIS ARGUMENT           F0D49660
       PAX     ,2             LOAD POINTER TO THIS ARGUMENT             F0D49670
       ADD     COUNT          BUMP BY LENGTH OF STRING                  F0D49680
       STD     MARGS,4        SET REFERENCE TO NEXT ARGUMENT            F0D49690
       TXH     *+3,2,0        IS THIS REMAINDER OF ARGUMENT             F0D49700
       REM                    ON FOLLOWING ETC CARD                     F0D49710
       XCL                    NO, RECALL POINTER TO THIS ARGUMENT       F0D49720
       STA     MARGS,4        SET POINTER TO THIS ARGUMENT              F0D49730
 CCHAR AXT     **,1           SET BREAK PUNCTUATION                     F0D49740
       SXA     LCHAR,1        AS NEW PRECEDING CHARACTER                F0D49750
 SSNEC AXT     **,2           SET BEGINNING OF NEXT STRING              F0D49760
       LXD     SSNEW,1        TO PUNCTUATION AT END OF LAST STRING      F0D49770
       SXD     SSNBC,2                                                  F0D49780
       SXA     SSNBW,1                                                  F0D49790
 SSN17 TXL     SSN18+2,1,**   IS THIS PARTIAL ARGUMENT OR IRP           F0D49800
       TXI     *+1,4,1        NO, BUMP ARGUMENT COUNT                   F0D49810
       TXH     SSN18,4,63     DID ARGUMENT TABLE OVERFLOW               F0D49820
       SXD     ARGJL,4        NO, SET ARGUMENT COUNT                    F0D49830
       STZ     MARGS,4        CLEAR REFERENCE                           F0D49840
       REM     REENTRY FOR TRUNCATED ARGUMENT LIST                      F0D49850
 SSN18 TXL     SSN22,1,**     IS IMMEDIATE RETURN REQUESTED             F0D49860
       TXI     SCANT,2,1      NO, ASSEMBLE NEXT STRING                  F0D49870
       REM                                                              F0D49880
       REM     END OF CARD                                              F0D49890
       ZSD     SSN18          RESET IMMEDIATE RETURN SWITCH             F0D49900
       ZSD     SSN17          RESET END OF CARD SWITCH                  F0D49910
       NZT     ETCMD          WILL AN ETC CARD FOLLOW                   F0D49920
       TRA     SSN22+2        NO                                        F0D49930
       LXA     CLEVL,1        YES, LOAD MACRO LEVEL                     F0D49940
       TXL     SSN21,1,0      IS THIS FIRST LEVEL MACRO                 F0D49950
       LXA     MEPTR,1        NO, PREPARE TO PUSH TO MACRO EXP TABLE    F0D49960
       LXA     MCIND,4        PUSH DOWN INDIRECT ADDRESS FLAG           F0D49970
       SXA     SSLOC,4                                                  F0D49980
       CLA     P7             PREPARE TO PUSH                           F0D49990
       TSX     PUPOP,4       *PUSH DOWN INCOMPLETE ARGUMENT INDEX       F0D50000
       LXD     SSLOC,1        LOAD LOCATION OF PREVIOUS STATUS          F0D50010
       CAL     P7             PREPARE TO POP                            F0D50020
       TSX     PUPOP,4       *POP UP PREVIOUS COMPILER STATUS           F0D50030
       REM                    TO GENERATE ETC CARD                      F0D50040
       CAL     SSLOC          RESTORE INDIRECT ADDRESS FLAG             F0D50050
       STA     MCIND                                                    F0D50060
 SSN21 LXD     STUFI,4        SAVE STUFF STATUS                         F0D50070
       SXA     SSN32,4                                                  F0D50080
       LXD     STUM2,4                                                  F0D50090
       SXA     SSN32+2,4                                                F0D50100
       NOP                                                             $F0D50110
       TSX     SETTP,4       *SET UP MACRO ROUTING                      F0D50120
       PZE     ROUTE,,SSN30                                             F0D50130
       TSX     MACERR,4     **ALREADY SET UP                            F0D50140
       TRA     READ1                                                    F0D50150
       REM     REENTRY TO RETURN WITH STRING, OR AFTER FINAL NULL STRINGF0D50160
 SSN22 ZSD     SSN18          RESET IMMEDIATE RETURN SWITCH             F0D50170
       ZSD     SSN17          RESET PARTIAL ARGUMENT SWITCH             F0D50180
       REM     REENTRY AFTER END OF CARD, NO ETC CARD TO BE GENERATED   F0D50190
       ZSD     SSN12          RESET FINAL STRING SWITCH             (23)F0D50200
 SSINX AXT     **,4           RELOAD CALLING LINKAGE                    F0D50210
       TRA     1,4                                                      F0D50220
       REM                                                              F0D50230
       REM     REENTRY FOR ARGUMENT LIST ETC CARD                       F0D50240
 SSN30 TSX     RESTP,4       *RESET ASSEMBLER ROUTING                   F0D50250
       PZE     ROUTE,,SSN30                                             F0D50260
       SLT     EXPRR          WAS OP FIELD IN ERROR                     F0D50270
       TRA     *+2            NO                                        F0D50280
       TSX     MACERR,4     **YES, BUT IT MUST BE ETC                   F0D50290
       STZ     ETCMD          RESET ETC FLAG                            F0D50300
       CAL     MOPP2          SET PASS TWO TRANSFER                     F0D50310
 SSN31 TRA     SSN33         *TO PRINT CARD, PROVISIONALLY          (23)F0D50320
       LXA     CLEVL,1        LOAD MACRO LEVEL                          F0D50330
       TXL     SSN32,1,0      IS THIS FIRST LEVEL MACRO                 F0D50340
       LXA     MEPTR,1        LOAD POINTER TO MACRO EXPANSION TABLE     F0D50350
       CAL     2,1            GET LOCATION OF OUTER SCAN STATUS         F0D50360
       PDX     ,2                                                       F0D50370
       CAL     MDFCT          INSERT MACRODEFINITION WORD,,CHAR COUNT   F0D50380
       SLW     0,2            SO THAT IT MAY BE POPPED BACK             F0D50390
       CAL     P7             PREPARE TO POP                            F0D50400
       TSX     PUPOP,4       *POP UP INCOMPLETE ARGUMENT INDEX          F0D50410
       CAL     SSLOC          RESTORE INDIRECT ADDRESS FLAG             F0D50420
       STA     MCIND                                                    F0D50430
 SSN32 AXT     **,4           RESTORE STUFF COUNTS                      F0D50440
       SXD     STUFI,4                                                  F0D50450
       AXT     **,4                                                     F0D50460
       SXD     STF01,4                                                  F0D50470
       SXD     STUM2,4                                                  F0D50480
       LXD     MAC07,4        RESTORE STUFF OVERFLOW TESTS              F0D50490
       SXD     STF03+1,4                                                F0D50500
       SXD     STF08+2,4                                                F0D50510
       AXT     -1,4           RESTORE DIRECTION OF STUFF                F0D50520
       SXD     STF08+1,4                                                F0D50530
       SXD     STF10+2,4                                                F0D50540
       SXD     SSN13,4        SET ETC SWITCH                            F0D50550
       TSX     SCANS,4       *INITIALIZE CHARACTER SCAN ROUTINE         F0D50560
       TXL     SSN10,,MCTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D50570
       TXL     SSN01,,4       PUNCTUATION RETURN,,LENGTH OF TABLE       F0D50580
       TXL     SSN03,1,-BCDBF-12 OVERFLOW TEST                          F0D50590
       LAC     VRFLD,2        COMPUTE CHARACTER COUNT                   F0D50600
       TXI     *+1,2,6                                                  F0D50610
       LXD     VRFLD,1        COMPUTE WORD COUNT                        F0D50620
       TXI     *+1,1,-BCDBF                                             F0D50630
       SXD     SSNBC,2        SET COUNTS OF BEGINNING OF STRING         F0D50640
       SXA     SSNBW,1                                                  F0D50650
       TXI     SCANT,2,1                                                F0D50660
       REM                                                              F0D50670
       REM     COMPILE MACRO EXPANSION                                  F0D50680
 CMPIL AXC     BCDBF,1        PREPARE TO STUFF INTO CARD IMAGE         $F0D50690
       AXC     BCDBF,4        BUFFER                                   $F0D50695
       AXT     -1,2           SET SWITCH TO STUFF FORWARD               F0D50700
       SXD     MCREF,2        SET MACRO GENERATED CARD SWITCH           F0D50710
       SXD     CMP11,2        PRESET END OF MACRO EXPANSION SWITCH      F0D50720
       SXD     PKMSW,2        SET LOOKAHEAD SWITCH FOR ETC CARD         F0D50730
       CAL     *              LOAD CALLING LINKAGE                      F0D50740
       TXI     STUFY,4,-12   *INITIALIZE STUFF ROUTINE                  F0D50750
 CMP01 TXH     CMP04,2,**     IS AN ETC CARD TO BE CREATED              F0D50760
       ZSD     CMP01          YES, RESET SWITCH                         F0D50770
       ZSD     CMP11          RESET END OF MACRO EXPANSION SWITCH       F0D50780
 CMPVF AXT     15,4           LOAD NUMBER OF CHARACTERS TO BE STUFFED   F0D50790
       REM                    (RESET TO 11 FOR 704 MODE)                F0D50800
       AXT     0,1            PREPARE TO STUFF FROM                    $F0D50805
       AXT     0,2            FIRST CHARACTER                          $F0D50810
       CAL     *              LOAD CALLING LINKAGE                      F0D50820
       TXI     STUFF,1,-ETCCD *STUFF ETC OPCODE                         F0D50830
       TSX     MACERR,4     **IMPOSSIBLE RETURN                         F0D50840
 CMP02 AXT     **,4           RESTORE DIRECTION OF STUFF                F0D50850
       SXD     STF06+1,4                                                F0D50860
       AXT     **,4           RELOAD NUMBER OF REMAINING CHARACTERS     F0D50870
       AXT     **,2           RELOAD CARD IMAGE CHARACTER COUNT         F0D50880
       AXT     **,1           RELOAD CARD IMAGE WORD COUNT              F0D50890
       CAL     *              LOAD CALLING LINKAGE                      F0D50900
       TRA     STUFF         *STUFF REMAINDER OF FIELD                  F0D50910
       TRA     CMP20          CARD IMAGE FULL                           F0D50920
       REM     REENTRY IF NO ETC CARD IS TO BE CREATED                  F0D50930
 CMP04 ZSD     PKMSW+1        RESET ETC SWITCH                          F0D50940
       AXT     1,4            PREPARE TO STUFF FROM BACKWARD DATA       F0D50950
       SXD     STF06+1,4                                                F0D50960
       TSX     SCANS,4       *INITIALIZE CHARACTER SCAN ROUTINE         F0D50970
       TXL     CMP05,,MDTBL+4 SINGLE CHARACTER RETURN,,PUNCTUATION TABLEF0D50980
       TXL     CMP10,,4       PUNCTUATION RETURN,,LENGTH OF TABLE       F0D50990
       TXH     ,1,-1          NULLIFY OVERFLOW TEST                     F0D51000
       ZSD     CMPFC          RESET FIELD LENGTH                        F0D51010
       ZSD     CMPCT          RESET COUNT OF COLUMNS STUFFED            F0D51020
       TRA     CMP16                                                    F0D51030
       REM                                                              F0D51040
       REM     CHARACTER IS NOT PUNCTUATION, IT IS FIELD LENGTH+1       F0D51050
 CMP05 SXA     MDFCT,1        SAVE MACRO DEFINITION WORD COUNT          F0D51060
       PAX     ,4             LOAD FIELD LENGTH+1                       F0D51070
       TXI     *+1,4,-1       BUMP TO FIELD LENGTH                      F0D51080
       SXD     CMPFC,4        SET FIELD LENGTH                          F0D51090
       TXI     *+1,2,1        BUMP CHARACTER COUNT PAST FIELD LENGTH    F0D51100
       PXD     ,2             COMPUTE END OF FIELD IN SKELETON          F0D51110
       ACL     CMPFC                                                    F0D51120
       STD     MDFCT          SAVE MACRO DEFINITION CHARACTER COUNT     F0D51130
       PXD     ,4                                                       F0D51140
       ADD     CMPCT          BUMP COUNT OF COLUMNS STUFFED             F0D51150
       STD     CMPCT                                                    F0D51160
       TXL     *+3,2,5        IS WORD EXHAUSTED                         F0D51170
       TXI     *+1,1,1        YES, BUMP COUNT TO NEXT WORD              F0D51180
       TXI     *-2,2,-6       RESET CHARACTER COUNT                     F0D51190
       CAL     *              LOAD CALLING LINKAGE                      F0D51200
       TRA     STUFF         *STUFF VARIABLE INTO CARD IMAGE            F0D51210
       TRA     CMP20          CARD IMAGE FULL                           F0D51220
       TRA     CMP16                                                    F0D51230
       REM                                                              F0D51240
       REM     CHARACTER IS PUNCTUATION                                 F0D51250
 CMP10 TXI     *+1,2,1        DELETE PUNCTUATION CHARACTER              F0D51260
       SXD     MDFCT,2        SAVE MACRO DEFINITION CHARACTER COUNT     F0D51270
       SXA     MDFCT,1        SAVE MACRO DEFINITION WORD COUNT          F0D51280
       TRA     *+5,4                                                    F0D51290
       TRA     CMP15          PUNCTUATION IS ARGUMENT MARK              F0D51300
       TRA     CMP13          PUNCTUATION IS VARIABLE FIELD MARK        F0D51310
       TRA     CMP12          PUNCTUATION IS OPCODE MARK                F0D51320
       REM     END OF RECORD                                            F0D51330
       AXC     BLANKS+1,1     PREPARE TO STUFF FROM BLANK WORDS         F0D51340
       AXT     0,6            PREPARE TO STUFF FROM FIRST CHARACTER     F0D51350
       CAL     *              LOAD CALLING LINKAGE                      F0D51360
       TXI     STUFF,4,6     *STUFF TWO WORDS OF BLANKS                 F0D51370
       NOP                                                              F0D51380
 CMP11 TXH     CMP21,2,**     IS THIS DOUBLE END OF RECORD MARK         F0D51390
       REM                    (END OF MACRO EXPANSION)                  F0D51400
       TSX     PMCL2,4       *YES, PUSH UP MACRO LEVEL                  F0D51410
       TXH     *+3,1,0        WAS THIS ZERO LEVEL MACRO                 F0D51420
       ZSD     PKMSW          YES, RESET LOOKAHEAD SWITCH               F0D51430
       ZSD     MCREF          RESET MACRO EXPANSION CARD SWITCH         F0D51440
       TRA     SOURC                                                    F0D51450
       REM     PUNCTUATION IS 01, OPCODE FOLLOWS                        F0D51460
 CMP12 ZSD     CMP11          RESET END OF MACRO EXPANSION SWITCH       F0D51470
       AXT     7,4            COMPUTE LENGTH OF LOCATION FIELD          F0D51480
 CMPFC TNX     CMP16,4,**     IS COLUMN 7 FULL                          F0D51490
       TRA     CMP14          NO                                        F0D51500
       REM     PUNCTUATION IS 76, VARIABLE FIELD FOLLOWS                F0D51510
 CMP13 ZSA     IRP01          RESET ARGUMENT NUMBER                     F0D51520
       REM     DETERMINE NUMBER OF BLANKS TO STUFF                  (24)F0D51530
       TXL     *+2,2,5        IS DEFINITION WORD EXHAUSTED          (24)F0D51540
       LDQ     -1,1           YES, LOAD NEXT ONE                    (24)F0D51550
       TXI     *+1,2,1        BUMP SKELETON CHARACTER COUNT         (24)F0D51560
       SXD     MDFCT,2        PAST COUNT OF CHARACTERS              (24)F0D51570
       ZAC                    WHICH SHOULD PRECEDE VARIABLE FIELD   (24)F0D51580
       LGL     6              ROLL UP SAID COUNT                    (24)F0D51590
       PAX     ,4                                                   (24)F0D51600
       AXT     ,0             MARK TIME                             (24)F0D51610
 CMPCT TIX     *+2,4,**       REDUCE BY COUNT OF CHARACTERS STUFFED     F0D51620
       AXT     1,4            PREPARE TO STUFF ONE BLANK IF TOO MANY    F0D51630
       REM     REENTRY TO STUFF BLANKS FOLLOWING LOCATION FIELD         F0D51640
 CMP14 PXD     ,4             SET NUMBER OF BLANKS TO STUFF             F0D51650
       ADD     CMPCT          BUMP COUNT OF COLUMNS STUFFED             F0D51660
       STD     CMPCT                                                    F0D51670
       AXC     BLANKS+1,1     PREPARE TO STUFF FROM BLANKS              F0D51680
       AXT     0,2            STARTING WITH FIRST CHARACTER             F0D51690
       CAL     *              LOAD CALLING LINKAGE                      F0D51700
       TRA     STUFF         *FILL OUT OPFIELD WITH BLANKS              F0D51710
       TRA     CMP20          CARD IMAGE FULL                           F0D51720
       TRA     CMP16                                                    F0D51730
       REM     PUNCTUATION IS 77, ARGUMENT FOLLOWS                      F0D51740
 CMP15 TXL     *+2,2,5        IS WORD EXHAUSTED                         F0D51750
       LDQ     -1,1           YES, LOAD NEXT WORD                       F0D51760
       TXI     *+1,2,1        BUMP CHARACTER COUNT PAST ARGUMENT NUMBER F0D51770
       SXD     MDFCT,2        SAVE MACRO DEFINITION CHARACTER COUNT     F0D51780
       ZAC                                                              F0D51790
       LGL     6              LOAD ARGUMENT NUMBER                      F0D51800
       TNZ     *+4            IS FOLLOWING CARD PROGRAMMERS ETC         F0D51810
       AXT     -1,4           YES, SET ETC SWITCH                       F0D51820
       SXD     PKMSW+1,4                                                F0D51830
       TRA     SCANT                                                    F0D51840
       STA     IRP01          INITIALIZE IRP ARGUMENT NUMBER            F0D51850
       PAX     ,1                                                       F0D51860
       CAL     MARGS+1,1      LOAD ARGUMENT REFERENCE                   F0D51870
       PAX     ,1             LOAD ARGUMENT LOCATION                    F0D51880
       PDX     ,4             LOAD ARGUMENT LENGTH                      F0D51890
       STD     CMPFC          SET FIELD LENGTH                          F0D51900
       ADD     CMPCT          BUMP COUNT OF COLUMNS STUFFED             F0D51910
       STD     CMPCT                                                    F0D51920
       AXT     -1,2           PREPARE TO STUFF FROM FORWARD DATA        F0D51930
       SXD     STF06+1,2                                                F0D51940
       AXT     0,2            PREPARE TO STUFF FROM FIRST CHARACTER     F0D51950
       CAL     *              LOAD CALLING LINKAGE                      F0D51960
       TRA     STUFF         *STUFF ARGUMENT INTO CARD IMAGE            F0D51970
       TRA     CMP20          CARD IMAGE FULL                           F0D51980
       AXT     1,2            PREPARE TO STUFF FROM BACKWARD DATA       F0D51990
       SXD     STF06+1,2                                                F0D52000
       REM     REENTRY TO CONTINUE SCAN                                 F0D52010
 CMP16 LXD     MDFCT,2        LOAD MACRO DEFINITION CHARACTER COUNT     F0D52020
       LXA     MDFCT,1        LOAD MACRO DEFINITION WORD COUNT          F0D52030
       TRA     SCANT                                                    F0D52040
       REM     GENERATED CARD IMAGE IS FULL                             F0D52050
 CMP20 LXD     STF06+1,2      SAVE DIRECTION OF STUFF                   F0D52060
       SXA     CMP02,2                                                  F0D52070
       AXT     -1,2           SET SWITCH TO CREATE ETC CARD             F0D52080
       SXD     CMP01,2                                                  F0D52090
       SXD     PKMSW+1,2                                                F0D52100
       SXA     CMP02+2,4      SAVE COUNT OF REMAINING CHARACTERS        F0D52110
       LXA     STF07,4        LOAD CHARACTER BIT COUNT                  F0D52120
       TXI     *+1,4,6                                                  F0D52130
       TXI     *+1,2,1                                                  F0D52140
       TIX     *-1,4,6        DIVIDE BY 6                               F0D52150
       SXA     CMP02+3,2      SAVE CARD IMAGE CHARACTER COUNT           F0D52160
       SXA     CMP02+4,1      SAVE CARD IMAGE WORD COUNT                F0D52170
       REM     REENTRY TO FINISH CARD                                   F0D52180
 CMP21 AXT     -1,4           PREPARE TO STUFF FROM FORWARD DATA        F0D52190
       SXD     STF06+1,4                                                F0D52200
 CMP22 TXL     IRP02,4,**     IS THIS CARD IN RANGE OF IRP              F0D52210
       CAL     BLANKS         NO, FILL OUT GENERATED CARD IMAGE         F0D52220
       LXD     STUFI,1                                                  F0D52230
       TXL     *+3,1,-BCDBF-12                                          F0D52240
       SLW     0,1                                                      F0D52250
       TXI     *-2,1,-1                                                 F0D52260
       CAL     Q32            SET MACRO GENERATED CARD FLAG             F0D52270
       SLW     P1FLG          FOR PASS 2 LISTING PURPOSES               F0D52280
       LXA     CLEVL,4        LOAD MACRO LEVEL                          F0D52290
       PXA     ,4                                                       F0D52300
       ALS     8              SHIFT INTO BIT POSITIONS 21 THRU 27       F0D52310
       ORS     P1FLG          HOLD FOR PASS TWO                         F0D52320
       TRA     CNTRL                                                    F0D52330
       EJECT                                                            F0D52340
       REM     ROUTINES PECULIAR TO MACROS                              F0D52350
       REM                    NOCRS, ORGCRS, PMC, SET                   F0D52360
       REM                                                              F0D52370
 CRSOP AXT     5,4            SET CREATED SYMBOL COUNT                  F0D52380
       SXD     CRSNO,4                                                  F0D52390
       TSX     SSCAN,4       *ASSEMBLE PROGRAMMER'S SYMBOL              F0D52400
       TXI     CRS01,,0       NULL SYMBOL                               F0D52410
       SLT     EXPRR          IS SYMBOL IN ERROR                        F0D52420
       ZET     SYMB2          NO, IS SYMBOL TOO LONG                    F0D52430
       TRA     FIELD        **YES                                       F0D52440
       SLT     EXPND          NO, DID SYMBOL END WITH OPERATION         F0D52450
       TRA     FIELD        **YES                                       F0D52460
       CAL     SYMBL          NO, LOAD SYMBOL                           F0D52470
       ANA     D63            MASK IN THIRD CHARACTER                   F0D52480
       SLW     CRPT1          PROGRAMMER MAY VARY THIRD CHARACTER       F0D52490
       CAL     SYMBL          RELOAD SYMBOL                             F0D52500
       ANA     ADTMK          MASK IN THREE DIGITS                      F0D52510
       XCL                                                              F0D52520
       TSX     DECSV+1,4     *CONVERT TO BINARY                         F0D52530
       STA     CRSCT          RESET ORIGIN                              F0D52540
       STA     LITRL          SAVE FOR PASS TWO                         F0D52550
       SLT     FLDND          WAS THIS END OF VARIABLE FIELD            F0D52560
       TRA     FIELD        **NO                                        F0D52570
 CRS01 TRA     READ1          YES                                       F0D52580
       REM                                                              F0D52590
 NOCOP STZ     CRSNO          RESET CREATED SYMBOL COUNT                F0D52600
       TRA     READ1                                                    F0D52610
       REM                                                              F0D52620
 SETOP TSX     SCANP,4       *EVALUATE SET DEFINITION                   F0D52630
       TXI     AFLAG,,0       NULL DEFINITION                           F0D52640
       OAI                    COMBINE BITS WITH DEFINITION              F0D52650
       SIL     20             AND SET FLAG                              F0D52660
       STI     ADDRS          DEFINE SYMBOL                             F0D52670
       STI     LITRL          SAVE FOR PASS TWO                         F0D52680
       CAL     BCDBF          LOAD LOCATION FIELD                       F0D52690
       TSX     LOCFL,4       *ASSEMBLE LOCATION SYMBOL                  F0D52700
       TZE     FIELD        **IS THERE A LOCATION SYMBOL                F0D52710
       XCL                    YES, ISOLATE FIRST CHARACTER              F0D52720
       LGL     6                                                        F0D52730
       TNZ     *+2            IS SYMBOL SHORTER THAN 6 CHARACTERS       F0D52740
       CAL     BHEAD          YES, APPEND HEADING CHARACTER             F0D52750
       LGR     6                                                        F0D52760
       STQ     SYMBL          HOLD FOR SYMBOL TABLE SEARCH              F0D52770
       ZSA     SET01          RESET LOCATION OF SYMBOL TO BE REDEFINED  F0D52780
       TSX     SSYMT,4       *FIND SYMBOL IN SYMBOL TABLE               F0D52790
 SET01 AXT     **,4           LOAD LOCATION OF SYMBOL                   F0D52800
       TXH     *+3,4,0        IS SYMBOL ALREADY IN TABLE                F0D52810
       TSX     ESYML,4       *NO, DEFINE IT                             F0D52820
       TRA     SET02                                                    F0D52830
       CAL     ADDRS          YES, LOAD NEW DEFINITION                  F0D52840
       LDI*    SRCH2          HOLD OLD DEFINITION                       F0D52850
       SLW*    SRCH2          REDEFINE SYMBOL                           F0D52860
       SLT     EXPRR          WAS SYMBOL IN TRANSFER VECTOR             F0D52870
       LNT     20             NO, WAS OLD DEFINITION SET                F0D52880
       TRA     FIELD        **NO                                        F0D52890
 SET02 TRA     READ1                                                    F0D52900
       EJECT                                                            F0D52910
       REM     MACRO PROCESSOR SUBROUTINES                              F0D52920
       REM                                                              F0D52930
       REM     SUBROUTINES TO PRINT MACRO ERROR MESSAGES                F0D52940
       REM                                                              F0D52950
       REM     UNMATCHED PARENTHESES                                    F0D52960
 MCER1 ZSD     SSN13          RESET SWITCH TO AVOID INITIALIZATION      F0D52970
       REM                    IN CASE THIS IS FIRST ARGUMENT ON ETC CARDF0D52980
       STZ     PARNC          RESET PARENTHESES COUNT                   F0D52990
       CAL     PARFL          LOAD UNMATCHED PAREN FLAG                 F0D53000
       REM     ENTRY FOR OTHER MACRO ERROR                          (23)F0D53010
 MCERR SLW     LITRL          SAVE FLAG FOR PASS TWO                (23)F0D53020
       SXA     MCERX,4                                              (23)F0D53030
       AXT     5$MCERR,4      SET PASS TWO TRANSFER                 (23)F0D53040
       SXD     OPBIN,4        ADDRESS TO PRINT FLAG                 (23)F0D53050
 MCERX AXT     **,4           AND CARD IN ERROR                     (23)F0D53060
       TRA     1,4                                                  (23)F0D53070
 PCCP2 MZE     ,,5$TTL03+1                                          (23)F0D53080
       REM                                                              F0D53090
       REM     MACRO DEFINITION OR COMPILE TABLE FULL                   F0D53100
 OVRLP LDI     MDFNM          LOAD MACRO DEFINITION NAME                F0D53110
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D53120
       REM     MACRO LEVEL TABLE FULL                                   F0D53130
 LKTOV LDI     LVLNM          LOAD LEVEL TABLE NAME                     F0D53140
       TRA     SRCERR       **TERMINATE ASSEMBLY                        F0D53150
       REM                                                              F0D53160
       REM     PUSH MACRO LEVEL DOWN                                    F0D53170
 PMCL1 SXA     PMC1X,4        SAVE CALLING LINKAGE                      F0D53180
       LXA     CLEVL,1        LOAD MACRO LEVEL                          F0D53190
       TSX     SETTP,4       *SET UP MACRO COMPILER ROUTING             F0D53200
       PZE     SOURC,,CMPIL                                             F0D53210
       TXI     PMC11,1,1      BUMP MACRO LEVEL IF NO INTERRUPTION       F0D53220
       LXD     PMC21,4        HOLD OLD INTERRUPT LEVEL                  F0D53230
       SXA     MACNO,4                                                  F0D53240
       SXD     PMC21,1        SET NEW INTERRUPT LEVEL                   F0D53250
       TSX     PDOWN,4       *PUSH DOWN MACRO LEVEL                     F0D53260
       PZE     MACNO                                                    F0D53270
       TXI     *+1,1,1        BUMP MACRO LEVEL                          F0D53280
 PMC11 SXA     CLEVL,1        RESET MACRO LEVEL                         F0D53290
 PMC1X AXT     **,4           RELOAD CALLING LINKAGE                    F0D53300
       TRA     1,4                                                      F0D53310
       REM                                                              F0D53320
       REM     PUSH MACRO LEVEL UP                                      F0D53330
 PMCL2 SXA     PMC2X,4        SAVE CALLING LINKAGE                      F0D53340
 CLEVL AXT     **,1           LOAD MACRO LEVEL                          F0D53350
       TXL     PMC21,1,0      IS THIS FIRST LEVEL MACRO                 F0D53360
       TXI     *+1,1,-1       BUMP MACRO LEVEL                          F0D53370
       SXA     CLEVL,1                                                  F0D53380
 PMC21 TXH     PMC23,1,**     WAS MACRO EXPANSION INTERRUPTED           F0D53390
       TSX     RESTP,4       *NO, RESTORE OLD SWITCH                    F0D53400
       PZE     SOURC,,CMPIL                                             F0D53410
       TSX     PUPUP,4       *PUSH UP MACRO LEVEL                       F0D53420
       PZE     MACNO                                                    F0D53430
       LXA     MACNO,1        RESET INTERRUPTION TEST                   F0D53440
       SXD     PMC21,1        TO CURRENT MACRO LEVEL                    F0D53450
 PMC23 ZSD     CMP22          RESET IRP INTERCEPT PENDING POP OF STATUS F0D53460
       TSX     PMCS3,4       *BUMP MACRO STATUS UP                      F0D53470
       AXT     -1,4           RESET DIRECTION OF STUFF                  F0D53480
       SXD     STF06+1,4                                                F0D53490
 PMC2X AXT     **,4           RELOAD CALLING LINKAGE                    F0D53500
       TRA     1,4                                                      F0D53510
       REM                                                              F0D53520
       REM     PUSH MACRO STATUS DOWN                                   F0D53530
 PMCS1 SXA     PMCSX,4        SAVE CALLING LINKAGE                      F0D53540
       LXA     CLEVL,1        LOAD MACRO LEVEL                          F0D53550
       TXL     PMCS2,1,0      IS THIS FIRST LEVEL MACRO                 F0D53560
       CAL     MCIND          NO, PUSH DOWN INDIRECT ADDRESS FLAG       F0D53570
       STA     SSLOC                                                    F0D53580
       CLA     P7             PREPARE TO PUSH                           F0D53590
       LXA     MEPTR,1        TO MACRO EXPANSION TABLE                  F0D53600
       TSX     PUPOP,4       *PUSH DOWN OUTER MACRO STATUS              F0D53610
       ZSD     CMP22          RESET IRP INTERCEPT                       F0D53620
       LXA     MEPTR,4        LOAD POINTER TO THIS PUSH                 F0D53630
       SXD     SSLOC,4        SAVE IN CASE OF ANOTHER PUSH              F0D53640
       TRA     PMCS2+1                                                  F0D53650
       REM     MACRO IS FIRST LEVEL                                     F0D53660
 PMCS2 TRA     PMC2P                                                   $F0D53670
       SXA     MEPTR,1        SET POINTER TO NEXT ENTRY IN TABLE        F0D53680
 PMCSX AXT     **,4           RELOAD CALLING LINKAGE                    F0D53690
       TRA     1,4                                                      F0D53700
       REM                                                              F0D53710
       REM     PUSH MACRO STATUS UP                                     F0D53720
 PMCS3 SXA     PMC3X,4        SAVE CALLING LINKAGE                      F0D53730
       LXA     CLEVL,1        LOAD MACRO LEVEL                          F0D53740
       TXL     PMC3P,1,0      IS THIS FIRST LEVEL MACRO                $F0D53750
       CAL     P7             NO PREPARE TO POP                         F0D53760
       LXD     SSLOC,1        FROM MACRO EXPANSION TABLE                F0D53770
       SXA     MEPTR,1        RESET POINTER TO OVERWRITE OLD PUSH       F0D53780
       TSX     PUPOP,4       *PUSH UP OUTER MACRO                       F0D53790
       CAL     SSLOC          RESTORE INDIRECT ADDRESS FLAG             F0D53800
       STA     MCIND                                                    F0D53810
 PMC3X AXT     **,4           RELOAD CALLING LINKAGE                    F0D53820
       TRA     1,4                                                      F0D53830
       REM                                                              F0D53840
       REM     SET UP ROUTING FOR MACRO PROCESSOR                       F0D53850
 SETTP SXA     SETPX,4        SAVE CALLING LINKAGE                      F0D53860
       CAL*    1,4            LOAD OLD SWITCH                           F0D53870
       STA     ORDRF          SAVE TRANSFER ADDRESS FOR COMPARE         F0D53880
       XCL                    HOLD SWITCH                               F0D53890
       CAL     1,4            LOAD SWITCH ADDRESS,,TRANSFER ADDRESS     F0D53900
       ARS     18             RIGHT ADJUST TRANSFER ADDRESS             F0D53910
       LAS     ORDRF          IS SWITCH ALREADY INITIALIZED             F0D53920
       TRA     *+2            NO                                        F0D53930
       TRA     2,4            YES                                       F0D53940
       STA*    1,4            RESET SWITCH                              F0D53950
       CLA     LKTBP          LOAD POINTER TO NEXT SWITCH               F0D53960
       TNZ     *+2            WAS TABLE ENTRY MADE                      F0D53970
       TSX     MACERR,4     **NO                                        F0D53980
       STD*    1,4            YES, SAVE POINTER TO HIGHER LEVEL SWITCH  F0D53990
       PDC     ,4             COMPUTE LOCATION OF NEXT TABLE ENTRY      F0D54000
       CAL     0,4            LOAD POINTER TO NEXT LINK                 F0D54010
       STQ     0,4            SAVE OLD SWITCH                           F0D54020
       TZE     LKTOV        **IS TABLE EXHAUSTED                        F0D54030
       STD     LKTBP          NO, RESET POINTER TO FOLLOWING LINK       F0D54040
 SETPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D54050
       TRA     3,4                                                      F0D54060
       REM                                                              F0D54070
       REM     RESTORE LOWER LEVEL ROUTING                              F0D54080
 RESTP SXA     RESTX,4        SAVE CALLING LINKAGE                      F0D54090
       SXA     RESTX+1,1      SAVE CHARACTER COUNT                      F0D54100
       CAL     1,4            LOAD SWITCH ADDRESS,,TRANSFER ADDRESS     F0D54110
       STA     REST3          SAVE SWITCH ADDRESS                       F0D54120
       ARS     18                                                       F0D54130
       STA     LKTBB          SAVE OLD TRANSFER ADDRESS FOR COMPARE     F0D54140
       CAL*    1,4            LOAD OLD SWITCH                           F0D54150
       STD     LKTBB          ESTABLISH DUPLICATE DECREMENTS            F0D54160
       LAS     LKTBB          DOES SWITCH COMPARE WITH REQUEST          F0D54170
       TRA     *+2            NO                                        F0D54180
       TRA     REST2          YES                                       F0D54190
       TSX    (PRNT),4       *INVITE CORRESPONDENCE                     F0D54200
       PZE     QUERY,,14                                                F0D54210
       SXA     *+2,2                                                    F0D54220
       TSX     SPACP,2       *LET THEM ANSWER                           F0D54230
       AXT     **,2                                                     F0D54240
       TRA     REST1                                                    F0D54250
 QUERY BCI ,    PLEASE SEND SOURCE PROGRAM TO APPLIED PROGRAMMING ATTN. F0D54260
       BCI     4,H.MELTZER. PUSH START.                                 F0D54270
       REM     REQUEST IS NOT CURRENT SWITCH                            F0D54280
 REST1 PDC     ,1             LOAD POINTER TO NEXT SWITCH               F0D54290
       TXH     *+2,1,0        WAS TABLE ENTRY MADE                      F0D54300
       TSX     MACERR,4     **NO                                        F0D54310
       CAL     0,1            YES, LOAD LAST LINK                       F0D54320
       STD     LKTBB          SET UP DECREMENT AGAIN                    F0D54330
       LAS     LKTBB          DOES THIS LINK COMPARE WITH REQUEST       F0D54340
       TRA     *+2            NO                                        F0D54350
       TRA     REST3          YES                                       F0D54360
       SXA     *+1,1          COMPLEMENT THIS POINTER                   F0D54370
       AXC     **,1                                                     F0D54380
       SXA     REST3,1        SAVE POINTER                              F0D54390
       TRA     REST1                                                    F0D54400
       REM     REQUEST IS CURRENT SWITCH                                F0D54410
 REST2 PDC     ,1             COMPLEMENT POINTER                        F0D54420
       CAL     0,1            PICK UP LINK                              F0D54430
       SLW*    1,4            RESET SWITCH                              F0D54440
       TRA     REST3+2                                                  F0D54450
       REM     REQUEST WAS FOUND IN TABLE                               F0D54460
 REST3 AXC     **,4           LOAD POINTER                              F0D54470
       STD     0,4            INSERT LOWER POINTER IN SWITCH            F0D54480
       CAL     LKTBP          LOAD POINTER TO NEXT LINK                 F0D54490
       SLW     0,1            RESTORE TABLE                             F0D54500
       SXA     *+1,1          COMPUTE TRUE POINTER ADRESS               F0D54510
       AXC     **,1                                                     F0D54520
       SXD     LKTBP,1        RESET POINTER TO NEXT LEVEL LINK          F0D54530
 RESTX AXT     **,4           RELOAD CALLING LINKAGE                    F0D54540
       AXT     **,1           RELOAD CHARACTER COUNT                    F0D54550
       TRA     2,4                                                      F0D54560
       REM                                                              F0D54570
       REM     PUSH DOWN PARAMETER                                      F0D54580
 PDOWN SXA     PDWNX,4        SAVE CALLING LINKAGE                      F0D54590
       LDQ*    1,4            LOAD VALUE OF PARAMETER                   F0D54600
       CAL     LKTBP          LOAD POINTER TO NEXT LEVEL                F0D54610
       TNZ     *+2            WAS TABLE ENTRY MADE                      F0D54620
       TSX     MACERR,4     **NO                                        F0D54630
       STD*    1,4            YES, SAVE POINTER TO HIGHER LEVEL PARAM   F0D54640
       PDC     ,4             COMPUTE LOCATION OF NEXT TABLE ENTRY      F0D54650
       CAL     0,4            LOAD POINTER TO NEXT LEVEL                F0D54660
       STQ     0,4            SAVE OLD PARAMETER                        F0D54670
       TZE     LKTOV        **IS TABLE EXHAUSTED                        F0D54680
       STD     LKTBP          NO, RESET POINTER TO FOLLOWING LINK       F0D54690
 PDWNX AXT     **,4           RELOAD CALLING LINKAGE                    F0D54700
       TRA     2,4                                                      F0D54710
       REM                                                              F0D54720
       REM     PUSH UP PARAMETER                                        F0D54730
 PUPUP SXA     PUPPX,4        SAVE CALLING LINKAGE                      F0D54740
       CAL     1,4            LOAD PARAMETER                            F0D54750
       STA     *+1            INITIALIZE PARAMETER ADDRESS              F0D54760
       LDC     **,4           LOAD POINTER TO CURRENT LEVEL             F0D54770
       TXH     *+2,4,0        WAS TABLE ENTRY MADE                      F0D54780
       TSX     MACERR,4     **NO                                        F0D54790
       LDQ     0,4            YES, LOAD FORMER LEVEL                    F0D54800
       CAL     LKTBP          LOAD POINTER TO NEXT LEVEL                F0D54810
       SLW     0,4            RESTORE TABLE                             F0D54820
       SXA     *+1,4          COMPUTE TRUE POINTER ADDRESS              F0D54830
       AXC     **,4                                                     F0D54840
       SXD     LKTBP,4        RESET POINTER TO NEXT LINK                F0D54850
 PUPPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D54860
       STQ*    1,4            RESET FORMER LEVEL                        F0D54870
       TRA     2,4                                                      F0D54880
       REM                                                              F0D54890
       REM     PUSH / POP STATUS                                        F0D54900
 PUPOP SXA     POPPX,4        SAVE CALLING LINKAGE                      F0D54910
       STP     PUP01+1        SET PUSH / POP SWITCH                     F0D54920
       AXT     3,2            LOAD LENGTH OF SCAN STATUS WORDS          F0D54930
       TSX     PUP01,4       *PUSH / POP SCAN STATUS                    F0D54940
       PZE     SSLOC+1                                                  F0D54950
       LXD     ARGIL,2        LOAD LENGTH OF ARGUMENT TABLE             F0D54960
       TXL     *+3,2,0        ARE THERE ANY ARGUMENTS                   F0D54970
       TSX     PUP01,4       *YES, PUSH / POP ARGUMENTS                 F0D54980
       PZE     MARGS+1                                                  F0D54990
       AXT     1,2            LOAD LENGTH OF IRP SWITCH                 F0D55000
       TSX     PUP01,4       *PUSH/POP IRP INTERCEPT                    F0D55010
       PZE     CMP22+1                                                  F0D55020
       PDX     ,4             LOAD IRP SWITCH                           F0D55030
       TXL     POPPX,4,0      IS CARD IN RANGE OF IRP                   F0D55040
       AXT     4,2            YES, LOAD LENGTH OF IRP STATUS WORDS      F0D55050
       TSX     PUP01,4       *PUSH / POP IRP STATUS                     F0D55060
       PZE     IRPAR+1                                                  F0D55070
 POPPX AXT     **,4           RELOAD CALLING LINKAGE                    F0D55080
       TRA     1,4                                                      F0D55090
       REM                                                              F0D55100
 PUP01 CAL     1,4            LOAD ORIGIN OF LIST TO BE PUSHED / POPPED F0D55110
       ***     PUP02          (TXH IF PUSH, TXL IF POP)                 F0D55120
       STA     *+1            INITIALIZE PUSH ADDRESS                   F0D55130
       CLA     **,2           PUSH FROM                                 F0D55140
       STO     0,1            TO                                        F0D55150
       TXI     *+1,1,-1       BUMP TO COUNT                             F0D55160
       TIX     *-3,2,1        IS LIST EXHAUSTED                         F0D55170
       TRA     2,4            YES                                       F0D55180
 PUP02 STA     *+2            INITIALIZE POP ADDRESS                    F0D55190
       CLA     0,1            POP FROM                                  F0D55200
       STO     **,2           TO                                        F0D55210
       TXI     *+1,1,-1       BUMP FROM COUNT                           F0D55220
       TIX     *-3,2,1        IS LIST EXHAUSTED                         F0D55230
       TRA     2,4            YES                                       F0D55240
       REM                                                              F0D55250
       REM     STUFF MACRO DEFINITION INTO MACDEF                       F0D55260
       REM     STUFF MACRO CALL ARGUMENTS INTO MACEXP                   F0D55270
       REM     STUFF MACRO EXPANSION INTO BCDBF                         F0D55280
       REM                                                              F0D55290
       REM     TO INITIALIZE  CAL *                                     F0D55300
       REM                    TRA STUFY                                 F0D55310
       REM                    *** RETURN                                F0D55320
       REM                    XR1 = -(FIRST LOC TO BE STUFFED INTO)     F0D55330
       REM                    XR2 = -1/+1 TO STUFF FORWARD/BACKWARD     F0D55340
       REM                    XR4 = -(FIRST FORBIDDEN LOCATION) OVERFLOWF0D55350
       REM                          NO TEST FOR STUFFING BACKWARD       F0D55360
       REM                                                              F0D55370
       REM     TO CALL        CAL *                                     F0D55380
       REM                    TRA STUFF                                 F0D55390
       REM                    *** OVERFLOW RETURN (STUFFING FORWARD)    F0D55400
       REM                    *** NORMAL RETURN                         F0D55410
       REM                    XR1 = -(FIRST WORD TO BE STUFFED FROM)    F0D55420
       REM                    XR2 = NUMBER OF CHARS PRECEDING CHAR      F0D55430
       REM                          TO BE STUFFED (0 - 5)               F0D55440
       REM                    XR4 = NUMBER OF CHARACTERS TO STUFF       F0D55450
       REM                                                              F0D55460
       REM     INITIALIZE STUFF ROUTINE                                 F0D55470
 STUFY ACL     Q2             COMPUTE RETURN TO CALL+1                  F0D55480
       STA     STUFX          INITIALIZE RETURN                         F0D55490
       ZSD     STUM2          RESET HANGING OUTPUT CHARACTER COUNT      F0D55500
       ZSD     STF01                                                    F0D55510
       SXD     STUFI,1        SET FIRST LOCATION TO BE STUFFED INTO     F0D55520
       SXD     STF08+1,2      SET DIRECTION OF STUFF                    F0D55530
       SXD     STF10+2,2                                                F0D55540
       AXT     ,0                                                   (23)F0D55550
       TXH     *+2,2,1        IS STUFF BACKWARD                         F0D55560
       AXT     0,4            YES, DELETE OVERFLOW TEST                 F0D55570
       SXD     STF03+1,4      INITIALIZE OVERFLOW TESTS                 F0D55580
       SXD     STF08+2,4                                                F0D55590
 STUFX TRA     **                                                       F0D55600
       REM                                                              F0D55610
       REM     ENTER MACRO INFORMATION INTO MACRO TABLES                F0D55620
 STUFF ACL     Q2             COMPUTE CALL+1                            F0D55630
       STA     STF09          INITIALIZE OVERFLOW RETURN                F0D55640
       ACL     Q1             COMPUTE CALL+2                            F0D55650
       STA     STF11+1        INITIALIZE NORMAL RETURN                  F0D55660
       TXH     STF01,4,0      ANY CHARACTERS TO BE STUFFED              F0D55670
 STF12 LXD     STF08+1,2      PREPARE TO BUMP STUFF POINTER         (23)F0D55680
 STUFI TXI     STF11+1,2,**   ,,LOCATION TO BE STUFFED INTO         (23)F0D55690
 STF01 TXI     *+1,4,**       BUMP COUNT TO INCLUDE PARTIAL STUFFED WORDF0D55700
       CLA     STUM2          COMPUTE PARTIAL STUFFED BIT COUNT         F0D55710
       ARS     1              (6* CHARACTER COUNT)                      F0D55720
       ADD     STUM2                                                    F0D55730
       ARS     16                                                       F0D55740
       STO     STUM2                                                    F0D55750
       STA     STF04          SET SHIFT TO RIGHT ADJUST                 F0D55760
       REM                    PARTIAL STUFFED WORD                      F0D55770
       PXD     ,2             COMPUTE INPUT BIT COUNT                   F0D55780
       ARS     16             (6*(N-1) FOR NTH CHARACTER)               F0D55790
       STO     NERAS                                                    F0D55800
       ARS     1                                                        F0D55810
       ADD     NERAS                                                    F0D55820
       STO     NERAS                                                    F0D55830
       STA     STF05          SET SHIFT TO LEFT ADJUST INPUT CHARACTER  F0D55840
       SUB     STUM2          COMPUTE LEAD OF INPUT CHARACTER           F0D55850
       TMI     STF02          DOES INPUT CHARACTER LEAD OUTPUT CHARACTERF0D55860
       STA     STF07          NO, SET SHIFT TO APPEND LEADING           F0D55870
       REM                    CHARACTERS IN NEXT INPUT WORD             F0D55880
       SUB     Q36                                                      F0D55890
       STA     STF08          SET SHIFT TO RIGHT ADJUST FOLLOWING       F0D55900
       REM                    CHARACTERS IN NEXT INPUT WORD             F0D55910
       ADD     STUM2                                                    F0D55920
       STA     STF05+1        SET SHIFT TO APPEND LEADING               F0D55930
       REM                    CHARACTERS IN FIRST INPUT WORD            F0D55940
       CLA     P7             SET SWITCH TO LOAD NEXT INPUT WORD        F0D55950
       STP     STF06          FOR BALANCE OF FIRST STUFFED WORD         F0D55960
       TRA     STF03                                                    F0D55970
       REM     FIRST INPUT CHARACTER LEADS LAST OUTPUT CHARACTER        F0D55980
 STF02 STA     STF08          SET SHIFT TO RIGHT ADJUST FOLLOWING       F0D55990
       REM                    CHARACTERS IN NEXT INPUT WORD             F0D56000
       ADD     Q36                                                      F0D56010
       STA     STF07          SET SHIFT TO APPEND LEADING               F0D56020
       REM                    CHARACTERS IN NEXT INPUT WORD             F0D56030
       SUB     NERAS                                                    F0D56040
       STA     STF05+1        SET SHIFT TO APPEND LEADING               F0D56050
       REM                    CHARACTERS IN FIRST INPUT WORD            F0D56060
       CAL     P7             SET SWITCH TO RETAIN FIRST INPUT WORD     F0D56070
       STP     STF06          FOR BALANCE OF FIRST STUFFED WORD         F0D56080
       REM     STUFF ROUTINE IS INITIALIZED. STUFF OUTPUT WORDS         F0D56090
 STF03 LXD     STUFI,2        LOAD LOCATION OF FIRST WORD TO BE STUFFED F0D56100
       TXL     STF09,2,**     WILL STUFFED WORD OVERFLOW                F0D56110
       LDQ     0,2            NO, LOAD PARTIAL STUFFED WORD             F0D56120
 STF04 LGL     **             RIGHT ADJUST PARTIAL STUFFED WORD         F0D56130
       LDQ     0,1            LOAD FIRST INPUT WORD                     F0D56140
 STF05 RQL     **             LEFT ADJUST FIRST INPUT CHARACTER         F0D56150
       LGL     **             APPEND INPUT CHARACTERS TO PARTIAL WORD   F0D56160
 STF06 ***     STF07+1,,0     DOES INPUT CHARACTER LEAD OUTPUT CHARACTERF0D56170
       TXI     *+1,1,-1       NO, BUMP INPUT WORD COUNT TO NEXT WORD    F0D56180
       LDQ     0,1            LOAD NEXT INPUT WORD                      F0D56190
 STF07 LGL     **             APPEND LEADING CHARACTERS NEXT INPUT WORD F0D56200
       SLW     0,2            ADD TO TABLE                              F0D56210
       TNX     STF10,4,6      IS ENTRY COMPLETE                         F0D56220
 STF08 LGL     **             NO, RIGHT ADJUST FOLLOWING CHARACTERS     F0D56230
       REM                    NEXT INPUT WORD                           F0D56240
       TXI     *+1,2,**       BUMP STUFFED WORD COUNT                   F0D56250
       TXH     STF06+1,2,**   WILL STUFFED WORD OVERFLOW                F0D56260
       SXD     STUFI,2        YES, SAVE LAST WORD STUFFED               F0D56270
 STF09 TRA     **             RETURN TO CALL+1                          F0D56280
       REM     ENTRY IS COMPLETE                                        F0D56290
 STF10 TXL     *+3,4,5        WAS LAST WORD COMPLETE                    F0D56300
       AXT     0,4            YES, RESET HANGING CHARACTER COUNT        F0D56310
       TXI     *+1,2,**       BUMP STUFFED WORD COUNT FOR FINAL WORD    F0D56320
       SXD     STUFI,2        SAVE LOCATION OF LAST (PART) WORD STUFFED F0D56330
       SXD     STUM2,4        SAVE PARTIAL WORD CHARACTER COUNT         F0D56340
       SXD     STF01,4                                                  F0D56350
 STF11 TXH     STF12,4,0      BUMP COUNT IF PARTIAL WORD EXISTS     (23)F0D56360
       TRA     **             RETURN TO CALL+2                          F0D56370
       REM                                                              F0D56380
       REM     GENERALIZED SCAN ROUTINE                                 F0D56390
       REM                                                              F0D56400
       REM     SCANS FOR SELECTED CHARACTER IN LOW ORDER POSITION       F0D56410
       REM     IN TABLE AT LOCATION C OF LENGTH N                       F0D56420
       REM     TABLE IN DECREASING SORT ORDER                           F0D56430
       REM                                                              F0D56440
       REM     TO INITIALIZE  TSX   SCANS,4                             F0D56450
       REM                    TXL   K,,C+N    RETURN TO K AFTER EACH CH F0D56460
       REM                   (TXH   ,,C+N     NO RETURN)                F0D56470
       REM                    TXL   L,,N      RETURN TO L AFTER SEL CH  F0D56480
       REM                    TXL   M,1,-J-1  RETURN TO M AFTER J EXHST F0D56490
       REM                   (TXH   M,1,-J    SCAN BACKWARD)            F0D56500
       REM                                                              F0D56510
       REM     TO CALL, REGISTERS UPDATED                               F0D56520
       REM                    TRA   SCANT                               F0D56530
       REM     TO CALL, REGISTERS UNDISTURBED                           F0D56540
       REM                    TRA   SCANU                               F0D56550
       REM                OR  TXI   SCANU+1,2,1                         F0D56560
       REM                                                              F0D56570
       REM     ON RETURN      XR1, XR2 AT LAST CHARACTER SCANNED        F0D56580
       REM                    CURRENT CHARACTER IN AC                   F0D56590
       REM                    SELECTED CHARACTER POSITION IN XR4        F0D56600
       REM                                                              F0D56610
 SCANS CAL     1,4            LOAD RETURN1,,ORIGIN AT END OF TABLE      F0D56620
       SLW     SCAN6          INITIALIZE SINGLE CHARACTER RETURN        F0D56630
       ARS     18                                                       F0D56640
       STA     SCAN4          INITIALIZE ORIGIN OF SELECTED CHAR TABLE  F0D56650
       CAL     2,4            LOAD RETURN2,,LENGTH OF TABLE             F0D56660
       SLW     SCAN5          INITIALIZE SELECTED CHARACTER RETURN      F0D56670
       LDQ     3,4            LOAD RETURN3,,END OF SCAN TEST            F0D56680
       STQ     SCAN2          INITIALIZE TEST FOR END OF SCAN           F0D56690
       CAL     D1             PRELOAD BUMPER BACKWARD                   F0D56700
       TQP     *+2            IS SCAN BACKWARD                          F0D56710
       CAL     D32767         NO, LOAD BUMPER FORWARD                   F0D56720
       STD     SCAN1          SET DIRECTION OF SCAN                     F0D56730
       TRA     4,4                                                      F0D56740
       REM                                                              F0D56750
 SCANT TXL     SCAN2,2,5      IS WORD EXHAUSTED                         F0D56760
 SCAN1 TXI     *+1,1,**       YES, BUMP TO NEXT WORD                    F0D56770
       TXI     SCANT,2,-6     RESET CHARACTER COUNT                     F0D56780
 SCAN2 ***     **,,**         IS SCAN EXHAUSTED                         F0D56790
       LDQ     0,1            NO, LOAD CURRENT WORD                     F0D56800
       TXL     SCAN3,2,0      IS FIRST CHARACTER NEXT                   F0D56810
       PXD     ,2             NO, COMPUTE LENGTH OF SHIFT               F0D56820
       PDX     ,4                                                       F0D56830
       RQL     6              ROLL UP NEXT CHARACTER                    F0D56840
       TIX     *-1,4,1        IS THIS IT                                F0D56850
 SCAN3 ZAC                    YES, LOAD NEXT CHARACTER                  F0D56860
       LGL     6                                                        F0D56870
       LXD     SCAN5,4        LOAD LENGTH OF SPECIAL CHARACTER TABLE    F0D56880
 SCAN4 LAS     **,4           IS IT THIS CHARACTER                      F0D56890
       TRA     SCAN6          NO, NOT IN TABLE                          F0D56900
 SCAN5 ***     **,,**         YES, RETURN                               F0D56910
       TIX     SCAN4,4,1      IS TABLE EXHAUSTED                        F0D56920
 SCAN6 ***     **,,**         YES, IS SINGLE CHARACTER RETURN REQUESTED F0D56930
 SCANU TXI     *+1,2,1        NO, BUMP TO NEXT CHARACTER                F0D56940
       TXL     SCAN3,2,5      IS WORD EXHAUSTED                         F0D56950
       TRA     SCAN1          YES                                       F0D56960
       EJECT                                                            F0D56970
       REM     MACRO PROCESSOR ERASABLE STORAGE AND CONSTANTS           F0D56980
       REM                                                              F0D56990
 ARGNO PZE     ,,**           MACRO ARGUMENT NUMBER                     F0D57000
 ARGWD PZE                    MACRO LOCATION ARGUMENT                   F0D57010
 COUNT PZE     ,,**           MACRO FIELD COUNT                         F0D57020
 CRSNO PZE     **,,5          POINTER TO LAST CREATED SYMBOL,,COUNT     F0D57030
 LCARG PZE                    MACRO LOCATION ARGUMENT                   F0D57040
 MACNO PZE     **,,**         MACRO LEVEL,,POINTER TO NEXT LEVEL        F0D57050
 MCIND PZE     **             FLAG FOR INDIRECTLY ADDRESSED MACRO       F0D57060
 MOPCH PZE                    NEXT CHARACTER IN MACRO VARIABLE FIELD    F0D57070
 MOPMQ PZE                    RESIDUE OF WORD IN MACRO VARIABLE FIELD   F0D57080
 MOPNM PZE                    NAME OF MACRO BEING DEFINED               F0D57090
 MOPTR PTW     MACOP+1,,-VECTOR+1 SECOND WORD IN COMBINED OPERATN TABLE F0D57100
       REM                    DECREMENT IS POINTER TO NEXT AVAILABLE    F0D57110
       REM                    SPACE FOR HEADING IN MACRO DEF TABLE      F0D57120
       REM                    TABLE EXTENDS DOWN TOWARDS MACEXP         F0D57130
       REM                    PASS 2 TRANSFER ADDRESS WILL REPLACE THIS F0D57140
       REM                    WHEN PASSED FORWARD ON INTERMEDIATE TAPE  F0D57150
 PARNC PZE     **             MACRO PARENTHESES COUNT                   F0D57160
 PCONT PZE     ,,**           MACRO PARTIAL FIELD OR HOLLERITH COUNT    F0D57170
 PSYMB PZE                    MACRO PARTIAL FIELD                       F0D57180
 RMTEN PZE     ,,-*-1    (1)  POINTER TO MOST RECENTLY DEFINED SEQUENCE F0D57190
       PZE     ,,**      (2)  POINTER TO FIRST REMOTE SEQUENCE          F0D57200
 STUM2 PZE     **,,**         PARTIAL STUFFED WORD BIT COUNT,,CHAR COUNTF0D57210
 TOTAL PZE     ,,**           MACRO VARIABLE FIELD COUNT                F0D57220
 MDFCT PZE     **,,**    (1)  MACRO DEFINITION WORD,,CHARACTER COUNTS   F0D57230
 ARGIL PZE     ,,**      (2)  ,,NUMBER OF ARGUMENTS                     F0D57240
 SSLOC PZE     **,,**    (3)  IND ADD FLAG,,POINTER TO LAST SAVED SCAN  F0D57250
       REM     FOLLOWING PARAMS DESCRIBE IRP CARD WITHIN MACRO DEF TABLEF0D57260
 IRPNO PZE     **,,**    (1)  PUNCTUATION CHARACTER,,ARGUMENT COUNT     F0D57270
 IRPPW PZE     **,,**    (2)  MACRO SKELETON WORD,,CHARACTER COUNTS     F0D57280
 IRPSD PZE     **,,**    (3)  BEGINNING OF STRING WORD,,CHARACTER COUNT F0D57290
 IRPAR PZE     **,,**    (4)  REF TO THIS ARG,,POINTER TO NEXT ARG      F0D57300
 DARGS BES     64             BCD MACRO DEFINITION ARGUMENTS            F0D57310
       BSS     63        (1)  POINTERS TO ARGS IN MACRO EXPANSION TABLE F0D57320
 MARGS PZE     **,,**    (2)  -(LOC OF STRING),,(LENGTH OF STRING)      F0D57330
 LKTBB TXI     **,,**         OLD TRANSFER ADDRESS,,POINTER             F0D57340
 LKTBP DUP     1,112                                                    F0D57350
       PZE     ,,*+1          ,,POINTER TO NEXT LINK                    F0D57360
       PZE                    LINK TABLE END                            F0D57370
       REM                                                              F0D57380
 MOPP2 MZE     ,,5$UNLOP+1    PASS 2 TRANSFER TO PRINT MACRO CARD       F0D57390
 RMTP2 PZE     ,,5$RMTOP      PASS TWO ADDRESS TO RESET HEADING CHAR    F0D57400
 PRNLT TXI     SSN10,,1       TRANSFER TO DISABLE SCAN ON ,             F0D57410
 PRNLS TXI     SSN07,,0       TRANSFER TO ENABLE SCAN ON ,              F0D57420
       REM                                                              F0D57430
 MDTBL PZE     63        (1)  ARGUMENT MARK                             F0D57440
       PZE     62        (2)  VARIABLE FIELD MARK                       F0D57450
       PZE     01        (3)  OPCODE MARK                               F0D57460
       PZE     00        (4)  END OF RECORD MARK                        F0D57470
       REM                                                              F0D57480
 MPKMK OCT     007777770000   MASK FOR CARD COLUMNS 8 - 10              F0D57490
       OCT     777777777777   (1)                                       F0D57500
       OCT     777777777700   (2)                                       F0D57510
       OCT     777777770000   (3)                                       F0D57520
       OCT     777777000000   (4)                                       F0D57530
       OCT     777700000000   (5)                                       F0D57540
       OCT     770000000000   (6)                                       F0D57550
 MARMK OCT     000000000000   (7)                                       F0D57560
       REM                                                              F0D57570
 IRPMK BCI     1,0IRP 0                                                 F0D57580
 BCDMM BCI     1,BCD000                                                 F0D57590
 BCIMM BCI     1,BCI000                                                 F0D57600
 TTLMM BCI     1,TTL000       THIRD OF FOUR ENTRIES IN TABLE        (23)F0D57610
 REMMM BCI     1,REM000                                                 F0D57620
 RMTMM BCI     1,RMT000                                                 F0D57630
 ENDMM BCI     1,END000                                             (23)F0D57640
 CRSNM BCI     1,CRSYMB                                                 F0D57650
 LVLNM BCI     1,LEVEL                                                  F0D57660
 MDFNM BCI     1,MACRO                                                  F0D57670
 PARFL BCI     1, ()                                                    F0D57680
 UNDFL BCI     1, U                                                     F0D57690
 CRPT1 BCI     1,00.000       DECIMAL POINT FOR CREATED SYMBOL CHAR 3   F0D57700
 CRPT2 BCI     1,.0000        DECIMAL POINT FOR CREATED SYMBOL CHAR 2   F0D57710
       REM                                                              F0D57720
 NUM04 MPY     INP06                                                (25)F0D57730
       STQ     INP06                                                (25)F0D57740
       TRA     UPD03          RETURN                                (25)F0D57750
       PZE                    (NOT USED)                            (25)F0D57760
       REM                                                              F0D57770
 MCTBL BCI     1,00000(  (1)                                            F0D57780
       BCI     1,00000,  (2)                                            F0D57790
       BCI     1,00000   (3)                                            F0D57800
       BCI     1,00000)  (4)                                            F0D57810
       REM                                                              F0D57820
 ETCCD BCI     3,       ETC                                             F0D57830
 RMTCD BCI     6,       REM      REMOTE SEQUENCES                       F0D57840
       REM                                                              F0D57850
       REM     FORM OF ENTRY IN MACRO DEFINITION TABLE                  F0D57860
       REM     HEADING, MACRO DEF  PZE ,,ARGUMENT COUNT                 F0D57870
       REM                        (MZE    IF LAST ARG IS SYMBOLIC LOC)  F0D57880
       REM              RMT SEQ    PZE HEAD CHAR,,PTR TO NEXT SEQUENCE  F0D57890
       REM                         CARD IMAGE SKELETONS FOLLOW          F0D57900
       REM                                                              F0D57910
       REM     STRUCTURE OF SKELETONIZED CARD IMAGE                     F0D57920
       REM     FIELD MARKS (OCTAL) 01  OPCODE FOLLOWS                   F0D57930
       REM                         76NN  VARIABLE FIELD FOLLOWS     (24)F0D57940
       REM                        (PRECEDED BY NN CARD CHARACTERS)  (24)F0D57945
       REM                         00  END OF RECORD                    F0D57950
       REM                         (END MARK IS DOUBLE END OF RECORD)   F0D57960
       REM     FORM OF FIELD, ARG  77NN  WHERE NN IS ARGUMENT NUMBER    F0D57970
       REM                    OR   7700  FLAG FOR PROGRAMMERS ETC       F0D57980
       REM                    OR   NNXX  WHERE NN IS CHARACTER COUNT+1  F0D57990
       REM                                                              F0D58000
       REM                                                              F0D58010
 ETCPC STZ     SYMBL          DELETE ADDED FIELD                       $F0D58020
       LXA     GSAV2,2        RESTORE X2                               $F0D58021
       TRA     GSC18                                                   $F0D58022
 HYPOP CAL     OPBIN          LOAD OPCODE                              $F0D58023
       SLW     LITRL          SAVE FOR PASS TWO                        $F0D58024
       AXT     5$HYPOP,4      SET PASS TWO TRANSFER ADDRESS            $F0D58025
       SXD     OPBIN,4                                                 $F0D58026
       TSX     ESYML,4       *DEFINE POSSIBLE LOCATION FIELD           $F0D58027
       CLA     Q1             ORDER TAKES ONE WORD                     $F0D58028
       TSX     BPCTR,4       *BUMP LOCATION COUNTER                    $F0D58029
       TRA     READ1                                                   $F0D58030
       REM                                                             $F0D58031
 SRCS1 LDQ     INSBF+1        LOAD SOURCE CARD LOCATION FIELD          $F0D58032
       ZAC                                                             $F0D58033
       LGL     6                                                       $F0D58034
       ERA     ASTRK          IS IT *REMARK CARD                       $F0D58035
       TZE     *+4            YES                                      $F0D58036
       ERA     Q7             IS IT $REMARK CARD                       $F0D58037
       TZE     *+2            YES                                      $F0D58038
       CAL     D32767         NO,PUT OCTAL 77777 IN DECREMENT          $F0D58039
       STD     INP2A+1        SET REMARK CARD SWITCHES                 $F0D5803A
       STD     INP3A                                                   $F0D5803B
       STD     INPCH                                                   $F0D5803C
       CAL     SRCID          COMBINE SOURCE SERIALIZATION             $F0D5803D
       TRA     SRCSW+4                                                 $F0D5803E
INP2A  ZSD     DELUP+2        RESET HANGING INGORE SWITCH              $F0D5803F
       TXH     INP02+17,4,-1  TRANSFER IF REMARKS CARD                 $F0D5803G
       TRA     INP02+8                                                 $F0D5803H
INP3A  TXH     INP04-7,4,-1   TRANSFER IF REMARKS CARD                 $F0D5803I
       CAL     BCDBF+1        LOAD SOURCE WORD 2                       $F0D5803J
       TRA     INP03+6                                                 $F0D5803K
INPCH  TXH     INP03,4,-1     IF REMARKS CARD-DELETE AND PRINT         $F0D5803L
       CAL     INSBF+2        LOAD  SOURCE  WORD  2                    $F0D5803M
       ERA     IGNR           IS IT IGNORE                             $F0D5803N
       TNZ     INP03          NO,DELETE AND PRINT CARD                 $F0D5803O
       AXT     -1,4           YES,SET IGNORE SWITCH                    $F0D5803P
       SXD     DELUP+2,4                                               $F0D5803Q
       TRA     INP03          DELETE,DO NOT PRINT                      $F0D5803R
IGNR   BCI     1, IGNOR                                                $F0D5803S
CALN1  NZT     ABSFLG         IS IT ABSOLUTE ASSEMBLY                  $F0D5803T
       STL     TVFLG          NO,SET TRANSFER VECTOR NAME FLAG         $F0D5803U
       TRA     CALNM+3                                                 $F0D5803V
 MAC2A TSX     ESYML,4       *DEFINE LOCATION FIELD                    $F0D5803W
       TRA     MAC07+3                                                 $F0D5803X
 ESYMZ TXH     ESYMS+1,4,**   DID WE OVERLAP MACRO TABLE               $F0D5803Y
       TRA     ESYMS-5        YES, CALL SOURCE ERROR                   $F0D5803Z
 EOFIN STZ     TTLFG          KILL SUBTITLE                         (26)F0D58040
       TRA     EOFER                                                (26)F0D58041
 ETEST AXT     0,2                                                     $F0D58042
       LDI     (SCHU)+MINTAP                                           $F0D58043
       RNT     100           IS IT REDUNDANCY ERROR                    $F0D58044
       TRA     SRCRR+2       YES-MACHINE ERRROR                        $F0D58045
       TRA     *+2           NO - BINARY CARD                          $F0D58046
 EOFER AXT     -1,2          END  OF FILE CARD                         $F0D58047
       TSX     FPRINT,4      PRINT POSSIBLE REASON FOR ERROR           $F0D58048
       PZE     SRCRM,,10                                               $F0D58049
 AECRD CAL     ECARD,2       SET UP ERROR MESSAGE                      $F0D5804A
       SLW     ENDER+4                                              (26)F0D5804B
       TSX     FPRINT,4      PRINT ERROR MESSAGE                       $F0D5804C
       PZE     ENDER,,6       OFF LINE                              (26)F0D5804D
       TSX     (TAPE),4       BACKSPACE OVER EOF                    (26)F0D5804E
       PZE     BSREC,,(SKDP)  OR BINARY                             (26)F0D5804F
       PZE     ,,MINTAP                                             (26)F0D5804G
       TSX     WRFBK,4        WRITE LAST PARTIAL LISTING BUFFER     (26)F0D5804H
       TSX     (SECL),4       CALL SOURCE ERROR RECORD              (26)F0D5804I
ENDER  BCI     6, HAS CAUSED FAP TO READ        CARD                (26)F0D5804.
       DUP     1,4            PATCH SPACE                           (26)F0D5804)
       PZE                                                          (26)F0D5804J
 OTPT3 STA     BCDBF+13       AS LOW ORDER 18 BITS                     $F0D5804M
       STT     BCDBF+13       OF WORD 14                               $F0D5804N
       TRA     OTPT2+1                                                 $F0D5804O
 RMT03 LXA     CLEVL,4        GET MACRO NESTING LEVEL                  $F0D5804P
       TXH     RMT02+2,4,0    WAS THIS NESTED DEFINITION               $F0D5804Q
       SXD     ESYMZ,2        NO,INITIALIZE TEST                       $F0D5804R
       TRA     RMT02+2                                                 $F0D5804S
 PMC2P CLA     STPTR          FLOAT MACRO EXPANSION TABLE              $F0D5804T
       ADM     MOPTR          BETWEEN SYMBOL TABLE AND                 $F0D5804U
       ARS     1              MACRO DEFINITION TABLE                   $F0D5804V
       PDX     ,1                                                      $F0D5804W
       SXD     ESYMZ,1        INITIALIZE SYMBOL TABLE OVERFLOW TEST    $F0D5804X
       TRA     PMCS2+1                                                 $F0D5804Y
 STP0A TMI     READ1         TRANSFER IF CC7 * COMMENTS CARD           $F0D5804Z
       ZSD     COMCD+2       OTHERWISE RESET SWITCH                    $F0D58050
       TRA     COMCD+4                                                 $F0D58051
 FRPA1 CAL*    (FGBX)                                                  $F0D58052
       ANA     Q4            IS THIS AN IBSFAP JOB                     $F0D58053
       TNZ     ENDC+2        YES                                       $F0D58054
       RNT     000040        NO,IS END CARD SETTING 10 SPECIFIED       $F0D58055
       ZSD     WRIT0+3       NO,SET SWITCH TO UNBUFFER LISTING OUTPUT  $F0D58056
       TRA     ENDC+2                                                  $F0D58058
 FRPA2 ZET     FCFLG         IS THIS FIRST CARD GROUP                  $F0D58059
       TRA     FIELD       **NO                                        $F0D58060
  GO   TSX     SSCAN,4      *FIND VARIABLE FIELD                       $F0D58064
       TRA     TEST          VARIABLE FIELD BLANK                      $F0D58065
       CAL     SYMBL         IS VARIABLE FIELD                         $F0D58066
       ERA     TROF          FORTRAN                                   $F0D58067
       TZE     FORT          YES                                       $F0D58068
       CAL     SYMBL         NO, IS VARIABLE FIELD                     $F0D58069
       ERA     SISBI         IBSYS                                     $F0D58070
       TZE     TBLE          YES                                       $F0D58071
 TEST  LDI*    (FGBX)                                                  $F0D58072
       RNT     4             IS THIS AN IBSFAP JOB                     $F0D58073
       TRA     FORT          NO, THIS IS A FORTRAN JOB                 $F0D58074
 TBLE  CLA     SIZE                                                    $F0D58075
       STD     SYMSIZ        CHANGE SST SIZE                           $F0D58076
       AXT     LIBTBL,1                                                $F0D58077
 LOOP  CLA     SYSTBL+LIBTBL,1                                         $F0D58078
       STO     SYMTBL+LIBTBL,1                                         $F0D58079
       TIX     LOOP,1,1                                                $F0D58080
 FORT  ZSD     ESYMT+2       SET SWITCH TO SAVE SST                    $F0D58081
       TRA     READ1                                                   $F0D58082
 TROF  BCI     1,ORTRAN                                                $F0D58083
 SISBI BCI     1,0IBSYS                                                $F0D58084
 SIZE  PZE     **,,-LIBTBL                                             $F0D58085
PATCHA SLN     FLDND         SENSE LIGHT INDICATES END OF VAR. FIELD   $F0D58092
       TRA     UPSCX         RETURN TO RELOAD CALLING SEQUENCE         $F0D58093
 JPLCH TSX     (LOAD),4,1   *AFTER PASS ONE, CALL PASS TWO.            $F0D58094
       BCI     1,9F0500      REC. 6 PARAMETER. PASS 2.                 $F0D58095
 MSC07 ERA     BLANK          IS PUNCTUATION )                      (24)F0D58096
       TZE     MSC06          YES, STUFF AS PART OF OP CODE         (24)F0D58097
       ERA     MINUS          NO, IS PUNCTUATION (                  (24)F0D58098
       TXL     MSC08,2,-2    (MAKE THE CHECK ONLY IF IT WAS         (24)F0D58099
       TXL     MSC08,1,5      FOUND IN CARD COLUMN EIGHT)           (24)F0D58100
       TZE     MSC06          YES, STUFF AS PART OF OP CODE         (24)F0D58101
 MSC08 ERA     PRIME          IS PUNCTUATION BLANK                  (24)F0D58102
       TZE     MSC05          IF YES, STUFF VARIABLE FIELD FLAG     (24)F0D58103
       LDQ     RESIDU         NO, RESET SCAN POSITION TO INCLUDE    (24)F0D58104
       CAL     CHRCTR         CURRENT PUNCTUATION CHARACTER         (24)F0D58105
       LGR     6                                                    (24)F0D58106
       STQ     RESIDU                                               (24)F0D58107
       TXI     MSC10+2,1,1    GO TO VARIABLE FIELD SCAN             (24)F0D58108
 MSC09 LDQ     MOPMQ          RESTORE BEGINNING OF VARIABLE         (24)F0D58109
       STQ     RESIDU         FIELD FOR SCAN ROUTINES               (24)F0D58110
       CAL     MOPCH                                                (24)F0D58111
       SLW     CHRCTR                                               (24)F0D58112
       LAC     VRFLD,1        LOAD CHARACTER AND WORD POSITIONS     (24)F0D58113
       LDC     VRFLD,2        OF VARIABLE FIELD SCAN                (24)F0D58114
       TXH     *+2,2,1        COMPUTE NUMBER OF CHARACTERS          (24)F0D58115
       TXI     MSC05+3,1,13   PRECEDING VARIABLE FIELD              (24)F0D58116
       TXI     MSC05+3,1,19                                         (24)F0D58117
 G10PA SUB     D1            *OMIT BLANK PUNCTUATION CHARACTER         $F0D58118
       STO     PCONT          FROM STUFF COUNT.                        $F0D58119
       REM     REENTRY FOR FIELD IS AN ARGUMENT WITH BLANK PUNCTUATION.$F0D58120
 G10P1 SXD     GSC09+3,4     *SET FIRST BLANK SWITCH TO AVOID          $F0D58121
       REM                    UPDATING PCONT TO INCLUDE                $F0D58122
       REM                    BLANK PUNCTUATION ONLY.                  $F0D58123
       TXL     GSC11,4,-2    *IS FIELD AN ARGUMENT...                  $F0D58124
       STZ     PCONT          YES.ZERO PARTIAL STUFF COUNT IN CASE     $F0D58125
       REM                    GSC11+3 IS REACHED BEFORE GSC10+2.       $F0D58126
       TRA     MSC23         *ENTRY WAS FROM GSC10+1.                  $F0D58127
 GSFPA SXD     GSFP2,1       *STORE NO.+5 TO STUFF 2ND TIME.           $F0D58128
       AXT     19,1           STUFF 18 CHARACTERS FIRST TIME.          $F0D58129
       TSX     GSCS1-2,4     *SET GSCFX TO RETURN TO PATCH.            $F0D58130
 GSFP1 AXT     **,4          *SET GSCFX TO RETURN TO CALLER.           $F0D58131
       AXT     -4,1           UPDATE GSCX1 WITH LOCATION               $F0D58132
       SXA     GSCX1,1        TO STUFF FROM NEXT.                      $F0D58133
 GSFP2 TXI     GSCS1-2,1,**  *STUFF REMAINDER OF FIELD.                $F0D58134
 MP1   TXH     OVRLP,4,**     DID TABLE OVERFLOW                       $F0D58135
       SXD     STUFI,4        NO, PICK UP LAST LOCATION USED           $F0D58136
       TRA     RESTF+3                                                 $F0D58137
       REM                                                             $F0D58138
SKF01  CLA     UPT02+1        WAS SKPFIL TAPE                          $F0D58139
       SUB     UPDTAP         SAME AS UPDATE INPUT                     $F0D58140
       TNZ     SOURC        **NO                                       $F0D58141
       ZSA     IPRECT         YES,ZERO MEANINGLESS COUNT               $F0D58142
       TSX     RDUPD,4       *REINITIATE BUFFER READING                $F0D58143
       AXT     -1,4           SET EMPTY BUFFER SWITCH                  $F0D58144
       SXD     UPDSW,4                                                 $F0D58145
       TRA     SOURC                                                   $F0D58146
 EVNOP STL     EVNFLG         SET FLAG FOR EVEN PROLOGUE, ETC.         $F0D58147
       LDI     LOCTR          GET PROGRAM COUNTER                      $F0D58148
       CAL     Q1                                                      $F0D58149
       RFT     1              IS IT ODD..                              $F0D58150
       TSX     BPCTR,4       *YES, BUMP IT                             $F0D58151
       TRA     READ1                                                   $F0D58152
       REM                                                             $F0D58153
       REM     PATCH TO ADJUST PROGRAM CARD FOR EVEN                   $F0D58154
 ENDFP CAL     PBUFF1+5       LOAD LENGTH OF PROLOGUE                  $F0D58155
       NZT     EVNFLG         DID EVEN OPS OCCUR..                     $F0D58156
       TRA     ENDFF+1      **NO, PROGRAM CARD IS O.K.                 $F0D58157
       LDQ     P4             YES, SET SIGN OF FOURTH                  $F0D58158
       SLQ     PBUFF1+3       WORD OF PROGRAM CARD MINUS               $F0D58159
       LBT                    IS TRANSFER VECTOR EVEN..                $F0D58160
       TRA     ENDFF+1      **YES                                      $F0D58161
       ADD     Q1             NO, ADD ONE TO PROLOGUE LENGTH           $F0D58162
       TRA     ENDFF+1      **RETURN                                   $F0D58163
       REM                                                             $F0D58164
 SARGP LXA     CLEVL,2        GET CURRENT NESTING LEVEL                $F0D58165
       TXL     SARGT+2,2,0    DOES EXPANSION TABLE EXIST               $F0D58166
       LXA     MEPTR,1        YES, USE ITS END INSTEAD                 $F0D58167
       TRA     SARGT+2                                                 $F0D58168
 PMC3P LXD     MOPTR,4        RESET SYMBOL TABLE OVERLAP TEST          $F0D58169
       SXD     ESYMZ,4        WHEN LEAVING MACRO NEST                  $F0D5816A
       TRA     PMC3X                                                   $F0D5816B
 STPTR PZE     ,,-SYMTBL-LSMTBL POINTER TO NEXT SYMBOL TABLE LOCATION  $F0D5816C
       REM                                                             $F0D5816D
       REM     PATCH TO ARGUMENT LIST ETC PROCESSING                (23)F0D5816E
 SSN33 TXH     *+2,4,**       IS THIS ETC CONTINUING IFF            (23)F0D5816F
       CAL     PCCP2          YES,PUT UNDER PCC CONTROL             (23)F0D5816G
       SLW     OPBIN          SAVE PASS TWO ADDRESS                 (23)F0D5816H
       TRA     SSN31+1                                              (23)F0D5816I
       REM                   PATCH TO PRINT UPDATE PSEUDO-OPS       (25)F0D5816J
 UPFIX LXD     SRCSW,4                                              (25)F0D5816K
       TXL     PUPIN,4,0     TEST SWITCH                            (25)F0D5816L
 PSOIN TSX     FPRINT,4      PRINT FROM SOURCE INPUT BUFFER         (25)F0D5816M
       PZE     INSBF,,15                                            (25)F0D5816N
       TRA     UPDLS+3                                              (25)F0D5816O
 PUPIN TSX     FPRINT,4      PRINT FROM UPDATE INPUT BUFFER         (25)F0D5816P
       PZE     DELBF,,15                                            (25)F0D5816Q
       TRA     UPDLS+3                                              (25)F0D5816R
       REM     PATCH TO CORRECT IFF OUTSIDE OF MACRO                (33)F0D5816S
IFFIX  TSX     SSINS,4      *ASSEMBLE ARGUMENTS                     (33)F0D5816T
       LXD     ARGJL,4       OBTAIN NUMBER COLLECTED                (33)F0D5816U
       ZAC                                                          (33)F0D5816V
       TRA     IFF01+4                                              (33)F0D5816W
       REM     ***************PATCH SPACE******************************$F0D58199
       ORG     BOTTAB-LOPTBM-5                                         $F0D58200
OPRECT MZE     **,,**        UPDATE OUTPUT TAPE RECORD COUNT           $F0D58300
IPRECT MZE     **,,**        UPDATE INPUT TAPE RECORD COUNT            $F0D58400
BNRECT MZE     **,,MBNTAP    BINARY OUTPUT TAPE RECORD COUNT           $F0D58500
INRECT MZE     **,,MINTAP    SOURCE INPUT TAPE RECORD COUNT            $F0D58600
       TTL     COMBINED OPERATION TABLE                                 F0D70000
       LBL     9F04OP,X                                                 F0D70010
       REM     FORM OF TRANSFER WORD FOR PSEUDOOPERATION                F0D70020
       REM     PFX   P1TFR,,P2TFR                                       F0D70030
       REM                    PASS 1                                    F0D70040
       REM                    PTW   NAME OF MACRO DEFINITION            F0D70050
       REM                    PON   UPDATE PSEUDOOPERATION              F0D70060
       REM                    PZE   IGNORED DURING DELETED ASSEMBLY     F0D70070
       REM                    PASS 2                                    F0D70080
       REM                    MZE   MAY PRECEDE ENTRY CARD              F0D70090
       REM                    PZE   MAY NOT PRECEDE ENTRY CARD          F0D70100
       REM                   (DATA GENERATING, PROGRAM LINKING,         F0D70110
       REM                    STORAGE ASSIGNING, SYMBOL DEFINING)       F0D70120
       REM                                                              F0D70130
       REM     FORM OF TRANSFER WORD FOR DISK ORDER                    $F0D70140
       REM     PZE   4$ORDOP,T,OP                                       F0D70150
       REM         T IS 6 FOR NO ACCESS MODULE, TRACK, RECORD REQUIRED $F0D70151
       REM         T IS 4 FOR NO TRACK, RECORD REQUIRED                $F0D70160
       REM         T IS 2 FOR NO RECORD REQUIRED                       $F0D70170
       REM         T IS 0 FOR ALL ABOVE REQUIRED                       $F0D70171
       REM         OP IS TWO-DIGIT OPCODE                               F0D70180
       REM                                                              F0D70190
       REM     FORM OF TRANSFER WORD FOR HYPERTAPE ORDER               $F0D70191
       REM     PZE    4$HYPOP,T,OP                                     $F0D70192
       REM         T IS 2 IF ADDRESS IS REQUIRED                       $F0D70193
       REM         OP IS TWO-DIGIT OPCODE                              $F0D70194
       REM                                                             $F0D70195
       REM     FORM OF INSTRUCTION WORD FOR MACHINE OPERATION           F0D70200
       REM     400000 000000  SIGN FOR TYPE A, B, C, D, E, INSTRUCTION  F0D70210
       REM     300000 000000  TYPE A                                    F0D70220
       REM     077700 000000  TYPE B, C, D, E                           F0D70230
       REM     000060 000000  IA OK FOR TYPE B                          F0D70240
       REM     000010 000000  A REQ                                     F0D70250
       REM     000004 000000  T REQ                                     F0D70260
       REM     000002 000000  D REQ                                     F0D70270
       REM     000001 000000  ADDRESS CONTAINS FLAGS                    F0D70280
       REM                    NOT TYPE B I/O ADDRESS, TYPE E PSE OR MSE F0D70290
       REM     000000 400000  IA OK FOR TYPE A                          F0D70300
       REM     000000 200000  NONXMIT FOR TYPE A (IOXY) COMMANDS        F0D70310
       REM     000000 100000  MACHINE OP                                F0D70320
       REM     000000 040000  OK FOR 704                                F0D70330
       REM     000000 020000  OK FOR 7090                               F0D70340
       REM     000000 000004  TYPE K DISK COMMAND                       F0D70350
       REM     000000 000002  TYPE C VARIABLE LENGTH (DECREMENT)        F0D70360
       REM                    OR TYPE K WITH HIGH ORDER COUNT FIELD     F0D70370
       REM     000000 000001  TYPE D SENSE INSTRUCTION                  F0D70380
       REM                                                              F0D70390
       ORG     BOTTAB-LOPTBM-1                                          F0D70400
OPTSIZ PZE     22,,-LOPTBL    LOG LOPTBL,,OPERATION TABLE LENGTH        F0D70410
OPTTBL SYN     *                                                        F0D70420
       BCD 1704000            MACHINE MODE PSEUDOOPERATION              F0D70430
       MZE 4$704OP,,5$704OP   704                                       F0D70440
       BCD 1709000            MACHINE MODE PSEUDOOPERATION              F0D70450
       MZE 4$709OP,,5$709OP   709/7090                                  F0D70460
       BCD 19LP000            CARD FORMAT PSEUDOOPERATION               F0D70470
       MZE 4$ABSOP,,5$9LPOP   9LP                                       F0D70480
       BCD 1ABS000            CARD FORMAT PSEUDOOPERATION               F0D70490
       MZE 4$ABSOP,,5$ABSOP   ABS                                       F0D70500
       BCD 1ACL000        ADD AND CARRY LOGICAL WORD                    F0D70510
       OCT +036171160000  ACL                                           F0D70520
       BCD 1ADD000        ADD                                           F0D70530
       OCT +040071160000  ADD                                           F0D70540
       BCD 1ADM000        ADD MAGNITUDE                                 F0D70550
       OCT +040171160000  ADM                                           F0D70560
       BCD 1ALS000        ACCUMULATOR LEFT SHIFT                        F0D70570
       OCT +076711160000  ALS                                           F0D70580
       BCD 1ANA000        AND TO ACCUMULATOR                            F0D70590
       OCT -032071160000  ANA                                           F0D70600
       BCD 1ANS000        AND TO STORAGE                                F0D70610
       OCT +032071160000  ANS                                           F0D70620
       BCD 1ARS000        ACCUMULATOR RIGHT SHIFT                       F0D70630
       OCT +077111160000  ARS                                           F0D70640
       BCD 1AXC000        ADDRESS TO INDEX, COMPLEMENTED                F0D70650
       OCT -077415120000  AXC                                           F0D70660
       BCD 1AXT000        ADDRESS TO INDEX, TRUE                        F0D70670
       OCT +077415120000  AXT                                           F0D70680
       BCD 1BCD000            DATA GENERATING PSEUDOOPERATION           F0D70690
       PZE 4$BCDOP,,5$BCDOP   BCD                                       F0D70700
       BCD 1BCI000            DATA GENERATING PSEUDOOPERATION           F0D70710
       PZE 4$BCIOP,,5$BCIOP   BCI                                       F0D70720
       BCD 1BES000            STORAGE ALLOCATING PSEUDOOPERATION        F0D70730
       PZE 4$BESOP,,5$BESOP   BES                                       F0D70740
       BCD 1BOOL00            SYMBOL DEFINING PSEUDOOPERATION           F0D70750
       PZE 4$BOLOP,,5$BOLOP   BOOL                                      F0D70760
       BCD 1BRA000        BRANCH (TXL WITHOUT TAG)                      F0D70770
       OCT -300011160000  BRA                                           F0D70780
       BCD 1BRN000        BRANCH NOP (TXH WITHOUT TAG)                  F0D70790
       OCT +300011160000  BRN                                           F0D70800
       BCD 1BSF000        BACKSPACE FILE                                F0D70810
       OCT -076410120200  BSF                                           F0D70820
       BCD 1BSFA00        BACKSPACE FILE, CHANNEL A                     F0D70830
       OCT -076410121200  BSFA                                          F0D70840
       BCD 1BSFB00        BACKSPACE FILE, CHANNEL B                     F0D70850
       OCT -076410122200  BSFB                                          F0D70860
       BCD 1BSFC00        BACKSPACE FILE, CHANNEL C                     F0D70870
       OCT -076410123200  BSFC                                          F0D70880
       BCD 1BSFD00        BACKSPACE FILE, CHANNEL D                     F0D70890
       OCT -076410124200  BSFD                                          F0D70900
       BCD 1BSFE00        BACKSPACE FILE, CHANNEL E                     F0D70910
       OCT -076410125200  BSFE                                          F0D70920
       BCD 1BSFF00        BACKSPACE FILE, CHANNEL F                     F0D70930
       OCT -076410126200  BSFF                                          F0D70940
       BCD 1BSFG00        BACKSPACE FILE, CHANNEL G                     F0D70950
       OCT -076410127200  BSFG                                          F0D70960
       BCD 1BSFH00        BACKSPACE FILE, CHANNEL H                     F0D70970
       OCT -076410130200  BSFH                                          F0D70980
       BCD 1BSR000        BACKSPACE RECORD                              F0D70990
       OCT +076410120200  BSR                                           F0D71000
       BCD 1BSRA00        BACKSPACE RECORD, CHANNEL A                   F0D71010
       OCT +076410121200  BSRA                                          F0D71020
       BCD 1BSRB00        BACKSPACE RECORD, CHANNEL B                   F0D71030
       OCT +076410122200  BSRB                                          F0D71040
       BCD 1BSRC00        BACKSPACE RECORD, CHANNEL C                   F0D71050
       OCT +076410123200  BSRC                                          F0D71060
       BCD 1BSRD00        BACKSPACE RECORD, CHANNEL D                   F0D71070
       OCT +076410124200  BSRD                                          F0D71080
       BCD 1BSRE00        BACKSPACE RECORD, CHANNEL E                   F0D71090
       OCT +076410125200  BSRE                                          F0D71100
       BCD 1BSRF00        BACKSPACE RECORD, CHANNEL F                   F0D71110
       OCT +076410126200  BSRF                                          F0D71120
       BCD 1BSRG00        BACKSPACE RECORD, CHANNEL G                   F0D71130
       OCT +076410127200  BSRG                                          F0D71140
       BCD 1BSRH00        BACKSPACE RECORD, CHANNEL H                   F0D71150
       OCT +076410130200  BSRH                                          F0D71160
       BCD 1BSS000            STORAGE ALLOCATING PSEUDOOPERATION        F0D71170
       PZE 4$BSSOP,,5$BESOP   BSS                                       F0D71180
       BCD 1BST000        BACKSPACE TAPE                                F0D71190
       OCT +076410140200  BST                                           F0D71200
       BCD 1BTT000        BEGINNING OF TAPE TEST                        F0D71210
       OCT +076010120000  BTT                                           F0D71220
       BCD 1BTTA00        BEGINNING OF TAPE TEST, CHANNEL A             F0D71230
       OCT +076000121000  BTTA                                          F0D71240
       BCD 1BTTB00        BEGINNING OF TAPE TEST, CHANNEL B             F0D71250
       OCT +076000122000  BTTB                                          F0D71260
       BCD 1BTTC00        BEGINNING OF TAPE TEST, CHANNEL C             F0D71270
       OCT +076000123000  BTTC                                          F0D71280
       BCD 1BTTD00        BEGINNING OF TAPE TEST, CHANNEL D             F0D71290
       OCT +076000124000  BTTD                                          F0D71300
       BCD 1BTTE00        BEGINNING OF TAPE TEST, CHANNEL E             F0D71310
       OCT +076000125000  BTTE                                          F0D71320
       BCD 1BTTF00        BEGINNING OF TAPE TEST, CHANNEL F             F0D71330
       OCT +076000126000  BTTF                                          F0D71340
       BCD 1BTTG00        BEGINNING OF TAPE TEST, CHANNEL G             F0D71350
       OCT +076000127000  BTTG                                          F0D71360
       BCD 1BTTH00        BEGINNING OF TAPE TEST, CHANNEL H             F0D71370
       OCT +076000130000  BTTH                                          F0D71380
       BCD 1CAD000        COPY, ADD AND CARRY                           F0D71390
       OCT -070011140000  CAD                                           F0D71400
       BCD 1CAL000        CLEAR AND ADD LOGICAL                         F0D71410
       OCT -050071160000  CAL                                           F0D71420
       BCD 1CALL00            PROGRAM LINKING PSEUDOOPERATION           F0D71430
       PZE 4$CALOP,,5$CALOP   CALL                                      F0D71440
       BCD 1CAQ000        CONVERT BY ADDITION FROM MQ                   F0D71450
       OCT -011413120002  CAQ                                           F0D71460
       BCD 1CAS000        COMPARE ACCUMULATOR WITH STORAGE              F0D71470
       OCT +034071160000  CAS                                           F0D71480
       BCD 1CFF000        CHANGE FILM FRAME                             F0D71490
       OCT +076000160030  CFF                                           F0D71500
       BCD 1CHS000        CHANGE SIGN                                   F0D71510
       OCT +076000160002  CHS                                           F0D71520
       BCD 1CLA000        CLEAR AND ADD                                 F0D71530
       OCT +050071160000  CLA                                           F0D71540
       BCD 1CLM000        CLEAR MAGNITUDE                               F0D71550
       OCT +076000160000  CLM                                           F0D71560
       BCD 1CLS000        CLEAR AND SUBTRACT                            F0D71570
       OCT +050271160000  CLS                                           F0D71580
       BCD 1COM000        COMPLEMENT MAGNITUDE                          F0D71590
       OCT +076000160006  COM                                           F0D71600
       BCD 1COMMON            STORAGE ALLOCATING PSEUDOOPERATION        F0D71610
       PZE 4$COMOP,,5$COMOP   COMMON                                    F0D71620
       BCD 1COUNT0            ASSEMBLER INFORMATION PSEUDOOPERATION     F0D71630
       MZE 4$CNTOP,,5$TTL03+1 COUNT                                     F0D71640
       BCD 1CPY000        COPY OR SKIP                                  F0D71650
       OCT +070011140000  CPY                                           F0D71660
       BCD 1CPYD00        COPY AND DISCONNECT                      DISK F0D71670
       OCT  500013520000  CPYD                                     DISK F0D71680
       BCD 1CPYP00        COPY AND PROCEED                         DISK F0D71690
       OCT  400013520000  CPYP                                     DISK F0D71700
       BCD 1CRQ000        CONVERT BY REPLACEMENT FROM MQ                F0D71710
       OCT -015413120002  CRQ                                           F0D71720
       BCD 1CTL000        CONTROL                                  DISK F0D71730
       OCT  200011520004  CTL                                      DISK F0D71740
       BCI     1,CTLN00       CONTROL NONTRANSMIT                  DISK$F0D71741
       OCT     220011520004   CTLN                                 DISK$F0D71742
       BCD 1CTLR00        CONTROL AND READ                         DISK F0D71750
       OCT  200011720004  CTLR                                     DISK F0D71760
       BCI     1,CTLRN0       CONTROL AND READ NONTRANSMIT         DISK$F0D71761
       OCT     220011720004   CTLRN                                DISK$F0D71762
       BCD 1CTLW00        CONTROL AND WRITE                        DISK F0D71770
       OCT  240011520004  CTLW                                     DISK F0D71780
       BCI     1,CTLWN0       CONTROL AND WRITE NONTRANSMIT        DISK$F0D71781
       OCT     260011520004   CTLWN                                DISK$F0D71782
       BCD 1CVR000        CONVERT BY REPLACEMENT FROM AC                F0D71790
       OCT +011413120002  CVR                                           F0D71800
       BCD 1DCT000        DIVIDE CHECK TEST                             F0D71810
       OCT +076000160012  DCT                                           F0D71820
       BCD 1DEBM00        EIGHT BIT MODE                           DISK$F0D71830
       PZE 4$ORDOP,6,08       DEBM                                 DISK$F0D71840
       BCD 1DEC000            DATA GENERATING PSEUDOOPERATION           F0D71850
       PZE 4$DECOP,,5$DECOP   DEC                                       F0D71860
       BCD 1DETAIL            LIST CONTROL PSEUDOOPERATION              F0D71870
       MZE 4$READ1,,5$DETOP   DETAIL                                    F0D71880
       BCD 1DFAD00            DBL-PREC FLOAT ADD                       $F0D71881
       OCT +030171120000       DFAD                                    $F0D71882
       BCD 1DFAM00            DBL-PREC FLOAT ADD MAGNITUDE             $F0D71883
       OCT +030571120000       DFAM                                    $F0D71884
       BCD 1DFDH00            DBL-PREC FLOAT DIVIDE AND HALT           $F0D71885
       OCT -024071120000       DFDH                                    $F0D71886
       BCD 1DFDP00            DBL-PREC FLOAT DIVIDE AND PROCEED        $F0D71887
       OCT -024171120000       DFDP                                    $F0D71888
       BCD 1DFMP00            DBL-PREC FLOAT MULTIPLY                  $F0D71889
       OCT +026171120000       DFMP                                    $F0D71890
       BCD 1DFSB00            DBL-PREC FLOAT SUBTRACT                  $F0D71891
       OCT +030371120000       DFSB                                    $F0D71892
       BCD 1DFSM00            DBL-PREC FLOAT SUBTRACT MAGNITUDE        $F0D71893
       OCT +030771120000       DFSM                                    $F0D71894
       BCD 1DLD000            DBL-PREC LOAD                            $F0D71895
       OCT +044371120000       DLD                                     $F0D71896
       BCD 1DNOP00        NO OPERATION                             DISK$F0D71897
       PZE 4$ORDOP,6,00       DNOP                                 DISK$F0D71898
       BCD 1DREL00        RELEASE                                  DISK$F0D71899
       PZE 4$ORDOP,6,04       DREL                                 DISK$F0D71900
       BCD 1DRS000        DROP READY STATUS                            $F0D71901
       OCT +077510120000  DRS                                          $F0D71902
       BCD 1DSAI00        SET ACESS INOPERATIVE                    DISK$F0D71903
       PZE 4$ORDOP,4,87       DSAI                                 DISK$F0D71904
       BCD 1DSBM00        SIX BIT MODE                             DISK$F0D71905
       PZE 4$ORDOP,6,09       DSBM                                 DISK$F0D71906
       BCD 1DSEK00        SEEK                                     DISK$F0D71907
       PZE 4$ORDOP,2,80       DSEK                                 DISK$F0D71908
       BCD 1DST000            DBL-PREC STORE                           $F0D71909
       OCT -060371120000       DST                                     $F0D71910
       BCD 1DUAM00            DBL-PREC UNNORM FLOAT ADD MAGNITUDE      $F0D71911
       OCT -030571120000       DUAM                                    $F0D71912
       BCD 1DUFA00            DBL-PREC UNNORM FLOAT ADD                $F0D71913
       OCT -030171120000       DUFA                                    $F0D71914
       BCD 1DUFM00            DBL-PREC UNNORM FLOAT MULTIPLY           $F0D71915
       OCT -026171120000       DUFM                                    $F0D71916
       BCD 1DUFS00            DBL-PREC UNNORM FLOAT SUBTRACT           $F0D71917
       OCT -030371120000       DUFS                                    $F0D71918
       BCD 1DUP000            DATA GENERATING PSEUDOOPERATION          $F0D71919
       PZE 4$DUPOP,,5$DUPOP   DUP                                      $F0D71920
       BCD 1DUSM00            DBL-PREC UNNORM FLOAT SUBTRACT MAGNITUDE $F0D71921
       OCT -030771120000       DUSM                                    $F0D71922
       BCD 1DVCY00        PREPARE TO VERIFY CYLINDER OPERATION     DISK F0D72030
       PZE 4$ORDOP,0,85   DVCY                                     DISK F0D72040
       BCD 1DVH000        DIVIDE OR HALT                                F0D72050
       OCT +022071160000  DVH                                           F0D72060
       BCD 1DVHA00        PREPARE TO VERIFY HOME ADDRESS           DISK F0D72070
       PZE 4$ORDOP,2,89       DVHA                                 DISK$F0D72080
       BCD 1DVP000        DIVIDE OR PROCEED                             F0D72090
       OCT +022171160000  DVP                                           F0D72100
       BCD 1DVSR00        PREPARE TO VERIFY SINGLE RECORD          DISK F0D72110
       PZE 4$ORDOP,0,82       DVSR                                 DISK$F0D72120
       BCD 1DVTA00        PREPARE TO VERIFY TRACK WITH ADDRESS     DISK F0D72130
       PZE 4$ORDOP,0,88       DVTA                                 DISK$F0D72140
       BCD 1DVTN00        PREPARE TO VERIFY TRACK WITHOUT ADDRESS  DISK F0D72150
       PZE 4$ORDOP,0,84       DVTN                                 DISK$F0D72160
       BCD 1DWRC00        PREPARE TO WRITE CHECK                   DISK F0D72170
       PZE 4$ORDOP,0,86       DWRC                                 DISK$F0D72180
       BCD 1DWRF00        PREPARE TO WRITE FORMAT TRACK            DISK F0D72190
       PZE 4$ORDOP,2,83       DWRF                                 DISK$F0D72200
       BCD 1EAD000        EXTENDED ADD                                  F0D72210
       OCT +067171160000  EAD                                           F0D72220
       BCD 1EAXM00        ENTER ADDITIONAL INDEX MODE                   F0D72230
       OCT +076000120016  EAXM                                          F0D72240
       BCD 1ECA000        EXCHANGE LOGICAL ACCUMULATOR WITH STORAGE     F0D72250
       OCT +056171160000  ECA                                           F0D72260
       BCD 1ECQ000        EXCHANGE MQ WITH STORAGE                      F0D72270
       OCT -056171160000  ECQ                                           F0D72280
       BCD 1ECTM00        ENTER COPY TRAP MODE                          F0D72290
       OCT -076000120006  ECTM                                          F0D72300
       BCD 1EDP000        EXTENDED DIVIDE OR PROCEED                    F0D72310
       OCT +067271160000  EDP                                           F0D72320
       BCD 1EFTM00        ENTER FLOATING TRAP MODE                      F0D72330
       OCT -076000120002  EFTM                                          F0D72340
       BCD 1EJECT0            LIST CONTROL PSEUDOOPERATION              F0D72350
       MZE 4$READ1,,5$EJCOP   EJECT                                     F0D72360
       BCD 1ELD000        EXTENDED LOAD                                 F0D72370
       OCT +067071160000  ELD                                           F0D72380
       BCD 1EMP000        EXTENDED MULTIPLY                             F0D72390
       OCT +067371160000  EMP                                           F0D72400
       BCD 1EMTM00            ENTER MULTIPLE TAG MODE                  $F0D72401
       OCT -076000120016       EMTM                                    $F0D72402
       BCD 1ENB000        ENABLE FROM STORAGE                           F0D72410
       OCT +056471120000  ENB                                           F0D72420
       BCD 1END000            ASSEMBLER INFORMATION PSEUDOOPERATION     F0D72430
       PON 4$ENDOP,,5$ENDOP   END                                       F0D72440
       BCD 1ENDFIL            UPDATE INFORMATION PSEUDOOPERATION        F0D72450
       MON 4$ENFOP,,5$TTL03+1 ENDFIL                                    F0D72460
       BCD 1ENDUP0            UPDATE INFORMATION PSEUDOOPERATION        F0D72470
       MON 4$ENPOP,,5$TTL03+1 ENDUP                                     F0D72480
       BCD 1ENK000        ENTER KEYS                                    F0D72490
       OCT +076000120004  ENK                                           F0D72500
       BCD 1ENTRY0            PROGRAM LINKING PSEUDOOPERATION           F0D72510
       MZE 4$ENTOP,,5$ENTOP   ENTRY                                     F0D72520
       BCD 1EQU000            SYMBOL DEFINING PSEUDOOPERATION           F0D72530
       PZE 4$SYNOP,,5$MAXOP   EQU                                       F0D72540
       BCD 1ERA000        EXCLUSIVE OR TO ACCUMULATOR                   F0D72550
       OCT +032271120000  ERA                                           F0D72560
       BCD 1ESB000        EXTENDED SUBTRACT                             F0D72570
       OCT -067171160000  ESB                                           F0D72580
       BCD 1ESM000        ENTER SIGNIFICANCE MODE                       F0D72590
       OCT -076100120140  ESM                                           F0D72600
       BCD 1ESNT00        ENTER STORAGE NULLIFICATION MODE AND TRANSFER F0D72610
       OCT -002171120000  ESNT                                          F0D72620
       BCD 1EST000        EXTENDED STORE                                F0D72630
       OCT -067371160000  EST                                           F0D72640
       BCD 1ESTM00        ENTER SELECT TRAP MODE                        F0D72650
       OCT -076000120005  ESTM                                          F0D72660
       BCD 1ETM000        ENTER TRAPPING MODE                           F0D72670
       OCT +076000160007  ETM                                           F0D72680
       BCD 1ETT000        END OF TAPE TEST                              F0D72690
       OCT -076000140011  ETT                                           F0D72700
       BCD 1ETTA00        END OF TAPE TEST, CHANNEL A                   F0D72710
       OCT -076000121000  ETTA                                          F0D72720
       BCD 1ETTB00        END OF TAPE TEST, CHANNEL B                   F0D72730
       OCT -076000122000  ETTB                                          F0D72740
       BCD 1ETTC00        END OF TAPE TEST, CHANNEL C                   F0D72750
       OCT -076000123000  ETTC                                          F0D72760
       BCD 1ETTD00        END OF TAPE TEST, CHANNEL D                   F0D72770
       OCT -076000124000  ETTD                                          F0D72780
       BCD 1ETTE00        END OF TAPE TEST, CHANNEL E                   F0D72790
       OCT -076000125000  ETTE                                          F0D72800
       BCD 1ETTF00        END OF TAPE TEST, CHANNEL F                   F0D72810
       OCT -076000126000  ETTF                                          F0D72820
       BCD 1ETTG00        END OF TAPE TEST, CHANNEL G                   F0D72830
       OCT -076000127000  ETTG                                          F0D72840
       BCD 1ETTH00        END OF TAPE TEST, CHANNEL H                   F0D72850
       OCT -076000130000  ETTH                                          F0D72860
       BCD 1EUA000        EXTENDED UNNORMALIZED ADD                     F0D72870
       OCT -067271160000  EUA                                           F0D72880
       BCI     1,EVEN00       STORAGE ALLOCATING PSUEDOOPERATION       $F0D72881
       PZE     4$EVNOP,,5$EVNOP EVEN                                   $F0D72882
       BCD 1EXTERN            PROGRAM LINKING PSEUDOOPERATION           F0D72890
       MZE 4$EXTOP,,5$UNLOP+1 EXTERN                                    F0D72900
       BCD 1FAD000        FLOATING ADD                                  F0D72910
       OCT +030071160000  FAD                                           F0D72920
       BCD 1FAM000        FLOATING ADD MAGNITUDE                        F0D72930
       OCT +030471120000  FAM                                           F0D72940
       BCD 1FDH000        FLOATING DIVIDE OR HALT                       F0D72950
       OCT +024071160000  FDH                                           F0D72960
       BCD 1FDP000        FLOATING DIVIDE OR PROCEED                    F0D72970
       OCT +024171160000  FDP                                           F0D72980
       BCD 1FIVE00        FIVE (PREFIX)                                 F0D72990
       OCT +500001120000  FIVE                                          F0D73000
       BCD 1FMP000        FLOATING MULTIPLY                             F0D73010
       OCT +026071160000  FMP                                           F0D73020
       BCD 1FOR000        FOUR (PREFIX)                                 F0D73030
       OCT +400001160000  FOR                                           F0D73040
       BCD 1FOUR00        FOUR (PREFIX)                                 F0D73050
       OCT +400001120000  FOUR                                          F0D73060
       BCD 1FRN000        FLOATING ROUND                                F0D73070
       OCT +076000120011  FRN                                           F0D73080
       BCD 1FSB000        FLOATING SUBTRACT                             F0D73090
       OCT +030271160000  FSB                                           F0D73100
       BCD 1FSM000        FLOATING SUBTRACT MAGNITUDE                   F0D73110
       OCT +030671120000  FSM                                           F0D73120
       BCD 1FUL000            CARD FORMAT PSEUDOOPERATION               F0D73130
       MZE 4$ABSOP,,5$FULOP   FUL                                       F0D73140
       BCD 1FVE000        FIVE (PREFIX)                                 F0D73150
       OCT +500001160000  FVE                                           F0D73160
       BCD 1HBSF00            HYPERTAPE BACKSPACE FILE                 $F0D73161
       PZE 4$HYPOP,0,35        HBSF                                    $F0D73162
       BCD 1HBSR00            HYPERTAPE BACKSPACE RECORD               $F0D73163
       PZE 4$HYPOP,0,34        HBSR                                    $F0D73164
       BCD 1HCCR00            HYPERTAPE CHANGE CARTRIDGE AND REWIND    $F0D73165
       PZE 4$HYPOP,0,28        HCCR                                    $F0D73166
       BCD 1HCHC00            HYPERTAPE CHANGE CARTRIDGE               $F0D73167
       PZE 4$HYPOP,0,38        HCHC                                    $F0D73168
       BCD 1HEAD00            SYMBOL DEFINING PSEUDOOPERATION          $F0D73171
       MZE 4$HADOP,,5$HEDOP   HEAD                                      F0D73180
       BCD 1HED000            SYMBOL DEFINING PSEUDOOPERATION           F0D73190
       MZE 4$HEDOP,,5$HEDOP   HED                                       F0D73200
       BCD 1HEOS00            HYPERTAPE END OF SEQUENCE                $F0D73201
       PZE 4$HYPOP,0,01        HEOS                                    $F0D73202
       BCD 1HERG00            HYPERTAPE ERASE LONG GAP                 $F0D73203
       PZE 4$HYPOP,0,32        HERG                                    $F0D73204
       BCD 1HFPN00            HYPERTAPE FILE PROTECT ON                $F0D73205
       PZE 4$HYPOP,0,42        HFPN                                    $F0D73206
       BCD 1HNOP00            HYPERTAPE NO OPERATION                   $F0D73207
       PZE 4$HYPOP,0,00        HNOP                                    $F0D73208
       BCD 1HPR000        HALT AND PROCEED                              F0D73210
       OCT +042001160000  HPR                                           F0D73220
       BCD 1HRUN00            HYPERTAPE REWIND AND UNLOAD CARTRIDGE    $F0D73225
       PZE 4$HYPOP,0,31        HRUN                                    $F0D73226
       BCD 1HRWD00            HYPERTAPE REWIND                         $F0D73227
       PZE 4$HYPOP,0,30        HRWD                                    $F0D73228
       BCD 1HSBR00            HYPERTAPE SELECT FOR BACKWARD READING    $F0D73229
       PZE 4$HYPOP,2,07        PSBR                                    $F0D73230
       BCD 1HSEL00            HYPERTAPE SELECT                         $F0D73231
       PZE 4$HYPOP,2,06        HSEL                                    $F0D73232
       BCD 1HSKF00            HYPERTAPE SKIP FILE                      $F0D73233
       PZE 4$HYPOP,0,37        HSKF                                    $F0D73234
       BCD 1HSKR00            HYPERTAPE SKIP RECORD                    $F0D73235
       PZE 4$HYPOP,0,36        HSKR                                    $F0D73236
       BCD 1HTR000        HALT AND TRANSFER                            $F0D73237
       OCT +000071160000  HTR                                           F0D73240
       BCD 1HUNL00            HYPERTAPE UNLOAD CARTRIDGE               $F0D73241
       PZE 4$HYPOP,0,39        HUNL                                    $F0D73242
       BCD 1HWTM00            HYPERTAPE WRITE TAPE MARK                $F0D73243
       PZE 4$HYPOP,0,33        HWTM                                    $F0D73244
       BCD 1ICC000        INCREMENT CONTROL COUNTER                DISK F0D73250
       OCT  700001320006  ICC                                      DISK F0D73260
       BCD 1IFEOF0            PROGRAM LINKING PSEUDOOPERATION           F0D73270
       PZE 4$IFEOP,,5$IFEOP   IFEOF                                     F0D73280
       BCD 1IFF000            MACRO EXPANSION PSEUDOOPERATION           F0D73290
       MZE 4$IFFOP,,5$TTL03+1 IFF                                       F0D73300
       BCD 1IIA000        INVERT INDICATORS FROM ACCUMULATOR            F0D73310
       OCT +004101120000  IIA                                           F0D73320
       BCD 1IIL000        INVERT INDICATORS OF LEFT HALF                F0D73330
       OCT -005111120001  IIL                                           F0D73340
       BCD 1IIR000        INVERT INDICATORS OF RIGHT HALF               F0D73350
       OCT +005111120001  IIR                                           F0D73360
       BCD 1IIS000        INVERT INDICATORS FROM STORAGE                F0D73370
       OCT +044071120000  IIS                                           F0D73380
       BCD 1INDEX0            LIST CONTROL PSEUDOOPERATION              F0D73390
       MZE 4$READ1,,5$INXOP   INDEX                                     F0D73400
       BCD 1IOCD00        I/O UNDER COUNT CONTROL AND DISCONNECT        F0D73410
       OCT  000013520000  IOCD                                          F0D73420
       BCD 1IOCDN0        I/O UNDER COUNT CONTROL DISCONNECT NONTRANSMITF0D73430
       OCT  000013720000  IOCDN                                         F0D73440
       BCD 1IOCP00        I/O UNDER COUNT CONTROL AND PROCEED           F0D73450
       OCT  400013520000  IOCP                                          F0D73460
       BCD 1IOCPN0        I/O UNDER COUNT CONTROL PROCEED NONTRANSMIT   F0D73470
       OCT  400013720000  IOCPN                                         F0D73480
       BCD 1IOCT00        I/O UNDER COUNT CONTROL AND TRANSFER          F0D73490
       OCT  500013520000  IOCT                                          F0D73500
       BCD 1IOCTN0        I/O UNDER COUNT CONTROL TRANSFER NONTRANSMIT  F0D73510
       OCT  500013720000  IOCTN                                         F0D73520
       BCD 1IOD000        I/O DELAY                                     F0D73530
       OCT +076600140333  IOD                                           F0D73540
       BCD 1IORP00        I/O UNDER RECORD CONTROL AND PROCEED          F0D73550
       OCT  200013520000  IORP                                          F0D73560
       BCD 1IORPN0        I/O UNDER RECORD CONTROL PROCEED NONTRANSMIT  F0D73570
       OCT  200013720000  IORPN                                         F0D73580
       BCD 1IORT00        I/O UNDER RECORD CONTROL AND TRANSFER         F0D73590
       OCT  300013520000  IORT                                          F0D73600
       BCD 1IORTN0        I/O UNDER RECORD CONTROL TRANSFER NONTRANSMIT F0D73610
       OCT  300013720000  IORTN                                         F0D73620
       BCD 1IOSP00        I/O UNTIL SIGNAL AND PROCEED                  F0D73630
       OCT  600013520000  IOSP                                          F0D73640
       BCD 1IOSPN0        I/O UNTIL SIGNAL AND PROCEED NONTRANSMIT      F0D73650
       OCT  600013720000  IOSPN                                         F0D73660
       BCD 1IOST00        I/O UNTIL SIGNAL AND TRANSFER                 F0D73670
       OCT  700013520000  IOST                                          F0D73680
       BCD 1IOSTN0        I/O UNTIL SIGNAL AND TRANSFER NONTRANSMIT     F0D73690
       OCT  700013720000  IOSTN                                         F0D73700
       BCD 1IOT000        INPUT OUTPUT CHECK TEST                       F0D73710
       OCT +076000120005  IOT                                           F0D73720
       BCD 1IRP000            MACRO EXPANSION PSEUDOOPERATION           F0D73730
       MZE 4$IRPOP,,5$TTL03+1 IRP                                       F0D73740
       BCD 1...000        CONVENTION FOR OPCODE TO BE INITIALIZED       F0D73750
       OCT +000001160000  ...                                           F0D73760
       BCD 1LAC000        LOAD INDEX FROM ADDRESS, COMPLEMENTED         F0D73770
       OCT +053515120000  LAC                                           F0D73780
       BCD 1LAR000        LOAD ASSEMBLY REGISTER                   DISK F0D73790
       OCT  300011520004  LAR                                      DISK F0D73800
       BCD 1LAS000        LOGICAL COMPARE ACCUMULATOR WITH STORAGE      F0D73810
       OCT -034071120000  LAS                                           F0D73820
       BCD 1LAXM00        LEAVE ADDITIONAL INDEX MODE                   F0D73830
       OCT -076000120016  LAXM                                          F0D73840
       BCD 1LBL000            LIST CONTROL PSEUDOOPERATION              F0D73850
       MZE 4$READ1,,5$LBLOP   LBL                                       F0D73860
       BCD 1LBT000        LOW ORDER BIT TEST                            F0D73870
       OCT +076000160001  LBT                                           F0D73880
       BCD 1LCC000        LOAD CONTROL COUNTER                     DISK F0D73890
       OCT  640011720004  LCC                                      DISK F0D73900
       BCD 1LCHA00        LOAD CHANNEL A                                F0D73910
       OCT +054471120000  LCHA                                          F0D73920
       BCD 1LCHB00        LOAD CHANNEL B                                F0D73930
       OCT -054471120000  LCHB                                          F0D73940
       BCD 1LCHC00        LOAD CHANNEL C                                F0D73950
       OCT +054571120000  LCHC                                          F0D73960
       BCD 1LCHD00        LOAD CHANNEL D                                F0D73970
       OCT -054571120000  LCHD                                          F0D73980
       BCD 1LCHE00        LOAD CHANNEL E                                F0D73990
       OCT +054671120000  LCHE                                          F0D74000
       BCD 1LCHF00        LOAD CHANNEL F                                F0D74010
       OCT -054671120000  LCHF                                          F0D74020
       BCD 1LCHG00        LOAD CHANNEL G                                F0D74030
       OCT +054771120000  LCHG                                          F0D74040
       BCD 1LCHH00        LOAD CHANNEL H                                F0D74050
       OCT -054771120000  LCHH                                          F0D74060
       BCD 1LDA000        LOCATE DRUM ADDRESS                           F0D74070
       OCT +046071140000  LDA                                           F0D74080
       BCD 1LDC000        LOAD INDEX FROM DECREMENT, COMPLEMENTED       F0D74090
       OCT -053515120000  LDC                                           F0D74100
       BCD 1LDI000        LOAD INDICATORS                               F0D74110
       OCT +044171120000  LDI                                           F0D74120
       BCD 1LDQ000        LOAD MQ                                       F0D74130
       OCT +056071160000  LDQ                                           F0D74140
       BCD 1LFT000        LEFT HALF INDICATORS OFF TEST                 F0D74150
       OCT -005411120001  LFT                                           F0D74160
       BCD 1LFTM00        LEAVE FLOATING POINT TRAP MODE                F0D74170
       OCT -076000120004  LFTM                                          F0D74180
       BCD 1LGL000        LOGICAL LEFT SHIFT                            F0D74190
       OCT -076311160000  LGL                                           F0D74200
       BCD 1LGR000        LOGICAL RIGHT SHIFT                           F0D74210
       OCT -076511120000  LGR                                           F0D74220
       BCD 1LIP000        LEAVE INTERRUPT PROGRAM                  DISK F0D74230
       OCT  600001320004  LIP                                      DISK F0D74240
       BCD 1LIPT00        LEAVE INTERRUPT PROGRAM AND TRANSFER     DISK F0D74250
       OCT  100011720000  LIPT                                     DISK F0D74260
       BCD 1LIST00            LIST CONTROL PSEUDOOPERATION              F0D74270
       MZE 4$READ1,,5$LSTOP   LIST                                      F0D74280
       BCD 1LLS000        LONG LEFT SHIFT                               F0D74290
       OCT +076311160000  LLS                                           F0D74300
       BCD 1LMTM00            LEAVE MULTIPLE TAG MODE                  $F0D74301
       OCT +076000120016       LMTM                                    $F0D74302
       BCD 1LNT000        LEFT HALF INDICATORS ON TEST                  F0D74310
       OCT -005611120001  LNT                                           F0D74320
       BCD 1LOC000            STORAGE ALLOCATING PSEUDOOPERATION        F0D74330
       PZE 4$LOCOP,,5$LOCOP   LOC                                       F0D74340
       BCD 1LRS000        LONG RIGHT SHIFT                              F0D74350
       OCT +076511160000  LRS                                           F0D74360
       BCD 1LSNM00        LEAVE STORAGE NULLIFICATION MODE              F0D74370
       OCT -076000120010  LSNM                                          F0D74380
       BCD 1LTM000        LEAVE TRAPPING MODE                           F0D74390
       OCT -076000160007  LTM                                           F0D74400
       BCD 1LXA000        LOAD INDEX FROM ADDRESS                       F0D74410
       OCT +053415160000  LXA                                           F0D74420
       BCD 1LXD000        LOAD INDEX FROM DECREMENT                     F0D74430
       OCT -053415160000  LXD                                           F0D74440
       BCD 1MAC000            MACRO EXPANSION PSEUDOOPERATION           F0D74450
       PZE 4$MACOP,,5$BES01+3 MAC                                      $F0D74460
       BCD 1MACRO0            MACRO DEFINITION PSEUDOOPERATION          F0D74470
       MZE 4$MCROP,,5$UNLOP+1 MACRO                                     F0D74480
       BCD 1MAX000            SYMBOL DEFINING PSEUDOOPERATION           F0D74490
       PZE 4$MAXOP,,5$MAXOP   MAX                                       F0D74500
       BCD 1MIN000            SYMBOL DEFINING PSEUDOOPERATION           F0D74510
       PZE 4$MINOP,,5$MAXOP   MIN                                       F0D74520
       BCD 1MON000        MINUS ONE (PREFIX)                            F0D74530
       OCT -100001160000  MON                                           F0D74540
       BCD 1MOP000            MACRO DEFINITION PSEUDOOPERATION          F0D74550
       MZE 4$MOPOP,,5$UNLOP+1 MOP                                       F0D74560
       BCD 1MPR000        MULTIPLY AND ROUND                            F0D74570
       OCT -020071160000  MPR                                           F0D74580
       BCD 1MPY000        MULTIPLY                                      F0D74590
       OCT +020071160000  MPY                                           F0D74600
       BCD 1MSE000        MINUS SENSE                                   F0D74610
       OCT -076011160000  MSE                                           F0D74620
       BCD 1MTH000        MINUS THREE (PREFIX)                          F0D74630
       OCT -300001160000  MTH                                           F0D74640
       BCD 1MTW000        MINUS TWO (PREFIX)                            F0D74650
       OCT -200001160000  MTW                                           F0D74660
       BCD 1MZE000        MINUS ZERO (PREFIX)                           F0D74670
       OCT -000001160000  MZE                                           F0D74680
       BCD 1NOCRS0            MACRO COMPILER INFORMATION PSEUDOOPERATIONF0D74690
       MZE 4$NOCOP,,5$TTL03+1 NOCRS                                     F0D74700
       BCD 1NOP000        NO OPERATION                                  F0D74710
       OCT +076101160000  NOP                                           F0D74720
       BCD 1NTR000        FORTRAN CODE FOR TXI                          F0D74730
       OCT +100011160000  NTR                                           F0D74740
       BCD 1NULL00            LIST CONTROL PSEUDOOPERATION              F0D74750
       MZE 4$READ1,,5$UNLOP+1 NULL                                      F0D74760
       BCD 1NUMBER            UPDATE INFORMATION PSEUDOOPERATION        F0D74770
       MON 4$NUMOP,,5$TTL03+1 NUMBER                                    F0D74780
       BCD 1NZT000        STORAGE NON-ZERO TEST                         F0D74790
       OCT -052071120000  NZT                                           F0D74800
       BCD 1OAI000        OR ACCUMULATOR TO INDICATORS                  F0D74810
       OCT +004301120000  OAI                                           F0D74820
       BCD 1OCT000            DATA GENERATING PSEUDOOPERATION           F0D74830
       PZE 4$DECOP,,5$OCTOP   OCT                                       F0D74840
       BCD 1OFT000        OFF TEST FOR INDICATORS                       F0D74850
       OCT +044471120000  OFT                                           F0D74860
       BCD 1ONE000        ONE (PREFIX)                                  F0D74870
       OCT +100001160000  ONE                                           F0D74880
       BCD 1ONT000        ON TEST FOR INDICATORS                        F0D74890
       OCT +044671120000  ONT                                           F0D74900
       BCD 1OPD000            OPCODE DEFINING PSEUDOOPERATION           F0D74910
       MZE 4$OPDOP,,5$OPDOP   OPD                                       F0D74920
       BCD 1OPSYN0            OPCODE DEFINING PSEUDOOPERATION           F0D74930
       MZE 4$OPSOP,,5$OPDOP   OPSYN                                     F0D74940
       BCD 1OPVFD0            OPCODE DEFINING PSEUDOOPERATION           F0D74950
       MZE 4$OPVOP,,5$OPDOP   OPVFD                                     F0D74960
       BCD 1ORA000        OR TO ACCUMULATOR                             F0D74970
       OCT -050171160000  ORA                                           F0D74980
       BCD 1ORG000            STORAGE ALLOCATING PSEUDOOPERATION        F0D74990
       PZE 4$ORGOP,,5$ORGOP   ORG                                       F0D75000
       BCD 1ORGCRS            MACRO COMPILER INFORMATION PSEUDOOPERATIONF0D75010
       MZE 4$CRSOP,,5$TTL03+1 ORGCRS                                    F0D75020
       BCD 1ORS000        OR TO STORAGE                                 F0D75030
       OCT -060271160000  ORS                                           F0D75040
       BCD 1OSI000        OR STORAGE TO INDICATORS                      F0D75050
       OCT +044271120000  OSI                                           F0D75060
       BCD 1PAC000        PLACE ADDRESS IN INDEX, COMPLEMENTED          F0D75070
       OCT +073705120000  PAC                                           F0D75080
       BCD 1PAI000        PLACE ADDRESS IN INDICATORS                   F0D75090
       OCT +004401120000  PAI                                           F0D75100
       BCD 1PAX000        PLACE ADDRESS IN INDEX                        F0D75110
       OCT +073405160000  PAX                                           F0D75120
       BCD 1PBT000        P BIT TEST                                    F0D75130
       OCT -076000160001  PBT                                           F0D75140
       BCD 1PCA000            PLACE COMPLIMENT OF INDEX IN ADDRESS     $F0D75141
       OCT +075605120000       PCA                                     $F0D75142
       BCD 1PCC000            LIST CONTROL PSEUDOOPERATION              F0D75150
       MZE 4$READ1,,5$PCCOP   PCC                                       F0D75160
       BCD 1PCD000            PLACE COMPLEMENT OF INDEX IN DECREMENT   $F0D75161
       OCT -075605120000       PCD                                     $F0D75162
       BCD 1PDC000        PLACE DECREMENT IN INDEX, COMPLEMENTED        F0D75170
       OCT -073705120000  PDC                                           F0D75180
       BCD 1PDX000        PLACE DECREMENT IN INDEX                      F0D75190
       OCT -073405160000  PDX                                           F0D75200
       BCD 1PIA000        PLACE INDICATORS IN ACCUMULATOR               F0D75210
       OCT -004601120000  PIA                                           F0D75220
       BCD 1PMC000            LIST CONTROL PSEUDOOPERATION              F0D75230
       MZE 4$READ1,,5$PMCOP   PMC                                       F0D75240
       BCD 1PON000        PLUS ONE (PREFIX)                             F0D75250
       OCT +100001160000  PON                                           F0D75260
       BCD 1PRINT0            LIST CONTROL PSEUDOOPERATION              F0D75270
       MON 4$PRTOP,,5$TTL03+1 PRINT                                     F0D75280
       BCD 1PSE000        PLUS SENSE                                    F0D75290
       OCT +076011160000  PSE                                           F0D75300
       BCD 1PSLA00        PRESENT SENSE LINES, CHANNEL A                F0D75310
       OCT +066471120000  PSLA                                          F0D75320
       BCD 1PSLB00        PRESENT SENSE LINES, CHANNEL B                F0D75330
       OCT -066471120000  PSLB                                          F0D75340
       BCD 1PSLC00        PRESENT SENSE LINES, CHANNEL C                F0D75350
       OCT +066571120000  PSLC                                          F0D75360
       BCD 1PSLD00        PRESENT SENSE LINES, CHANNEL D                F0D75370
       OCT -066571120000  PSLD                                          F0D75380
       BCD 1PSLE00        PRESENT SENSE LINES, CHANNEL E                F0D75390
       OCT +066671120000  PSLE                                          F0D75400
       BCD 1PSLF00        PRESENT SENSE LINES, CHANNEL F                F0D75410
       OCT -066671120000  PSLF                                          F0D75420
       BCD 1PSLG00        PRESENT SENSE LINES, CHANNEL G                F0D75430
       OCT +066771120000  PSLG                                          F0D75440
       BCD 1PSLH00        PRESENT SENSE LINES, CHANNEL H                F0D75450
       OCT -066771120000  PSLH                                          F0D75460
       BCD 1PTH000        PLUS THREE (PREFIX)                           F0D75470
       OCT +300001160000  PTH                                           F0D75480
       BCD 1PTW000        PLUS TWO (PREFIX)                             F0D75490
       OCT +200001160000  PTW                                           F0D75500
       BCD 1PXA000        PLACE INDEX IN ADDRESS                        F0D75510
       OCT +075405120000  PXA                                           F0D75520
       BCD 1PXD000        PLACE INDEX IN DECREMENT                      F0D75530
       OCT -075405160000  PXD                                           F0D75540
       BCD 1PZE000        PLUS ZERO (PREFIX)                            F0D75550
       OCT +000001160000  PZE                                           F0D75560
       BCD 1RCD000        READ CARDS                                    F0D75570
       OCT +076200160321  RCD                                           F0D75580
       BCD 1RCDA00        READ CARDS, CHANNEL A                         F0D75590
       OCT +076200121321  RCDA                                          F0D75600
       BCD 1RCDB00        READ CARDS, CHANNEL B                         F0D75610
       OCT +076200122321  RCDB                                          F0D75620
       BCD 1RCDC00        READ CARDS, CHANNEL C                         F0D75630
       OCT +076200123321  RCDC                                          F0D75640
       BCD 1RCDD00        READ CARDS, CHANNEL D                         F0D75650
       OCT +076200124321  RCDD                                          F0D75660
       BCD 1RCDE00        READ CARDS, CHANNEL E                         F0D75670
       OCT +076200125321  RCDE                                          F0D75680
       BCD 1RCDF00        READ CARDS, CHANNEL F                         F0D75690
       OCT +076200126321  RCDF                                          F0D75700
       BCD 1RCDG00        READ CARDS, CHANNEL G                         F0D75710
       OCT +076200127321  RCDG                                          F0D75720
       BCD 1RCDH00        READ CARDS, CHANNEL H                         F0D75730
       OCT +076200130321  RCDH                                          F0D75740
       BCD 1RCHA00        RESET AND LOAD CHANNEL A                      F0D75750
       OCT +054071120000  RCHA                                          F0D75760
       BCD 1RCHB00        RESET AND LOAD CHANNEL B                      F0D75770
       OCT -054071120000  RCHB                                          F0D75780
       BCD 1RCHC00        RESET AND LOAD CHANNEL C                      F0D75790
       OCT +054171120000  RCHC                                          F0D75800
       BCD 1RCHD00        RESET AND LOAD CHANNEL D                      F0D75810
       OCT -054171120000  RCHD                                          F0D75820
       BCD 1RCHE00        RESET AND LOAD CHANNEL E                      F0D75830
       OCT +054271120000  RCHE                                          F0D75840
       BCD 1RCHF00        RESET AND LOAD CHANNEL F                      F0D75850
       OCT -054271120000  RCHF                                          F0D75860
       BCD 1RCHG00        RESET AND LOAD CHANNEL G                      F0D75870
       OCT +054371120000  RCHG                                          F0D75880
       BCD 1RCHH00        RESET AND LOAD CHANNEL H                      F0D75890
       OCT -054371120000  RCHH                                          F0D75900
       BCD 1RCT000        RESET CHANNEL TRAPS                           F0D75910
       OCT +076000120014  RCT                                           F0D75920
       BCD 1RDC000        RESET DATA CHANNEL                            F0D75930
       OCT +076010120352  RDC                                           F0D75940
       BCD 1RDCA00        RESET DATA CHANNEL A                          F0D75950
       OCT +076000121352  RDCA                                          F0D75960
       BCD 1RDCB00        RESET DATA CHANNEL B                          F0D75970
       OCT +076000122352  RDCB                                          F0D75980
       BCD 1RDCC00        RESET DATA CHANNEL C                          F0D75990
       OCT +076000123352  RDCC                                          F0D76000
       BCD 1RDCD00        RESET DATA CHANNEL D                          F0D76010
       OCT +076000124352  RDCD                                          F0D76020
       BCD 1RDCE00        RESET DATA CHANNEL E                          F0D76030
       OCT +076000125352  RDCE                                          F0D76040
       BCD 1RDCF00        RESET DATA CHANNEL F                          F0D76050
       OCT +076000126352  RDCF                                          F0D76060
       BCD 1RDCG00        RESET DATA CHANNEL G                          F0D76070
       OCT +076000127352  RDCG                                          F0D76080
       BCD 1RDCH00        RESET DATA CHANNEL H                          F0D76090
       OCT +076000130352  RDCH                                          F0D76100
       BCD 1RDR000        READ DRUM                                     F0D76110
       OCT +076210140300  RDR                                           F0D76120
       BCD 1RDS000        READ SELECT                                   F0D76130
       OCT +076211160000  RDS                                           F0D76140
       BCD 1REF000            LIST CONTROL PSEUDOOPERATION              F0D76150
       MZE 4$READ1,,5$REFOP   REF                                       F0D76160
       BCD 1REM000            LIST CONTROL PSEUDOOPERATION              F0D76170
       MZE 4$READ1,,5$REMOP   REM                                       F0D76180
       BCD 1REW000        REWIND TAPE                                   F0D76190
       OCT +077210160200  REW                                           F0D76200
       BCD 1REWA00        REWIND TAPE CHANNEL A                         F0D76210
       OCT +077210121200  REWA                                          F0D76220
       BCD 1REWB00        REWIND TAPE CHANNEL B                         F0D76230
       OCT +077210122200  REWB                                          F0D76240
       BCD 1REWC00        REWIND TAPE CHANNEL C                         F0D76250
       OCT +077210123200  REWC                                          F0D76260
       BCD 1REWD00        REWIND TAPE CHANNEL D                         F0D76270
       OCT +077210124200  REWD                                          F0D76280
       BCD 1REWE00        REWIND TAPE CHANNEL E                         F0D76290
       OCT +077210125200  REWE                                          F0D76300
       BCD 1REWF00        REWIND TAPE CHANNEL F                         F0D76310
       OCT +077210126200  REWF                                          F0D76320
       BCD 1REWG00        REWIND TAPE CHANNEL G                         F0D76330
       OCT +077210127200  REWG                                          F0D76340
       BCD 1REWH00        REWIND TAPE CHANNEL H                         F0D76350
       OCT +077210130200  REWH                                          F0D76360
       BCD 1REWIND            UPDATE INFORMATION PSEUDOOPERATION        F0D76370
       MON 4$REWOP,,5$TTL03+1 REWIND                                    F0D76380
       BCD 1RFT000        RIGHT HALF INDICATORS OFF TEST                F0D76390
       OCT +005411120001  RFT                                           F0D76400
       BCD 1RIA000        RESET INDICATORS FROM ACCUMULATOR             F0D76410
       OCT -004201120000  RIA                                           F0D76420
       BCD 1RICA00        RESET CHANNEL A                          DISK F0D76430
       OCT +076000121350  RICA                                     DISK F0D76440
       BCD 1RICB00        RESET CHANNEL B                          DISK F0D76450
       OCT +076000122350  RICB                                     DISK F0D76460
       BCD 1RICC00        RESET CHANNEL C                          DISK F0D76470
       OCT +076000123350  RICC                                     DISK F0D76480
       BCD 1RICD00        RESET CHANNEL D                          DISK F0D76490
       OCT +076000124350  RICD                                     DISK F0D76500
       BCD 1RICE00        RESET CHANNEL E                          DISK F0D76510
       OCT +076000125350  RICE                                     DISK F0D76520
       BCD 1RICF00        RESET CHANNEL F                          DISK F0D76530
       OCT +076000126350  RICF                                     DISK F0D76540
       BCD 1RICG00        RESET CHANNEL G                          DISK F0D76550
       OCT +076000127350  RICG                                     DISK F0D76560
       BCD 1RICH00        RESET CHANNEL H                          DISK F0D76570
       OCT +076000130350  RICH                                     DISK F0D76580
       BCD 1RIL000        RESET INDICATORS OF LEFT HALF                 F0D76590
       OCT -005711120001  RIL                                           F0D76600
       BCD 1RIR000        RESET INDICATORS OF RIGHT HALF                F0D76610
       OCT +005711120001  RIR                                           F0D76620
       BCD 1RIS000        RESET INDICATORS FROM STORAGE                 F0D76630
       OCT +044571120000  RIS                                           F0D76640
       BCD 1RMT000            MACRO DEFINITION PSEUDOOPERATION          F0D76650
       MZE 4$RMTOP,,5$UNLOP+1 RMT                                       F0D76660
       BCD 1RND000        ROUND                                         F0D76670
       OCT +076000160010  RND                                           F0D76680
       BCD 1RNT000        RIGHT HALF INDICATORS ON TEST                 F0D76690
       OCT +005611120001  RNT                                           F0D76700
       BCD 1RPR000        READ PRINTER                                  F0D76710
       OCT +076200160361  RPR                                           F0D76720
       BCD 1RPRA00        READ PRINTER, CHANNEL A                       F0D76730
       OCT +076200121361  RPRA                                          F0D76740
       BCD 1RPRB00        READ PRINTER, CHANNEL B                       F0D76750
       OCT +076200122361  RPRB                                          F0D76760
       BCD 1RPRC00        READ PRINTER, CHANNEL C                       F0D76770
       OCT +076200123361  RPRC                                          F0D76780
       BCD 1RPRD00        READ PRINTER, CHANNEL D                       F0D76790
       OCT +076200124361  RPRD                                          F0D76800
       BCD 1RPRE00        READ PRINTER, CHANNEL E                       F0D76810
       OCT +076200125361  RPRE                                          F0D76820
       BCD 1RPRF00        READ PRINTER, CHANNEL F                       F0D76830
       OCT +076200126361  RPRF                                          F0D76840
       BCD 1RPRG00        READ PRINTER, CHANNEL G                       F0D76850
       OCT +076200127361  RPRG                                          F0D76860
       BCD 1RPRH00        READ PRINTER, CHANNEL H                       F0D76870
       OCT +076200130361  RPRH                                          F0D76880
       BCD 1RQL000        ROTATE MQ LEFT                                F0D76890
       OCT -077311160000  RQL                                           F0D76900
       BCD 1RSCA00        RESET AND START CHANNEL A                DISK F0D76910
       OCT +054071120000  RSCA                                     DISK F0D76920
       BCD 1RSCB00        RESET AND START CHANNEL B                DISK F0D76930
       OCT -054071120000  RSCB                                     DISK F0D76940
       BCD 1RSCC00        RESET AND START CHANNEL C                DISK F0D76950
       OCT +054171120000  RSCC                                     DISK F0D76960
       BCD 1RSCD00        RESET AND START CHANNEL D                DISK F0D76970
       OCT -054171120000  RSCD                                     DISK F0D76980
       BCD 1RSCE00        RESET AND START CHANNEL E                DISK F0D76990
       OCT +054271120000  RSCE                                     DISK F0D77000
       BCD 1RSCF00        RESET AND START CHANNEL F                DISK F0D77010
       OCT -054271120000  RSCF                                     DISK F0D77020
       BCD 1RSCG00        RESET AND START CHANNEL G                DISK F0D77030
       OCT +054371120000  RSCG                                     DISK F0D77040
       BCD 1RSCH00        RESET AND START CHANNEL H                DISK F0D77050
       OCT -054371120000  RSCH                                     DISK F0D77060
       BCD 1RTB000        READ TAPE BINARY                              F0D77070
       OCT +076210160220  RTB                                           F0D77080
       BCD 1RTBA00        READ TAPE BINARY, CHANNEL A                   F0D77090
       OCT +076210121220  RTBA                                          F0D77100
       BCD 1RTBB00        READ TAPE BINARY, CHANNEL B                   F0D77110
       OCT +076210122220  RTBB                                          F0D77120
       BCD 1RTBC00        READ TAPE BINARY, CHANNEL C                   F0D77130
       OCT +076210123220  RTBC                                          F0D77140
       BCD 1RTBD00        READ TAPE BINARY, CHANNEL D                   F0D77150
       OCT +076210124220  RTBD                                          F0D77160
       BCD 1RTBE00        READ TAPE BINARY, CHANNEL E                   F0D77170
       OCT +076210125220  RTBE                                          F0D77180
       BCD 1RTBF00        READ TAPE BINARY, CHANNEL F                   F0D77190
       OCT +076210126220  RTBF                                          F0D77200
       BCD 1RTBG00        READ TAPE BINARY, CHANNEL G                   F0D77210
       OCT +076210127220  RTBG                                          F0D77220
       BCD 1RTBH00        READ TAPE BINARY, CHANNEL H                   F0D77230
       OCT +076210130220  RTBH                                          F0D77240
       BCD 1RTD000        READ TAPE DECIMAL                             F0D77250
       OCT +076210160200  RTD                                           F0D77260
       BCD 1RTDA00        READ TAPE DECIMAL, CHANNEL A                  F0D77270
       OCT +076210121200  RTDA                                          F0D77280
       BCD 1RTDB00        READ TAPE DECIMAL, CHANNEL B                  F0D77290
       OCT +076210122200  RTDB                                          F0D77300
       BCD 1RTDC00        READ TAPE DECIMAL, CHANNEL C                  F0D77310
       OCT +076210123200  RTDC                                          F0D77320
       BCD 1RTDD00        READ TAPE DECIMAL, CHANNEL D                  F0D77330
       OCT +076210124200  RTDD                                          F0D77340
       BCD 1RTDE00        READ TAPE DECIMAL, CHANNEL E                  F0D77350
       OCT +076210125200  RTDE                                          F0D77360
       BCD 1RTDF00        READ TAPE DECIMAL, CHANNEL F                  F0D77370
       OCT +076210126200  RTDF                                          F0D77380
       BCD 1RTDG00        READ TAPE DECIMAL, CHANNEL G                  F0D77390
       OCT +076210127200  RTDG                                          F0D77400
       BCD 1RTDH00        READ TAPE DECIMAL, CHANNEL H                  F0D77410
       OCT +076210130200  RTDH                                          F0D77420
       BCD 1RTT000        REDUNDANCY TAPE TEST                          F0D77430
       OCT -076000140012  RTT                                           F0D77440
       BCD 1RUN000        REWIND AND UNLOAD                             F0D77450
       OCT -077210120200  RUN                                           F0D77460
       BCD 1RUNA00        REWIND AND UNLOAD, CHANNEL A                  F0D77470
       OCT -077210121200  RUNA                                          F0D77480
       BCD 1RUNB00        REWIND AND UNLOAD, CHANNEL B                  F0D77490
       OCT -077210122200  RUNB                                          F0D77500
       BCD 1RUNC00        REWIND AND UNLOAD, CHANNEL C                  F0D77510
       OCT -077210123200  RUNC                                          F0D77520
       BCD 1RUND00        REWIND AND UNLOAD, CHANNEL D                  F0D77530
       OCT -077210124200  RUND                                          F0D77540
       BCD 1RUNE00        REWIND AND UNLOAD, CHANNEL E                  F0D77550
       OCT -077210125200  RUNE                                          F0D77560
       BCD 1RUNF00        REWIND AND UNLOAD, CHANNEL F                  F0D77570
       OCT -077210126200  RUNF                                          F0D77580
       BCD 1RUNG00        REWIND AND UNLOAD, CHANNEL G                  F0D77590
       OCT -077210127200  RUNG                                          F0D77600
       BCD 1RUNH00        REWIND AND UNLOAD, CHANNEL H                  F0D77610
       OCT -077210130200  RUNH                                          F0D77620
       BCD 1***000        CONVENTION FOR OPCODE TO BE INITIALIZED       F0D77630
       OCT +000001160000  ***                                           F0D77640
       BCD 1   000        BLANKS                                        F0D77650
       OCT +000001160000  BLANKS                                        F0D77660
       BCD 1SAR000        STORE ASSEMBLY REGISTER                  DISK F0D77670
       OCT  300011720004  SAR                                      DISK F0D77680
       BCD 1SBM000        SUBTRACT MAGNITUDE                            F0D77690
       OCT -040071160000  SBM                                           F0D77700
       BCD 1SCA000            STORE COMPLEMENT OF INDEX IN ADDRESS     $F0D77701
       OCT +063615120000       SCA                                     $F0D77702
       BCD 1SCD000            STORE COMPLEMENT OF INDEX IN DECREMENT   $F0D77703
       OCT -063615120000       SCD                                     $F0D77704
       BCI     1,SCDA00       STORE CHANNEL DIAGNOSTIC,CHANNEL A       $F0D77705
       OCT     +064471120000  SCDA                                     $F0D77706
       BCI     1,SCDB00       STORE CHANNEL DIAGNOSTIC,CHANNEL B       $F0D77707
       OCT     -064471120000  SCDB                                     $F0D77708
       BCI     1,SCDC00       STORE CHANNEL DIAGNOSTIC,CHANNEL C       $F0D77709
       OCT     +064571120000  SCDC                                     $F0D7770A
       BCI     1,SCDD00       STORE CHANNEL DIAGNOSTIC,CHANNEL D       $F0D7770B
       OCT     -064571120000  SCDD                                     $F0D7770C
       BCI     1,SCDE00       STORE CHANNEL DIAGNOSTIC,CHANNEL E       $F0D7770D
       OCT     +064671120000  SCDE                                     $F0D7770E
       BCI     1,SCDF00       STORE CHANNEL DIAGNOSTIC,CHANNEL F       $F0D7770F
       OCT     -064671120000  SCDF                                     $F0D7770G
       BCI     1,SCDG00       STORE CHANNEL DIAGNOSTIC,CHANNEL G       $F0D7770H
       OCT     +064771120000  SCDG                                     $F0D7770I
       BCI     1,SCDH00       STORE CHANNEL DIAGNOSTIC,CHANNEL H       $F0D7770J
       OCT     -064771120000  SCDH                                     $F0D7770K
       BCD 1SCHA00        STORE CHANNEL A                               F0D77710
       OCT +064071120000  SCHA                                          F0D77720
       BCD 1SCHB00        STORE CHANNEL B                               F0D77730
       OCT -064071120000  SCHB                                          F0D77740
       BCD 1SCHC00        STORE CHANNEL C                               F0D77750
       OCT +064171120000  SCHC                                          F0D77760
       BCD 1SCHD00        STORE CHANNEL D                               F0D77770
       OCT -064171120000  SCHD                                          F0D77780
       BCD 1SCHE00        STORE CHANNEL E                               F0D77790
       OCT +064271120000  SCHE                                          F0D77800
       BCD 1SCHF00        STORE CHANNEL F                               F0D77810
       OCT -064271120000  SCHF                                          F0D77820
       BCD 1SCHG00        STORE CHANNEL G                               F0D77830
       OCT +064371120000  SCHG                                          F0D77840
       BCD 1SCHH00        STORE CHANNEL H                               F0D77850
       OCT -064371120000  SCHH                                          F0D77860
       BCD 1SDH000        SET DENSITY HIGH                              F0D77870
       OCT +077610120220  SDH                                           F0D77880
       BCD 1SDHA00        SET DENSITY HIGH, CHANNEL A                   F0D77890
       OCT +077610121220  SDHA                                          F0D77900
       BCD 1SDHB00        SET DENSITY HIGH, CHANNEL B                   F0D77910
       OCT +077610122220  SDHB                                          F0D77920
       BCD 1SDHC00        SET DENSITY HIGH, CHANNEL C                   F0D77930
       OCT +077610123220  SDHC                                          F0D77940
       BCD 1SDHD00        SET DENSITY HIGH, CHANNEL D                   F0D77950
       OCT +077610124220  SDHD                                          F0D77960
       BCD 1SDHE00        SET DENSITY HIGH, CHANNEL E                   F0D77970
       OCT +077610125220  SDHE                                          F0D77980
       BCD 1SDHF00        SET DENSITY HIGH, CHANNEL F                   F0D77990
       OCT +077610126220  SDHF                                          F0D78000
       BCD 1SDHG00        SET DENSITY HIGH, CHANNEL G                   F0D78010
       OCT +077610127220  SDHG                                          F0D78020
       BCD 1SDHH00        SET DENSITY HIGH, CHANNEL H                   F0D78030
       OCT +077610130220  SDHH                                          F0D78040
       BCD 1SDL000        SET DENSITY LOW                               F0D78050
       OCT +077610120200  SDL                                           F0D78060
       BCD 1SDLA00        SET DENSITY LOW, CHANNEL A                    F0D78070
       OCT +077610121200  SDLA                                          F0D78080
       BCD 1SDLB00        SET DENSITY LOW, CHANNEL B                    F0D78090
       OCT +077610122200  SDLB                                          F0D78100
       BCD 1SDLC00        SET DENSITY LOW, CHANNEL C                    F0D78110
       OCT +077610123200  SDLC                                          F0D78120
       BCD 1SDLD00        SET DENSITY LOW, CHANNEL D                    F0D78130
       OCT +077610124200  SDLD                                          F0D78140
       BCD 1SDLE00        SET DENSITY LOW, CHANNEL E                    F0D78150
       OCT +077610125200  SDLE                                          F0D78160
       BCD 1SDLF00        SET DENSITY LOW, CHANNEL F                    F0D78170
       OCT +077610126200  SDLF                                          F0D78180
       BCD 1SDLG00        SET DENSITY LOW, CHANNEL G                    F0D78190
       OCT +077610127200  SDLG                                          F0D78200
       BCD 1SDLH00        SET DENSITY LOW, CHANNEL H                    F0D78210
       OCT +077610130200  SDLH                                          F0D78220
       BCD 1SDN000        SET DENSITY                                   F0D78230
       OCT +077610120200  SDN                                           F0D78240
       BCD 1SET000            SYMBOL DEFINING PSEUDOOPERATION           F0D78250
       PZE 4$SETOP,,5$SETOP   SET                                       F0D78260
       BCD 1SEVEN0        SEVEN (PREFIX)                                F0D78270
       OCT +700001120000  SEVEN                                         F0D78280
       BCD 1SIL000        SET INDICATORS OF LEFT HALF                   F0D78290
       OCT -005511120001  SIL                                           F0D78300
       BCD 1SIR000        SET INDICATORS OF RIGHT HALF                  F0D78310
       OCT +005511120001  SIR                                           F0D78320
       BCD 1SIX000        SIX (PREFIX)                                  F0D78330
       OCT +600001160000  SIX                                           F0D78340
       BCD 1SKP000            LIST CONTROL PSEUDOOPERATION              F0D78350
       MZE 4$READ1,,5$EJCOP   SKP                                       F0D78360
       BCD 1SKPFIL            UPDATE INFORMATION PSEUDOOPERATION        F0D78370
       MON 4$SKFOP,,5$TTL03+1 SKPFIL                                    F0D78380
       BCD 1SLF000        SENSE LIGHTS OFF                              F0D78390
       OCT +076000160140  SLF                                           F0D78400
       BCD 1SLN000        SENSE LIGHTS ON                               F0D78410
       OCT +076010160140  SLN                                           F0D78420
       BCD 1SLQ000        STORE LEFT HALF MQ                            F0D78430
       OCT -062071160000  SLQ                                           F0D78440
       BCD 1SLT000        SENSE LIGHT TEST                              F0D78450
       OCT -076010160140  SLT                                           F0D78460
       BCD 1SLW000        STORE LOGICAL WORD                            F0D78470
       OCT +060271160000  SLW                                           F0D78480
       BCD 1SMS000        SET MODE AND SELECT                      DISK F0D78490
       OCT  700011520004  SMS                                      DISK$F0D78500
       BCD 1SNS000        SENSE                                    DISK F0D78510
       OCT  240001320004  SNS                                      DISK$F0D78520
       BCD 1SPACE0            LIST CONTROL PSEUDOOPERATION              F0D78530
       MZE 4$READ1,,5$SPCOP   SPACE                                     F0D78540
       BCD 1SPC000            LIST CONTROL PSEUDOOPERATION              F0D78550
       MZE 4$READ1,,5$SPCOP   SPC                                       F0D78560
       BCD 1SPR000        SENSE PRINTER                                 F0D78570
       OCT +076010160360  SPR                                           F0D78580
       BCD 1SPRA00        SENSE PRINTER, CHANNEL A                      F0D78590
       OCT +076010121360  SPRA                                          F0D78600
       BCD 1SPRB00        SENSE PRINTER, CHANNEL B                      F0D78610
       OCT +076010122360  SPRB                                          F0D78620
       BCD 1SPRC00        SENSE PRINTER, CHANNEL C                      F0D78630
       OCT +076010123360  SPRC                                          F0D78640
       BCD 1SPRD00        SENSE PRINTER, CHANNEL D                      F0D78650
       OCT +076010124360  SPRD                                          F0D78660
       BCD 1SPRE00        SENSE PRINTER, CHANNEL E                      F0D78670
       OCT +076010125360  SPRE                                          F0D78680
       BCD 1SPRF00        SENSE PRINTER, CHANNEL F                      F0D78690
       OCT +076010126360  SPRF                                          F0D78700
       BCD 1SPRG00        SENSE PRINTER, CHANNEL G                      F0D78710
       OCT +076010127360  SPRG                                          F0D78720
       BCD 1SPRH00        SENSE PRINTER, CHANNEL H                      F0D78730
       OCT +076010130360  SPRH                                          F0D78740
       BCD 1SPT000        SENSE PRINTER TEST                           $F0D78750
       OCT +076000160360  SPT                                          $F0D78760
       BCD 1SPTA00        SENSE PRINTER TEST, CHANNEL A                $F0D78770
       OCT +076000121360  SPTA                                         $F0D78780
       BCD 1SPTB00        SENSE PRINTER TEST, CHANNEL B                $F0D78790
       OCT +076000122360  SPTB                                         $F0D78800
       BCD 1SPTC00        SENSE PRINTER TEST, CHANNEL C                $F0D78810
       OCT +076000123360  SPTC                                         $F0D78820
       BCD 1SPTD00        SENSE PRINTER TEST, CHANNEL D                $F0D78830
       OCT +076000124360  SPTD                                         $F0D78840
       BCD 1SPTE00        SENSE PRINTER TEST, CHANNEL E                $F0D78850
       OCT +076000125360  SPTE                                         $F0D78860
       BCD 1SPTF00        SENSE PRINTER TEST, CHANNEL F                $F0D78870
       OCT +076000126360  SPTF                                         $F0D78880
       BCD 1SPTG00        SENSE PRINTER TEST, CHANNEL G                $F0D78890
       OCT +076000127360  SPTG                                         $F0D78900
       BCD 1SPTH00        SENSE PRINTER TEST, CHANNEL H                $F0D78910
       OCT +076000130360  SPTH                                         $F0D78920
       BCD 1SPU000        SENSE PUNCH                                   F0D78930
       OCT +076010160340  SPU                                           F0D78940
       BCD 1SPUA00        SENSE PUNCH, CHANNEL A                        F0D78950
       OCT +076010121340  SPUA                                          F0D78960
       BCD 1SPUB00        SENSE PUNCH, CHANNEL B                        F0D78970
       OCT +076010122340  SPUB                                          F0D78980
       BCD 1SPUC00        SENSE PUNCH, CHANNEL C                        F0D78990
       OCT +076010123340  SPUC                                          F0D79000
       BCD 1SPUD00        SENSE PUNCH, CHANNEL D                        F0D79010
       OCT +076010124340  SPUD                                          F0D79020
       BCD 1SPUE00        SENSE PUNCH, CHANNEL E                        F0D79030
       OCT +076010125340  SPUE                                          F0D79040
       BCD 1SPUF00        SENSE PUNCH, CHANNEL F                        F0D79050
       OCT +076010126340  SPUF                                          F0D79060
       BCD 1SPUG00        SENSE PUNCH, CHANNEL G                        F0D79070
       OCT +076010127340  SPUG                                          F0D79080
       BCD 1SPUH00        SENSE PUNCH, CHANNEL H                        F0D79090
       OCT +076010130340  SPUH                                          F0D79100
       BCD 1SSLA00        STORE SENSE LINES, CHANNEL A                  F0D79110
       OCT +066071120000  SSLA                                          F0D79120
       BCD 1SSLB00        STORE SENSE LINES, CHANNEL B                  F0D79130
       OCT -066071120000  SSLB                                          F0D79140
       BCD 1SSLC00        STORE SENSE LINES, CHANNEL C                  F0D79150
       OCT +066171120000  SSLC                                          F0D79160
       BCD 1SSLD00        STORE SENSE LINES, CHANNEL D                  F0D79170
       OCT -066171120000  SSLD                                          F0D79180
       BCD 1SSLE00        STORE SENSE LINES, CHANNEL E                  F0D79190
       OCT +066271120000  SSLE                                          F0D79200
       BCD 1SSLF00        STORE SENSE LINES, CHANNEL F                  F0D79210
       OCT -066271120000  SSLF                                          F0D79220
       BCD 1SSLG00        STORE SENSE LINES, CHANNEL G                  F0D79230
       OCT +066371120000  SSLG                                          F0D79240
       BCD 1SSLH00        STORE SENSE LINES, CHANNEL H                  F0D79250
       OCT -066371120000  SSLH                                          F0D79260
       BCD 1SSM000        SET SIGN MINUS                                F0D79270
       OCT -076000160003  SSM                                           F0D79280
       BCD 1SSP000        SET SIGN PLUS                                 F0D79290
       OCT +076000160003  SSP                                           F0D79300
       BCD 1SST000            ASSEMBLER INFORMATION PSEUDOOPERATION     F0D79310
       MZE 4$SSTOP,,5$UNLOP+1 SST                                       F0D79320
       BCD 1STA000        STORE ADDRESS                                 F0D79330
       OCT +062171160000  STA                                           F0D79340
       BCD 1STCA00        START CHANNEL A                          DISK F0D79350
       OCT +054401120000  STCA                                     DISK F0D79360
       BCD 1STCB00        START CHANNEL B                          DISK F0D79370
       OCT -054401120000  STCB                                     DISK F0D79380
       BCD 1STCC00        START CHANNEL C                          DISK F0D79390
       OCT +054501120000  STCC                                     DISK F0D79400
       BCD 1STCD00        START CHANNEL D                          DISK F0D79410
       OCT -054501120000  STCD                                     DISK F0D79420
       BCD 1STCE00        START CHANNEL E                          DISK F0D79430
       OCT +054601120000  STCE                                     DISK F0D79440
       BCD 1STCF00        START CHANNEL F                          DISK F0D79450
       OCT -054601120000  STCF                                     DISK F0D79460
       BCD 1STCG00        START CHANNEL G                          DISK F0D79470
       OCT +054701120000  STCG                                     DISK F0D79480
       BCD 1STCH00        START CHANNEL H                          DISK F0D79490
       OCT -054701120000  STCH                                     DISK F0D79500
       BCD 1STD000        STORE DECREMENT                               F0D79510
       OCT +062271160000  STD                                           F0D79520
       BCD 1STI000        STORE INDICATORS                              F0D79530
       OCT +060471120000  STI                                           F0D79540
       BCD 1STL000        STORE INSTRUCTION LOCATION COUNTER            F0D79550
       OCT -062571120000  STL                                           F0D79560
       BCD 1STO000        STORE                                         F0D79570
       OCT +060171160000  STO                                           F0D79580
       BCD 1STP000        STORE PREFIX                                  F0D79590
       OCT +063071160000  STP                                           F0D79600
       BCD 1STQ000        STORE MQ                                      F0D79610
       OCT -060071160000  STQ                                           F0D79620
       BCD 1STR000        STORE LOCATION AND TRAP                       F0D79630
       OCT -100001120000  STR                                           F0D79640
       BCD 1STT000        STORE TAG                                     F0D79650
       OCT +062571120000  STT                                           F0D79660
       BCD 1STZ000        STORE ZERO                                    F0D79670
       OCT +060071160000  STZ                                           F0D79680
       BCD 1SUB000        SUBTRACT                                      F0D79690
       OCT +040271160000  SUB                                           F0D79700
       BCD 1SVN000        SEVEN (PREFIX)                                F0D79710
       OCT +700001160000  SVN                                           F0D79720
       BCD 1SWT000        SENSE SWITCH TEST                             F0D79730
       OCT +076010160160  SWT                                           F0D79740
       BCD 1SXA000        STORE INDEX IN ADDRESS                        F0D79750
       OCT +063415120000  SXA                                           F0D79760
       BCD 1SXD000        STORE INDEX IN DECREMENT                      F0D79770
       OCT -063415160000  SXD                                           F0D79780
       BCD 1SYN000            SYMBOL DEFINING PSEUDOOPERATION           F0D79790
       PZE 4$SYNOP,,5$MAXOP   SYN                                       F0D79800
       BCD 1TAPENO            SYMBOL DEFINING PSEUDOOPERATION           F0D79810
       PZE 4$TAPOP,,5$BOLOP+2 TAPENO                                    F0D79820
       BCD 1TCD000            CARD FORMAT PSEUDOOPERATION               F0D79830
       MZE 4$TCDOP,,5$TCDOP   TCD                                       F0D79840
       BCD 1TCH000        I/O TRANSFER IN CHANNEL                       F0D79850
       OCT  100011520000  TCH                                           F0D79860
       BCD 1TCM000        TRANSFER ON CONDITION MET                DISK F0D79870
       OCT  500013720006  TCM                                      DISK F0D79880
       BCD 1TCNA00        TRANSFER ON CHANNEL A NOT IN OPERATION        F0D79890
       OCT -006071120000  TCNA                                          F0D79900
       BCD 1TCNB00        TRANSFER ON CHANNEL B NOT IN OPERATION        F0D79910
       OCT -006171120000  TCNB                                          F0D79920
       BCD 1TCNC00        TRANSFER ON CHANNEL C NOT IN OPERATION        F0D79930
       OCT -006271120000  TCNC                                          F0D79940
       BCD 1TCND00        TRANSFER ON CHANNEL D NOT IN OPERATION        F0D79950
       OCT -006371120000  TCND                                          F0D79960
       BCD 1TCNE00        TRANSFER ON CHANNEL E NOT IN OPERATION        F0D79970
       OCT -006471120000  TCNE                                          F0D79980
       BCD 1TCNF00        TRANSFER ON CHANNEL F NOT IN OPERATION        F0D79990
       OCT -006571120000  TCNF                                          F0D80000
       BCD 1TCNG00        TRANSFER ON CHANNEL G NOT IN OPERATION        F0D80010
       OCT -006671120000  TCNG                                          F0D80020
       BCD 1TCNH00        TRANSFER ON CHANNEL H NOT IN OPERATION        F0D80030
       OCT -006771120000  TCNH                                          F0D80040
       BCD 1TCOA00        TRANSFER ON CHANNEL A IN OPERATION            F0D80050
       OCT +006071120000  TCOA                                          F0D80060
       BCD 1TCOB00        TRANSFER ON CHANNEL B IN OPERATION            F0D80070
       OCT +006171120000  TCOB                                          F0D80080
       BCD 1TCOC00        TRANSFER ON CHANNEL C IN OPERATION            F0D80090
       OCT +006271120000  TCOC                                          F0D80100
       BCD 1TCOD00        TRANSFER ON CHANNEL D IN OPERATION            F0D80110
       OCT +006371120000  TCOD                                          F0D80120
       BCD 1TCOE00        TRANSFER ON CHANNEL E IN OPERATION            F0D80130
       OCT +006471120000  TCOE                                          F0D80140
       BCD 1TCOF00        TRANSFER ON CHANNEL F IN OPERATION            F0D80150
       OCT +006571120000  TCOF                                          F0D80160
       BCD 1TCOG00        TRANSFER ON CHANNEL G IN OPERATION            F0D80170
       OCT +006671120000  TCOG                                          F0D80180
       BCD 1TCOH00        TRANSFER ON CHANNEL H IN OPERATION            F0D80190
       OCT +006771120000  TCOH                                          F0D80200
       BCD 1TDC000        TRANSFER AND DECREMENT COUNTER           DISK F0D80210
       OCT  640011520004  TDC                                      DISK F0D80220
       BCD 1TEFA00        TRANSFER ON END OF FILE, CHANNEL A            F0D80230
       OCT +003071120000  TEFA                                          F0D80240
       BCD 1TEFB00        TRANSFER ON END OF FILE, CHANNEL B            F0D80250
       OCT -003071120000  TEFB                                          F0D80260
       BCD 1TEFC00        TRANSFER ON END OF FILE, CHANNEL C            F0D80270
       OCT +003171120000  TEFC                                          F0D80280
       BCD 1TEFD00        TRANSFER ON END OF FILE, CHANNEL D            F0D80290
       OCT -003171120000  TEFD                                          F0D80300
       BCD 1TEFE00        TRANSFER ON END OF FILE, CHANNEL E            F0D80310
       OCT +003271120000  TEFE                                          F0D80320
       BCD 1TEFF00        TRANSFER ON END OF FILE, CHANNEL F            F0D80330
       OCT -003271120000  TEFF                                          F0D80340
       BCD 1TEFG00        TRANSFER ON END OF FILE, CHANNEL G            F0D80350
       OCT +003371120000  TEFG                                          F0D80360
       BCD 1TEFH00        TRANSFER ON END OF FILE, CHANNEL H            F0D80370
       OCT -003371120000  TEFH                                          F0D80380
       BCD 1THREE0        THREE (PREFIX)                                F0D80390
       OCT +300001120000  THREE                                         F0D80400
       BCD 1TIF000        TRANSFER IF INDICATORS OFF                    F0D80410
       OCT +004671120000  TIF                                           F0D80420
       BCD 1TIO000        TRANSFER IF INDICATORS ON                     F0D80430
       OCT +004271120000  TIO                                           F0D80440
       BCD 1TITLE0            LIST CONTROL PSEUDOOPERATION              F0D80450
       MZE 4$READ1,,5$TITOP   TITLE                                     F0D80460
       BCD 1TIX000        TRANSFER ON INDEX                             F0D80470
       OCT +200017160000  TIX                                           F0D80480
       BCD 1TLQ000        TRANSFER ON LOW MQ                            F0D80490
       OCT +004071160000  TLQ                                           F0D80500
       BCD 1TMI000        TRANSFER ON MINUS                             F0D80510
       OCT -012071160000  TMI                                           F0D80520
       BCD 1TNO000        TRANSFER ON NO OVERFLOW                       F0D80530
       OCT -014071160000  TNO                                           F0D80540
       BCD 1TNX000        TRANSFER ON NO INDEX                          F0D80550
       OCT -200017160000  TNX                                           F0D80560
       BCD 1TNZ000        TRANSFER ON NO ZERO                           F0D80570
       OCT -010071160000  TNZ                                           F0D80580
       BCD 1TOV000        TRANSFER ON OVERFLOW                          F0D80590
       OCT +014071160000  TOV                                           F0D80600
       BCD 1TPL000        TRANSFER ON PLUS                              F0D80610
       OCT +012071160000  TPL                                           F0D80620
       BCD 1TQO000        TRANSFER ON MQ OVERFLOW                       F0D80630
       OCT +016171160000  TQO                                           F0D80640
       BCD 1TQP000        TRANSFER ON MQ PLUS                           F0D80650
       OCT +016271160000  TQP                                           F0D80660
       BCD 1TRA000        TRANSFER                                      F0D80670
       OCT +002071160000  TRA                                           F0D80680
       BCD 1TRCA00        TRANSFER ON REDUNDANCY CHECK, CHANNEL A       F0D80690
       OCT +002271120000  TRCA                                          F0D80700
       BCD 1TRCB00        TRANSFER ON REDUNDANCY CHECK, CHANNEL B       F0D80710
       OCT -002271120000  TRCB                                          F0D80720
       BCD 1TRCC00        TRANSFER ON REDUNDANCY CHECK, CHANNEL C       F0D80730
       OCT +002471120000  TRCC                                          F0D80740
       BCD 1TRCD00        TRANSFER ON REDUNDANCY CHECK, CHANNEL D       F0D80750
       OCT -002471120000  TRCD                                          F0D80760
       BCD 1TRCE00        TRANSFER ON REDUNDANCY CHECK, CHANNEL E       F0D80770
       OCT +002671120000  TRCE                                          F0D80780
       BCD 1TRCF00        TRANSFER ON REDUNDANCY CHECK, CHANNEL F       F0D80790
       OCT -002671120000  TRCF                                          F0D80800
       BCD 1TRCG00        TRANSFER ON REDUNDANCY CHECK, CHANNEL G       F0D80810
       OCT +002771120000  TRCG                                          F0D80820
       BCD 1TRCH00        TRANSFER ON REDUNDANCY CHECK, CHANNEL H       F0D80830
       OCT -002771120000  TRCH                                          F0D80840
       BCD 1TRS000        TEST READY STATUS                             F0D80850
       OCT -077510120000  TRS                                           F0D80860
       BCD 1TSM000        TEST SIGNIFICANCE MODE                        F0D80870
       OCT -076100120141  TSM                                           F0D80880
       BCD 1TSX000        TRANSFER AND SET INDEX                        F0D80890
       OCT +007415160000  TSX                                           F0D80900
       BCD 1TTL000            LIST CONTROL PSEUDOOPERATION              F0D80910
       MZE 4$READ1,,5$TTLOP   TTL                                       F0D80920
       BCD 1TTR000        TRAP TRANSFER                                 F0D80930
       OCT +002171160000  TTR                                           F0D80940
       BCD 1TWO000        TWO (PREFIX)                                  F0D80950
       OCT +200001160000  TWO                                           F0D80960
       BCD 1TWT000        TRAP AND WAIT                            DISK F0D80970
       OCT  340011520004  TWT                                      DISK F0D80980
       BCD 1TXH000        TRANSFER ON INDEX HIGH                        F0D80990
       OCT +300017160000  TXH                                           F0D81000
       BCD 1TXI000        TRANSFER WITH INDEX INCREMENTED               F0D81010
       OCT +100017160000  TXI                                           F0D81020
       BCD 1TXL000        TRANSFER ON INDEX LOW                         F0D81030
       OCT -300017160000  TXL                                           F0D81040
       BCD 1TZE000        TRANSFER ON ZERO                              F0D81050
       OCT +010071160000  TZE                                           F0D81060
       BCD 1UAM000        UNNORMALIZED ADD MAGNITUDE                    F0D81070
       OCT -030471120000  UAM                                           F0D81080
       BCD 1UFA000        UNNORMALIZED FLOATING ADD                     F0D81090
       OCT -030071160000  UFA                                           F0D81100
       BCD 1UFM000        UNNORMALIZED FLOATING MULTIPLY                F0D81110
       OCT -026071160000  UFM                                           F0D81120
       BCD 1UFS000        UNNORMALIZED FLOATING SUBTRACT                F0D81130
       OCT -030271160000  UFS                                           F0D81140
       BCD 1UMC000            UPDATE INFORMATION PSEUDOOPERATION        F0D81150
       MON 4$UMCOP,,5$TTL03+1 UMC                                       F0D81160
       BCD 1UNLIST            LIST CONTROL PSEUDOOPERATION              F0D81170
       MZE 4$READ1,,5$UNLOP   UNLIST                                    F0D81180
       BCD 1UNLOAD            UPDATE INFORMATION PSEUDOOPERATION        F0D81190
       MON 4$ULDOP,,5$TTL03+1 UNLOAD                                    F0D81200
       BCD 1UPDATE            UPDATE INFORMATION PSEUDOOPERATION        F0D81210
       MON 4$UPDOP,,5$TTL03+1 UPDATE                                    F0D81220
       BCD 1USM000        UNNORMALIZED FLOATING SUBTRACT MAGNITUDE      F0D81230
       OCT -030671120000  USM                                           F0D81240
       BCD 1VDH000        VARIABLE LENGTH DIVIDE OR HALT                F0D81250
       OCT +022413120002  VDH                                           F0D81260
       BCD 1VDP000        VARIABLE LENGTH DIVIDE OR PROCEED             F0D81270
       OCT +022513120002  VDP                                           F0D81280
       BCD 1VFD000            DATA GENERATING PSEUDOOPERATION           F0D81290
       PZE 4$VFDOP,,5$VFDOP   VFD                                       F0D81300
       BCD 1VLM000        VARIABLE LENGTH MULTIPLY                      F0D81310
       OCT +020413120002  VLM                                           F0D81320
       BCD 1WDR000        WRITE DRUM                                    F0D81330
       OCT +076610140300  WDR                                           F0D81340
       BCD 1WEF000        WRITE END OF FILE                             F0D81350
       OCT +077010160200  WEF                                           F0D81360
       BCD 1WEFA00        WRITE END OF FILE, CHANNEL A                  F0D81370
       OCT +077010121200  WEFA                                          F0D81380
       BCD 1WEFB00        WRITE END OF FILE, CHANNEL B                  F0D81390
       OCT +077010122200  WEFB                                          F0D81400
       BCD 1WEFC00        WRITE END OF FILE, CHANNEL C                  F0D81410
       OCT +077010123200  WEFC                                          F0D81420
       BCD 1WEFD00        WRITE END OF FILE, CHANNEL D                  F0D81430
       OCT +077010124200  WEFD                                          F0D81440
       BCD 1WEFE00        WRITE END OF FILE, CHANNEL E                  F0D81450
       OCT +077010125200  WEFE                                          F0D81460
       BCD 1WEFF00        WRITE END OF FILE, CHANNEL F                  F0D81470
       OCT +077010126200  WEFF                                          F0D81480
       BCD 1WEFG00        WRITE END OF FILE, CHANNEL G                  F0D81490
       OCT +077010127200  WEFG                                          F0D81500
       BCD 1WEFH00        WRITE END OF FILE, CHANNEL H                  F0D81510
       OCT +077010130200  WEFH                                          F0D81520
       BCD 1WPB000        WRITE PRINTER BINARY                          F0D81530
       OCT +076600160362  WPB                                           F0D81540
       BCD 1WPBA00        WRITE PRINTER BINARY, CHANNEL A               F0D81550
       OCT +076600121362  WPBA                                          F0D81560
       BCD 1WPBB00        WRITE PRINTER BINARY, CHANNEL B               F0D81570
       OCT +076600122362  WPBB                                          F0D81580
       BCD 1WPBC00        WRITE PRINTER BINARY, CHANNEL C               F0D81590
       OCT +076600123362  WPBC                                          F0D81600
       BCD 1WPBD00        WRITE PRINTER BINARY, CHANNEL D               F0D81610
       OCT +076600124362  WPBD                                          F0D81620
       BCD 1WPBE00        WRITE PRINTER BINARY, CHANNEL E               F0D81630
       OCT +076600125362  WPBE                                          F0D81640
       BCD 1WPBF00        WRITE PRINTER BINARY, CHANNEL F               F0D81650
       OCT +076600126362  WPBF                                          F0D81660
       BCD 1WPBG00        WRITE PRINTER BINARY, CHANNEL G               F0D81670
       OCT +076600127362  WPBG                                          F0D81680
       BCD 1WPBH00        WRITE PRINTER BINARY, CHANNEL H               F0D81690
       OCT +076600130362  WPBH                                          F0D81700
       BCD 1WPD000        WRITE PRINTER DECIMAL                         F0D81710
       OCT +076600160361  WPD                                           F0D81720
       BCD 1WPDA00        WRITE PRINTER DECIMAL, CHANNEL A              F0D81730
       OCT +076600121361  WPDA                                          F0D81740
       BCD 1WPDB00        WRITE PRINTER DECIMAL, CHANNEL B              F0D81750
       OCT +076600122361  WPDB                                          F0D81760
       BCD 1WPDC00        WRITE PRINTER DECIMAL, CHANNEL C              F0D81770
       OCT +076600123361  WPDC                                          F0D81780
       BCD 1WPDD00        WRITE PRINTER DECIMAL, CHANNEL D              F0D81790
       OCT +076600124361  WPDD                                          F0D81800
       BCD 1WPDE00        WRITE PRINTER DECIMAL, CHANNEL E              F0D81810
       OCT +076600125361  WPDE                                          F0D81820
       BCD 1WPDF00        WRITE PRINTER DECIMAL, CHANNEL F              F0D81830
       OCT +076600126361  WPDF                                          F0D81840
       BCD 1WPDG00        WRITE PRINTER DECIMAL, CHANNEL G              F0D81850
       OCT +076600127361  WPDG                                          F0D81860
       BCD 1WPDH00        WRITE PRINTER DECIMAL, CHANNEL H              F0D81870
       OCT +076600130361  WPDH                                          F0D81880
       BCD 1WPR000        WRITE PRINTER                                 F0D81890
       OCT +076600160361  WPR                                           F0D81900
       BCD 1WPRA00        WRITE PRINTER, CHANNEL A                      F0D81910
       OCT +076600121361  WPRA                                          F0D81920
       BCD 1WPRB00        WRITE PRINTER, CHANNEL B                      F0D81930
       OCT +076600122361  WPRB                                          F0D81940
       BCD 1WPRC00        WRITE PRINTER, CHANNEL C                      F0D81950
       OCT +076600123361  WPRC                                          F0D81960
       BCD 1WPRD00        WRITE PRINTER, CHANNEL D                      F0D81970
       OCT +076600124361  WPRD                                          F0D81980
       BCD 1WPRE00        WRITE PRINTER, CHANNEL E                      F0D81990
       OCT +076600125361  WPRE                                          F0D82000
       BCD 1WPRF00        WRITE PRINTER, CHANNEL F                      F0D82010
       OCT +076600126361  WPRF                                          F0D82020
       BCD 1WPRG00        WRITE PRINTER, CHANNEL G                      F0D82030
       OCT +076600127361  WPRG                                          F0D82040
       BCD 1WPRH00        WRITE PRINTER, CHANNEL H                      F0D82050
       OCT +076600130361  WPRH                                          F0D82060
       BCD 1WPU000        WRITE PUNCH                                   F0D82070
       OCT +076600160341  WPU                                           F0D82080
       BCD 1WPUA00        WRITE PUNCH, CHANNEL A                        F0D82090
       OCT +076600121341  WPUA                                          F0D82100
       BCD 1WPUB00        WRITE PUNCH, CHANNEL B                        F0D82110
       OCT +076600122341  WPUB                                          F0D82120
       BCD 1WPUC00        WRITE PUNCH, CHANNEL C                        F0D82130
       OCT +076600123341  WPUC                                          F0D82140
       BCD 1WPUD00        WRITE PUNCH, CHANNEL D                        F0D82150
       OCT +076600124341  WPUD                                          F0D82160
       BCD 1WPUE00        WRITE PUNCH, CHANNEL E                        F0D82170
       OCT +076600125341  WPUE                                          F0D82180
       BCD 1WPUF00        WRITE PUNCH, CHANNEL F                        F0D82190
       OCT +076600126341  WPUF                                          F0D82200
       BCD 1WPUG00        WRITE PUNCH, CHANNEL G                        F0D82210
       OCT +076600127341  WPUG                                          F0D82220
       BCD 1WPUH00        WRITE PUNCH, CHANNEL H                        F0D82230
       OCT +076600130341  WPUH                                          F0D82240
       BCD 1WRS000        WRITE SELECT                                  F0D82250
       OCT +076611160000  WRS                                           F0D82260
       BCD 1WTB000        WRITE TAPE BINARY                             F0D82270
       OCT +076610160220  WTB                                           F0D82280
       BCD 1WTBA00        WRITE TAPE BINARY, CHANNEL A                  F0D82290
       OCT +076610121220  WTBA                                          F0D82300
       BCD 1WTBB00        WRITE TAPE BINARY, CHANNEL B                  F0D82310
       OCT +076610122220  WTBB                                          F0D82320
       BCD 1WTBC00        WRITE TAPE BINARY, CHANNEL C                  F0D82330
       OCT +076610123220  WTBC                                          F0D82340
       BCD 1WTBD00        WRITE TAPE BINARY, CHANNEL D                  F0D82350
       OCT +076610124220  WTBD                                          F0D82360
       BCD 1WTBE00        WRITE TAPE BINARY, CHANNEL E                  F0D82370
       OCT +076610125220  WTBE                                          F0D82380
       BCD 1WTBF00        WRITE TAPE BINARY, CHANNEL F                  F0D82390
       OCT +076610126220  WTBF                                          F0D82400
       BCD 1WTBG00        WRITE TAPE BINARY, CHANNEL G                  F0D82410
       OCT +076610127220  WTBG                                          F0D82420
       BCD 1WTBH00        WRITE TAPE BINARY, CHANNEL H                  F0D82430
       OCT +076610130220  WTBH                                          F0D82440
       BCD 1WTD000        WRITE TAPE DECIMAL                            F0D82450
       OCT +076610160200  WTD                                           F0D82460
       BCD 1WTDA00        WRITE TAPE DECIMAL, CHANNEL A                 F0D82470
       OCT +076610121200  WTDA                                          F0D82480
       BCD 1WTDB00        WRITE TAPE DECIMAL, CHANNEL B                 F0D82490
       OCT +076610122200  WTDB                                          F0D82500
       BCD 1WTDC00        WRITE TAPE DECIMAL, CHANNEL C                 F0D82510
       OCT +076610123200  WTDC                                          F0D82520
       BCD 1WTDD00        WRITE TAPE DECIMAL, CHANNEL D                 F0D82530
       OCT +076610124200  WTDD                                          F0D82540
       BCD 1WTDE00        WRITE TAPE DECIMAL, CHANNEL E                 F0D82550
       OCT +076610125200  WTDE                                          F0D82560
       BCD 1WTDF00        WRITE TAPE DECIMAL, CHANNEL F                 F0D82570
       OCT +076610126200  WTDF                                          F0D82580
       BCD 1WTDG00        WRITE TAPE DECIMAL, CHANNEL G                 F0D82590
       OCT +076610127200  WTDG                                          F0D82600
       BCD 1WTDH00        WRITE TAPE DECIMAL, CHANNEL H                 F0D82610
       OCT +076610130200  WTDH                                          F0D82620
       BCD 1WTR000        WAIT AND TRANSFER                        DISK F0D82630
       OCT  000011520000  WTR                                      DISK F0D82640
       BCD 1WTS000        WRITE TAPE SIMULTANEOUSLY (704)               F0D82650
       OCT +076610140320  WTS                                           F0D82660
       BCD 1WTV000        WRITE CATHODE RAY TUBE                        F0D82670
       OCT +076600160030  WTV                                           F0D82680
       BCD 1XCA000        EXCHANGE ACCUMULATOR AND MQ                   F0D82690
       OCT +013101120000  XCA                                           F0D82700
       BCD 1XCL000        EXCHANGE LOGICAL ACCUMULATOR AND MQ           F0D82710
       OCT -013001120000  XCL                                           F0D82720
       BCD 1XEC000        EXECUTE                                       F0D82730
       OCT +052271120000  XEC                                           F0D82740
       BCD 1XIT000        FORTRAN CODE FOR TTR                          F0D82750
       OCT +002171160000  XIT                                           F0D82760
       BCD 1XMT000        TRANSMIT                                 DISK F0D82770
       OCT  000013720000  XMT                                      DISK F0D82780
       BCD 1ZAC000        ZERO ACCUMULATOR (PXD WITHOUT TAG)            F0D82790
       OCT -075401160000  ZAC                                           F0D82800
       BCD 1ZET000        STORAGE ZERO TEST                             F0D82810
       OCT +052071120000  ZET                                           F0D82820
       BCD 1ZSA000        ZERO STORAGE ADDRESS (SXA WITHOUT TAG)        F0D82830
       OCT +063411120000  ZSA                                           F0D82840
       BCD 1ZSD000        ZERO STORAGE DECREMENT (SXD WITHOUT TAG)      F0D82850
       OCT -063411160000  ZSD                                           F0D82860
       OCT +777777777777  ILLEGIBLE NAME TO FLAG MACRO ERRORS           F0D82870
       PZE                                                              F0D82880
       REM                                                              F0D82890
LOPTBL SYN     *-OPTTBL                                                 F0D82900
       TTL     SYSTEM SYMBOL TABLE                                      F0D90000
       LBL     9F04SS,X                                                 F0D90010
       HEAD    S              SYSTEM SYMBOL TABLE                       F0D90020
TOPMM  SYN     -1-64          TOP OF AVAILABLE MEMORY                  $F0D90030
 BOTIP SYN     TOPMM-2111     BOTTOM OF I/O PACKAGE                    $F0D90040
BOTMM  SYN     2000+12        LOAD POINT FOR FORTRAN RECORDS           $F0D90050
     K EQU     512            OPERATION MNEMONICS PARAMETER             F0D90060
       REM                                                              F0D90070
       ORG     BOTTAB                                                   F0D90080
SYMSIZ PZE     **,,-LSMTBL    LOG LSMTBL,,LENGTH OF SYMBOL TABLE        F0D90090
SYMTBL SYN     *                                                        F0D90100
       REM                                                              F0D90110
       REM                                                              F0D90120
       REM     SYSTEM TAPE ASSIGNMENTS                                  F0D90130
       REM                                                              F0D90140
       BCD 1SYSTAP        SYSTEM TAPE                                   F0D90150
       PZE 1              SYSTAP                                        F0D90160
       BCD 1FINTAP        FIRST INTERMEDIATE TAPE                       F0D90170
       PZE 2              FINTAP                                        F0D90180
       BCD 1SINTAP        SECOND INTERMEDIATE TAPE                      F0D90190
       PZE 3              SINTAP                                        F0D90200
       BCD 1TINTAP        THIRD INTERMEDIATE TAPE                       F0D90210
       PZE 4              TINTAP                                        F0D90220
       BCD 1MINTAP        MONITOR BCD INPUT TAPE                        F0D90230
       PZE 5              MINTAP                                        F0D90240
       BCD 1MLSTAP        MONITOR BCD OUTPUT (LISTING) TAPE             F0D90250
       PZE 6              MLSTAP                                        F0D90260
       BCD 1MBNTAP        MONITOR BINARY OUTPUT TAPE                    F0D90270
       PZE 7              MBNTAP                                        F0D90280
       BCD 1MCHTAP        MONITOR CHAIN INTERMEDIATE TAPE               F0D90290
       PZE 8              MCHTAP                                        F0D90300
       BCD 1SNPTAP        SNAPSHOT INTERMEDIATE TAPE                    F0D90310
       PZE 9              SNPTAP                                        F0D90320
       BCD 1LIBTAP        LIBRARY TAPE                                  F0D90330
       PZE 1              LIBTAP                                        F0D90340
       REM                                                              F0D90350
       REM     CORE MEMORY ALLOCATION                                   F0D90360
       REM                                                              F0D90370
       BCD 1FLAGBX        MONITOR FLAGS                                 F0D90380
       PZE BOTMM-04       FLAGBX                                        F0D90390
       BCD 1LINECT        BCD LISTING TAPE TOTAL,,PAGE LINE COUNT       F0D90400
       PZE BOTMM-03       LINECT                                        F0D90410
       BCD 1DATEBX        PRIMARY MONITOR JOB DATE (FROM START CARD)    F0D90420
       PZE BOTMM-02       DATEBX                                        F0D90430
       BCD 1(PCBK)        OBJECT PROGRAM COMMON BREAK,,PROGRAM BREAK    F0D90440
       PZE BOTMM-01       (PCBK)                                        F0D90450
       BCD 1BOTTOM        LOAD POINT FOR FORTRAN RECORD                 F0D90460
       PZE BOTMM-00       BOTTOM                                        F0D90470
       BCD 1BOTIOP        LOAD POINT FOR COMMON I/O PACKAGE             F0D90480
       PZE BOTIP+00       BOTIOP                                        F0D90490
       BCD 1TOPMEM        TOP OF AVAILABLE MEMORY                       F0D90500
       PZE TOPMM+00       TOPMEM                                        F0D90510
       REM                                                              F0D90520
       REM     ENTRY POINTS TO                                          F0D90530
       REM     THE 709/7090 FORTRAN COMMON INPUT/OUTPUT, CONTROL PACKAGEF0D90540
       REM                                                              F0D90550
       BCD 1(LOAD)        CALL NEXT FORTRAN RECORD                      F0D90560
       PZE BOTIP+00       (LOAD)                                        F0D90570
       BCD 1(DIAG)        CALL DIAGNOSTIC RECORD                        F0D90580
       PZE BOTIP+03       (DIAG)                                        F0D90590
       BCD 1(TAPE)        TAPE REPOSITION OR DATA TRANSMIT              F0D90600
       PZE BOTIP+06       (TAPE)                                        F0D90610
       BCD 1(PRNT)        PRINT LINE ONLINE                             F0D90620
       PZE BOTIP+09       (PRNT)                                        F0D90630
       BCD 1(PNCH)        PUNCH CARD ONLINE                             F0D90640
       PZE BOTIP+12       (PNCH)                                        F0D90650
       BCD 1(STAT)        LOCATE TAPE STATISTIC TABLES                  F0D90680
       PZE BOTIP+15       (STAT)                                       $F0D90690
       BCD 1(REST)        RESTORE MEMORY AND CONTINUE                   F0D90700
       PZE BOTIP+18       (REST)                                       $F0D90710
       BCD 1(STDN)        SET TAPE DENSITY                              F0D90720
       PZE BOTIP+22       (STDN)                                       $F0D90730
       BCD 1(SECL)        CALL SOURCE PROGRAM ERROR RECORD              F0D90740
       PZE BOTIP+35       (SECL)                                       $F0D90750
       BCD 1(MECL)        CALL MACHINE ERROR RECORD                     F0D90760
       PZE BOTIP+36       (MECL)                                       $F0D90770
       BCD 1(DGLD)        RESTORE MEMORY AND HALT                   (31)F0D90780
       PZE BOTIP+37       (DGLD)                                    (31)F0D90790
       REM                                                              F0D90800
       REM     PARAMETERS VARIABLE AT EDIT TIME                         F0D90810
       REM                                                              F0D90820
       BCD 1(PGCT)        PARAMETER FOR BCD LISTING TAPE PAGE DIMENSIONSF0D90950
       PZE BOTIP+41       (PGCT)                                       $F0D90960
       BCD 1(LIBT)        LOGICAL TAPE NUMBER FOR LIBRARY TAPE ASSIGNED F0D90970
       PZE BOTIP+42       (LIBT)                                       $F0D90980
       REM                                                              F0D90990
       REM     COMMON COMMUNICATIONS REGION                             F0D91000
       REM                                                              F0D91010
       BCD 1(FGBX)        LOCATION OF MONITOR FLAGS                     F0D91020
       PZE BOTIP+48       (FGBX)                                       $F0D91030
       BCD 1(LNCT)        LOCATION OF BCD OUTPUT TOTAL,,PAGE LINE COUNT F0D91040
       PZE BOTIP+49           (LNCT)                                   $F0D91050
       BCD 1(DATE)        SECONDARY MONITOR JOB DATE                    F0D91060
       PZE BOTIP+50           (DATE)                                   $F0D91070
       BCD 1(SNCT)        COUNT OF SNAPSHOTS ON INTERMEDIATE SNAP TAPE  F0D91080
       PZE BOTIP+51       (SNCT)                                       $F0D91090
       BCD 1(MSLN)        FLAG FOR ENTRY INTO ERROR RECORDS             F0D91100
       PZE BOTIP+52       (MSLN)                                       $F0D91110
       BCD 1(ENDS)        MONITOR END CARD SETTINGS                     F0D91120
       PZE BOTIP+53       (ENDS)                                       $F0D91130
       BCI 1,(LODR)           ENTRY POINTS TO SYSTEM RECORDS           $F0D91131
       PZE BOTIP+54           (LODR)                                   $F0D91132
       BCI     1,(LBLD)       LOAD ADDRESS FOR LIBRARY                 $F0D91133
       PZE     BOTIP+55       (LBLD)                                   $F0D91134
     1 REM     * CARDS ROW    ROW BINARY CARDS ONLINE                   F0D91140
     2 REM     * LIST         ADD OBJECT PROGRAM TO LISTING (FORTRAN)   F0D91150
     3 REM     * PRINT        LIST ONLINE                               F0D91160
     4 REM     * CARDS COLUMN COLUMN BINARY CARDS ONLINE                F0D91170
     5 REM     * LIBE         ADD LIBRARY SUBROUTINES TO BINARY OUTPUT  F0D91180
     6 REM     * SYMBOL TABLE ADD SYMBOL TABLE TO BINARY OUTPUT         F0D91190
     7 REM     * LABEL        SERIALIZE BINARY OUTPUT                   F0D91200
     8 REM     * LIST8        EXTENDED OBJECT PROGRAM LISTING (FORTRAN) F0D91210
     9 REM     * ROW          ROW BINARY CARDS OFFLINE                  F0D91220
    10 REM     * PACK         BLOCK LISTING TAPE                        F0D91230
       BCD 1(SCHU)        DATA PERTAINING TO LAST INFORMATION XMITTED   F0D91240
       PZE BOTIP+58           (SCHU)                                   $F0D91250
       REM                                                              F0D91260
       REM     DEFINITIONS OF OPERATION MNEMONICS FOR                   F0D91270
       REM     THE 709/7090 FORTRAN COMMON INPUT/OUTPUT, CONTROL PACKAGEF0D91280
       REM                                                              F0D91290
       REM                    OPERATION RECORD   ENDFILE     CHECK      F0D91300
       BCD 1(WROW)            WRITE     ROW BIN              IMMEDIATE  F0D91310
       PZE 32*K+16+8+1    (WROW)                                        F0D91320
       BCD 1(RDEC)            READ      DECIMAL  PERMITTED   IMMEDIATE  F0D91330
       PZE 32*K+8+4+2     (RDEC)                                        F0D91340
       BCD 1(WEFC)            WRITE     ENDFILE              IMMEDIATE  F0D91350
       PZE 32*K+8+4+1     (WEFC)                                        F0D91360
       BCD 1(RBEC)            READ      BINARY   PERMITTED   IMMEDIATE  F0D91370
       PZE 32*K+8+4       (RBEC)                                        F0D91380
       BCD 1(WDNC)            WRITE     DECIMAL              IMMEDIATE  F0D91390
       PZE 32*K+8+2+1     (WDNC)                                        F0D91400
       BCD 1(RDNC)            READ      DECIMAL  PROHIBITED  IMMEDIATE  F0D91410
       PZE 32*K+8+2       (RDNC)                                        F0D91420
       BCD 1(WBNC)            WRITE     BINARY               IMMEDIATE  F0D91430
       PZE 32*K+8+1       (WBNC)                                        F0D91440
       BCD 1(RBNC)            READ      BINARY   PROHIBITED  IMMEDIATE  F0D91450
       PZE 32*K+8         (RBNC)                                        F0D91460
       BCD 1(RDEP)            READ      DECIMAL  PERMITTED   LATER      F0D91470
       PZE 32*K+4+2       (RDEP)                                        F0D91480
       BCD 1(WEFP)            WRITE     ENDFILE              LATER      F0D91490
       PZE 32*K+4+1       (WEFP)                                        F0D91500
       BCD 1(RBEP)            READ      BINARY   PERMITTED   LATER      F0D91510
       PZE 32*K+4         (RBEP)                                        F0D91520
       BCD 1(WDNP)            WRITE     DECIMAL              LATER      F0D91530
       PZE 32*K+2+1       (WDNP)                                        F0D91540
       BCD 1(RDNP)            READ      DECIMAL  PROHIBITED  LATER      F0D91550
       PZE 32*K+2         (RDNP)                                        F0D91560
       BCD 1(WBNP)            WRITE     BINARY               LATER      F0D91570
       PZE 32*K+1         (WBNP)                                        F0D91580
       BCD 1(RBNP)            READ      BINARY   PROHIBITTED LATER      F0D91590
       PZE 32*K           (RBNP)                                        F0D91600
       BCD 1(SKDC)            SKIP      DECIMAL              IMMEDIATE  F0D91610
       PZE 16*K+8+2       (SKDC)                                        F0D91620
       BCD 1(SKBC)            SKIP      BINARY               IMMEDIATE  F0D91630
       PZE 16*K+8         (SKBC)                                        F0D91640
       REM                    BACKSPACE                      FOR BTT    F0D91650
       BCD 1(SKDP)            SKIP      DECIMAL              LATER      F0D91660
       PZE 16*K+2         (SKDP)                                        F0D91670
       BCD 1(SKBP)            SKIP      BINARY               LATER      F0D91680
       PZE 16*K           (SKBP)                                        F0D91690
       REM                    BACKSPACE                      NONE       F0D91700
       BCD 1(CHKU)            DELAY AND CHECK LAST ACTIVITY ON LOG TAPE F0D91710
       PZE  8*K           (CHKU)                                        F0D91720
       BCI     1,(SUAV)       SET UNIT(S) AVAILABLE                    $F0D91721
       PZE     8*K+2+1        (SUAV)                                   $F0D91722
       BCI     1,(SUNV)       SET UNIT(S) UNAVAILABLE                  $F0D91723
       PZE     8*K+2          (SUNV)                                   $F0D91724
       BCD 1(TPER)            ERROR ON TAPE RECORD FOUND BY COMPILER    F0D91730
       PZE  4*K           (TPER)                                        F0D91740
       BCD 1(SNAP)            DUMP MEMORY AND PANEL ON SNAP TAPE        F0D91750
       PZE 1*K                (SNAP)                                   $F0D91760
       REM THE FOLLOWING SYMBOLS ARE FOR IOEX                          $F0D91770
L(ACT) BOOL    702                                                     $F0D91780
L(SYT) BOOL    140                                                     $F0D91790
SYSTBL SYN     *                                                       $F0D91795
       BCI     1,SYSTRA                                                $F0D91800
       PZE     64                                                      $F0D91810
       BCI     1,SYSDAT                                                $F0D91820
       PZE     65                                                      $F0D91830
       BCI     1,SYSCUR                                                $F0D91840
       PZE     66                                                      $F0D91850
       BCI     1,SYSRET                                                $F0D91860
       PZE     67                                                      $F0D91870
       BCI     1,SYSKEY                                                $F0D91880
       PZE     68                                                      $F0D91890
       BCI     1,SYSSWS                                                $F0D91900
       PZE     69                                                      $F0D91910
       BCI     1,SYSPOS                                                $F0D91920
       PZE     70                                                      $F0D91930
       BCI     1,SYSUNI                                                $F0D91940
       PZE     71                                                      $F0D91950
       BCI     1,SYSUBC                                                $F0D91960
       PZE     72                                                      $F0D91970
       BCI     1,SYSUAV                                                $F0D91980
       PZE     73                                                      $F0D91990
       BCI     1,SYSUCW                                                $F0D92000
       PZE     74                                                      $F0D92010
       BCI     1,SYSRPT                                                $F0D92020
       PZE     75                                                      $F0D92030
       BCI     1,SYSCEM                                                $F0D92040
       PZE     76                                                      $F0D92050
       BCI     1,SYSDMP                                                $F0D92060
       PZE     77                                                      $F0D92070
       BCI     1,SYSIOX                                                $F0D92080
       PZE     78                                                      $F0D92090
       BCI     1,SYSIDR                                                $F0D92100
       PZE     79                                                      $F0D92110
       BCI     1,SYSCOR                                                $F0D92120
       PZE     80                                                      $F0D92130
       BCI     1,SYSLDR                                                $F0D92140
       PZE     81                                                      $F0D92150
       BCI     1,SYSACC                                                $F0D92160
       PZE     82                                                      $F0D92170
       BCI     1,SYSPID                                                $F0D92180
       PZE     83                                                      $F0D92190
       BCI     1,SYSCYD                                                $F0D92200
       PZE     84                                                      $F0D92210
       BCI     1,SYSSLD                                                $F0D92220
       PZE     86                                                      $F0D92230
       BCI     1,SYSTCH                                                $F0D92240
       PZE     87                                                      $F0D92250
       BCI     1,SYSTWT                                                $F0D92260
       PZE     89                                                      $F0D92270
       BCI     1,SYSGET                                                $F0D92271
       PZE     90                                                      $F0D92272
       BCI     1,SYSJOB                                                $F0D92273
       PZE     91                                                      $F0D92274
       BCI     1,.CHEXI                                             (28)F0D92275
       PZE     92                                                   (28)F0D92276
       BCI     1,.MODSW                                             (28)F0D92277
       PZE     93                                                   (28)F0D92278
       REM SYSUNI TABLE OF IBNUC                                       $F0D92280
       BCI     1,SYSLB1                                                $F0D92290
LSYUNS PZE     L(SYT)                                                  $F0D92300
       BCI     1,SYSLB2                                                $F0D92310
       PZE     L(SYT)+1                                                $F0D92320
       BCI     1,SYSLB3                                                $F0D92330
       PZE     L(SYT)+2                                                $F0D92340
       BCI     1,SYSLB4                                                $F0D92350
       PZE     L(SYT)+3                                                $F0D92360
       BCI     1,SYSCRD                                                $F0D92370
       PZE     L(SYT)+4                                                $F0D92380
       BCI     1,SYSPRT                                                $F0D92390
       PZE     L(SYT)+5                                                $F0D92400
       BCI     1,SYSPCH                                                $F0D92410
       PZE     L(SYT)+6                                                $F0D92420
       BCI     1,SYSOU1                                                $F0D92430
       PZE     L(SYT)+7                                                $F0D92440
       BCI     1,SYSOU2                                                $F0D92450
       PZE     L(SYT)+8                                                $F0D92460
       BCI     1,SYSIN1                                                $F0D92470
       PZE     L(SYT)+9                                                $F0D92480
       BCI     1,SYSIN2                                                $F0D92490
       PZE     L(SYT)+10                                               $F0D92500
       BCI     1,SYSPP1                                                $F0D92510
       PZE     L(SYT)+11                                               $F0D92520
       BCI     1,SYSPP2                                                $F0D92530
       PZE     L(SYT)+12                                               $F0D92540
       BCI     1,SYSCK1                                                $F0D92550
       PZE     L(SYT)+13                                               $F0D92560
       BCI     1,SYSCK2                                                $F0D92570
       PZE     L(SYT)+14                                               $F0D92580
       BCI     1,SYSUT1                                                $F0D92590
       PZE     L(SYT)+15                                               $F0D92600
       BCI     1,SYSUT2                                                $F0D92610
       PZE     L(SYT)+16                                               $F0D92620
       BCI     1,SYSUT3                                                $F0D92630
       PZE     L(SYT)+17                                               $F0D92640
       BCI     1,SYSUT4                                                $F0D92650
       PZE     L(SYT)+18                                               $F0D92660
       REM IOEX COMMON COMMUNICATION CELLS                             $F0D92670
       BCI     1,(ACTIV                                                $F0D92680
       PZE     L(ACT)+0                                                $F0D92690
       BCI     1,(ACTVX                                                $F0D92700
       PZE     L(ACT)+1                                                $F0D92710
       BCI     1,(NDATA                                                $F0D92720
       PZE     L(ACT)+2                                                $F0D92730
       BCI     1,(NDSLX                                                $F0D92740
       PZE     L(ACT)+3                                                $F0D92750
       BCI     1,(PROUT                                                $F0D92760
       PZE     L(ACT)+4                                                $F0D92770
       BCI     1,(PUNCH                                                $F0D92780
       PZE     L(ACT)+5                                                $F0D92790
       BCI     1,(ENBSW                                                $F0D92800
       PZE     L(ACT)+6                                                $F0D92810
       BCI     1,(PAWSX                                                $F0D92820
       PZE     L(ACT)+7                                                $F0D92830
       BCI     1,(PAUSE                                                $F0D92840
       PZE     L(ACT)+8                                                $F0D92850
       BCI     1,(STOPX                                                $F0D92860
       PZE     L(ACT)+9                                                $F0D92870
       BCI     1,(SYMUN                                                $F0D92880
       PZE     L(ACT)+10                                               $F0D92890
       BCI     1,(DECVD                                                $F0D92900
       PZE     L(ACT)+11                                               $F0D92910
       BCI     1,(DECVA                                                $F0D92920
       PZE     L(ACT)+12                                               $F0D92930
       BCI     1,(CKWAT                                                $F0D92940
       PZE     L(ACT)+13                                               $F0D92950
       BCI     1,(BCD5R                                                $F0D92960
       PZE     L(ACT)+14                                               $F0D92970
       BCI     1,(BCD5X                                                $F0D92980
       PZE     L(ACT)+15                                               $F0D92990
       BCI     1,(CVPRT                                                $F0D93000
       PZE     L(ACT)+16                                               $F0D93010
       BCI     1,(STOPD                                                $F0D93020
       PZE     L(ACT)+17                                               $F0D93030
       BCI     1,(CHXAC                                                $F0D93040
       PZE     L(ACT)+18                                               $F0D93050
       BCI     1,(URRXI                                                $F0D93060
       PZE     L(ACT)+19                                               $F0D93070
       BCI     1,(RCTXI                                                $F0D93080
       PZE     L(ACT)+20                                               $F0D93090
       BCI     1,(RCHXI                                                $F0D93100
       PZE     L(ACT)+21                                               $F0D93110
       BCI     1,(TCOXI                                                $F0D93120
       PZE     L(ACT)+22                                               $F0D93130
       BCI     1,(TRCXI                                                $F0D93140
       PZE     L(ACT)+23                                               $F0D93150
       BCI     1,(ETTXI                                                $F0D93160
       PZE     L(ACT)+24                                               $F0D93170
       BCI     1,(TEFXI                                                $F0D93180
       PZE     L(ACT)+25                                               $F0D93190
       BCI     1,(TRAPX                                                $F0D93200
       PZE     L(ACT)+26                                               $F0D93210
       BCI     1,(TRAPS                                                $F0D93220
       PZE     L(ACT)+27                                               $F0D93230
       BCI     1,(COMMM                                                $F0D93240
       PZE     L(ACT)+28                                               $F0D93250
       BCI     1,(LTPOS                                                $F0D93260
       PZE     L(ACT)+29                                               $F0D93270
       BCI     1,(IOXSI                                                $F0D93280
       PZE     L(ACT)+30                                               $F0D93290
       BCI     1,(CHPSW                                                $F0D93300
       PZE     L(ACT)+31                                               $F0D93310
       BCI     1,(TRPSW                                                $F0D93320
       PZE     L(ACT)+32                                               $F0D93330
       BCI     1,(FDAMT                                                $F0D93340
       PZE     L(ACT)+33                                               $F0D93350
       BCI     1,(SDCXI                                                $F0D93360
       PZE     L(ACT)+34                                               $F0D93370
       BCI     1,(STCXI                                                $F0D93380
       PZE     L(ACT)+35                                               $F0D93390
       BCI     1,(COMMD                                                $F0D93400
       PZE     L(ACT)+36                                               $F0D93410
       BCI     1,(IBCDZ                                                $F0D93420
       PZE     L(ACT)+37                                               $F0D93430
       BCI     1,(CHXSP                                                $F0D93431
       PZE     L(ACT)+38                                               $F0D93432
       BCI     1,SYSEND                                                $F0D93440
       PZE     -1                                                      $F0D93450
       BCI     1,SYSORG                                                $F0D93460
       PZE     2000                                                    $F0D93470
LSMTBL SYN     *-SYMTBL                                                 F0D93480
LIBTBL SYN     *-SYSTBL                                                $F0D93490
       HEAD    4              END OF SYSTEM SYMBOL TABLE                F0D93500
 FINIS SYN     *+96          PATCH SPACE FOR ADDITIONAL SST NAMES   (31)F0D93510
       TTL     PATCH TO DELETE STANDARD ERROR PROCEDURE                 F0D93520
       LBL     9F04FLOW,X                                               F0D93530
       ORG     SEPFLG                                                   F0D93540
       PZE                    DELETE STANDARD ERROR PROCEDURE          $F0D93550
       TCD     -1                                                      $F0D93555
       TTL     PASS TWO SUBROUTINES                                     F0E00000
       HEAD    5              PASS 2                                    F0E00010
       REM                                                              F0E00020
       REM     PROCESS AND LIST NON DATA GENERATING PSEUDOOPS           F0E00030
       REM     PROCESS, LIST, INSERT IN BINARY CARD IMAGES              F0E00040
       REM     MACHINE OPERATIONS AND DATA GENERATING PSEUDOOPS         F0E00050
       REM     PRINT AND PUNCH ON AND/OR OFF LINE BCD AND BINARY OUTPUT F0E00060
       REM                                                              F0E00070
       LBL     9F05,X                                                   F0E00080
       ORG     SYSCUR                                                  $F0E00090
       BCI     1,9F0500                                                $F0E00100
       ORG     (LODR)                                                  $F0E00110
       TXI     START,,50               ENTRY POINT,,RECORD NUMBER       F0E00120
       REM                                                              F0E00130
       ORG     PASSLP                                                   F0E00150
       REM                                                              F0E00160
       REM     SSYMT SUBROUTINE MUST ORIGIN AT SAME LOCATN PASS 1 AND 2 F0E00170
       REM     BINARY SEARCH OF SYMBOL TABLE                            F0E00180
 SSYMT SXA     SSYMX,4        SAVE CALLING LINKAGE                      F0E00190
       SXA     SSYMX+1,2      SAVE WORD COUNT                           F0E00200
       SXA     SSYMX+2,1      SAVE CHARACTER COUNT                      F0E00210
       CAL     SYMBL          LOAD SYMBOL NAME                          F0E00220
       AXT     0,1            LOAD LOCATION OF FIRST SYMBOL IN TABLE    F0E00230
       LXA     SYMSIZ,2       LOAD LOGARITHM OF TABLE LENGTH            F0E00240
       TSX     LOWER,4       *EXECUTE BINARY SEARCH                     F0E00250
       TRA     SSYM3          NOT FOUND                                 F0E00260
 SSYM1 TXL     *+4,1,**       IS SEARCH PAST UPPER END OF TABLE         F0E00270
       LAS     SYMTBL-2,1     NO, IS CURRENT SYMBOL THIS NAME IN TABLE  F0E00280
       TXI     LOWER,2,-2     NO, LARGER - GO LOOK HIGHER               F0E00290
       TRA     SSYM4          YES                                       F0E00300
       TXI     RAISE,2,-2     NO, SMALLER - GO LOOK LOWER               F0E00310
       REM                                                              F0E00320
       REM     SYMBOL IS UNDEFINED                                      F0E00330
 SSYM3 SLN     EXPRR          SET UNDEFINED ERROR FLAGS                 F0E00340
       STL     ERRFU                                                    F0E00350
       LDC     SYMSIZ,1       LOAD LENGTH OF UNDEFINED SYMBOL TABLE     F0E00360
       REM     REENTRY TO COMPARE WITH NEXT NAME IN TABLE               F0E00370
 SUDS1 TXL     *+5,1,**       IS UNDEFINED SYMBOL TABLE EXHAUSTED       F0E00380
       LAS     SYMTBL-2,1     NO, WAS SYMBOL PREVIOUSLY UNDEFINED       F0E00390
       TXI     SUDS1,1,-2     NO                                        F0E00400
       TXI     SSYM5,1,-2     YES                                       F0E00410
       TXI     SUDS1,1,-2     NO                                        F0E00420
       REM     NAME IS NEW, ADD TO UNDEFINED SYMBOL TABLE               F0E00430
       TXL     SSYM5,1,**     DID UNDEFINED SYMBOL TABLE OVERFLOW       F0E00440
       SLW     SYMTBL-2,1     NO, ADD SYMBOL TO TABLE                   F0E00450
       TRA     HGPCH                                                (28)F0E00460
       TXI     *+1,1,-2       BUMP UNDEFINED SYMBOL TABLE COUNT         F0E00470
       SXD     SUDS1,1        SAVE LENGTH OF UNDEFINED SYMBOL TABLE     F0E00480
       REM     REENTRY FOR DEFINED SYMBOL                               F0E00490
 SSYM4 LDI     SYMTBL-1,1     LOAD SYMBOL DEFINITION                    F0E00500
       LFT     10             IS SYMBOL MULTIPLY DEFINED                F0E00510
       STL     ERRFM          YES, SET FLAG                             F0E00520
       REM     REENTRY FOR UNDEFINED SYMBOL                             F0E00530
 SSYM5 CLA     SYMTBL-1,1     LOAD SYMBOL DEFINITION                    F0E00540
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0E00550
       ANA     ADTMK          YES, DELETE EXTRANEOUS FLAGS              F0E00560
       STO     NERAS                                                    F0E00570
       SXA     SET01,1        SAVE LOCATION FOR SET ROUTINE             F0E00580
       ZET     DELTF          SHOULD SYMBOLIC REF TABLE ENTRY BE MADE   F0E00590
       TRA     SSYMX          NO                                        F0E00600
       REM     MAKE ENTRIES INTO SYMBOLIC REFERENCE TABLE               F0E00610
 EREF0 TXI     *+1,1,2        BUMP SYMBOL TABLE COUNT TO POINTER        F0E00620
       AXT     **,2           COMPUTE TABLE LOCATION INTO WHICH         F0E00630
 EREF1 TXI     *+1,2,1        CURRENT SYMBOLIC REFERENCE                F0E00640
       SXA     BERAS,2        WILL BE STORED                            F0E00650
       ZET     **,1           HAS REFERENCE BEEN MADE TO THIS SYMBOL    F0E00660
       TRA     EREF2          YES                                       F0E00670
       CLA     BERAS          NO, INSERT INTO POINTER TABLE             F0E00680
       STA     **,1           LOCATION FIRST REFERENCE WILL BE STORED   F0E00690
       ALS     18             INSERT INTO POINTER TABLE                 F0E00700
       STD     **,1           LOCATION NEXT REFERENCE WILL BE STORED    F0E00710
       TRA     EREF3                                                    F0E00720
       REM     SUBSEQUENT REFERENCE TO SYMBOL                           F0E00730
 EREF2 CLA     **,1           LOAD POINTER                              F0E00740
       ARS     18             GET LOCATION OF THIS REFERENCE            F0E00750
       STA     *+4            INITIALIZE STORE                          F0E00760
       CLA     BERAS          LOAD LOCATION OF NEXT REFERENCE           F0E00770
       ALS     18                                                       F0E00780
       STD     **,1           INSERT IN POINTER                         F0E00790
       STD     **             INSERT IN TABLE                           F0E00800
       REM     REENTRY FOR INITIAL REFERENCE                            F0E00810
 EREF3 AXT     -1,2           LOAD NEXT AVAILABLE SPACE IN TABLE        F0E00820
       CLA     LOCTR          INSERT PROGRAM COUNTER                    F0E00830
       STA     **,2           FOR CURRENT REFERENCE INTO TABLE          F0E00840
 EREF4 TXH     *+2,2,**       IS TABLE PAST POINTER INTERLEAVING        F0E00850
       TXI     *+2,2,-1       YES, BUMP TO NEXT LOCATION                F0E00860
       TXI     *+1,2,-2       NO, BUMP PAST INTERLEAVED POINTER         F0E00870
       TXH     *+4,2,**       IS SYMBOLIC REFERENCE TABLE FULL          F0E00880
       AXT     SSYMX,1        YES, BYPASS FURTHER ENTRIES               F0E00890
       SXA     EREF0,1                                                  F0E00900
       SXD     PREF9,0        SET SWITCH TO PRINT ERROR MESSAGE         F0E00910
       SXA     EREF3,2        SAVE NEXT AVAILABLE SPACE IN TABLE        F0E00920
       PXD     ,2             COMPLEMENT                                F0E00930
       PDC     ,2                                                       F0E00940
       SXD     EREF1,2        INITIALIZE COMPUTATION FOR NEXT SPACE     F0E00950
       CLA     NERAS          RELOAD SYMBOL DEFINITION                  F0E00960
 SSYMX AXT     **,4           RELOAD CALLING LINKAGE                    F0E00970
       AXT     **,2           RELOAD WORD COUNT                         F0E00980
       AXT     **,1           RELOAD CHARACTER COUNT                    F0E00990
       TRA     1,4                                                      F0E01000
       REM                                                              F0E01010
       REM     MAKE ENTRIES IN REF TABLE FOR PSEUDOOPS NOT SCANNED IN P2F0E01020
 REFPP SXA     REFPX,4        SAVE CALLING LINKAGE                      F0E01030
       LXD     VRFLD,2        RELOAD WORD COUNT                         F0E01040
       LXA     VRFLD,1        RELOAD CHARACTER COUNT                    F0E01050
       TSX     SCANF,4       *EVALUATE NEXT FIELD                       F0E01060
       TXI     *+2,,0         ALL DONE                                  F0E01070
       TRA     *-2            CONTINUE                                  F0E01080
       AXT     ERRFB-ERRFU+1,4 LOAD LENGTH OF FATAL ERROR LIST          F0E01090
       STZ     ERRFB+1,4      DELETE ERRORS REPRESENTED BY F FLAG       F0E01100
       TIX     *-1,4,1                                                  F0E01110
 REFPX AXT     **,4           RELOAD CALLING LINKAGE                    F0E01120
       TRA     1,4                                                      F0E01130
       REM                                                              F0E01140
       REM     CHECK LOCATION COUNTER                                   F0E01150
 REFLC SXA     REFCX,4        SAVE CALLING LINKAGE                      F0E01160
       ZET     DUPMD          IS CARD WITHIN DUP                        F0E01170
       TRA     REFCX          YES, FORGET IT                            F0E01180
       STL     DELTF          NO, AVOID SOURCE REFERENCE TABLE ENTRIES  F0E01190
       TSX     REFLP,4       *FIND SYMBOL DEFINITION                    F0E01200
       STZ     DELTF          RESET SYMBOLIC REF TABLE ENTRY FLAG       F0E01210
       ZET     SYMBL          IS LOCATION SYMBOL OMITTED                F0E01220
       LFT     20             NO, WAS DEFINITION RESET                  F0E01230
       TRA     REFCX          YES, FORGET IT                            F0E01240
       PIA                    RECALL SYMBOL DEFINITION                  F0E01250
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0E01260
       ANA     ADTMK          YES, DELETE EXTRANEOUS FLAGS              F0E01270
       ERA     NERAS          DOES THIS AGREE WITH PASS ONE DEFINITION  F0E01280
       TZE     REFCX          YES                                       F0E01290
       NZT     ERFFM          NO, IS SYMBOL MULTIPLY DEFINED            F0E01300
       TSX     MACERR,4     **NO, LOCATION COUNTER IS OUT OF STEP       F0E01310
 REFCX AXT     **,4           RELOAD CALLING LINKAGE                    F0E01320
       TRA     1,4                                                      F0E01330
       REM     ENTER POINT OF DEFINITION IN SYMBOLIC REFERENCE TABLE    F0E01340
 REFLP SXA     REFLX,4        SAVE CALLING LINKAGE                      F0E01350
       CAL     BCDBF          LOAD LOCATION FIELD                       F0E01360
       TSX     LOCFL,4       *ASSEMBLE LOCATION SYMBOL                  F0E01370
       TZE     REFLX          IS THERE A LOCATION SYMBOL                F0E01380
       LGR     30             YES, APPEND CURRENT PRIME HEADING CHAR    F0E01390
       TNZ     *+2                                                      F0E01400
       CAL     BHEAD                                                    F0E01410
       LGL     30                                                       F0E01420
       SLW     SYMBL                                                    F0E01430
       TSX     SSYMT,4       *MAKE SYMBOL TABLE SEARCH                  F0E01440
       CAL     ERRFM          SET NONFATAL MULTIPLY DEFINED FLAG        F0E01450
       SLW     ERFFM                                                    F0E01460
       STZ     ERRFM          PREVENT ABORTION                          F0E01470
       STZ     ERRFU                                                    F0E01480
 REFLX AXT     **,4           RELOAD CALLING LINKAGE                    F0E01490
       TRA     1,4                                                      F0E01500
       REM                                                              F0E01510
       REM     SET FLAG FOR MISSING PSEUDOOP VARIABLE FIELD             F0E01520
 AFLAG STL     ERRFA          FLAG MISSING VARIABLE FIELD               F0E01530
       SLN     FLDND          DELETE F FLAG                             F0E01540
       TRA     2,4                                                      F0E01550
       REM                                                              F0E01560
       REM     SET FLAG FOR MISSING ADDRESS FIELD                       F0E01570
 FLAGA CAL     D8             LOAD A-FLAG MASK                          F0E01580
       ANA     OFLGS          MASK IN OPTABLE FIELD BITS                F0E01590
       SLW     ERRFA          SET FLAG IF FIELD IS REQUIRED             F0E01600
       PXD     ,0                                                       F0E01610
       TRA     2,4                                                      F0E01620
       REM                                                              F0E01630
       REM     SET FLAG FOR MISSING TAG FIELD                           F0E01640
 FLAGT CAL     D4             LOAD T-FLAG MASK                          F0E01650
       ANA     OFLGS          MASK IN OPTABLE FIELD BITS                F0E01660
       SLW     ERRFT          SET FLAG IF FIELD IS REQUIRED             F0E01670
       PXD     ,0                                                       F0E01680
       TRA     2,4                                                      F0E01690
       REM                                                              F0E01700
       REM     SET FLAG FOR MISSING DECREMENT FIELD                     F0E01710
 FLAGD CAL     D2             LOAD D-FLAG MASK                          F0E01720
       ANA     OFLGS          MASK IN OPTABLE FIELD BIT                 F0E01730
       SLW     ERRFD          SET FLAG IF FIELD IS REQUIRED             F0E01740
       PXD     ,0                                                       F0E01750
       TRA     2,4                                                      F0E01760
       REM                                                              F0E01770
       REM     INTERPRET INSTRUCTION LISTING FLAGS                      F0E01780
       REM     FLAGS ARE IN INDICATORS                                  F0E01790
 IFLGS RFT     9OMSK          IS THIS INSTRUCTION PERMISSIBLE ON 7090   F0E01800
       REM                    (RESET TO 040000 FOR 704 MODE)            F0E01810
       TRA     IFL01          YES                                       F0E01820
       RNT     04MSK          NO, IS THIS INSTRUCTION PROHIBITED ON 7090F0E01830
       REM                    (RESET TO 020000 FOR 7090 MODE)           F0E01840
       STL     ERRFN          NO, SET NON-FATAL OPCODE ERROR FLAG       F0E01850
       RFT     04MSK          IS THIS INSTRUCTION PROHIBITED ON 7090    F0E01860
       REM                    (RESET TO 020000 FOR 7090 MODE)           F0E01870
       STL     ERR49          YES, SET MODE FLAG                        F0E01880
 IFL01 STL     TYPAF          SET TYPE A INSTRUCTION FLAG PRESUMPTIVELY F0E01890
       LFT     077760         IS THIS TYPE A 0 00000 0 00000  INSTR.    F0E01900
       STZ     TYPAF          NO, RESET TYPE FLAG                       F0E01910
       LNT     00001          DOES ADDRESS FIELD CONTAIN FLAGS          F0E01920
       TRA     2,4            NO, RETURN                                F0E01930
       RFT     TDMSK          IS THIS A TYPE D 0000 00  000000 INSTR.   F0E01940
       STL     TYPDF          YES, SET FLAG                             F0E01950
       RFT     VLMSK          IS THIS A TYPE B INSTR. PERMITTED DECRM.  F0E01960
       REM                    OR TYPE K WITH HIGH ORDER COUNT FIELD     F0E01970
       STL     TYPCF          YES, SET FLAG                             F0E01980
       RNT     TKMSK          IS THIS A TYPE K 00 0000 0 00000 COMMAND  F0E01990
       TRA     *+3            NO                                        F0E02000
       STL     TYPKF          YES, SET TYPE K FLAG                      F0E02010
       STL     TYPAF          SET TYPE A FLAG ALSO                      F0E02020
       TRA     1,4            RETURN                                    F0E02030
       REM                                                              F0E02040
       REM     ROUTINE TO CREATE OCTAL EXPANSION                        F0E02050
       REM                                                              F0E02060
       REM     PRINT CONTROL CARD                                       F0E02070
 PRNCC LDI     BCDBF+13       LOAD PASS 1 ERROR FLAGS                   F0E02080
       NZT     ERRFA          IS MISSING VARIABLE FIELD FLAGGED         F0E02090
       RFT     100            NOT YET                                   F0E02100
       TRA     PRNTC          YES                                       F0E02110
       RNT     4              NO, IS FIELD ERROR FLAGGED                F0E02120
 PRNSW TXL     PRNTX+3,,0     NO, SHOULD CARD BE PRINTED                F0E02130
       REM                    (SWITCH SET BY PCC)                       F0E02140
       REM                                                              F0E02150
       REM     PRINT INPUT CARD                                         F0E02160
 PRNTC SXA     PRNTX,4        SAVE CALLING LINKAGE                      F0E02170
       AXT     4,4            BREPARE TO BLANK OUT OCTAL LISTING        F0E02180
       CAL     BLANKS                                                   F0E02190
       SLW     OCTAL+4,4                                                F0E02200
       TIX     *-1,4,1                                                  F0E02210
       TRA     PRN06                                                    F0E02220
       REM                                                              F0E02230
       REM     PRINT INPUT CARD, DEFINITION LEFT ADJUSTED               F0E02240
 PRNTL SXA     PRNTX,4        SAVE CALLING LINKAGE                      F0E02250
       CAL     BLANKS         BLANK OUT OCTAL FIELD                     F0E02260
       SLW     OCTAL+3                                                  F0E02270
       SLW     OCTAL+2                                                  F0E02280
       SLW     OCTAL+1                                                  F0E02290
       LDQ     ADDRS          CONVERT LOCATION TO OCTAL                 F0E02300
       RQL     21                                                       F0E02310
       AXT     5,4                                                      F0E02320
       ALS     3                                                        F0E02330
       LGL     3                                                        F0E02340
       TIX     *-2,4,1                                                  F0E02350
       ALS     6              LEFT ADJUST                               F0E02360
       ORA     BLANK                                                    F0E02370
       SLW     OCTAL          INSERT IN FIRST WORD                      F0E02380
       TRA     PRN06                                                    F0E02390
       REM                                                              F0E02400
       REM     PRINT INPUT CARD, DEFINITION RIGHT ADJUSTED              F0E02410
 PRNTR SXA     PRNTX,4        SAVE CALLING LINKAGE                      F0E02420
       LDQ     ADDRS          LOAD DEFINITION OF SYMBOL                 F0E02430
       CAL     BLANKS         BLANK OUT LEFT PORTION OF OCTAL EXPANSION F0E02440
       SLW     OCTAL                                                    F0E02450
       SLW     OCTAL+1                                                  F0E02460
       NZT     TYPDF          IS FIELD BOOLEAN (6 DIGIT)                F0E02470
       TRA     *+5            NO                                        F0E02480
       RQL     18             YES, LEFT ADJUST 6 DIGIT FIELD            F0E02490
       ALS     3              CREATE FIRST DIGIT                        F0E02500
       LGL     3                                                        F0E02510
       TRA     *+2                                                      F0E02520
       RQL     21             LEFT ADJUST 5 DIGIT FIELD                 F0E02530
       ALS     6              SHIFT BOOLEAN DIGIT OR BLANK TO CHAR 5    F0E02540
       SLW     OCTAL+2        OF WORD 3                                 F0E02550
       STZ     OCTAL+3        CLEAR RIGHT ADJUSTED ADDRESS FIELD        F0E02560
       PXD     ,0                                                       F0E02570
       TRA     PRN04                                                    F0E02580
       REM                                                              F0E02590
       REM     PRINT SIGNED 12 DIGIT INTEGER DATUM WORD                 F0E02600
 PRNTD LDQ     BINRY          LOAD DATUM WORD                           F0E02610
       CAL     PLUSS          LOAD LEADING +                            F0E02620
       TQP     *+3            IS INTEGER POSITIVE                       F0E02630
       CAL     MINUS          NO, LOAD LEADING -                        F0E02640
       LRS     0              DELETE SIGN                               F0E02650
       TRA     PRNTW+2                                                  F0E02660
       REM                                                              F0E02670
       REM     PRINT 6 CHARACTER BCD DATUM WORD                         F0E02680
 PRNTW LDQ     BINRY          LOAD DATUM WORD                           F0E02690
       CAL     BLANK          LOAD LEADING BLANK                        F0E02700
       SXA     PRNTX,4        SAVE CALLING LINKAGE                      F0E02710
       AXT     30,4           PREPARE TO CREATE 5 OCTAL DIGITS          F0E02720
       ALS     3              CREATE ZONE                               F0E02730
       LGL     3              SHIFT IN DIGIT                            F0E02740
       TIX     *-2,4,6        IS WORD 2 COMPLETE                        F0E02750
       SLW     OCTAL+1        YES                                       F0E02760
       ALS     3              CREATE ZONE                               F0E02770
       LGL     3              SHIFT IN DIGIT                            F0E02780
       TIX     *-2,4,1        IS WORD 3 COMPLETE                        F0E02790
       SLW     OCTAL+2        YES                                       F0E02800
       PXD     ,0                                                       F0E02810
       LGL     3              SHIFT IN LAST DIGIT                       F0E02820
       LDQ     BLANKS         APPEND FOLLOWING BLANKS                   F0E02830
       LGL     30             LEFT ADJUST LAST DIGIT                    F0E02840
       SLW     OCTAL+3        INSERT IN LAST WORD                       F0E02850
       TRA     PRN05                                                    F0E02860
       REM                                                              F0E02870
       REM     PRINT SIX CHARACTER DISK ORDER                           F0E02880
 PRNTO SXA     PRNTX,4        SAVE CALLING LINKAGE                      F0E02890
       AXT     48,4           PREPARE TO GENERATER 3 TWO-DIGIT FIELDS   F0E02900
       LDQ     BINRY          LOAD DATUM WORD                           F0E02910
       CAL     BLANK          LOAD LEADING BLANK                        F0E02920
       ALS     3              CREATE OP/HEAD FIELD                      F0E02930
       LGL     3                                                        F0E02940
       TIX     *-2,4,12                                                 F0E02950
       ALS     6                                                        F0E02960
       ORA     BLANK          APPEND BLANK                              F0E02970
       ORS     OCTAL+1        INSERT IN LISTING WORD 2                  F0E02980
       ALS     3              CREATE ACCESS AND MODULE/RECORD FIELD     F0E02990
       LGL     3                                                        F0E03000
       TIX     *-2,4,3                                                  F0E03010
       ALS     6                                                        F0E03020
       ORA     BLANK          APPEND BLANK                              F0E03030
       ALS     3              START TRACK/NULL FIELD                    F0E03040
       LGL     3                                                        F0E03050
       ORS     OCTAL+2        INSERT IN LISTING WORD 3                  F0E03060
       ALS     3              FINISH TRACK/NULL FIELD                   F0E03070
       LGL     3                                                        F0E03080
       TIX     *-2,4,1                                                  F0E03090
       LDQ     BLANKS         APPEND FOLLOWING BLANKS                   F0E03100
       LGL     18                                                       F0E03110
       ORS     OCTAL+3        INSERT IN LISTING WORD 4                  F0E03120
       TRA     PRN05                                                    F0E03130
       REM                                                              F0E03140
       REM     PRINT SIGNED 35 BIT MACHINE INSTRUCTION                  F0E03150
 PRNTI SXA     PRNTX,4        SAVE CALLING LINKAGE                      F0E03160
       LDQ     BINRY          LOAD INSTRUCTION                          F0E03170
       CAL     BLANK          LOAD LEADING BLANK                        F0E03180
       TQP     *+3            IS INSTRUCTION NEGATIVE                   F0E03190
       CAL     MINUS          YES, LOAD LEADING -                       F0E03200
       LRS     0              DELETE SIGN                               F0E03210
       ZET     TYPAF          IS THIS TYPE A INSTRUCTION                F0E03220
       TRA     PRN01          YES                                       F0E03230
       AXT     4,4            NO, PREPARE TO CREATE 4 DIGIT OP FIELD    F0E03240
       ALS     3              CREATE ZONE                               F0E03250
       LGL     3              SHIFT IN DIGIT                            F0E03260
       TIX     *-2,4,1        IS OP FIELD COMPLETE                      F0E03270
       ALS     6              YES, APPEND BLANK                         F0E03280
       ORA     BLANK                                                    F0E03290
       TRA     PRN02                                                    F0E03300
       REM     REENTRY FOR TYPE A INSTRUCTION                           F0E03310
 PRN01 ALS     3              CREATE 1 DIGIT OP CODE                    F0E03320
       LGL     3                                                        F0E03330
       AXT     3,4            PREPARE TO CREATE FIRST 3 DIGITS OF DECR  F0E03340
       NZT     TYPKF          IS THIS TYPE K DISK COMMAND               F0E03350
       TRA     *+4            NO                                        F0E03360
       ALS     3              YES, CREATE SECOND DIGIT OF OPCODE        F0E03370
       LGL     3                                                        F0E03380
       AXT     2,4            PREPARE TO CREATE FIRST 2 DIGITS OF DECR  F0E03390
       ALS     6              APPEND BLANK                              F0E03400
       ORA     BLANK                                                    F0E03410
       ALS     3              CREATE ZONE                               F0E03420
       LGL     3              SHIFT IN DIGIT                            F0E03430
       TIX     *-2,4,1        IS FIELD COMPLETE                         F0E03440
       REM     REENTRY FOR TYPES B, D INSTRUCTIONS                      F0E03450
 PRN02 ORS     OCTAL+1        SET WORD 2                                F0E03460
       PXD     ,0                                                       F0E03470
       LGL     3              CREATE LAST 2 DIGITS OF DECR              F0E03480
       ALS     3                                                        F0E03490
       LGL     3                                                        F0E03500
       ALS     6                                                        F0E03510
       ORA     BLANK          APPEND BLANK                              F0E03520
       NZT     TYPDF          IS ADDRESS BOOLEAN (SIX DIGIT)            F0E03530
       TRA     PRN03          NO                                        F0E03540
       ALS     6              YES, APPEND SECOND BLANK                  F0E03550
       ORA     BLANK                                                    F0E03560
       ALS     3              CREATE LEADING DIGIT OF ADDRESS FIELD     F0E03570
       LGL     3                                                        F0E03580
       TRA     PRN03+4                                                  F0E03590
 PRN03 ALS     3              CREATE TAG DIGIT                          F0E03600
       LGL     3                                                        F0E03610
       ALS     6              APPEND BLANK                              F0E03620
       ORA     BLANK                                                    F0E03630
       NZT     OPFLG          IS THIS OP DEFINITION                     F0E03640
       STL     PRTIF          NO, SET MACHINE INSTRUCTION FLAG          F0E03650
       REM     REENTRY FOR LOCATION FIELD RIGHT ADJUSTED                F0E03660
 PRN04 ALS     3              CREATE FIRST DIGIT OF ADDRESS FIELD       F0E03670
       LGL     3              (SECOND DIGIT OF BOOLEAN FIELD)           F0E03680
       ORS     OCTAL+2        INSERT IN WORD 3                          F0E03690
       AXT     4,4            PREPARE TO CREATE LAST 4 DIGITS OF FIELD  F0E03700
       ALS     3              CREATE ZONE                               F0E03710
       LGL     3              SHIFT IN DIGIT                            F0E03720
       TIX     *-2,4,1        IS FIELD COMPLETE                         F0E03730
       LDQ     BLANKS         YES, APPEND FOLLOWING BLANKS              F0E03740
       LGL     12                                                       F0E03750
       ORS     OCTAL+3        INSERT IN WORD 4                          F0E03760
       NZT     PRTIF          WAS THIS A MACHINE INSTRUCTION            F0E03770
       TRA     PRN06          NO, DO NOT PRINT LOCATION FIELD LEFT ADJ  F0E03780
       REM                    (XR2, 1 NOT SIGNIFICANT)                  F0E03790
       REM     REENTRY FOR DATUM WORD                                   F0E03800
 PRN05 CLA     LOCTR          UPDATE PROGRAM COUNTER                    F0E03810
       STO     ADDRS                                                    F0E03820
       CLA     Q1                                                       F0E03830
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                      F0E03840
       LDQ     ADDRS                                                    F0E03850
       LGL     21             LEFT ADJUST PROGRAM COUNTER               F0E03860
       AXT     5,4            PREPARE TO CREATE 5 OCTAL DIGITS          F0E03870
       ALS     3              CREATE ZONE                               F0E03880
       LGL     3              SHIFT IN DIGIT                            F0E03890
       TIX     *-2,4,1        IS LOCATION FIELD COMPLETE                F0E03900
       ALS     6              YES, APPEND FOLLOWING BLANK               F0E03910
       ORA     BLANK                                                    F0E03920
       SLW     OCTAL          INSERT IN WORD 1                          F0E03930
       SXA     PRNTX+1,2      SAVE WORD COUNT                           F0E03940
       SXA     PRNTX+2,1      SAVE CHARACTER COUNT                      F0E03950
       TSX     STORE,4       *INSERT BINARY WORD INTO CARD IMAGE        F0E03960
 PRN06 LDI     BCDBF+13       LOAD PASS 1 ERROR FLAGS                   F0E03970
       RFT     4              IS FIELD ERROR FLAGGED                    F0E03980
       STL     ERRFF          YES, SET FLAG                             F0E03990
       RFT     100            IS MISSING VARIABLE FIELD FLAGGED         F0E04000
       STL     ERRFA          YES, SET FLAG                             F0E04010
       TSX     PRLST,4       *LIST THIS LINE                            F0E04020
 IOLST IOCD    OCTAL,,**      PARAMETER FOR LENGTH OF LISTING LINE      F0E04030
       AXT     5,4            RESET LENGTH OF LINE TO SHORT LINE        F0E04040
       SXD     IOLST,4        FOR GENERTED DATA                         F0E04050
       STZ     PRTIF          RESET FLAG                                F0E04060
       STZ     TYPDF          RESET BOOLEAN ADDRESS FLAG                F0E04070
 PRNTX AXT     **,4           RELOAD CALLING LINKAGE                    F0E04080
       AXT     **,2           RELOAD WORD COUNT                         F0E04090
       AXT     **,1           RELOAD TABLE COUNT                        F0E04100
       TRA     1,4                                                      F0E04110
       REM                                                              F0E04120
       REM     SUBROUTINE TO PRINT LISTING LINE                         F0E04130
 PRLST SXA     PRLSX,4        SAVE CALLING LINKAGE                      F0E04140
       CAL     1,4            LOAD PARAMETER                            F0E04150
       PDX     ,2             LOAD WORD COUNT                           F0E04160
       SXD     PRL06+1,2      SET LENGTH OF LINE                        F0E04170
       SUB     Q2                                                       F0E04180
       STA     PRL05          SET LOCATION OF BUFFER TO BE MOVED        F0E04190
       PXD     ,0                                                       F0E04200
       LXD     EFLST,4        LOAD LENGTH OF ERROR FLAG LIST            F0E04210
       LDQ     EFCHR,4        LOAD ERROR CHARACTER                      F0E04220
       ZET     EFLST,4        IS THIS ERROR FLAG SET                    F0E04230
       LGL     6              YES, SHIFT IN NEXT FLAG                   F0E04240
       STZ     EFLST,4        RESET ERROR FLAG                          F0E04250
 PRL00 TXL     *+3,4,**       IS THIS ERROR FATAL                       F0E04260
       TZE     *+2            YES, WAS THIS ERROR FOUND                 F0E04270
       STL     NOGOF          YES, SET FATAL ERROR FLAG                 F0E04280
       TIX     *-7,4,1        HAVE ALL FLAGS BEEN TESTED                F0E04290
       LDQ     BLANKS         YES, LOAD FOLLOWING BLANKS                F0E04300
       TZE     PRL01          WERE THERE ANY ERRORS                     F0E04310
       LGR     6              YES, LEFT ADJUST ERROR CHARACTERS         F0E04320
       TNZ     *-1                                                      F0E04330
       CAL     BLANK          APPEND LEADING BLANK (PROGRAM CONTROL)    F0E04340
       LGR     6                                                        F0E04350
       TRA     PRL02                                                    F0E04360
       REM     NO ERRORS ON THIS STATEMENT                              F0E04370
 PRL01 CAL     UNLSF          LOAD UNLIST FLAG                          F0E04380
       TXL     *+3,2,0        IS LINE BLANK                             F0E04390
       TXH     *+2,2,5        NO, IS LINE GENERATED DATA                F0E04400
       ORA     TITLF          YES, LOAD TITLE FLAG                      F0E04410
 PMCSW TXH     *+2,4,**       IS THIS MACRO GENERATED CARD              F0E04420
       TXL     PRLSX,,0       YES, SHOULD THIS CARD BE OMITTED          F0E04430
       TNZ     PRLSX          NO, IS THIS LINE SUPPRESSED               F0E04440
       REM     REENTRY FOR ERROR ON STATEMENT                           F0E04450
 PRL02 STQ     BBUF21+1       SET FLAGS IN WORD 1                       F0E04460
       TXL     PRL04+3,2,0    IS LINE BLANK                             F0E04470
       TXL     PRL03,2,18     NO, IS FULL CARD REQUESTED                F0E04480
       TSX     LEVEL,4       *YES, INSERT MACRO LEVEL IN CC 81 - 84     F0E04490
       REM     COMPUTE ORIGIN AT END OF NONBLANK LINE                   F0E04500
 PRL03 LDC     PRL06+1,2      LOAD LENGTH OF LINE                       F0E04510
       CAL*    PRL05          LOAD NEXT WORD                            F0E04520
       ERA     BLANKS         IS WORD BLANK                             F0E04530
       TNZ     PRL04          NO                                        F0E04540
       TXI     *+1,2,1        YES, BUMP COUNT BACK ONE                  F0E04550
       TXL     *-4,2,-2       IS LINE ALL BLANKS (MINIMUM LENGTH OF LINEF0E04560
       REM                    IS 3 WORDS, OCTAL, OCTAL+1 CANNOT BE      F0E04570
       REM                    NONBLANK IF REST OF LINE IS BLANK)        F0E04580
       AXT     0,2            YES, SET WORD COUNT FOR BLANK LINE        F0E04590
       REM     END OF NONBLANK LINE FOUND                               F0E04600
 PRL04 SXA     *+1,2          COMPUTE NUMBER OF NONBLANK WORDS          F0E04610
       AXC     **,4           INITIALIZE I/O COMMAND WORD COUNT         F0E04620
       SXD     PRL06+1,4                                                F0E04630
       REM     REENTRY TO PRINT BLANK LINE                              F0E04640
       TXL     PRL06,2,0      IS LINE BLANK                             F0E04650
 PRL05 CAL     **,2           NO, MOVE NEXT WORD                        F0E04660
       SLW     BBUF21,2       INTO OUTPUT BUFFER                        F0E04670
       TXI     *+1,2,1        BUMP TO NEXT WORD                         F0E04680
       TXL     PRL05,2,-2     IS LINE MOVED                             F0E04690
       REM     BUFFER IS COMPLETE                                       F0E04700
 PRL06 TSX     FPRINT,4      *INITIATE THIS TRANSMISSION                F0E04710
       PZE     BBUF21+1,,**                                             F0E04720
 PRLSX AXT     **,4           RELOAD CALLING LINKAGE                    F0E04730
       CAL     UNL1F          SET FLAG TO DELETE NEXT LINE              F0E04740
       SLW     UNLSF          (TO PRINT UNLIST AND DELETE LIST)         F0E04750
       STZ     OCTAL+1        CLEAR OCTAL BUFFER                        F0E04760
       STZ     OCTAL+2                                                  F0E04770
       STZ     OCTAL+3                                                  F0E04780
       TRA     2,4                                                      F0E04790
       REM                                                              F0E04800
       REM     INSERT MACRO LEVEL INTO CARD COLUMNS 81 THRU 84          F0E04810
 LEVEL SXA     LEVLX,4        SAVE CALLING LINKAGE                      F0E04820
       LDQ     P2MSK          LOAD FOLLOWING BLANKS                     F0E04830
       CAL     BCDBF+13       LOAD FLAGS                                F0E04840
       ARS     8              SHIFT UP LEVEL NUMBER                     F0E04850
       ANA     Q127           MASK IN LEVEL NUMBER                      F0E04860
       TZE     LEVL1          IS THIS A MACRO GENERATED CARD            F0E04870
       TSX     BCDCV,4       *YES, CONVERT TO DECIMAL                   F0E04880
       LDQ     BLANKS         LOAD FOLLOWING BLANKS                     F0E04890
       LGR     18             SHIFT OUT DIGIT                           F0E04900
       CAL     POINT          LOAD DECIMAL POINT                        F0E04910
       LGR     18             RIGHT ADJUST                              F0E04920
 LEVL1 STQ     NERAS          HOLD CARD COLUMNS 81 THRU 84              F0E04930
       CAL     BCDBF+13       LOAD CARD WORD 14                         F0E04940
       ANA     P1MSK          MASK IN CARD COLUMNS 79 AMD 80            F0E04950
       ORA     NERAS          COMBINE WITH CARD COLUMNS 81 THRU 84      F0E04960
       SLW     BCDBF+13       INSERT IN CARD WORD 14                    F0E04970
 LEVLX AXT     **,4           RELOAD CALLING LINKAGE                    F0E04980
       TRA     1,4                                                      F0E04990
       REM                                                              F0E05000
       REM     PUNCH ABSOLUTE TRANSFER CARD                             F0E05010
 PCHTC SXA     PCHTX,4        SAVE CALLING LINKAGE                      F0E05020
       NZT     LBLFLG         IS CARD LABEL REQUESTED                   F0E05030
       TRA     PCHT1          NO                                        F0E05040
       AXT     8,4            YES, SAVE OLD SERIALIZATION               F0E05050
       CAL     BMPBF+8,4                                                F0E05060
       SLW     BMPSV+8,4                                                F0E05070
       CAL     CIDBF+8,4                                                F0E05080
       SLW     CIDSV+8,4                                                F0E05090
       TIX     *-4,4,1                                                  F0E05100
 PCHT1 TSX     PUNCH,4       *PUNCH LAST PARTIAL CARD                   F0E05110
       CAL     ERASE          SET TRANSFER ADDRESS                      F0E05120
       SLW     PBUFF1         IN 9L ADDRESS                             F0E05130
       NZT     LBLFLG         IS CARD LABEL REQUESTED                   F0E05140
       TRA     PCHTX          NO                                        F0E05150
       LDQ     PBUFF1         YES, LOAD TRANSFER ADDRESS                F0E05160
       LGL     21             LEFT ADJUST                               F0E05170
       PXD     ,0                                                       F0E05180
       AXT     5,4            CONVERT FIVE DIGITS TO OCTAL              F0E05190
       SXD     PRNCI,4        AVOID PRINTING CARD ORIGIN                F0E05200
       ALS     3                                                        F0E05210
       LGL     3                                                        F0E05220
       TIX     *-2,4,1                                                  F0E05230
       LGR     12             SHOVE 2 DIGITS OUT                        F0E05240
       ORA     L(TRA          APPEND 'TRA'                              F0E05250
       TSX     IDENT,4       *CREATE CARD LABEL                         F0E05260
       ZET     LBLFG          IS BINARY CARD SERIAL LISTING SUPPRESSED  F0E05270
       TSX     PRNCS,4       *NO, PRINT CARD SERIAL NUMBER              F0E05280
       AXT     8,4            RESTORE OLD SERIALIZATION                 F0E05290
       CAL     BMPSV+8,4                                                F0E05300
       SLW     BMPBF+8,4                                                F0E05310
       CAL     CIDSV+8,4                                                F0E05320
       SLW     CIDBF+8,4                                                F0E05330
       TIX     *-4,4,1                                                  F0E05340
 PCHTX AXT     **,4           RELOAD CALLING LINKAGE                    F0E05350
       SXA     STORX,4                                                  F0E05360
       TRA     STR13                                                    F0E05370
 L(TRA BCI     1,TRA000                                                 F0E05380
       REM                                                              F0E05390
       REM     FORCE PUNCHING OF PARTIAL CARD                           F0E05400
 PUNCH SXA     STORX,4        SAVE CALLING LINKAGE                      F0E05410
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0E05420
       TRA     PNCH1+2        YES                                       F0E05430
       LXA     STR03,4        NO, LOAD CARD WORD COUNT                  F0E05440
 PNCH1 TXL     STR04,4,21     IS PROGRAM CARD EMPTY                     F0E05450
       REM                    (WORD COUNT RESET TO 19 FOR REL CARD)     F0E05460
       REM                    (OR 0 IF A MAIN PROGRAM HAS 0 BREAK)  (24)F0E05465
       TRA     STR08          YES                                       F0E05470
       REM     PUNCH ABSOLUTE CARD                                      F0E05480
       LXA     STR10,4        LOAD CARD WORD COUNT                      F0E05490
       NZT     FULMD          IS CARD FUL                               F0E05500
       TXL     STR11,4,21     NO, IS ABS CARD EMPTY                     F0E05510
       TXI     *+1,4,2        YES, CARD IS FUL OR ABS CARD IS EMPTY     F0E05520
       TXL     STR13,4,23     IS FUL CARD EMPTY                         F0E05530
       TRA     STR14          YES                                       F0E05540
       REM                                                              F0E05550
       REM     ENTER BINARY INSTRUCTION INTO CARD IMAGE                 F0E05560
 STORE SXA     STORX,4        SAVE CALLING LINKAGE                      F0E05570
       TXH     *+3,4,**       IS THIS FIRST INSTRUCTION THIS CARD       F0E05580
       SXD     *-1,0          YES, RESET SWITCH                         F0E05590
       TSX     PRNCS,4       *PRINT CARD SERIAL NUMBER                  F0E05600
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0E05610
       TRA     STR10          YES                                       F0E05620
       SLN     1              NO, SET ADDRESS FLAG                      F0E05630
       LXD     INDIC,2        LOAD DECREMENT RELOCATION BITS            F0E05640
 STR01 AXT     **,1           LOAD RELOCATION BIT COUNT                 F0E05650
       TXL     STR02,2,0      IS DECREMENT FIELD RELOCATABLE            F0E05660
       REM     REENTRY FOR ADDRESS RELOCATION BITS                      F0E05670
       TXI     *+1,1,2        BUMP RELOCATION BIT COUNT FOR 10 OR 11    F0E05680
       PXA     ,2             RECALL RELOCATION BITS                    F0E05690
       XCL                                                              F0E05700
       PXD     ,0                                                       F0E05710
       LGL     72,1           POSITION IN 8L OR 8R                      F0E05720
       ORS     RELBT          INSERT IN 8L                              F0E05730
       XCL                                                              F0E05740
       ORS     RELBT+1        OR 8R                                     F0E05750
       TRA     STR02+1                                                  F0E05760
       REM     REENTRY FOR NONRELOCATABLE DECREMENT                     F0E05770
 STR02 TXI     *+1,1,1        BUMP RELOCATION BIT COUNT FOR 0           F0E05780
       SLT     1              IS ADDRESS DONE                           F0E05790
       TRA     *+4            YES                                       F0E05800
       LXA     INDIC,2        NO, LOAD ADDRESS RELOCATION BITS          F0E05810
       TXH     STR01+2,2,0    IS ADDRESS RELOCATABLE                    F0E05820
       TXI     *+1,1,1        NO, BUMP RELOCATION BIT COUNT FOR 0       F0E05830
       TXL     *+2,1,68       IS 8 ROW FULL OF RELOCATION BITS          F0E05840
       SLN     1              YES, SET FLAG                             F0E05850
       SXA     STR01,1        SAVE RELOCATION BIT COUNT                 F0E05860
 STR03 AXT     20,4           LOAD CARD WORD COUNT                      F0E05870
       CAL     BINRY          INSERT BINARY WORD                        F0E05880
       SLW     PBUFF1+24,4    INTO CARD IMAGE                           F0E05890
       ACL     CHKSM          ADD INTO CHECKSUM                         F0E05900
       SLW     CHKSM                                                    F0E05910
       SLT     1              IS 8 ROW (RELOCATION BITS) FULL           F0E05920
       TIX     STR09+1,4,1    NO, IS CARD FULL                          F0E05930
       TXI     *+1,4,-1       YES BUMP CARD WORD COUNT FOR LAST WORD    F0E05940
       SXA     STR03,4                                                  F0E05950
       REM     REENTRY TO FORCE PUNCHING                                F0E05960
 STR04 LAC     STR03,4        LOAD CARD WORD COUNT                      F0E05970
       TXI     *+1,4,22       COMPUTE LENGTH OF PROGRAM CARD            F0E05980
       REM                    (WORD COUNT RESET TO 20, TRANSFER ADDRESS F0E05990
       REM                     TO PUNCH REL CARD BY INIT)               F0E06000
       REM     PUNCH PROGRAM CARD                                       F0E06010
       ZET     MAINPF         IS THIS MAIN PROGRAM                      F0E06020
       TXI     *+1,4,2        YES, BUMP LENGTH TO INCLUDE 7 ROW         F0E06030
       SXD     PBUFF1,4       INSERT CARD WORD COUNT IN 9L DECREMENT    F0E06040
       PXA     ,4             COMPUTE ORIGIN AT END OF CARD IMAGE       F0E06050
       ADD     STR06                                                    F0E06060
       STA     *+2                                                      F0E06070
       CAL     PBUFF1         COMPUTE CHECKSUM                          F0E06080
       ACL     **,4                                                     F0E06090
       TIX     *-1,4,1                                                  F0E06100
       SLW     PBUFF1+1                                                 F0E06110
       TRA     STR07                                                    F0E06120
       REM     REENTRY FOR RELOCATABLE CARD                             F0E06130
 STR05 PXD     ,4             SET WORD COUNT                            F0E06140
       ORA     CTLWD          LOAD ADDRESS, PREFIX PUNCH                F0E06150
       SLW     PBUFF1         INTO 9L WORD                              F0E06160
       ACL     RELBT          ADD RELOCATION BITS                       F0E06170
       ACL     RELBT+1                                                  F0E06180
       ACL     CHKSM          INTO CHECKSUM                             F0E06190
       SLW     PBUFF1+1                                                 F0E06200
       CAL     RELBT          MOVE RELOCATION BITS                      F0E06210
 STR06 SLW     PBUFF1+2       INTO 8 ROW                                F0E06220
       CAL     RELBT+1                                                  F0E06230
       SLW     PBUFF1+3                                                 F0E06240
       REM     REENTRY FOR PROGRAM CARD                                 F0E06250
 STR07 TSX     WBINT,4       *WRITE CARD                                F0E06260
       REM     REENTRY FOR EMPTY CARD FORCED                            F0E06270
 STR08 CAL     P4             SET 9L PREFIX FOR PROGRAM CARD            F0E06280
       SLW     PBUFF1                                                   F0E06290
       CAL     CDCTR          SET LOAD ADDRESS FOR NEXT CARD           $F0E06300
       STA     CTLWD                                                    F0E06310
       STZ     CHKSM          CLEAR WORKING CELLS                       F0E06320
       STZ     RELBT                                                    F0E06330
       STZ     RELBT+1                                                  F0E06340
       SXA     STR01,0        RESET RELOCATION BIT COUNT                F0E06350
 STR09 AXT     22,4           RESET PROGRAM CARD WORD COUNT             F0E06360
       REM                    (RESET TO 20 FOR REL CARD BY INIT)        F0E06370
       REM     REENTRY FOR PARTIAL CARD                                 F0E06380
       SXA     STR03,4                                                  F0E06390
       TRA     STORX                                                    F0E06400
       REM                                                              F0E06410
       REM     PUNCH ABSOLUTE CARD                                      F0E06420
 STR10 AXT     22,4           LOAD CARD WORD COUNT                      F0E06430
       ZET     FULMD          IS CARD FUL                               F0E06440
       TXI     STR12,4,2      YES                                       F0E06450
       CAL     BINRY          NO, INSERT BINARY WORD                    F0E06460
       SLW     PBUFF1+24,4    INTO CARD IMAGE                           F0E06470
       ACL     PBUFF1+1       ADD INTO CHECKSUM                         F0E06480
       SLW     PBUFF1+1                                                 F0E06490
       TIX     STR15+1,4,1    IS CARD FULL                              F0E06500
       SXA     STR10,0        YES, RESET CARD WORD COUNT                F0E06510
       REM     REENTRY TO FORCE PUNCHING OF ABS CARD                    F0E06520
 STR11 LAC     STR10,4        LOAD CARD WORD COUNT                      F0E06530
       TXI     *+1,4,22       COMPUTE LENGTH OF CARD                    F0E06540
       PXD     ,4             INSERT CARD WORD COUNT                    F0E06550
       ORA     PBUFF1         AND LOAD ADDRESS                          F0E06560
       SLW     PBUFF1         INTO 9L                                   F0E06570
       ACL     PBUFF1+1       ADD INTO CHECKSUM                         F0E06580
       SLW     PBUFF1+1                                                 F0E06590
       TRA     STR13                                                    F0E06600
       REM     FUL CARD                                                 F0E06610
 STR12 CAL     BINRY          INSERT BINARY WORD                        F0E06620
       SLW     PBUFF1+24,4    INTO CARD IMAGE                           F0E06630
       TIX     STR15,4,1      IS CARD FULL                              F0E06640
       REM     REENTRY FOR TCD, FORCE PUNCHING OF FUL CARD              F0E06650
 STR13 TSX     WBINT,4       *WRITE CARD                                F0E06660
       REM     REENTRY FOR EMPTY CARD FORCED                            F0E06670
 STR14 CAL     CDCTR          GET CURRENT LOAD ADDRESS                  F0E06680
       NZT     FULMD          IS CARD FORMAT FULL                       F0E06690
       STA     PBUFF1         NO, SET LOAD ADDRESS IN 9L                F0E06700
       TSX     SHIFT,4       *CONVERT TO OCTAL                          F0E06710
       SLW     CRDID+7        INSERT IN CARD ORIGIN MESSAGE             F0E06720
       AXT     22,4           RESET CARD WORD COUNT                     F0E06730
       TRA     STR15+1                                                  F0E06740
       REM     REENTRY FOR FUL CARD                                     F0E06750
 STR15 TXI     *+1,4,-2       BUMP CARD WORD COUNT BACK                 F0E06760
       REM     REENTRY FOR ABS CARD                                     F0E06770
       SXA     STR10,4        RESET CARD WORD COUNT                     F0E06780
 STORX AXT     **,4           RELOAD CALLING LINKAGE                    F0E06790
       TRA     1,4                                                      F0E06800
       REM                                                              F0E06810
       REM     WRITE CARD IMAGES ON BINARY OUTPUT/INTERMEDIATE TAPE     F0E06820
 WBINT SXA     WBINX,4        SAVE CALLING LINKAGE                      F0E06830
       AXC     1,1            LOAD BUFFER INDEX                         F0E06840
       SXA     *-1,1          FLIP INDEX                                F0E06850
       CAL     PBUFF1         HOLD PREFIX PUNCH                         F0E06860
       AXT     27,4           LOAD BUFFER LENGTH                        F0E06870
       LDQ     PBUFF1+27,4    MOVE CARD IMAGE                           F0E06880
       STQ*    BOTBF,1        INTO MONITOR OUTPUT BUFFER                F0E06890
       STQ*    BINBF,1        INTO INTERMEDIATE OUTPUT BUFFER           F0E06900
       STZ     PBUFF1+27,4    CLEAR CARD IMAGE BUFFER                   F0E06910
       TIX     *-4,4,1        IS CARD COMPLETE                          F0E06920
       STP     PBUFF1         YES, RESTORE PREFIX PUNCH                 F0E06930
       ZET     OFLCFG         ARE OFFLINE ROW BINARY CARDS REQUESTED    F0E06940
       ZET     FULMD          NO, IS CARD FULL                          F0E06950
       TRA     *+6            YES                                       F0E06960
       CAL     D320           NO, LOAD COLUMN BINARY BITS               F0E06970
       ORS*    BOTIO,1        INSERT IN 9L                              F0E06980
       ACL*    BOTBF+1,1      ADD INTO CHECKSUM                         F0E06990
       ZET*    BOTBF+1,1      IS THIS TRANSFER CARD                     F0E07000
       SLW*    BOTBF+1,1      NO, INSERT IN 9R                          F0E07010
       TRA     WBIN2                                                    F0E07020
       REM     ERROR ON MONITOR BINARY TAPE                             F0E07030
 WBIN0 TSX    (TAPE),4       *WRITE END FILE ON STACK TAPE              F0E07040
       PZE     ,,(WEFP)                                                 F0E07050
       PZE     BOTTAP,,-1                                               F0E07060
       MZE     *+1                                                      F0E07070
       TSX    (TAPE),4       *WRITE ANOTHER END FILE ON STACK TAPE      F0E07080
       PZE     ,,(WEFP)                                                 F0E07090
       PZE     BOTTAP,,-1                                               F0E07100
       MZE     *+1                                                      F0E07110
       TSX    (TAPE),4       *UNLOAD STACK TAPE                         F0E07120
       PZE     UNLOD,,(SKBP)                                            F0E07130
       PZE     BOTTAP,,-1                                               F0E07140
       TSX     SSJOB,2        SET SYSJOB AND GET FLAGBX                $F0E07150
       AXT     5,4            PREPARE TO PRINT 'CHANGE TAPE'            F0E07160
       RNT     200            IS EXECUTION ON                           F0E07170
       TRA     *+4            NO                                        F0E07180
       RIR     200            YES, RESET EXECUTION FLAG                 F0E07190
       STI*   (FGBX)                                                    F0E07200
       AXT     8,4            APPEND 'EXECUTION DELETED'                F0E07210
       SXD     *+2,4          INITIALIZE I/O PARAMETER                  F0E07220
       TSX    (PRNT),4       *PRINT 'CHANGE TAPE/EXECUTION DELETED'     F0E07230
       PZE     CHANG,,**                                                F0E07240
       TSX     SPACP,2       *SPACE PAGE                                F0E07250
       LAC     WBINT+1,2      LOAD INDEX OF BUFFER IN ERROR             F0E07260
       TSX    (TAPE),4       *REWRITE ERROR RECORD                      F0E07270
 WBIN1 PZE     BOTIO,2,(WBNP) (RESET TO (WROW) FOR ROW BINARY CARDS)    F0E07280
       PZE     BOTTAP,,-1                                               F0E07290
       PZE     WBIN0                                                    F0E07300
       CLA     Q1             RESET BINARY OUTPUT RECORD COUNT          F0E07310
       STA     BNRECT                                                   F0E07320
       REM     STACK BINARY OUTPUT                                      F0E07330
 WBIN2 TSX    (TAPE),4       *WRITE BINARY OUTPUT TAPE                  F0E07340
       PZE     BOTIO,1,(WBNP) (RESET TO (WROW) FOR ROW BINARY CARDS)    F0E07350
BOTTAP PZE     ,,MBNTAP                                                 F0E07360
       PZE     WBIN0                                                    F0E07370
       CAL     BNRECT         BUMP BINARY OUTPUT RECORD COUNT           F0E07380
       ADD     Q1                                                       F0E07390
       STA     BNRECT                                                   F0E07400
       NZT     CRDFLG         ARE ONLINE CARDS REQUESTED                F0E07410
       TRA     WBIN3          NO                                        F0E07420
       ZET     ONLCFG         YES, ARE ONLINE ROW BINARY CARDS REQUESTEDF0E07430
       ZET     FULMD          NO, IS THIS CARD FULL                     F0E07440
       TRA     *+6            YES                                       F0E07450
       CAL     D320           NO, LOAD COLUMN BINARY BITS               F0E07460
       ORS*    BINIO,1        INSERT IN 9L                              F0E07470
       ACL*    BINBF+1,1      ADD INTO CHECKSUM                         F0E07480
       ZET*    BINBF+1,1      IS THIS TRANSFER CARD                     F0E07490
       SLW*    BINBF+1,1      NO, INSERT IN 9R                          F0E07500
       TSX    (TAPE),4       *WRITE BINARY INTERMEDIATE TAPE            F0E07510
       PZE     BINIO,1,(WBNP)                                           F0E07520
 BNTAP PZE     BLABL,,TINTAP                                            F0E07530
       PZE     *+2                                                      F0E07540
       TRA     WBIN3                                                    F0E07550
       REM     ERROR ON PUNCH TAPE                                      F0E07560
       TSX    (TAPE),4       *UNLOAD BAD TAPE                           F0E07570
       PZE     UNLOD,,(SKBP)                                            F0E07580
       PZE     BNTAP,,-1                                                F0E07590
       TSX    (PRNT),4       *LET OPERATOR KNOW                         F0E07600
       PZE     DELOL,,9                                                 F0E07610
       TSX     SPACP,2       *LET OPERATOR DECIDE                       F0E07620
       STZ     CRDFLG         RESET ONLINE CARDS FLAG                   F0E07630
 WBIN3 ZET     LBLFLG         IS CARD LABEL REQUESTED                   F0E07640
       TSX     BMPID,4       *YES, INCREMENT SERIALIZATION              F0E07650
 WBINX AXT     **,4           RELOAD CALLING LINKAGE                    F0E07660
       TRA     1,4                                                      F0E07670
       REM                                                              F0E07680
       REM     CREATE CARD LABEL                                        F0E07690
 IDENT SXA     IDENX,4        SAVE CALLING LINKAGE                      F0E07700
       STQ     ERASE          SAVE LOW ORDER PORTION OF LABEL           F0E07710
       XCL                    RECALL HIGH ORDER PORTION OF LABEL        F0E07720
       AXT     1,4            SET CHARACTER COUNT TO LEFTMOST CHARACTER F0E07730
       REM     REENTRY TO CREATE NEXT DIGIT                             F0E07740
 IDEN1 PXD     ,0                                                       F0E07750
       LGL     6              LOAD CHARACTER                            F0E07760
       LAS     BLANK          IS IT BLANK                               F0E07770
       TRA     *+2            NO                                        F0E07780
       PXD     ,0             YES, DELETE IT                            F0E07790
       SLW     CIDBF+8,4      SAVE FOR LISTING                          F0E07800
       LGR     4              GET ZONE                                  F0E07810
       PAX     ,2             INTO XR2                                  F0E07820
       PXD     ,0                                                       F0E07830
       LGL     4              GET DIGITS                                F0E07840
       PAX     ,1             INTO XR1                                  F0E07850
       CAL     ZONER,2        PICK UP ZONE BITS (12,11,0)               F0E07860
       ANA     Q7             MASK IN NO ZONE                           F0E07870
       ALS     9              POSITION ZONE BITS                        F0E07880
       ORA     DIGIT,1        PICK UP DIGIT BITS (0,1,2,3,4,5,6,7,8,9)  F0E07890
       SLW     BMPBF+8,4      INSERT NEXT CHARACTER                     F0E07900
       TXI     *+1,4,1        BUMP CHARACTER COUNT RIGHT ONE CHARACTER  F0E07910
       TXL     IDEN1,4,6      IS WORD COMPLETE                          F0E07920
       TXH     *+2,4,7        YES, IS SECOND WORD STARTED               F0E07930
       LDQ     ERASE          NO, LOAD SECOND WORD                      F0E07940
       TXL     IDEN1,4,8      HAVE 8 CHARACTERS BEEN CREATED            F0E07950
       TSX     PAKID,4       *YES, INSERT THEM IN LABEL                 F0E07960
 IDENX AXT     **,4           RELOAD CALLING LINKAGE                    F0E07970
       TRA     1,4                                                      F0E07980
       REM                                                              F0E07990
       REM     INCREMENT CARD SERIALIZATION                             F0E08000
 BMPID SXA     BMPIX,4        SAVE CALLING LINKAGE                      F0E08010
       AXT     8,4            PREPARE TO BUMP 8 DIGITS (CC 73 - 80)     F0E08020
       CAL     BMPBF+8,4      LOAD NEXT MORE SIGNIFICANT DIGIT          F0E08030
       PAI                                                              F0E08040
       RFT     6000           IS IT NONNUMERIC                          F0E08050
       TRA     BMPI2          YES                                       F0E08060
       RNT     1000           MAYBE, IS THERE A ZERO PUNCH              F0E08070
       TRA     *+3            NO                                        F0E08080
       RFT     0777           YES, IS THERE A COCOLUMNAR DIGIT PUNCH    F0E08090
       TRA     BMPI2          YES, IT IS NONNUMERIC                     F0E08100
       RNT     0001           NO, IS DIGIT 9                            F0E08110
       TRA     BMPI1          NO                                        F0E08120
       CAL     DIGIT          YES, PICK UP ZERO                         F0E08130
       SLW     BMPBF+8,4      RESET THIS ORDER DIGIT                    F0E08140
       STZ     CIDBF+8,4                                                F0E08150
       TIX     BMPID+2,4,1    HAVE ALL DIGITS BEEN RESET                F0E08160
       TRA     BMPI2          YES                                       F0E08170
 BMPI1 ARS     1              BUMP THIS DIGIT                           F0E08180
       SLW     BMPBF+8,4                                                F0E08190
       CAL     CIDBF+8,4                                                F0E08200
       ADD     Q1                                                       F0E08210
       SLW     CIDBF+8,4                                                F0E08220
 BMPI2 TSX     PAKID,4       *INSERT DIGITS IN CARD LABEL               F0E08230
 BMPIX AXT     **,4           RELOAD CALLING LINKAGE                    F0E08240
       TRA     1,4                                                      F0E08250
       REM                                                              F0E08260
       REM     PACK LABEL INTO CARD IMAGE BUFFER                        F0E08270
 PAKID SXA     PAKIX,4        SAVE CALLING LINKAGE                      F0E08280
       AXT     3,4            PREPARE TO GENERATE 3 ID WORDS            F0E08290
       AXT     0,2            PREPARE TO PACK 3 CHARACTERS IN EACH WORD F0E08300
       CAL     BMPBF+7,2      PACK LEFTMOST CHARACTER                   F0E08310
       ALS     12                                                       F0E08320
       ORA     BMPBF+6,2      CENTERMOST CHARACTER                      F0E08330
       ALS     12                                                       F0E08340
       ORA     BMPBF+5,2      RIGHTMOST CHARACTER                       F0E08350
       SLW     IDBUFF+3,4     IN NEXT WORD                              F0E08360
       TXI     *+1,2,3        BUMP CHARACTER COUNT TO NEXT WORD         F0E08370
       TIX     PAKID+3,4,1    HAVE ALL THREE WORDS BEEN PACKED          F0E08380
       NZT     UNLSF          YES, IS UNLIST FLAG ON                    F0E08390
       NZT     LBLFG          NO, IS LABEL DELETED                      F0E08400
       TRA     PAKIX          YES                                       F0E08410
       AXT     0,4            NO, PREPARE TO PACK SIX CHARACTERS        F0E08420
       CAL     CIDBF+7        LOAD FIRST CHARACTER                      F0E08430
       ALS     6                                                        F0E08440
       ORA     CIDBF+6,4      APPEND NEXT FIVE CHARACTERS               F0E08450
       TXI     *+1,4,1                                                  F0E08460
       TXL     *-3,4,4                                                  F0E08470
       SLW     CRDID+3        INSERT IN WORD FOUR                       F0E08480
       CAL     CIDBF+1        LOAD CHARACTER SEVEN                      F0E08490
       ALS     6                                                        F0E08500
       ORA     CIDBF          APPEND CHARACTER EIGHT                    F0E08510
       LDQ     BLANKS         APPEND FOLLOWING BLANKS                   F0E08520
       LGL     24             LEFT ADJUST                               F0E08530
       SLW     CRDID+4        INSERT IN WORD FIVE                       F0E08540
       AXT     -1,4           SET NEW CARD SERIAL NUMBER SWITCH         F0E08550
       SXD     STORE+1,4                                                F0E08560
       CAL     LBLDF          DELETE FIRST CARD FLAG                    F0E08570
       ANS     LBLFG                                                    F0E08580
       TRA     *+2                                                      F0E08590
 PAK01 SXA     PAKIX,4        ENTRY FOR BES, BSS WITH EMPTY FIELD       F0E08600
       TRA     *+5            PREPARE TO PRINT CARD LABEL              $F0E08610
       CAL     LOCTR          LOAD PROGRAM COUNTER                      F0E08620
       ANA     ADDMK          DELETE RELOCATION BIT                     F0E08630
       ERA     CDCTR          IS CARD UNDER CONTROL OF LOC              F0E08640
       TRA     PAKPC          NO                                       $F0E08650
       CAL     CDCTR          YES, LOAD ORIGIN OF NEXT CARD             F0E08660
       TSX     SHIFT,4       *CONVERT TO OCTAL                          F0E08670
       SLW     CRDID+7        INSERT IN WORD 6                          F0E08680
       AXT     8,4            PREPARE TO APPEND CARD ORIGIN TO LABEL    F0E08690
       SXD     PRNCI,4        INITIALIZE PARAMETER WORD COUNT           F0E08700
 PAKIX AXT     **,4           RELOAD CALLING LINKAGE                    F0E08710
       TRA     1,4                                                      F0E08720
 LBLDF OCT     777777777776                                             F0E08730
       REM                                                              F0E08740
       REM     PRINT CARD SERIAL NUMBER                                 F0E08750
 PRNCS ZET     UNLSF          IS UNLIST FLAG SET                        F0E08760
       TRA     PRNCX+1        YES                                       F0E08770
       TRA     PAK01+2        NO                                       $F0E08780
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0E08790
       PZE                                                              F0E08800
       TSX     FPRINT,4      *PRINT CARD SERIAL NUMBER                  F0E08810
 PRNCI PZE     CRDID,,**                                                F0E08820
 PRNCX AXT     **,4           RELOAD CALLING LINKAGE                    F0E08830
       TRA     1,4                                                      F0E08840
       REM                                                              F0E08850
       REM     SUBROUTINE TO ASSEMBLE OCTAL DEFINITIONS                 F0E08860
 SHIFT SXA     SHIFX,4        SAVE CALLING LINKAGE                      F0E08870
       LGR     18             LEFT ADJUST LOCATION                     $F0E08880
       STA     DCBFG          INITIALIZE LOC. OF NEXT REFERENCE        $F0E08890
       AXT     ,0             PATCH SPACE                              $F0E08900
       AXT     6,4            SCAN SIX OCTAL DIGITS                    $F0E08910
       ZAC                                                             $F0E08920
       LGL     3              LOAD NEXT DIGIT                           F0E08930
       TNZ     *+2            DOES IT EXIST                             F0E08940
       TIX     *-2,4,1        NO, TRY AGAIN                             F0E08950
       LGR     3              SAVE NONZERO DIGIT                        F0E08960
       CAL     BLANKS         APPEND LEADING BLANKS                     F0E08970
       ALS     3              CREATE ZONE                               F0E08980
       LGL     3              SHIFT IN DIGIT                            F0E08990
       TIX     *-2,4,1        IS OCTAL DEFINITION COMPLETE              F0E09000
 SHIFX AXT     **,4           YES, RELOAD CALLING LINKAGE               F0E09010
       TRA     1,4                                                      F0E09020
       REM                                                              F0E09030
       REM                                                              F0E09040
       REM                                                              F0E09050
       REM     INPUT/OUTPUT SUBROUTINES                                 F0E09060
       REM                                                              F0E09070
       REM     UNPACK INTERMEDIATE BUFFER                               F0E09080
 INPUT SXA     INPTX,4        SAVE CALLING LINKAGE                      F0E09090
       AXT     **,1           LOAD BLOCK WORD COUNT                     F0E09100
       TXH     *+2,1,**       IS BLOCK EXHAUSTED                        F0E09110
       TSX     RDTIT,4       *YES, READ NEXT BLOCK                      F0E09120
       LXA     RDTIT+1,2      LOAD BUFFER INDEX                         F0E09130
       AXT     INPRCL,4       LOAD RECORD LENGTH                        F0E09140
       CAL*    BCD55+1,2      MOVE NEXT WORD                            F0E09150
       SLW     BCDBF+INPRCL,4 INTO WORKING BUFFER                       F0E09160
       TXI     *+1,1,-1       BUMP BLOCK COUNT TO NEXT WORD             F0E09170
       TIX     *-3,4,1        IS RECORD COMPLETE                        F0E09180
       SXA     INPUT+1,1      YES, SAVE NEW BLOCK WORD COUNT            F0E09190
       CAL     BCDBF+13       SAVE PASS ONE FLAGS FOR ONE CARD DUP      F0E09200
       SLW     DELFLG                                                   F0E09210
 INPTX AXT     **,4           RELOAD CALLING LINKAGE                    F0E09220
       TRA     1,4                                                      F0E09230
       REM                                                              F0E09240
       REM     READ INTERMEDIATE TAPE                                   F0E09250
 RDTIT SXA     RDTTX,4        SAVE CALLING LINKAGE                      F0E09260
       AXC     1,1            LOAD BUFFER INDEX                         F0E09270
       SXA     *-1,1          FLIP BUFFER INDEX                         F0E09280
 DUPSW TXL     RDTT2,4,-1     IS THIS LAST CARD IN DUP                  F0E09290
       AXT     -1,4           YES, RESET SWITCH                         F0E09300
       SXD     DUPSW,4                                                  F0E09310
       TSX    (TAPE),4       *CHECK LAST BUFFER                         F0E09320
       PZE     INTCK,2,-1                                               F0E09330
       TRA     RDTT3                                                    F0E09340
       REM     CONTINUE LOOKAHEAD BUFFERING                             F0E09350
 RDTT2 TSX    (TAPE),4       *LOAD NEXT BUFFER                          F0E09360
       PZE     BCD55,1,(RBEP)                                           F0E09370
       PZE     INTAP,2,-1                                               F0E09380
       PZE     TAPERR                                                   F0E09390
       REM     REENTRY FOR LAST CARD IN DUP                             F0E09400
 RDTT3 CLA     BCD55+1,1      LOAD BUFFER ORIGIN                        F0E09410
       PAX     ,4                                                       F0E09420
       SXD     *+4,4                                                    F0E09430
       CLA*    ITSCH,2        LOAD LAST+1 WORD READ                     F0E09440
       PAC     ,4                                                       F0E09450
       TXL     SWING,4,0      WAS END OF INTERMEDIATE TAPE SENSED       F0E09460
       TXI     *+1,4,**       NO, COMPUTE LENGTH OF RECORD              F0E09470
       SXD     INPUT+2,4      RESET TEST FOR END OF BUFFER              F0E09480
 RDTTX AXT     **,4           RELOAD CALLING LINKAGE                    F0E09490
       AXT     0,1            RESET BLOCK LENGTH                        F0E09500
       SXA     INPUT+1,0                                                F0E09510
       TRA     1,4                                                      F0E09520
       TTL     PASS TWO CONTROL                                         F0E09530
 START NOP                   LEFT BLANK FOR LATER USE AS TEMPORARY STOR$F0E09560
       LXA     EFLST,4        INITIALIZE LENGTH OF BENIGN ERROR LIST    F0E09570
       SXD     PRL00,4                                                  F0E09580
       LXD     EFLST,4        RESET STRAY ERROR FLAGS LEFT ON IN PASS 1 F0E09590
       STZ     EFLST,4                                                  F0E09600
       TIX     *-1,4,1                                                  F0E09610
       STZ     BHEAD          RESET HANGING HEADING CHARACTER           F0E09620
       LXD     SYMSIZ,4       BUMP COUNT PAST 0                         F0E09630
       TXI     *+1,4,2        IN CASE OF UNDEFINED SYMBOLS              F0E09640
       SXD     SYMSIZ,4                                                 F0E09650
       TXI     *+1,4,-LSMTBM+LUDTBM+1 COMPUTE LENGTH OF REF TABLE       F0E09660
       SXD     EREF4+3,4      SET TEST FOR REFERENCE TABLE OVERFLOW     F0E09670
       LDC     SYMSIZ,4       INITIALIZE TEST                           F0E09680
       SXD     SUDS1,4        FOR END OF SEARCH OF UNDEF SYMBOL TABLE   F0E09690
       TXI     *+1,4,1                                                  F0E09700
       SXD     SSYM1,4        FOR END OF SEARCH OF SYMBOL TABLE         F0E09710
       TXI     *+1,4,-LUDTBM  COMPUTE END OF UNDEFINED SYMBOL TABLE     F0E09720
       TXH     *+5,4,-LSMTBM  IS THIS LONGER THAN SPACE AVAILABLE       F0E09730
       AXT     SSYMX,4        YES, DELETE SYMBOLIC REFERENCE TABLE      F0E09740
       SXA     EREF0,4                                                  F0E09750
       SXD     PREF9,0        SET SWITCH TO PRINT TABLE DELETED         F0E09760
       AXT     -LSMTBM,4      RESET END OF UNDEFINED SYMBOL TABLE       F0E09770
       SXD     SUDS1+5,4      FOR TEST FOR UNDEF SYMBOL TABLE OVERFLOW  F0E09780
       SXD     EREF4,4        FOR TEST FOR END OF UNDEF REFERENCE TABLE F0E09790
       PXA     ,4                                                       F0E09800
       PAC     ,4                                                       F0E09810
       TXI     *+1,4,SYMTBL+1 COMPUTE ORIGIN OF SYMBOLIC REF TABLE      F0E09820
       SXA     EREF0+1,4                                                F0E09830
       SXA     EREF1+2,4                                                F0E09840
       SXA     EREF1+5,4                                                F0E09850
       SXA     EREF1+7,4                                                F0E09860
       SXA     EREF2,4                                                  F0E09870
       SXA     EREF2+5,4                                                F0E09880
       SXA     EREF3+2,4                                                F0E09890
       TXL     *+7,4,SYMTBL+LSMTBM/2  TEST POINTER TABLE OVERFLOW      $F0E09900
       AXT     -1,4            YES.  DELETE ALL REFERENCES TO       (32)F0E09910
       SXD     K001,4          DEFINED AND UNDEFINED SYMBOLS.       (32)F0E09920
       NOP     PRUDS-2,4       (SXD TO DELETE DEFINED SYMBOL NAMES.)(32)F0E09930
       AXT     SSYMX,4         SUPPRESS CREATION OF REF. TABLE.     (32)F0E09940
       SXA     EREF0,4                                                  F0E09950
       SXD     PREF9,0        SET SWITCH TO PRINT TABLE DELETED         F0E09960
       LAC     EREF0+1,4      LOAD ORIGIN OF POINTER TABLE              F0E09970
       TNX     *+3,4,-VECTOR  COMPUTE SPACE AVAILABLE TO REFERENCE TABLEF0E09980
       STZ     VECTOR,4       CLEAR SPACE FOR REFERENCE TABLE           F0E09990
       TIX     *-1,4,1                                                  F0E10000
       LDC     LITSIZ,4       INITIALIZE TEST                           F0E10010
       TXI     *+1,4,-1                                                 F0E10020
       SXD     SLIT1,4        FOR END OF SEARCH OF LITERAL TABLE        F0E10030
       LXD     LITSIZ,4       LOAD COUNT OF LITERAL TABLE               F0E10040
       SXD     *+3,4          INITIALIZE PROGRAM BREAK COMPUTATION      F0E10050
       LXA     PBUFF1+2,4     LOAD TOP OF VECTOR, PROLOG AND CODING     F0E10060
       SXD     SLIT3,4        INITIALIZE COMPUTATION FOR LOC OF LITERAL F0E10070
       TXI     *+1,4,**       BUMP BY LENGTH OF LITERAL TABLE           F0E10080
       SXA     PBUFF1+2,4     RESET PROGRAM BREAK                       F0E10090
       SXA     PRGBK,4                                                  F0E10100
       SXA     LOCTR,0        RESET PROGRAM COUNTER                     F0E10110
       SXA     CDCTR,0        RESET CARD ORIGIN COUNTER                 F0E10120
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0E10130
       TRA     PTCHY          YES, GO TO PATCH                      (23)F0E10140
       LXD     PBUFF1+2,4     LOAD TRANSFER VECTOR LENGTH               F0E10150
       SXA     INIT1,4        INITIALIZE TEST FOR TRANSFER VECTOR       F0E10160
       CLA     BIN01          LOAD ONLINE COLUMN BINARY PARAMETER       F0E10170
       NZT     ONLCFG         ARE ONLINE ROW BINARY CARDS REQUESTED     F0E10180
       SLW     BIN01          YES, RESET PARAMETER TO ONLINE ROW BINARY F0E10190
       ZET     OFLCFG         ARE OFFLINE ROW BINARY CARDS REQUESTED    F0E10200
       TRA     *+4            NO                                        F0E10210
       AXT    (WROW),4        YES, RESET PARAMETER TO OFFLINE ROW BINARYF0E10220
       SXD     WBIN1,4                                                  F0E10230
       SXD     WBIN2+1,4                                                F0E10240
       ZET     LBLFLG         IS CARD LABEL REQUESTED                   F0E10250
       TRA     *+4            YES                                       F0E10260
       SXD     BOTIO,0        NO, RESET I/O COMMANDS                    F0E10270
       SXD     BOTIO+2,0      TO OMIT WRITING CARD LABELS               F0E10280
       TRA     STRT1                                                    F0E10290
       CAL     PGHDNG+1       LOAD LABEL, 5 CHARACTERS FROM WORD 1      F0E10300
       LDQ     PGHDNG+2       1 CHARACTER FROM WORD 2                   F0E10310
       LGL     6              LEFT ADJUST                               F0E10320
       LDQ     Q0             DELETE CC 8 - 9                           F0E10330
       TSX     IDENT,4       *INSERT IN CARD LABEL                      F0E10340
 STRT1 STL    (SCHU)+FINTAP   RESET POSSIBLE HANGING END FILES          F0E10350
       STL    (SCHU)+SINTAP                                             F0E10360
       STZ     TTLFG          RESET PASS 1 SUBHEADING                   F0E10370
       SXA     PAGENO,0       RESET PAGE NUMBER                         F0E10380
       SXA     PAGCNT,0       EJECT PAGE                                F0E10390
       TRA     READ0                                                    F0E10400
       REM                                                              F0E10410
       REM     END OF INTERMEDIATE TAPE SENSED                          F0E10420
 SWING TSX    (TAPE),4       *REWIND INTERMEDIATE TAPE                  F0E10430
       PZE     REWND,,(SKBP)                                            F0E10440
       PZE     INTAP,2,-1                                               F0E10450
       TXH     ENDFA,2,0      WAS THIS SECOND INTERMEDIATE TAPE         F0E10460
       AXT     -1,2           NO, RESET INTERMEDIATE TAPE INDEX         F0E10470
       SXA     READ1,2                                                  F0E10480
       TRA     READ0                                                    F0E10490
       REM                                                              F0E10500
       REM     CARD IS WITHIN RANGE OF DUP                              F0E10510
 DUPCD AXT     **,1           LOAD REMAINING RANGE OF DUP+1             F0E10520
       TXI     *+1,1,-1       BUMP RANGE OF DUP                         F0E10530
       SXA     DUPCD,1        RESET REMAINDER OF DUP                    F0E10540
 DUPC0 AXT     **,4           SET LENGTH OF LISTING LINE TO LONG FOR    F0E10550
       SXD     IOLST,4        FIRST ITERATION, SHORT FOR SUBSEQUENT     F0E10560
       TXH     READ2,1,1      IS REMAINDER OF DUP LONGER THAN ONE CARD  F0E10570
       TXH     DUPC1,4,**     NO, IS THIS ITERATION OF ONE CARD DUP     F0E10580
       TXL     *+3,1,0        NO, IS THIS LAST CARD IN DUP              F0E10590
       SXD     DUPSW,0        YES, BYPASS LOOKAHEAD BUFFERING           F0E10600
       TRA     READ2                                                    F0E10610
       REM     RANGE OF DUP IS EXHAUSTED                                F0E10620
       AXT     5,4            RESET LENGTH OF LISTING LINE TO SHORT     F0E10630
       SXA     DUPC0,4        FOR SUCCESSIVE ITERATIONS OF DUP          F0E10640
       SXD     IOLST,4                                                  F0E10650
 DUPC1 AXT     **,1           LOAD RANGE OF DUP                         F0E10660
       TXL     DUPC3+1,1,0    IS DUP EXHAUSTED                          F0E10670
       TXL     *+5,1,1        NO, IS DUP LONGER THAN ONE CARD           F0E10680
       TSX    (TAPE),4       *YES, BACKSPACE TO BEGINNING OF DUP        F0E10690
       PZE     SKDUP,,(SKBP)                                            F0E10700
       PZE     INTAP,2,-1                                               F0E10710
       TRA     *+4                                                      F0E10720
       REM     ONE CARD DUP                                             F0E10730
       SXD     DUPC0+3,0      SET ONE CARD DUP ITERATION SWITCH         F0E10740
       CAL     DELFLG         MOVE PASS ONE FLAGS                       F0E10750
       SLW     BCDBF+13       TO WORKING BUFFER                         F0E10760
       REM     REENTRY FOR MULTICARD DUP                                F0E10770
       TXI     *+1,1,1        BUMP TO RANGE+1                           F0E10780
       SXA     DUPCD,1        RESET REMAINING RANGE OF DUP+1            F0E10790
 DUPC2 AXT     **,1           LOAD ITERATIONS OF DUP                    F0E10800
       TXI     *+1,1,-1       BUMP DOWN                                 F0E10810
       SXA     DUPC2,1        RESET ITERATIONS OF DUP                   F0E10820
       TXH     *+2,1,0        IS DUP EXHAUSTED                          F0E10830
       SXA     DUPC1,0        YES, SET SWITCH                           F0E10840
 DUPC3 TRA     **             TO READ0 MULTICARD, CNTRL ONE CARD DUP    F0E10850
       REM     DUP IS COMPLETE                                          F0E10860
       STZ     DUPMD          RESET FLAG                                F0E10870
       REM                                                              F0E10880
       REM     INITIALIZE LOOKAHEAD BUFFERING                           F0E10890
 READ0 LXA     READ1,2        LOAD INTERMEDIATE TAPE INDEX              F0E10900
       TSX     RDTIT,4       *LOAD FIRST BUFFER                         F0E10910
       REM     CONTINUE LOOKAHEAD BUFFERING                             F0E10920
 READ1 AXT     **,2           LOAD INTERMEDIATE TAPE INDEX              F0E10930
       ZET     DUPMD          IS NEXT CARD WITHIN RANGE OF DUP          F0E10940
       TRA     DUPCD          YES                                       F0E10950
       AXT     19,4           NO, SET LENGTH OF LISTING LINE            F0E10960
       SXD     IOLST,4        TO LONG LINE                              F0E10970
       REM     REENTRY FOR CARD WITHIN RANGE OF DUP                     F0E10980
 READ2 TSX     INPUT,4       *LOAD NEXT BUFFER                          F0E10990
       REM     REENTRY FOR LAST CARD IN RANGE OF DUP                    F0E11000
 CNTRL SLF                    RESET FLAGS                               F0E11010
       STZ     INDIC          RESET RELOCATABLE FIELD INDICATOR         F0E11020
       STZ     SYMB2          RESET HIGH ORDER HALF OF ELEMENT          F0E11030
       CLA     LOCTR          UPDATE PROGRAM COUNTER                    F0E11040
       STO     ADDRS                                                    F0E11050
       LDI     BCDBF+13       LOAD FLAGS                               $F0E11060
       ZSD     PMCSW          RESET MACRO GENERATED CARD SWITCH        $F0E11070
       AXT     -1,4                                                    $F0E11080
       RFT     40            IS THIS MACRO GENERATED                   $F0E11090
       SXD     PMCSW,4       YES SET MACRO GENERATED SWITCH            $F0E11100
       TSX     SETUP,4       *SET UP VARIABLE FIELD                    $F0E11110
       TRA     PHASE+4        CARD IS COMMENTS CARD                    $F0E11120
       TRA     OPERR        **OP FIELD IS IN ERROR                     $F0E11130
       RFT     1               IS PHASE ERROR FLAGGED                  $F0E11140
       TRA     PHASE        **YES, OMIT PROCESSING OF CARD             $F0E11150
       RFT     20             NO, IS THIS UNDEFINED PSEUOOPERATION     $F0E11160
 OPERR STL     OPRFG          YES, SET FLAG                            $F0E11170
       REM     PUNCH PROGRAM CARD, PUBLISH TRANSFER VECTOR              F0E11180
 INIT0 TXH     INIT5+2,4,-1   IS INITIALIZATION COMPLETE                F0E11190
       ZET     ABSFLG         NO, IS ASSEMBLY RELOCATABLE               F0E11200
       TRA     INIT5          NO                                        F0E11210
       LDI     OPBIN          YES, LOAD OPCODE OR PSEUDOOP TRANSFER     F0E11220
       NZT     OPRFG          IS THIS UNDEFINED PSEUDOOPERATION         F0E11230
       RFT     100000         NO, IS THIS DEFINED MACHINE INSTRUCTION   F0E11240
       TRA     *+3            YES, PUNCH OUT PROGRAM CARD               F0E11250
       LFT     400000         NO, MAY THIS PSEUDOOP PRECEDE ENTRY CARD  F0E11260
       TRA     PSOPT          YES, HOLD UP ON PROGRAM CARD              F0E11270
       REM     AFTER ALL ENTRY CARDS INITIALIZATION MAY PROCEDE         F0E11280
       ZET     MAINPF         IS THIS A MAIN PROGRAM                    F0E11290
       NZT     LBLFG          YES, IS CARD LABEL LISTING REQUESTED      F0E11300
       TRA     *+5            NO                                        F0E11310
       TSX     PRNCS,4       *YES, PRINT CARD LABEL                     F0E11320
       TSX     PRLST,4       *PRINT 'PROGRAM CARD'                      F0E11330
       IOCD    PCTIT,,4                                                 F0E11340
       SXD     INIT4,0        FORCE BLANK LINE                          F0E11350
       AXT     20,4                                                     F0E11360
       TRA     INITR                                                   $F0E11370
INITS  ZSA     ADDRS                                                (24)F0E11380
       TSX     PUNCH,4       *PUNCH PROGRAM CARD                        F0E11390
       AXT     19,4                                                     F0E11400
       SXD     PNCH1,4        RESET FULL CARD TEST FOR RELOCATABLE      F0E11410
       AXT     20,4                                                     F0E11420
       SXD     STR04+1,4      RESET COMPUTATION FOR LENGTH OF REL CARD  F0E11430
       AXT     STR05,4        RESET TRANSFER ADDRESS FOR REL CARD       F0E11440
       SXA     STR04+1,4      BYPASSING PROGRAM CARD ROUTINE            F0E11450
       CAL     BCDBF          SAVE LOCATION FIELD                       F0E11460
       TRA     INITA                                                   $F0E11470
 INIT1 AXC     **,1           LOAD LENGTH OF TRANSFER VECTOR            F0E11480
       TXL     INIT3+1,1,0    IS TRANSFER VECTOR EMPTY                  F0E11490
       SXD     INIT3,1        SET END OF PUBLISH LOOP                   F0E11500
       TSX     PRLST,4       *PRINT BLANK LINE                          F0E11510
       PZE                                                              F0E11520
       TSX     PRLST,4       *PRINT TRANSFER VECTOR TITLE               F0E11530
       IOCD    TVTIT,,5                                                 F0E11540
       SXD     INIT4,0        FORCE BLANK LINE                          F0E11550
       AXT     0,1            START AT BOTTOM OF LIST                   F0E11560
 INIT2 CAL     VECTOR,1       LOAD NEXT NAME IN TRANSFER VECTOR         F0E11570
       SLW     BCDBF          INSERT IN LISTING                         F0E11580
       SLW     BINRY          INSERT IN BINARY WORD                     F0E11590
       AXT     6,4            SET LENGTH OF LINE                        F0E11600
       SXD     IOLST,4        TO PRINT OCTAL EXPANSION AND VECTOR NAME  F0E11610
       TSX     PRNTW,4       *LIST AND PUNCH THIS DATUM WORD            F0E11620
       TXI     *+1,1,-1       BUMP TO NEXT NAME                         F0E11630
 INIT3 TXH     INIT2,1,**     IS TRANSFER VECTOR EXHAUSTED              F0E11640
       TRA     INITE          YES, GO TEST FOR EVEN                    $F0E11650
       SLW     BCDBF                                                    F0E11660
       NZT     MAINPF         IS THIS MAIN PROGRAM                      F0E11670
       NZT     SEPFLG         YES, IS STANDARD ERROR PROCEDURE REQUESTD F0E11680
       TRA     INITC              NO                                   $F0E11690
       CAL     LOCTR          YES, COMPUTE LINKAGE DIRECTOR             F0E11700
       ANA     ADDMK                                                    F0E11710
       SSM                    APPEND RELOCATION BIT                     F0E11720
       STO     LINKG                                                    F0E11730
       TSX     PRLST,4       *PRINT BLANK LINE                          F0E11740
       PZE                                                              F0E11750
       TSX     PRLST,4       *PRINT LINKAGE TITLE                       F0E11760
       IOCD    LDTIT,,5                                                 F0E11770
       SXD     INIT4,0        FORCE BLANK LINE                          F0E11780
       AXT     5,4            SET LENGTH OF LINE                        F0E11790
       SXD     IOLST,4        TO PRINT OCTAL EXPANSION                  F0E11800
       STZ     BINRY          PREPARE PZE                               F0E11810
       TSX     PRNTW,4       *LIST AND PUNCH THIS DATUM WORD            F0E11820
       CAL     ENTNM          INSERT MAIN ENTRY POINT NAME             $F0E11830
       SLW     BINRY                                                    F0E11840
       TRA     INITB                                                   $F0E11850
 INIT4 TXL     *+3,4,-1       SHOULD A BLANK LINE BE PRINTED            F0E11860
       TSX     PRLST,4       *YES, PRINT BLANK LINE                     F0E11870
       PZE                                                              F0E11880
       AXT     19,4           RESET LENGTH OF LISTING LINE              F0E11890
       SXD     IOLST,4        TO LONG LINE                              F0E11900
       CLA     LOCTR          UPDATE PROGRAM COUNTER                    F0E11910
       STO     ADDRS                                                    F0E11920
       CAL     OPCOD          RELOAD OP CODE                            F0E11930
       LXD     VRFLD,2        RELOAD WORD COUNT                         F0E11940
       LXA     VRFLD,1        RELOAD CHARACTER COUNT                    F0E11950
 INIT5 SXD     INIT0,0        RESET SWITCH                              F0E11960
       SXD     LBL02,0        PERMIT LBL TO PUNCH PARTIAL CARD          F0E11970
       REM     END OF INITIALIZATION                                    F0E11980
       STZ     TYPKF          RESET DISK COMMAND FLAG                   F0E11990
       STZ     TYPDF          RESET TYPE D SENSE OPERATION FLAG         F0E12000
       STZ     TYPCF          RESET COUNT FIELD INSTRUCTION FLAG        F0E12010
       ZET     OPRFG          IS THIS UNDEFINED OPERATION               F0E12020
       TRA     INST2          YES                                       F0E12030
       ZET     ETCMD          NO, DOES THIS CARD FOLLOW CALL OR VFD     F0E12040
       TRA     ETCOP          YES                                       F0E12050
       STZ     BINRY          NO, CLEAR BINARY MACHINE OPERATION        F0E12060
       NZT     OPBIN          IS OPCODE DEFINED                         F0E12070
       TRA     *+5            NO                                        F0E12080
       LDI     OPBIN          YES, LOAD OPCODE                          F0E12090
       RFT     100000         IS THIS PSEUDOOPERATION                   F0E12100
       TRA     INT00          NO                                        F0E12110
       TRA     PSOPT          YES                                       F0E12120
       REM     OPERATION IS UNDEFINED                                   F0E12130
       REM     CHECK FOR OPERATION DEFINED BY TAPENO CHARACTER          F0E12140
       ANA     ADTMK          MASK IN CC 11 - 13                        F0E12150
       LAS     T3             IS IT GREATER THAN H                      F0E12160
       ANA     Q4095          YES, MASK IN CC 12 - 13                   F0E12170
       TZE     *+2            IS THIS VALID TAPNO CHARACTER             F0E12180
       TRA     INST1          NO                                        F0E12190
       CAL     OPCOD          YES, RECALL OPCODE                        F0E12200
       LGR     18             HOLD TAPENO CHARACTER                     F0E12210
       ALS     18             LEFT ADJUST THREE LETTER OPCODE           F0E12220
       SLW     ERASE                                                    F0E12230
       CAL     BHEAD          LOAD HEADING CHARACTER                    F0E12240
       ALS     24             LEFT ADJUST                               F0E12250
       LGL     6              APPEND TAPENO CHARACTER                   F0E12260
       SLW     SYMBL                                                    F0E12270
       TSX     SSYMT,4       *EVALUATE CHARACTER                        F0E12280
       SLT     EXPRR          IS CHARACTER UNDEFINED                    F0E12290
       TRA     *+3            NO                                        F0E12300
       STZ     ERRFU          YES, RESET ERROR FLAG                     F0E12310
       TRA     INST1                                                    F0E12320
       ANA     ADDMK          DELETE EXTRANEOUS FLAGS                   F0E12330
       SLW     BERAS          SAVE UNIT ADDRESS                         F0E12340
       ANA     Q7680          MASK IN CHANNEL NUMBER                    F0E12350
       TZE     *+3            DOES IT EXIST                             F0E12360
       ALS     3              YES, POSITION IT AS FOURTH CHARACTER      F0E12370
       ORA     T2             APPEND ZONE BITS                          F0E12380
       ORA     ERASE          APPEND THREE CHARACTER OPCODE             F0E12390
       SLW     OPCOD          SAVE                                      F0E12400
       CAL     ERASE          LOAD THREE CHARACTER OPCODE               F0E12410
       TSX     SOPTB,4       *FIND CORRESPONDING OPCODE                 F0E12420
       TRA     INST0          NOT FOUND, MAY BE CHANNEL OPERATION       F0E12430
       RFT     100000         IS THIS MACHINE OPERATION                 F0E12440
       LFT     000001         YES, IS THIS TYPE B I/O, TYPE E PSE, MSE  F0E12450
       TRA     INST0          NO, CHANNEL OPERATION MAY BE UNRELATED   $F0E12460
       LFT     001700         YES, IS THIS TYPE E (BTT, ETT, RDC)       F0E12470
       STI     OPBIN          NO, SET TYPE B SWITCH                     F0E12480
 INST0 CAL     OPCOD          LOAD FOUR CHARACTER OPCODE                F0E12490
       TSX     SOPTB,4       *FIND CORRESPONDING OPCODE                 F0E12500
       TRA     INST1          NOT FOUND                                 F0E12510
       NZT     OPBIN          IS THIS TYPE B I/O INSTRUCTION            F0E12520
       TRA     INT00          NO                                        F0E12530
       RIL     000010         YES, RESET ADDRESS REQUIRED FLAG          F0E12540
       IIL     077600         READY FOR TEST                            F0E12550
       LFT     777700         IS THIS SET DENSITY INSTRUCTION           F0E12560
       TRA     *+6            NO                                        F0E12570
       RFT     20             YES, IS THIS SET DENSITY LOW INSTRUCTION  F0E12580
       TRA     *+4            NO                                        F0E12590
       OSI     BERAS          YES, APPEND UNIT ADDRESS                  F0E12600
       RIR     20             SET THE DENSITY LOW                       F0E12610
       TRA     *+2                                                      F0E12620
       OSI     BERAS          APPEND UNIT ADDRESS                       F0E12630
       IIL     077600         RESTORE INDICATORS AS BEFORE              F0E12640
       TRA     INT00                                                    F0E12650
       REM     OPERATION IS UNDEFINED                                   F0E12660
 INST1 STZ     OFLGS          ERASE HANGING FLAGS                       F0E12670
       SLN     EXPRR          SET UNDEFINED MACHINE OP FLAG             F0E12680
       REM     PSEUDOOPERATION IS UNDEFINED                             F0E12690
 INST2 TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E12700
       CAL     BLANKS         BLANK OUT SIGN AND PREFIX                 F0E12710
       ALS     24                                                       F0E12720
       SLW     OCTAL+1                                                  F0E12730
       STZ     OCTAL+2                                                  F0E12740
       STZ     OCTAL+3                                                  F0E12750
       STZ     BINRY          DELETE POSSIBLE TAPE ADDRESS              F0E12760
       STZ     OPRFG          RESET FLAG FOR UNDEFINED OPERATION        F0E12770
       STL     ERRFO          SET OPERATION ERROR FLAG                  F0E12780
       STL     TYPAF          TREAT UNDEFINED OP AS TYPE A INSTRUCTION  F0E12790
       SLT     EXPRR          IS UNDEFINED OP MACHINE OP                F0E12800
       TRA     INT17+3        NO, IT IS UNDEFINED PSEUDOOPERATION       F0E12810
       TRA     INT03          YES, SCAN VARIABLE FIELD                  F0E12820
       REM     OPERATION CODE FOUND                                     F0E12830
 INT00 STI     OFLGS          SAVE FLAGS                                F0E12840
       TSX     IFLGS,4       *SET INSTRUCTION LISTING FLAGS             F0E12850
       RIR     017777         DELETE FLAGS FROM ADDRESS FIELD           F0E12860
       PIA                                                              F0E12870
       ANA     OPMSK          DELETE FLAGS FROM TAG, DECREMENT FIELDS   F0E12880
       ORS     BINRY          SAVE OPCODE                               F0E12890
       TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E12900
       REM     REENTRY FOR UNDEFINED MACHINE OP                         F0E12910
 INT03 LXD     VRFLD,2        RELOAD VARIABLE FIELD WORD COUNT          F0E12920
       LXA     VRFLD,1        RELOAD VARIABLE FIELD CHARACTER COUNT     F0E12930
       CAL     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0E12940
       ERA     EQUAL          TEST FOR LITERAL                          F0E12950
       NZT     TYPDF          IS THIS TYPE D INSTRUCTION                F0E12960
       TRA     INT04          NO                                        F0E12970
       TZE     INT05          YES, IS ADDRESS FIELD A LITERAL           F0E12980
       STL     BOLMD          NO, SET FLAG FOR OCTAL SCAN               F0E12990
       TSX     SCANF,4       *EVALUATE ADDRESS                          F0E13000
       TXL     FLAGA,,0       NULL ADDRESS                              F0E13010
       SLT     EXPRR          IS ADDRESS FIELD IN ERROR                 F0E13020
       TRA     INT12          NO                                        F0E13030
       TRA     INT05          YES                                       F0E13040
       REM     REENTRY FOR NON BOOLEAN MACHINE OPERATIONS               F0E13050
 INT04 TZE     LITOP          IS ADDRESS FIELD A LITERAL                F0E13060
       TSX     SCANF,4       *NO, EVALUATE ADDRESS                      F0E13070
       TXL     FLAGA,,0       NULL ADDRESS FIELD                        F0E13080
       SLT     EXPRR          IS ADDRESS FIELD IN ERROR                 F0E13090
       TRA     INT06          NO                                        F0E13100
       REM     REENTRY FOR BOOLEAN ADDRESS, LITERAL IN ERROR            F0E13110
 INT05 CAL     BLANK          BLANK OUT ADDRESS FIELD                   F0E13120
       ORS     OCTAL+2                                                  F0E13130
       CAL     BLANKS                                                   F0E13140
       ORS     OCTAL+3                                                  F0E13150
       SXA     BINRY,0        DELETE ADDRESS BITS                       F0E13160
       NZT     TYPDF          IS THIS BOOLEAN MACHINE OPERATION         F0E13170
       TRA     INT07          NO                                        F0E13180
       STL     ERRFB          YES, SET ERROR FLAG                       F0E13190
       TRA     INT08                                                    F0E13200
       REM     REENTRY FOR ADDRESS FIELD, LITERAL SUCCESSFULY EVALUATED F0E13210
 INT06 ORS     BINRY          INSERT ADDRESS FIELD BITS                 F0E13220
       CAL     RBITS          INSERT ADDRESS FIELD RELOCATION BITS      F0E13230
       SLW     INDIC                                                    F0E13240
       ZET     704FG          IS ASSEMBLY IN 704 MODE                   F0E13250
       TRA     INT07          YES                                       F0E13260
       CLA     BINRY          NO, LOAD OPERATION CODE                   F0E13270
       ARS     6              RIGHT ADJUST, LESS SIGN               (20)F0E13280
       PDX     ,4                                                       F0E13290
       TXL     INT07,4,495    IS THIS I/O INSTRUCTION                   F0E13300
       TXH     INT07,4,506    NO                                        F0E13310
       PXA     ,4             MAYBE, IT IS BETWEEN 0760 AND 0772        F0E13320
       LBT                    IS IT 0761,0763,0765,0767,0771            F0E13330
       TRA     *+2            NO, IT IS 0760,0762,0764,0766,0770,0772   F0E13340
       TRA     INT07          YES, NOT AN I/O INSTRUCTION               F0E13350
       CAL     BINRY          LOAD OPERATION CODE                       F0E13360
       ARS     9              ISOLATE CHANNEL DESIGNATION               F0E13370
       ANA     Q15                                                      F0E13380
       LAS     CHANS          IS CHANNEL DESIGNATION PROPER             F0E13390
       STL     ERRFN          NO, SET ERROR FLAG                        F0E13400
       NOP                                                              F0E13410
       REM     REENTRY FOR NON BOOLEAN ADDRESS FIELD IN ERROR           F0E13420
 INT07 TSX     SCANF,4       *EVALUATE TAG FIELD                        F0E13430
       TXL     FLAGT,,0       NULL TAG FIELD                            F0E13440
       NZT     RBITS          IS TAG FIELD RELOCATABLE                  F0E13450
       TRA     *+3            NO                                        F0E13460
       STL     ERRFR          YES, SET ERROR FLAG                       F0E13470
       TRA     INT08                                                    F0E13480
       SLT     EXPRR          IS TAG FIELD IN ERROR                     F0E13490
       TRA     INT09          NO                                        F0E13500
       REM     REENTRY FOR BOOLEAN ADDRESS FIELD IN ERROR               F0E13510
 INT08 CAL     BLANK          PREPARE TO BLANK OUT OFFENDING FIELD      F0E13520
       ALS     6              POSITION IN HIGH ORDER BOOLEAN ADDRESS    F0E13530
       NZT     TYPDF          IS THIS BOOLEAN FIELD                     F0E13540
       ALS     6              NO, POSITION IN TAG FIELD                 F0E13550
       ORS     OCTAL+2                                                  F0E13560
       NZT     TYPDF          IS THIS BOOLEAN FIELD                     F0E13570
       TRA     INT10          NO                                        F0E13580
       TRA     INT12+1        YES                                       F0E13590
       REM     REENTRY FOR TAG FIELD NOT IN ERROR                       F0E13600
 INT09 ANA     Q7             REDUCE TAG MODULO 8                       F0E13610
       ALS     15             POSITION IN TAG FIELD                     F0E13620
       ORS     BINRY          INSERT IN WORD                            F0E13630
       REM     REENTRY FOR TAG FIELD IN ERROR                           F0E13640
 INT10 TSX     SCANF,4       *EVALUATE DECREMENT FIELD                  F0E13650
       TXL     FLAGD,,0       NULL DECREMENT FIELD                      F0E13660
       SLT     EXPRR          IS DECREMENT FIELD IN ERROR               F0E13670
       TRA     INT11          NO                                        F0E13680
       NZT     TYPAF          YES, IS THIS TYPE A 0 00000 0 00000 INSTR F0E13690
       TRA     *+4            NO, IT IS TYPE B 0000 00 0 00000          F0E13700
       CAL     BLANKS         YES DELETE OCTAL CHARACTERS 2, 3, 4       F0E13710
       ARS     18             (BITS 3 - 11)                             F0E13720
       ORS     OCTAL+1                                                  F0E13730
       CAL     BLANKS         AS WELL AS OCTAL CHARACTERS 5, 6          F0E13740
       ALS     24             (BITS 12 - 17)                            F0E13750
       ORS     OCTAL+2                                                  F0E13760
       PXD     ,0             DELETE DECREMENT FIELD                    F0E13770
       REM     REENTRY FOR DECREMENT FIELD NOT IN ERROR                 F0E13780
 INT11 LXA     RBITS,4        LOAD DECREMENT RELOCATION BITS            F0E13790
       SXD     INDIC,4        SET DECREMENT RELOCATION BITS             F0E13800
       ALS     18             REPOSITION DECREMENT                      F0E13810
       ORS     BINRY          INSERT IN WORD                            F0E13820
       ZET     TYPAF          IS THIS TYPE A INSTRUCTION                F0E13830
       TRA     INT12+1        YES                                       F0E13840
       TZE     INT12+1        NO, HAS TYPE B, C, E INSTR DECREMENT      F0E13850
       SXD     ERRFR,4        YES, SET ERROR FLAG IF RELOCATABLE        F0E13860
       ZET     TYPCF          IS THIS A TYPE C INSTRUCTION              F0E13870
       ANA     D32512         YES, MASK OUT 8-BIT COUNT FIELD           F0E13880
       STO     ERRFD          SET FLAG IF TOO LONG                      F0E13890
       REM     REENTRY FOR BOOLEAN ADDRESS NOT IN ERROR, DIRECT ADDRESS F0E13900
 INT12 ORS     BINRY                                                    F0E13910
       ZET     INDFG          IS INDIRECT ADDRESS REQUIRED              F0E13920
       TRA     INT14          YES                                       F0E13930
       LDI     BINRY          NO, DID INDIRECT ADDRESS BITS             F0E13940
       CAL     D48            SNEAK INTO DECREMENT                      F0E13950
       NZT     TYPAF          MAYBE, IS THIS TYPE B, C, D, E INSTRUCTIONF0E13960
       TIO     *+2            YES                                       F0E13970
       TRA     INT15          NO                                        F0E13980
       NZT     ERRFO          IS OPERATION UNDEFINED                    F0E13990
       STL     ERRFI          NO, SET ERROR FLAG                        F0E14000
       TRA     INT17                                                    F0E14010
 INT14 CAL     OFLGS          LOAD FIELD FLAGS                          F0E14020
       ANA     IMASK          IS THIS OPCODE PERMITTED INDIRECT ADDRESS F0E14030
       NZT     704FG          MAYBE, IS ASSEMBLY IN 7090 MODE           F0E14040
       TNZ     *+3            YES                                       F0E14050
       NZT     ERRFO          NO, IS OPERATION UNDEFINED                F0E14060
       STL     ERRFI          NO, SET ERROR FLAG                        F0E14070
       NZT     TYPAF          IS OPERATION TYPE A                       F0E14080
       CAL     D48            NO, LOAD DECREMENT INDIRECT ADDRESS BITS  F0E14090
       ZET     TYPAF          IS OPERATION TYPE A                       F0E14100
       CAL     T4             YES, LOAD TAG INDIRECT ADDRESS BIT        F0E14110
       ORS     BINRY          INSERT IN WORD                            F0E14120
       REM     REENTRY FOR TYPE A INSTRUCTION NOT INDIRECTLY ADDRESSED  F0E14130
 INT15 ZET     TYPKF          IS THIS A TYPE K 00 0000 0 00000 COMMAND  F0E14140
       NZT     TYPCF          YES, DOES IT HAVE HIGH ORDER COUNT FIELD  F0E14150
       TRA     INT17          NO                                        F0E14160
       TSX     SCANF,4       *YES, EVALUATE ADDITIONAL OP/COUNT FIELD   F0E14170
       TXL     INT17,,0       NULL ADDITIONAL FIELD                     F0E14180
       NZT     RBITS          IS ADDITIONAL FIELD RELOCATABLE           F0E14190
       TRA     *+3            NO                                        F0E14200
       STL     ERRFR          YES, SET ERROR FLAG                       F0E14210
       TRA     *+3                                                      F0E14220
       SLT     EXPRR          IS ADDITIONAL FIELD IN ERROR              F0E14230
       TRA     INT16          NO                                        F0E14240
       CAL     BLANK          YES, BLANK OUT ADDITIONAL FIELD           F0E14250
       ALS     18                                                       F0E14260
       ORS     OCTAL+1                                                  F0E14270
       TRA     INT17                                                    F0E14280
       REM     ADDITIONAL OP/COUNT FIELD NOT IN ERROR                   F0E14290
 INT16 ANA     Q7             MASK IN ONE CHARACTER                     F0E14300
       ALS     30             POSITION IN OP/COUNT FIELD                F0E14310
       ORS     BINRY          INSERT IN WORD                            F0E14320
       REM     REENTRY FOR NO ADDITIONAL FIELD, OR FIELD IN ERROR       F0E14330
 INT17 CAL     CHRCTR         LOAD FOLLOWING CHARACTER                  F0E14340
       ERA     BLANK          IS IT BLANK                               F0E14350
       SLW     ERRFF          SET ERROR FLAG IF NOT                     F0E14360
       REM     REENTRY FOR IMPROPER OPCODE OR PSEUDOOPERATION           F0E14370
       TSX     PRNTI,4       *LIST AND PUNCH THIS INSTRUCTION           F0E14380
       TRA     READ1                                                    F0E14390
       REM                                                              F0E14400
       REM                                                              F0E14410
       REM     END OF SECOND INTERMEDIATE TAPE                          F0E14420
 ENDFA LXD     SLIT3,4        LOAD BASE ADDRESS FOR LITERALS            F0E14430
       PXA     ,4                                                       F0E14440
       ERA     CDCTR          COMPARE WITH CURRENT LOAD ADDRESS         F0E14450
       SXA     CDCTR,4        RESET CARD ORIGIN COUNTER TO BASE ADDRESS F0E14460
       SXA     LOCTR,4        RESET PROGRAM COUNTER TO BASE ADDRESS     F0E14470
       SXA     ADDRS,4                                                  F0E14480
       PAX     ,4             LOAD LENGTH OF EFFECT BSS FOLLOW LAST CARDF0E14490
       TXL     *+2,4,0        IS EFFECTIVE BSS 0                        F0E14500
       TSX     PUNCH,4       *NO, PUNCH LAST PARTIAL CARD               F0E14510
       LDC     LITSIZ,1       LOAD LENGTH OF LITERAL TABLE              F0E14520
       TXL     ENDF1+1,1,0    IS LITERAL TABLE EMPTY                    F0E14530
       SXD     ENDF1,1        NO, SET END OF LITERAL TABLE LOOP         F0E14540
       TSX     PRLST,4       *PRINT BLANK LINE                          F0E14550
       PZE                                                              F0E14560
       TSX     PRLST,4       *PRINT LITERAL TABLE TITLE                 F0E14570
       IOCD    LITIT,,5                                                 F0E14580
       AXT     5,4            RESET LENGTH OF LISTING LINE TO SHORT     F0E14590
       SXD     IOLST,4        TO PRINT ONLY OCTAL EXPANSION             F0E14600
       AXT     0,1            START AT BOTTOM OF TABLE                  F0E14610
       STZ     INDIC                                                    F0E14620
       CAL     LITTBL,1       LOAD NEXT LITERAL                         F0E14630
       SLW     BINRY                                                    F0E14640
       TSX     PRNTW,4       *LIST AND PUNCH DATA WORD                  F0E14650
       TXI     *+1,1,-1       BUMP COUNT OT NEXT LITERAL                F0E14660
 ENDF1 TXH     *-4,1,**       IS LITERAL TABLE EXHAUSTED                F0E14670
       REM     REENTRY FOR NO LITERAL TABLE                             F0E14680
       TSX     PUNCH,4       *PUNCH LAST PARTIAL CARD                   F0E14690
 ENDFB TXH     *+2,4,-1       IS TRANSFER ADDRESS VALID                 F0E14700
       TSX     PCHTC,4       *YES, PUNCH TRANSFER CARD                  F0E14710
       STL     TTLFG          SET SUBTITLE FLAG                         F0E14720
       LDI     REFHD          RESET SUBTITLE PARAMETER                  F0E14730
       STI     IOHED          TO PRINT 'POST PROCESSOR ASSEMBLY DATA'   F0E14740
       SXA     PAGENO,0       RESET PAGE NUMBER                         F0E14750
       SXA     PAGCNT,0       EJECT PAGE                                F0E14760
       STZ     UNLSF          RESET HANGING UNLIST FLAGS                F0E14770
       STZ     UNL1F                                                    F0E14780
       STZ     TITLF                                                    F0E14790
       CAL     LOCTR          LOAD LAST ADDRESS+1                       F0E14800
       TSX     SHIFT,4       *CONVERT TO OCTAL                          F0E14810
       ALS     6              APPEND FOLLOWING BLANK                    F0E14820
       ORA     BLANK                                                    F0E14830
       SLW     PGTIT+1                                                  F0E14840
       ZET     ABSFLG         IS ASSEMBLY ABSOLUTE                      F0E14850
       TRA     ENDFC          YES                                       F0E14860
       SXD     LOCTR,0        NO, DELETE RELOCATION BIT                 F0E14870
       CAL     UPCTR          LOAD LAST COMMON ASSIGNMENT               F0E14880
       TZE     ENDFC          DOES COMMON EXIST                         F0E14890
       TSX     SHIFT,4       *YES, CONVERT TO OCTAL                     F0E14900
       SLW     CBTIT+1                                                  F0E14910
       TSX     FPRINT,4      *PRINT COMMON BREAK                        F0E14920
       PZE     CBTIT,,10                                                F0E14930
       CLA     LOCTR          LOAD PROGRAM COUNTER                      F0E14940
       SUB     UPCTR          DID PROGRAM OVERLAP COMMON                F0E14950
       TMI     ENDFC          NO                                        F0E14960
       LDQ     EFLAG          YES, SET ERROR FLAG                       F0E14970
       STQ     PGTIT                                                    F0E14980
       STL     NOGOF          DELETE EXECUTION                          F0E14990
 ENDFC TSX     FPRINT,4      *PRINT PROGRAM BREAK                       F0E15000
       PZE     PGTIT,,10                                                F0E15010
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0E15020
       PZE                                                              F0E15030
       NZT     CRDFLG         ARE ONLINE CARDS REQUESTED                F0E15040
       TRA     PREF0          NO                                        F0E15050
       TSX    (TAPE),4       *YES, WRITE END FILE ON INTERMED PUNCH TAPEF0E15060
       MZE     ,,(WEFP)                                                 F0E15070
       PZE     BNTAP,,-1                                                F0E15080
       PZE     *+2                                                      F0E15090
       TRA     *+4                                                      F0E15100
       TSX    (PRNT),4       *LET OPERATOR KNOW ABOUT BAD END OF FILE   F0E15110
       PZE     CDERR,,13                                                F0E15120
       TSX     SPACP,2       *LET OPERATOR READ WARNING                 F0E15130
       TSX    (TAPE),4       *REWIND INTERMEDIATE PUNCH TAPE            F0E15140
       PZE     REWND,,(SKBP)                                            F0E15150
       PZE     BNTAP,,-1                                                F0E15160
       REM     LIST SYMBOLIC REFERENCE TABLE ENTRIES                    F0E15170
 PREF0 TXH     PREF9,4,-1     IS UNDEFINED SYMBOL TABLE COMPLETE        F0E15180
       LXD     SYMSIZ,1       NO, LOAD LENGTH OF SYMBOL TABLE           F0E15190
       TXH     PRUDS,4,-1     HAVE DEFINED SYMBOLS BEEN LISTED          F0E15200
       SXD     *-1,0          NO, RESET SWITCH                          F0E15210
       TXL     PRUDS,1,2      IS DEFINED SYMBOL TABLE EMPTY             F0E15220
       TXI     PREF1,1,2      NO                                        F0E15230
       REM     DEFINED SYMBOLS HAVE BEEN LISTED                         F0E15240
 PRUDS AXT     -1,4           RESET SWITCH                              F0E15250
       SXD     PREF6,4        TO FORCE PRINTING                         F0E15260
       SXD     PREF0,0        RESET UNDEFINED SYMBOL SWITCH             F0E15270
       SXD     PREFS,0        DELETE REF TABLE HEADING                  F0E15280
       SXD     *+2,1          SET BOTTOM OF UNDEFINED SYMBOL TABLE      F0E15290
       LDC     SUDS1,4        LOAD TOP OF UNDEFINED SYMBOL TABLE        F0E15300
       TXL     PREF9,4,**     IS UNDEFINED SYMBOL TABLE EMPTY           F0E15310
       TSX     FPRINT,4      *NO, PRINT UNDEFINED REFERENCE HEADING     F0E15320
       PZE     USTIT,,6                                                 F0E15330
       TXI     *+1,1,LUDTBM   BUMP COUNT TO TOP OF UDS TABLE            F0E15340
       SXD     SYMSIZ,1                                                 F0E15350
       AXT     LUDTBM+4,1     LOAD COUNT OF FIRST UNDEFINED SYMBOL      F0E15360
       CAL     EREF2          UDS TABLE IS OFFSET BY 2 TO LIST THEM     F0E15370
       ADD     Q2             EVEN IF NO DEFINED SYMBOL APPEAR          F0E15380
       STA     EREF2          NOW IT MUST BE CORRECTED                  F0E15390
       REM     REENTRY FOR DEFINED SYMBOLS                              F0E15400
 PREF1 CLA     SYMSIZ         COMPUTE ORIGIN AT END OF SYMBOL TABLE     F0E15410
       ARS     18                                                       F0E15420
       ADD     SSYM5                                                    F0E15430
       ADD     Q1                                                       F0E15440
       STA     PREF3          INITIALIZE TEST FOR END OF REF TABLE      F0E15450
       STA     PREF4          INITIALIZE LOAD FOR SYMBOL NAME           F0E15460
       ADD     Q1                                                       F0E15470
       STA     PREF5          INITIALIZE LOAD FOR SYMBOL DEFINITION     F0E15480
       CLA     SYMSIZ         COMPUTE ORIGIN AT END OF POINTER TABLE    F0E15490
       ARS     18                                                       F0E15500
       ADD     EREF2                                                    F0E15510
       STA     PREF6+1        INITIALIZE LOAD FOR POINTER               F0E15520
       REM     REENTRY TO START NEXT LINE                               F0E15530
 PREF2 ZET     PRTIF          IS THIS A CONTINUATION LINE               F0E15540
       TRA     *+3            YES                                       F0E15550
       REM     REENTRY TO LIST NEXT SYMBOL                              F0E15560
       TXI     *+1,1,-2       BUMP COUNT TO NEXT SYMBOL                 F0E15570
       TXL     PREF0,1,2      IS TABLE EXHAUSTED                        F0E15580
       AXT     20,2           NO, LOAD LENGTH OF LISTING LINE           F0E15590
       CAL     BLANKS         BLANK OUT LINE                            F0E15600
       SLW     BBUF22+20,2                                              F0E15610
       TIX     *-1,2,1                                                  F0E15620
       ZET     PRTIF          IS THIS A CONTINUATION LINE               F0E15630
       TRA     PREF7          YES                                       F0E15640
 PREF3 CAL     **,1           LOAD NEXT NAME IN SYMBOL TABLE            F0E15650
       TZE     PREF9          IS TABLE EXHAUSTED                        F0E15660
       STZ     BERAS          NO, RESET REDUNDANCY TEST                 F0E15670
 PREF4 LDQ     **,1           LOAD SYMBOL NAME                          F0E15680
       LGL     6              SHIFT IN FIRST (HEADING) CHARACTER        F0E15690
       ANA     Q63            MASK IN CHARACTER                         F0E15700
       TNZ     *+2            DOES IT EXIST                             F0E15710
       CAL     BLANK          NO, APPEND LEADING BLANK                  F0E15720
       SLW     ERASE                                                    F0E15730
       AXT     30,4           PREPARE TO SCAN FOLLOWING FIVE CHARACTERS F0E15740
       PXD     ,0                                                       F0E15750
       LGL     6              LOAD NEXT CHARACTER                       F0E15760
       TNZ     *+2            DOES IT EXIST                             F0E15770
       TIX     *-2,4,6        NO, TRY AGAIN                             F0E15780
       LGR     6              SAVE NONBLANK CHARACTER                   F0E15790
       CAL     BLANKS         APPEND LEADING BLANKS                     F0E15800
       LGR     30,4           LEFT ADJUST FIVE CHARACTERS               F0E15810
       CAL     ERASE          APPEND FIRST (HEADING) CHARACTER          F0E15820
       LGR     6                                                        F0E15830
       STQ     BBUF22+2       INSERT IN WORD 2                          F0E15840
 PREF5 CAL     **,1           LOAD SYMBOL DEFINITION                    F0E15850
       PAI                    HOLD POSSIBLY DOUBLY DEFINED FLAG         F0E15860
       TSX     SHIFT,4       *ASSEMBLE OCTAL LOCATION                   F0E15870
       SLW     ERASE          SAVE BCD DEFINITION                      $F0E15880
       ALS     6              APPEND BLANK TO LOW ORDER                $F0E15890
       ORA     BLANK          FIVE CHARACTERS                          $F0E15900
       SLW     BBUF22+1       INSERT IN WORD 1                         $F0E15910
       LDQ     ERASE          RECALL SIXTH CHARACTER                   $F0E15920
       CAL     MFLAG          PREPARE M FLAG                           $F0E15930
       ARS     6              SHIFTED OVER                             $F0E15940
       TRA     PREFP          TO PATCH                                 $F0E15950
 PREF6 TXH     PREF2,2,-1     IS SYMBOL TABLE SUPPRESSED                F0E15960
       CLA     **,1           NO, LOAD POINTER                          F0E15970
       STA     DCBFG          YES, SAVE LOCATION OF FIRST REFERENCE     F0E15980
       STL     PRTIF          SET FLAG TO OMIT COMMA                    F0E15990
 PREF7 AXT     17,2           LOAD LENGTH OF REST OF LINE               F0E16000
       TRA     K001            GO CHECK FOR REF-TBL OVERFLOW.       (32)F0E16010
       CLA*    DCBFG           LOAD SUBSEQUENT REFERENCE TO SYMBOL. (32)F0E16020
       TSX     SHIFT,4       *ASSEMBLE OCTAL LOCATION                   F0E16030
       LAS     BERAS          IS THIS REDUNDANT                         F0E16040
       TRA     *+2            NO                                        F0E16050
       TXI     PREF8+1,2,1    YES, IGNORE IT                            F0E16060
       SLW     BERAS          SAVE FOR NEXT TEST                        F0E16070
       NZT     PRTIF          IS THIS FIRST LOCATION ON LINE            F0E16080
       ORA     RCOMA          NO, APPEND LEADING COMMA                  F0E16090
       SLW     BBUF22+20,2    INSERT IN NEXT WORD                       F0E16100
 PREF8 STZ     PRTIF          RESET FIRST LOCATION FLAG                 F0E16110
       NZT     DCBFG          IS THERE ANOTHER REFERENCE                F0E16120
       TRA     *+4            NO                                        F0E16130
       TIX     PREF7+2,2,1    YES, IS LINE FULL                         F0E16140
       STL     PRTIF          YES, SET CONTINUATION LINE FLAG           F0E16150
       TRA     PREFS                                                    F0E16160
       REM     REFERENCES TO THIS SYMBOL EXHAUSTED                      F0E16170
       NZT     PRTIF          IS THIS FIRST REFERENCE ON THIS LINE      F0E16180
       TRA     PREFS          NO                                        F0E16190
       STZ     PRTIF          YES, RESET CONTINUATION LINE FLAG         F0E16200
       TRA     PREF2                                                    F0E16210
       REM     PRINT LINE IN SYMBOLIC REFERENCE TABLE                   F0E16220
 PREFS TXH     *+4,4,-1       HAS REF TABLE HEADING BEEN PRINTED        F0E16230
       SXD     *-1,0          NO, RESET SWITCH                          F0E16240
       TSX     FPRINT,4      *PRINT REFERENCE TABLE HEADING             F0E16250
       PZE     RFTIT,,6                                                 F0E16260
       TXI     *+1,2,-21      COMPUTE LENGTH OF LINE                    F0E16270
       PXA     ,2                                                       F0E16280
       PAC     ,2                                                       F0E16290
       SXA     *+4,1          SAVE TABLE COUNT                          F0E16300
       SXD     *+2,2          INITIALIZE PARAMETER                      F0E16310
       TSX     FPRINT,4      *PRINT LINE                                F0E16320
       PZE     BBUF22,,**                                               F0E16330
       AXT     **,1           RELOAD TABLE COUNT                        F0E16340
       TRA     PREF2                                                    F0E16350
       REM     END OF REFERENCE TABLE                                   F0E16360
 PREF9 TXL     *+3,4,-1       DID REFERENCE TABLE OVERFLOW              F0E16370
       TSX     FPRINT,4      *YES, PRINT MESSAGE                        F0E16380
       PZE     REFOV,,11                                                F0E16390
       TSX     FPRINT,4      *PRINT BLANK LINE                          F0E16400
       PZE                                                              F0E16410
       AXT     8,4            PREPARE TO PRINT 'EXECUTION DELETED'      F0E16420
       NZT     NOGOF          WAS THERE AN ASSEMBLY ERROR               F0E16430
       TXI     ENDF4,4,-3     NO, DELETE 'EXECUTION DELETED'            F0E16440
       LDQ     ERTIT          YES, DELETE 'NO'                          F0E16450
       STQ     ERTIT+1                                                  F0E16460
       CLS     ENDF4+2        FORCE PRINTING                            F0E16470
       STO     ENDF4+2                                                  F0E16480
       TSX     SSJOB,2        SET SYSJOB AND GET FLAGBX                $F0E16490
       RNT     200            IS EXECUTION REQUESTED                    F0E16500
       TXI     ENDF4,4,-3     NO, DELETE 'EXECUTION DELETED'            F0E16510
       RIR     200            YES, DELETE EXECUTION                     F0E16520
       STI*   (FGBX)                                                    F0E16530
 ENDF4 SXD     *+2,4          INITIALIZE I/O COMMAND WORD COUNT         F0E16540
       TSX     FPRINT,4      *PRINT FINAL MESSAGE                       F0E16550
       PZE     ERTIT+1,,**                                              F0E16560
       LXD     WRIT1,4        LOAD ONLINE PRINT SWITCH                  F0E16570
       TXH     *+3,4,0        IS ONLINE PRINT REQUESTED                 F0E16580
       TSX    (PRNT),4       *YES, EJECT PAGE                           F0E16590
       PZE     PGHDNG,,1                                                F0E16600
       NZT     ABSFLG         IS THIS ASSEMBLY ABSOLUTE                 F0E16610
 ERRRS NZT     NOGOF          NO, IS RELOCATABLE ASSEMBLY ERROR FREE    F0E16620
       TRA     ENDF5          YES                                       F0E16630
       SXD     BNRECT,0       NO, DELETE TAPE NUMBER                    F0E16640
       TSX    (TAPE),4       *ERASE OFFLINE OUTPUT                      F0E16650
       PZE     BNRECT,,(SKBP)                                           F0E16660
       PZE     BOTTAP,,-1                                               F0E16670
       TSX    (TAPE),4       *WRITE EPITAPH                             F0E16680
       PZE     FAILD,,(WROW)                                            F0E16690
       PZE     BOTTAP,,-1                                               F0E16700
       PZE     *+1                                                      F0E16710
       NZT     CRDFLG         ARE ONLINE CARDS REQUESTED                F0E16720
       TRA     *+3            NO                                        F0E16730
       TSX    (PNCH),4       *YES, PUNCH EPITAPH                        F0E16740
       PZE     FAILD+2,,24                                              F0E16750
       TRA     BIN05+3                                                  F0E16760
 ENDF5 NZT     CRDFLG         ARE ONLINE CARDS REQUESTED                F0E16770
       TRA     BIN05+3        NO                                        F0E16780
       STL*    BIN01+3        YES, DELETE POSSIBLE HANGING END FILE     F0E16790
       REM     OUTPUT CARDS ON LINE                                     F0E16800
 BINCP AXT     BOTTAB-24,2    RESET ORIGIN OF OUTPUT BUFFER             F0E16810
       TXI     *+1,2,24       BUMP TO ORIGIN OF NEXT CARD               F0E16820
       SXA     *+5,2          INITIALIZE I/O COMMAND LOAD POINT         F0E16830
       TSX    (TAPE),4       *READ INTERMEDIATE TAPE BINARY CARD IMAGE  F0E16840
       PZE     *+3,,(RBEP)                                              F0E16850
       PZE     BNTAP,,-1                                                F0E16860
       PZE     BIN05          ALL DONE IN CASE OF ERROR                 F0E16870
       IORT    **,,24         (NOP)                                     F0E16880
       NZT*    BIN01+3        IS THIS END OF INTERMEDIATE TAPE          F0E16890
       TXI     BIN00,2,-48    YES, BUMP COUNT TO NUMBER OF CARDS READ   F0E16900
       TXL     BINCP+1,2,TOPTAB-25  NO, IS BUFFER FULL                  F0E16910
       TSX    (TAPE),4       *YES, CHECK LAST CARD READ                 F0E16920
       PZE     TINTAP,,(CHKU)                                           F0E16930
 BIN00 SXD     BIN01+2,2      SET END OF BUFFER TEST                    F0E16940
       AXT     BOTTAB,2       RESET ORIGIN OF OUTPUT BUFFER             F0E16950
       SXA     *+2,2          TO BOTTOM OF TABLE SPACE                  F0E16960
       TSX    (PNCH),4       *PUNCH CARD                                F0E16970
 BIN01 MZE     **,,24         (RESET TO PZE FOR ROW BINARY CARDS)       F0E16980
       TXI     *+1,2,24       BUMP TO ORIGIN OF NEXT CARD               F0E16990
       TXL     *-4,2,**       IS BUFFER EXHAUSTED                       F0E17000
       ZET    (SCHU)+TINTAP   YES, WAS END OF INTERMEDIATE TAPE SENSED  F0E17010
       TRA     BINCP          NO                                        F0E17020
       REM     END OF BINARY INTERMEDIATE TAPE SENSED                   F0E17030
       NZT     MAINPF         IS THIS MAIN PROGRAM                      F0E17040
       TRA     BIN04          NO                                        F0E17050
       NZT     ABSFLG         YES, IS ASSEMBLY ABSOLUTE                 F0E17060
       ZET     ONLCFG         NO, ARE COLUMN BINARY CARDS REQUESTED     F0E17070
       TRA     BIN04          YES                                       F0E17080
       TSX    (PNCH),4       *NO, PUNCH ROW BINARY TRANSFER CARD        F0E17090
       PZE     P4,,1          FOR GOOD RELOCATABLE ASSEMBLY OF MAIN PROGF0E17100
 BIN04 TSX    (PNCH),4       *PUNCH TWO BLANK CARDS                     F0E17110
       PZE     Q0,,1                                                    F0E17120
       TSX    (PNCH),4       *                                          F0E17130
       PZE     Q0,,1                                                    F0E17140
 BIN05 TSX    (TAPE),4       *REWIND INTERMEDIATE TAPE                  F0E17150
       PZE     REWND,,(SKBP)                                            F0E17160
       PZE     BNTAP,,-1                                                F0E17170
       TSX     WRFBK,4       *WRITE LAST PARTIAL LISTING BLOCK          F0E17180
       TSX    (TAPE),4       *CLOSE OUT MONITOR BINARY TAPE             F0E17190
       PZE     MBNTAP,,(CHKU)                                           F0E17200
       TSX    (TAPE),4       *CLOSE OUT MONITOR LISTING TAPE            F0E17210
       PZE     MLSTAP,,(CHKU)                                           F0E17220
       SLF                                                              F0E17230
       TRA     LOADER                                                   F0E17240
       TTL     PASS TWO PSEUDOOPERATION PROCESSOR                       F0E17250
 PSOPT PIA                    RECALL TRANSFER ADDRESS                   F0E17260
       ARS     18             ISOLATE PASS TWO TRANSFER                 F0E17270
       STA     *+1            INITIALIZE TRANSFER                       F0E17280
       TRA     **                                                       F0E17290
       REM                                                              F0E17300
 704OP STL     704FG          SET 704 MODE                              F0E17310
       CAL     Q16384         LOAD TEST FOR 704 INSTRUCTION             F0E17320
       STA     IFLGS          RESET TEST FOR PERMISSIBLE OPERATION      F0E17330
       CAL     Q8192          LOAD TEST FOR 7090 INSTRUCTION            F0E17340
       LDQ     9FLAG          LOAD ERROR FLAG FOR 7090 INSTRUCTION      F0E17350
       TRA     709OP+5                                                  F0E17360
       REM                                                              F0E17370
 709OP STZ     704FG          RESET 704 MODE                            F0E17380
       CAL     Q8192          LOAD TEST FOR 7090 INSTRUCTION            F0E17390
       STA     IFLGS          RESET TEST FOR PERMISSIBLE OPERATION      F0E17400
       CAL     Q16384         LOAD TEST FOR 704 INSTRUCTION             F0E17410
       LDQ     4FLAG          LOAD ERROR FLAG FOR 704 INSTRUCTION       F0E17420
       STA     IFLGS+2        RESET TEST FOR PROHIBITED INSTRUCTION     F0E17430
       STA     IFLGS+4                                                  F0E17440
       STQ     FLG49          RESET ERROR FLAG FOR PROHIBTD INSTRUCTION F0E17450
       CAL     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0E17460
       ERA     BLANK          IS IT BLANK                               F0E17470
       SLW     ERRFF          SET ERROR FLAG IF NOT                     F0E17480
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E17490
       TRA     READ1                                                    F0E17500
       REM                                                              F0E17510
 9LPOP TSX     PUNCH,4       *PUNCH PARTIAL FUL, ABS, OR 9LP CARD       F0E17520
       LXD     VRFLD,2        RELOAD WORD COUNT                         F0E17530
       LXA     VRFLD,1        RELOAD CHARACTER COUNT                    F0E17540
       TSX     SCANF,4       *EVALUATE PREFIX                           F0E17550
       TXI     AFLAG,,0       NULL PREFIX PUNCH                         F0E17560
       SLT     EXPRR          WAS PREFIX IN ERROR                       F0E17570
       TRA     *+2            NO                                        F0E17580
       STL     ERRFF          YES, SET FLAG                             F0E17590
       ALS     33             SHIFT PUNCH INTO PREFIX                   F0E17600
       STP     PBUFF1         INSERT IN 9L                              F0E17610
       STZ     FULMD          RESET FULL FLAG                           F0E17620
       STL     9LPMD          SET 9L FLAG                               F0E17630
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E17640
       STL     ERRFF          NO, SET FLAG                              F0E17650
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E17660
       TRA     READ1                                                    F0E17670
       REM                                                              F0E17680
 ABSOP NZT     FULMD          IS CARD FORMAT FULL                       F0E17690
       ZET     9LPMD          NO, IS IT A CONTROL CARD                  F0E17700
       TRA     *+2            YES                                       F0E17710
       TRA     ABS01          NO, IGNORE THIS CARD                      F0E17720
       TSX     PUNCH,4       *PUNCH PARTIAL FUL CARD                    F0E17730
       CLA     CDCTR          INSERT CARD ORIGIN COUNTER                F0E17740
       STO     PBUFF1         IN LOAD ADDRESS                           F0E17750
       STZ     FULMD          RESET FUL FLAG                            F0E17760
       STZ     9LPMD          RESET CONTROL CARD FLAG                   F0E17770
 ABS01 CAL     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0E17780
       ERA     BLANK          IS IT BLANK                               F0E17790
       SLW     ERRFF          SET ERROR FLAG IF NOT                     F0E17800
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E17810
       TRA     READ1                                                    F0E17820
       REM                                                              F0E17830
 BCDOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E17840
       CAL     BCDBF+1        LOAD CARD WORD 2                          F0E17850
       ANA     Q63            MASK IN COLUMN 12                         F0E17860
       LAS     BLANK          IS IT BLANK                               F0E17870
       TRA     *+2            NO                                        F0E17880
       PXD     ,0             YES (FULL CARD)                           F0E17890
       TZE     BCI02+2        NO, IS IT ZERO (FULL CARD)                F0E17900
       LAS     Q10            NO, IS IT DIGIT                           F0E17910
       TRA     BCERR        **NO                                        F0E17920
       TSX     MACERR,4     **CHARACTER IS BCD 10                       F0E17930
       TRA     BCI02+3        YES                                       F0E17940
       REM                                                              F0E17950
 BCIOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E17960
       CAL     CHRCTR         LOAD FIRST CHARACTER                      F0E17970
       TZE     BCI00          IS IT ZERO                               $F0E17980
       LAS     COMMA          NO, IS IT COMMA (FULL CARD)               F0E17990
       TRA     BCERR        **NO                                        F0E18000
       TRA     BCI02          YES                                       F0E18010
       LAS     Q10            NO, IS IT DIGIT                           F0E18020
       TRA     BCERR        **NO                                        F0E18030
       TSX     MACERR,4     **CHARACTER IS BCD 10                       F0E18040
       ADM     BCIWD          YES, COMPUTE ADDRESSES                (24)F0E18050
       STA     BCI01          ENDING ALPHANUMERIC FIELD             (24)F0E18060
       ADM     Q1             AND INITIALIZE STORING LOOP           (24)F0E18070
       STA     BCI01+1                                              (24)F0E18080
       LDQ     VRFLD          LOAD VARIABLE FIELD CHARACTER         (24)F0E18090
       VLM     Q6,,15         POSITION AND CONVERT TO BITS          (24)F0E18100
       LLS     15             FOR AMOUNT OF SHIFT NECESSARY         (24)F0E18110
 BCIWD PAX     BCDBF+2,1     (THIS ADDRESS USED AS A CONSTANT)      (24)F0E18120
       TXL     *+2,2,-2       DID VARIABLE FIELD BEGIN BY CC 12     (24)F0E18130
       TXI     *+1,1,36       YES, ADJUST SHIFT                     (24)F0E18140
       LXA     CHRCTR,2       LOAD COUNT OF BCI WORDS               (24)F0E18150
 BCI01 CAL     **,2           LOAD FIRST PART OF WORD               (24)F0E18160
       LDQ     **,2           LOAD REMAINDER, IF ANY                (24)F0E18170
       LGL     54,1           POSITION IN AC                        (24)F0E18180
       SLW     BINRY          SET BINARY WORD                       (24)F0E18190
       TSX     PRNTW,4       *LIST AND PUNCH THIS DATUM WORD        (24)F0E18200
       TIX     BCI01,2,1      IS CARD EXHAUSTED                         F0E18210
       TRA     READ1          YES                                       F0E18220
       REM     FIRST CHARACTER IS COMMA                                 F0E18230
 BCI02 TXH     BCERR,1,2    **IS COMMA IN CC 12                         F0E18240
       TXL     BCERR,1,1    **NO                                        F0E18250
       REM     REENTRY FOR BCD CARD OF TEN WORDS                        F0E18260
       CLA     Q10            YES, SET WORD COUNT TO 10 WORDS           F0E18270
       REM     REENTRY FOR BCD CARD OF FEWER THAN TEN WORDS             F0E18280
       PAX     ,1             LOAD CARD WORD COUNT                     $F0E18290
       PAX     ,2                                                      $F0E18295
       TXI     *+1,1,BCDBF+2  COMPUTE ORIGIN AT END OF HOLLERITH FIELD  F0E18300
       SXA     *+1,1                                                    F0E18310
       CAL     **,2           LOAD NEXT WORD                            F0E18320
       SLW     BINRY          SET BINARY WORD                           F0E18330
       TSX     PRNTW,4       *LIST AND PUNCH THIS DATUM WORD            F0E18340
       TIX     *-3,2,1        IS CARD EXHAUSTED                         F0E18350
       TRA     READ1          YES                                       F0E18360
       REM     COUNT IS IN ERROR                                        F0E18370
 BCERR STL     ERRFE          SET ERROR FLAG                            F0E18380
       CAL     BLANKS         DELETE ERROR WORD                         F0E18390
       SLW     BINRY                                                    F0E18400
       TSX     PRNTW,4       *LIST AND PUNCH THIS ERROR WORD            F0E18410
       TRA     READ1                                                    F0E18420
       REM                                                              F0E18430
 BESOP CAL     LITRL          LOAD LENGTH,,DEFINITION                   F0E18440
       TZE     BES01          IS THIS BSS/BES 0                         F0E18450
       ARS     18             NO, RECALL LOCATION OF SYMBOL             F0E18460
       ADD     LOCTR          COMPUTE LOCATION                          F0E18470
       STA     ADDRS                                                    F0E18480
 BES01 TSX     REFPP,4       *ENTER SYMBOL IN REF TABLE                $F0E18490
       CAL     LITRL          RECALL LENGTH OF BLOCK                   $F0E18500
       TSX     BPCTR,4       *BUMP PROGRAM COUNTER                     $F0E18510
       TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E18520
       TSX     PRNTL,4       *PRINT LOCATION LEFT ADJUSTED              F0E18530
       CAL     LITRL          RELOAD LENGTH,,DEFINITION                 F0E18540
       TZE     *+2            IS THIS BSS/BES 0                         F0E18550
       TSX     PUNCH,4       *NO, PUNCH PARTIAL CARD                    F0E18560
       TSX     PAK01,4        UPDATE CARD ORIGIN IN CASE CARD WAS EMPTY F0E18570
       TRA     READ1                                                    F0E18580
       REM                                                              F0E18590
 BOLOP STL     TYPDF          SET BOOLEAN FLAG FOR PRINT ROUTINE        F0E18600
       TSX     REFPP,4       *SCAN VARIABLE FIELD                       F0E18610
       REM     REENTRY FOR TAPENO                                       F0E18620
       TSX     REFLP,4       *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E18630
       CAL     LITRL          SET SYMBOL DEFINITION                     F0E18640
       SLW     ADDRS                                                    F0E18650
       TSX     PRNTR,4       *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E18660
       TRA     READ1                                                    F0E18670
       REM                                                              F0E18680
 ETCOP CAL     BCDBF          LOAD LOCATION FIELD                       F0E18690
       ERA     BLANKS         IS IT BLANK                               F0E18700
       SLW     ERRFF          SET ERROR FLAG IF NOT                     F0E18710
       CAL     BCDBF+13       LOAD FLAGS                                F0E18720
       ANA     Q2             MASK IN ETC FLAG                          F0E18730
       SLW     ETCMD          SET FLAG FOR NEXT CARD                    F0E18740
       ZET     VFDMD          IS ETC FOR VFD                            F0E18750
       TRA     VFETC          YES                                       F0E18760
       TRA     CLETC          NO, IT IS FOR CALL                        F0E18770
       REM                                                              F0E18780
 CALOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E18790
       CAL     BCDBF+13       LOAD FLAGS                                F0E18800
       ANA     Q2             MASK IN ETC FLAG                          F0E18810
       SLW     ETCMD          SET FLAG FOR NEXT CARD                    F0E18820
       CAL     T4             SET CALLING LINKAGE ON XR4                F0E18830
       SLW     BINRY          FOR FIRST FIELD (SUBPROGRAM NAME)         F0E18840
       CLA     LOCTR          SAVE CALLING LOCATION                     F0E18850
       ANA     ADDMK          MASK OUT RELOCATION BITS                  F0E18860
       STO     ERASE          FOR STANDARD ERROR PROCEDURE              F0E18870
       TRA     CALP1          TEST FOR ABSOLUTE ASSEMBLY               $F0E18880
       TRA     CAL01                                                    F0E18890
       REM     REENTRY AFTER COMMA OR ETC CARD                          F0E18900
 CLETC TSX     C019A,4       *LOOK AT NEXT CHARACTER                    F0E18910
       ERA     BLANK          IS IT BLANK FOLLOWING COMMA               F0E18920
       TNZ     CAL01          NO                                        F0E18930
       ZET     ETCMD          YES, DOES ETC CARD FOLLOW                 F0E18940
       TRA     VFD04+2        YES                                       F0E18950
       CAL     TSXOC          NO, CREATE NULL ARGUMENT                  F0E18960
       SLW     BINRY                                                    F0E18970
       STZ     INDIC                                                    F0E18980
       TSX     PRNTI,4       *LIST AND PUNCH THIS INSTRUCTION           F0E18990
       TRA     CAL02                                                    F0E19000
       REM     REENTRY TO ASSEMBLE SUBPROGRAM NAME, NEXT ARGUMENT       F0E19010
 CAL01 TSX     SCANF,4       *EVALUATE NEXT FIELD                       F0E19020
       TXI     AFLAG,,0       NULL SUBPROGRAM NAME                      F0E19030
       ORA     TSXOC          APPEND TSX                                F0E19040
       ORS     BINRY                                                    F0E19050
       SLT     EXPRR          WAS ADDRESS IN ERROR                      F0E19060
       TRA     *+5            NO                                        F0E19070
       CAL     BLANK          YES, BLANK OUT ADDRESS FIELD              F0E19080
       SLW     OCTAL+2                                                  F0E19090
       CAL     BLANKS                                                   F0E19100
       SLW     OCTAL+3                                                  F0E19110
       CAL     RBITS          INSERT RELOCATION BITS                    F0E19120
       SLW     INDIC                                                    F0E19130
       TSX     PRNTI,4       *LIST AND PUNCH THIS INSTRUCTION           F0E19140
       STZ     TVFLG          RESET FLAG FOR TRANSFER VECTOR NAME       F0E19150
       STZ     BINRY          DELETE TAG FOR FOLLOWING FIELDS (ARGS)    F0E19160
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E19170
       TRA     CLETC          NO                                        F0E19180
       REM     ETC MAY NOT FOLLOW                                       F0E19190
 CAL02 NZT     SEPFLG         IS STANDARD ERROR PROCEDURE REQUESTED     F0E19200
       TRA     CAL03          NO                                        F0E19210
       CLA     ERASE          YES, LOAD LOCATION OF CALL                F0E19220
       LGR     12             ISOLATE FIRST DIGIT                       F0E19230
       ALS     18                                                       F0E19240
       STD     BINRY          IN FIRST WORD DECREMENT FIELD             F0E19250
       PXD     ,0             DELETE FIRST DIGIT                        F0E19260
       LGL     12             RECALL LOW ORDER FOUR DIGITS              F0E19270
       STO     SYMBL          SAVE FOR SECOND WORD DECREMENT            F0E19280
       CLA     LOCTR          LOAD *                                    F0E19290
       ADD     Q2             COMPUTE *+2                               F0E19300
       STA     BINRY          INSERT IN FIRST WORD ADDRESS              F0E19310
       CAL     P1             LOAD TXI OPERATION                        F0E19320
       STP     BINRY          INSERT IN FIRST WORD PREFIX               F0E19330
       STL     TYPAF          SET TYPE A INSTRUCTION FLAG               F0E19340
       CAL     Q2             SET INSTRUCTION ADDRESS RELOCATABLE       F0E19350
       SLW     INDIC                                                    F0E19360
       TSX     PRNTI,4       *LIST AND PUNCH INSTRUCTION                F0E19370
       LDQ     SYMBL          RELOAD LOW ORDER FOUR DIGITS OF CALL LOC $F0E19380
       TSX     OCTDV,4       *CONVERT TO DECIMAL                       $F0E19390
       ALS     18             SHIFT INTO DECREMENT                      F0E19400
       ORA     LINKG          APPEND LINKAGE DIRECTOR IN ADDRESS        F0E19410
       STO     BINRY          DELETE RELOCATION BIT 0                   F0E19420
       ARS     34             REPOSITION RELOCATION BIT                 F0E19430
       STO     INDIC                                                    F0E19440
       TSX     PRNTI,4       *LIST AND PUNCH INSTRUCTION                F0E19450
       STZ     TYPAF          RESET TYPE A INSTRUCTION FLAG             F0E19460
 CAL03 TRA     READ1                                                    F0E19470
 TSXOC TSX     ,0                                                       F0E19480
       REM                                                              F0E19490
 COMOP CAL     LITRL          LOAD ADDRS,,UPCTR                         F0E19500
       STA     ADDRS          DEFINE SYMBOL LOCATION AT TOP OF BLOCK    F0E19510
       ARS     18                                                       F0E19520
       LDI     BCDBF          LOAD LOCATION FIELD                       F0E19530
       IIS     BLANKS                                                   F0E19540
       OFT     ALONE          IS IT BLANK (COMMON DEFINITION)           F0E19550
       CLA     ADDRS          NO, DEFINE SYMBOL LOCATION AT TOP OF BLOCKF0E19560
       STA     ADDRS                                                    F0E19570
       TSX     REFPP,4       *ENTER SYMBOL IN REF TABLE                 F0E19580
       TSX     REFLP,4       *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E19590
       TSX     PRNTR,4       *PRINT INPUT CARD, LOCATION RIGHT ADJ      F0E19600
       TRA     READ1                                                    F0E19610
       REM                                                              F0E19620
 DECOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E19630
       TSX     DECCV,4       *CONVERT INTEGER TO DECIMAL                F0E19640
       STO     BINRY                                                    F0E19650
       TSX     PRNTD,4       *LIST AND PUNCH INTEGER                    F0E19660
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E19670
       TRA     DECOP+1        NO                                        F0E19680
       TRA     READ1          YES                                       F0E19690
       REM                                                              F0E19700
 DETOP NZT     UNLSF          IS LISTING SUPPRESSED                     F0E19710
       STZ     TITLF          NO, RESET TITLE FLAG                      F0E19720
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E19730
       TRA     READ1                                                    F0E19740
       REM                                                              F0E19750
 DUPOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E19760
       CAL     LITRL          LOAD DUP RANGE,,ITERATIONS-1              F0E19770
       TZE     DUP01          IS RANGE ZERO                             F0E19780
       STA     DUPC1          NO, INITIALIZE RANGE                      F0E19790
       STA     SKDUP          SET LENGTH OF BACKSPACE                   F0E19800
       ANA     ADDMK          DELETE ITERATIONS                         F0E19810
       SUB     Q1                                                       F0E19820
       AXT     CNTRL,1        SET ONE CARD DUP TA TO AVOID BUFFERING    F0E19830
       TZE     *+2            IS DUP LONGER THAN ONE CARD               F0E19840
       AXT     READ0,1        YES, RESET TA TO INITIATE LOOKAHEAD BUFF  F0E19850
       SXA     DUPC3,1                                                  F0E19860
       ADD     Q2                                                       F0E19870
       STA     DUPCD          INITIALIZE RANGE+1                        F0E19880
       CAL     LITRL          LOAD DUP RANGE,,ITERATIONS-1              F0E19890
       ARS     18             ISOLATE RANGE                             F0E19900
       TZE     DUP01          IS ITERATION 0 OR 1                       F0E19910
       STA     DUPC2          NO, INITIALIZE ITERATIONS-1               F0E19920
       AXT     19,4           SET LENGTH OF LISTING LINE FOR            F0E19930
       SXA     DUPC0,4        FIRST ITERATION                           F0E19940
       AXT     -1,4           RESET ONE CARD DUP ITERATION SWITCH       F0E19950
       SXD     DUPC0+3,4                                                F0E19960
       STL     DUPMD          SET DUP MODE FLAG                         F0E19970
 DUP01 TSX     REFPP,4       *ENTER SYMBOL IN REF TABLE                 F0E19980
       TSX     PRNTR,4       *PRINT INPUT CARD, LOCATION RIGHT ADJUST   F0E19990
       TRA     READ1                                                    F0E20000
       REM                                                              F0E20010
 EJCOP NZT     UNLSF          IS LISTING SUPPRESSED                     F0E20020
       SXA     PAGCNT,0       NO, RESET COUNT OF LINES REMAINING ON PAGEF0E20030
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E20040
       TRA     READ1                                                    F0E20050
       REM                                                              F0E20060
 ENDOP ZET     DUPMD          IS THIS CARD WITHIN RANGE OF DUP          F0E20070
       TRA     PHASE        **YES                                       F0E20080
       NZT     ABSFLG         NO, IS ASSEMBLY ABSOLUTE                  F0E20090
       TRA     END01          NO                                        F0E20100
       TSX     SCANF,4       *YES, EVALUATE ADDRESS                     F0E20110
       TXI     END02,,0       NULL TRANSFER ADDRESS                     F0E20120
       SLT     EXPRR          WAS ADDRESS IN ERROR                      F0E20130
       TRA     *+2            NO                                        F0E20140
       TRA     END02          YES                                       F0E20150
       STO     ADDRS                                                    F0E20160
       STO     ERASE          SAVE FOR TRANSFER CARD                    F0E20170
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E20180
       STL     ERRFF          NO, SET FLAG                              F0E20190
       TSX     PRNTR,4       *PRINT CARD, TRANSFER ADDRESS RIGHT ADJ    F0E20200
       TRA     READ1                                                    F0E20210
 END01 CAL     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0E20220
       ERA     BLANK          IS IT BLANK                               F0E20230
       TZE     END02          YES                                       F0E20240
       STL     ERRFF          NO, SET ERROR FLAG                        F0E20250
 END02 SXD     ENDFB,0        SET SWITCH TO OMIT TRANSFER CARD          F0E20260
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E20270
       TRA     READ1                                                    F0E20280
       REM                                                              F0E20290
 ENTOP CLA     RESIDU         LOAD ENTRY POINT NAME                     F0E20300
       STZ     ERASE          CLEAR WORKING STORAGE                     F0E20310
       LRS     30             LOAD FIRST CHARACTER                      F0E20320
       TNZ     ENT01          IS IT - (SECONDARY ENTRY POINT)           F0E20330
       STO     ERASE          YES, SAVE IT                              F0E20340
       LRS     4              CHANGE TO + FOR SCAN                      F0E20350
       LGR     1                                                        F0E20360
       STQ     RESIDU                                                   F0E20370
       REM     REENTRY FOR PRIMARY ENTRY POINT NAMES                    F0E20380
 ENT01 STZ     SYMBL          RESET NAME FOR BLANK VARIABLE FIELD       F0E20390
       TSX     SCANF,4       *EVALUATE ENTRY POINT NAME                 F0E20400
       TXI     AFLAG,,0       NULL ENTRY POINT NAME                     F0E20410
       TSX     LADJS,4       *LEFT ADJUST ENTRY POINT NAME              F0E20420
       XCL                                                              F0E20430
       CAL     SEPFLG         LOAD STANDARD ERROR PROCEDURE FLAG        F0E20440
       ERA     ALONE          IS IT OFF, OR HAS IT BEEN INITIALIZED     F0E20450
       TNZ     *+2            YES                                       F0E20460
       TRA     ENTPC          NO                                       $F0E20470
       STQ     BINRY                                                    F0E20480
       PXD     ,0                                                       F0E20490
       LGL     3              LOAD ZONE BITS OF FIRST CHARACTER         F0E20500
       SLT     EXPRR          IS SYMBOL IN ERROR                        F0E20510
       TRA     *+2            NO                                        F0E20520
       TRA     ENT02          YES                                       F0E20530
       NZT     BINRY          IS ENTRY EXPLICIT ZERO (MAIN PROGRAM)     F0E20540
       TRA     *+3            YES                                       F0E20550
       NZT     VARUR          NO, IS NAME RELOCATABLE                   F0E20560
       STL     ERRFR          NO, SET ERROR FLAG                        F0E20570
       TSX     STORE,4       *INSERT NAME ON PROGRAM CARD               F0E20580
       CAL     VAREQ          COMBINE LOCATION OF ENTRY POINT           F0E20590
       ORA     ERASE          WITH SECONDARY FLAG                       F0E20600
       NZT     BINRY          IS NAME EXPLICIT ZERO                     F0E20610
       CAL     PROLG          YES, SET MAIN ENTRY POINT TO FIRST INSTR  F0E20620
       SLW     BINRY                                                    F0E20630
       STA     ADDRS                                                    F0E20640
       TSX     STORE,4       *INSERT LOCATION ON PROGRAM CARD           F0E20650
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E20660
       STL     ERRFF          NO, SET ERROR FLAG                        F0E20670
       TRA     ENT02+2                                                  F0E20680
 ENT02 NZT     ERRFU          IS SYMBOL UNDEFINED                       F0E20690
       STL     ERRFP          NO, SET PHASE ERROR FLAG                  F0E20700
       TSX     PRNTR,4       *PRINT INPUT CARD, ENTRY POINT RIGHT ADJ   F0E20710
       TRA     READ1                                                    F0E20720
       REM                                                              F0E20730
 FULOP TSX     PUNCH,4       *PUNCH PARTIAL ABS, FUL OR 9LP CARD        F0E20740
       STZ     9LPMD          RESET 9LP FLAG                            F0E20750
       STL     FULMD          SET FLAG FOR CARDS FUL FORMAT             F0E20760
       CAL     CHRCTR         LOAD FIRST CHARACTER IN VARIABLE FIELD    F0E20770
       ERA     BLANK          IS IT BLANK                               F0E20780
       SLW     ERRFF          SET ERROR FLAG IF NOT                     F0E20790
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E20800
       TRA     READ1                                                    F0E20810
       REM                                                              F0E20820
 HEDOP CAL     LITRL          LOAD HEADING CHARACTER                    F0E20830
       SLW     BHEAD          RESET HEADING CHARACTER                   F0E20840
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E20850
       TRA     READ1                                                    F0E20860
       REM                                                              F0E20870
       REM     PREPARE FIRST WORD STL* (EOF)                            F0E20880
 IFEOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E20890
       CAL     STLIC          SET BINARY WORD TO STL*                   F0E20900
       SLW     BINRY                                                    F0E20910
       CAL     Q2             SET ADDRESS DIRECTLY RELOCATABLE          F0E20920
       SLW     INDIC                                                    F0E20930
       CAL     R(EOF          SET NAME OF SUBROUTINE                    F0E20940
       SLW     SYMBL                                                    F0E20950
       TSX     SSYMT,4       *EVALUATE LOCATION IN TRANSFER VECTOR      F0E20960
       SLT     EXPRR          IS SYMBOL UNDEFINED                       F0E20970
       TRA     *+2            NO                                        F0E20980
       TSX     MACERR,4     **YES                                       F0E20990
       STA     BINRY                                                    F0E21000
       TSX     PRNTI,4       *LIST AND PUNCH THIS INSTRUCTION           F0E21010
       REM     PREPARE SECOND WORD NOP ADDR                             F0E21020
       CAL     NOPOC          SET BINARY OPCODE TO NOP                  F0E21030
       SLW     BINRY                                                    F0E21040
       TSX     SCANF,4       *EVALUATE TRANSFER ADDRESS                 F0E21050
       TXI     AFLAG,,0       NULL TRANSFER ADDRESS                     F0E21060
       STA     BINRY                                                    F0E21070
       LDQ     RBITS          SET ADDRESS RELOCATION BITS               F0E21080
       STQ     INDIC                                                    F0E21090
       TZE     *+3            IS TRANSFER ADDRESS 0 (TO BE INITIALIZED) F0E21100
       NZT     VARUR          NO, IS TRANSFER ADDRESS RELOCATABLE       F0E21110
       STL     ERRFR          NO, SET ERROR FLAG                        F0E21120
       SLT     EXPRR          WAS ADDRESS IN ERROR                      F0E21130
       TRA     IFE01          NO                                        F0E21140
       CAL     BLANK          BLANK OUT OCTAL LISTING                   F0E21150
       SLW     OCTAL+2                                                  F0E21160
       CAL     BLANKS                                                   F0E21170
       SLW     OCTAL+3                                                  F0E21180
 IFE01 SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E21190
       STL     ERRFF          NO, SET FLAG                              F0E21200
       TSX     PRNTI,4       *LIST AND PRINT THIS INSTRUCTION           F0E21210
       TRA     READ1                                                    F0E21220
 R(EOF BCI     1,0(EOF)                                                 F0E21230
 STLIC STL*    0                                                        F0E21240
 NOPOC NOP                                                              F0E21250
       REM                                                              F0E21260
 INXOP TXH     INX01,4,-1     HAS TITLE BEEN WRITTEN                    F0E21270
       SXD     INXOP,0        NO, RESET SWITCH                          F0E21280
       TSX     PRLST,4       *PRINT BLANK LINE                          F0E21290
       PZE                                                              F0E21300
       TSX     PRLST,4       *PRINT INDEX TITLE                         F0E21310
       PZE     INTIT,,6                                             (26)F0E21320
 INX01 TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E21330
       LXD     VRFLD,2        RELOAD WORD COUNT                         F0E21340
       LXA     VRFLD,1        RELOAD CHARACTER COUNT                    F0E21350
       TSX     SCANF,4       *EVALUATE NEXT EXPRESSION              (26)F0E21360
       TXI     READ1,,0       ALL DONE                                  F0E21370
       TSX     LADJS,4        LEFT ADJUST SYMBOL                    (26)F0E21380
       SLW     INX02+1                                              (26)F0E21390
       TRA     *+3                                                  (26)F0E21400
       PZE                    (NOT USED)                            (26)F0E21410
       PZE                    (NOT USED)                            (26)F0E21420
       CAL     BLANKS                                                   F0E21430
       SLW     INX02+2                                              (26)F0E21440
       CAL     VAREQ          LOAD SYMBOL DEFINITION                (26)F0E21450
       TSX     SHIFT,4       *CONVERT TO OCTAL                          F0E21460
       SLT     EXPRR          WAS DEFINITION IN ERROR                   F0E21470
       SLW     INX02+2        NO, SET SYMBOL DEFINITION             (26)F0E21480
       AXT     ERRFB-ERRFU+1,4 LOAD LENGTH OF FATAL ERROR LIST          F0E21490
       ZET     ERRFB+1,4      IS A FATAL ERROR FLAGGED                  F0E21500
       STL     ERRFF          YES, RAP KNUCKLES                         F0E21510
       STZ     ERRFB+1,4      THROW OUT THE LIFE LINE                   F0E21520
       TIX     *-3,4,1        IS FATAL ERROR LIST EXHAUSTED             F0E21530
       SXA     *+3,2          YES, SAVE WORD COUNT                      F0E21540
       TSX     PRLST,4       *LIST SYMBOL AND DEFINITION                F0E21550
       PZE     INX02,,6                                             (26)F0E21560
       AXT     **,2           RELOAD WORD COUNT                         F0E21570
       TRA     INX01+3                                                  F0E21580
       REM                                                              F0E21590
 LBLOP AXT     3,4            RESTORE LABEL TO I/O PARAMETER            F0E21600
       SXD     BOTIO,4                                                  F0E21610
       SXD     BOTIO+2,4                                                F0E21620
       STL     LBLFLG         SET BINARY CARD LABEL FLAG                F0E21630
       TSX     SSCAN,4       *ASSEMBLE NEW SERIALIZATION                F0E21640
       TXI     K003,,0         NULL SERIALIZATION ON LBL CARD. SEE  (32)F0E21650
*                              IF PROGRAM CARD HAS BEEN PUNCHED YET.(32)F0E21651
       SLT     EXPRR          WAS SERIALIZATION IN ERROR                F0E21660
       SLT     EXPND          NO, DID SERIALIZATION END WITH OPERATION  F0E21670
       TRA     LBL01          YES, DELETE LABEL                         F0E21680
       CAL     SYMB2          NO, RELOAD SERIALIZATION                  F0E21690
       LDQ     SYMBL                                                    F0E21700
       NZT     SYMBL          IS LOW ORDER PORTION ZERO                 F0E21710
       TZE     LBL01+2        YES, IS HIGH ORDER PORTION ZERO           F0E21720
       LAS     FCMSK          NO, IS SYMBOL LEFT ADJUSTED               F0E21730
       TRA     LBL01+2        YES                                       F0E21740
       NOP                    NO (MACHINE ERROR)                        F0E21750
       LGL     6              LEFT ADJUST SERIALIZATION ONE CHARACTER   F0E21760
       TRA     *-4                                                      F0E21770
       REM     SERIALIZATION IN ERROR                                   F0E21780
 LBL01 SLN     EXPRR          SET ERROR FLAG                            F0E21790
       LGL     74             DELETE LABEL                              F0E21800
       REM     SERIALIZATION CORRECT                                    F0E21810
       SLW     NERAS          SAVE HIGH ORDER PORTION OF LABEL          F0E21820
       STQ     BERAS          SAVE LOW ORDER PORTION OF LABEL           F0E21830
       TSX     SSCAN,4       *ASSEMBLE CONTROL CHARACTER                F0E21840
       TXI     *+1,,0         NULL CONTROL CHARACTER                    F0E21850
       CAL     SYMBL          LOAD CONTROL CHARACTER                    F0E21860
       SLT     EXPRR          WAS CHARACTER (OR SERIALIZATION) IN ERROR F0E21870
       SLT     EXPND          NO, DID CHARACTER END WITH OPERATION      F0E21880
       PXD     ,0             YES, DELETE LISTING                       F0E21890
       SLW     XERAS                                                    F0E21900
 LBL02 TXL     *+2,4,-1       HAS PROGRAM CARD BEEN PUNCHED             F0E21910
       TSX     PUNCH,4       *YES, PUNCH LAST PARTIAL CARD              F0E21920
       CAL     XERAS          SET LISTING LABEL FLAG                    F0E21930
       SLW     LBLFG                                                    F0E21940
       TNZ     *+2            IS SERIALIZATION LISTING FLAG ON          F0E21950
       SXD     STORE+1,0      NO, RESET CARD SERIAL NO LISTING SWITCH   F0E21960
       CAL     NERAS          RELOAD LABEL                              F0E21970
       LDQ     BERAS                                                    F0E21980
       TSX     IDENT,4       *CREATE CARD LABEL                         F0E21990
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E22000
       TRA     *+3            NO                                        F0E22010
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E22020
       TRA     READ1                                                    F0E22030
       STL     ERRFF          YES, SET ERROR FLAG                       F0E22040
       TSX     PRNTC,4       *PRINT INPUT CARD AND ERROR FLAG           F0E22050
       TRA     READ1                                                    F0E22060
       REM     TURN OFF BINARY CARD LABELLING                           F0E22070
 LBL03 TSX     PUNCH,4       *FORCE PUNCHING OF LAST LABELED CARD       F0E22080
       SXD     BOTIO,0        DELETE CARD LABEL FROM I/O COMMAND        F0E22090
       SXD     BOTIO+2,0                                                F0E22100
       STZ     LBLFLG         RESET LABEL FLAG                          F0E22110
       STZ     LBLFG          RESET LABEL LISTING FLAG                  F0E22120
       SXD     STORE+1,0      RESET LABEL LISTING SWITCH                F0E22130
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E22140
       TRA     READ1                                                    F0E22150
 FCMSK OCT     007777777777                                             F0E22160
       REM                                                              F0E22170
 LSTOP STZ     UNLSF          RESET UNLIST FLAGS                        F0E22180
       STZ     UNL1F                                                    F0E22190
       TSX     PRLST,4       *PRINT BLANK LINE                          F0E22200
       PZE                                                              F0E22210
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E22220
       TRA     READ1                                                    F0E22230
       REM                                                              F0E22240
       REM                                                              F0E22250
       REM     EVALUATE LITERAL                                         F0E22260
 LITOP LDI     BCDBF+13       LOAD FLAGS                                F0E22270
       RNT     10             WAS LITERAL IN ERROR                      F0E22280
       TRA     *+4            NO                                        F0E22290
       STL     ERRFL          YES, SET LITERAL ERROR FLAG               F0E22300
       TSX     SCEND,4       *SCAN PAST LITERAL IN ERROR                F0E22310
       TRA     INT05                                                    F0E22320
       REM     LITERAL IS NOT IN ERROR                                  F0E22330
       TSX     C0190,4       *DELETE EQUAL SIGN                         F0E22340
       TSX     C019A,4       *LOOK AT NEXT CHARACTER                    F0E22350
       ERA     QH             IS LITERAL HOLLERITH                      F0E22360
       TNZ     LIT02          NO                                        F0E22370
       REM     LITERAL IS HOLLERITH, DELETE FIRST 8 CHARACTERS          F0E22380
 LIT01 AXT     **,4           LOAD CHARACTER COUNT (INITIALLY 0)        F0E22390
       TXI     *+1,4,1        BUMP                                      F0E22400
       SXA     LIT01,4                                                  F0E22410
       TXH     *+3,4,8        HAVE 8 CHARACTERS BEEN DELETED            F0E22420
       TSX     C0190,4       *NO, DELETE ONE MORE                       F0E22430
       TRA     LIT01                                                    F0E22440
       REM     END OF HOLLERITH LITERAL                                 F0E22450
       SXA     LIT01,0        RESET CHARACTER COUNT                     F0E22460
       ERA     BLANK          IS THIS END OF VARIABLE FIELD             F0E22470
       TNZ     *+2            NO                                        F0E22480
       SLN     FLDND          YES, SET FLAG                             F0E22490
       TRA     LIT02+1                                                  F0E22500
       REM     REENTRY FOR NUMERIC LITERAL                              F0E22510
 LIT02 TSX     SCEND,4       *SCAN PAST LITERAL                         F0E22520
       REM     SEARCH LITERAL TABLE                                     F0E22530
       CAL     LITRL          LOAD LITERAL                              F0E22540
       SXA     SLIT3+3,1      SAVE CHARACTER COUNT                      F0E22550
       SXA     SLIT3+2,2      SAVE WORD COUNT                           F0E22560
       LXA     LITSIZ,2       LOAD LOGARITHM OF TABLE LENGTH            F0E22570
       AXT     0,1            LOAD LOCATION OF FIRST WORD IN TABLE      F0E22580
       XEC     SLIT2+1,2      BUMP TO MIDDLE OF TABLE                   F0E22590
       REM     REENTRY AFTER BINARY HOP                                 F0E22600
 SLIT1 TXL     *+4,1,**       IS SEARCH PAST UPPER END OF LITERAL TABLE F0E22610
       LAS     LITTBL-1,1     NO, IS IT THIS LITERAL                    F0E22620
       TXI     SLIT2+1,2,-2   NO, LARGER - GO LOOK HIGHER               F0E22630
       TXI     SLIT2+2,1,1    YES                                       F0E22640
       TXI     SLIT2,2,-2     NO, SMALLER - GO LOOK LOWER               F0E22650
       REM                                                              F0E22660
       TXI     SLIT1,1,-512   (MAXIMUM TABLE SIZE = 1024 LITERALS)      F0E22670
       TXI     SLIT1,1,+256                                             F0E22680
       TXI     SLIT1,1,-256                                             F0E22690
       TXI     SLIT1,1,+128                                             F0E22700
       TXI     SLIT1,1,-128                                             F0E22710
       TXI     SLIT1,1,+64                                              F0E22720
       TXI     SLIT1,1,-64                                              F0E22730
       TXI     SLIT1,1,+32                                              F0E22740
       TXI     SLIT1,1,-32                                              F0E22750
       TXI     SLIT1,1,+16                                              F0E22760
       TXI     SLIT1,1,-16                                              F0E22770
       TXI     SLIT1,1,+8                                               F0E22780
       TXI     SLIT1,1,-8                                               F0E22790
       TXI     SLIT1,1,+4                                               F0E22800
       TXI     SLIT1,1,-4                                               F0E22810
       TXI     SLIT1,1,+2                                               F0E22820
       TXI     SLIT1,1,-2                                               F0E22830
       TXI     SLIT1,1,+1                                               F0E22840
       TXI     SLIT1,1,-1                                               F0E22850
       NOP                    NOT FOUND                                 F0E22860
       TSX     MACERR,4     **NOT FOUND                                 F0E22870
 SLIT2 XEC     *,2            BUMP LOCATION OF LITERAL LOWER BY HALF    F0E22880
       XEC     *,2            BUMP LOCATION OF LITERAL HIGHER BY HALF   F0E22890
       REM     LITERAL IS FOUND                                         F0E22900
       CAL     Q2             SET ADDRESS RELOCATABLE                   F0E22910
       SLW     RBITS                                                    F0E22920
       SXA     *+1,1          COMPUTE POSITION IN LITERAL TABLE         F0E22930
       AXC     **,1                                                     F0E22940
 SLIT3 TXI     *+1,1,**       BUMP BY ORIGIN OF LITERAL TABLE           F0E22950
       PXA     ,1                                                       F0E22960
       AXT     **,2           RELOAD CARD WORD COUNT                    F0E22970
       AXT     **,1           RELOAD CARD CHARACTER COUNT               F0E22980
       TRA     INT06                                                    F0E22990
       REM                                                              F0E23000
 LOCOP CAL     LITRL          LOAD NEW ORIGIN                           F0E23010
       ADD     PROLG          RELOCATE UPWARDS BY LENGTH OF             F0E23020
       SLW     ADDRS          VECTOR AND LINKAGE DIRECTOR, IF ANY       F0E23030
       STA     LOCTR          REDEFINE PROGRAM COUNTER                  F0E23040
       TSX     REFPP,4       *ENTER SYMBOL IN REF TABLE                 F0E23050
       TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E23060
       TSX     PRNTR,4       *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E23070
       TRA     READ1                                                    F0E23080
       REM                                                              F0E23090
 MAXOP CAL     LITRL          LOAD SYMBOL DEFINITION                    F0E23100
       PAI                                                              F0E23110
       LFT     1              IS SYMBOL RELOCATABLE                     F0E23120
       LFT     4              YES, IS IT ABOVE THE TRANSFER VECTOR      F0E23130
       TRA     *+2            NO                                        F0E23140
       ADD     PROLG          YES, RELOCATE DEFINITION UPWARD           F0E23150
       SLW     ADDRS          BY LENGTH OF VECTOR AND LINKAGE DIRECTOR  F0E23160
       TSX     REFPP,4       *ENTER SYMBOL IN REF TABLE                 F0E23170
       TSX     REFLP,4       *ENTER POINT OF DEFINITION IN SYM REF TABLEF0E23180
       TSX     PRNTR,4       *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E23190
       TRA     READ1                                                    F0E23200
       REM                                                              F0E23210
 MCERR CAL     LITRL          INSERT PASS ONE ERROR FLAG                F0E23220
       SLW     PFLAG          INTO LEFT HAND MARGIN OF LISTING          F0E23230
       ERA     MFLAG          IS THIS MULTIPLY DEFINED MACRO            F0E23240
       TZE     *+2            YES                                       F0E23250
       STL     NOGOF          NO, SET FATAL ERROR FLAG                  F0E23260
       CAL     BLANKS         BLANK OUT OCTAL LISTING                   F0E23270
       SLW     OCTAL                                                    F0E23280
       SLW     OCTAL+1                                                  F0E23290
       SLW     OCTAL+2                                                  F0E23300
       SLW     OCTAL+3                                                  F0E23310
       TSX     LEVEL,4       *INSERT MACRO LEVEL IN CC 81 - 84          F0E23320
       TSX     FPRINT,4      *PRINT CARD IN ERROR                       F0E23330
       PZE     PFLAG,,19                                                F0E23340
       STZ     OCTAL          CLEAR OCTAL EXPANSION                     F0E23350
       STZ     OCTAL+1                                                  F0E23360
       STZ     OCTAL+2                                                  F0E23370
       STZ     OCTAL+3                                                  F0E23380
       TRA     READ1                                                    F0E23390
       REM                                                              F0E23400
 OCTOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E23410
       TSX     OCTCV,4       *CONVERT INTEGER TO OCTAL                  F0E23420
       SLW     BINRY                                                    F0E23430
       TSX     PRNTD,4       *LIST AND PUNCH INTEGER                    F0E23440
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E23450
       TRA     OCTOP+1        NO                                        F0E23460
       TRA     READ1          YES                                       F0E23470
       REM                                                              F0E23480
 OPDOP CAL     BLANKS         SET LOCATION FIELD BLANK                  F0E23490
       SLW     OCTAL                                                    F0E23500
       LDI     LITRL          LOAD OCTAL DEFINITION                     F0E23510
       STL     TYPAF          SET TYPE A FLAG FOR PSEUDOOPERATION       F0E23520
       RFT     100000         IS THIS A MACHINE OPERATION               F0E23530
       TSX     IFLGS,4       *YES, SET INSTRUCTION LISTING FLAGS        F0E23540
       NOP                    INSTRUCTION HAS FLAGS IN ADDRESS          F0E23550
       STI     BINRY                                                    F0E23560
       STL     OPFLG          SET OP DEFINITION FLAG                    F0E23570
       TSX     PRNTI,4       *LIST INSTRUCTION                          F0E23580
       STZ     OPFLG          RESET OP DEFINITION FLAG                  F0E23590
       TRA     READ1                                                    F0E23600
       REM                                                              F0E23610
 ORDOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E23620
       LXD     LITRL,4        LOAD OPCODE                               F0E23630
       PXA     ,4                                                       F0E23640
       TSX     BCDCV,4       *CONVERT TO DECIMAL                        F0E23650
       ALS     24             POSITION IN DIGITS 1, 2                   F0E23660
       SLW     BINRY          INSERT IN WORD                           $F0E23670
       LDI     LITRL          LOAD VARIABLE FIELD FLAGS                $F0E23680
       RNT     600000         IS ACCESS MODULE REQUIRED                $F0E23690
       TRA     ORDAM          YES, ASSEMBLE                            $F0E23700
       TSX     ORDLP,4       *NO, CHECK NEXT CHARACTER                 $F0E23710
       TZE     ORDW1          IF BLANK, FINISHED                       $F0E23720
 ORDAM TSX     ORDSC,4       *ASSEMBLE ACCESS MODULE (2 DIGITS)        $F0E23730
       ANA     Q4095          MASK IN TWO DIGITS                       $F0E23740
       ALS     12             POSITION IN DIGITS 3, 4                  $F0E23750
       ORS     BINRY          INSERT IN WORD                           $F0E23760
       LDI     LITRL          LOAD VARIABLE FIELD FLAGS                $F0E23770
       RNT     400000         IS TRACK REQUIRED                        $F0E23780
       TRA     ORDTK          YES, ASSEMBLE                            $F0E23790
       TSX     ORDLP,4       *NO, CHECK NEXT CHARACTER                 $F0E23800
       TZE     ORDW1          IF BLANK, FINISHED                       $F0E23810
 ORDTK TSX     ORDSC,4       *ASSEMBLE TRACK (4 DIGITS)                $F0E23820
       ANA     Q4BCD          MASK IN FOUR DIGITS                      $F0E23830
       LDQ     Q0             ZERO MQ                                  $F0E23840
       LGR     12                                                      $F0E23850
       STQ     ERASE          SAVE RIGHT HALF OF TRACK                 $F0E23860
       ORS     BINRY          INSERT LEFT HALF OF TRACK IN WORD        $F0E23870
       TSX     ORDZR,4       *CONVERT TO TAPE BCD ZERO                 $F0E23880
       TSX     PRNTO,4       *LIST AND PUNCH FIRST WORD                $F0E23890
       CAL     ERASE          INSERT RIGHT HALF                        $F0E23900
       SLW     BINRY          OF TRACK IN WORD                         $F0E23910
       LDI     LITRL          LOAD VARIABLE FIELD FLAGS                $F0E23920
       RNT     200000         IS RECORD REQUIRED                       $F0E23930
       TRA     ORDRC          YES, ASSEMBLE                            $F0E23940
       TSX     ORDLP,4       *NO, CHECK NEXT CHARACTER                 $F0E23950
       TZE     ORDW2          IF BLANK, FINISHED                       $F0E23960
 ORDRC TSX     SSCAN,4       *ASSEMBLE RECORD (2 DIGITS)               $F0E23970
       TXI     ORDFA,,0       NULL FIELD                               $F0E23980
       SLT     EXPND          WAS END OF EXPRESSION REACHED            $F0E23990
       TXI     ORDFF,,0       NO, ILLEGAL OPERATOR PRESENT             $F0E24000
       CAL     SYMBL                                                   $F0E24010
       ALS     12             POSITION IN DIGITS 3,4                   $F0E24020
       PAI                                                             $F0E24030
       LFT     777700         IS SYMBOL TOO LONG                       $F0E24040
       TXI     ORDFF,,0       YES                                      $F0E24050
       ORS     BINRY          INSERT IN NEXT WORD                      $F0E24060
       TSX     ORDLP,4       *CHECK NEXT CHARACTER                     $F0E24070
       TRA     ORDW2          FINISHED                                 $F0E24080
 ORDFF STL     ERRFF          SET F FLAG                               $F0E24090
       TRA     ORDW2                                                   $F0E24100
 ORDFA STL     ERRFA          SET MISSING FIELD FLAG                   $F0E24110
       TRA     ORDW2                                                   $F0E24120
       REM                                                             $F0E24130
       REM                    CHECK NEXT CHARACTER                     $F0E24140
 ORDLP CAL     CHRCTR         LOAD NEXT CHARACTER                      $F0E24150
       ERA     BLANK          IS IT BLANK                              $F0E24160
       ORS     ERRFF          SET FLAG IF NOT                          $F0E24170
       TRA     1,4                                                     $F0E24180
       REM                                                             $F0E24190
 HYPOP TSX     REFLC,4       *CHECK LOCATION COUNTER                   $F0E24200
       LXD     LITRL,4        LOAD OPCODE                              $F0E24210
       PXA     ,4                                                      $F0E24220
       TSX     BCDCV,4       *CONVERT TO DECIMAL                       $F0E24230
       ALS     24             POSITION IN DIGITS 1, 2                  $F0E24240
       SLW     BINRY          INSERT IN WORD                           $F0E24250
       LDI     LITRL          LOAD VARIABLE FIELD FLAG                 $F0E24260
       RFT     200000         IS ADDRESS REQUIRED                      $F0E24270
       TRA     HYPAD           YES                                     $F0E24280
       TSX     ORDLP,4       *NO, CHECK NEXT CHARACTER                 $F0E24290
       TRA     ORDW2          FINISHED                                 $F0E24300
 HYPAD TSX     ORDSC,4       *ASSEMBLE ADDRESS                         $F0E24310
       ANA     Q63            ZERO ALL BUT ONE DIGIT                   $F0E24320
       ORS     BINRY          SET SECOND ADDRESS                       $F0E24330
       LDQ     BINRY          OBTAIN OPCODE                            $F0E24340
       LGL     18             POSITION AND STORE FIRST                 $F0E24350
       ORS     BINRY          ADDRESS AND SECOND OPCODE                $F0E24351
       TRA     HYPAD-2        GO CHECK NEXT CHARACTER                  $F0E24360
       REM                                                              F0E24370
 ORGOP CAL     LITRL          LOAD NEW ORIGIN                           F0E24380
       ADD     PROLG          RELOCATE UPWARDS BY LENGTH OF             F0E24390
       SLW     ADDRS          VECTOR AND LINKAGE DIRECTOR, IF ANY       F0E24400
       STA     LOCTR          REDEFINE PROGRAM COUNTER                  F0E24410
       STA     CDCTR          RESET CARD ORIGIN COUNTER                 F0E24420
       TSX     PUNCH,4       *PUNCH REMAINDER OF LAST CARD              F0E24430
       TSX     REFPP,4       *ENTER SYMBOL IN REF TABLE                 F0E24440
       TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E24450
       TSX     PRNTR,4       *PRINT INPUT CARD, DEFINITION RIGHT ADJUST F0E24460
       TRA     READ1                                                    F0E24470
       REM                                                              F0E24480
 PCCOP TSX     ONOFF,4       *CHECK FOR ON, OFF, BLANK VARIABLE FIELD   F0E24490
       STO     PRNSW          RESET SWITCH AS PER VARIABLE FIELD        F0E24500
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E24510
       TRA     READ1                                                    F0E24520
       REM                                                              F0E24530
 PMCOP TSX     ONOFF,4       *CHECK FOR ON, OFF, BLANK VARIABLE FIELD   F0E24540
       STO     PMCSW+1        RESET SWITCH AS PER VARIABLE FIELD        F0E24550
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E24560
       TRA     READ1                                                    F0E24570
       REM                                                              F0E24580
 REFOP SXD     PREF6,0        RESET SYMBOLIC REFERENCE TABLE SWITCH     F0E24590
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E24600
       TRA     READ1                                                    F0E24610
       REM                                                              F0E24620
REMOP  LXD     VRFLD,4        WORD COUNT OF BEGINNING OF VARIABLE FIELD$F0E24630
       CAL     BLANKS         TO BLANK OUT OPCODE                      $F0E24640
       TXH     *+2,4,-2       WHICH WORD NEEDS TO BE BLANKED           $F0E24650
       SLW     BCDBF+1        ALL OF THE FIRST WORD                    $F0E24660
       LDQ     RESIDU         HOW MUCH OF THIS WORD NEEDS TO BE BLANKED$F0E24670
       TRA     PTCHX          TO OFF-LINE PATCH                        $F0E24680
       REM                                                              F0E24690
 RMTOP CAL     LITRL          RESET HEADING CHARACTER                   F0E24700
       STA     BHEAD                                                    F0E24710
       TRA     READ1                                                    F0E24720
       REM                                                              F0E24730
SETOP  LXD     IOLST,4        GET LENGTH OF LISTING LINE            (21)F0E24740
       TXL     SET02,4,5      IS THIS REITERATION OF DUP..          (21)F0E24750
       TSX     REFPP,4       *NO, MAKE REFERENCE TABLE ENTRIES      (21)F0E24760
       CAL     LITRL          LOAD PASS ONE DEFINITION              (21)F0E24770
       PAI                                                          (21)F0E24780
       LFT     1              IS SYMBOL RELOCATABLE                 (21)F0E24790
       LFT     4              YES, BUT IS IT IN TRANSFER VECTOR     (21)F0E24800
       TRA     *+2            IS IN VECTOR OR NOT RELOCATABLE       (21)F0E24810
       ADD     PROLG          RELOCATE ABOVE PROLOGUE               (21)F0E24820
SET03  SLW     ADDRS          SAVE FOR LISTING                      (21)F0E24830
       TSX     REFLP,4       *ENTER POINT OF DEFINITION AS REFERENCE(21)F0E24840
       REM     ADDRESS INITIALIZED BY SSYMT (CALLED BY REFLP).      (21)F0E24850
SET01  AXT     **,1           OBTAIN POSITION IN SYMBOL TABLE       (21)F0E24860
       CAL     ADDRS          RELOAD DEFINITION                     (21)F0E24870
       SLW*    SSYM5          AND ENTER IT IN TABLE                 (21)F0E24880
       TSX     PRNTR,4       *LIST INPUT CARD LOCATION RIGHT ADJUSTED   F0E24890
       TRA     READ1                                                    F0E24900
       REM                                                              F0E24910
SPCOP  TRA     PTCHZ                                                (27)F0E24920
       TMI     SPC03          PMC OFF- DO NOT SPACE LISTING         (27)F0E24930
       TSX     SCANF,4       *NO, EVALUATE LENGTH OF SKIP               F0E24940
       TXI     AFLAG+1,,0     NULL SKIP LENGTH                          F0E24950
       SLT     EXPRR          IS LENGTH OF SKIP IN ERROR                F0E24960
       ZET     RBITS          NO, IS IT RELOCATABLE                     F0E24970
       TRA     SPC02          YES                                       F0E24980
       TRA     PATCH1                                                  $F0E24990
       TNX     *+4,1,5        IS THIS BOTTOM OF PAGE                    F0E25000
       SXD     *+2,1          NO, SET TEST FOR BOTTOM OF PAGE           F0E25010
       PAX     ,1             RECALL NUMBER OF LINES TO SPACE           F0E25020
       TXL     *+3,1,**       IS SPACE PAST BOTTOM OF PAGE              F0E25030
       SXA     PAGCNT,0       YES, EJECT PAGE                           F0E25040
       TRA     SPC01                                                    F0E25050
       TSX     FPRINT,4      *SPACE NEXT LINE                           F0E25060
       PZE                                                              F0E25070
       TIX     *-2,1,1        IS SPACING COMPLETE                       F0E25080
       SLT     FLDND          YES, WAS END OF VARIABLE FIELD SENSED     F0E25090
       TRA     SPC02          NO                                        F0E25100
 SPC01 TSX     PRNCC,4       *YES, PRINT CONTROL CARD                   F0E25110
       TRA     SPC03                                                    F0E25120
 SPC02 STL     ERRFF          SET ERROR FLAG                            F0E25130
       STZ     ERRFU          PREVENT ABORTION                          F0E25140
       STZ     ERRFR                                                    F0E25150
       STZ     ERRFE                                                    F0E25160
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E25170
 SPC03 TRA     READ1                                                    F0E25180
       REM                                                              F0E25190
 TCDOP TSX     SCANF,4       *EVALUATE TRANSFER ADDRESS                 F0E25200
       TXI     AFLAG,,0       NULL TRANSFER ADDRESS                     F0E25210
       STO     ADDRS          SET TRANSFER ADDRESS                      F0E25220
       STO     ERASE          SAVE FOR TRANSFER CARD                    F0E25230
       SLT     EXPRR          WAS TRANSFER ADDRESS IN ERROR             F0E25240
       TSX     PCHTC,4       *NO, PUNCH TRANSFER CARD                   F0E25250
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E25260
       STL     ERRFF          NO, SET FLAG                              F0E25270
       TSX     PRNTR,4       *PRINT CARD, TRANSFER ADDRESS RIGHT ADJ    F0E25280
       TRA     READ1                                                    F0E25290
       REM                                                              F0E25300
 TITOP NZT     UNLSF          IS LISTING SUSPENDED                      F0E25310
       STL     TITLF          NO, SET TITLE FLAG                        F0E25320
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E25330
       TRA     READ1                                                    F0E25340
       REM                                                              F0E25350
 TTLOP CAL     CHRCTR         SET SUBHEAD FLAG                          F0E25360
       SLW     TTLFG          RESET IF FIRST CHARACTER IS ZERO          F0E25370
       CAL     BLANKS         LOAD LEADING BLANKS                       F0E25380
       LDQ     BCDBF+1        LOAD CC 7 - 12                            F0E25390
       RQL     24             DELETE CC 7 - 10                          F0E25400
       LGL     12             INSERT CC 11 - 12                         F0E25410
       SLW     BLANKS+3       INTO WORD 4 OF SUBHEADING                 F0E25420
       AXT     10,4                                                     F0E25430
       LDQ     BCDBF+12,4     INSERT CC 13 - 72                         F0E25440
       STQ     BLANKS+14,4    INTO WORDS 5 - 14 OF SUBHEADING           F0E25450
       TIX     *-2,4,1                                                  F0E25460
       CAL     BCDBF          LOAD LOCATION FIELD                       F0E25470
       ERA     BLANKS         DOES A RENUMBER EXIST                     F0E25480
       TZE     TTL03          NO                                        F0E25490
       LDQ     BCDBF          YES, RELOAD PAGE NUMBER                   F0E25500
       STZ     SYMBL          CLEAR WORKING STORAGE                     F0E25510
       AXT     6,4            PREPARE TO ASSEMBLE 6 CHARACTERS          F0E25520
 TTL01 PXD     ,0                                                       F0E25530
       LGL     6              LOAD NEXT CHARACTER                       F0E25540
       SLW     CHRCTR                                                   F0E25550
       TZE     *+3            IS CHARACTER 0                            F0E25560
       ERA     BLANK          NO, IS IT BLANK                           F0E25570
       TZE     TTL02          YES                                       F0E25580
       CAL     SYMBL          APPEND THIS CHARACTER TO PARTIAL NUMBER   F0E25590
       ALS     6                                                        F0E25600
       ADD     CHRCTR                                                   F0E25610
       SLW     SYMBL          SAVE PARTIAL NUMBER                       F0E25620
 TTL02 TIX     TTL01,4,1      IS NUMBER COMPLETE                        F0E25630
       TSX     DECSV,4       *YES, CONVERT TO BINARY INTEGER            F0E25640
       SUB     Q1                                                       F0E25650
       SLT     EXPRR          IS INTEGER TOO LARGE                      F0E25660
       STA     PAGENO         NO, RESET PAGE NUMBER                     F0E25670
 TTL03 SXA     PAGCNT,0       EJECT PAGE                                F0E25680
       TSX     PRNCC,4       *PRINT CONTROL CARD                        F0E25690
       TRA     READ1                                                    F0E25700
       REM                                                              F0E25710
 UNLOP STL     UNL1F          SET UNLIST FLAG                           F0E25720
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E25730
       TRA     READ1                                                    F0E25740
       REM                                                              F0E25750
 VFDOP TSX     REFLC,4       *CHECK LOCATION COUNTER                    F0E25760
       TRA     VFDCR         RESET RELOCATION BITS AND SET FLAG        $F0E25770
       CAL     BCDBF+13       SET ETC CARD FLAG                         F0E25780
       ANA     Q2                                                       F0E25790
       SLW     ETCMD                                                    F0E25800
       AXT     36,4           SET UNUSED BIT COUNT TO FULL WORD         F0E25810
       SXA     VFDRB,4                                                  F0E25820
       STZ     VFDPF          RESET FLAG FOR FIELD ENDING IN BIT 35     F0E25830
       REM     REENTRY AFTER , TO START NEXT FIELD                      F0E25840
 VFETC TSX     VFDCV,4       *ASSEMBLE NEXT FIELD                       F0E25850
       REM     REENTRY TO PACK SECOND WORD OF A LONG FIELD              F0E25860
 VFD01 CLA     VFDFB          DOES IT RATTLE                            F0E25870
       SUB     VFDRB                                                    F0E25880
       TMI     VFD02          YES                                       F0E25890
       STO     VFDFB          IT RATTLES NOT                            F0E25900
       TNZ     *+5            DOES IT FIT PERFECT                       F0E25910
       STL     VFDPF          PERFECT FIT, AWARD YOURSELF ONE MEDAL     F0E25920
       CAL     RBITS          SET RELOCATION INDICATOR                  F0E25930
       STA     INDIC                                                    F0E25940
       STZ     RBITS          RESET RELOCATION BITS                     F0E25950
       CLA     VFDRB          LOAD NUMBER OF BITS LEFT IN WORD          F0E25960
       STA     *+3            SET SHIFT                                 F0E25970
       CAL     BINRY          LOAD DATUM WORD                           F0E25980
       LDQ     VFDFL+1        LOAD HIGH ORDER PORTION OF FIELD          F0E25990
       LGL     **             APPEND AS FAR AS IT GOES                  F0E26000
       SLW     BINRY          SAVE WORD                                 F0E26010
       CAL     VFDFL+1        RELOAD HIGH ORDER PORTION OF WORD         F0E26020
       LDQ     VFDFL          RELOAD LOW ORDER PORTION OF WORD          F0E26030
       XEC     *-4            LEFT ADJUST REMAINDER                     F0E26040
       SLW     VFDFL+1        SAVE NEW HIGH ORDER PORTION OF WORD       F0E26050
       STQ     VFDFL          SAVE NEW LOW ORDER PORTION OF WORD        F0E26060
       TSX     PRNTW,4       *LIST AND PUNCH THIS DATUM WORD            F0E26070
       STZ     INDIC          RESET RELOCATION INDICATOR                F0E26080
       AXT     36,4           RESET NUMBER OF BITS AVAILABLE IN         F0E26090
       SXA     VFDRB,4        NEXT WORD                                 F0E26100
       TRA     VFD01                                                    F0E26110
       REM     REENTRY FOR REMAINDER OF FIELD 36 BITS OR FEWER          F0E26120
 VFD02 NZT     VFDFB          ANY BITS LEFT                             F0E26130
       TRA     VFD03          NO                                        F0E26140
       STZ     VFDPF          IT RATTLES, YOU LOSE YOUR MEDAL           F0E26150
       STA     VFDRB          SAVE COUNT OF REMAINING FIELD             F0E26160
       ERA     QB             WILL FIELD FIT TIGHT IN DECREMENT         F0E26170
       TNZ     *+4            NO                                        F0E26180
       LXA     RBITS,4        YES, SET DECREMENT RELOCATION BITS        F0E26190
       SXD     INDIC,4                                                  F0E26200
       STZ     RBITS          RESET RELOCATION BITS                     F0E26210
       CLA     RBITS          LOAD RELOCATION BITS                      F0E26220
       TZE     *+3            WAS FIELD RELOCATABLE                     F0E26230
       STL     ERRFR          YES, TSK, TSK, TSK, IT DIDNT FIT          F0E26240
       STZ     RBITS                                                    F0E26250
       CLA     VFDFB          LOAD LENGTH OF THIS FIELD                 F0E26260
       STA     *+3            SET SHIFT                                 F0E26270
       CAL     BINRY          LOAD PARTIAL DATUM WORD                   F0E26280
       LDQ     VFDFL+1        LOAD HIGH ORDER PORTION OF WORD           F0E26290
       LGL     **             PACK IT IN                                F0E26300
       SLW     BINRY          SAVE PARTIAL DATUM WORD                   F0E26310
       REM     END OF FIELD                                             F0E26320
 VFD03 SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E26330
       TRA     VFETC          NO                                        F0E26340
       REM     END OF VARIABLE FIELD                                    F0E26350
       ZET     ETCMD          YES, DOES ETC CARD FOLLOW                 F0E26360
       TRA     VFD04+2        YES                                       F0E26370
       REM     END OF VFD STATEMENT                                     F0E26380
       ZET     VFDPF          NO, DO YOU STILL HAVE YOUR MEDAL          F0E26390
       TRA     VFD04          YES                                       F0E26400
       LDQ     BINRY          NO, LOAD PARTIAL DATUM WORD               F0E26410
       CLA     VFDRB          LOAD COUNT OF REMAINING BITS              F0E26420
       STA     *+1            INITIALIZE SHIFT                          F0E26430
       LGL     **             TO LEFT ADJUST PARTIAL DATUM WORD         F0E26440
       STQ     BINRY                                                    F0E26450
       TSX     PRNTW,4       *LIST AND PUNCH FINAL PARTIAL DATUM WORD   F0E26460
       REM     REENTRY FOR BESPANGLED FIELD                             F0E26470
 VFD04 STZ     VFDPF          RESET MEDAL                               F0E26480
       STZ     VFDMD          RESET VFD MODE FLAG                       F0E26490
       REM     REENTRY AFTER CALL STATEMENT TO PRINT ERROR FLAG         F0E26500
       LXD     IOLST,4        LOAD PRINT COMMAND WORD COUNT             F0E26510
       TXL     *+2,4,5        WAS CARD PRINTED                          F0E26520
       TSX     PRNTC,4       *NO, PRINT INPUT CARD                      F0E26530
       TRA     READ1                                                    F0E26540
       REM                                                              F0E26550
       REM                                                              F0E26560
 PHASE TSX     SCANF,4       *EVALUATE VARIABLE FIELD                   F0E26570
       TXI     *+5,,0         NULL VARIABLE FIELD                       F0E26580
       NZT     ERRFB          IS ERROR BOOLEAN                          F0E26590
       ZET     ERRFR          NO, IS ERROR RELOCATION ERROR             F0E26600
       TRA     *+3            YES                                       F0E26610
       NZT     ERRFU          NO, IS SYMBOL UNDEFINED                   F0E26620
       STL     ERRFP          NO, SET PHASE ERROR FLAG                  F0E26630
       REM     REENTRY FOR COMMENTS CARD                                F0E26640
       TSX     PRNTC,4       *PRINT INPUT CARD                          F0E26650
       TRA     READ1                                                    F0E26660
       REM                                                              F0E26670
       REM     ROUTINE TO TEST FOR ON/OFF OPTION OF CONTROL CARD        F0E26680
 ONOFF SXA     ONOFX,4        SAVE CALLING LINKAGE                      F0E26690
       TSX     SSCAN,4       *CHECK VARIABLE FIELD                      F0E26700
       TXI     ONOFX,,0       NULL ON/OFF OPTION                        F0E26710
       SLT     FLDND          WAS END OF VARIABLE FIELD SENSED          F0E26720
       STL     ERRFF          NO                                        F0E26730
       SLT     EXPRR          WAS CHARACTER ILLEGAL                     F0E26740
       SLT     EXPND          WAS END OF EXPRESSION REACHED             F0E26750
       TRA     FIELD          FIELD ERROR, FLAG  AND SKIP CARD          F0E26760
 ONOFX AXT     **,4           RESET LINKAGE                             F0E26770
       CAL     SYMBL          PICK UP VARIABLE FIELD SYMBOL             F0E26780
       TNZ     *+3            NON-BLANK, MAY BE 'ON', OR 'OFF'          F0E26790
       CLS*    1,4            BLANK FIELD, FLIP SWITCH                  F0E26800
       TRA     1,4            AND RETURN.                               F0E26810
       ERA     ONMSK          CHECK FOR 'ON'                            F0E26820
       TZE     ONRTN          IT IS 'ON'                                F0E26830
       ERA     OFFMK          CHECK FOR 'OFF'                           F0E26840
       TNZ     FIELD          ILLEGAL FIELD, FLAG AND SKIP CARD         F0E26850
       CLA*    1,4            OFF, PICK UP PARAMETER                    F0E26860
       SSM                    FORCE SWITCH TO NORMAL MODE               F0E26870
       TRA     1,4            AND RETURN.                               F0E26880
 ONRTN CAL*    1,4            ON, PICK UP PARAMETER                     F0E26890
       TRA     1,4            FORCE SWITCH TO 'ON' MODE, RETURN.        F0E26900
 ONMSK BCI     1,0000ON       MASK FOR ON                               F0E26910
 OFFMK BCI     1,000O T       MASK FOR OFF                              F0E26920
       REM                                                              F0E26930
 FIELD LDI     BCDBF+13       ERROR IN VARIABLE FIELD,                  F0E26940
       SIR     4              SET ERROR FLAG                            F0E26950
       STI     BCDBF+13                                                 F0E26960
       LXA     ONOFX,4        AND IGNORE THIS CARD                      F0E26970
       TRA     2,4                                                      F0E26980
 CRDID BCI     8,  BINARY CARD NO.             CARD ORIGIN              F0E26990
 INTIT BCI     4,  TABLE OF CONTENTS                                    F0E27000
 LDTIT BCI     4,      LINKAGE DIRECTOR                             (26)F0E27010
 PCTIT BCI     3,      PROGRAM CARD                                     F0E27020
 TVTIT BCI     4,  TRANSFER VECTOR                                      F0E27030
 LITIT BCI     4,  LITERALS                                             F0E27040
 CBTIT BCI     9,             IS THE LAST LOCATION NOT USED BY THIS PRO F0E27050
       BCI     1,GRAM                                                   F0E27060
 PGTIT BCI     9,            IS THE FIRST LOCATION NOT USED BY THIS PRO F0E27070
       BCI     1,GRAM                                                   F0E27080
 REFHD IOCT    *+1,,9                                                   F0E27090
       BCI     4,                                                       F0E27100
       BCI     5,POST PROCESSOR ASSEMBLY DATA                           F0E27110
 RFTIT BCI     6,0REFERENCES TO DEFINED SYMBOLS                         F0E27120
 USTIT BCI     6,0REFERENCES TO UNDEFINED SYMBOLS                       F0E27130
 REFOV BCI     9,0     SYMBOLIC REFERENCE TABLE OVERFLOWED. LISTING INC F0E27140
       BCI     2,OMPLETE.                                               F0E27150
 DELOL BCI     9,0     ONLINE CARDS DELETED. PUSH START TO CONTINUE     F0E27160
 CDERR BCI     9,0     KEEP YOUR EYE ON THE ONLINE PUNCH. THE END FILE  F0E27170
       BCI     4,MAY NOT BE RECOGNIZED.                                 F0E27180
 ERTIT BCI     9,0    E0 NO ERROR IN ABOVE ASSEMBLY. EXECUTION DELETED. F0E27190
 CHANG BCI     8,0 CHANGE TAPE AND PUSH START. EXECUTION DELETED.       F0E27200
       REM                                                              F0E27210
 FAILD IOCP    *+2,,24        EPITAPH FOR A SAD RELOCATABLE ASSEMBLY    F0E27220
       IOCT    PBUFF1+24,,3                                             F0E27230
       OCT     ,,,,,                                                    F0E27240
       OCT     200020040140,377437743760,200020040140,200020002010      F0E27250
       OCT     200020040140,200020002004,374037740140,200037402004      F0E27260
       OCT     200010100140,200020002010,377407600140,200037743760      F0E27270
       OCT     ,,,,,                                                    F0E27280
       REM                                                              F0E27290
 CTLWD PTW     **             RELOCATABLE CARD 9L LOAD ADDRESS          F0E27300
 CHKSM DEC                    RELOCATABLE CARD 9R CHECKSUM              F0E27310
 RELBT DEC     ,              RELOCATABLE CARD 8L,8R, RELOCATION BITS   F0E27320
       REM                                                              F0E27330
       DEC                    MUST PRECEDE BMPBF TO KEEP CC81 CLEAN     F0E27340
 BMPBF DEC     ,,,,,,,        BUFFER FOR CHARACTERS IN CARD LABEL       F0E27350
 BMPSV DEC     ,,,,,,,        BUFFER TO SAVE CARD LABEL                 F0E27360
 CIDBF DEC     ,,,,,,,        LISTING BUFFER FOR CARD ID NUMBER         F0E27370
 CIDSV DEC     ,,,,,,,        BUFFER TO SAVE LISTING CHARACTERS         F0E27380
       REM                                                              F0E27390
 PAKPC SXA     PRNCX,4                                                 $F0E27400
       AXT     5,4                                                     $F0E27401
       TNZ     PRNCS+3                                                 $F0E27402
       SXD     PRNCI,4                                                 $F0E27403
       TRA     PRNCS+3                                                 $F0E27404
       REM                                                             $F0E27405
       REM                    NEXT FIELD TO BE ASSEMBLED               $F0E27406
       REM                                                             $F0E27410
 ORDSC SXA     ORDSX,4        SAVE CALLING LINKAGE                     $F0E27420
       TSX     SCANF,4       *ASSEMBLE NEXT FIELD                      $F0E27430
       TXL     ORDSN,,0       NULL FIELD                               $F0E27440
       TSX     BCDCV,4       *CONVERT TO DECIMAL                       $F0E27450
       NZT     RBITS          IS FIELD RELOCATABLE                     $F0E27460
       TRA     ORDSX          NO                                       $F0E27470
       STL     ERRFR          YES, SET ERROR FLAGS                     $F0E27480
       SLN     EXPRR                                                   $F0E27490
       ZAC                    DELETE FIELD IN ERROR                    $F0E27500
       TRA     ORDSX                                                   $F0E27510
 ORDSN STL     ERRFA          SET MISSING FIELD FLAG                   $F0E27520
 ORDSX AXT     **,4           RELOAD CALLING LINKAGE                   $F0E27530
       TRA     1,4                                                     $F0E27540
       REM                                                             $F0E27550
       REM                                                             $F0E27560
 Q4BCD OCT     77777777                                                $F0E27570
       REM                                                             $F0E27580
 ORDZR LDI     BINRY          LOAD WORD                                $F0E27590
       LFT     770000         IS DIGIT 1 ZERO                          $F0E27600
       TRA     *+2            NO                                       $F0E27610
       SIL     120000         YES, CONVERT TO TAPE BCD ZERO            $F0E27620
       LFT     007700         IS DIGIT 2 ZERO                          $F0E27630
       TRA     *+2            NO                                       $F0E27640
       SIL     001200         YES, CONVERT TO TAPE BCD ZERO            $F0E27650
       LFT     000077         IS DIGIT 3 ZERO                          $F0E27660
       TRA     *+2            NO                                       $F0E27680
       SIL     000012         YES, CONVERT TO TAPE BCD ZERO            $F0E27690
       RFT     770000         IS DIGIT 4 ZERO                          $F0E27700
       TRA     *+2            NO                                       $F0E27710
       SIR     120000         YES, CONVERT TO TAPE BCD ZERO            $F0E27720
       RFT     007700         IS DIGIT 5 ZERO                          $F0E27730
       TRA     *+2            NO                                       $F0E27740
       SIR     001200         YES, CONVERT TO TAPE BCD ZERO            $F0E27750
       RFT     000077         IS DIGIT 6 ZERO                          $F0E27760
       TRA     *+2            NO                                       $F0E27780
       SIR     000012         YES, CONVERT TO TAPE BCD ZERO            $F0E27790
       STI     BINRY                                                   $F0E28000
       TRA     1,4                                                     $F0E28010
       REM                                                             $F0E28020
       REM                                                             $F0E28030
 ORDW1 TSX     ORDZR,4        *CONVERT BCD ZEROS                       $F0E28040
       TSX     PRNTO,4        *LIST AND PUNCH FIRST WORD               $F0E28050
       STZ     BINRY          CLEAR NEXT WORD                          $F0E28060
 ORDW2 TSX     ORDZR,4        *CONVERT BCD ZEROS                       $F0E28070
       TSX     PRNTO,4        *LIST AND PUNCH THIS WORD                $F0E28080
       TRA     READ1                                                   $F0E28090
       REM                                                             $F0E28100
       REM     CALL CORRECTION                                         $F0E28101
CALP1  NZT     ABSFLG         IS IT ABSOLUTE ASSEMBLY                  $F0E28102
       STL     TVFLG          NO, SET TRANSFER VECTOR NAME FLAG        $F0E28103
       TRA     CLETC-1                                                 $F0E28104
       REM                                                             $F0E28105
       REM     SET CORRECTION                                          $F0E28106
SET02  TSX     SCANF,4       *EVALUATE VARIABLE FIELD               (21)F0E28107
       TXI     AFLAG,,0       NULL DEFINITION                       (21)F0E28108
       CAL     VAREQ          LOAD DEFINITION                       (21)F0E28109
       STA     LITRL         REPLACE PASS ONE DEFINITION            (35)F0E28110
       CAL     LITRL         GET FLAGS WITH DEFINITION              (35)F0E28111
       TRA     SET03         AND RETURN TO PROCESS THEM             (35)F0E28112
       PZE                   (UNUSED)                               (35)F0E28113
       PZE                                                             $F0E28114
       PZE                                                             $F0E28115
       PZE                                                             $F0E28116
       REM                                                             $F0E28117
       REM     ENTRY CORRECTION                                        $F0E28118
 ENTPC STQ     ENTNM         SAVE FIRST ENTRY POINT NAME               $F0E28119
       SXD     SEPFLG,4      INITIALIZE STANDARD ERROR FLAG            $F0E28120
       TRA     ENT01+9                                                 $F0E28121
 ENTNM PZE     **            ENTRY POINT NAME                          $F0E28122
       REM                                                             $F0E28123
       REM     BCI CORRECTION                                          $F0E28124
 BCI00 TSX     PRNTL,4       *PRINT LOCATION LEFT ADJUSTED             $F0E28125
       TRA     READ1                                                   $F0E28126
       REM                                                             $F0E28127
 INITA SLW     START              SAVE LOCATION FIELD                  $F0E28128
       CAL     BCDBF+13           SAVE ERROR FLAGS                     $F0E28129
       SLW     INITP                                                   $F0E28130
       STZ     BCDBF+13                                                $F0E28131
       TRA     INIT1                                                    F0E28132
 INITB TSX     PRNTW,4            *LIST AND PUNCH THIS DATUM WORD      $F0E28133
 INITC CAL     INITP              RESTORE ERROR FLAGS                  $F0E28134
       SLW     BCDBF+13                                                $F0E28135
       TRA     INIT4                                                   $F0E28136
 INITP PZE                                                             $F0E28137
       REM     VFD CORRECTION                                          $F0E28140
 VFDCR STZ     RBITS         RESET RELOCATION BITS                     $F0E28141
       STL     VFDMD         SET VFD CARD FLAG                         $F0E28142
       TRA     VFDOP+2                                                 $F0E28143
       REM     PROGRAM CARD CORRECTION                                 $F0E28144
INITR  SXA     STR09,4       RESET CARD WORD COUNT FOR RELOCATABLE     $F0E28145
       ZET     MAINPF        IS THIS A MAIN PROGRAM                 (24)F0E28146
       ZET     PRGBK         YES, IS PROGRAM BREAK 0                (24)F0E28147
       TRA     INITS                                                (24)F0E28148
       ZSD     PNCH1         MAIN PROGRAM WITH PROGRAM BREAK 0      (24)F0E28149
       TRA     INITS                                                (24)F0E28250
PATCH1 LXA     PAGCNT,1       LOAD NUMBER OF LINES LEFT ON PAGE        $F0E28251
       TXH     SPCOP+8,1,0    IS THIS TOP OF PAGE                      $F0E28252
       PAX     ,1             YES, RECALL NUMBER OF LINES TO SPACE     $F0E28253
       TRA     SPCOP+14                                                $F0E28254
 PREFP LNT     10             DUPLICATE DEFINITION                     $F0E28258
       CAL     BLANKS         NO, CLEAR FLAG                           $F0E28259
       LGL     6              BRING IN CHARACTER                       $F0E28260
       SLW     BBUF22         SET WORD ZERO                            $F0E28261
       LNT     10             TEST AGAIN                               $F0E28262
       TRA     PREF6          NO DUPLICATE, CONTINUE                   $F0E28263
       TRA     PREF6+1        ALWAYS PRINT DUPLICATE                   $F0E28264
       REM     PROLOGUE CORRECTION FOR EVEN                            $F0E28265
 INITE CAL     INIT1          TRANSFER VECTOR LENGTH IN ADDRESS        $F0E28266
       ZET     EVNFLG         DO EVEN PSEUDO-OPS EXIST                 $F0E28267
       LBT                    YES, IS EXTRA WORD NEEDED..              $F0E28268
       TRA     INITF        **NO                                       $F0E28269
       AXT     6,4            YES, SET LENGTH OF LISTING LINE          $F0E2826A
       SXD     IOLST,4        TO INCLUDE LOCATION FIELD                $F0E2826B
       TSX     PRLST,4        PRINT BLANK LINE                         $F0E28270
       IOCD    ,,0                                                     $F0E28271
       CAL     AXTOC          GENERATE HARMLESS INSTRUCTION            $F0E28274
       SLW     BINRY                                                   $F0E28275
       CAL     EVENM         '*EVEN*' TO LOCATION FIELD                $F0E28276
       SLW     BCDBF                                                   $F0E28277
       TSX     PRNTI,4        PRINT AXT INSTRUCTION                    $F0E28278
 INITF CAL     START          RESTORE CARD LOCATION FIELD              $F0E28279
       TRA     INIT3+2                                                 $F0E28280
       REM                                                             $F0E28281
 EVNOP CAL     LOCTR          GET PROGRAM COUNTER                      $F0E28282
       LBT                    IS IT ODD..                              $F0E28283
       TRA     UNLOP+1        NO, OPERATION IS NULL                    $F0E28284
       CAL     AXTOC          YES,INSERT AXT OP CODE                   $F0E28285
       SLW     BINRY                                                   $F0E28286
       TSX     PRNTI,4        AND PRINT LINE                           $F0E28287
       TRA     READ1                                                   $F0E28288
 AXTOC AXT     ,0                                                      $F0E28289
 EVENM BCI     1,*EVEN*                                                $F0E28290
       REM     SET ERROR BIT IN SYSJOB AND OBTAIN FLAGS                $F0E28300
SSJOB  CAL     D1             =1B17                                    $F0E28310
       ORS     SYSJOB                                                  $F0E28320
       LDI*    (FGBX)                                                  $F0E28330
       TRA     1,2                                                     $F0E28340
PTCHX  LXA     VRFLD,1        WORD COUNT + 1 OF CHARACTERS IN WORD     $F0E28350
       TNX     *+3,1,1        TRANSFER IF THE WHOLE WORD CAN BE BLANKED$F0E28351
       LGL     6              OTHERWISE WE BLANK OUT                   $F0E28352
       TIX     *-1,1,1        THE REQUIRED NUMBER OF CHARACTERS        $F0E28353
       SLW     BCDBF,4        STORE WORD FOR PRINTING                  $F0E28354
       TSX     PRNTC,4        TO PRINT ROUTINE                         $F0E28355
       TRA     READ1          BACK TO MAIN CODING                      $F0E28356
PTCHY  AXT     27,4                                                 (23)F0E28357
       STZ     PBUFF1+27,4    DELETE PROGRAM BREAK                  (23)F0E28358
       TIX     *-1,4,1        AND TRANSFER VECTOR                   (23)F0E28359
       TRA     STRT1-20       AND RETURN                            (23)F0E28360
 INX02 BCI     5,                                                   (26)F0E28390
PTCHZ  ZET     UNLSF          IS LISTING SUSPENDED                  (27)F0E28400
       TRA     SPC03          YES, DO NOT SPACE LISTING             (27)F0E28410
       LXD     PMCSW,4                                              (27)F0E28420
       TXL     SPCOP+2,4,0    IS IT MACRO GENERATED                 (27)F0E28430
       CLA     PMCSW+1        YES, TEST PMC SWITCH                  (27)F0E28440
       TRA     SPCOP+1                                              (27)F0E28450
 HGPCH STZ     SYMTBL-1,1     DELETE HANGING GARBAGE                (28)F0E28460
       STZ     SYMTBL,1                                             (28)F0E28470
       TRA     SUDS1+8        CONTINUE                              (28)F0E28480
K001   TXL     K002,2,**       TRA IF REFERENCE TABLE OVERFLOWED.   (32)F0E28490
       TZE     PREF8           TRA IF THIS IS A NEW SYMBOL.         (32)F0E28500
       TRA     PREF7+2         TRA IF THIS SYMBOL HAS BEEN USED.    (32)F0E28510
K002   STZ     PRTIF           NO CONTINUATION LINES WHEN LOCATIONS (32)F0E28520
*                              OF REFERENCES TO UNDEF.SYM. DELETED. (32)F0E28530
       TXI     PREFS,2,1       GO WRITE NAME OF UNDEFINED SYMBOL.   (32)F0E28540
K003   LXD     LBL02,4         DECR. = -1 UNTIL PROGRAM CARD HAS    (32)F0E28550
       TXH     LBL03+1,4,-2    BEEN PUNCHED. DO NOT FORCE PUNCHING  (32)F0E28560
       TRA     LBL03           OF INCOMPLETE PROGRAM CARD.          (32)F0E28570
       REM     *************************PATCH SPACE******************  $F0E29999
       REM     NUMBER FIELD ALLOWED FOR PATCHES                        $F0E30000
 FINIS SYN     BOTTAB-LOPTBM-6                                         $F0E30010
       REM                                                             $F0E30020
       REM                                                             $F0E30030
       REM                                                             $F0E30040
       REM     DATA TABLES                                             $F0E30050
       ORG     BOTTAB                                                  $F0E30055
       REM                                                             $F0E30060
       BSS     LSMTBM         TABLE OF SYMBOL DEFINITIONS              $F0E30070
VECTOR BSS     LTVTBL         TABLE OF TRANSFER VECTOR NAMES           $F0E30080
LITTBL BSS     LLITBL         TABLE OF LITERAL VALUES                  $F0E30090
       REM                                                             $F0E30091
       REM     BCD BLOCKED CARD BUFFERS                                $F0E30100
       REM                                                             $F0E30110
       ORG     BOTBUF                                                  $F0E30115
BBUF11 BSS     104            BCD LISTING BUFFER 1                     $F0E30120
BBUF12 BSS     104            BCD LISTING BUFFER 2                     $F0E30130
BBUF21 BSS     UPDBKL+1       UPDATE INPUT BUFFER 1+1WORK SKEW SPACE   $F0E30140
BBUF22 BSS     UPDBKL+1       UPDATE INPUT BUFFER 2+1WORK SKEW SPACE   $F0E30150
BBUF31 BSS     UPDBKL+1       SOURCE INPUT BUFFER 1+1WORK SKEW SPACE   $F0E30160
BBUF32 BSS     UPDBKL+1       SOURCE INPUT BUFFER 2+1WORK SKEW SPACE   $F0E30170
BBUF41 BSS     UPDBKL         UPDATE OUTPUT BUFFER 1                   $F0E30180
BBUF42 BSS     UPDBKL         UPDATE OUTPUT BUFFER 2                   $F0E30190
BBUF51 BSS     INPBKL+1       INTERMEDIATE INPUT/OUTPUT BUFFER 1       $F0E30200
BBUF52 BSS     INPBKL+1       INTERMEDIATE INPUT/OUTPUT BUFFER 2       $F0E30210
       REM                                                             $F0E30220
       REM     BINARY CARD BUFFERS                                     $F0E30230
       ORG     BBUF31                                                  $F0E30240
PBUFF2 BSS     27             MONITOR BINARY OUTPUT BUFFER 1           $F0E30250
PBUFF3 BSS     27             MONITOR BINARY OUTPUT BUFFER 2           $F0E30260
PBUFF4 BSS     27             INTERMEDIATE BINARY OUTPUT BUFFER 1      $F0E30270
PBUFF5 BSS     27             INTERMEDIATE BINARY OUTPUT BUFFER 2      $F0E30280
       REM                                                             $F0E30290
       END     -1                                                       F0E30300
« July 2014 »
Su Mo Tu We Th Fr Sa
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
 

Powered by Plone CMS, the Open Source Content Management System

This site conforms to the following standards: