$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
$DATE          121563                                                  $00000040
$EXECUTE       IBSFAP                                                   00000050
       SKIPTO                                                           9IBS0000
       CLA     FAPBT                                                    F0004034
       SXA     TDSK1,2                                                  F0004860
       CAL     SYSPOS                                                   F0005070
       TRA     FCOUNT                                                   F0005080
INIT6  LAC     TAPNO-1,4                                                F0005090
       LDI     0,4                                                      F0005100
       LNT     020000                                                   F0005110
       SLW     2,4                                                      F0005120
       TSX     (LOAD),4,1                                               F0005130
       BCI     1,9F0100                                                 F0005140
FCOUNT ANA     DCMSK                                                    F0006320
       ADM     L(01)                                                    F0006321
       TRA     INIT6                                                    F0006322
       DELETE                                                           F0006340
       DELETE  THRU                                                     F0006347
 DISKT TXL     TDISK,T,1      IS CALL FOR SYSTEM FUNCTION (NOP IF TAPE) F0012240
       TRA     RDPRR+1       *GO CLEAR OUT COUNT                        F0014230
       DELETE                                                           F0015080
       DELETE  THRU                                                     F0015510
TDISK  LFT     040000                                                   F0015080
       TRA     TDSK2                                                    F0015090
       LNT     (SKIP)                                                   F0015100
       TRA     TDSK1                                                    F0015110
       STZ     TDSKI                                                    F0015120
       TRA     TAPEX                                                    F0015130
TDSK1  ZET     0                                                        F0015140
       TRA     *-1                                                      F0015150
       TRA     CHKTO                                                    F0015160
TDSK2  STI     ERAS1                                                    F0015170
       AXT     CALLDR,4                                                 F0015180
       SXA     SYSTRA,4                                                 F0015190
       STL     (SCHU)+SYSTAP                                            F0015200
       ZET     TDSKI                                                    F0015210
       TRA     *+3                                                      F0015220
       TSX     SYSLDR,4,1                                               F0015230
       BCI     1,9FL001                                                 F0015240
       TSX     SYSLDR,4                                                 F0015250
CALLDR AXT     LOAD1,4                                                  F0015260
       SXA     SYSTRA,4                                                 F0015270
       STL     TDSKI                                                    F0015280
       LDI     ERAS1                                                    F0015290
       LNT     000010                                                   F0015300
       TRA     TAPEX                                                    F0015310
       XEC     TDSK1                                                    F0015320
       TRA     *-1                                                      F0015330
       TRA     TAPEX                                                    F0015340
