Personal tools
You are here: Home Projects FORTRAN and FORTRAN II Source Code ibsys FORTRAN FORTRAN II MONITOR - DUMP RECORD
Document Actions

FORTRAN II MONITOR - DUMP RECORD

by Paul McJones last modified 2005-06-01 20:10
$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
*      FORTRAN II MONITOR              DUMP RECORD                      F0B00000
*      FAP                                                              F0B00020
*      FORTRAN II MONITOR              DUMP RECORD                      F0B00030
       COUNT   1300                                                     F0B00040
       LBL     9F02,M                                                   F0B00050
       REM                                                              F0B00060
       SST     FORTRAN                                                 $F0B00070
       REM                                                              F0B00080
       ABS                                                              F0B00090
       REM                                                              F0B00100
       ORG     SYSCUR                                                   F0B00110
       BCI     1,9F0200                                                 F0B00120
       ORG     (LODR)                                                   F0B00130
       TXI     START,,20                                                F0B00140
       TITLE                                                           $F0B00150
SAVTAP SYN     FINTAP                                                   F0B00160
OUTTAP SYN     MLSTAP                                                   F0B00170
ORGDP  EQU     BOTIOP-1600                                              F0B00180
  SAVL EQU     -ORGDP                                                  $F0B00190
SAVE   EQU     ORGDP-SAVL                                               F0B00200
SIZE   EQU     31                                                   (22)F0B00210
       REM                                                              F0B00220
       ORG     ORGDP+7                                                 *F0B00230
       REM                                                              F0B00240
       REM                                                              F0B00250
       REM   **** PANEL SAVE ****                                       F0B00260
       REM                                                              F0B00270
 START LXD     (PGCT),1       SET FOR RIGHT NUMBER                     *F0B00280
       TXI     *+1,1,2       OF LINES                                  *F0B00290
       SXD     H-2,1         PER PAGE.                                 *F0B00300
       SXD     CNT+3,1                                                 *F0B00310
       LXD     BOTTOM-6,1                                               F0B00320
       SXD     LIMIT-19,1         SAVE X1                              $F0B00330
       AXT     ,0                                                   (22)F0B00340
       LXA     BOTTOM-8,2                                               F0B00350
       SXD     LIMIT-18,2         SAVE X2                              $F0B00360
       LXD     BOTTOM-8,4                                               F0B00370
       TRA     PCH3               TEST TAG MODE.                       $F0B00380
       LDQ     BOTTOM-10                                                F0B00390
       STQ     LIMIT-7                                                  F0B00400
       LDI     BOTTOM-11                                                F0B00410
       STI     LIMIT-4                                                  F0B00420
       LDI     BOTTOM-5                                             (22)F0B00430
       ENK                                                              F0B00440
       STQ     LIMIT-1       PANEL KEYS                                 F0B00450
       AXT     4,1                                                      F0B00460
       STZ     LIMIT-8,1     LIMIT-9 SET NONZERO IF OVERFLOW IND ON.    F0B00470
       XEC   GARBG,1         LIMIT-10 SET NONZERO IF I/O CHECK ON,      F0B00480
       STL     LIMIT-8,1     LIMIT-11 SET NONZERO IF DIVIDE CHECK ON,   F0B00490
 LDTIX TIX     *-3,1,1       LIMIT-12 SET NONZERO IF IN TRAPPING MODE.  F0B00500
       TRA     PANEL         DUMP THE PANEL                         (22)F0B00510
       LFT     10            TRAP MODE                              (22)F0B00520
       LFT     4             DIVIDE CHECK                           (22)F0B00530
       LFT     2             I/O CHECK                              (22)F0B00540
       LFT     1             OVERFLOW                               (22)F0B00550
 GARBG BSS     0                                                        F0B00560
       REM                                                              F0B00570
       REM   **** SET UP PANEL ****                                     F0B00580
       REM                                                              F0B00590
 PANEL BSS   0                                                          F0B00600
       LDQ     BOTTOM-9       SIGN AND BITS 1 35 IN MQ.                 F0B00610
       CAL     BOTTOM-8       JUNK IN BIT P, Q IN 1 , P IN 2            F0B00620
       LLS     0              PUT SIGN OF AC IN SIGN OF AC.             F0B00630
       ALS     1              JUNK IN Q, Q IN P, P IN 1.                F0B00640
       LDI     MNSO                                                     F0B00650
       PBT                    TEST Q BIT IN P.                          F0B00660
       LDI     MNSZ                                                     F0B00670
       TMI     *+2            TEST SIGN                                 F0B00680
       OSI     PLUS                                                     F0B00690
       STI     BUF2          SET FOR OUTPUT.                            F0B00700
       ARS     34             JUNK IN 33, Q IN 34, P IN 35.             F0B00710
       LLS     35             SHIFT INTO THE AC FROM THE MQ            $F0B00720
       SLW     LIMIT-3                                                  F0B00730
       LRS     2                                                        F0B00740
       STO     LIMIT-2                                                  F0B00750
       LLS     2                                                        F0B00760
       XCL                                                              F0B00770
       TSX     CNVT,1        GO CONVERT TO BCD.                         F0B00780
       STI     BUF2+1        ACCUMULATOR.                               F0B00790
       SLW     BUF2+2                                                   F0B00800
       AXT     9,4                                                      F0B00810
 A     LDQ     LIMIT+2,4                                                F0B00820
       TSX     CNVT,1        CONVERT MQ, SENSE INDICATORS, AND          F0B00830
       SLW     BUF2+14,4     PANEL KEYS TO BCD. STORE RIGHT HALF.       F0B00840
       CAL     MINUS         PICK UP BCD MINUS.                         F0B00850
       LNT     40000         IS S BIT ON.                               F0B00860
       ORA     BLK           NO, SET AC TO BLANK.                       F0B00870
       SLW     BUF2+12,4     YES, STORE MINUS.                          F0B00880
       RIL     40000         REMOVE S BIT.                              F0B00890
       STI     BUF2+13,4     STORE LEFT HALF.                           F0B00900
       TIX     A,4,3                                                    F0B00910
       TSX     (TAPE),4           WRITE OUT FIRST LINE                 $F0B00920
       PZE     DSU1,,(WDNC)       TO GAIN BUFFER SPACE.                $F0B00930
       PZE     ,,OUTTAP           .                                    $F0B00940
       AXT     20,4               .                                    $F0B00950
       LDI     BLK                BLANK                                $F0B00960
       STI     BUF+20,4           THIS AND                             $F0B00970
       STI     BUF1+20,4          ANOTHER BUFFER.                      $F0B00980
       TIX     *-2,4,1            .                                    $F0B00990
 ICV   AXT     7,2                CONVERT                              $F0B01000
       AXT     8,4                INDEX                                $F0B01010
 ICV1  CAL     LIMIT-12,2         REGISTERS                            $F0B01020
 ICV2  PDX     0,1                STRAIGHT AND COMPLEMENTED.           $F0B01030
       PXD     0,1                .                                    $F0B01040
       XCL                        .                                    $F0B01050
       AXT     6,1                .                                    $F0B01060
       ALS     3                  .                                    $F0B01070
       LGL     3                  .                                    $F0B01080
       TIX     *-2,1,1            .                                    $F0B01090
 ICV3  AXT     4,1                SET BUFFER POINTER,                  $F0B01100
       STI*    PCH5+4,1           STORE BLANK AND                      $F0B01110
       TXI     PTCH4,4,-1         MOVE TO NEW FRONTIERS...             $F0B01120
       AXT     4,1                                                      F0B01130
       AXT     4,2                                                      F0B01140
 C     CAL     OFF                                                      F0B01150
       ZET     LIMIT-8,1     ON-OFF TRAPPING MODE, DIVIDE CHECK,        F0B01160
       CAL     ON            I/O CHECK, OVERFLOW.                       F0B01170
       SLW     BUF1+4,1                                                 F0B01180
       TIX     C,1,1                                                    F0B01190
 D     CAL     OFF                                                      F0B01200
       SLT     5,2           STATUS OF SENSE LIGHTS AND TURN ON AGAIN   F0B01210
       TRA     *+3           IF THEY WERE ON.                           F0B01220
       CAL     ON                                                       F0B01230
       SLN     5,2                                                      F0B01240
       SLW     BUF1+8,2           .                                    $F0B01250
       TIX     D,2,1                                                    F0B01260
       AXT     6,1                                                      F0B01270
 E     CAL     ON            STATUS OF SENSE SWITCHES.                  F0B01280
       PSE     119,1                                                    F0B01290
       CAL     OFF                                                      F0B01300
       SLW     BUF1+14,1          .                                    $F0B01310
       TIX     E,1,1                                                    F0B01320
       AXT     2,4                SET SL2 FOR ERROR RECORD.            $F0B01330
       AXT     6,1                .                                    $F0B01340
       STI     BUF3+12,1          BLANK OUT REMAINDER.                 $F0B01350
       TIX     *-1,1,1                                                  F0B01360
       LDQ     LIMIT-3                                                  F0B01370
       CLA     LIMIT-2                                                  F0B01380
       LRS     0                                                        F0B01390
       AXT     6,2                                                      F0B01400
 FAQ   TSX     FPT,1         FLOATING POINT ACCUMULATOR AND MQ.         F0B01410
               0                                                        F0B01420
       SLW     BUF3+8,2                                                 F0B01430
       CAL     MINUS                                                    F0B01440
       LNT     40000                                                    F0B01450
       ORA     BLK                                                      F0B01460
       SLW     BUF3+6,2                                                 F0B01470
       RIL     40000                                                    F0B01480
       STI     BUF3+7,2                                                 F0B01490
       LDQ     LIMIT-7                                                  F0B01500
       TIX     FAQ,2,3                                                  F0B01510
       TRA     RETRN-1                                              (22)F0B01520
PTCH4  SSM                        ...PREPARE NEGATIVE WORD             $F0B01530
       TXL     *+2,1,2            FOR COMPLEMENTED INDEX REGISTER,     $F0B01540
       ORA     OBLK               OR POSITIVE WORD,                    $F0B01550
       STO*    PCH5+4,1           AND + REQUIESCANT IN PACEM +         $F0B01560
 ICV4  TXH     *+3,2,**           .                                    $F0B01570
       TXH     *+2,2,4            IF COMPUTER IS IN MULT. TAG          $F0B01580
       STI*    PCH5+4,1           MODE, STORE BLANKS FOR ADDED IR*S,   $F0B01590
       TIX     PCH4+2,4,1         PROCEED AGAIN                        $F0B01600
       TXI     PCH4,1,-1          TO MORE PATCH SPACE, AND ...         $F0B01610
 DSU1  IORT    DUMP1,,20          .                                    $F0B01620
       PZE                        NOT USED                             $F0B01630
       LXD     LIMIT-16,3                                           (22)F0B01640