TDSKI  PZE                                                              F0015350
       DUP     1,51           PATCH SPACE                               F0015500
       PZE                                                              F0015510
       LFT     400000         IS THERE AN IOEX NOISE FLAG,READING..     F0018350
       CLA     1,4                                                      F0018400
       TPL     IOPSP                                                    F0018401
       STZ     1,4                                                      F0018402
 IOPSP LXA     IOPSX,4                                                  F0018403
       TRA     2,4                                                      F0018410
       TXI     *+10,2,NTAPE  PERMANENT RTT READING                      F0018450
       NOP                                                              F0023030
       TSX     (NDATA,4                                                 F0023260
               TAPNO,T,.REW.                                            F0023270
       MZE     DGSV7,,(WBNC)                                            F0025780
 DGSV1 PZE     ,,MLSTAP                                                 F0025790
       PZE     ,,MLSTAP                                                 F0025830
 DGLD1 PZE     ,,MLSTAP                                                 F0026080
       PZE     ,,MLSTAP                                                 F0026120
 TGADD PZE                                                              F0026660
SIZE   EQU     61                                                       F0B00210
       SXD     PCH6,1                                                   F0B00340
X      LDQ     BOTTOM-10                                                F0B00390
       LXD     BOTTOM-5,4                                               F0B00430
       TRA     PCH5+4                                                   F0B00510
       TXL     LDTIX,4,1                                                F0B00520
       DCT                                                              F0B00530
       ZET     DATEBX                                                   F0B00540
       TXH     LDTIX,4,2                                                F0B00550
       TRA     RETRN                                                    F0B01520
       PZE                                                              F0B01640
       PAX     0,1                                                      F0B01700
       TXI     *+1,1,5                                                  F0B01710
       PXA     0,1                                                      F0B01720
       STO*    (LNCT)                                                   F0B01730
       PZE     ERR,,(RBNP)+3                                            F0B06301
       PZE     0,,6                                                     F0B06302
       CLA*    (LNCT)                                                   F0B06310
       ADD     ONE           UPDATE LINE COUNT                          F0B06320
       STO*    (LNCT)                                                   F0B06330
       NZT     END,2         IS THIS DUMP OR PDUMP...                   F0B06340
       TRA     RSR           PDUMP. RETURN TO PROGRAM                   F0B06350
       TXI     *+1,2,1                                                  F0B06360
       TXL     *-3,2,60                                                 F0B06370
       TRA     *+3                                                      F0B06380
RSR    ZET     TEMP+6                                                   F0B06390
       TRA     RSR2                                                     F0B06400
       TSX     (LOAD),4,1    DUMP. GO TO SIGN-ON                        F0B06410
       BCI     1,9F0300                                                 F0B06420
TRSR   ZET     TEMP+10       1ST LIMIT IS ZERO, IS IT FIRST DUMP        F0B06430
       TRA     *-5           NO, END OF DUMP                            F0B06440
       STL     TEMP+9        NO FURTHER DUMPS                           F0B06450
       TRA     CONT          PROCEED                                    F0B06460
RSR2   TSX     (TAPE),4      NO, RESTORE IT                             F0B06470
       DELETE                                                           F0B06475
       PZE     BS2R,,(SKBP)                                             F0B06480
       DELETE                                                           F0B06485
       PZE     0,,1                                                     F0B06490
       DELETE                                                           F0B06495
       NZT     TEMP+1                                                   F0B06500
       DELETE                                                           F0B06505
       TRA     RSR1                                                     F0B06510
PRSR   TSX     (TAPE),4      REPOSITION SAVE TAPE                       F0B06520
       PZE     IORT,,(RBNP)                                             F0B06530
       PZE     S2L,,SAVTAP                                              F0B06535
       AXT     2,4                                                      F0B06536
       SXA     BS1R,4                                                   F0B06537
RSR1   TSX     (TAPE),4      SAVE LOWER MEMORY FOR READ ROUTINE         F0B06540
       PZE     BS1R,,(SKBP)                                             F0B06545
       PZE     ,,SAVTAP                                                 F0B06550
       CLA     *                                                        F0B06555 
       DELETE                                                           F0B06560 
       DELETE                SAVE LOWER MEMORY FOR READ ROUTINE         F0B06570
       DELETE                            TO LOWER CORE(RESTORED         F0B06580
       ALS     4                                                        F0B06590
       ZET     END+7                                                    F0B06600
       NOP                                                              F0B06610
       ZET     END+6                   TINE LOADED HERE                 F0B06620
       DVP     0                                                        F0B06630
       NZT     END+8         UCB FOR SAVTAP                             F0B06640
       TOV     *+1           LOC OF SELECT                              F0B06641
       SXD     *+2,2                      USE                           F0B06642
       LDC     END,4         YES, WAIT                                  F0B06643
       TXI     *+1,4,0       LOCATE SELECT                              F0B06644
       SXD     BOTTOM-8,4    START UNIT                                 F0B06645
       CLA     SYSUT3                                                   F0B06650
       STA     SELEND        IS READ COMPLETE...                        F0B06660
       PAC     0,2           NO, WAIT                                   F0B06670
       CLA     RSR3          ERROR INDICATION                           F0B06680
       STO     BOTTOM-7      WAS READ SUCCESSFUL                        F0B06690
       CLA     PCH6          NO. BOMB OUT                               F0B06700
       STO     BOTTOM-6      YES. RETURN TO PDUMP                       F0B06710
 RSR3  ZET     1,2           INFORM OPERATOR, SINCE                     F0B06720
       TRA     *-1           WE HAVE NO MEANS OF                        F0B06730
       CLA     *+5           WRITING OFFLINE                            F0B06740
       STO     1,2           SET IBSYS BOMB BIT                         F0B06750
       TSX     (ACTIV,4                                                 F0B06760
       PZE     SELEND,,,0    TO LOOK FOR NEXT SEGMENT                   F0B06770
       TRA     BOTTOM-7                                                 F0B06780
       PZE     SELEND-1,,*+1  RETURN TO IBSYS                           F0B06790
       STA     IOXSLL+1                                                 F0B06800
       REM                                                              F0B06810
       REM                ESTORE AFTER PDUMP. JOB ENDED.                F0B06820
       SXA     PST,4               P                                    F0B06830
IOXSLL PAC     0,2                                                      F0B06840
       LXD     0,4           SELECT PLUS OR MINUS...                    F0B06850
       TXI     *+1,4,16      BINARY UNIT ADDRESS                        F0B06860
       SXA     *+6,4         TO SELECT                                  F0B06870
       CLA     IOXSLL-3      I/O COMMAND LOCATION                       F0B06880
       STA*    (RCHXI        TO RCH                                     F0B06890
       CLA     BOTTOM-5                                                 F0B06900
       ALS     18                                                       F0B06910
       STD     1,2                                                      F0B06920
       RDS     **            SELECT                                     F0B06930
       XEC*    (RCHXI        LOAD CHANNEL                               F0B06940
PST    AXT     0,4                                                      F0B06950
       TRA     1,4           RETURN                                     F0B06960
       TXH     ORGDP,,3712   SELECT MINUS                               F0B06970
SELEND EQU     *             END OF LOW CORE CODING                     F0B06980
       LOC                   RETURN TO NORMAL LOCATIONS                 F0B06990
       PZE                                                              F0B07000
S2L    BCI     1,SAVE2       LABEL FOR SAVTAP                           F0B07010
PCH6   TXI     BOTTOM-7,,0                                              F0B07020
BS2R   MZE     3                                                        F0B12870
BS1R   MZE     1,,0                                                     F0B12880
       DELETE                                                           F0B12881
       DELETE  THRU                                                     F0B12885
       TRA     FERR+3                                                   F0B12927
       TRA     X                                                        F0B12939
IOBOT  TXL     *+3,4,0                                                  F0B1293M
       TXH     *+2,4,1                                                  F0B1293N
       STZ     END+8                                                    F0B1293O
       TRA     PANEL                                                    F0B1293P
       TSX     (PRNT),4                                                 F0C02116         
       PZE     COM6,,8                                                  F0C02118    
       TSX     (PRNT),4                                                 F0C02120         
       PZE     COM7,,8                                                  F0C02122 
PJOB   CLA     CDMGE         PICK UP COMMAND TO PRINT CARD             $F0C08699
       TRA     FCNINE        AND START OVER                             F0C0869B
COM6   BCI     8,0     FORTRAN JOB NOT SURROUNDED BY ENDS-OF-FILE       F0C12498
COM7   BCI     8,      DO NOT ATTEMPT RETRY IN CASE OF ERROR.           F0C12500
PATS   BSS     32                                                       F0C12900
       DELETE                                                           F0C12901
       DELETE  THRU                                                     F0C12903
PAGENO AXT     **,4           LOAD PAGE LINE COUNT                      F0D02590
PAGCNT AXT     **,1           LOAD PAGE NUMBER                          F0D02600
       TXH     FPRN0,1,4      IS BLANK LINE AT BOTTOM OF PAGE           F0D02640
       SXA     PAGCNT                                                   F0D02650
       TXH     FPRNX,4,0      TRANSFER IF NOT FIRST PAGE                F0D02660
       REM     LINE IS NOT BLANK,OR NOT AT BOTTOM OF PAGE               F0D02670
 FPRN0 TPL     *+2            IS THIS LINE FORCED                       F0D02680
       STL     PRTF1          YES,SET FLAG                              F0D02690
       TIX     FPRN1,1,1      IS PAGE FULL                              F0D02700
       TXI     *+1,4,1        YES, BUMP PAGE NUMBER                     F0D02710
       SXA     PAGENO,4                                                 F0D02720
       AXT     **                                                       F0D02730
       LDQ     BCDBF                                                    F0D04030
       ZAC                                                              F0D04040
       LGL     6              ISOLATE COLUMN 1                          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
       TRA     STP00          NO, INITIALIZE WORD AND                   F0D04080
 STP01 CAL     BCDBF+1        CHARACTER POSITIONS FOR OP CODE SCAN      F0D04090
       LDQ     BCDBF+2        CHECK FOR ASTERISK IN COLUMN 7 (UGH)      F0D04100
       LGL     6              POSSIBLE IF IN IBSFAP MODE                F0D04110
       SLW     NERAS          IS IT BY CHANCE                           F0D04120
       LGR     18            *CHECK MODE IF YES                         F0D04130
 STP04 ZAC                 CAN NEXT CHARACTER IN OP FIELD               F0D04135
       LGL     6              STORE CURRENT WORD AND CHARACTER          F0D04140
       REM                    POSITIONS OF OP CODE SCAN                 F0D04150
       REM     C019Q,4       *GO GET NEXT CHARACTER                     F0D04160
       TZE     STP03          YES, END OF OPCODE                        F0D04220
       TZE     STP3A          YES                                       F0D04260
 STP02 TXH     *+2,1,0        ARE WE STILL IN CARD WORD 2               F0D04280
       TRA     2,4                ARE WE PAST CC 14                     F0D04290
       TXI     STP04,1,-6     YES, OP FIELD IS TOO LONG                 F0D04300
 STP2A SXA     STP09,2        TAKE ERROR RETURN                         F0D04310
       ZAC                     ODE TERMINATED BY BLANK                  F0D04320
       TRA     STP09-1       *OBTAIN NEXT CHARACTER                     F0D04330
 STP3A SXA     STP08,1        IS IT BLANK                               F0D04340
       CAL     LPARN          NO, VARIABLE FIELD HAS BEGUN              F0D04350
       DELETE                 YES, ARE WE PAST WORD 2                   F0D04355
       TXI     STP05,1,6      YES, IS NEXT COLUMN 16                    F0D04360
 STP03 SXA     STP08,1                                                  F0D04370
       ZAC                   *INITIALIZE CHRCTR PROPERLY                F0D04380
       LGL     6                                                        F0D04390
       SUB     BLANK          ARE WE PAST WORD TWO                      F0D04400
       TNZ     *+3            NO, ( IN CC 8 IS PART OF OP CODE          F0D04410
       TXL     *+2,1,0        INNING OF VARIABLE FIELD SENSED           F0D04420
       TXI     STP03+1,1,-6   RELOAD BEGINNING CHARACTER                F0D04430
       ADD     BLANK          AND POSITION FOR SCAN                     F0D04440
 STP05 SLW     CHRCTR         STORE SCAN WORD                           F0D04450
       SXA     TOPTAB,1       BUMP CHARACTER POSITION BACK              F0D04460
       LDQ     Q0             STORE WORD AND CHARACTER                  F0D04470
       PXA     0,1            POSITIONS BEGINNING VARIABLE FIELD        F0D04480
       VDP     BLANK,,3       LOAD CHARACTER POSITION OF OP FIELD       F0D04490
       DCT                    END AND MULTIPLY BY 6 TO COMPUTE          F0D04500
       TSX     MACERR,4       AMOUNT OF SHIFT                           F0D04510
       XCA                                                              F0D04520
 STP06 AXT     -2,2           RELOAD WORD ENDING OP FIELD               F0D04530
       TXL     STP07,1,12     WAS IT WORD TWO                           F0D04540
       SUB     Q2             NO, BUMP SHIFT COUNT                      F0D04550
       TXI     *+2,2,1        WAS OPERATION INDIRECTLY ADDRESSED        F0D04560
 STP07 ADD     Q4             YES, ADJUST SHIFT COUNT TO OMIT *         F0D04570
       STA     VRFLD          LOAD CARD WORDS TWO                       F0D04580
       SXD     VRFLD,2        AND THREE (COLUMNS 7 THROUGH 18)          F0D04590
       CAL     BCDBF+1        RIGHT ADJUST OPERATION CODE               F0D04600
       LDQ     BCDBF+2                                                  F0D04605
       LGL     54,1           THEN LEFT ADJUST IT                       F0D04610
       SLW     RESIDU         IF OPCODE IS NULL,                        F0D04620
       LDQ     NERAS          RESET IT TO BLANKS                        F0D04630
 STP08 AXT     **,6                                                     F0D04632
       ZET     INDFG                                                    F0D04635
       TXI     *+1,6,6        STORE OPERATION CODE                      F0D04640
       TXI     STP2A,2,-6     DID IT COME OUT AS **                     F0D04650
       LGL     42,4           NO, EXIT                                  F0D04660
 STP09 ALS     **             YES, MUST HAVE BEEN ***                   F0D04670
       SLW     OPCOD          GO BACK TO READJUST IT                    F0D04680
       LXD     VRFLD,2        RELOAD SCAN WORD POSITION                 F0D04690
       LXA     VRFLD,1        RELOAD CALLING LINKAGE                    F0D04700
 STUPX AXT     **,4                                                     F0D04710
       TRA     3,4                                                      F0D04720
       DELETE                                                           F0D04725
       DELETE  THRU                                                     F0D04790
       DELETE                                                           F0D07435
TEN5TH PZE                                                              F0D07440
       LRS     4                                                        F0D12100
       TZE     BCDV2          NO, THIS IS FORTRAN MODE                  F0D13720
       LDQ     BCDBF+1        YES, SET FLAG TO UNBLOCK                  F0D13730
       ZAC                    CONTROL CARDS                             F0D13740
       LGL     6                                                        F0D13750
 BCDV1 ERA     ASTRK                                                    F0D13760
       TZE     *+3            HUNDREDS OF THOUSANDS                     F0D13770
 BCDV2 AXT     24,1                                                     F0D13780
       TRA     STP01                                                    F0D13790
       STL     COMCD          BACK TO BCDCV ROUTINE                     F0D13800
 IFIX  SSM                                                              F0D13810
SSN33  TRA     1,4                                                      F0D13820
       DUP     1,4            PATCH SPACE                               F0D13830
       PZE                                                              F0D13840
 Q5    PZE     5                                                        F0D14320
 Q28   PZE     28                                                       F0D14370
 T7    PZE     ,7                                                       F0D14540
 D14   PZE     ,,14                                                     F0D14640
 P5    FVE                                                              F0D14740
 INP06 AXT     **,4                                                     F0D20880
       TXI     *+1,4,1                                                  F0D20890
       SXA     *-2,4                                                    F0D20900
       PXA     0,4                                                      F0D20910
       TSX     BCDCV,4       *CONVERT TO DECIMAL                        F0D20920
       LDQ     SPACE                                                    F0D20930
       LGR     6                                                        F0D20940
       ORA     PROID                                                    F0D20950
UPFIX  CAL     DELBF+2       *LIST DELETED CARD                         F0D21160
       ANA     PKMSK                                                    F0D21170
       ERA     ENDMK          RELOAD CALLING LINKAGE                    F0D21180
       TNZ     CKUPD+1                                                  F0D21190
IFFIX  CAL     INSBF+2                                                  F0D21200
       ANA     PKMSK   CODE FOR UPDATE PSEUDOOPERATION                  F0D21205
       ERA     ENDMK                                                    F0D21207
 CKUPD TZE     DELPX          SAVE LINKAGE                              F0D21210
       TSX     FPRINT,4       OBTAIN OP CODE                            F0D21215
               DELBF,,17     *DEFINE IT                                 F0D21220
 DELPX AXT     **,4           OPCODE IS UNDEFINED                       F0D21225
       TRA     1,4            IS IT A MACHINE OPERATION                 F0D21230
       DELETE                 NO, IS IT A NON-UPDATE OPERATION          F0D21235
       DELETE                 YES                                       F0D21240
       DELETE                 RETURN FOR OPCODE                         F0D21245
       DELETE                 IS AN UPDATE PSEUDOOPERATION              F0D21250
       DELETE                 RETURN FOR OPCODE                         F0D21255
       DELETE                 IS NOT AN UPDATE PSEUDOOPERATION          F0D21260
       DELETE                 RESET SERIALIZATION                       F0D21261
       DELETE  THRU                                                     F0D21270
       TSX     SOPTB,4        SHOULD CARD BE LISTED AS INSERTED         F0D21340
       TRA     INS01                                                    F0D21350
NUM02  RNT     100000                                                   F0D21360
       LNT     100000                                                   F0D21370
       CAL     DELBF+2                                                  F0D21430
       ANA     PKMSK                                                    F0D21440
       ERA     ENDMK                                                    F0D21450
       TNZ     *+3                                                      F0D21460
       AXT     15,4                                                     F0D21470
       TRA     *+2                                                      F0D21480
 INS01 AXT     17,4                                                     F0D21490
       SXD     *+2,4                                                    F0D21500
       TSX     FPRINT,4      *LIST INSERTED CARD                        F0D21510
               INSBF                                                    F0D21520
       TXL     EOFER,4,0      ENDFIL DETECTED                           F0D22960
 SRCRR NOP                                                              F0D23080
SRCRM  BCI     4, MACRO DEF HEADING,RMT,                                F0D23150
       BCI     6,OR END CARD ERROR POSSIBLY CAUSED                      F0D23160
ECARD  BCI     3, BINRY  EOF  ENDUP                                     F0D23170
       DELETE                                                           F0D23180
       TRA     COMCD-2                                                  F0D25360
       ZSA     COMCD                                                    F0D25370
       TSX     SOPTB,4                                                  F0D25380
       TRA     COMCD-2                                                  F0D25390
       RNT     100000                                                   F0D25400
       LNT     100000                                                   F0D25410
       TRA     READ3+1                                                  F0D25420
       TRA     PSOPT                                                    F0D25430
 ENPOP TSX     FPRINT,4                                                 F0D31140
       PZE     INSBF,,15                                                F0D31150
       NZT     DELFLG                                                   F0D31160
       TRA     EOFIN                                                    F0D31170
       TRA     ENDFA                                                    F0D31180
       STA     INP06                                                    F0D33240
 UPD02 TSX     UPSSC,4                                                  F0D35780
       STA     PAKFLG                                                   F0D35790
       ZET     FCFLG                                                    F0D35800
       TRA     UPD05                                                    F0D35810
       TSX     UPSSC,4                                                  F0D35820
       TZE     UPD05                                                    F0D35830
       SLW     DELFLG                                                   F0D35840
       SLW     FCFLG                                                    F0D35850
       TSX     (PRNT),4                                                 F0D35860
       PZE     DELMS,,5                                                 F0D35870
 UPD05 SLT     4                                                        F0D35880
       TRA     FIELD                                                    F0D35890
       TSX     UPDLS,4                                                  F0D35900
       TRA     SOURC                                                    F0D35910
       LAS     SYSAST                                                   F0D36240
       TRA     FIELD                                                    F0D36250
       NOP                                                              F0D36260
       LAS     SYSTPS                                                   F0D36270
       TRA     UPSCX                                                    F0D36280
       NOP                                                              F0D36290
       TRA     FIELD                                                    F0D36300
 UPSSC SXA     UPSCX,4                                                  F0D36310
       TSX     SSCAN,4                                                  F0D36320
       PON     UPSCX,,                                                  F0D36330
       SLT     1                                                        F0D36340
       SLT     2                                                        F0D36350
       TRA     FIELD                                                    F0D36360
       CAL     SYMBL                                                    F0D36370
 UPSCX AXT     **,4                                                     F0D36380
       TRA     1,4                                                      F0D36390
       DELETE                                                           F0D36400
       TSX     FPRINT,4                                                 F0D36430
       PZE     INSBF,,15                                                F0D36440
       LXA     INP06,4                                                  F0D36470
       TXI     *+1,4,-1                                                 F0D36480
       SXA     INP06,4                                                  F0D36490
       TRA     MCER1                                                    F0D38940
       TRA     MCER1                                                    F0D39080
       TNZ     MSC08+1        NO, CHECK FURTHER                         F0D40530
 MSC06 CAL     ASTRK                                                    F0D40540
 MSC07 LDQ     MOPMQ                                                    F0D40610
       STQ     RESIDU                                                   F0D40620
       CAL     MOPCH                                                    F0D40630
       SLW     CHRCTR                                                   F0D40640
 MSC10 AXT     1,4                                                      F0D40670
       SXD     TOTAL,4                                                  F0D40680
       LXD     VRFLD,2                                                  F0D40730
       LXA     VRFLD,1                                                  F0D40740
       LAS     BCDMM+5                                                  F0D40760
       TRA     MSC1A                                                    F0D40770
       TRA     MSC11                                                    F0D40780
       LAS     BCDMM+3                                                  F0D40790
       TRA     MSC1A                                                    F0D40800
       TRA     MSC11                                                    F0D40810
       LAS     BCDMM+1                                                  F0D40820
       TRA     MSC1A                                                    F0D40830
       TRA     MSC11                                                    F0D40840
       ERA     BCDMM                                                    F0D40850
       TNZ     MSC1A                                                    F0D40860
       CAL     BCDBF+1                                                  F0D40870
       ANA     Q63                                                      F0D40880
       PAX     0,4                                                      F0D40890
 IFF06 TXL     MSC11,4,0                                                F0D40900
       TXL     MSC1A-1,4,9                                              F0D40910
       TXL     MSC11,4,47                                               F0D40920
 MCERP TXL     MSC1A-1,4,48                                             F0D40930
       TXL     MSC11,4,58                                               F0D40940
       TXH     MSC11,4,59                                               F0D40950
       AXC     3,4                                                      F0D40960
       TXI     MACIF,1,-1                                               F0D40970
       DELETE                                                           F0D40980
       DELETE  THRU                                                     F0D41010
 MACIF SXA     GSAV1,1                                                  F0D41090
       ZSD     GSCSA+1                                                  F0D41100
       DELETE                                                           F0D41110
       DELETE                                                           F0D41120
       DELETE                                                           F0D41130
 GSCBP CAL     D2                                                       F0D41140
       STD     TOTAL                                                    F0D41150
       TXH     MSC14+1,4,-4                                             F0D41160
       DELETE                                                           F0D41161
       TRA     *+2                                                      F0D41570
       TRA     MCER1                                                    F0D42320
       TRA     MCER1                                                    F0D42430
       TXH     MSC22+2,4,**                                             F0D42620
 GSCPE TRA     MCER1                                                    F0D42740
       SXD     STF11,4                                                  F0D44350
       TSX     SSCAN,4                                                  F0D45240
       TXI     IFF01,,0                                                 F0D45250
       SLT     1                                                        F0D45260
       SLT     2                                                        F0D45265
       TRA     FIELD                                                    F0D45270
       REM     REENTRY FROM MACRO ARGUMENT SCAN INITIALIZATION          F0D45275
       CAL     SYMBL                                                    F0D45280
 IFF01 SLW     NERAS                                                    F0D45290
       TSX     SSCAN,4                                                  F0D45300
       TXI     IFF02,,0                                                 F0D45310
       SLT     1                                                        F0D45320
       SLT     2                                                        F0D45330
       TRA     FIELD                                                    F0D45340
       CAL     SYMBL                                                    F0D45350
 IFF02 ERA     NERAS                                                    F0D45360
       TZE     *+2                                                      F0D45370
       REM     REENTRY FROM COMPARISON OF ARGUMENTS                     F0D45380
       CAL     Q1             LOAD FLAG FOR UNEQUAL ARGUMENTS           F0D45390
       SLT     4                                                        F0D45470
       TRA     FIELD                                                    F0D45480
       TRA     MAC02                                                    F0D46870
       TXL     MCER1,4,0                                                F0D48470
       TXH     MCER1,4,0                                                F0D48790
       TSX     MACERR,4                                                 F0D49350
 SSN12 TXH     *+2,1,**                                                 F0D49370
       TXL     SSN22,2,0                                                F0D49380
       SXD     COUNT,2                                                  F0D49390
 SSN13 TXL     SSN14,1,0                                                F0D49400
       TXL     *+3,2,4                                                  F0D49490
       TXI     *+1,1,-1                                                 F0D49500
       TXI     *+2,2,-5                                                 F0D49510
       TXI     *+1,2,1                                                  F0D49520
       ZSD     SSN12          RESET FINAL STRING SWITCH                 F0D50200
 SSN31 SLW     OPBIN                                                    F0D50320
       REM     DETERMINE NUMBER OF BLANKS TO STUFF                      F0D51530
       CAL     BCDBF+1                                                  F0D51540
       ANA     MPKMK                                                    F0D51550
       AXT     4,4                                                      F0D51560
       LAS     MCTBL,4                                                  F0D51570
       TRA     *+3                                                      F0D51580
       TRA     *+4                                                      F0D51590
       TIX     *-3,4,1                                                  F0D51600
       LXA     CMPVF,4                                                  F0D51610
       REM     ENTRY FOR OTHER MACRO ERROR                              F0D53010
 MCERR TRA     *+2                                                      F0D53020
 MCER3 CAL     UNDFL                                                    F0D53030
       SLW     LITRL                                                    F0D53040
       AXT     5$MCERR,4                                                F0D53050
 MCERX SXD     OPBIN,4                                                  F0D53060
       TSX     ESYML,4                                                  F0D53070
 PCCP2 TRA     MOP04                                                    F0D53080
       SXD     STF11,2                                                  F0D55550
 STF12 LXD     STUFI,2                                                  F0D55680
 STUFI TXL     STF11,,**                                                F0D55690
 STF11 TXI     *+1,2,0                                                  F0D56360
 ENDMM BCI     1,END000                                                 F0D57610
 TTLMM BCI     1,TTL000       THIRD OF FOUR ENTRIES IN TABLE            F0D57640
       BCI     1,0TTL00                                                 F0D57730         
       BCI     1,0REM00                                                 F0D57740         
       BCI     1,0BCI00                                                 F0D57750    
       BCI     1,0BCD00                                                 F0D57760         
 EOFIN AXT     -2,2                                                     F0D58040
       TRA     AECRD                                                    F0D58041
       SLW     ENDER                                                    F0D5804B
       PZE     ENDER,,8       OFF LINE                                  F0D5804D
       TSX     (PRNT),4                                                 F0D5804E
       PZE     ENDER+1,,7                                               F0D5804F
       STL     DELFLG                                                   F0D5804G
       TXH     ENDFA,2,-3                                               F0D5804H
       AXT     ENDF1,4                                                  F0D5804I
       SXA     SRCRR+1,4                                                F0D5804.
       TRA     ENDF1                                                    F0D5804)
ENDER  BCI     8, XXXXX ERROR IN SOURCE PROGRAM-ASSEMBLY DELETED        F0D5804J
 RELFG CLA     VARUC                                                    F0D58096
       TZE     *+2                                                      F0D58097
       TMI     SCN12+5                                                  F0D58098
       CLA     VARUR                                                    F0D58099
       TZE     *+2                                                      F0D58100
       TMI     SCN12+5                                                  F0D58101
 MSC08 TRA     SCN12+1                                                  F0D58102
       ERA     ASTRK                                                    F0D58103
       ERA     LPARN                                                    F0D58104
       TZE     MSC07                                                    F0D58105
       ERA     LPARN                                                    F0D58106
       ERA     COMMA                                                    F0D58107
       TNZ     MSC05                                                    F0D58108
 MSC09 ERA     COMMA                                                    F0D58109
       SLW     CHRCTR                                                   F0D58110
       LDQ     MOPMQ                                                    F0D58111
       LGR     6                                                        F0D58112
       STQ     RESIDU                                                   F0D58113
       CLA     VRFLD                                                    F0D58114
       ADD     Q1                                                       F0D58115
       STA     VRFLD                                                    F0D58116
       TRA     MSC10                                                    F0D58117
 PMC3P LXD     MOPTR,1        RESET SYMBOL TABLE OVERLAP TEST           F0D58169
       SXD     ESYMZ,1        WHEN LEAVING MACRO NEST                   F0D5816A
       DELETE                                                           F0D5816E
       DELETE  THRU                                                     F0D5816W
       DELETE                                                           F0D92275
       DELETE  THRU                                                     F0D92278
       STZ     SYMTBL+1,1                                               F0E00460
       TRA     *+3                                                      F0E09910
       PZE                                                              F0E09920
       PZE                                                              F0E09930
       AXT     SSYMX,4         SUPPRESS CREATION OF REF. TABLE.     (32)F0E09940
       STZ     PBUFF1+2                                                 F0E10140
INITS  ZET     PRGBK                                                    F0E11380
       ARS     12             RIGHT ADJUST, LESS SIGN                   F0E13280
       TZE     PREF8                                                    F0E16010
       CLA*    DCBFG           LOAD SUBSEQUENT REFERENCE TO SYMBOL. (32)F0E16020
       PAX     0,3                                                      F0E18050
       TXI     *+1,1,2224                                               F0E18060
       SXA     BCI01+1,1                                                F0E18070
       LDQ     BCDBF+2                                                  F0E18080
       LXA     TOPTAB,1                                                 F0E18090
       PXA     0,1                                                      F0E18100
       ADD     Q6                                                       F0E18110
       STA     BCI01                                                    F0E18120
       RQL     30,1                                                     F0E18130
 BCI01 LGL     **                                                       F0E18140
       LDQ     **,2                                                     F0E18150
       LGL     30,1                                                     F0E18160
       STQ     RESIDU                                                   F0E18170
       SLW     BINRY                                                    F0E18180
       TSX     PRNTW,4                                                  F0E18190
       LDQ     RESIDU                                                   F0E18200
       PZE     INTIT,,5                                                 F0E21320
       TSX     SSCAN,4                                                  F0E21360
       SLT     2                                                        F0E21380
       STL     ERRFF                                                    F0E21390
       TSX     LADJS,4                                                  F0E21400
       SLW     INTIT                                                    F0E21410
       TSX     SSYMT,4                                                  F0E21420
       SLW     INTIT+1                                                  F0E21440
       CAL     NERAS                                                    F0E21450
       SLW     INTIT+1                                                  F0E21480
       PZE     INTIT,,3                                                 F0E21560
       TXI     LBL03,,0                                                 F0E21650
       DELETE                                                           F0E21651
SETOP  TSX     SCANF,4                                                  F0E24740
       TXI     AFLAG,,0                                                 F0E24750
       CAL     BCDBF                                                    F0E24760
       TSX     LOCFL,4                                                  F0E24770
       TZE     SET01+2                                                  F0E24780
       TRA     SET02                                                    F0E24790
SET03  TSX     SSYMT,4                                                  F0E24800
       CAL     VAREQ                                                    F0E24810
       TRA     *+3                                                      F0E24820
       PZE                                                              F0E24830
       PZE                                                              F0E24840
       REM                                                              F0E24850
SET01  AXT     **,1                                                     F0E24860
       SLW*    SSYM5                                                    F0E24870
       STO     ADDRS                                                    F0E24880
SPCOP  ZET     UNLSF                                                    F0E24920
       TRA     SPC03                                                    F0E24930
 LDTIT BCI     4,  LINKAGE DIRECTOR                                     F0E27010
SET02  XCL                                                              F0E28107
       LGL     6                                                        F0E28108
       TNZ     *+2                                                      F0E28109
       CAL     BHEAD                                                    F0E28110
       LGL     30                                                       F0E28111
       SLW     SYMBL                                                    F0E28112
       TRA     SET03                                                    F0E28113
       SXA     ADDRS                                                    F0E28146
       TRA     INITS                                                    F0E28147
       PZE                                                              F0E28148
       PZE                                                              F0E28149
       PZE                                                              F0E28250
       DELETE                                                           F0E28357
       DELETE  THRU                                                     F0E28570
       AXT     10,1            SCAN FOR CALL CHAIN(XXXXXX,              F0F01670
       SUB     OCTB,1                                                   F0F01700
       TNZ     SP05                                                     F0F01710
       TIX     SP01,1,1                                                 F0F01720
       AXT     8,1                                                      F0F01730
 SP02  TSX     NNBL,4                                                   F0F01740
       TRA     WSP                                                      F0F01750
       TNX     WSP,1,1                                                  F0F01760
       SUB     OCTB                                                     F0F01770
       TNZ     SP02                                                     F0F01800
 SP05  TXL     WSP,1,9                                                  F0F01960
       STO     TOFN                                                     F0F03957
       DELETE                                                           F0F08170
       DELETE  THRU                                                     F0F08210
       END     -1                                                       F0F09000
       ENDUP
       UPDATE  9,3
*  32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH   F0G00000
       TRA     HOPE-1                                                   F0G01240
       TSX     (MECL),4                                                 F0G01310
       DELETE                                                           F0G09640
       DELETE  THRU                                                     F0G09644
       BSS     50            PATCH SPACE                                F0G09640
       LDI*    (FGBX)                                                   F0G10161
       TRA     IOPDON+1                                                 F0G10163
CERASE SXA     CERASX,4       SAVE XR4                                  F0G13340
       CLA     UMC8                                                     F0G13350
       ADD     COMN                                                     F0G13360
       STA     UCOMMN         LOWER COMMON                              F0G13370
       LXD     STBLE,2                                                  F0G13380
       LXA     L(1),1                                                   F0G13390
 CEAPP CLA     STBL-1,1                                                 F0G13400
       PDX     0,4                                                      F0G13410
       TXL     CERASD,4,2                                               F0G13420
       CAL     STBL+1,1      NEXT HIGHER ENTRY                          F0G13430
       PDX     0,4                                                      F0G13440
L(SUB) SUB     L(1)                                                     F0G13450
       TXH     *+2,4,1                                                  F0G13460
       CAL     STBL-1,1                                                 F0G13470
       STA     LCOMPC-1      E LOWER P.D.-1 (REL)                       F0G13480
       STA     UMC8-2        A UPPER ERASABLE (REL)                     F0G13490
L(ADD) ADD     LADD                                                     F0G13500
       SXA     PATCHB,4                                                 F0G13510
       STA     UCOMMN-2      J UPPER ERASABLE (ABS)                     F0G13520
       STA     UCOMMN-3                                                 F0G13530
       ADD     L(1)                                                     F0G13540
       STA     LPROGD        LOWER PROGRAM DATA                         F0G13550
CERASB CAL     STBLE,1       SYMBOL ITSELF                              F0G13560
       ARS     30                                                       F0G13570
       SUB     L(8)                                                     F0G13580
       TZE     CERASC        8) I.E. FORMAT                             F0G13590
       ADD     L(2)                                                     F0G13600
       TZE     CERASC        6)                                         F0G13610
       TXI     CERASB,1,2                                               F0G13620
CERASC CAL     STBL+1,1                                                 F0G13630
       PDX     0,4                                                      F0G13640
       TXH     *+2,4,2        GO FOR 3 (I.E. GOOD ERASABLE)             F0G13650
       CAL     UMC8-2                                                   F0G13660
       SUB     L(1)                                                     F0G13670
       STA     LCOMPC-2       D LOWER ERASE-1 (REL)                     F0G13680
       ADD     LADD                                                     F0G13690
       STA     LCOMPC+1                                                 F0G13700
       CAL     PBREAK                                                   F0G13710 
       SUB     L(1)                                                     F0G13720 
       STA     UMC8-1         B PROG. BREAK-1                           F0G13730 
       ADD     LADD                                                     F0G13740 
       STA     UCOMMN-1       K P.B.-1 _ LADD                           F0G13750 
PATCHB AXT     **,4                                                     F0G13760 
       TXL     *+2,4,1        TEST FOR PROG. VAR.                       F0G13761 
       CAL     UCOMMN-3       YES, USE LOWER P.D.-1                     F0G13762
       STA     LCOMMN-1       NO, USE PROG. BR.-1+LADD                  F0G13763
       TRA     CERASX                                                   F0G13764
CERASD TXI     *+1,1,2                                                  F0G13770
       TIX     CEAPP,2,2                                                F0G13780
CERASX AXT     0,4                                                      F0G13790
       TRA     1,4                                                      F0G13800
       CLA     IM+3,1                                                   F0G21700
       BSS     50             PATCH SPACE                               F0G27471
       DELETE                                                           F0G27472
       DELETE  THRU                                                     F0G27474
FIRST  STZ     SKIP                                                     F0H00920    
       STZ     8L                                                       F0H00925      
       NZT     B4LD                                                     F0H01710    
 PRCD0 ZET     MULPC         IS THIS A CONTINUATION PC                  F0H01720         
       TRA     PPRCD         YES, FIRST ENTRY POINT NAME IS 8L          F0H01730         
       STZ     NLDD          FIRST PC, ENTRY PT NAMES START AT 7L       F0H01740         
       TXI     *+1,2,-2                                                 F0H01750         
TESTPC NZT     NLDD          TEST PC FOR UNIQUE ENTRY PTS.              F0H01820         
       TRA     SKPPR                                                    F0H01830        
       LXA     LPG,2                                                    F0H01840    
       LXD     BUFPOS,1                                                 F0H01850         
PPRCD  ZET     LIBSW         IS THIS LIBRARY SEARCH                     F0H01860         
       TRA     LSPC          YES                                        F0H01870         
       LDI*    (FGBX)                                                   F0H01880     
       ZET     MULPC                                                    F0H02050
PROC   TXI     LPFA,1,2                                                 F0H02060
       TXI     *+1,2,-2                                                 F0H02070
       LDQ     IM+3,1                                                   F0H02091
       CLA     IM+2,1                                                   F0H02130
       LDI*    (FGBX)                                                   F0H02250
       CLA     IM+3,1                                                   F0H02260
       PAX     0,2            RETAIN ADDRESS ONLY                       F0H02310
       PXA     0,2                                                      F0H02320
       DELETE                                                           F0H02401
       DELETE                                                           F0H02403
 SKPPR STL     MULPC         SET SWITCH FOR CONTINUATION PC             F0H03050         
       STL     SKIP          SET SWITCH TO SKIP                         F0H03060  
       TXL     EOFA2,1,5      EOF   BACKSPACE OVER IT                   F0H06190
       RNT     10            WAS ERROR WRONG MODE READ                  F0H06780 
       PZE     **,,8                                                    F0H07260
       DELETE                                                           F0H08646
       DELETE  THRU                                                     F0H08669
       CLA     IM+2,1                                                   F0I01280
       TRA     SKPPR         YES,SET SKIP                               F0I01483
       CLA     IM+2,1                                                   F0I01484
       STO     8L                                                       F0I01485
       CLA     IM+3,1                                                   F0I01486
       STO     8R                                                       F0I01487
       TRA     SKPPR                                                    F0I01488
       NZT     MULPC                                                    F0I01671
       CLA     8L                                                       F0I01673
       TZE     LPC                                                      F0I01674
       STO     IM,1                                                     F0I01675
       STZ     8L                                                       F0I01676
       CLA     8R                                                       F0I01677
       STO     IM+1,1                                                   F0I01678
       STZ     MULPC                                                    F0I01679
       TXI     LPC,1,2                                                  F0I01680
       DELETE                                                           F0I02300
       DELETE  THRU                                                     F0I02303
       END     -1                                                       F0I02630
       ENDFIL  3
       REWIND  3
       ENDUP
       UPDATE  3,10
*  32K 709/7090 FORTRAN MONITOR DEBUG, BSS CONTROL AND LIBRARY SEARCH   F0G00000
       END     -1                                                       F0I02630
       ENDUP
       UPDATE  9,10
       REWIND  3
*      32K 709/7090 FORTRAN MONITOR   MACHINE ERROR RECORD              F0J00010
       TRA     NOGOP                                                    F0J00180
 ME713 TSX     (PRNT),4      PRINT OPTION TO RERUN.                 (26)F0J00300
       TSX     (PRNT),4                                             (31)F0J00340
       PZE     COM4,,20                                                 F0J00350
       ENK                    IS RESTORE MEMORY                     (31)F0J00390
       XCA                    INDICATED.                            (31)F0J00400
       PAX     ,1                                                   (31)F0J00410
       TXL     ME13,1,-2      NO                                    (31)F0J00420
 ME7   TSX     (DGLD),4       YES RESTORE MEMORY AND HALT.          (31)F0J00430
COM4   BCI     9,   TO RESTORE MEMORY AND HALT, DEPRESS ALL ADDRESS KEY F0J04000
       BCI     9,S AND PUSH START.                                      F0J04010         
       BCI     2,                                                       F0J04013         
       DELETE                                                           F0J04016    
       PZE                                                              F0J04520
       TRA     MEDL          YES, TAKE REGULAR PROCEDURE                F0J04909
 NOGOB PZE     0,,1                                                     F0J04927
 NOGOQ LDQ     JOBSAV        COMPILATION WILL BE RETRIED                F0J04928         
       STQ     SYSJOB        RESTORE SYSJOB,                            F0J04929         
       TRA     ME10          AND DO SO                                  F0J04930    
       DELETE                                                           F0J04931         
       DELETE  THRU                                                     F0J0493B    
       TNZ     ME4EJ         YES, GO TO MONITOR SCAN                    F0K00960
 ME4I4 IORT    *+1,,2                                                   F0K02230
 ME4WD OCT     ,                                                        F0K02240
       BSS     46                                                       F0K02300
       DELETE                                                           F0K02305