RETRN  SXA     (MSLN),4           MACHINE ERROR RECORD.             (22)F0B01650
       REM                                                              F0B01660
       REM   **** WRITE PANEL AND EXAMINE CONTROL WORDS ****            F0B01670
       REM                                                              F0B01680
       CLA*    (LNCT)        UPDATE COUNT OF                        (22)F0B01690
       ADD     L(5)          LINES OF OUTPUT                        (22)F0B01700
       STO*    (LNCT)                                               (22)F0B01710
       TRA     *+2                                                  (22)F0B01720
       PZE                   NOT USED                               (22)F0B01730
       REM *****                                                        F0B01740
 WRPAN TRA     PCH2           GO WRITE OUT PANEL                       $F0B01750
       LDI     BLK                TO GIVE LINE                         $F0B01760
       STI     BUF+24             A CHARMING LOOK.                     $F0B01770
       CAL     FDUMP                                                    F0B01780
       SLW     TEMP                                                     F0B01790
       REM *****                                                        F0B01800
       CLA     BOTTOM-8       PICK UP SIGN BIT TO FIND IF CALL IS       F0B01810
       TMI     PDUMP+1        COMING FROM DUMP OR PDUMP.                F0B01820
 PDUMP STL     TEMP+6         SET PDUMP FLAG.                           F0B01830
       REM *****                                                        F0B01840
       TSX     (TAPE),4      SPACE SAVING TAPE                          F0B01850
       PZE     BS1R,,(SKBP)  TO PARAMETER RECORD.                       F0B01860
       PZE     ,,SAVTAP                                                 F0B01870
       REM *****                                                        F0B01880
       TSX     (TAPE),4      READ                                       F0B01890
       PZE     NDIO,,(RBNP)  PARAMETERS.                                F0B01900
       PZE     ,,SAVTAP                                                 F0B01910
       REM *****                                                        F0B01920
       TSX     (TAPE),4      REPOSITION                                 F0B01930
       PZE     BS1R,,(SKBP)  SAVING TAPE.                               F0B01940
       PZE     ,,SAVTAP                                                 F0B01950
 DUMP  LXA     TEMP+5,2      GET INDEX FOR NEXT PARAMETERS.             F0B01960
       TXL     *+3,2,0       IS THIS FIRST SET.                         F0B01970
       LXD     CNT+3,4       SET TO RESTORE PAGE FOR NEXT DUMP PORTION  F0B01980
       SXA     CNT,4                                                    F0B01990
       ZET     TEMP+9        IS THERE ANOTHER DUMP PORTION.             F0B02000
       TRA     RSR           NO, NO MORE DUMPING.                       F0B02010
       TXI     *+1,2,1       YES.                                       F0B02020
       CLA     END,2         SELECT FIRST LIMIT OF DUMP PORTION.        F0B02030
       SXA     TEMP+5,2                                                 F0B02040
       TZE     TRSR          IS 1ST LIMIT ZERO.                         F0B02050
       STL     TEMP+10       NO, SET INDICATOR TO LOOK FOR MORE.        F0B02060
       XCL                   PARAMETERS AND SAVE LIMIT IN MQ.           F0B02070
       TXI     *+1,2,1                                                  F0B02080
       CLA     END,2         SELECT SECOND LIMIT OF DUMP PORTION.       F0B02090
       TZE   FERR            BAD CALLING SEQUENCE.                      F0B02100
       TLQ     *+2           PUT LOWER LIMIT                            F0B02110
       TRA     *+2           IN AC,                                     F0B02120
       XCL                   UPPER IN MQ,                               F0B02130
       RQL     18            AND THEN LOWER IN DECREMENT AND            F0B02140
       LGL     18            UPPER IN ADDRESS                           F0B02150
       SLW     TEMP          OF TEMP.                                   F0B02160
       TXI     *+1,2,1                                                  F0B02170
       CLA     END,2         SELECT FORMAT-SPECIFYING ARGUMENT.         F0B02180
       TNZ     *+2           3RD ARGUMENT CAN BE MISSING ONLY ON        F0B02190
       STL     TEMP+9        LAST DUMP PORTION SO SET SENTINEL FOR NO   F0B02200
       PAX     0,4           MORE AFTER THIS.                           F0B02210
       TXL     GON,4,3                                                  F0B02220
       PDX     0,4           FORTRAN PUTS FIXED POINT NO. IN DECR.      F0B02230
       TXH     FERR,4,3      ILLEGAL FORMAT SPECIFIER.                  F0B02240
 GON   SXA     TEMP+11,4     SAVE FORMAT NUMBER.                        F0B02250
       SXA     TEMP+5,2                                                 F0B02260
       REM                                                              F0B02270
       REM   **** SET UP FOR NEXT GROUP AND CHECK FOR IDENTICAL WORDS***F0B02280
       REM                                                              F0B02290
 CONT  CAL     TEMP                                                     F0B02300
       PAC     0,2           COMPLIMENT UPPER LIMIT,                    F0B02310
       TXI     *+1,2,-1      BUMP DOWN,                                 F0B02320
       SXA     TEMP+3,2      AND SAVE.                                  F0B02330
       PDC     0,2           COMPLIMENT LOWER LIMIT,                    F0B02340
 DFA   SXA     *+1,2         RECOMPLIMENT                               F0B02350
       AXC     0,1           INTO XRA,                                  F0B02360
       SXD     DFF2,1        SET DECREMENT,                             F0B02370
       SXA     TEMP+4,1      AND SAVE.                                  F0B02380
       SXD     DFF2A,2       SET DECR WITH COMPLIMENT OF LOWER LIMIT.   F0B02390
DFA1   TXH     *+3,2,0       IS LOWER LIMIT ZERO.                       F0B02400
       CAL     0,2           YES, PICK UP FIRST WORD OF DUMP,           F0B02410
       TRA     DFA2+1        AND GO AROUND OTHER TESTS.                 F0B02420
       TXL     DFC3,2,-ORGDP IS LOWER LIMIT IN DUMP RECORD AREA.        F0B02430
       CAL     0,2           NO, PICK UP FIRST WORD OF DUMP.            F0B02440
DFA2   TXL     DFB,2,-SAVE   IS LOWER LIMIT IN BUFFER.                  F0B02450
       ERA     0,2           NO, TEST FOR DUPLICATE WORDS.              F0B02460
       TNZ     DFF           IF NOT DUPLICATE, TRANSFER.                F0B02470
       PXA     0,2           IS THIS LAST                               F0B02480
       SUB     TEMP+3        WORD OF DUMP PORTION.                      F0B02490
       TZE     DFF                                                      F0B02500
       CAL     0,2           NO, PICK UP NEXT WORD                      F0B02510
       TXI     DFA2,2,-1     AND GO BACK.                               F0B02520
 DFB   NZT     TEMP+1        IS UPPER CORE IN BUFFER.                   F0B02530
       TRA     DFB1-1        NO.                                        F0B02540
       REM *****                                                        F0B02550
       TSX     (TAPE),4      YES, RESTORE                               F0B02560
       PZE     IORT,,(RBNP)  BUFFER.                                    F0B02570
       PZE     S2L,,SAVTAP                                              F0B02580
       REM *****                                                        F0B02590
       TSX     (TAPE),4      REPOSITION                                 F0B02600
       PZE     BS1R,,(SKBP)  SAVING TAPE.                               F0B02610
       PZE     ,,SAVTAP                                                 F0B02620
       STZ     TEMP+1        INDICATE BUFFER IS RESTORED.               F0B02630
DFB1   TXL     DFC,2,-ORGDP  IS IT IN DUMP RECORD AREA.                 F0B02640
       ERA     0,2           NO, TEST FOR DUPLICATE WORDS.              F0B02650
       TNZ     DFF           TRA IF NO DUPLICATES.                      F0B02660
       PXA     0,2           IS THIS LAST                               F0B02670
       SUB     TEMP+3        WORD OF                                    F0B02680
       TZE     DFF           DUMP PORTION.                              F0B02690
       CAL     0,2           NO, PICK UP NEXT WORD                      F0B02700
       TXI     DFB1,2,-1     AND GO BACK.                               F0B02710
DFC3   CAL     ORGDP,2       PICK UP NEXT WORD.                         F0B02720
 DFC   ZET     TEMP+8        IS BUFFER ON SAVING TAPE.                  F0B02730
       TRA     DFC1          YES.                                       F0B02740
       REM *****                                                        F0B02750
       TSX     (TAPE),4      NO, SAVE BUFFER.                           F0B02760
       PZE     IORT,,(WBNP)                                             F0B02770
       PZE     S2L,,SAVTAP                                              F0B02780
       REM *****                                                        F0B02790
       TSX     (TAPE),4      REPOSITION                                 F0B02800
       PZE     BS1R,,(SKBP)  SAVING TAPE.                               F0B02810
       PZE     ,,SAVTAP                                                 F0B02820
       STL     TEMP+8        INDICATE BUFFER HAS BEEN SAVED.            F0B02830
 DFC1  ZET     TEMP+1        IS UPPER CORE IN BUFFER.                   F0B02840
       TRA     DFC2          YES.                                       F0B02850
       REM *****                                                        F0B02860
       TSX     (TAPE),4      NO, POSITION                               F0B02870
       PZE     BS1R,,(SKBP)  SAVING TAPE                                F0B02880
       PZE     ,,SAVTAP      AND                                        F0B02890
       REM *****                                                        F0B02900
       TSX     (TAPE),4      READ 1ST SAVING DUMP                       F0B02910
       PZE     IORT,,(RBNC)  (UPPER CORE) INTO                          F0B02920
       PZE     ,,SAVTAP      BUFFER.                                    F0B02930
       STL     TEMP+1        INDICATE UPPER CORE IS IN BUFFER.          F0B02940
DFC2   TXH     *+2,2,0       IS THIS END CORE.                          F0B02950
       TXI     DFE,2,1       YES, RESET XR AND GO TO WRITE DUPES.       F0B02960
       ERA     -SAVL,2        TEST FOR DUPE WORDS                      *F0B02970
       TNZ     DFE1          TRA IF NOT DUPES.                          F0B02980
       PXA     0,2           IS THIS LAST                               F0B02990
       SUB     TEMP+3        WORD OF THIS                               F0B03000
       TZE     DFE           DUMP PORTION.                              F0B03010
       CAL     -SAVL,2        NO, PICK UP NEXT WORD                    *F0B03020
       TXI     DFC2,2,-1     AND GO BACK.                               F0B03030
 DFE   CLA     -SAVL-1,2      PICK UP LAST DUPE WORD  BELOW DUMP RECORD*F0B03040
       TRA     DFF1                                                     F0B03050
 DFE1  ERA     -SAVL,2        RESTORE AC TO LAST DUPE WORD             *F0B03060
       XCL                   AND SAVE IN MQ.                            F0B03070
       TRA     DFF2                                                     F0B03080
 DFF   CLA     -1,2          PICK UP LAST DUPE WORD (BELOW DUMP RECORD).F0B03090
 DFF1  XCA                   SAVE IN MQ.                                F0B03100
DFF2   TXI     *+1,2,0       SUB LOWER LIMIT FROM CURRENT INDEX (DECR   F0B03110
       REM                   HAS INDEX OF LOC STARTED WITH FOR THIS TESTF0B03120
       SXA     *+1,2                                                    F0B03130
       AXC     0,2           COMPLIMENT TO GET TRUE DUPE WORD COUNT.    F0B03140
       PXA     0,2                                                      F0B03150
       ARS     3             DIVIDE WORD COUNT                          F0B03160
       ALS     3             BY EIGHT.                                  F0B03170
       PAC     0,2           PICK UP COMPLIMENT OF HIGHEST NO. OF       F0B03180
       REM                   DUPES DIVISIBLE BY EIGHT.                  F0B03190
DFF2A  TXI     *+1,2,0       ADD LOWER LIMIT TO GET LAST LOC (COMPL).   F0B03200
       TZE     TEST          IS NO. OF DUPE WORDS MORE THAN 7.          F0B03210
       AXT     36,4          YES.                                       F0B03220
       LXA     TEMP+11,1     PICK UP FORMAT PARAM (0 IS OCTAL           F0B03230
       TRA     *+4,1         WITHOUT MNEMONICS, 1 OS FLOATING PT., 2 IS F0B03240
       TRA     *+3           DECIMAL INTEGER -DECREMENT ONLY, AND 3     F0B03250
       TSX     INT,1         IS OCTAL WITH MNEMONICS), AND              F0B03260
       TSX     FPT,1         CONVERT ACCORDINGLY.                       F0B03270
       TSX     CNVT,1                                                   F0B03280
       SLW     DFBB+14                                                  F0B03290
       CAL     MINUS         IF BIT ONE WAS NOT ZERO,                   F0B03300
       LNT     40000         SET THE CONVERTED WORD                     F0B03310
       ORA     LBLK          TO MINUS.                                  F0B03320
       SLW     DFBB+12                                                  F0B03330
       RIL     40000         TAKE OUT BIT ONE.                          F0B03340
       STI     DFBB+13                                                  F0B03350
       CAL     TEMP+4        PICK UP BEGINNING LOC FOR THIS             F0B03360
       LGR     15            SET OF DUPE WORDS.                         F0B03370
       CLM                   CONVERT                                    F0B03380
       LGR     3             TO                                         F0B03390
       ALS     3             BCD                                        F0B03400
       LGL     3             AND                                        F0B03410
       TIX     *-2,4,6       STORE.                                     F0B03420
       ORA     OBLK                                                     F0B03430
       SLW     DFBB+7                                                   F0B03440
       PXA     0,2           GET TRUE                                   F0B03450
       PAC     0,1           LOCATION  OF                               F0B03460
       TXI     *+1,1,-1      LAST DUPE                                  F0B03470
       PXA     0,1           WORD,                                      F0B03480
       LGR     15            CONVERT TO                                 F0B03490
       CLM                   BCD                                        F0B03500
       LGR     3             AND                                        F0B03510
       ALS     3             STORE.                                     F0B03520
       LGL     3                                                        F0B03530
       TIX     *-2,4,1                                                  F0B03540
       LGL     6                                                        F0B03550
       ORA     LBLK                                                     F0B03560
       SLW     DFBB+9                                                   F0B03570
 CNT   AXT     8,4           TEST TO SEE IF                             F0B03580
       TXI     *+1,4,2       CURRENT                                    F0B03590
       CAL     HZR           PAGE                                       F0B03600
       TNX     *+2,4,60      IS FULL.                                   F0B03610
       ORA     HONE          YES, SET TO RESTORE.                       F0B03620
       SLW     DFBB                                                     F0B03630
       SXA     CNT,4                                                    F0B03640
       REM *****                                                        F0B03650
DFF3   TSX     (TAPE),4      WRITE GROUP                                F0B03660
       PZE     DSU2,,(WDNC)  OF DUPLICATES (ONE LINE) .                *F0B03670
       PZE     ,,OUTTAP                                                 F0B03680
       CLA*    (LNCT)        UPDATE COUNT                               F0B03690
       ADD   ONE             OF LINES                                   F0B03700
       STO*    (LNCT)        OF OUTPUT.                                 F0B03710
 DFG   PXA     0,2                                                      F0B03720
       SUB     TEMP+3                                                   F0B03730
       TNZ     DFA           MORE TO GO ON THIS PORTION OF DUMP.        F0B03740
       TRA     DUMP          FINISHED. GO SEE IF MORE BLOCKS TO DUMP.   F0B03750
       REM                                                              F0B03760
       REM   **** PREPARE 8 WORDS TO BE DUMPED ****                     F0B03770
       REM                                                              F0B03780
TEST   AXT     24,4                                                     F0B03790
       TNX     LOW+1,2,0     IF INDEX IS ZERO, GO AROUND TESTS.         F0B03800
       TXH     LOW,2,-SAVE   IS LOCATION BELOW BUFFER.                  F0B03810
       TXH     MED,2,-ORGDP  NO, IS IT BELOW DUMP RECORD.               F0B03820
HIGH   ZET     TEMP+8        NO, IT IS IN DUMP RECORD AREA. IS BUFFER   F0B03830
       TRA     HIGH2         ON TAPE.  YES.                             F0B03840
       SXA     HIGH1,4       NO,                                        F0B03850
       REM *****                                                        F0B03860
       TSX     (TAPE),4      SAVE BUFFER.                               F0B03870
       PZE     IORT,,(WBNP)                                             F0B03880
       PZE     S2L,,SAVTAP                                              F0B03890
       REM *****                                                        F0B03900
       TSX     (TAPE),4      REPOSITION                                 F0B03910
       PZE     BS1R,,(SKBP)  SAVING TAPE.                               F0B03920
       PZE     ,,SAVTAP                                                 F0B03930
HIGH1  AXT     **,4                                                     F0B03940
       STL     TEMP+8        INDICATE BUFFER IS ON TAPE.                F0B03950
HIGH2  ZET     TEMP+1        IS UPPER CORE IN BUFFER.                   F0B03960
       TRA     HIGH4         YES.                                       F0B03970
       SXA     HIGH3,4       NO,                                        F0B03980
       REM *****                                                        F0B03990
       TSX     (TAPE),4      POSITION                                   F0B04000
       PZE     BS1R,,(SKBP)  SAVING TAPE                                F0B04010
       PZE     ,,SAVTAP      AND                                        F0B04020
       REM *****                                                        F0B04030
       TSX     (TAPE),4      READ UPPER CORE                            F0B04040
       PZE     IORT,,(RBNC)  INTO BUFFER.                               F0B04050
       PZE     ,,SAVTAP                                                 F0B04060
HIGH3  AXT     **,4                                                     F0B04070
       STL     TEMP+1        INDICATE UPPER CORE IN BUFFER.             F0B04080
HIGH4  TNX     LOW,2,0       IS LOCATION ZERO.                          F0B04090
       LDQ     -SAVL,2        NO, PICK UP NEXT WORD                    *F0B04100
       TSX     TESTP,1       CONVERT.                                   F0B04110
       TIX     HIGH4,4,3     IF LINE FINISHED, GO BACK.                 F0B04120
       TRA     FINI          LINE OF OUTPUT IS FINISHED.                F0B04130
MED    NZT     TEMP+1        IS UPPER CORE IN BUFFER.                   F0B04140
       TRA     MED2          NO.                                        F0B04150
       SXA     MED1,4        YES,                                       F0B04160
       REM *****                                                        F0B04170
       TSX     (TAPE),4      RESTORE                                    F0B04180
       PZE     IORT,,(RBNP)  BUFFER.                                    F0B04190
       PZE     S2L,,SAVTAP                                              F0B04200
       REM *****                                                        F0B04210
       TSX     (TAPE),4      REPOSITION                                 F0B04220
       PZE     BS1R,,(SKBP)  SAVING TAPE.                               F0B04230
       PZE     ,,SAVTAP                                                 F0B04240
MED1   AXT     **,4                                                     F0B04250
       STZ     TEMP+1        INDICATE UPPER CORE NOT IN BUFFER.         F0B04260
MED2   TXL     HIGH,2,-ORGDP IS WORD IN UPPER CORE.                     F0B04270
       LDQ     0,2           NO, PICK UP NEXT WORD,                     F0B04280
       TSX     TESTP,1       CONVERT,                                   F0B04290
       TIX     MED2,4,3      AND GO BACK IF LINE UNFINISHED.            F0B04300
       TRA     FINI          LINE OF OUTPUT IS COMPLETE.                F0B04310
LOW    TXL     MED,2,-SAVE   IS WORD IN BUFFER.                         F0B04320
       LDQ     0,2           NO, PICK UP NEXT WORD,                     F0B04330
       TSX     TESTP,1       CONVERT, AND                               F0B04340
       TIX     LOW,4,3       GO BACK IF LINE UNFINISHED.                F0B04350
       TRA     FINI          LINE OF OUTPUT IS COMPLETE.                F0B04360
TESTP  SXA     TSTP2,1                                                  F0B04370
       LXA     TEMP+11,1     PICK UP FORMAT AND                         F0B04380
       TRA     *+4,1         CONVERT( 0 IS OCTAL, 1 IS FLOATING POINT, 2F0B04390
       TRA     *+3           IS DECIMAL INTEGER -DECR ONLY, AND 3 IS    F0B04400
       TSX     INT,1         OCTAL WITH MNEMONICS.)                     F0B04410
       TSX     FPT,1                                                    F0B04420
       TSX     CNVT,1                                                   F0B04430
       SLW     BUF+26,4                                                 F0B04440
       CAL     MINUS         IF BIT ONE IS 1,                           F0B04450
       LNT     40000         MAKE CONVERTED WORD NEGATIVE               F0B04460
       ORA     BLK           AND                                        F0B04470
       SLW     BUF+24,4      STORE.                                     F0B04480
       RIL     40000         RESET BIT ONE TO ZERO                      F0B04490
       STI     BUF+25,4      AND STORE.                                 F0B04500
       TXI     *+1,2,-1                                                 F0B04510
       PXA     0,2           TEST FOR END                               F0B04520
       SUB     TEMP+3        OF DUMP PORTION.                           F0B04530
       TZE     FINI                                                     F0B04540
TSTP2  AXT     **,1          NOT END,                                   F0B04550
       TRA     1,1           RETURN.                                    F0B04560
 CNVT  SXA     CNVT9,1       THIS ROUTINE ACCEPTS THE MQ AS             F0B04570
       AXT     36,1          INPUT, AND CONVERTS IT TO OCTAL            F0B04580
       ALS     3             BY PRECEDING EACH THREE BITS WITH          F0B04590
       LGL     3             THREE BINARY ZEROS.                        F0B04600
       TIX     *-2,1,6       THE LEFT HALF OF THE CONVERTED             F0B04610
       PAI                   WORD IS LEFT IN THE                        F0B04620
       ALS     3             INDICATORS                                 F0B04630
       LGL     3             AND THE RIGHT HALF IN                      F0B04640
       TIX     *-2,1,1       THE LOGICAL AC.                            F0B04650
 CNVT9 AXT     0,1                                                      F0B04660
       TRA     1,1                                                      F0B04670
 FINI  CAL     BLK                                                      F0B04680
 FINI1 TNX     FINI2,4,3     IS DUMP PORTION ENDED, OR JUST A LINE.     F0B04690
       SLW     BUF+24,4      DUMP PORTION IS ENDED.                     F0B04700
       SLW     BUF+25,4      FILL REST OF LINE                          F0B04710
       SLW     BUF+26,4      WITH BLANKS.                               F0B04720
       TRA     FINI1                                                    F0B04730
 FINI2 CAL     TEMP+4        LINE IS ENDED,                             F0B04740
       LGR     15            CONVERT LOCATION                           F0B04750
       CLM                   BEGINNING                                  F0B04760
       LGR     3             THIS LINE                                  F0B04770
       AXT     6,4           TO BCD.                                    F0B04780
       ALS     3                                                        F0B04790
       LGL     3                                                        F0B04800
       TIX     *-2,4,1                                                  F0B04810
       LXA     CNT,4         IS THIS                                    F0B04820
       TXI     *+1,4,2       PAGE                                       F0B04830
       TNX     *+2,4,60      FULL.                                      F0B04840
       ORA     HONE          YES, SET TO RESTORE.                       F0B04850
 H     AXC     -1,1          PICK UP BUFFER INDEX                       F0B04860
       SLW*    SWT+14,1      AND STORE LOCATION IN CURRENT BUFFER.      F0B04870
       SXA     CNT,4                                                    F0B04880
 PACK  SXA     PACK9,2       THIS ROUTINE PICKS UP THE CONVERTED        F0B04890
       AXT     27,4          WORDS                                      F0B04900
       AXT     0,2           AND STORES THEM                            F0B04910
       CAL     BUF+27,4      IN THE CURRENT                             F0B04920
       LDQ     BUF+28,4      OUTPUT BUFFER IN THE                       F0B04930
       LGR     12            CORRECT OUTPUT POSITIONS.                  F0B04940
       STQ*    SWT+1,1                                                  F0B04950
       CAL     BUF+28,4                                                 F0B04960
       LDQ     BUF+29,4                                                 F0B04970
       LGR     12                                                       F0B04980
       STQ*    SWT+2,1                                                  F0B04990
       CAL     BUF+30,4                                                 F0B05000
       LDQ     BUF+31,4                                                 F0B05010
       LGR     12                                                       F0B05020
       CAL     BUF+29,4                                                 F0B05030
       LGR     12                                                       F0B05040
       STQ*    SWT+5,1                                                  F0B05050
       CAL     BUF+31,4                                                 F0B05060
       LDQ     BUF+32,4                                                 F0B05070
       LGL     12                                                       F0B05080
       SLW*    SWT+6,1                                                  F0B05090
       CAL     BUF+32,4                                                 F0B05100
       LDQ     BUF+33,4                                                 F0B05110
       RQL     24                                                       F0B05120
       LGL     12                                                       F0B05130
       SLW*    SWT+9,1                                                  F0B05140
       TNX     *+6,4,9       IS THIS END OF LINE.                       F0B05150
       CAL     BUF+25,4      NO.                                        F0B05160
       SLW*    SWT+10,1                                                 F0B05170
       CAL     BUF+26,4                                                 F0B05180
       SLW*    SWT+13,1                                                 F0B05190
       TXI     PACK+3,2,-7                                              F0B05200
 PACK9 AXT     0,2           COMPLETE LINE IS IN BUFFER.                F0B05210
       SXA     H,1                                                      F0B05220
       REM *****                                                        F0B05230
FINI4  TSX     (TAPE),4      WRITE LINE OF DUMP OR                      F0B05240
       PZE     DSU2,1,(WDNP) MNEMONICS.                                 F0B05250
       PZE     ,,OUTTAP                                                 F0B05260
       CLA*    (LNCT)        UPDATE COUNT OF                            F0B05270
       ADD     ONE           LINES                                      F0B05280
       STO*    (LNCT)        OF OUTPUT.                                 F0B05290
       LXA     TEMP+11,1     SET INDEX REG. TO FORMAT.                  F0B05300
       TXL     J,1,2         TRANSFER IF NO MNEMONICS.                  F0B05310
       ZET     TEMP+7        IS LINE OF MNEMONICS NEXT.                 F0B05320
       TRA     J-1           NO.                                        F0B05330
       REM                                                              F0B05340
       REM   **** WITH MNEMONICS ****                                   F0B05350
       REM                                                              F0B05360
       STL     TEMP+7        YES, RESET MNEMONICS FLAG.                 F0B05370
       SXA     AXT,2                                                    F0B05380
       AXT     24,2                                                     F0B05390
TYPA   PXA     ,0                                                       F0B05400
       LDI     BUF+24,2      PICK UP CONVERTED                          F0B05410
       LDQ     BUF+25,2      WORD.                                      F0B05420
       TQP     *+2                                                      F0B05430
       TRA     TYPB3                                                    F0B05440
       CAQ     TBLA,0,1      IS THIS A PREFIX OPCODE.                   F0B05450
       TZE     TYPB          NO.                                        F0B05460
       RFT     20            YES, IS SIGN NEGATIVE.                     F0B05470
       TRA     *+4           NO.                                        F0B05480
       PXA     ,0            SIGN IS NEGATIVE, FIND MATCH               F0B05490
       LDQ     BUF+25,2      IN NEG. TABLE.                             F0B05500
       CAQ     TBLA+3,0,1    AND                                        F0B05510
       SLW     BUF+25,2      SAVE MNEMONIC.                             F0B05520
       CAL     BLK           FILL IN WITH                               F0B05530
       TRA     TYPB3+2       BLANKS.                                    F0B05540
 TYPB  AXT     TBLBM,1       PICK UP ADDRESS FOR NEGATIVE OPCODES.      F0B05550
       RFT     20            IS WORD NEGATIVE.                          F0B05560
       AXT     TBLBP,1       NO, RESET ADDRESS FOR POSITIVE OPCODES,    F0B05570
       SXA     CAQ,1         AND STORE.                                 F0B05580
 CAQ   CAQ     0,0,1         FIND RIGHT SUBTABLE                        F0B05590
       STA     TYPB1         AND STORE ADDRESS.                         F0B05600
       PDX     0,4           SET XR WITH WORD COUNT OF SUBTABLE.        F0B05610
       CLM                                                              F0B05620
       LGL     12            STORE NUMERICAL OPCODE IN                  F0B05630
       STA     TYPB1+1       TEST FOR MATCH.                            F0B05640
       COM                                                              F0B05650
       ANA     TYPB2                                                    F0B05660
       STA     TYPB1+3                                                  F0B05670
 TYPB1 LDI     0,4           PICK UP WORD FROM CORRECT SUBTABLE.        F0B05680
       RNT     0             DOES THIS WORD MATCH.                      F0B05690
       TIX     *-2,4,1       NO, GO BACK FOR NEXT WORD, IF ANY.         F0B05700
       RFT     0             WORD MATCHES OR END OF SUBTABLE. ARE OTHER F0B05710
       TIX     *-4,4,1       YES, GO BACK FOR NEXT WORD, IF ANY.        F0B05720
       XEC     *-4           WORD MATCHES OR END OF SUBTABLE.           F0B05730
       TRA     TYPB3-1       NO MATCHING MNEMONIC.                      F0B05740
       XEC     *-4           MAYBE, CHECK AGAIN.                        F0B05750
       TRA     TYPB3-1       END OF SUBTABLE, NO MNEMONIC.              F0B05760
 TYPB2 PIA     511           MNEMONIC WAS FOUND, PLACE IN AC.           F0B05770
       AXT     TBLEP,1                                                  F0B05780
       LAS     PSE           IS IT PLUS SENSE.                          F0B05790
       TRA     *+2           NO.                                        F0B05800
       TRA     TYPE          YES.                                       F0B05810
       AXT     TBLEM,1       NO, IS IT                                  F0B05820
       LAS     MSE           MINUS SENSE.                               F0B05830
       TRA     *+2           NO.                                        F0B05840
       TRA     TYPE          YES.                                       F0B05850
       ARS     12            NO, SHIFT OUT NUMERALS, FILL               F0B05860
       ORA     2BLK          WITH BLANKS                                F0B05870
       SLW     BUF+25,2      AND STORE.                                 F0B05880
       RQL     3                                                        F0B05890
       CAL     BLK                                                      F0B05900
       TQP     TYPB3+2       TEST FOR INDIRECT                          F0B05910
       RQL     1             BITS IN                                    F0B05920
       TQP     TYPB3+2       WORD.                                      F0B05930
       CAL     ASTR          INSTRUCTION IS INDIRECT, PUT               F0B05940
       SLW     BUF+26,2      ASTERISK IN MNEMONIC.                      F0B05950
       TRA     TYPB3+3                                                  F0B05960
 TYPE  ARS     12            SHIFT OUT NUMERALS,                        F0B05970
       ORA     2BLK          FILL WITH BLANKS,                          F0B05980
       SLW     BUF+25,2      AND STORE.                                 F0B05990
       LDQ     BUF+26,2      PICK UP SECOND HALF,                       F0B06000
       CAL     BLK           STORE                                      F0B06010
       SLW     BUF+24,2      BLANKS.                                    F0B06020
       SLW     BUF+26,2                                                 F0B06030
       RQL     12            PUT MIDDLE                                 F0B06040
       CLM                   CHARACTERS IN                              F0B06050
       LGL     12            AC.                                        F0B06060
       TNZ     TYPB3+4       ARE THEY ZERO. IF NOT, TRANSFER.           F0B06070
       SXA     *+1,1         YES,                                       F0B06080
       CAL     0             PICK UP ADDRESS OF TBLEP OR TBLEM,         F0B06090
       TRA     CAQ+1         AND GO BACK TO INTERPRET FURTHER.          F0B06100
       TXL     TYPB3+4,1,TBLEM WAS THIS SENSE OPERATION.                F0B06110
 TYPB3 CAL     BLK           NO. PICK UP BLANK.                         F0B06120
       SLW     BUF+25,2                                                 F0B06130
       SLW     BUF+26,2                                                 F0B06140
       SLW     BUF+24,2                                                 F0B06150
       TIX     TYPA,2,3      GO BACK FOR NEXT WORD.                     F0B06160
 STEP  LXA     CNT,4         END OF LINE OF MNEMONICS.                  F0B06170
       CAL     BLK                                                      F0B06180
 AXT   AXT     0,2                                                      F0B06190
       TXI     H,4,1         GO TO WRITE LINE OF MNEMONICS.             F0B06200
       STZ     TEMP+7        INDICATE LINE OF DUMP NEXT .               F0B06210
 J     PXA     0,2           TEST FOR END OF                            F0B06220
       ERA     TEMP+3        DUMP PORTION.                              F0B06230
       TNZ     DFA           NO, GO BACK FOR NEXT LINE.                 F0B06240
       TRA     DUMP          YES, LOOK FOR NEXT PARAMETERS.             F0B06250
       REM                                                              F0B06260
       REM   **** ERROR IN CALLING SEQUENCE ****                        F0B06270
       REM                                                              F0B06280
       REM *****                                                        F0B06290
 FERR  TRA     PCH1           GO WRITE ERR MESSAGE                     $F0B06300
       CLA*    (LNCT)                                               (22)F0B06310
       ADD     ONE           UPDATE LINE COUNT                      (22)F0B06320
       STO*    (LNCT)                                               (22)F0B06330
RSR    ZET     TEMP+6        IS THIS DUMP OR PDUMP...               (22)F0B06340
       TRA     PRSR          PDUMP. RETURN TO PROGRAM               (22)F0B06350
       TSX     (LOAD),4,1    DUMP. GO TO SIGN-ON                    (22)F0B06360
       BCI     1,9F0300                                             (22)F0B06370
TRSR   ZET     TEMP+10       1ST LIMIT IS ZERO, IS IT FIRST DUMP    (22)F0B06380
       TRA     RSR           NO, END OF DUMP                        (22)F0B06390
       STL     TEMP+9        NO FURTHER DUMPS                       (22)F0B06400
       TRA     CONT          PROCEED                                (22)F0B06410
PRSR   NZT     TEMP+1        IS BUFFER RESTORED                     (22)F0B06420
       TRA     RSR1          YES                                    (22)F0B06430
       TSX     (TAPE),4      NO, RESTORE IT                         (22)F0B06440
       PZE     IORT,,(RBNP)                                         (22)F0B06450
       PZE     S2L,,SAVTAP                                          (22)F0B06460
       TSX     (TAPE),4      REPOSITION SAVE TAPE                   (22)F0B06470
       PZE     BS1R,,(SKBP)                                         (22)F0B06475
       PZE     ,,SAVTAP                                             (22)F0B06480
RSR1   TSX     (TAPE),4      SAVE LOWER MEMORY FOR READ ROUTINE     (22)F0B06485
       PZE     IOBOT,,(WBNP)                                        (22)F0B06490
       PZE     ,,SAVTAP                                             (22)F0B06495
       TSX     (TAPE),4      REPOSITION TAPE TO READ                (22)F0B06500
       PZE     BS2R,,(SKBP)  SAVED UPPER CORE                       (22)F0B06505
       PZE     ,,SAVTAP                                             (22)F0B06510
       AXT     SELEND-SELBEG,4           MOVE SELECT ROUTINE        (22)F0B06520
       CLA     SELOC+SELEND-SELBEG,4     TO LOWER CORE(RESTORED     (22)F0B06530
       STO     SELEND,4                  BY PDUMP)                  (22)F0B06540
       TIX     *-2,4,1                                              (22)F0B06550
       TRA     SELBEG                                               (22)F0B06560
SELOC  EQU     *             SELECT ROUTINE LOADED HERE             (22)F0B06570
       LOC     BOTTOM        MOVED HERE                             (22)F0B06580
SELBEG LAC     SYSUT3,2      UCB FOR SAVTAP                         (22)F0B06590
       CLA     IOXSLL        LOC OF SELECT                          (22)F0B06600
       ZET     1,2           TEST TAPE IN USE                       (22)F0B06610
       TRA     *-1           YES, WAIT                              (22)F0B06620
       STO     1,2           LOCATE SELECT                          (22)F0B06630
       TSX     (ACTIV,4      START UNIT                             (22)F0B06640
       PZE     SYSUT3                                               (22)F0B06650
       ZET     1,2           IS READ COMPLETE...                    (22)F0B06660
       TRA     *-1           NO, WAIT                               (22)F0B06670
       LDI     IOXSLL        ERROR INDICATION                       (22)F0B06680
       LFT     300000        WAS READ SUCCESSFUL                    (22)F0B06690
       TRA     *+2           NO. BOMB OUT                           (22)F0B06700
       TRA     BOTTOM-5      YES. RETURN TO PDUMP                   (22)F0B06710
       TSX     (PROUT,4      INFORM OPERATOR, SINCE                 (22)F0B06720
       PZE     1             WE HAVE NO MEANS OF                    (22)F0B06730
       PZE     M,,7          WRITING OFFLINE                        (22)F0B06740
       CLA     1B17          SET IBSYS BOMB BIT                     (22)F0B06750
       ORS     SYSJOB                                               (22)F0B06760
       CLA     IBSXEC        TO LOOK FOR NEXT SEGMENT               (22)F0B06770
       STO     SYSGET                                               (22)F0B06780
       TRA     SYSRET        RETURN TO IBSYS                        (22)F0B06790
1B17   DEC     1B17                                                 (22)F0B06800
IBSXEC BCI     1,IBSXEC                                             (22)F0B06810
M      BCI     7, CANNOT RESTORE AFTER PDUMP. JOB ENDED.            (22)F0B06820
R      IORT    ORGDP,,SYSEND+1-ORGDP                                (30)F0B06830
IOXSLL         R,,*+1                                               (22)F0B06840
       TMI     PST           SELECT PLUS OR MINUS...                (22)F0B06850
       CLA*    SYSUT3        UCB FOR SAVTAP                         (22)F0B06860
       PDX     ,2            DECIMAL UNIT ADDRESS                   (22)F0B06870
       TXI     *+1,2,16      BINARY UNIT ADDRESS                    (22)F0B06880
       SXA     *+3,2         TO SELECT                              (22)F0B06890
       CLA     IOXSLL        I/O COMMAND LOCATION                   (22)F0B06900
       STA*    (RCHXI        TO RCH                                 (22)F0B06910
       RDS     **            SELECT                                 (22)F0B06920
       XEC*    (RCHXI        LOAD CHANNEL                           (22)F0B06930
       TRA     1,4           RETURN                                 (22)F0B06940
PST    PAC     0,2           SELECT MINUS                           (22)F0B06950
       STZ     1,2           SET UNIT FREE                          (22)F0B06960
       STI     IOXSLL        SAVE ERRORS                            (22)F0B06970
       TRA     1,4           RETURN                                 (22)F0B06980
SELEND EQU     *             END OF LOW CORE CODING                 (22)F0B06990
       LOC                   RETURN TO NORMAL LOCATIONS             (22)F0B07000
S2L    BCI     1,SAVE2       LABEL FOR SAVTAP                       (22)F0B07010
       REM                                                              F0B07170
       REM   **** INTEGER OUTPUT ****                                   F0B07180
       REM                                                              F0B07190
 INT   LDI     3BLK          THIS ROUTINE TRANSLATES THE DECREMENTS     F0B07200
       TQP     *+2           OF WORDS TO DECIMAL INTEGERS. WORD IS IN MQF0B07210
       RIL     20            SET MINUS SIGN IF S IS ON.                 F0B07220
       LGL     3             CLEAR                                      F0B07230
       CLM                   OUT                                        F0B07240
       LGR     3             PREFIX.                                    F0B07250
       CAQ     T1+128,0,1    CONVERT                                    F0B07260
       CAQ     T1+64,0,1     THE                                        F0B07270
       CAQ     T1,0,1        BINARY DECREMENT                           F0B07280
       CVR     T3,0,6        TO DECIMAL.                                F0B07290
       LDQ     BLK           FILL OUT WORDS                             F0B07300
       LGR     12            WITH BLANKS.                               F0B07310
       OAI                   PUT FIRST HALF OF WORD IN INDICATORS,      F0B07320
       XCL                   2ND HALF IN LOGICAL AC, AND                F0B07330
       TRA     3,1           RETURN.                                    F0B07340
       REM                                                              F0B07350
       REM   **** FLOATING POINT OUTPUT ****                            F0B07360
       REM                                                              F0B07370
 FPT   SXA     FPTLV,4 FLOATING POINT DUMPER                            F0B07380
       SXA     FPTLV+1,2 IGNORES SIGN                                   F0B07390
       SXA     FPTLV+2,1                                                F0B07400
       LDI     FPTHP         PICK UP .0                                 F0B07410
       TQP     *+2           IF FIRST WORD IS MINUS, SET                F0B07420
       SIL     40000         1ST BIT ON IN CONVERTED WORD.              F0B07430
       XCA                   AND                                        F0B07440
       SSP                   REMOVE SIGN.                               F0B07450
       LDQ     FPTPZ         PICK UP ZERO CHARACTERISTIC.               F0B07460
       TZE     FPTLV-1       IS WORD ZERO.                              F0B07470
       AXT     -DDFTB,2      NO, CONVERT IT                             F0B07480
       AXT     2,4           TO FLOATING POINT.                         F0B07490
 FPTSH TXI     *+1,4,-2                                                 F0B07500
       CAS     38,2                                                     F0B07510
       XEC     *+3,4                                                    F0B07520
       TXI     FPTFD+2,2,1   EQUAL SET INDEX FOR NEXT HIGHER POWER     $F0B07530
       XEC     *+2,4                                                    F0B07540
       TXI     FPTSH,2,7                                                F0B07550
       TXI     FPTSH,2,-8                                               F0B07560
       TXI     FPTSH,2,16                                               F0B07570
       TXI     FPTSH,2,-16                                              F0B07580
       TXI     FPTSH,2,8                                                F0B07590
       TXI     FPTSH,2,-8                                               F0B07600
       TXI     FPTSH,2,4                                                F0B07610
       TXI     FPTSH,2,-4                                               F0B07620
       TXI     FPTSH,2,2                                                F0B07630
       TXI     FPTSH,2,-2                                               F0B07640
       TXI     FPTSH,2,1                                                F0B07650
       TXI     FPTSH,2,-1                                               F0B07660
 FPTFD TXI     *+2,2,1                                                  F0B07670
       TRA     *+1                                                      F0B07680
       TXL     FPTNL,2,-30-DDFTB                                        F0B07690
       FDP     46,2          DIVIDE BY POWER OF TEN 8 LESS THAN NO.    $F0B07700
 FPTDD XCA                                                              F0B07710
       FRN                                                              F0B07720
       UFA     FPTFX                                                    F0B07730
       RQL     9                                                        F0B07740
       ANA     FPTMK                                                    F0B07750
       LGL     8                                                        F0B07760
       CAS     FPTBG                                                    F0B07770
       NOP                                                              F0B07780
       SUB     T1+1                                                     F0B07790
       VDH     FPTOR,0,12                                               F0B07800
       STO     FPTMP                                                    F0B07810
       CLM                                                              F0B07820
       RQL     24                                                       F0B07830
       CAQ     T1+64,0,1                                                F0B07840
       CAQ     T1,0,1                                                   F0B07850
       CVR     T3,0,3                                                   F0B07860
       LDQ     FPTMP                                                    F0B07870
       SLW     FPTMP                                                    F0B07880
       CLM                                                              F0B07890
       CAQ     T1+192,0,1                                               F0B07900
       CAQ     T1+128,0,1                                               F0B07910
       CAQ     T1+64,0,1                                                F0B07920
       CAQ     T1,0,1                                                   F0B07930
       CVR     T3,0,6                                                   F0B07940
       SLW     FPTMP+1                                                  F0B07950
       PXA     0,2                                                      F0B07960
       SUB     FPTSB                                                    F0B07970
       LGR     12                                                       F0B07980
       CAQ     T1+64,0,1                                                F0B07990
       CAQ     T1,0,1                                                   F0B08000
       CVR     T3,0,2                                                   F0B08010
       XCL                                                              F0B08020
       CLA     FPTPS                                                    F0B08030
       TXH     *+2,2,-DDFTB-1                                           F0B08040
       ADD     FPTPS                                                    F0B08050
       LGR     6                                                        F0B08060
       CAL     FPTMP+1                                                  F0B08070
       LGR     18                                                       F0B08080
       ACL     FPTMP                                                    F0B08090
       OAI                   PLACE CONVERTED WORD IN INDICATORS,        F0B08100
       XCL                   AND LOGICAL AC,                            F0B08110
 FPTLV AXT     0,4           RESTORE                                    F0B08120
       AXT     0,2           INDEX                                      F0B08130
       AXT     0,1           REGISTERS,                                 F0B08140
       TRA     2,1           AND RETURN.                                F0B08150
 FPTNL XCA                                                              F0B08160
       FMP     DDTTN                                                    F0B08170
       FDP     37,2          DIVIDE TO GET QUOTIENT BETWEEN 1E7 + 1E8  $F0B08180
       TRA     FPTDD                                                    F0B08190
 FPTBG OCT     000575360400     DEC     1E8B35     DGP                  F0B08200
 FPTPZ BCI     1,000+00                                                 F0B08210
 FPTFX OCT     243000000000                                             F0B08220
 FPTMK OCT     777777777                                                F0B08230
 FPTOR DEC     4096000000                                               F0B08240
 FPTMP DEC     0,0                                                      F0B08250
 FPTSB PZE     -DDFTB                                                   F0B08260
 FPTPS OCT     20                                                       F0B08270
 FPTHP BCI     1,.00000                                                 F0B08280
DDFTB  DEC     1E38          TABLE OF POWERS OF 10 IN FLOATING POINT   $F0B08290
       DEC     1E37                                                     F0B08300
       DEC     1E36                                                     F0B08310
       DEC     1E35                                                     F0B08320
       DEC     1E34                                                     F0B08330
       DEC     1E33                                                     F0B08340
       DEC     1E32                                                     F0B08350
       DEC     1E31                                                     F0B08360
       DEC     1E30                                                     F0B08370
       DEC     1E29                                                     F0B08380
       DEC     1E28                                                     F0B08390
       DEC     1E27                                                     F0B08400
       DEC     1E26                                                     F0B08410
       DEC     1E25                                                     F0B08420
       DEC     1E24                                                     F0B08430
       DEC     1E23                                                     F0B08440
       DEC     1E22                                                     F0B08450
       DEC     1E21                                                     F0B08460
       DEC     1E20                                                     F0B08470
       DEC     1E19                                                     F0B08480
       DEC     1E18                                                     F0B08490
       DEC     1E17                                                     F0B08500
       DEC     1E16                                                     F0B08510
       DEC     1E15                                                     F0B08520
       DEC     1E14                                                     F0B08530
       DEC     1E13                                                     F0B08540
       DEC     1E12                                                     F0B08550
       DEC     1E11                                                     F0B08560
       DEC     1E10                                                     F0B08570
 DDTTN DEC     1E9                                                      F0B08580
       DEC     1E8                                                      F0B08590
       DEC     1E7                                                      F0B08600
       DEC     1E6                                                      F0B08610
       DEC     1E5                                                      F0B08620
       DEC     1E4                                                      F0B08630
       DEC     1E3                                                      F0B08640
       DEC     1E2                                                      F0B08650
       DEC     1E1                                                      F0B08660
       DEC     1E0                                                      F0B08670
       DEC     1E-1                                                     F0B08680
       DEC     1E-2                                                     F0B08690
       DEC     1E-3                                                     F0B08700
       DEC     1E-4                                                     F0B08710
       DEC     1E-5                                                     F0B08720
       DEC     1E-6                                                     F0B08730
       DEC     1E-7                                                     F0B08740
       DEC     1E-8                                                     F0B08750
       DEC     1E-9                                                     F0B08760
       DEC     1E-10                                                    F0B08770
       DEC     1E-11                                                    F0B08780
       DEC     1E-12                                                    F0B08790
       DEC     1E-13                                                    F0B08800
       DEC     1E-14                                                    F0B08810
       DEC     1E-15                                                    F0B08820
       DEC     1E-16                                                    F0B08830
       DEC     1E-17                                                    F0B08840
       DEC     1E-18                                                    F0B08850
       DEC     1E-19                                                    F0B08860
       DEC     1E-20                                                    F0B08870
       DEC     1E-21                                                    F0B08880
       DEC     1E-22                                                    F0B08890
       DEC     1E-23                                                    F0B08900
       DEC     1E-24                                                    F0B08910
       DEC     1E-25                                                    F0B08920
       DEC     1E-26                                                    F0B08930
       DEC     1E-27                                                    F0B08940
       DEC     1E-28                                                    F0B08950
       DEC     1E-29                                                    F0B08960
       DEC     1E-30                                                    F0B08970
       DEC     1E-31                                                    F0B08980
       DEC     1E-32                                                    F0B08990
       DEC     1E-33                                                    F0B09000
       DEC     1E-34                                                    F0B09010
       DEC     1E-35                                                    F0B09020
       DEC     1E-36                                                    F0B09030
       DEC     1E-37                                                    F0B09040
       DEC     1E-38                                                    F0B09050
 DDEFT DEC     0                                                        F0B09060
       REM   **** T1   CONVERTS BINARY TO BCD  8 WORDS PER CARD ****    F0B09070
 T1    BCI     8,000000000001000002000003000004000005000006000007       F0B09080
       BCI     8,000008000009000010000011000012000013000014000015       F0B09090
       BCI     8,000016000017000018000019000020000021000022000023       F0B09100
       BCI     8,000024000025000026000027000028000029000030000031       F0B09110
       BCI     8,000032000033000034000035000036000037000038000039       F0B09120
       BCI     8,000040000041000042000043000044000045000046000047       F0B09130
       BCI     8,000048000049000050000051000052000053000054000055       F0B09140
       BCI     8,000056000057000058000059000060000061000062000063       F0B09150
       BCI     8,000000000064000128000192000256000320000384000448       F0B09160
       BCI     8,000512000576000640000704000768000832000896000960       F0B09170
       BCI     8,001024001088001152001216001280001344001408001472       F0B09180
       BCI     8,001536001600001664001728001792001856001920001984       F0B09190
       BCI     8,002048002112002176002240002304002368002432002496       F0B09200
       BCI     8,002560002624002688002752002816002880002944003008       F0B09210
       BCI     8,003072003136003200003264003328003392003456003520       F0B09220
       BCI     8,003584003648003712003776003840003904003968004032       F0B09230
       BCI     8,000000004096008192012288016384020480024576028672       F0B09240
       BCI     8,032768036864040960045056049152053248057344061440       F0B09250
       BCI     8,065536069632073728077824081920086016090112094208       F0B09260
       BCI     8,098304102400106496110592114688118784122880126976       F0B09270
       BCI     8,131072135168139264143360147456151552155648159744       F0B09280
       BCI     8,163840167936172032176128180224184320188416192512       F0B09290
       BCI     8,196608200704204800208896212992217088221184225280       F0B09300
       BCI     8,229376233472237568241664245760249856253952258048       F0B09310
       BCI     8,000000262144524288786432048576310720572864835008       F0B09320
       REM   **** T3   CONVERTS BCD ADDITION RESULT TO BCD ****         F0B09330
 T3            T3                                                       F0B09340
               T3,0,4096                                                F0B09350
               T3,0,2*4096                                              F0B09360
               T3,0,3*4096                                              F0B09370
               T3,0,4*4096                                              F0B09380
               T3,0,5*4096                                              F0B09390
               T3,0,6*4096                                              F0B09400
               T3,0,7*4096                                              F0B09410
       PON     T3                                                       F0B09420
       PON     T3,0,4096                                                F0B09430
               T3+1                                                     F0B09440
               T3+1,0,4096                                              F0B09450
               T3+1,0,2*4096                                            F0B09460
               T3+1,0,3*4096                                            F0B09470
               T3+1,0,4*4096                                            F0B09480
               T3+1,0,5*4096                                            F0B09490
               T3+1,0,6*4096                                            F0B09500
               T3+1,0,7*4096                                            F0B09510
       PON     T3+1                                                     F0B09520
       PON     T3+1,0,4096                                              F0B09530
               T3+2                                                     F0B09540
               T3+2,0,4096                                              F0B09550
               T3+2,0,2*4096                                            F0B09560
               T3+2,0,3*4096                                            F0B09570
               T3+2,0,4*4096                                            F0B09580
               T3+2,0,5*4096                                            F0B09590
               T3+2,0,6*4096                                            F0B09600
               T3+2,0,7*4096                                            F0B09610
       PON     T3+2                                                     F0B09620
       PON     T3+2,0,4096                                              F0B09630
               T3+3                                                     F0B09640
               T3+3,0,4096                                              F0B09650
               T3+3,0,2*4096                                            F0B09660
               T3+3,0,3*4096                                            F0B09670
               T3+3,0,4*4096                                            F0B09680
               T3+3,0,5*4096                                            F0B09690
               T3+3,0,6*4096                                            F0B09700
               T3+3,0,7*4096                                            F0B09710
       PON     T3+3                                                     F0B09720
       PON     T3+3,0,4096                                              F0B09730
 FDUMP PZE     -1                                                      $F0B09740
 HONE  PZE     0,0,4096                                                 F0B09750
       TCOH    0                                                        F0B09760
       TCOG    0                                                        F0B09770
       TCOF    0                                                        F0B09780
       TCOE    0                                                        F0B09790
       TCOD    0                                                        F0B09800
       TCOC    0                                                        F0B09810
       TCOB    0                                                        F0B09820
       TCOA    0                                                        F0B09830
TCOX   SYN     *                                                        F0B09840
       SCHH    TEMP+6                                                   F0B09850
       SCHG    TEMP+6                                                   F0B09860
       SCHF    TEMP+6                                                   F0B09870
       SCHE    TEMP+6                                                   F0B09880
       SCHD    TEMP+6                                                   F0B09890
       SCHC    TEMP+6                                                   F0B09900
       SCHB    TEMP+6                                                   F0B09910
       SCHA    TEMP+6                                                   F0B09920
SCHX   SYN     *                                                        F0B09930
 HZR   BCI     1,0                                                      F0B09940
 ONE           1                                                        F0B09950
OBLK   TNX     ,,0                                                      F0B09960
 ON    BCI     1,    ON                                                 F0B09970
 OFF   BCI     1,   OFF                                                 F0B09980
 MNSZ  BCI     1,    -                                                  F0B09990
 MNSO  BCI     1,    -1                                                 F0B10000
 PLUS  BCI     1,    +0                                                 F0B10010
 TEMP  DEC     0,0,0,0,0,0,0,0,0,0,0,0,0,0                              F0B10020
 MINUS BCI     1,     -                                                 F0B10030
 LBLK          48                                                       F0B10040
 ERR   IORT    RESTO,0,1                                               $F0B10050
       IORT    ERROR,0,9                                               $F0B10060
       IORT  HZR,,1                                                     F0B10070
  NDIO IOCP    BOTTOM,,50                                              $F0B10080
       IOCT    END-SIZE,,SIZE                                          $F0B10090
 DSU   IORT    BUF2,,20           .                                    $F0B10100
       IORT    BUF3,,20           .                                    $F0B10110
       IORT    DUMP2,,20          .                                    $F0B10120
       IORT    BUF1,,20           .                                    $F0B10130
       IORT    BUF,,20            .                                    $F0B10140
  IOCD IOCT    BLK,0,1                                                  F0B10150
       IORT    BUF2,0,20                                                F0B10160
 DSU2  IORT    DFBB,0,20                                                F0B10170
       IORT    BUF1,0,20                                                F0B10180
  IORT IORT    SAVE,,SAVL                                              $F0B10190
 SWT           BUF2+1,2                                                 F0B10200
               BUF2+2,2                                                 F0B10210
               BUF1+1,2                                                 F0B10220
               BUF1+2,2                                                 F0B10230
               BUF2+3,2                                                 F0B10240
               BUF2+4,2                                                 F0B10250
               BUF1+3,2                                                 F0B10260
               BUF1+4,2                                                 F0B10270
               BUF2+5,2                                                 F0B10280
               BUF2+6,2                                                 F0B10290
               BUF1+5,2                                                 F0B10300
               BUF1+6,2                                                 F0B10310
               BUF2+7,2                                                 F0B10320
               BUF2                                                     F0B10330
               BUF1+7,2                                                 F0B10340
               BUF1                                                     F0B10350
 ERROR BCI   9,     PLEASE SUPPLY CORRECT CALLING SEQUENCE FOR DUMP.    F0B10360
 DUMP1 BCI     2,1                                                      F0B10370
       BCI     9,AC                MQ                SI                 F0B10380
       BCI     2,KEYS                                                   F0B10390
       BCI     7,  XR1         XR2         XR4         XR3             $F0B10400
 DUMP2 BCI     4,0 TRAP   DCT   IOT   OFL                              $F0B10410
       BCI     4,   SL1   SL2   SL3   SL4                              $F0B10420
       BCI     6,   SW1   SW2   SW3   SW4   SW5   SW6                  $F0B10430
       BCI     6,        XR5         XR6         XR7                   $F0B10435
 DFBB  BCI     6,                                                       F0B10440
       BCI     4,CELLS         TO                                       F0B10450
       BCI     9,ALL CONTAIN                                            F0B10460
 BLK   BCI     1,                                                       F0B10470
 2BLK  BCI     1,  0000                                                 F0B10480
 3BLK  BCI     1,   000                                                 F0B10490
 ASTR  BCI     1,*                                                      F0B10500
 TBLA          0                                                        F0B10510
       BCI     1,   TXI                                                 F0B10520
       BCI     1,   TIX                                                 F0B10530
       BCI     1,   TXH                                                 F0B10540
       BCI     1,   STR                                                 F0B10550
       BCI     1,   TNX                                                 F0B10560
       BCI     1,   TXL                                                 F0B10570
 TBLEP         TBME,0,TBME-TBPE                                         F0B10580
 TBLEM         TBP0,0,TBP0-TBME                                         F0B10590
 TBLBP         TBP1,0,TBP1-TBP0                                         F0B10600
               TBP2,0,TBP2-TBP1                                         F0B10610
               TBP3,0,TBP3-TBP2                                         F0B10620
               TBP4,0,TBP4-TBP3                                         F0B10630
               TBP5,0,TBP5-TBP4                                         F0B10640
               TBP6,0,TBP6-TBP5                                         F0B10650
               TBP7,0,TBP7-TBP6                                         F0B10660
               TBM0,0,TBM0-TBP7                                         F0B10670
 TBLBM         TBM1,0,TBM1-TBM0                                         F0B10680
               TBM2,0,TBM2-TBM1                                         F0B10690
               TBM3,0,TBM3-TBM2                                         F0B10700
               TBM4,0,TBM4-TBM3                                         F0B10710
               TBM5,0,TBM5-TBM4                                         F0B10720
               TBM6,0,TBM6-TBM5                                         F0B10730
               TBM7,0,TBM7-TBM6                                         F0B10740
               TBE,0,TBE-TBM7                                           F0B10750
 TBPE  BCI     1, CLM00                                                 F0B10760
       BCI     1, LBT01                                                 F0B10770
       BCI     1, CHS02                                                 F0B10780
       BCI     1, SSP03                                                 F0B10790
       BCI     1, ENK04                                                 F0B10800
       BCI     1, IOT05                                                 F0B10810
       BCI     1, COM06                                                 F0B10820
       BCI     1, ETM07                                                 F0B10830
       BCI     1, RND10                                                 F0B10840
       BCI     1, FRN11                                                 F0B10850
       BCI     1, DCT12                                                 F0B10860
       BCI     1, RCT14                                                *F0B10870
 TBME  BCI     1, PBT01                                                 F0B10880
       BCI     1,EFTM02                                                 F0B10890
       BCI     1, SSM03                                                 F0B10900
       BCI     1,LFTM04                                                 F0B10910
       BCI     1,ESTM05                                                 F0B10920
       BCI     1,ECTM06                                                 F0B10930
       BCI     1, LTM07                                                 F0B10940
       BCI     1,LSNM10                                                 F0B10950
       BCI     1, ETT11                                                 F0B10960
       BCI     1, RTT12                                                 F0B10970
 TBP0  BCI     1, HTR00                                                 F0B10980
       BCI     1, TRA20                                                 F0B10990
       BCI     1, TTR21                                                 F0B11000
       BCI     1,TRCA22                                                 F0B11010
       BCI     1,TRCC24                                                 F0B11020
       BCI     1,TRCE26                                                 F0B11030
       BCI     1,TRCG27                                                 F0B11040
       BCI     1,TEFA30                                                 F0B11050
       BCI     1,TEFC31                                                 F0B11060
       BCI     1,TEFE32                                                 F0B11070
       BCI     1,TEFG33                                                 F0B11080
 TBP04 BCI     1, TLQ40                                                 F0B11090
       BCI     1, IIA41                                                 F0B11100
       BCI     1, TIO42                                                 F0B11110
       BCI     1, OAI43                                                 F0B11120
       BCI     1, PAI44                                                 F0B11130
       BCI     1, TIF46                                                 F0B11140
       BCI     1, IIR51                                                 F0B11150
       BCI     1, RFT54                                                 F0B11160
       BCI     1, SIR55                                                 F0B11170
       BCI     1, RNT56                                                 F0B11180
       BCI     1, RIR57                                                 F0B11190
       BCI     1,TCOA60                                                 F0B11200
       BCI     1,TCOB61                                                 F0B11210
       BCI     1,TCOC62                                                 F0B11220
       BCI     1,TCOD63                                                 F0B11230
       BCI     1,TCOE64                                                 F0B11240
       BCI     1,TCOF65                                                 F0B11250
       BCI     1,TCOG66                                                 F0B11260
       BCI     1,TCOH67                                                 F0B11270
       BCI     1, TSX74                                                 F0B11280
 TBP1  BCI     1, TZE00                                                 F0B11290
       BCI     1, CVR14                                                 F0B11300
       BCI     1, TPL20                                                 F0B11310
       BCI     1, XCA31                                                 F0B11320
       BCI     1, TOV40                                                 F0B11330
       BCI     1, TQO61                                                 F0B11340
       BCI     1, TQP62                                                 F0B11350
 TBP14 BCI     1, TOV40                                                 F0B11360
       BCI     1, TQO61                                                 F0B11370
       BCI     1, TQP62                                                 F0B11380
 TBP2  BCI     1, MPY00                                                 F0B11390
       BCI     1, VLM04                                                 F0B11400
       BCI     1, DVH20                                                 F0B11410
       BCI     1, DVP21                                                 F0B11420
       BCI     1, VDH24                                                 F0B11430
       BCI     1, VDP25                                                 F0B11440
 TBP24 BCI     1, FDH40                                                 F0B11450
       BCI     1, FDP41                                                 F0B11460
       BCI     1, FMP60                                                 F0B11470
 TBP3  BCI     1, FAD00                                                 F0B11480
       BCI     1, FSB02                                                 F0B11490
       BCI     1, FAM04                                                 F0B11500
       BCI     1, FSM06                                                 F0B11510
       BCI     1, ANS20                                                 F0B11520
       BCI     1, ERA22                                                 F0B11530
 TBP34 BCI     1, CAS40                                                 F0B11540
       BCI     1, ACL61                                                 F0B11550
 TBP4  BCI     1, ADD00                                                 F0B11560
       BCI     1, ADM01                                                 F0B11570
       BCI     1, SUB02                                                 F0B11580
       BCI     1, HPR20                                                 F0B11590
 TBP44 BCI     1, IIS40                                                 F0B11600
       BCI     1, LDI41                                                 F0B11610
       BCI     1, OSI42                                                 F0B11620
       BCI     1, OFT44                                                 F0B11630
       BCI     1, RIS45                                                 F0B11640
       BCI     1, ONT46                                                 F0B11650
       BCI     1, LDA60                                                 F0B11660
 TBP5  BCI     1, CLA00                                                 F0B11670
       BCI     1, CLS02                                                 F0B11680
       BCI     1, ZET20                                                 F0B11690
       BCI     1, XEC22                                                 F0B11700
       BCI     1, LXA34                                                 F0B11710
       BCI     1, LAC35                                                 F0B11720
 TBP54 BCI     1,RCHA40                                                 F0B11730
       BCI     1,RCHC41                                                 F0B11740
       BCI     1,RCHE42                                                 F0B11750
       BCI     1,RCHG43                                                 F0B11760
       BCI     1,LCHA44                                                 F0B11770
       BCI     1,LCHC45                                                 F0B11780
       BCI     1,LCHE46                                                 F0B11790
       BCI     1,LCHG47                                                 F0B11800
       BCI     1, LDQ60                                                 F0B11810
       BCI     1, ENB64                                                 F0B11820
 TBP6  BCI     1, STZ00                                                 F0B11830
       BCI     1, STO01                                                 F0B11840
       BCI     1, SLW02                                                 F0B11850
       BCI     1, STI04                                                 F0B11860
       BCI     1, STA21                                                 F0B11870
       BCI     1, STD22                                                 F0B11880
       BCI     1, STT25                                                 F0B11890
       BCI     1, SXA34                                                 F0B11900
 TBP64 BCI     1,SCHA40                                                 F0B11910
       BCI     1,SCHC41                                                 F0B11920
       BCI     1,SCHE42                                                 F0B11930
       BCI     1,SCHG43                                                 F0B11940
 TBP7  BCI     1, CPY00                                                 F0B11950
       BCI     1, CPY00                                                 F0B11960
       BCI     1, PAX34                                                 F0B11970
       BCI     1, PAC37                                                 F0B11980
 TBP74 BCI     1, PXA54                                                 F0B11990
 PSE   BCI     1, PSE60                                                 F0B12000
       BCI     1, NOP61                                                 F0B12010
       BCI     1, RDS62                                                 F0B12020
       BCI     1, LLS63                                                 F0B12030
       BCI     1, BSR64                                                 F0B12040
       BCI     1, LRS65                                                 F0B12050
       BCI     1, WRS66                                                 F0B12060
       BCI     1, ALS67                                                 F0B12070
       BCI     1, WEF70                                                 F0B12080
       BCI     1, ARS71                                                 F0B12090
       BCI     1, REW72                                                 F0B12100
       BCI     1, AXT74                                                 F0B12110
       BCI     1, SDN76                                                 F0B12120
 TBM0  BCI     1,ESNT21                                                 F0B12130
       BCI     1,TRCB22                                                 F0B12140
       BCI     1,TRCD24                                                 F0B12150
       BCI     1,TRCF26                                                 F0B12160
       BCI     1,TRCH27                                                 F0B12170
       BCI     1,TEFB30                                                 F0B12180
       BCI     1,TEFD31                                                 F0B12190
       BCI     1,TEFF32                                                 F0B12200
       BCI     1,TEFH33                                                 F0B12210
 TBM04 BCI     1, RIA42                                                 F0B12220
       BCI     1, PIA46                                                 F0B12230
       BCI     1, IIL51                                                 F0B12240
       BCI     1, LFT54                                                 F0B12250
       BCI     1, SIL55                                                 F0B12260
       BCI     1, LNT56                                                 F0B12270
       BCI     1, RIL57                                                 F0B12280
       BCI     1,TCNA60                                             (34)F0B12290
       BCI     1,TCNB61                                                 F0B12300
       BCI     1,TCNC62                                                 F0B12310
       BCI     1,TCND63                                                 F0B12320
       BCI     1,TCNE64                                                 F0B12330
       BCI     1,TCNF65                                                 F0B12340
       BCI     1,TCNG66                                                 F0B12350
       BCI     1,TCNH67                                                 F0B12360
 TBM1  BCI     1, TNZ00                                                 F0B12370
       BCI     1, CAQ14                                                 F0B12380
       BCI     1, TMI20                                                 F0B12390
       BCI     1, XCL30                                                 F0B12400
 TBM14 BCI     1, TNO40                                                 F0B12410
       BCI     1, CRQ54                                                 F0B12420
 TBM2  BCI     1, MPR00                                                 F0B12430
 TBM24 BCI     1, UFM60                                                 F0B12440
 TBM3  BCI     1, UFA00                                                 F0B12450
       BCI     1, UFS02                                                 F0B12460
       BCI     1, UAM04                                                 F0B12470
       BCI     1, USM06                                                 F0B12480
       BCI     1, ANA20                                                 F0B12490
 TBM34 BCI     1, LAS40                                                 F0B12500
 TBM4  BCI     1, SBM00                                                 F0B12510
 TBM5  BCI     1, CAL00                                                 F0B12520
       BCI     1, ORA01                                                 F0B12530
       BCI     1, NZT20                                                 F0B12540
       BCI     1, LXD34                                                 F0B12550
       BCI     1, LDC35                                                 F0B12560
 TBM54 BCI     1,RCHB40                                                 F0B12570
       BCI     1,RCHD41                                                 F0B12580
       BCI     1,RCHF42                                                 F0B12590
       BCI     1,RCHH43                                                 F0B12600
       BCI     1,LCHB44                                                 F0B12610
       BCI     1,LCHD45                                                 F0B12620
       BCI     1,LCHF46                                                 F0B12630
       BCI     1,LCHH47                                                 F0B12640
 TBM6  BCI     1, STQ00                                                 F0B12650
       BCI     1, ORS02                                                 F0B12660
       BCI     1, SLQ20                                                 F0B12670
       BCI     1, STL25                                                 F0B12680
       BCI     1, SXD34                                                 F0B12690
 TBM64 BCI     1,SCHB40                                                 F0B12700
       BCI     1,SCHD41                                                 F0B12710
       BCI     1,SCHF42                                                 F0B12720
       BCI     1,SCHH43                                                 F0B12730
 TBM7  BCI     1, CAD00                                                 F0B12740
       BCI     1, PDX34                                                 F0B12750
       BCI     1, PDC37                                                 F0B12760
 TBM74 BCI     1, PXD54                                                 F0B12770
 MSE   BCI     1, MSE60                                                 F0B12780
       BCI     1, LGL63                                                 F0B12790
       BCI     1, BSF64                                                 F0B12800
       BCI     1, LGR65                                                 F0B12810
       BCI     1, RUN72                                                *F0B12820
       BCI     1, RQL73                                                 F0B12830
       BCI     1, AXC74                                                 F0B12840
 TBE   BES     0                                                        F0B12850
 RESTO BCI   1,1                                                        F0B12860
BS2R   MZE     2                                                    (22)F0B12870
BS1R   MZE     1,,0                                                     F0B12880
 PCH6  CLA     BOTTOM-7      RESTORE LOCATION 0                     (25)F0B12881
       STO     0                                                    (25)F0B12882
       TRA     START+11                                             (25)F0B12883
       BSS     27            PATCH SPACE                            (25)F0B12885
END    BES     SIZE                                                     F0B12890
       DUP     1,17                                                     F0B12900
       PZE                                                              F0B12910
 LIMIT PZE                                                              F0B12920
       BSS     0           *** PATCH AREA ***                          $F0B12921
 PCH1  AXT     3,1            WRITE ERROR MESSAGE                      $F0B12922
       TSX     (TAPE),4                                                $F0B12923
       PZE     ERR+3,1,(WDNP)                                          $F0B12924
       PZE     ,,OUTTAP                                                $F0B12925
       TIX     *-3,1,1                                                 $F0B12926
       TRA     FERR+1                                               (22)F0B12927
 PCH2  AXT     6,1            WRITE OUT PANEL                          $F0B12928
       TSX     (TAPE),4                                                $F0B12929
       PZE     DSU+6,1,(WDNC)                                          $F0B1292A
       PZE     ,,OUTTAP                                                $F0B1292B
       TIX     *-3,1,1                                                 $F0B1292C
       TRA     WRPAN+1            TO STORE.                            $F0B1292D
       REM                                                              F0B12930
PCH3   SXD     LIMIT-17,4         SAVE ALL POSSIBLE IR*S               $F0B12931
       SXD     LIMIT-16,3         IN SEQUENCE                          $F0B12932
       SXD     LIMIT-15,5         X1,X2,X4,X3,X5,X6,X7.                $F0B12933
       SXD     LIMIT-14,6         .                                    $F0B12934
       SXD     LIMIT-13,7         .                                    $F0B12935
       AXT     0,3                LOAD IR*S TO                         $F0B12936
       AXT     7,1                TEST TAG MODE WE ARE IN              $F0B12937
       SXD     ICV4,3             .                                    $F0B12938
       TRA     PCH6          GO TO RESTORE LOC. 0                   (25)F0B12939
PCH4   SXA     ICV3,1             ... SET BUFFER POINTER.              $F0B1293B
       AXT     6,4                SET CAPACITY AND                     $F0B1293C
       TIX     ICV1,2,1           CONTINUE ON NEW BUFFER.              $F0B1293D
       AXT     PDC,2              FOR COMPLEMENT                       $F0B1293E
       SXD     ICV2,2             ALTER INSTRUCTION                    $F0B1293F
       TXH     ICV,1,0            AND PROCEED AS ALWAYS.               $F0B1293G
       TRA     ICV3+3             GO AND MATCH ORIGINAL CREATION.      $F0B1293H
PCH5   PZE     BUF2+20,4          BUFFER POINTERS                      $F0B1293I
       PZE     BUF1+20,4          .                                    $F0B1293J
       PZE     BUF3+20,4          .                                    $F0B1293K
       PZE     BUF+20,4                                                $F0B1293L
       PZE                   PATCH SPACE                            (22)F0B1293M
       PZE                                                          (22)F0B1293N
IOBOT  IORT    BOTTOM,,50                                           (22)F0B1293O
L(5)   PZE     5                                                    (22)F0B1293P
       BSS     BOTIOP-*           PATCH SPACE                          $F0B1293Q
 PDC   SYN     BOTIOP+64                                               $F0B1293R
 BUF2  SYN     ORGDP+1                                                  F0B12940
 BUF1  EQU     BUF2+20                                                  F0B12950
  BUF3 EQU     BUF1+20                                                  F0B12960
 BUF   EQU     DUMP1                                                    F0B12970
       END     -1                                                       F0B12980
« December 2024 »
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: