1 C00   20:09 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,2                                                                *H01
       2                     1.005           PCC                                                        *H00
       3                     1.010  CATALOG  EQU      C'0701'                                           *H00
       4                     1.020  VERSION  EQU      C'H02'                                            *H02
       5                     1.030  TITLE    EQU      S:PT('TELEFILE DEVICE DUMP 960-',;                *H00
       6                     1.040                    CATALOG,'-',VERSION)                              *H00
       7                     1.050           SPACE                                                      *H00
       8                   258.000  +258                                                                *H01
       9                   258.010           CI,R2    'T'               LOOK FOR TCPV OPTION            *H01
      10                   258.020           BE       TCPVRTN                                           *H01
      11                   258.030           SPACE                                                      *H01
      12                   300.000  +300,300                                                            *H01
      13                   300.010           BNE      TCPVRTN                                           *H01
      14                   305.000  +305                                                                *H01
      15                   305.005  TCPVRTN  LW,R2    WORK                                              *H01
      16                   305.010           CW,R2    ='TCPV'           LOOK FOR NEW HEADER             *H01
      17                   305.020           BNE      GPARAM             FORMAT FLAG                    *H01
      18                   305.030           SPACE                                                      *H01
      19                   305.040           MTW,1    TCPVFLAG                                          *H01
      20                   305.050           B        NR1                                               *H01
      21                   305.060           SPACE                                                      *H01
      22                   319.000  +319                                                                *H02
      23                   319.010           CI,R2    X'FC4D7'          CHECK FOR DP                    *H02
      24                   319.020           BE       SETDC                                             *H02
      25                  1223.000  +1223                                                               *H01
      26                  1223.010           STW,R1   TCPVFLAG          CLEAR NEW HEADER FORMAT FLAG    *H01
      27                  1317.000  +1317,1318                                                          *H00
      28                  1317.010  INC81    EQU      %                                                 *H00
      29                  1317.020  INC82    EQU      %                                                 *H00
      30                  1317.030  INC83    EQU      %                                                 *H00
      31                  1332.000  +1332,1336                                                          *H00
      32                  1332.010           CW,R1    M3281+1           LOOK FOR 3281                   *H00
      33                  1332.020           BE       INC81X                                            *H00
      34                  1332.030           SPACE                                                      *H00
      35                  1332.040           CW,R1    M3282+1           LOOK FOR 3282                   *H00
      36                  1332.050           BE       INC82X                                            *H00
      37                  1332.060           SPACE                                                      *H00
      38                  1332.070           CW,R1    M3283+1           LOOK FOR 3283                   *H00
      39                  1332.080           BE       INC83X                                            *H00
      40                  1350.000  +1350,1350                                                          *H00
      41                  1350.010  INC83X   EQU      %                                                 *H00
      42                  1357.000  +1357,1357                                                          *H00
      43                  1357.010  INC81X   EQU      %                                                 *H00
      44                  1357.020  INC82X   EQU      %                                                 *H00
      45                  2187.000  +2187,2188                                                          *H01
      46                  2187.010           LB,R5    0,X1              GET ALT TRACK INFORMATION       *H01
      47                  2187.020           SPACE                                                      *H01
      48                  2187.030           MTW,0    TCPVFLAG          SKIP IF NEW ALT TRACK           *H01
      49                  2187.040           BNEZ     LDFL0              FORMAT IN USE                  *H01
      50                  2187.050           SPACE                                                      *H01
      51                  2187.060           AND,R5   MM5               CLEAR ALT CYLINDER              *H01
      52                  2196.000  +2196                                                               *H01
      53                  2196.010           B        LDFL1                                             *H01
      54                  2198.000  +2198,2198                                                          *H01
      55                  2198.010  LDFL0    SCS,R5   -8                MOVE 11-BIT CYLINDER            *H01
      56                  2198.020           SLD,R4   3                  AND 5-BIT TRACK                *H01
      57                  2198.030           SPACE                                                      *H01
      58                  2198.040           SLS,R5   -3                TO CREATE PROPER                *H01
      59                  2198.050           SLD,R4   16                 4-BYTE SEEK                    *H01
      60                  2198.060           SPACE                                                      *H01
      61                  2198.070  LDFL1    STW,R4   *R2               SAVE ALTERNATE SEEK             *H01
      62                  2534.000  +2534,2536                                                          *H01
      63                  2534.010  MOD800   GEN,8,24 X'40',0           NRZI                            *H01
      64                  2534.020  MOD1600  GEN,8,24 X'80',0           PE                              *H01
      65                  2534.030  MOD6250  GEN,8,24 X'C0',0           GCR                             *H01
      66                  2624.000  +2624,2627                                                          *H00
      67                  2624.010  M3281    DATA     0,(545**16)+(29**8),16*1024,0,1**8,1024,INC81     *H00
      68                  2624.020           DATA     0,X'0F',X'10',1**8                                *H00
      69                  2624.030  M3282    DATA     0,(1091**16)+(29**8),16*1024,0,1**8,1024,INC82    *H00
      70                  2624.040           DATA     0,X'0F',X'10',1**8                                *H00
      71                  2624.050  M3283    DATA     0,(809**16)+(29**8),16*1024,0,1**8,1024,INC83     *H00
      72                  2624.060           DATA     0,X'0F',X'10',1**8                                *H00
      73                  2677.000  +2677                                                               *H01
      74                  2677.010  TCPVFLAG DATA     0                 FLAG FOR NEW HEADER FORMAT      *H01
      75                  2696.000  +2696,2697                                                          *H00
      76                  2696.010  M3281MSK DATA     '3281'            STC 8350 WINCHESTER             *H00
      77                  2696.020  M3282MSK DATA     '3282'            STC 8775 WINCHESTER             *H00
      78                  2696.030  M3283MSK DATA     '3283'            T302/306 REMOVABLE MEDIA        *H00
      79                  2714.000  +2714,2715                                                          *H00
      80                  2714.010           DATA     M3281                                             *H00
      81                  2714.020           DATA     M3282                                             *H00
      82                  2714.030           DATA     M3283                                             *H00
      83                  2717.000  +2717,2717                                                          *H00
      84                  2717.010  MSGX1    TEXTC    TITLE                                             *H00
      85                  9999.999  +END
1 C00   20:09 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   20:09 JUN 20,'83    DEVICE DUMP PROGRAM (DEVDMP) VERSION-H02                              PAGE    3
A       1*                                    PCC                                                        *H00
        2*        TEXT               CATALOG  EQU      C'0701'                                           *H00
        3*        TEXT               VERSION  EQU      C'H02'                                            *H02
        4*                           TITLE    EQU      S:PT('TELEFILE DEVICE DUMP 960-',;                *H00
        5*        TEXT                                 CATALOG,'-',VERSION)                              *H00

        3                                     SYSTEM   SIG5P

        5                            *        SETBIT   LOCATION,BIT,BIT           BIT SET
        6                            *        OFFBIT   LOCATION,BIT,BIT           BIT RESET
        7                            *        FLIPBIT  LOCATION,BIT,BIT           BIT INVERT
        8                            *        TESTBIT  LOCATION,DESTINATION,BIT   BIT SENSE
        9                            *
       10                            *                 WHERE: LOCATION IS ADDRESS OF WORD
       11                            *
       12                            *                        DESTINATION IS BRANCH ADDRESS (IF ANY
       13                            *                        SPECIFIED BIT IS SET FOR TESTBIT)
       14                            *
       15                            *                        BIT IS THE BIT SPECIFIER IN THE RANGE
       16                            *                        0-31.  A LIST OF BITS IN ANY ORDER IS
       17                            *                        ACCEPTABLE.

       19         00000350           SETBIT   CNAME    848,1,1,73
       20         00000350           OFFBIT   CNAME    848,1,1,75
       21                        *S* FLIPBIT  CNAME    848,1,1,72
       22         00000694           TESTBIT  CNAME    1684,2,2,49
       23                                     PROC
       24                                     LOCAL    B,I,C,D
       25                            LF       EQU      %
       26                            B        SET      0
       27                            I        DO       NUM(AF)-NAME(3)
       28                            C        SET      B|(1**(31-AF(I+NAME(3))))
       29                            B        SET      C
       30                                     FIN
       31                                     DO       NAME(4)=75
       32                            D        SET      ~C
       33                                     ELSE
       34                            D        SET      C
       35                                     FIN
       36                                     DO         NAME(1)=848
       37                                     LW,R0      AF(1)
       38                                     GEN,8,4,20 NAME(4),CF(2),L(D&X'FFFFFFFF')
       39                                     GEN,12,20  NAME(1)|CF(2),AF(NAME(2))
       40                                     ELSE
       41                                     DO       (D&X'FFFF')=0
       42                                     LH,R0    AF(1)
       43                                     CI,R0    D**-16
       44                                     ELSE
       45                                     LW,R0    AF(1)
       46                                     DO       (D&X'FFF00000')=0
       47                                     CI,R0    D&X'FFFFF'
       48                                     ELSE
       49                                     CW,R0    L(D&X'FFFFFFFF')
       50                                     FIN
       51                                     FIN
       52                                     BANZ     AF(2)
       53                                     FIN
       54                                     PEND

       56                            *        GENERATE I/O COMMAND DOUBLEWORDS

       58         00000000           IOPCW    CNAME                      ORDER,WA(BUFF),FLAGS,COUNT
       59                                     PROC
       60                                     BOUND    8
       61                            LF       GEN,8,24,8,24  AF(1),BA(AF(2)),AF(3),AF(4)
       62                                     PEND

       64         00000004           IOREQ    COM,8,4,20 AF(1),AF(2),AF(3)
1 C00   20:09 JUN 20,'83    DEVICE DUMP PROGRAM (DEVDMP) VERSION-H02                              PAGE    4
A      66         00000000           R0       EQU      0                 GENERAL REGISTERS
       67         00000001           R1       EQU      1
       68         00000002           R2       EQU      2
       69         00000003           R3       EQU      3
       70         00000004           R4       EQU      4
       71         00000005           R5       EQU      5
       72         00000006           R6       EQU      6
       73         00000007           R7       EQU      7
       74         00000008           R8       EQU      8
       75         00000009           R9       EQU      9
       76         0000000A           R10      EQU      10
       77         0000000B           R11      EQU      11
       78         0000000C           R12      EQU      12
       79         0000000D           R13      EQU      13
       80         0000000E           R14      EQU      14
       81         0000000F           R15      EQU      15

       83         00000000           BSR      EQU      0                 I/O ORDERS FOR TAPE
       84         00000001           RD1      EQU      1
       85         00000002           RD2      EQU      2
       86         00000003           WRT1     EQU      3
       87         00000004           WRT2     EQU      4
       88         00000005           WTE      EQU      5
       89         00000006           SET0     EQU      6
       90         00000007           REW      EQU      7
       91         00000008           ERG      EQU      8
       92         00000009           FSF      EQU      9
       93         0000000A           WTM      EQU      10
       94         0000000B           FSR      EQU      11

       96         00000000           CHK1     EQU      0                 I/O ORDERS FOR DISK
       97         00000007           CHK2     EQU      7

       99         00000004           T        EQU      4                 TAPE REQUEST
      100         00000005           D        EQU      5                 DISK REQUEST

      102         00000001           X1       EQU      1                 INDEX REGISTERS
      103         00000002           X2       EQU      2
      104         00000003           X3       EQU      3
      105         00000004           X4       EQU      4
      106         00000005           X5       EQU      5
      107         00000006           X6       EQU      6
      108         00000007           X7       EQU      7

      110         00001000           BLOCKSIZ EQU      4096
      111         00000004           NBLOX EQU (BA(S:UFV(ENDLAB))-BA(S:UFV(LOAD))+BLOCKSIZ-1)/BLOCKSIZ
      112         00004000           BUFFSIZE EQU      16*1024
      113         0000000A           NTRIES   EQU      10                # RETRIES FOR EACH ERR COND
      114         00000032           STCKSIZE EQU      50                SIZE OF DIRECTORY STACK

      116         00000080           DEF:TAPE EQU      X'0080'           DEFAULT TAPE UNIT
      117         000000F0           DEF:DISK EQU      X'00F0'           DEFAULT DISK UNIT
      118         00000001           DEF:TYPE EQU      X'0001'           DEFAULT CONSOLE

      120         00000019           DEF:CYLS EQU      25                PROGRESS REPORT INCREMENT
1 C00   20:09 JUN 20,'83    DEVICE DUMP PROGRAM (DEVDMP) VERSION-H02                              PAGE    5
A     122                            ************************************************************************
      123                            *                                                                      *
      124                            *           STATES OF THE PROGRAM CONTROL WORD (INDICATE)              *
      125                            *                                                                      *
      126                            *        BIT  0-3 JOB SWITCH, 0=>SAVE, 1=>RESTORE, 2=>COMPARE          *
      127                            *                                                                      *
      128                            *               4 TAPE READ TO BUFFER 1 IN PROGRESS                    *
      129                            *               5 TAPE READ TO BUFFER 2 IN PROGRESS                    *
      130                            *               6 TAPE WRITE FROM BUFFER 1 IN PROGRESS                 *
      131                            *               7 TAPE WRITE FROM BUFFER 2 IN PROGRESS                 *
      132                            *                                                                      *
      133                            *               8 DISC OPERATION USING BUFFER 1                        *
      134                            *               9 DISC OPERATION USING BUFFER 2                        *
      135                            *                                                                      *
      136                            *              16 ACCEPT NEW ROTATING MEMORY ADDRESS (RESTORE/COMPARE) *
      137                            *              17 CURRENT RESTORE/COMPARE COMPLETED (EOF)              *
      138                            *              18 TAPE HAS NO DIRECTORY FILE (RESTORE/COMPARE)         *
      139                            *                                                                      *
      140                            *              20 CURRENT SAVE HAS COMPLETED                           *
      141                            *              21 FORCE OVERLAPPED I/O                                 *
      142                            *              22 INHIBIT OVERLAP                                   *G01
      143                            *              23 CHECK WRITE IN PROGRESS                              *
      144                            *                                                                      *
      145                            *              24 EXECUTING I/O CAL1,6 (VIA SET:0)                     *
      146                            *              25 DISC/TAPE I/O OVERLAP IS POSSIBLE                    *
      147                            *                                                                      *
      148                            *              31 JOB COMMAND ENTERED (SAVE, RESTORE, COMPARE)         *
      149                            *                                                                      *
      150                            ************************************************************************
1 C00   20:09 JUN 20,'83    DEVICE DUMP PROGRAM (DEVDMP) VERSION-H02                              PAGE    6
A     152   01 00040                          ORG      X'40'
            01 00040
      153         01 00040           LOAD     EQU      %
      154         00000008                    DO       X'47'-ABSVAL(%)+1 BASIC TRAP CELLS
      155   01 00040    0F00090A              XPSD,0   ERRORPSD
      156                                     FIN
            01 00041    0F00090A
            01 00042    0F00090A
            01 00043    0F00090A
            01 00044    0F00090A
            01 00045    0F00090A
            01 00046    0F00090A
            01 00047    0F00090A
      157   01 00048    0F400458              XPSD,4   C1OLDPSD          CAL1
      158   01 00049    0F40045C              XPSD,4   C2OLDPSD          CAL2
      159         0000000B                    DO       X'54'-ABSVAL(%)+1
      160   01 0004A    0F00090A              XPSD,0   ERRORPSD
      161                                     FIN
            01 0004B    0F00090A
            01 0004C    0F00090A
            01 0004D    0F00090A
            01 0004E    0F00090A
            01 0004F    0F00090A
            01 00050    0F00090A
            01 00051    0F00090A
            01 00052    0F00090A
            01 00053    0F00090A
            01 00054    0F00090A
      162   01 00055    33200B56              MTW,2    TIME              COUNTER 4 PULSE
      163         00000006                    DO       X'5B'-ABSVAL(%)+1
      164   01 00056    0F00090A              XPSD,0   ERRORPSD
      165                                     FIN
            01 00057    0F00090A
            01 00058    0F00090A
            01 00059    0F00090A
            01 0005A    0F00090A
            01 0005B    0F00090A
      166   01 0005C    0F000906              XPSD,0   IOINTOLD          I/O INTERRUPT
      167         00000003                    DO       X'5F'-ABSVAL(%)+1
      168   01 0005D    0F00090A              XPSD,0   ERRORPSD
      169                                     FIN
            01 0005E    0F00090A
            01 0005F    0F00090A
1 C00   20:09 JUN 20,'83    DEVICE DUMP PROGRAM (DEVDMP) VERSION-H02                              PAGE    7
A     171   01 00200                          ORG      X'200'
            01 00200
      172         01 00200           START    EQU      %
      173   01 00200    22100000 A            LI,R1    0                 CLEAR THE COUNTER
      174   01 00201    35100B56              STW,R1   TIME

      176   01 00202    32100663              LW,R1    RGO               ALLOW RESET AND RUN
      177   01 00203    35100026 A            STW,R1   X'26'

      179   01 00204    CD000B63              TIO,0    *TYPEDEV          CHECK FOR VALID CONSOLE
      180   01 00205    68C00209              BCR,8+4  %+4               SKIP IF VALID ADDRESS
      181   01 00206    2E000000 A            WAIT                        BAD, GET NEW ADDRESS (R0)
      182   01 00207    35000B63              STW,R0   TYPEDEV           STORE NEW ADDR
      183   01 00208    68000204              B        %-4               VERIFY NEW ADDR

      185   01 00209    6AF0054B              BAL,R15  PRESET            SET DEFAULTS AND OPTIONS

      187   01 0020A    22602D90              LI,R6    BA(NEWLINE)       SPACE BEFORE GREETING
      188   01 0020B    6AF005C7              BAL,R15  COMTYPE

      190   01 0020C    22602E58              LI,R6    BA(MSGX1)         TYPE GREETING MESSAGE
      191   01 0020D    6AF005C7              BAL,R15  COMTYPE

      193   01 0020E    22602FB0              LI,R6    BA(MSGDATE)       GET THE DATE FROM
      194   01 0020F    6AF00815              BAL,R15  MSGOPR             THE OPERATOR

      196   01 00210    12200A4A              LD,R2    INPUT             GET DATE KEY-IN AND
      197   01 00211    15200A6C              STD,R2   SAVEDATE          STORE WITHOUT CHECKING

      199   01 00212    6AF0054B     BEGIN    BAL,R15  PRESET            SET DEFAULTS AND OPTIONS

      201   01 00213    22100000 A   SCAN     LI,X1    0                 RESET INPUT POINTER
      202   01 00214    22602D98              LI,R6    BA(PROMPT0)       PROMPT AND ACCEPT
      203   01 00215    6AF00815              BAL,R15  MSGOPR             COMMAND INPUT (CONSOLE)

      205   01 00216    6AF00255     SCAN1    BAL,R15  BLNKWRK              CLEAR WORK AREA

      207   01 00217    22400000 A            LI,X4    0                 RESET OUTPUT POINTER
      208   01 00218    72220A4A     SCAN2    LB,R2    INPUT,X1          GET NEXT BYTE (INPUT)

      210   01 00219    2120006B A            CI,R2    ','               TEST FOR DELIMITER
      211   01 0021A    68300223              BE       SCAN3
      212   01 0021B    21200015 A            CI,R2    X'15'             TEST FOR TERMINATOR
      213   01 0021C    68300223              BE       SCAN3
      214   01 0021D    21200040 A            CI,R2    X'40'             TEST FOR TERMINATOR
      215   01 0021E    68300223              BE       SCAN3

      217   01 0021F    75280982              STB,R2   WORK,X4           SAVE OUTPUT BYTE
      218   01 00220    20400001 A            AI,X4    1                 INCREMENT THE INDICES
      219   01 00221    20100001 A            AI,X1    1
      220   01 00222    68000218              B        SCAN2             CONTINUE THE SCAN

      222   01 00223    21400000 A   SCAN3    CI,X4    0                 IGNORE NULL FIELDS
      223   01 00224    69300229              BNE      FIND
      224   01 00225    21100050 A            CI,X1    80
      225   01 00226    68100213              BGE      SCAN              READ OVER IF NO MORE INPUT
      226   01 00227    20100001 A            AI,X1    1                  ELSE SKIP NULL TERMINATOR
      227   01 00228    68000218              B        SCAN2               AND CONTINUE THE SCAN
1 C00   20:09 JUN 20,'83    FUNCTION DECODER                                                      PAGE    8
A     229         01 00229           FIND     EQU      %
      230   01 00229    35100B53              STW,X1   X1SAV             SAVE SCAN POINTER
      231   01 0022A    72200982              LB,R2    WORK              GET FIRST COMMAND BYTE

      233   01 0022B    212000C3 A            CI,R2    'C'               TEST FOR COMPARE
      234   01 0022C    68300265              BE       COMPRTN
      235   01 0022D    212000C4 A            CI,R2    'D'               TEST FOR DC OR DN
      236   01 0022E    68300282              BE       DDISCRIM
      237   01 0022F    212000D9 A            CI,R2    'R'               TEST FOR RESTORE
      238   01 00230    68300274              BE       RESTRTN
      239   01 00231    212000E7 A            CI,R2    'X'               TEST FOR NEW ADDRESS
      240   01 00232    6830027E              BE       NEWDCX
      241   01 00233    212000E8 A            CI,R2    'Y'               TEST FOR MISSING DIRECTORY
      242   01 00234    68300298              BE       SKIPDIR
      243   01 00235    212000D4 A            CI,R2    'M'               TEST FOR MT
      244   01 00236    68300302              BE       DECODETP
      245   01 00237    2120007B A            CI,R2    '#'               TEST FOR MODEL NUMBER
      246   01 00238    6830029C              BE       SETMODEL
      247   01 00239    212000D7 A            CI,R2    'P'               TEST FOR DIRECTORY PRINT
      248   01 0023A    6830030C              BE       PNTDIR
      249   01 0023B    212000C7 A            CI,R2    'G'               TEST FOR GROUP
      250   01 0023C    683002B0              BE       MARK%GRP
      251   01 0023D    212000E2 A            CI,R2    'S'               TEST FOR SAVE
      252   01 0023E    6830025B              BE       SAVERTN
      253   01 0023F    212000C6 A            CI,R2    'F'               TEST FOR FORCE
      254   01 00240    6830028A              BE       FORCE
      255   01 00241    212000C1 A            CI,R2    'A'               TEST FOR ABORT
      256   01 00242    68300212              BE       BEGIN
      257   01 00243    212000C9 A            CI,R2    'I'               LOOK FOR OVERLAP INHIBIT        *G01
      258   01 00244    68300291              BE       INHIBIT                                           *G01
        1*  01 00245    212000E3 A            CI,R2    'T'               LOOK FOR TCPV OPTION            *H01
        2*  01 00246    6830026F              BE       TCPVRTN                                           *H01

      259   01 00247    6800024E              B        GPARAM            INVALID COMMAND

      261         01 00248           NR1      EQU      %
      262   01 00248    32100B53              LW,X1    X1SAV             RESET SCAN POINTER
      263   01 00249    72020A4A              LB,R0    INPUT,X1          GET LAST BYTE
      264   01 0024A    2100006B A            CI,R0    ','               LOOK FOR COMMA
      265   01 0024B    69300331              BNE      END               NO - FINISHED WITH COMMAND
      266   01 0024C    20100001 A            AI,X1    1                 OK - CONTINUE SCANNING
      267   01 0024D    68000216              B        SCAN1

      269                            * NOTIFY THE OPERATOR OF AN IMPROPER PARAMETER
      270                            *
      271         01 0024E           GPARAM   EQU      %
      272   01 0024E    22602F3C              LI,R6    BA(MSGX9)         CANNOT DECODE PARAMETER
      273   01 0024F    6AF005C3              BAL,R15  COMTYPEX
      274   01 00250    22602607              LI,R6    BA(WORKT)+3       DISPLAY PARAMETER ITSELF
      275   01 00251    6AF005C7              BAL,R15  COMTYPE
      276   01 00252    22000004 A            LI,R0    4                 RESET TEXTC COUNT
      277   01 00253    35000981              STW,R0   WORKT
      278   01 00254    68000213              B        SCAN              READ NEXT COMMAND

      280                            * MOVE BLANKS TO THE WORK AREA
      281                            *
      282         01 00255           BLNKWRK  EQU      %
      283   01 00255    02200030 A            LCI      3
      284   01 00256    2A600A5E              LM,R6    BLANKS
      285   01 00257    2B600982              STM,R6   WORK+0
      286   01 00258    2B600985              STM,R6   WORK+3
      287   01 00259    2B600988              STM,R6   WORK+6
      288   01 0025A    E800000F A            B        *R15              RETURN
1 C00   20:09 JUN 20,'83    FUNCTION DECODER                                                      PAGE    9
A     290   01 0025B    32200982     SAVERTN  LW,R2    WORK              LOOK FOR
      291   01 0025C    31200CCB              CW,R2    ='SAVE'            'SAVE' EXPLICITLY
      292   01 0025D    6930024E              BNE      GPARAM

      294   01 0025E    32000B54              OFFBIT   INDICATE,1,2,3    SAVE AND JOB-ENTERED
            01 0025F    4B000CCC
            01 00260    35000B54
      295   01 00261    32000B54              SETBIT   INDICATE,31
            01 00262    49000CCD
            01 00263    35000B54
      296   01 00264    68000248              B        NR1

      298   01 00265    32200982     COMPRTN  LW,R2    WORK              LOOK FOR
      299   01 00266    31200CCE              CW,R2    ='COMP'            'COMP' EXPLICITLY
        1*  01 00267    6930026F              BNE      TCPVRTN                                           *H01

      302   01 00268    32000B54              OFFBIT   INDICATE,1,2,3    COMP AND JOB-ENTERED
            01 00269    4B000CCC
            01 0026A    35000B54
      303   01 0026B    32000B54              SETBIT   INDICATE,2,31
            01 0026C    49000CCF
            01 0026D    35000B54
      304   01 0026E    68000248              B        NR1

        1*  01 0026F    32200982     TCPVRTN  LW,R2    WORK                                              *H01
        2*  01 00270    31200CD0              CW,R2    ='TCPV'           LOOK FOR NEW HEADER             *H01
        3*  01 00271    6930024E              BNE      GPARAM             FORMAT FLAG                    *H01

        5*  01 00272    33100B74              MTW,1    TCPVFLAG                                          *H01
        6*  01 00273    68000248              B        NR1                                               *H01

      306   01 00274    32200982     RESTRTN  LW,R2    WORK              LOOK FOR
      307   01 00275    31200CD1              CW,R2    ='REST'            'REST' EXPLICITLY
      308   01 00276    6930024E              BNE      GPARAM

      310   01 00277    32000B54              OFFBIT   INDICATE,1,2,3    REST AND JOB-ENTERED
            01 00278    4B000CCC
            01 00279    35000B54
      311   01 0027A    32000B54              SETBIT   INDICATE,3,31
            01 0027B    49000CD2
            01 0027C    35000B54
      312   01 0027D    68000248              B        NR1

      314   01 0027E    32000B54     NEWDCX   SETBIT   INDICATE,16       ACCEPT NEW UNIT ADDRESS
            01 0027F    49000CD3
            01 00280    35000B54
      315   01 00281    68000248              B        NR1

      317   01 00282    52200982     DDISCRIM LH,R2    WORK              GET FIRST TWO BYTES
      318   01 00283    212FC4C3 A            CI,R2    X'FC4C3'          CHECK FOR DC
      319   01 00284    683002C0              BE       SETDC
        1*  01 00285    212FC4D7 A            CI,R2    X'FC4D7'          CHECK FOR DP                    *H02
        2*  01 00286    683002C0              BE       SETDC                                             *H02
      320   01 00287    212FC4D5 A            CI,R2    X'FC4D5'          CHECK FOR DN
      321   01 00288    683002EF              BE       SETDN
      322   01 00289    6800024E              B        GPARAM            INVALID COMMAND

      324   01 0028A    32000B54     FORCE    SETBIT   INDICATE,21       SET FORCED-OVERLAP FLAG
            01 0028B    49000CD4
            01 0028C    35000B54
      325   01 0028D    32000B54              OFFBIT   INDICATE,22       OFF INHIBIT OVERLAP FLAG        *G01
            01 0028E    4B000CD5
            01 0028F    35000B54
      326   01 00290    68000248              B        NR1                                               *G01

      328   01 00291    32000B54     INHIBIT  SETBIT   INDICATE,22       SET INHIBIT OVERLAP FLAG        *G01
            01 00292    49000CD6
            01 00293    35000B54
      329   01 00294    32000B54              OFFBIT   INDICATE,21       OFF FORCED OVERLAP FLAG         *G01
            01 00295    4B000CD7
            01 00296    35000B54
      330   01 00297    68000248              B        NR1

      332   01 00298    32000B54     SKIPDIR  SETBIT   INDICATE,18       TAPE HAS NO DIRECTORY
            01 00299    49000CD8
            01 0029A    35000B54
      333   01 0029B    68000248              B        NR1
1 C00   20:09 JUN 20,'83    FUNCTION DECODER                                                      PAGE   10
A     335         01 0029C           SETMODEL EQU      %                 FIND MODEL NUMBER
      336   01 0029C    12000982              LD,R0    WORK              ISOLATE LAST FOUR BYTES
      337   01 0029D    25000108 A            SLD,R0   8                 OF THIS COMMAND (MASK THE #)

      339   01 0029E    2220000F A            LI,X2    MOD:END-MOD:BEG   SCAN THE MODEL TABLE
      340   01 0029F    31040B77              CW,R0    MOD:BEG,X2
      341   01 002A0    683002A5              BE       MOD:FND
      342   01 002A1    6420029F              BDR,X2   %-2

      344   01 002A2    22000005 A            LI,R0    5
      345   01 002A3    35000981              STW,R0   WORKT             SET TO DISPLAY PARAMETER
      346   01 002A4    6800024E              B        GPARAM            INVALID MODEL NUMBER

      348         01 002A5           MOD:FND  EQU      %
      349   01 002A5    35000B6B              STW,R0   MODEL             SAVE MODEL NUMBER
      350   01 002A6    68000248              B        NR1               GET NEXT COMMAND

      352         01 002A7           GETMODEL EQU      %
      353   01 002A7    2230000F A            LI,X3    MOD:END-MOD:BEG   SCAN MODEL TABLE
      354   01 002A8    31260B77              CW,R2    MOD:BEG,X3
      355   01 002A9    683002AE              BE       GETMOD0
      356   01 002AA    643002A8              BDR,X3   %-2

      358   01 002AB    2260320C              LI,R6    BA(MSG::002)      NO MATCH FOUND (ABSURD)
      359   01 002AC    6AF005C7              BAL,R15  COMTYPE
      360   01 002AD    68000412              B        USE1              ABORT WITHOUT TAPE FINALIZE

      362         01 002AE           GETMOD0  EQU      %
      363   01 002AE    32260B86              LW,R2    MOD:MSK,X3        FETCH POINTER TO MODEL INFO
      364   01 002AF    E800000F A            B        *R15

      366         01 002B0           MARK%GRP EQU      %
      367   01 002B0    3200098C              LW,R0    JOBSTACK          SKIP IF NO DEVICE
      368   01 002B1    31000990              CW,R0    PJOBSTK            OR MODEL NUMBERS IN STACK
      369   01 002B2    683002BA              BE       MGE0

      371   01 002B3    B200098C              LW,R0    *JOBSTACK         SKIP IF NO DEVICE
      372   01 002B4    691002BA              BLZ      MGE1               ADDRESSES IN THIS GROUP

      374   01 002B5    22000000 A            LI,R0    0                 SKIP IF NO MODEL
      375   01 002B6    46000B6B              XW,R0    MODEL              NUMBER IN THIS GROUP
      376   01 002B7    683002BD              BEZ      MGE2

      378   01 002B8    0900098C              PSW,R0   JOBSTACK          ELSE PUSH MODEL NUMBER
      379   01 002B9    68000248              B        NR1

      381         01 002BA           MGE0     EQU      %                 NULL STACK
      382         01 002BA           MGE1     EQU      %                 NO DEVICE IN GROUP
      383   01 002BA    22603274              LI,R6    BA(NODMSG)
      384   01 002BB    6AF005C7              BAL,R15  COMTYPE
      385   01 002BC    68000213              B        SCAN

      387         01 002BD           MGE2     EQU      %                 NO MODEL NUMBER IN GROUP
      388   01 002BD    2260324C              LI,R6    BA(NOMODMSG)
      389   01 002BE    6AF005C7              BAL,R15  COMTYPE
      390   01 002BF    68000213              B        SCAN
1 C00   20:09 JUN 20,'83    FUNCTION DECODER                                                      PAGE   11
A     392         01 002C0           SETDC    EQU      %
      393   01 002C0    2260260A              LI,R6    BA(WORK)+2        SET PTR TO ADDR
      394   01 002C1    22100004 A            LI,R1    4
      395   01 002C2    6AF00861              BAL,R15  CPTOHEX           CONVERT TO HEX
      396   01 002C3    3590000D A            STW,R9   R13               SAVE FIRST ADDRESS

      398   01 002C4    CD000009 A            TIO,0    *R9               DONT PUT THIS DISC IN STACK
      399   01 002C5    68C002C8              BCR,8+4  %+3               SKIP IF UNIT IS READY

      401   01 002C6    6AF002E1              BAL,R15  A1GX              ELSE WARNING TO OPERATOR
      402   01 002C7    680002C9              B        A1                AND IGNORE THIS UNIT

      404   01 002C8    0990098C              PSW,R9   JOBSTACK          SAVE DISC ADDR

      406   01 002C9    728C0000 A   A1       LB,R8    0,R6
      407   01 002CA    21800040 A            CI,R8    C' '
      408   01 002CB    68300248              BE       NR1

      410   01 002CC    22100004 A   CX       LI,R1    4
      411   01 002CD    6AF00861              BAL,R15  CPTOHEX           CONVERT TO HEX

      413   01 002CE    3190000D A            CW,R9    R13               NEXT UNIT MUST BE .GT.
      414   01 002CF    691002DE              BL       GP1                PREVIOUS UNIT OR ERROR

      416   01 002D0    32600009 A            LW,R6    R9                RANGE OF ADDRESSES MUST BE .LE.
      417   01 002D1    3860000D A            SW,R6    R13                X'F' OR ERROR
      418   01 002D2    2160000F A            CI,R6    15
      419   01 002D3    692002DE              BG       GP1

      421   01 002D4    46D00009 A            XW,R13   R9                PUT FIRST ADDRESS IN R9

      423   01 002D5    20900001 A   GX       AI,R9    1                 POINT TO NEXT UNIT
      424   01 002D6    3190000D A            CW,R9    R13                AND COMPARE WITH LAST
      425   01 002D7    69200248              BG       NR1

      427   01 002D8    CD000009 A            TIO,0    *R9               DONT PUSH UNIT IF
      428   01 002D9    68C002DC              BCR,8+4  %+3                NOT AVAILABLE

      430   01 002DA    6AF002E1              BAL,R15  A1GX              ISSUE ERROR MESSAGE
      431   01 002DB    680002D5              B        GX

      433   01 002DC    0990098C              PSW,R9   JOBSTACK          PUSH UNIT ADDRESS
      434   01 002DD    680002D5              B        GX

      436   01 002DE    32100B6C     GP1      LW,R1    GP1DC             PLACE 'DC  ' IN MSG
      437   01 002DF    35100982              STW,R1   WORK              FOR TYPING
      438   01 002E0    6800024E              B        GPARAM

      440   01 002E1    22E02EF0     A1GX     LI,R14   BA(MSGX7)         DISC NOT AVAILABLE
      441   01 002E2    12000982     A1GY     LD,R0    WORK              (SAVE COMMAND BUFFER)
      442   01 002E3    02200000 A            LCI      0
      443   01 002E4    0B000994              PSM,R0   SUBSTACK

      445   01 002E5    3260000E A            LW,R6    R14               GET BA(MESSAGE)
      446   01 002E6    6AF005C3              BAL,R15  COMTYPEX          DISC UNIT UNAVAILABLE
      447   01 002E7    6AF0088B              BAL,R15  PRTHEX
      448   01 002E8    35B00982              STW,R11  WORK
      449   01 002E9    22602607              LI,R6    BA(WORKT)+3
      450   01 002EA    6AF005C7              BAL,R15  COMTYPE

      452   01 002EB    02200000 A            LCI      0
      453   01 002EC    0A000994              PLM,R0   SUBSTACK
      454   01 002ED    15000982              STD,R0   WORK              RESTORE COMMAND
      455   01 002EE    E800000F A            B        *R15
1 C00   20:09 JUN 20,'83    FUNCTION DECODER                                                      PAGE   12
A     457         01 002EF           SETDN    EQU      %
      458   01 002EF    2260260A              LI,R6    BA(WORK)+2
      459   01 002F0    22100002 A            LI,R1    2
      460   01 002F1    6AF00861              BAL,R15  CPTOHEX

      462   01 002F2    21900080 A            CI,R9    X'80'             CHECK FOR 800 BPI
      463   01 002F3    693002F6              BNE      DEV010

      465   01 002F4    22000475              LI,R0    DA(M800CW)
      466   01 002F5    680002FD              B        DEV015

      468   01 002F6    21900016 A   DEV010   CI,R9    X'16'             CHECK FOR 1600 BPI
      469   01 002F7    693002FA              BNE      DEV011
      470   01 002F8    22000476              LI,R0    DA(M1600CW)
      471   01 002F9    680002FD              B        DEV015

      473   01 002FA    21900062 A   DEV011   CI,R9    X'62'             CHECK FOR 6250 BPI
      474   01 002FB    693002FF              BNE      GP2

      476   01 002FC    22000477              LI,R0    DA(M6250CW)

      478   01 002FD    35000B73     DEV015   STW,R0   DENSAV            SAVE FOR MULT-REEL DUMPS
      479   01 002FE    68000248              B        NR1

      481   01 002FF    32100B6D     GP2      LW,R1    GP2DN             PLACE 'DN  ' IN MSG
      482   01 00300    35100982              STW,R1   WORK
      483   01 00301    6800024E              B        GPARAM            GO TYPE ERROR MSG

      485         01 00302           DECODETP EQU      %
      486   01 00302    2260260A              LI,R6    BA(WORK)+2
      487   01 00303    22100004 A            LI,R1    4
      488   01 00304    6AF00861              BAL,R15  CPTOHEX

      490   01 00305    CD000009 A            TIO,R0   *R9               TEST TAPE AVAILABILITY
      491   01 00306    68C0030A              BCR,8+4  %+4

      493   01 00307    22E02F08              LI,R14   BA(MSGX3)         TAPE NOT AVAILABLE
      494   01 00308    6AF002E2              BAL,R15  A1GY              (DISPLAY WITH ADDRESS)
      495   01 00309    68000213              B        SCAN

      497   01 0030A    35900B62              STW,R9   TAPEDEV
      498   01 0030B    68000248              B        NR1
1 C00   20:09 JUN 20,'83    FUNCTION DECODER                                                      PAGE   13
A     500         01 0030C           PNTDIR   EQU      %
      501   01 0030C    6AF005F7              BAL,R15  DIR%READ          READ DIRECTORY IN FROM TAPE
      502   01 0030D    22602F58              LI,R6    BA(DIRMSG1)       MSG ADDR
      503   01 0030E    6AF005C7              BAL,R15  COMTYPE           TYPE 'DIRECTORY OF CONTENTS'
      504   01 0030F    22602F70              LI,R6    BA(DIRMSG2)
      505   01 00310    6AF005C3              BAL,R15  COMTYPEX          TYPE 'TAPE CREATED--MM/DD/YY'
      506   01 00311    226029AF              LI,R6    BA(CNTDIR)+3      MSG ADDR
      507   01 00312    6AF005C7              BAL,R15  COMTYPE           TYPE DATE PORTION OF ABOVE MSG

      509   01 00313    12000992              LD,R0    PWRKSTK           RESET WORKING JOB STACK
      510   01 00314    1500098E              STD,R0   WRKJOBSK

      512   01 00315    22000000 A            LI,R0    0                 CLEAR MODEL NUMBER
      513   01 00316    35000B6B              STW,R0   MODEL

      515   01 00317    12000A6E              LD,R0    DIRSTACK          SAVE DIRECTORY STACK STATE
      516   01 00318    1500098C              STD,R0   JOBSTACK          AS THE JOBSTACK (DONT FLIP)

      518         01 00319           PNTDIR0  EQU      %
      519   01 00319    08000A6E              PLW,R0   DIRSTACK          PULL ITEM FROM DIRECTORY
      520   01 0031A    69200321              BCS,2    PNTDIR2           SKIP IF NULL STACK

      522   01 0031B    33000000 A            MTW,0    R0                TEST FOR MODEL NUMBER
      523   01 0031C    6920031F              BGZ      PNTDIR1            SKIP IF UNIT ADDRESS

      525   01 0031D    46000B6B              XW,R0    MODEL             SWAP WITH PREVIOUS MODEL
      526   01 0031E    68300319              BEZ      PNTDIR0            NUMBER AND SKIP IF NONE

      528         01 0031F           PNTDIR1  EQU      %
      529   01 0031F    0900098E              PSW,R0   WRKJOBSK          PUSH ITEM IN THE WORK STACK
      530   01 00320    68000319              B        PNTDIR0            CONTINUE REVERSAL

      532         01 00321           PNTDIR2  EQU      %
      533   01 00321    22000000 A            LI,R0    0                 CLEAR MODEL AND
      534   01 00322    46000B6B              XW,R0    MODEL              PUSH PREVIOUS MODEL
      535   01 00323    0900098E              PSW,R0   WRKJOBSK

      537   01 00324    0890098E     PWRD     PLW,R9   WRKJOBSK          PULL ITEM FROM WORK STACK
      538   01 00325    69200248              BCS,2    NR1                SKIP IF NULL STACK

      540   01 00326    32900009 A            LW,R9    R9                TEST FOR UNIT ADDRESS
      541   01 00327    6910032D              BLZ      PRT%MOD            AND SKIP IF MODEL NUMBER

      543   01 00328    6AF0088B              BAL,R15  PRTHEX            CONVERT UNIT ADDRESS
      544   01 00329    35B00BEB              STW,R11  DIRMSG5+1
      545   01 0032A    22602FA8              LI,R6    BA(DIRMSG5)
      546   01 0032B    6AF005C7              BAL,R15  COMTYPE
      547   01 0032C    68000324              B        PWRD

      549   01 0032D    35900BE2     PRT%MOD  STW,R9   DIRMSG4+2         STORE MODEL NUMBER
      550   01 0032E    22602F80              LI,R6    BA(DIRMSG4)
      551   01 0032F    6AF005C7              BAL,R15  COMTYPE
      552   01 00330    68000324              B        PWRD
1 C00   20:09 JUN 20,'83    FUNCTION DECODER                                                      PAGE   14
A     554         01 00331           END      EQU      %
      555   01 00331    32000B54              LW,R0    INDICATE          CONTINUE READING
      556   01 00332    21000001 A            CI,R0    1                  IF NO JOB COMMAND
      557   01 00333    68400213              BAZ      SCAN                PRESENT (SAVE,COMP,REST)

      559   01 00334    3200098C              LW,R0    JOBSTACK          TEST FOR EMPTY JOBSTACK
      560   01 00335    31000990              CW,R0    PJOBSTK
      561   01 00336    6830033A              BE       SET03             AND PUSH DEFAULTS IF EMPTY

      563   01 00337    B210098C              LW,R1    *JOBSTACK         LOOK FOR MODEL NUMBER IN STACK
      564   01 00338    6920033C              BGZ      SET04              SKIP IF UNIT ADDRESS WAS LAST
      565   01 00339    68000344              B        JOBTAB              ELSE START PROCESSING

      567   01 0033A    32100B61     SET03    LW,R1    DISCDEV           SET DISC DEFAULT IN STACK
      568   01 0033B    0910098C              PSW,R1   JOBSTACK

      570   01 0033C    32000B6B     SET04    LW,R0    MODEL             GET LAST ENTERED MODEL
      571   01 0033D    69300343              BNEZ     SET02              NUMBER AND SKIP IF THERE

      573   01 0033E    70200B54              LC       INDICATE          SKIP IF NOT SAVE
      574   01 0033F    68100342              BCR,1    SET05             (MODEL IS IRRELEVENT)

      576   01 00340    22602E7C              LI,R6    BA(MSGX2)         ISSUE WARNING
      577   01 00341    6AF005C7              BAL,R15  COMTYPE            WHEN USING DEFAULT

      579   01 00342    32000B7D     SET05    LW,R0    M7232MSK            THEN SELECT DEFAULT

      581   01 00343    0900098C     SET02    PSW,R0   JOBSTACK          SET IN STACK

      583         01 00344           JOBTAB   EQU      %
      584   01 00344    32200B56              LW,R2    TIME              SET START TIME
      585   01 00345    35200B70              STW,R2   PRETIME

      587   01 00346    72200B54              LB,X2    INDICATE          GET JOB CODE
      588   01 00347    2520007C A            SLS,X2   -4                 AND BRANCH THROUGH THE
      589   01 00348    68040349              B        JOBTABLE,X2         JOB TABLE

      591         01 00349           JOBTABLE EQU      %
      592   01 00349    6800034C              B        JOBSAVE           EXIT FOR SAVE
      593   01 0034A    68000391              B        JOBREST                    RESTORE
      594   01 0034B    68000391              B        JOBREST                    COMPARE
1 C00   20:09 JUN 20,'83    SAVE ROUTINE - DISC TO TAPE                                           PAGE   15
A     596         01 0034C           JOBSAVE  EQU      %
      597   01 0034C    6AF0061A              BAL,R15  WRTBOOT           WRITE BOOT/PRGM/DIRECTORY

      599   01 0034D    22200000 A            LI,R2    0                 CLEAR MODEL NUMBER
      600   01 0034E    35200B6B              STW,R2   MODEL

      602         01 0034F           MVETABLE EQU      %                 REVERSE UNITS AND MODELS IN
      603   01 0034F    0820098C              PLW,R2   JOBSTACK          THE STACK, SHOULD BE EXECUTED
      604   01 00350    69200357              BCS,2    SAVE%K            IN SAME ORDER AS WERE INPUT

      606   01 00351    32200002 A            LW,R2    R2                TEST FOR MODEL NUMBER
      607   01 00352    68100355              BGEZ     SAVE%L             SKIP IF DEVICE

      609   01 00353    46200B6B     SAVE%M   XW,R2    MODEL             EXCHANGE WITH PREVIOUS MODEL
      610   01 00354    6830034F              BEZ      MVETABLE           SKIP IF NONE PRESENT

      612   01 00355    0920098E     SAVE%L   PSW,R2   WRKJOBSK          PUSH ITEM IN WORKING STACK
      613   01 00356    6800034F              B        MVETABLE

      615         01 00357           SAVE%K   EQU      %
      616   01 00357    32200B6B              LW,R2    MODEL

      618         01 00358           SAVE%N   EQU      %
      619   01 00358    35200B6B              STW,R2   MODEL             SAVE MODEL NUMBER
      620   01 00359    6AF002A7              BAL,R15  GETMODEL           CONVERT TO INFO TABLE ADDRESS

      622   01 0035A    022000B0 A            LCI      11                MOVE INFORMATION TABLE
      623   01 0035B    AA200002 A            LM,R2    *R2                INTO ITS PROPER PLACE
      624   01 0035C    2B200B47              STM,R2   LOSEEK

      626         01 0035D           JOBSCH   EQU      %
      627   01 0035D    52000B54              TESTBIT  INDICATE,JOBSCH,4,5,6,7,8,9 BRANCH IF I/O BUSY
            01 0035E    21000FC0 A
            01 0035F    6940035D
      628   01 00360    32000B54              OFFBIT   INDICATE,20       RESET END SWITCH
            01 00361    4B000CD9
            01 00362    35000B54
      629   01 00363    0820098E              PLW,R2   WRKJOBSK          GET WORD FROM WORKING JOB STACK
      630   01 00364    69200409              BCS,2    ENDJOBS           END IF STACK EMPTY

      632   01 00365    32200002 A            LW,R2    R2                LOOK FOR ADDRESS OR MODEL
      633   01 00366    69100358              BLZ      SAVE%N            .LT.0=>MODEL NUMBER
      634   01 00367    35200B61              STW,R2   DISCDEV           ELSE STORE UNIT ADDRESS

      636   01 00368    6AF003F8              BAL,R15  OVERLAP           SET OVERLAP STATE               *G01
      637   01 00369    6800036A              B        JOBDTGO
1 C00   20:09 JUN 20,'83    SAVE ROUTINE - DISC TO TAPE                                           PAGE   16
A     639         01 0036A           JOBDTGO  EQU      %
      640   01 0036A    32200B61              LW,R2    DISCDEV           SET UP CURRENT
      641   01 0036B    35200CC2              STW,R2   BUF1WRD4          DISC ADDRESS
      642   01 0036C    35200CCA              STW,R2   BUF2WRD4          IN BUFFERS

      644   01 0036D    32200B4A              LW,R2    FIRSTSEK          INITIALIZE SEEK DATA
      645   01 0036E    35200B55              STW,R2   CURRSEEK
      646   01 0036F    35200CC0              STW,R2   BUF1WRD2

      648   01 00370    32200B49              LW,R2    COUNT             INITIALIZE BUFFER ONE
      649   01 00371    2200001E A            LI,R0    X'1E'              IOCD WITH FLAG AND COUNT
      650   01 00372    75000002 A            STB,R0   R2
      651   01 00373    35200CBF              STW,R2   BUF1WRD1

      653   01 00374    32200B6B              LW,R2    MODEL             MOVE MODEL TO BUFFER HEADERS
      654   01 00375    35200CC1              STW,R2   BUF1WRD3
      655   01 00376    35200CC9              STW,R2   BUF2WRD3

      657         01 00377           DTTE     EQU      %
      658   01 00377    05100000 A            IOREQ    D,RD1             READ DISC INTO BUFFER 1

      660   01 00378    6AF003DF              BAL,R15  PROGRESS          ISSUE PROGRESS REPORT

      662   01 00379    05500000 A            IOREQ    D,WTE             WAIT FOR DISK
      663   01 0037A    04300000 A            IOREQ    T,WRT1            WRITE TAPE FROM 1

      665   01 0037B    32000B54              TESTBIT  INDICATE,DTTF,25  NO WAIT IF OVERLAP
            01 0037C    21000040 A
            01 0037D    6940037F
      666   01 0037E    04500000 A            IOREQ    T,WTE             WAIT

      668         01 0037F           DTTF     EQU      %
      669   01 0037F    22E00CC7              LI,R14   BUF2WRD1          SET UP TO INCREMENT DISC SEEK
      670   01 00380    EAF00B4D              BAL,R15  *INCSEK           INCREMENT

      672   01 00381    32000B54              TESTBIT  INDICATE,JOBSCH,20 CHECK IF DISC THRU
            01 00382    21000800 A
            01 00383    6940035D
      673   01 00384    05200000 A            IOREQ    D,RD2             READ DISC TO 2
      674   01 00385    05500000 A            IOREQ    D,WTE             WAIT
      675   01 00386    04400000 A            IOREQ    T,WRT2            WRITE TAPE FROM 2

      677   01 00387    32000B54              TESTBIT  INDICATE,DTTH,25  NO WAIT IF OVERLAP
            01 00388    21000040 A
            01 00389    6940038B
      678   01 0038A    04500000 A            IOREQ    T,WTE             WAIT


      681         01 0038B           DTTH     EQU      %
      682   01 0038B    22E00CBF              LI,R14   BUF1WRD1          SET UP TO INCREMENT DISC SEEK
      683   01 0038C    EAF00B4D              BAL,R15  *INCSEK           INCREMENT

      685   01 0038D    32000B54              TESTBIT  INDICATE,JOBSCH,20 CHECK IF DISC THRU
            01 0038E    21000800 A
            01 0038F    6940035D
      686   01 00390    68000377              B        DTTE              LOOP BACK
1 C00   20:09 JUN 20,'83    RESTORE ROUTINE - TAPE TO DISC                                        PAGE   17
A     688         01 00391           JOBREST  EQU      %
      689   01 00391    04700000 A            IOREQ    T,REW             REWIND THE TAPE

      691   01 00392    32000B54              TESTBIT  INDICATE,TTP,18   SKIP IF DIRECTORY MISSING
            01 00393    21002000 A
            01 00394    69400396
      692   01 00395    04900000 A            IOREQ    T,FSF             ELSE SKIP THE DIRECTORY

      694   01 00396    04100000 A   TTP      IOREQ    T,RD1             READ TAPE TO 1
      695   01 00397    04500000 A            IOREQ    T,WTE             WAIT

      697   01 00398    32000B54              TESTBIT  INDICATE,TTX,21   SKIP IF FORCED OVERLAP
            01 00399    21000400 A
            01 0039A    694003A2
      698   01 0039B    32000B54              OFFBIT   INDICATE,25           TURN OFF OVERLAP BIT
            01 0039C    4B000CDA
            01 0039D    35000B54
      699   01 0039E    32200B62              LW,R2    TAPEDEV           CHECK IF TAPE AND
      700   01 0039F    22301F00 A            LI,R3    X'1F00'            DISC ARE ON THE
      701   01 003A0    45200CC2              CS,R2    BUF1WRD4            SAME IOP
      702   01 003A1    683003A5              BE       TTD

      704   01 003A2    32000B54     TTX      SETBIT   INDICATE,25       NO - SET OVERLAP BIT
            01 003A3    49000CDB
            01 003A4    35000B54
      705   01 003A5    52000B54     TTD      TESTBIT  INDICATE,CMPRTN,2  SKIP IF COMPARE
            01 003A6    21002000 A
            01 003A7    694003C6
      706   01 003A8    32000B54     TTDE     TESTBIT  INDICATE,ENDJOBS,17 TEST FOR EOF FROM TAPE
            01 003A9    21004000 A
            01 003AA    69400409
      707   01 003AB    05300000 A            IOREQ    D,WRT1            WRITE DISC FROM 1

      709   01 003AC    32000CC0              LW,R0    BUF1WRD2          UPDATE CURRENT SEEK
      710   01 003AD    35000B55              STW,R0   CURRSEEK           FOR PROGRESS REPORT
      711   01 003AE    6AF003DF              BAL,R15  PROGRESS            THEN ISSUE REPORT

      713   01 003AF    6C000000 A            RD,0     0                 SSW1 => AUTOMATIC
      714   01 003B0    688003B2              BCR,8    %+2                CHECKWRITE VERIFICATION
      715   01 003B1    05000000 A            IOREQ    D,CHK1

      717   01 003B2    32000B54              TESTBIT  INDICATE,TTDF,25  NO WAIT IF OVERLAP
            01 003B3    21000040 A
            01 003B4    694003B6
      718   01 003B5    05500000 A            IOREQ    D,WTE             WAIT

      720   01 003B6    04200000 A   TTDF     IOREQ    T,RD2             READ TAPE TO 2
      721   01 003B7    04500000 A            IOREQ    T,WTE             WAIT

      723   01 003B8    32000B54              TESTBIT  INDICATE,ENDJOBS,17 TEST FOR EOF FROM TAPE
            01 003B9    21004000 A
            01 003BA    69400409
      724   01 003BB    05400000 A            IOREQ    D,WRT2            WRITE DISC FROM 2

      726   01 003BC    6C000000 A            RD,0     0                 SSW1 => AUTOMATIC
      727   01 003BD    688003BF              BCR,8    %+2                CHECKWRITE VERIFICATION
      728   01 003BE    05700000 A            IOREQ    D,CHK2

      730   01 003BF    32000B54              TESTBIT  INDICATE,TTDH,25  NO WAIT IF OVERLAP
            01 003C0    21000040 A
            01 003C1    694003C3
      731   01 003C2    05500000 A            IOREQ    D,WTE             WAIT

      733   01 003C3    04100000 A   TTDH     IOREQ    T,RD1             READ TAPE TO 1
      734   01 003C4    04500000 A            IOREQ    T,WTE             WAIT
      735   01 003C5    680003A8              B        TTDE              LOOP BACK
1 C00   20:09 JUN 20,'83    COMPARE ROUTINE - TAPE TO DISC                                        PAGE   18
A     737         01 003C6           CMPRTN   EQU      %
      738   01 003C6    32000B54              TESTBIT  INDICATE,ENDJOBS,17 TEST FOR EOF ON TAPE
            01 003C7    21004000 A
            01 003C8    69400409
      739   01 003C9    04200000 A            IOREQ    T,RD2             READ TAPE TO 2

      741   01 003CA    32000B54              TESTBIT  INDICATE,TCDB,25  NO WAIT IF OVERLAP
            01 003CB    21000040 A
            01 003CC    694003CE
      742   01 003CD    04500000 A            IOREQ    T,WTE             WAIT

      744         01 003CE           TCDB     EQU      %
      745   01 003CE    05000000 A            IOREQ    D,CHK1            CHECKWRITE DISC AGAINST 1

      747   01 003CF    32000CC0              LW,R0    BUF1WRD2          UPDATE CURRENT SEEK
      748   01 003D0    35000B55              STW,R0   CURRSEEK           FOR PROGRESS REPORT
      749   01 003D1    6AF003DF              BAL,R15  PROGRESS            THEN ISSUE REPORT

      751   01 003D2    05500000 A            IOREQ    D,WTE             WAIT FOR DISK
      752   01 003D3    04500000 A            IOREQ    T,WTE             WAIT FOR TAPE

      754   01 003D4    32000B54              TESTBIT  INDICATE,ENDJOBS,17 TEST FOR EOF ON TAPE
            01 003D5    21004000 A
            01 003D6    69400409
      755   01 003D7    04100000 A            IOREQ    T,RD1             READ TAPE TO 1

      757   01 003D8    32000B54              TESTBIT  INDICATE,TCDD,25  NO WAIT IF OVERLAP
            01 003D9    21000040 A
            01 003DA    694003DC
      758   01 003DB    04500000 A            IOREQ    T,WTE             WAIT

      760         01 003DC           TCDD     EQU      %
      761   01 003DC    05700000 A            IOREQ    D,CHK2            CHECKWRITE DISC AGAINST 2
      762   01 003DD    05500000 A            IOREQ    D,WTE             WAIT FOR DISK
      763   01 003DE    680003C6              B        CMPRTN            LOOP BACK
1 C00   20:09 JUN 20,'83    PROGRESS REPORTS                                                      PAGE   19
A     765         01 003DF           PROGRESS EQU      %
      766   01 003DF    6C000000 A            RD,0     0
      767   01 003E0    E920000F A            BCS,2    *R15              RETURN IF SSW3 SET

      769   01 003E1    33000B4E              MTW,0    SECTSHFT
      770   01 003E2    E930000F A            BNEZ     *R15              RETURN IF NOT A DISK

      772   01 003E3    32000B55              LW,R0    CURRSEEK
      773   01 003E4    38000B4A              SW,R0    FIRSTSEK          COMPUTE AND POSITION THE
      774   01 003E5    25000150 A            SLD,R0   -(32+16)           CYLINDER DISPLACEMENT

      776   01 003E6    36000CDC              DW,R0    =DEF:CYLS         COMPUTE MODULO DEF:CYLS
      777   01 003E7    21000000 A            CI,R0    0                  AND POSSIBLY PRINT
      778   01 003E8    683003EB              BE       PRGS0               CONGRUENT CYLINDERS

      780   01 003E9    35000B5B              STW,R0   LASTCYLS          DEFINE CURRENT GROUP
      781   01 003EA    E800000F A            B        *R15

      783         01 003EB           PRGS0    EQU      %
      784   01 003EB    31000B5B              CW,R0    LASTCYLS          SKIP IF NOT START OF
      785   01 003EC    E830000F A            BE       *R15               PROPER GROUP

      787   01 003ED    35000B5B              STW,R0   LASTCYLS          DEFINE CURRENT GROUP
      788   01 003EE    09F00994              PSW,R15  SUBSTACK

      790   01 003EF    32500B55              LW,R5    CURRSEEK          CONVERT AND
      791   01 003F0    25500070 A            SLS,R5   -16                DISPLAY THE CURRENT
      792   01 003F1    6AF0089C              BAL,R15  PRTDEC              CYLINDER
      793   01 003F2    32000983              LW,R0    WORK+1
      794   01 003F3    35000BA7              STW,R0   PRGSMSG+2

      796   01 003F4    22602E94              LI,R6    BA(PRGSMSG)
      797   01 003F5    6AF005C7              BAL,R15  COMTYPE

      799   01 003F6    08F00994              PLW,R15  SUBSTACK
      800   01 003F7    E800000F A            B        *R15

      802   01 003F8    32000B54     OVERLAP  OFFBIT   INDICATE,25       CLEAR OVERLAPPING FLAG          *G01
            01 003F9    4B000CDA
            01 003FA    35000B54
      803   01 003FB    32000B54              TESTBIT  INDICATE,OVER0,22 SKIP IF OVERLAP INHIBITED       *G01
            01 003FC    21000200 A
            01 003FD    69400408
      804   01 003FE    32000B54              TESTBIT  INDICATE,OVER1,21 SKIP IF OVERLAP FORCED          *G01
            01 003FF    21000400 A
            01 00400    69400405
      805   01 00401    32000B62              LW,R0    TAPEDEV           LOOK FOR CHANNEL AFFINITY       *G01
      806   01 00402    22101F00 A            LI,R1    X'1F00'            (SET IOP ADDRESS MASK)         *G01
      807   01 00403    45000B61              CS,R0    DISCDEV             BETWEEN TAPE AND DISK         *G01
      808   01 00404    68300408              BE       OVER0                SKIP IF SHARED CHANNEL       *G01

      810   01 00405    32000B54     OVER1    SETBIT   INDICATE,25       SET OVERLAPPING FLAG            *G01
            01 00406    49000CDB
            01 00407    35000B54
      811   01 00408    E800000F A   OVER0    B        *R15               RETURN                         *G01
1 C00   20:09 JUN 20,'83    END-OF-JOB ROUTINE                                                    PAGE   20
A     813         01 00409           ENDJOBS  EQU      %                 END-OF-JOB ROUTINE
      814   01 00409    70200B54              LC       INDICATE
      815   01 0040A    69F00410              BCS,15   USE0              SKIP IF NOT SAVE

      817   01 0040B    04A00000 A            IOREQ    T,WTM             FOR SAVE: TERMINATE THE TAPE
      818   01 0040C    2200046F              LI,R0    DA(EORWRT)         FILEMARK
      819   01 0040D    04600000 A            IOREQ    T,SET0             TRAILER LABEL
      820   01 0040E    04A00000 A            IOREQ    T,WTM              FILEMARK
      821   01 0040F    04A00000 A            IOREQ    T,WTM              FILEMARK

      823         01 00410           USE0     EQU      %
      824   01 00410    22000463              LI,R0    DA(REWCW)         REWIND TAPE
      825   01 00411    04600000 A            IOREQ    T,SET0

      827         01 00412           USE1     EQU      %
      828   01 00412    22602D94              LI,R6    BA(BLANK)         SKIP A LINE BEFORE
      829   01 00413    6AF005C7              BAL,R15  COMTYPE            PRINTING STATISTICS

      831   01 00414    32900CC0              LW,R9    BUF1WRD2          FIND LAST SEEK ADDR USED
      832   01 00415    31900CC8              CW,R9    BUF2WRD2
      833   01 00416    69200418              BG       USE2              BRANCH IF BUF 1 SEEK HI
      834   01 00417    32900CC8              LW,R9    BUF2WRD2          BUF 2 WAS LAST USED

      836         01 00418           USE2     EQU      %
      837   01 00418    6AF0088B              BAL,R15  PRTHEX            CONVERT LAST SEEK FOR TYPING
      838   01 00419    2260310C              LI,R6    BA(MSGYA9)        MSG ADDR
      839   01 0041A    6AF005C3              BAL,R15  COMTYPEX          PRINT 'LAST USED SEEK ADDR-'
      840   01 0041B    22600008 A            LI,R6    8
      841   01 0041C    35600981              STW,R6   WORKT             SET TEXTC FOR 8 BYTES
      842   01 0041D    22602607              LI,R6    BA(WORKT)+3       DATA ADDR
      843   01 0041E    6AF005C7              BAL,R15  COMTYPE           TYPE ACTUAL SEEK ADDR
      844   01 0041F    22600004 A            LI,R6    4
      845   01 00420    35600981              STW,R6   WORKT             RESET TEXTC TO 4 BYTES

      847   01 00421    32900B5C              LW,R9    TERRORS
      848   01 00422    6AF0088B              BAL,R15  PRTHEX
      849   01 00423    35B00C6D              STW,R11  MSGTPER+5
      850   01 00424    226031A0              LI,R6    BA(MSGTPER)       'TOTAL TAPE ERRORS XXXX'
      851   01 00425    6AF005C7              BAL,R15  COMTYPE

      853   01 00426    32900B5D              LW,R9    DERRORS
      854   01 00427    6AF0088B              BAL,R15  PRTHEX
      855   01 00428    35B00C92              STW,R11  MSGDCER+5
      856   01 00429    22603234              LI,R6    BA(MSGDCER)       'TOTAL DISC ERRORS XXXX'
      857   01 0042A    6AF005C7              BAL,R15  COMTYPE
1 C00   20:09 JUN 20,'83    END-OF-JOB ROUTINE                                                    PAGE   21
A     859   01 0042B    32500B56              LW,R5    TIME              GET CURRENT TIME
      860   01 0042C    38500B70              SW,R5    PRETIME           SUBTRACT TIME JOB STARTED
      861   01 0042D    22400000 A            LI,R4    0                 TIME IS IN MILLI-SECONDS
      862   01 0042E    36400B68              DW,R4    THOUSAND          GET TOTAL SECONDS
      863   01 0042F    22400000 A            LI,R4    0
      864   01 00430    36400B69              DW,R4    SIXTY             GET MINUTES AND SECONDS
      865   01 00431    6AF0089C              BAL,R15  PRTDEC            CONVERT TO PRINTABLE DECIMAL

      867   01 00432    22100007 A            LI,R1    7                 STORE
      868   01 00433    22200003 A            LI,R2    3                 MINUTES

      870   01 00434    72320982     STWMIN1  LB,R3    WORK,R1           IN
      871   01 00435    75340C56              STB,R3   JT1,R2            OUT PUT
      872   01 00436    201FFFFF A            AI,R1    -1                MESSAGE
      873   01 00437    64200434              BDR,R2   STWMIN1           FOR TYPING

      875   01 00438    32500004 A            LW,R5    R4                PUT SECONDS IN R5
      876   01 00439    6AF0089C              BAL,R15  PRTDEC            CONVERT TO PRINTABLE DECIMAL
      877   01 0043A    22300003 A            LI,R3    3                 PLACE
      878   01 0043B    22200001 A            LI,R2    1                 SECONDS
      879   01 0043C    52460982              LH,R4    WORK,R3           INTO
      880   01 0043D    55440C59              STH,R4   JT2,R2            MESSAGE
      881   01 0043E    22603143              LI,R6    BA(JBTIME)-1      FOR PRINTING
      882   01 0043F    6AF005C7              BAL,R15  COMTYPE           TYPE

      884   01 00440    32500B56              LW,R5    TIME              GET CURRENT COUNTER 4. THIS IS
      885   01 00441    22400000 A            LI,R4    0                 TIME IN MILLI-SECONDS SINCE PROGRAM
      886   01 00442    36400B68              DW,R4    THOUSAND          WAS BOOTED.
      887   01 00443    22400000 A            LI,R4    0                 THIS IS TYPED AS
      888   01 00444    36400B69              DW,R4    SIXTY             TOTAL COMPUTER
      889   01 00445    6AF0089C              BAL,R15  PRTDEC            TIME

      891   01 00446    22100007 A            LI,R1    7
      892   01 00447    22200003 A            LI,R2    3

      894   01 00448    72320982     STWMIN2  LB,R3    WORK,R1
      895   01 00449    75340C62              STB,R3   ACC1,R2
      896   01 0044A    201FFFFF A            AI,R1    -1
      897   01 0044B    64200448              BDR,R2   STWMIN2

      899   01 0044C    32500004 A            LW,R5    R4
      900   01 0044D    6AF0089C              BAL,R15  PRTDEC
      901   01 0044E    22300003 A            LI,R3    3
      902   01 0044F    22200001 A            LI,R2    1
      903   01 00450    52460982              LH,R4    WORK,R3
      904   01 00451    55440C65              STH,R4   ACC2,R2
      905   01 00452    22603173              LI,R6    BA(ACCTIME)-1
      906   01 00453    6AF005C7              BAL,R15  COMTYPE

      908   01 00454    22602D94              LI,R6    BA(BLANK)         SKIP A LINE AFTER
      909   01 00455    6AF005C7              BAL,R15  COMTYPE            PRINTING STATISTICS
      910   01 00456    68000212              B        BEGIN
1 C00   20:09 JUN 20,'83    CAL PSD AND ENTRY POINTS                                              PAGE   22
A     912                                     BOUND    8
      913   01 00458    00000000 A   C1OLDPSD DATA     0,0
            01 00459    00000000 A
      914   01 0045A    00000460     C1NEWPSD DATA     CALL1,0
            01 0045B    00000000 A
      915   01 0045C    00000000 A   C2OLDPSD DATA     0,0
            01 0045D    00000000 A
      916   01 0045E    0000046C     C2NEWPSD DATA     CALL2,0
            01 0045F    00000000 A

      918                            * BRANCH TABLE FOR CAL1 FUNCTIONS
      919         01 00460           CALL1    EQU      %
      920   01 00460    68000479              B        T:BSR       0     BACKSPACE RECORD
      921   01 00461    68000491              B        T:RD1       1     READ TAPE TO BUFFER 1
      922   01 00462    68000497              B        T:RD2       2     READ TAPE TO BUFFER 2
      923   01 00463    6800049D              B        T:WRT1      3     WRITE TAPE FROM BUFFER 1
      924   01 00464    680004AA              B        T:WRT2      4     WRITE TAPE FROM BUFFER 2
      925   01 00465    6800048B              B        T:WTE       5     WAIT FOR TAPE COMPLETION
      926   01 00466    68000477              B        T:SET0      6     DO COMMAND LIST IN R0
      927   01 00467    6800047F              B        T:REW       7     REWIND TAPE
      928   01 00468    68000482              B        T:ERG       8     SET ERASE
      929   01 00469    68000485              B        T:FSF       9     FORWARD SPACE FILE
      930   01 0046A    68000488              B        T:WTM      10     WRITE TAPE MARK
      931   01 0046B    6800047C              B        T:FSR      11     FORWARD SPACE RECORD

      933                            * BRANCH TABLE FOR CAL2 FUNCTIONS
      934         01 0046C           CALL2    EQU      %
      935   01 0046C    680004D2              B        D:CHK1      0     CHECKWRITE BUFFER 1
      936   01 0046D    680004EC              B        D:RD1       1     READ DISC TO BUFFER 1
      937   01 0046E    680004F7              B        D:RD2       2     READ DISC TO BUFFER 2
      938   01 0046F    68000502              B        D:WRT1      3     WRITE DISC FROM BUFFER 1
      939   01 00470    6800050F              B        D:WRT2      4     WRITE DISC FROM BUFFER 2
      940   01 00471    6800051C              B        D:WTE       5     WAIT FOR DISC COMPLETION
      941   01 00472    68000474              B        D:ABORT     6     D:SET0 DE-IMPLEMENTED
      942   01 00473    680004DF              B        D:CHK2      7     CHECKWRITE BUFFER 2

      944         01 00474           D:ABORT  EQU      %                 BAD CAL2
      945   01 00474    12E0045C              LD,R14   C2OLDPSD
      946   01 00475    15E0090A              STD,R14  ERRORPSD
      947   01 00476    0E00090C              LPSD,0   ERRORPSD+2        ENTER ILLEGAL TRAP HANDLER
1 C00   20:09 JUN 20,'83    CAL1 ROUTINES - TAPE OPERATIONS                                       PAGE   23
A     949         01 00477           T:SET0   EQU      %
      950   01 00477    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      951   01 00478    680005BD              B        RWCOMSIO          GO ISSUE COMMAND

      953         01 00479           T:BSR    EQU      %
      954   01 00479    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      955   01 0047A    22000466              LI,R0    DA(BSRCW)         GET COMMND ADDR
      956   01 0047B    6800048E              B        COMSIO            GO ISSUE COMMND

      958         01 0047C           T:FSR    EQU      %
      959   01 0047C    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      960   01 0047D    2200046B              LI,R0    DA(FSRCW)         GET COMMD ADDR
      961   01 0047E    6800048E              B        COMSIO            GO ISSUE COMMD

      963         01 0047F           T:REW    EQU      %
      964   01 0047F    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      965   01 00480    22000463              LI,R0    DA(REWCW)         GET COMMD ADDR
      966   01 00481    6800048E              B        COMSIO            REWIND ONLINE

      968         01 00482           T:ERG    EQU      %
      969   01 00482    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      970   01 00483    22000465              LI,R0    DA(ERGCW)         COMMD ADDR
      971   01 00484    6800048E              B        COMSIO            GO ISSUE COMMD

      973         01 00485           T:FSF    EQU      %
      974   01 00485    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      975   01 00486    2200046A              LI,R0    DA(FSFCW)         COMMD ADDR
      976   01 00487    6800048E              B        COMSIO            ISSURE COMMD

      978         01 00488           T:WTM    EQU      %
      979   01 00488    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      980   01 00489    22000469              LI,R0    DA(WTMCW)         COMMD ADDR
      981   01 0048A    6800048E              B        COMSIO            ISSUE COMMD

      983         01 0048B           T:WTE    EQU      %
      984   01 0048B    6AF005A8              BAL,R15  RTNTIO            TEST STATUS
      985   01 0048C    CEB00B62              TDV,R11  *TAPEDEV          GET TDV STATUS
      986   01 0048D    68000490              B        CAL1RET

      988         01 0048E           COMSIO   EQU      %
      989   01 0048E    35000B6F              STW,R0   TCWSAVE           SAVE COMMAND ADDRESS
      990   01 0048F    6AF0081C              BAL,R15  XEQTIO            EXECUTE I/O WITH TIO-WAIT

      992   01 00490    0E000458     CAL1RET  LPSD,0   C1OLDPSD          RETURN
1 C00   20:09 JUN 20,'83    CAL1 ROUTINES - TAPE OPERATIONS                                       PAGE   24
A     994         01 00491           T:RD1    EQU      %
      995   01 00491    6AF005A8              BAL,R15  RTNTIO            GET TAPE STATUS

      997   01 00492    32000B54              SETBIT   INDICATE,4        SET READ TO BUFFER 1 IN PROGRESS
            01 00493    49000CDD
            01 00494    35000B54
      998   01 00495    2200045A              LI,R0    DA(RDBUF1CW)      COMMD ADDR
      999   01 00496    680005BD              B        RWCOMSIO          GO ISSUE SIO

     1001         01 00497           T:RD2    EQU      %
     1002   01 00497    6AF005A8              BAL,R15  RTNTIO            GET TAPE STATUS

     1004   01 00498    32000B54              SETBIT   INDICATE,5        SET READ TO BUFFER 2 IN PROGRESS
            01 00499    49000CDE
            01 0049A    35000B54
     1005   01 0049B    2200045C              LI,R0    DA(RDBUF2CW)      COMMD ADDR
     1006   01 0049C    680005BD              B        RWCOMSIO          GO ISSUE SIO

     1008         01 0049D           T:WRT1   EQU      %
     1009   01 0049D    6AF005A8              BAL,R15  RTNTIO            GET TAPE STATUS

     1011   01 0049E    CEF00B62              TDV,R15  *TAPEDEV          GET TDV STATUS
     1012   01 0049F    72F0000F A            LB,R15   R15
     1013   01 004A0    21F00002 A            CI,R15   X'02'             LOOK FOR END OF TAPE
     1014   01 004A1    694004B7              BANZ     NEWREEL

     1016   01 004A2    32000B54              SETBIT   INDICATE,6        SET WRITE FROM BUFFER 1 IN PROGRESS
            01 004A3    49000CDF
            01 004A4    35000B54
     1017   01 004A5    32000B49              LW,R0    COUNT             FETCH OUTPUT SIZE
     1018   01 004A6    30000CE0              AW,R0    =X'1C000000'       ADD STANDARD FLAGS
     1019   01 004A7    350008BF              STW,R0   WRTB1CW+3           STORE IN CHANNEL PROGRAM

     1021   01 004A8    2200045E              LI,R0    DA(WRTB1CW)       COMMD ADDR
     1022   01 004A9    680005BD              B        RWCOMSIO          GO ISSUE SIO

     1024         01 004AA           T:WRT2   EQU      %
     1025   01 004AA    6AF005A8              BAL,R15  RTNTIO            GET TAPE STATUS

     1027   01 004AB    CEF00B62              TDV,R15  *TAPEDEV          GET TDV STATUS
     1028   01 004AC    72F0000F A            LB,R15   R15
     1029   01 004AD    21F00002 A            CI,R15   X'02'             LOOK FOR END OF TAPE
     1030   01 004AE    694004B7              BANZ     NEWREEL

     1032   01 004AF    32000B54              SETBIT   INDICATE,7        SET WRITE FROM BUFFER 2 IN PROGRESS
            01 004B0    49000CE1
            01 004B1    35000B54
     1033   01 004B2    32000B49              LW,R0    COUNT             FETCH OUTPUT SIZE
     1034   01 004B3    30000CE0              AW,R0    =X'1C000000'       ADD STANDARD FLAGS
     1035   01 004B4    350008C3              STW,R0   WRTB2CW+3           STORE IN CHANNEL PROGRAM

     1037   01 004B5    22000460              LI,R0    DA(WRTB2CW)       COMMD ADDR
     1038   01 004B6    680005BD              B        RWCOMSIO          GO ISSUE SIO
1 C00   20:09 JUN 20,'83    CAL1 ROUTINES - TAPE OPERATIONS                                       PAGE   25
A    1040   01 004B7    22000469     NEWREEL  LI,R0    DA(WTMCW)         FINALIZE INTERMEDIATE TAPE:
     1041   01 004B8    6AF0081C              BAL,R15  XEQTIO            WRITE TAPEMARK
     1042   01 004B9    2200046C              LI,R0    DA(EORCW)
     1043   01 004BA    6AF0081C              BAL,R15  XEQTIO            WRITE '*EOR'
     1044   01 004BB    22000469              LI,R0    DA(WTMCW)
     1045   01 004BC    6AF0081C              BAL,R15  XEQTIO            WRITE TAPEMARK
     1046   01 004BD    6AF0081C              BAL,R15  XEQTIO            WRITE TAPEMARK
     1047   01 004BE    22000464              LI,R0    DA(OFFLINE)
     1048   01 004BF    6AF0081C              BAL,R15  XEQTIO            UNLOAD THE TAPE

     1050   01 004C0    2260306C     OLDREEL  LI,R6    BA(MSGY4)         MSG ADDRESS
     1051   01 004C1    6AF00815              BAL,R15  MSGOPR            ACCEPT NEW TAPE ASSIGNMENT

     1053   01 004C2    22602928              LI,R6    BA(INPUT)         SET PTR TO INPUT
     1054   01 004C3    22100004 A            LI,R1    4
     1055   01 004C4    6AF00861              BAL,R15  CPTOHEX           CONVERT TO HEX

     1057   01 004C5    CDF00009 A            TIO,R15  *R9
     1058   01 004C6    69C004C0              BCS,8+4  OLDREEL           SKIP IF NOT READY

     1060   01 004C7    7020000F A            LC       R15               OR MANUAL
     1061   01 004C8    681004C0              BCR,1    OLDREEL

     1063   01 004C9    35900B62              STW,R9   TAPEDEV           STORE

     1065   01 004CA    6AF003F8              BAL,R15  OVERLAP           SET OVERLAP STATE               *G01

     1067   01 004CB    22000463              LI,R0    DA(REWCW)         REWIND NEW TAPE                 *G01
     1068   01 004CC    6AF0081C              BAL,R15  XEQTIO

     1070   01 004CD    32000B73              LW,R0    DENSAV            IF DENSITY SPECIFIED
     1071   01 004CE    683004D0              BEZ      %+2
     1072   01 004CF    6AF0081C              BAL,R15  XEQTIO

     1074   01 004D0    33F00458              MTW,-1   C1OLDPSD          SET TO REISSUE CAL1
     1075   01 004D1    0E000458              LPSD,0   C1OLDPSD          RETURN TO CAL1
1 C00   20:09 JUN 20,'83    CAL2 ROUTINES - DISC OPERATIONS                                       PAGE   26
A    1077         01 004D2           D:CHK1   EQU      %
     1078   01 004D2    52000B54              TESTBIT  INDICATE,D:CHK1,8,9  BRANCH IF DISC BUSY
            01 004D3    210000C0 A
            01 004D4    694004D2
     1079   01 004D5    32000B54              SETBIT   INDICATE,8,23     SET BUFFER 1 BUSY & CHK-WRT
            01 004D6    49000CE2
            01 004D7    35000B54
     1080   01 004D8    32000CC2              LW,R0    BUF1WRD4          GET DEVICE ADDRESS
     1081   01 004D9    35000B61              STW,R0   DISCDEV           (MUST BE A RESTORE OR COMPARE)

     1083   01 004DA    320004DE              LW,R0    %+4               GET ORDER AND DATA ADDRESS
     1084   01 004DB    35000CBE              STW,R0   BUF1CW2           STORE IN COMMD LIST
     1085   01 004DC    2200065E              LI,R0    DA(BUF1CW1)       ADDR OF COMMD LIST
     1086   01 004DD    68000521              B        D:SET0

     1088   01 004DE    050033E4              GEN,8,24 X'05',BA(ENDLAB)   CHECK-WRITE BUFFER 1

     1090         01 004DF           D:CHK2   EQU      %
     1091   01 004DF    52000B54              TESTBIT  INDICATE,D:CHK2,8,9   BRANCH IF DISC BUSY
            01 004E0    210000C0 A
            01 004E1    694004DF
     1092   01 004E2    32000B54              SETBIT   INDICATE,9,23     SET BUFFER 2 BUSY & CHK-WRT
            01 004E3    49000CE3
            01 004E4    35000B54
     1093   01 004E5    32000CCA              LW,R0    BUF2WRD4          GET UNIT ADDRESS
     1094   01 004E6    35000B61              STW,R0   DISCDEV           (MUST BE A RESTORE OR COMPARE)

     1096   01 004E7    320004EB              LW,R0    %+4               GET ORDER AND DATA ADDRESS
     1097   01 004E8    35000CC6              STW,R0   BUF2CW2           STORE IN COMMD LIST
     1098   01 004E9    22000662              LI,R0    DA(BUF2CW1)       ADDR COMMAND LIST
     1099   01 004EA    68000521              B        D:SET0

     1101   01 004EB    050073E4              GEN,8,24 X'05',BA(ENDLAB+BUFFSIZE/4) CHECK-WRITE BUFFER 2

     1103         01 004EC           D:RD1    EQU      %
     1104   01 004EC    52000B54              TESTBIT  INDICATE,D:RD1,8,9  BRANCH IF DISC BUSY
            01 004ED    210000C0 A
            01 004EE    694004EC
     1105   01 004EF    32000B54              SETBIT   INDICATE,8        SET DISC BUSY
            01 004F0    49000CE4
            01 004F1    35000B54
     1106   01 004F2    320004F6              LW,R0    %+4               GET ORDER CODE AND DATA ADDR
     1107   01 004F3    35000CBE              STW,R0   BUF1CW2           STORE IN COMMD LIST
     1108   01 004F4    2200065E              LI,R0    DA(BUF1CW1)       ADDR OF COMMD LIST
     1109   01 004F5    68000521              B        D:SET0

     1111   01 004F6    120033E4              GEN,8,24 X'12',BA(ENDLAB)   READ INTO BUFFER 1
1 C00   20:09 JUN 20,'83    CAL2 ROUTINES - DISC OPERATIONS                                       PAGE   27
A    1113         01 004F7           D:RD2    EQU      %
     1114   01 004F7    52000B54              TESTBIT  INDICATE,D:RD2,8,9   BRANCH IF DISC BUST
            01 004F8    210000C0 A
            01 004F9    694004F7
     1115   01 004FA    32000B54              SETBIT   INDICATE,9        SET DISC BUSY
            01 004FB    49000CE5
            01 004FC    35000B54
     1116   01 004FD    32000501              LW,R0    %+4               GET ORDER CODE AND DATA ADDR
     1117   01 004FE    35000CC6              STW,R0   BUF2CW2           STORE IN COMMAND LIST
     1118   01 004FF    22000662              LI,R0    DA(BUF2CW1)       ADDR OF COMMD LIST
     1119   01 00500    68000521              B        D:SET0

     1121   01 00501    120073E4              GEN,8,24 X'12',BA(ENDLAB+BUFFSIZE/4) READ INTO BUFFER 2

     1123         01 00502           D:WRT1   EQU      %
     1124   01 00502    52000B54              TESTBIT  INDICATE,D:WRT1,8,9 BRANCH IF DISC BUSY
            01 00503    210000C0 A
            01 00504    69400502
     1125   01 00505    32000B54              SETBIT   INDICATE,8          SET DISC BUSY
            01 00506    49000CE4
            01 00507    35000B54
     1126   01 00508    32000CC2              LW,R0    BUF1WRD4          GET DEVICE ADDRESS
     1127   01 00509    35000B61              STW,R0   DISCDEV           (MUST BE A RESTORE OR COMPARE)

     1129   01 0050A    3200050E              LW,R0    %+4               GET ORDER CODE AND DATA ADDR
     1130   01 0050B    35000CBE              STW,R0   BUF1CW2           STORE IN COMMD LIST
     1131   01 0050C    2200065E              LI,R0    DA(BUF1CW1)       ADDR OF COMMD LIST
     1132   01 0050D    68000521              B        D:SET0

     1134   01 0050E    010033E4              GEN,8,24 X'01',BA(ENDLAB)   WRITE FROM BUFFER 1

     1136         01 0050F           D:WRT2   EQU      %
     1137   01 0050F    52000B54              TESTBIT  INDICATE,D:WRT2,8,9 BRANCH IF DISC BUSY
            01 00510    210000C0 A
            01 00511    6940050F
     1138   01 00512    32000B54              SETBIT   INDICATE,9          SET DISC BUSY
            01 00513    49000CE5
            01 00514    35000B54
     1139   01 00515    32000CCA              LW,R0    BUF2WRD4          GET UNIT ADDRESS
     1140   01 00516    35000B61              STW,R0   DISCDEV           (MUST BE A RESTORE OR COMPARE)

     1142   01 00517    3200051B              LW,R0    %+4               GET ORDER CODE AND DATA ADDR
     1143   01 00518    35000CC6              STW,R0   BUF2CW2           STORE IN COMMD LIST
     1144   01 00519    22000662              LI,R0    DA(BUF2CW1)       ADDR OF COMMD LIST
     1145   01 0051A    68000521              B        D:SET0

     1147   01 0051B    010073E4              GEN,8,24 X'01',BA(ENDLAB+BUFFSIZE/4) WRITE FROM BUFFER 2
1 C00   20:09 JUN 20,'83    CAL2 ROUTINES - DISC OPERATIONS                                       PAGE   28
A    1149         01 0051C           D:WTE    EQU      %
     1150   01 0051C    52000B54              TESTBIT  INDICATE,D:WTE,8,9    BRANCH IF DISC BUSY
            01 0051D    210000C0 A
            01 0051E    6940051C
     1151   01 0051F    3310045C     D:XIT    MTW,1    C2OLDPSD          INCREMENT RETURN
     1152   01 00520    0E00045C              LPSD,0   C2OLDPSD          DISC FREE RETURN

     1154         01 00521           D:SET0   EQU      %
     1155   01 00521    35000B6E              STW,R0   DCWSAVE           SAVE CHANNEL PROGRAM POINTER

     1157   01 00522    32900B61              LW,R9    DISCDEV           CHECK FOR CHANGE IN
     1158   01 00523    31900B60              CW,R9    DISCOLD            THE UNIT ADDRESS
     1159   01 00524    6930052B              BNE      TYPDV

     1161         01 00525           DVP1     EQU      %
     1162   01 00525    32000B6E              LW,R0    DCWSAVE           RESTORE CHANNEL PROGRAM

     1164   01 00526    CC000B61              SIO,R0   *DISCDEV          ISSUE ORDER
     1165   01 00527    68C0051F              BCR,8+4  D:XIT             DISK READY

     1167   01 00528    32900B61              LW,R9    DISCDEV           REPORT SIO-FAILURE
     1168   01 00529    6AF00783              BAL,R15  SIOFAIL
     1169   01 0052A    68000525              B        DVP1              AND RETRY
1 C00   20:09 JUN 20,'83    CAL2 ROUTINES - DISC OPERATIONS                                       PAGE   29
A    1171         01 0052B           TYPDV    EQU      %
     1172   01 0052B    35900B60              STW,R9   DISCOLD           SAVE NEW DISK ADDRESS

     1174   01 0052C    70200B54              LC       INDICATE          SKIP IF SAVING
     1175   01 0052D    68F00537              BCR,15   OVLP0

     1177   01 0052E    32200B6B              LW,R2    MODEL             FOR CHECK ONLY,
     1178   01 0052F    6AF002A7              BAL,R15  GETMODEL          VERIFY MODEL NUMBER

     1180   01 00530    022000B0 A            LCI      11                MOVE MODEL INFORMATION
     1181   01 00531    AA200002 A            LM,R2    *R2                INTO PROPER PLACE
     1182   01 00532    2B200B47              STM,R2   LOSEEK              (FOR DIAGNOSTIC VALUE)

     1184   01 00533    32900B61              LW,R9    DISCDEV           RESTORE DEVICE ADDRESS

     1186   01 00534    32000B54              TESTBIT  INDICATE,OVRRD,16 SKIP IF ADDRESS OVERRIDE
            01 00535    21008000 A
            01 00536    6940053D
     1187   01 00537    6AF0088B     OVLP0    BAL,R15  PRTHEX
     1188   01 00538    35B00982              STW,R11  WORK
     1189   01 00539    22602607              LI,R6    BA(WORKT)+3
     1190   01 0053A    6AF005C7              BAL,R15  COMTYPE           TYPE NEW DISC ADDR

     1192         01 0053B           OVLP1    EQU      %
     1193   01 0053B    6AF003F8              BAL,R15  OVERLAP           SET OVERLAP STATE               *G01
     1194   01 0053C    68000525              B        DVP1

     1196         01 0053D           OVRRD    EQU      %
     1197   01 0053D    6AF0088B              BAL,R15  PRTHEX            CONVERT AND DISPLAY
     1198   01 0053E    35B00982              STW,R11  WORK               UNIT ADDRESS AND THEN
     1199   01 0053F    22602607              LI,R6    BA(WORKT)+3         REQUEST A REPLACEMENT
     1200   01 00540    6AF005C3              BAL,R15  COMTYPEX

     1202   01 00541    22602FC8              LI,R6    BA(REQDC)
     1203   01 00542    6AF00815              BAL,R15  MSGOPR            GET NEW DISK ADDRESS

     1205   01 00543    22602928              LI,R6    BA(INPUT)
     1206   01 00544    22100004 A            LI,R1    4
     1207   01 00545    6AF00861              BAL,R15  CPTOHEX

     1209   01 00546    CDF00009 A            TIO,R15  *R9               REPEAT MESSAGE IF
     1210   01 00547    69C0053D              BCS,8+4  OVRRD              DEVICE NOT OPERATIONAL

     1212   01 00548    35900B61              STW,R9   DISCDEV           UPDATE OLD/NEW
     1213   01 00549    35900B60              STW,R9   DISCOLD            UNIT ADDRESSES
     1214   01 0054A    6800053B              B        OVLP1
1 C00   20:09 JUN 20,'83    SET UP DEFAULT VALUES                                                 PAGE   30
A    1216         01 0054B           PRESET   EQU      %                 PRESET AND INITIALIZE
     1217   01 0054B    22101030 A            LI,R1    X'1030'           ARM/ENABLE I/O, CLOCK 4,
     1218   01 0054C    6D101200 A            WD,R1    X'1200'            AND PCP INTERRUPTS

     1220   01 0054D    221FFFFF A            LI,R1    -1
     1221   01 0054E    35100B5B              STW,R1   LASTCYLS          FOR PROGRESS REPORT

     1223   01 0054F    22100000 A            LI,R1    0
        1*  01 00550    35100B74              STW,R1   TCPVFLAG          CLEAR NEW HEADER FORMAT FLAG    *H01
     1224   01 00551    35100B54              STW,R1   INDICATE          JOB STATE
     1225   01 00552    35100B60              STW,R1   DISCOLD           PREVIOUS DISC ADDRESS
     1226   01 00553    35100B5E              STW,R1   TRETRY            TAPE ERROR RETRY COUNTER
     1227   01 00554    35100B5F              STW,R1   DRETRY            DISK ERROR RETRY COUNTER
     1228   01 00555    35100B5C              STW,R1   TERRORS           TOTAL TAPE ERRORS
     1229   01 00556    35100B5D              STW,R1   DERRORS           TOTAL DISK ERRORS
     1230   01 00557    35100B73              STW,R1   DENSAV            TAPE DENSITY

     1232   01 00558    12200990              LD,R2    PJOBSTK           SET
     1233   01 00559    1520098C              STD,R2   JOBSTACK          JOB STACK

     1235   01 0055A    12200992              LD,R2    PWRKSTK           POINTERS
     1236   01 0055B    1520098E              STD,R2   WRKJOBSK          TO EMPTY STACKS

     1238   01 0055C    12200996              LD,R2    ALTSUB            (TRAPS NOT INHIBITED)
     1239   01 0055D    15200994              STD,R2   SUBSTACK

     1241   01 0055E    E800000F A            B        *R15              RETURN

1 C00   20:09 JUN 20,'83    SEEK ADDRESS INCREMENT ROUTINES                                       PAGE   31
A    1244                            * SEEK ADDRESS INCREMENT FOR 7202, 7203, 7204
     1245                            *
     1246                            * R14 POINTS TO DESTINATION OF INCREMENTED SEEK DATA
     1247                            * R15 IS LINK REGISTER
     1248                            *
     1249         01 0055F           INC234   EQU      %
     1250   01 0055F    02200030 A            LCI      3
     1251   01 00560    0B100994              PSM,R1   SUBSTACK
     1252   01 00561    32200B55              LW,R2    CURRSEEK          GET LAST USED SEEK ADDR
     1253   01 00562    30200B4B              AW,R2    INCREMNT          INCREMENT
     1254   01 00563    31200B48              CW,R2    HISEEK            CHECK IF ALL DISC DONE
     1255   01 00564    6810057D              BGE      STOP              YES STOP
     1256   01 00565    68000571              B        INCCNT

     1258                            * SEEK ADDRESS INCREMENT FOR 7212
     1259                            *
     1260         01 00566           INC12    EQU      %
     1261   01 00566    02200030 A            LCI      3
     1262   01 00567    0B100994              PSM,R1   SUBSTACK
     1263   01 00568    32300CE6              LW,R3    =127*256*256      LOAD MASK
     1264   01 00569    32200B55              LW,R2    CURRSEEK          GET LAST USED SEEK
     1265   01 0056A    30200B4B              AW,R2    INCREMNT          INCREMENT

     1267   01 0056B    45200CE7              CS,R2    =82*256*256       TEST IF TRACK OVERFLOW
     1268   01 0056C    68100579              BGE      TRKINC            YES

     1270   01 0056D    31200CE8              CW,R2    =(63**23)+(78**16)  CHECK IF ON LAST TAPE RECORD
     1271   01 0056E    69300571              BNE      INCCNT            NO  CONTINUE
     1272   01 0056F    22101000 A            LI,R1    4*1024            YES LOAD SHORT COUNT
     1273   01 00570    68000572              B        PSTCNT            CONTINUE

     1275   01 00571    32100B49     INCCNT   LW,R1    COUNT             SETUP DISK COMMANDS

     1277   01 00572    2230001E A   PSTCNT   LI,R3    X'1E'

     1279   01 00573    75300001 A   PSTCNT1  STB,R3   R1
     1280   01 00574    B510000E A            STW,R1   *R14

     1282   01 00575    20E00001 A            AI,R14   1
     1283   01 00576    35200B55              STW,R2   CURRSEEK          STORE NEW SEEK ADDR
     1284   01 00577    B520000E A            STW,R2   *R14
     1285   01 00578    68000580              B        CONT

     1287         01 00579           TRKINC   EQU      %
     1288   01 00579    30200CE9              AW,R2    =128*256*256-82*256*256   FIX SEEK ADDR
     1289   01 0057A    31200B48              CW,R2    HISEEK            CHECK IF DISC ALL DONE
     1290   01 0057B    6810057D              BGE      STOP              YES STOP
     1291   01 0057C    68000571              B        INCCNT            NO  CONTINUE

     1293         01 0057D           STOP     EQU      %
     1294   01 0057D    32000B54              SETBIT   INDICATE,20       SET BIT THAT DISC COMPLETED
            01 0057E    49000CEA
            01 0057F    35000B54
     1295   01 00580    02200030 A   CONT     LCI      3
     1296   01 00581    0A100994              PLM,R1   SUBSTACK
     1297   01 00582    E800000F A            B        *15               RETURN
1 C00   20:09 JUN 20,'83    SEEK ADDRESS INCREMENT ROUTINES                                       PAGE   32
A    1299                            * SEEK ADDRESS INCREMENT FOR 7232
     1300                            *
     1301         01 00583           INC32    EQU      %
     1302   01 00583    02200030 A            LCI      3
     1303   01 00584    0B100994              PSM,R1   SUBSTACK
     1304   01 00585    32200B55              LW,R2    CURRSEEK          GET LAST USED SEEK
     1305   01 00586    30200B4B              AW,R2    INCREMNT          INCREMENT
     1306   01 00587    31200B48              CW,R2    HISEEK            CHECK IF ALL DISC DONE
     1307   01 00588    6810057D              BGE      STOP              YES STOP
     1308   01 00589    68000571              B        INCCNT            NO CONTINUE

     1310                            * SEEK ADDRESS INCREMENT FOR ALL DISKS
     1311                            *
     1312         01 0058A           INC60    EQU      %
     1313         01 0058A           INC70    EQU      %
     1314         01 0058A           INC75    EQU      %
     1315         01 0058A           INC42    EQU      %
     1316         01 0058A           INC72    EQU      %
        1*        01 0058A           INC81    EQU      %                                                 *H00
        2*        01 0058A           INC82    EQU      %                                                 *H00
        3*        01 0058A           INC83    EQU      %                                                 *H00
     1319   01 0058A    02200030 A            LCI      3
     1320   01 0058B    0B100994              PSM,R1   SUBSTACK
     1321   01 0058C    32200B55              LW,R2    CURRSEEK          PICK UP LAST USED SEEK
     1322   01 0058D    2230FF00 A            LI,R3    255*256           LOAD MASK
     1323   01 0058E    30200B4B              AW,R2    INCREMNT          INCREMENT SEEK

     1325   01 0058F    32100B48              LW,R1    HISEEK            SPECIAL
     1326   01 00590    31100B11              CW,R1    M7275+1           FOR 7275
     1327   01 00591    683005A0              BE       INC75X            BECAUSE OF TRACKS/CYL=19

     1329   01 00592    31100B1C              CW,R1    M3275+1           CHECK FOR DISK 33
     1330   01 00593    683005A0              BE       INC77X            BRANCH IF YES

        1*  01 00594    31100B27              CW,R1    M3281+1           LOOK FOR 3281                   *H00
        2*  01 00595    683005A4              BE       INC81X                                            *H00

        4*  01 00596    31100B32              CW,R1    M3282+1           LOOK FOR 3282                   *H00
        5*  01 00597    683005A4              BE       INC82X                                            *H00

        7*  01 00598    31100B3D              CW,R1    M3283+1           LOOK FOR 3283                   *H00
        8*  01 00599    683005A0              BE       INC83X                                            *H00

     1338   01 0059A    45200CEB              CS,R2    =20*256           CHECK IF TRACK OVERFLOW
     1339   01 0059B    69100571              BL       INCCNT            NO-EXIT

     1341   01 0059C    30200CEC              AW,R2    =256*256-20*256   FIX SEEK ADDR

     1343         01 0059D           INC42X   EQU      %
     1344   01 0059D    31200B48              CW,R2    HISEEK            CHECK IF THRU
     1345   01 0059E    69100571              BL       INCCNT            NOT THRU - CONTINUE
     1346   01 0059F    6800057D              B        STOP              THRU

     1348         01 005A0           INC75X   EQU      %
     1349         01 005A0           INC77X   EQU      %
        1*        01 005A0           INC83X   EQU      %                                                 *H00
     1351   01 005A0    45200CED              CS,R2    =19*256           CHECK IF TRACK OVERFLOW
     1352   01 005A1    69100571              BL       INCCNT            NO-EXIT

     1354   01 005A2    30200CEE              AW,R2    =256*256-19*256   FIX SEEK ADDRESS
     1355   01 005A3    6800059D              B        INC42X            AND RESUME IN COMMON CODE

        1*        01 005A4           INC81X   EQU      %                                                 *H00
        2*        01 005A4           INC82X   EQU      %                                                 *H00
     1358   01 005A4    45200CEF              CS,R2    =30*256
     1359   01 005A5    69100571              BL       INCCNT            NOT CYLINDER OVERFLOW

     1361   01 005A6    30200CF0              AW,R2    =256*256-30*256   SKIP TO NEXT CYLINDER
     1362   01 005A7    6800059D              B        INC42X
1 C00   20:09 JUN 20,'83    TAPE SUBROUTINES                                                      PAGE   33
A    1364                            *                 TAPE SUB-ROUTINES
     1365                            *
     1366         01 005A8           RTNTIO   EQU      %
     1367   01 005A8    33100458              MTW,1    C1OLDPSD          INCREMENT RETURN

     1369         01 005A9           XTNTIO   EQU      %
     1370   01 005A9    02200000 A            LCI      0
     1371   01 005AA    0B000994              PSM,R0   SUBSTACK          SAVE ALL THE REGISTERS

     1373         01 005AB           RTN      EQU      %                 CHECK TAPE STATUS               *G01
     1374   01 005AB    CDD00B62              TIO,R13  *TAPEDEV
     1375   01 005AC    68C005BA              BCR,8+4  RTN0
     1376   01 005AD    688005B4              BCR,8    RTN1              BUSY - CHECK FOR MANUAL
     1377   01 005AE    694005B7              BCS,4    RTN2              NOT AVAILABLE

     1379         01 005AF           RTN3     EQU      %
     1380   01 005AF    32D00B56              LW,R13   TIME
     1381   01 005B0    20D00002 A            AI,R13   2                 DELAY 2 MILLISECONDS            *G01

     1383   01 005B1    31D00B56              CW,R13   TIME
     1384   01 005B2    692005B1              BG       %-1
     1385   01 005B3    680005AB              B        RTN               CHECK STATUS AGAIN              *G01

     1387         01 005B4           RTN1     EQU      %                 DEVICE BUSY
     1388   01 005B4    7270000D A            LB,R7    R13
     1389   01 005B5    21700010 A            CI,R7    X'10'             CHECK MANUAL
     1390   01 005B6    694005AF              BANZ     RTN3

     1392         01 005B7           RTN2     EQU      %
     1393   01 005B7    32900B62              LW,R9    TAPEDEV           ISSUE MANUAL WARNING
     1394   01 005B8    6AF0078F              BAL,R15  TIOFAIL
     1395   01 005B9    680005AB              B        RTN

     1397         01 005BA           RTN0     EQU      %                 DEVICE NORMAL                   *G01
     1398   01 005BA    02200000 A            LCI      0
     1399   01 005BB    0A000994              PLM,R0   SUBSTACK
     1400   01 005BC    E800000F A            B        *R15

     1402         01 005BD           RWCOMSIO EQU      %
     1403   01 005BD    35000B6F              STW,R0   TCWSAVE           SAVE COMMAND ADDRESS
     1404   01 005BE    CC000B62              SIO,R0   *TAPEDEV
     1405   01 005BF    68C00490              BCR,8+4  CAL1RET           SIO ACCEPTED - RETURN

     1407   01 005C0    32900B62              LW,R9    TAPEDEV           REPORT SIO-FAILURE
     1408   01 005C1    6AF00783              BAL,R15  SIOFAIL
     1409   01 005C2    680005BD              B        RWCOMSIO          THEN RETRY
1 C00   20:09 JUN 20,'83    CONSOLE I/O ROUTINES                                                  PAGE   34
A    1411         01 005C3           COMTYPEX EQU      %                 SUPPRESS TRAILING NEW-LINE
     1412   01 005C3    02200000 A            LCI      0
     1413   01 005C4    0B000994              PSM,R0   SUBSTACK
     1414   01 005C5    22000000 A            LI,R0    X'00'             (NO DATA CHAINING)
     1415   01 005C6    680005CA              B        COMPRNT

     1417         01 005C7           COMTYPE  EQU      %                 NORMAL TRAILING NEW-LINE
     1418   01 005C7    02200000 A            LCI      0
     1419   01 005C8    0B000994              PSM,R0   SUBSTACK
     1420   01 005C9    22000080 A            LI,R0    X'80'             (DATA CHAINING)

     1422   01 005CA    72EC0000 A   COMPRNT  LB,R14   0,R6              GET TEXT COUNT
     1423   01 005CB    22700007 A            LI,X7    7                 INDEX
     1424   01 005CC    75EE08E0              STB,R14  TYPECW,X7         STORE COUNT IN CW

     1426   01 005CD    750008E1              STB,R0   TYPECW+1          SAVE CHAINING FLAG

     1428   01 005CE    20600001 A            AI,R6    1                 INCREMENT BYTE ADDR PAST COUNT BYTE
     1429   01 005CF    49600B72              OR,R6    TYPEORDR          OR IN ORDER CODE
     1430   01 005D0    356008E0              STW,R6   TYPECW            STORE ORDER CODE AND BYTE ADDR IN CW

     1432   01 005D1    22000470              LI,R0    DA(TYPECW)        COMMAND ADDRESS
     1433   01 005D2    6AF0081A              BAL,R15  XEQCIO             PERFORM TIO-LOOP I/O

     1435   01 005D3    02200000 A            LCI      0
     1436   01 005D4    0A000994              PLM,R0   SUBSTACK
     1437   01 005D5    E800000F A            B        *R15
1 C00   20:09 JUN 20,'83    CONSOLE I/O ROUTINES                                                  PAGE   35
A    1439         01 005D6           COMREAD  EQU      %                 ACCEPT KEY-IN
     1440   01 005D6    02200000 A            LCI      0
     1441   01 005D7    0B000994              PSM,R0   SUBSTACK

     1443         01 005D8           REREAD   EQU      %
     1444   01 005D8    32000A5E              LW,R0    BLANKS            GET WRD BLANKS
     1445   01 005D9    22100014 A            LI,R1    20                SET BUFFER LENGTH

     1447   01 005DA    35020A49              STW,R0   INPUT-1,R1        BLANK INPUT AREA
     1448   01 005DB    641005DA              BDR,R1   %-1

     1450   01 005DC    22000472              LI,R0    DA(READCW)        COMMAND ADDRESS
     1451   01 005DD    6AF0081A              BAL,R15  XEQCIO             PERFORM TIO-LOOP I/O

     1453   01 005DE    22100050 A            LI,R1    80                SET NO OF CHAR
     1454   01 005DF    22202977              LI,R2    BA(INPUT)+79      SET PTR AT END OF LINE

     1456         01 005E0           LNSCAN   EQU      %                 SCAN CHAR FOR EOM
     1457   01 005E0    72040000 A            LB,R0    0,R2
     1458   01 005E1    21000008 A            CI,R0    X'08'
     1459   01 005E2    683005F0              BE       NOIN0             BRANCH IF EOM FOUND
     1460   01 005E3    21000005 A            CI,R0    X'05'             LOOK FOR TAB
     1461   01 005E4    683005F2              BE       NOIN1
     1462   01 005E5    21000015 A            CI,R0    X'15'             LOOK FOR NEW-LINE
     1463   01 005E6    683005EA              BE       NLSCAN
     1464   01 005E7    202FFFFF A            AI,R2    -1
     1465   01 005E8    641005E0              BDR,R1   LNSCAN            CONTINUE SCAN
     1466   01 005E9    680005F0              B        NOIN0             IGNORE LINES WITHOUT TERMINATOR

     1468   01 005EA    72000A4A     NLSCAN   LB,R0    INPUT             CHECK FIRST CHAR
     1469   01 005EB    21000015 A            CI,R0    X'15'             IF NEW-LINE
     1470   01 005EC    683005F4              BE       NOIN2

     1472   01 005ED    02200000 A            LCI      0
     1473   01 005EE    0A000994              PLM,R0   SUBSTACK
     1474   01 005EF    E800000F A            B        *R15

     1476         01 005F0           NOIN0    EQU      %
     1477   01 005F0    21202928              CI,R2    BA(INPUT)
     1478   01 005F1    683005D8              BE       REREAD            RE-READ IF NULL BUFFER

     1480         01 005F2           NOIN1    EQU      %
     1481   01 005F2    22602D90              LI,R6    BA(NEWLINE)
     1482   01 005F3    6AF005C3              BAL,R15  COMTYPEX

     1484         01 005F4           NOIN2    EQU      %
     1485   01 005F4    22602D9C              LI,R6    BA(PROMPT1)
     1486   01 005F5    6AF005C3              BAL,R15  COMTYPEX
     1487   01 005F6    680005D8              B        REREAD
1 C00   20:09 JUN 20,'83    ROUTINE TO READ DIRECTORY                                             PAGE   36
A    1489         01 005F7           DIR%READ EQU      %
     1490   01 005F7    09F00994              PSW,R15  SUBSTACK          SAVE RETURN ADDRESS
     1491   01 005F8    32000B54              SETBIT   INDICATE,24       SET CAL1,6 IN-USE BIT
            01 005F9    49000CF1
            01 005FA    35000B54
     1492   01 005FB    2290001E A            LI,R9    3*NTRIES          SET RETRY MAXIMUM
     1493   01 005FC    35900B57              STW,R9   RETRY0

     1495   01 005FD    04700000 A            IOREQ    T,REW             REWIND TAPE
     1496   01 005FE    04900000 A            IOREQ    T,FSF             BOOT/PRGM/DIR CONSISTS OF
     1497   01 005FF    04000000 A            IOREQ    T,BSR             ONE FILE, LAST RECORD OF
     1498   01 00600    04000000 A            IOREQ    T,BSR             WHICH IS THE DIRECTORY

     1500         01 00601           PDRD     EQU      %
     1501   01 00601    32900B5C              LW,R9    TERRORS           SAVE CURRENT TAPE
     1502   01 00602    35900B59              STW,R9   RETRY2             ERROR COUNT

     1504   01 00603    2200046D              LI,R0    DA(RDDIR)         CW ADDR TO READ DIRECTORY
     1505   01 00604    04600000 A            IOREQ    T,SET0            READ DIRECTORY
     1506   01 00605    04500000 A            IOREQ    T,WTE             WAIT FOR END ACTION

     1508   01 00606    32900B5C              LW,R9    TERRORS           DETERMINE IF AN
     1509   01 00607    31900B59              CW,R9    RETRY2             ERROR OCCURRED
     1510   01 00608    6930060F              BNE      PDRETRY

     1512   01 00609    04B00000 A            IOREQ    T,FSR             SPACE OVER TM

     1514   01 0060A    32000B54              OFFBIT   INDICATE,24       CLEAR CAL1,6 IN-USE BIT
            01 0060B    4B000CF2
            01 0060C    35000B54
     1515   01 0060D    08F00994              PLW,R15  SUBSTACK          GET LINK
     1516   01 0060E    E800000F A            B        *R15               AND RETURN

     1518         01 0060F           PDRETRY  EQU      %
     1519   01 0060F    33F00B57              MTW,-1   RETRY0            DECREMENT REMAINING RETRIES
     1520   01 00610    69200614              BGZ      PDRETRY0           SKIP IF STILL POSSIBLE

     1522   01 00611    226031B8              LI,R6    BA(MSG::000)      IMPOSSIBLE DIRECTORY
     1523   01 00612    6AF005C7              BAL,R15  COMTYPE
     1524   01 00613    68000212              B        BEGIN

     1526         01 00614           PDRETRY0 EQU      %
     1527   01 00614    22000467              LI,R0    DA(SENSECW)
     1528   01 00615    04600000 A            IOREQ    T,SET0            SENSE
     1529   01 00616    04000000 A            IOREQ    T,BSR             BACKSPACE ONE BLOCK
     1530   01 00617    22000468              LI,R0    DA(SETCORR)
     1531   01 00618    04600000 A            IOREQ    T,SET0            SET CORRECTION
     1532   01 00619    68000601              B        PDRD              GO RETRY
1 C00   20:09 JUN 20,'83    WRITE PROGRAM AND BOOT TO TAPE                                        PAGE   37
A    1534         01 0061A           WRTBOOT  EQU      %
     1535   01 0061A    09F00994              PSW,R15  SUBSTACK

     1537   01 0061B    32000B54              SETBIT   INDICATE,24       GET CONTROL OF CAL I/O
            01 0061C    49000CF1
            01 0061D    35000B54
     1538   01 0061E    04700000 A            IOREQ    T,REW             REWIND THE TAPE

     1540   01 0061F    32000B73              LW,R0    DENSAV            SET TAPE DENSITY
     1541   01 00620    68300622              BEZ      %+2                IF PRESENT
     1542   01 00621    04600000 A            IOREQ    T,SET0

     1544   01 00622    2290001E A            LI,R9    NTRIES*3          SET MASTER RETRY LIMIT
     1545   01 00623    35900B57              STW,R9   RETRY0

     1547   01 00624    22000473              LI,R0    DA(BOOTRITE)      WRITE BOOTSTRAP
     1548   01 00625    6AF0063D              BAL,R15  BWRITE

     1550   01 00626    32700B77              LW,R7    MM24
     1551   01 00627    22600100              LI,R6    BA(LOAD)
     1552   01 00628    476008E8              STS,R6   PGMRITE

     1554   01 00629    22601000 A            LI,R6    BLOCKSIZ
     1555   01 0062A    476008E9              STS,R6   PGMRITE+1         INITIALIZE PROGRAM IOCD

     1557   01 0062B    22800004 A            LI,R8    NBLOX             SET NUMBER OF BLOCKS TO WRITE
     1558   01 0062C    35800B58              STW,R8   RETRY1

     1560         01 0062D           WRTB0    EQU      %
     1561   01 0062D    22000474              LI,R0    DA(PGMRITE)       POINT TO WRITE PROGRAM
     1562   01 0062E    6AF0063D              BAL,R15  BWRITE             PERFORM I/O WITH RECOVERY

     1564   01 0062F    22601000 A            LI,R6    BLOCKSIZ          UPDATE BYTE ADDRESS
     1565   01 00630    666008E8              AWM,R6   PGMRITE

     1567   01 00631    33F00B58              MTW,-1   RETRY1            UPDATE COUNT OF BLOCKS
     1568   01 00632    6920062D              BGZ      WRTB0              AND CONTINUE IF POSSIBLE

     1570   01 00633    1200098C              LD,R0    JOBSTACK          INITIALIZE DIRECTORY STACK
     1571   01 00634    15000A6E              STD,R0   DIRSTACK

     1573   01 00635    2200046E              LI,R0    DA(WRDIRTRY)      WRITE DIRECTORY
     1574   01 00636    6AF0063D              BAL,R15  BWRITE

     1576   01 00637    04A00000 A            IOREQ    T,WTM             WRITE FILEMARK AFTER DIRECTORY

     1578   01 00638    32000B54              OFFBIT   INDICATE,24       RELEASE CAL1,6
            01 00639    4B000CF2
            01 0063A    35000B54
     1579   01 0063B    08F00994              PLW,R15  SUBSTACK
     1580   01 0063C    E800000F A            B        *R15
1 C00   20:09 JUN 20,'83    WRITE PROGRAM AND BOOT TO TAPE                                        PAGE   38
A    1583         01 0063D           BWRITE   EQU      %
     1584   01 0063D    35000B5A              STW,R0   RETRY3            SAVE IOCD FOR RECOVERY
     1585   01 0063E    09F00994              PSW,R15  SUBSTACK

     1587         01 0063F           BSTART   EQU      %
     1588   01 0063F    32F00B5C              LW,R15   TERRORS           SAVE CURRENT TAPE
     1589   01 00640    35F00B59              STW,R15  RETRY2             ERROR COUNT

     1591   01 00641    32000B5A              LW,R0    RETRY3            GET IOCD
     1592   01 00642    04600000 A            IOREQ    T,SET0
     1593   01 00643    04500000 A            IOREQ    T,WTE             START I/O AND WAIT

     1595   01 00644    32F00B59              LW,R15   RETRY2            SEE IF AN ERROR
     1596   01 00645    31F00B5C              CW,R15   TERRORS            WAS REGISTERED
     1597   01 00646    6830064E              BE       BSTOP               AND SKIP IF NOT

     1599   01 00647    7020000B A            LC       R11               OBTAIN DEVICE STATUS
     1600   01 00648    69200653              BCS,2    WSTOP              SKIP IF PROTECT VIOLATION

     1602   01 00649    33F00B57              MTW,-1   RETRY0            DETERMINE IF ERROR RECOVERY
     1603   01 0064A    68300650              BEZ      WRTB:XX            IS STILL POSSIBLE

     1605   01 0064B    04000000 A            IOREQ    T,BSR             BACKSPACE BLOCK
     1606   01 0064C    04800000 A            IOREQ    T,ERG              ERASE A SECTION
     1607   01 0064D    6800063F              B        BSTART              AND RESTART THE I/O

     1609         01 0064E           BSTOP    EQU      %
     1610   01 0064E    08F00994              PLW,R15  SUBSTACK
     1611   01 0064F    E800000F A            B        *R15

     1613         01 00650           WRTB:XX  EQU      %                 NO MORE ERROR RECOVERY
     1614   01 00650    226031E0              LI,R6    BA(MSG::001)
     1615   01 00651    6AF005C7              BAL,R15  COMTYPE
     1616   01 00652    68000212              B        BEGIN             SIMPLY ABORT THE JOB

     1618         01 00653           WSTOP    EQU      %
     1619   01 00653    32900B62              LW,R9    TAPEDEV           ISSUE WARNING TO
     1620   01 00654    6AF00793              BAL,R15  WRTFAIL            OPERATOR: WRITE PROTECTED
     1621   01 00655    6800063F              B        BSTART
1 C00   20:09 JUN 20,'83    WRITE PROGRAM AND BOOT TO TAPE                                        PAGE   39
A    1623                            ************************************************************************
     1624                            *  THE FOLLOWING IS THE DEVDMP TAPE BOOTSTRAP                          *
     1625                            ************************************************************************
     1626                                     BOUND    8
     1627         01 00656           MTBOOT   EQU      %
     1628   01 0002A                          LOC      X'2A'
            01 00656
     1629         01 0002A           BOOT     EQU      %
     1630   01 0002A    22100004 A            LI,1     NBLOX
     1631   01 0002B    22201000 A            LI,2     BLOCKSIZ

     1633   01 0002C    2240000A A   BLOOP    LI,4     10                # OF RETRIES
     1634   01 0002D    2200001C              LI,0     DA(MTCDW)         CDW ADDRESS

     1636   01 0002E    CC000025 A   SIO:     SIO,0    *37
     1637   01 0002F    220003E8 A            LI,0     1000
     1638   01 00030    64000030              BDR,0    %
     1639   01 00031    CD300025 A            TIO,3    *37
     1640   01 00032    69C0002F              BCS,12   %-3

     1642   01 00033    25300005 A            SLS,3    +5
     1643   01 00034    6880003D              BCR,8    RETRI

     1645   01 00035    66200038              AWM,2    MTCDW             TO READ NEXT REC PAST THIS ONE
     1646   01 00036    6410002C              BDR,1    BLOOP

     1648         01 00663           RGO      EQU      %%
     1649   01 00037    68000200              B        START

     1651                                     BOUND    8
     1652         01 00038           MTCDW    EQU      %
     1653   01 00038    02000100              GEN,8,24 X'02',BA(LOAD)    READ RECORD FORWARD
     1654   01 00039    08001000 A            GEN,8,24 X'08',BLOCKSIZ
     1655   01 0003A    4B000000 A            GEN,8,24 X'4B',0           RECOVERY => BACKSPACE
     1656   01 0003B    20000000 A            GEN,8,24 X'20',0
     1657   01 0003C    0800001C              GEN,8,24 X'08',DA(MTCDW)    THEN TIC TO READ

     1659   01 0003D    2200001D     RETRI    LI,0     DA(MTCDW)+1
     1660   01 0003E    6440002E              BDR,4    SIO:
     1661   01 0003F    6800003F              B        %                 HANG IF UNRECOVERABLE ERR

     1663         00000058           BOOTSIZ  EQU      BA(%)-BA(BOOT)

     1665   01 0066C                          LOC      %%
            01 0066C
1 C00   20:09 JUN 20,'83    I/O INTERRUPT PROCESSING                                              PAGE   40
A    1667         01 0066C           INTERR   EQU      %                 ACCEPT I/O INTERRUPTS
     1668   01 0066C    02200000 A            LCI      0
     1669   01 0066D    0B000994              PSM,R0   SUBSTACK

     1671   01 0066E    221FFFFF A            LI,R1    -1                PRESET REGISTER
     1672   01 0066F    6E100000 A            AIO,R1   0                  ACCEPT INTERRUPT
     1673   01 00670    69800681              BCS,8    FALTINTR            AND SKIP IF NOT PRESENT

     1675   01 00671    74000A68              STCF     CCHOLD            SAVE CONDITION CODE
     1676   01 00672    35100A67              STW,R1   ASHOLD            SAVE INTERRUPT

     1678   01 00673    22303FFF A            LI,R3    X'3FFF'
     1679   01 00674    4B300001 A            AND,R3   R1                LOAD DEVICE ADDRESS ONLY

     1681   01 00675    CD400003 A            TIO,R4   *R3               GATHER TIO STATUS
     1682   01 00676    15400A64              STD,R4   TSHOLD             (COMPLETE)
     1683   01 00677    CE500003 A            TDV,R5   *R3               GATHER TDV STATUS
     1684   01 00678    35500A66              STW,R5   DSHOLD             (RU1 ONLY)

     1686   01 00679    31300B61              CW,R3    DISCDEV           TEST FOR DISC INTERRUPT
     1687   01 0067A    6830071D              BE       DISCHAND

     1689   01 0067B    31300B62              CW,R3    TAPEDEV           TEST FOR TAPE INTERRUPT
     1690   01 0067C    69300681              BNE      FALTINTR          BAD INTERRUPT
     1691   01 0067D    6800068C              B        TAPEHAND

     1693   01 0067E    02200000 A   LPSDRET  LCI      0
     1694   01 0067F    0A000994              PLM,R0   SUBSTACK
     1695   01 00680    0E300906              LPSD,3   IOINTOLD

     1697   01 00681    226030C0     FALTINTR LI,R6    BA(MSGY8)         MSG ADDR
     1698   01 00682    6AF005C3              BAL,R15  COMTYPEX          TYPE 'SPURIOUS INTERRUPT'
     1699   01 00683    32900001 A            LW,R9    R1                GET AIO REG
     1700   01 00684    6AF0088B              BAL,R15  PRTHEX            CONVERT FOR TYPING
     1701   01 00685    22600008 A            LI,R6    8                 SET MSG
     1702   01 00686    35600981              STW,R6   WORKT             LENGTH TO 8
     1703   01 00687    22602607              LI,R6    BA(WORKT)+3
     1704   01 00688    6AF005C7              BAL,R15  COMTYPE           TYPE CONTENTS OF AIO REG
     1705   01 00689    22600004 A            LI,R6    4                 SET MSG LENGTH
     1706   01 0068A    35600981              STW,R6   WORKT             BACK TO 4
     1707   01 0068B    6800067E              B        LPSDRET
1 C00   20:09 JUN 20,'83    TAPE INTERRUPT SERVICING ROUTINES                                     PAGE   41
A    1709         01 0068C           TAPEHAND EQU      %                 SERVICE TAPE INTERRUPT
     1710   01 0068C    32000B54              TESTBIT  INDICATE,OKTAPE,4,5,6,7,24  BRANCH IF TAPE BUSY
            01 0068D    31000CF3
            01 0068E    69400690
     1711   01 0068F    6800067E              B        LPSDRET           NO TAPE OPER IN PROGRESS - RETURN

     1713   01 00690    31100B71     OKTAPE   CW,R1    TPAIO             TEST FOR ERROR
     1714   01 00691    6940069B              BANZ     TAPERROR          BRANCH IF UNUSUAL END INTERRUPT

     1716   01 00692    72000B54              LB,R0    INDICATE          SKIP IF READING
     1717   01 00693    2100000C A            CI,R0    X'0C'
     1718   01 00694    6940070D              BANZ     TPENDRD

     1720         01 00695           TPENDTP  EQU      %
     1721   01 00695    32000B54              OFFBIT   INDICATE,4,5,6,7  TURN OFF BUSY BITS
            01 00696    4B000CF4
            01 00697    35000B54
     1722   01 00698    22000000 A            LI,R0    0
     1723   01 00699    35000B5E              STW,R0   TRETRY            ZERO TAPE RETRY COUNT
     1724   01 0069A    6800067E              B        LPSDRET           EXIT

     1726         01 0069B           TAPERROR EQU      %
     1727   01 0069B    33000B5E              MTW,0    TRETRY            SKIP IF IN RECOVERY
     1728   01 0069C    6930069E              BNEZ     %+2               ELSE TALLY AN ERROR
     1729   01 0069D    33100B5C              MTW,1    TERRORS

     1731   01 0069E    32000B54              TESTBIT  INDICATE,LPSDRET,24  EXIT IF CAL1,6
            01 0069F    21000080 A
            01 006A0    6940067E

     1733   01 006A1    72600A66              LB,R6    DSHOLD            GET DEVICE STATUS
     1734   01 006A2    21600080 A            CI,R6    X'80'
     1735   01 006A3    694006D7              BANZ     NOCORR            OVERRUN
     1736   01 006A4    21600020 A            CI,R6    X'20'
     1737   01 006A5    694006B3              BANZ     TPWRTPR           WRITE PROTECT VIOLATION
     1738   01 006A6    21600010 A            CI,R6    X'10'
     1739   01 006A7    694006B8              BANZ     TPEOF             END OF FILE

     1741   01 006A8    52000B54              TESTBIT  INDICATE,DVD001,6,7  SKIP IF WRITING
            01 006A9    21000300 A
            01 006AA    694006AD
     1742   01 006AB    21600008 A            CI,R6    X'08'
     1743   01 006AC    694006D7              BANZ     NOCORR            SKIP IF UNCORRECTABLE ERROR

     1745         01 006AD           DVD001   EQU      %
     1746   01 006AD    52000A66              LH,R0    DSHOLD            GET DEVICE STATUS
     1747   01 006AE    21000040 A            CI,R0    X'40'             AND LOOK FOR TDE BIT
     1748   01 006AF    694006DE              BANZ     NORMRTRY

     1750                            * ERROR CANNOT BE ISOLATED PREPARE TO ABORT
     1751   01 006B0    22603094              LI,R6    BA(MSGY5)         GET MSG ADDR
     1752   01 006B1    6AF005C7              BAL,R15  COMTYPE           TYPE 'UNDEFINED I/O ERROR'
     1753   01 006B2    68000700              B        TPIODIAG          SKIP TO COMMON ERROR DISPLAY

     1755   01 006B3    33F00B5C     TPWRTPR  MTW,-1   TERRORS           WRITE VIOLATION NOT REAL ERROR

     1757   01 006B4    32900B62              LW,R9    TAPEDEV           ISSUE WRITE PROTECT WARNING
     1758   01 006B5    6AF00793              BAL,R15  WRTFAIL

     1760   01 006B6    32000B6F              LW,R0    TCWSAVE           RESTORE COMMAND ADDRESS
     1761   01 006B7    680006F1              B        TPX1              GO RE-ISSUE COMMD
1 C00   20:09 JUN 20,'83    TAPE INTERRUPT SERVICING ROUTINES                                     PAGE   42
A    1763   01 006B8    33F00B5C     TPEOF    MTW,-1   TERRORS           EOF IS NOT TAPE ERROR

     1765   01 006B9    22000462              LI,R0    DA(REOFCW)
     1766   01 006BA    6AF0081C              BAL,R15  XEQTIO            READ TRAILER LABEL

     1768   01 006BB    72500982              LB,R5    WORK              LOOK FOR TRUE END-OF-REEL
     1769   01 006BC    2150005C A            CI,R5    C'*'
     1770   01 006BD    683006C2              BE       NEWREELT

     1772   01 006BE    32000B54              SETBIT   INDICATE,17       NO - SET END OF FILE
            01 006BF    49000CF5
            01 006C0    35000B54
     1773   01 006C1    68000695              B        TPENDTP

     1775         01 006C2           NEWREELT EQU       %
     1776   01 006C2    22000464              LI,R0    DA(OFFLINE)
     1777   01 006C3    6AF0081C              BAL,R15  XEQTIO            UNLOAD THIS TAPE

     1779   01 006C4    2260306C     OLDREELT LI,R6    BA(MSGY4)         END-OF-REEL WARNING:
     1780   01 006C5    6AF00815              BAL,R15  MSGOPR             GET NEW TAPE UNIT ADDRESS

     1782   01 006C6    22602928              LI,R6    BA(INPUT)         SET PTR TO INPUT
     1783   01 006C7    22100004 A            LI,R1    4
     1784   01 006C8    6AF00861              BAL,R15  CPTOHEX           CONVERT TO HEX

     1786   01 006C9    CDF00009 A            TIO,R15  *R9
     1787   01 006CA    69C006C4              BCS,8+4  OLDREELT          SKIP IF NOT OPERATIONAL

     1789   01 006CB    7020000F A            LC       R15
     1790   01 006CC    681006C4              BCR,1    OLDREELT          OR IF NOT AUTOMATIC

     1792   01 006CD    35900B62              STW,R9   TAPEDEV           STORE NEW TAPE ADDR FOR USE

     1794   01 006CE    22000463              LI,R0    DA(REWCW)         REWIND
     1795   01 006CF    6AF0081C              BAL,R15  XEQTIO

     1797   01 006D0    52000B54              TESTBIT  INDICATE,REDOB1,4   BRANCH IF USING BUFFER 1
            01 006D1    21000800 A
            01 006D2    694006D5
     1798   01 006D3    2200045C              LI,R0    DA(RDBUF2CW)      NO--SET UP FOR READ BUFFER 2
     1799   01 006D4    680006F1              B        TPX1              PREPARE TO REISSUE COMMD

     1801   01 006D5    2200045A     REDOB1   LI,R0    DA(RDBUF1CW)      SET UP FOR READ BUFFER 1
     1802   01 006D6    680006F1              B        TPX1              PREPARE TO REISSUE READ
1 C00   20:09 JUN 20,'83    TAPE INTERRUPT SERVICING ROUTINES                                     PAGE   43
A    1804         01 006D7           NOCORR   EQU      %                 RECOVERY FROM NON-CORRECTABLE ERROR
     1805   01 006D7    33100B5E              MTW,1    TRETRY            UPDATE RETRY COUNT
     1806   01 006D8    22600008 A            LI,R6    8
     1807   01 006D9    31600B5E              CW,R6    TRETRY
     1808   01 006DA    683006F6              BE       TOBADTP

     1810   01 006DB    22000466              LI,R0    DA(BSRCW)         BACKSPACE ONE RECORD
     1811   01 006DC    6AF0081C              BAL,R15  XEQTIO
     1812   01 006DD    680006EB              B        NOCORRA

     1814         01 006DE           NORMRTRY EQU      %                 RECOVERY FROM CORRECTABLE ERROR
     1815   01 006DE    33100B5E              MTW,1    TRETRY            UPDATE RETRY COUNT
     1816   01 006DF    22600008 A            LI,R6    8
     1817   01 006E0    31600B5E              CW,R6    TRETRY            COMPARE RETRY COUNT TO 8
     1818   01 006E1    683006F6              BE       TOBADTP           BRANCH IF WE HAVE RETRIED 7 TIMES

     1820   01 006E2    52000B54              TESTBIT  INDICATE,REWRT,6,7  BRANCH IF WRITE COMMD
            01 006E3    21000300 A
            01 006E4    69400702
     1821   01 006E5    22000467              LI,R0    DA(SENSECW)       GATHER SENSE BYTE
     1822   01 006E6    6AF0081C              BAL,R15  XEQTIO
     1823   01 006E7    22000466              LI,R0    DA(BSRCW)         BACKSPACE ONE RECORD
     1824   01 006E8    6AF0081C              BAL,R15  XEQTIO
     1825   01 006E9    22000468              LI,R0    DA(SETCORR)       ISSUE SET-CORRECTION
     1826   01 006EA    6AF0081C              BAL,R15  XEQTIO

     1828   01 006EB    52000B54     NOCORRA  TESTBIT  INDICATE,STBUF2,5  BRANCH IF READ WAS BUF 2
            01 006EC    21000400 A
            01 006ED    694006F0
     1829   01 006EE    2200045A              LI,R0    DA(RDBUF1CW)      READ INTO BUFFER 1
     1830   01 006EF    680006F1              B        TPX1

     1832   01 006F0    2200045C     STBUF2   LI,R0    DA(RDBUF2CW)      READ INTO BUFFER 2

     1834         01 006F1           TPX1     EQU      %                 RE-ISSUE COMMAND AND EXIT
     1835   01 006F1    CC000B62              SIO,R0   *TAPEDEV
     1836   01 006F2    68C0067E              BCR,8+4  LPSDRET           EXIT IF ACCEPTED

     1838   01 006F3    32900B62              LW,R9    TAPEDEV           ELSE REPORT SIO-FAILURE
     1839   01 006F4    6AF00783              BAL,R15  SIOFAIL
     1840   01 006F5    680006F1              B        TPX1              AND RETRY
1 C00   20:09 JUN 20,'83    TAPE INTERRUPT SERVICING ROUTINES                                     PAGE   44
A    1842         01 006F6           TOBADTP  EQU      %                 RETRY COUNT EXHAUSTED
     1843   01 006F6    22602EAC              LI,R6    BA(MSGX4)
     1844   01 006F7    6AF005C3              BAL,R15  COMTYPEX          'IRRECOVERABLE TAPE ERROR'

     1846   01 006F8    52000B54              TESTBIT  INDICATE,BDWRT,6,7 SKIP IF WRITING
            01 006F9    21000300 A
            01 006FA    694006FE
     1847   01 006FB    22602EC8              LI,R6    BA(MSGX5)         'READ OPERATION'
     1848   01 006FC    6AF005C7              BAL,R15  COMTYPE
     1849   01 006FD    68000700              B        TPIODIAG

     1851   01 006FE    22602EDC     BDWRT    LI,R6    BA(MSGX5A)        'WRITE OPERATION'
     1852   01 006FF    6AF005C7              BAL,R15  COMTYPE

     1854         01 00700           TPIODIAG EQU      %
     1855   01 00700    6AF00739              BAL,R15  ERRTYPE           ISSUE ERROR STATUS
     1856   01 00701    68000695              B        TPENDTP           AND IGNORE IF RETURNED

     1858         01 00702           REWRT    EQU      %
     1859   01 00702    22000466              LI,R0    DA(BSRCW)         BACKSPACE OVER BAD BLOCK
     1860   01 00703    6AF0081C              BAL,R15  XEQTIO
     1861   01 00704    22000465              LI,R0    DA(ERGCW)         ERASE ONE SECTION
     1862   01 00705    6AF0081C              BAL,R15  XEQTIO

     1864   01 00706    52000B54              TESTBIT  INDICATE,SWRTXB2,7  BRANCH IF WE ARE WRITTING BUF 2
            01 00707    21000100 A
            01 00708    6940070B
     1865   01 00709    2200045E              LI,R0    DA(WRTB1CW)       SET UP TO RE-WRITE BUF 1
     1866   01 0070A    680006F1              B        TPX1              BRANCH TO ISSUE SIO

     1868   01 0070B    22000460     SWRTXB2  LI,R0    DA(WRTB2CW)       SET UP TO RE-WRITE BUF 2
     1869   01 0070C    680006F1              B        TPX1

     1871         01 0070D           TPENDRD  EQU      %                 SUCCESSFUL END OF READ
     1872   01 0070D    21000008 A            CI,R0    X'08'
     1873   01 0070E    68400711              BAZ      %+3               SKIP IF BUFFER TWO
     1874   01 0070F    32000CBF              LW,R0    BUF1WRD1          FETCH COUNT INFORMATION (ONE)
     1875   01 00710    68000712              B        %+2
     1876   01 00711    32000CC7              LW,R0    BUF2WRD1          FETCH COUNT INFORMATION (TWO)

     1878   01 00712    4B000CF6              AND,R0   =X'FFFF'
     1879   01 00713    3A000000 A            LCW,R0   R0
     1880   01 00714    20004000 A            AI,R0    BUFFSIZE          FETCH EXPECTED RBC

     1882   01 00715    32100A65              LW,R1    TSHOLD+1
     1883   01 00716    4B100CF6              AND,R1   =X'FFFF'          FETCH OBSERVED RBC

     1885   01 00717    31000001 A            CW,R0    R1                COMPARE EXPECTED, OBSERVED
     1886   01 00718    68300695              BE       TPENDTP            AND RETURN IF EQUAL

     1888   01 00719    33000B5E              MTW,0    TRETRY            SKIP IF IN RECOVERY
     1889   01 0071A    6930071C              BNEZ     %+2                ELSE UPDATE ERROR COUNT
     1890   01 0071B    33100B5C              MTW,1    TERRORS
     1891   01 0071C    680006D7              B        NOCORR            AND RE-READ THE RECORD
1 C00   20:09 JUN 20,'83    DISC INTERRUPT SERVICING ROUTINES                                     PAGE   45
A    1893         01 0071D           DISCHAND EQU      %                 SERVICE DISC INTERRUPTS
     1894   01 0071D    52000B54              TESTBIT  INDICATE,OKDISC,8,9  BRANCH IF DISC BUSY
            01 0071E    210000C0 A
            01 0071F    69400721
     1895   01 00720    6800067E              B        LPSDRET           NO-RETURN AND IGNORE INTERRUPT

     1897         01 00721           OKDISC   EQU      %                 DISK BUSY - ACCEPT INTERRUPT
     1898   01 00721    72600A66              LB,R6    DSHOLD            FETCH TDV STATUS
     1899   01 00722    21600040 A            CI,R6    X'40'             LOOK FOR FLAWMARK STATUS
     1900   01 00723    694007C8              BANZ     FLAW

     1902   01 00724    70300A68              LCF      CCHOLD
     1903   01 00725    6940072C              BCS,4    DISCERTN          SKIP IF UNUSUAL END

     1905         01 00726           BF       EQU      %
     1906   01 00726    32000B54              OFFBIT   INDICATE,8,9,23   SET DISC NOT BUSY
            01 00727    4B000CF7
            01 00728    35000B54
     1907   01 00729    22000000 A            LI,R0    0
     1908   01 0072A    35000B5F              STW,R0   DRETRY            ZERO DISC RETRY COUNT
     1909   01 0072B    6800067E              B        LPSDRET           EXIT

     1911         01 0072C           DISCERTN EQU      %
     1912   01 0072C    22000478              LI,R0    DA(RESTORE)       SENSE-RESTORE
     1913   01 0072D    6AF0081E              BAL,R15  XEQDIO             IS RECOVERY SEQUENCE

     1915   01 0072E    72600A66              LB,R6    DSHOLD            RETRIEVE TDV STATUS
     1916   01 0072F    21600080 A            CI,R6    X'80'
     1917   01 00730    69400797              BANZ     RUNDISC           BRANCH ON OVER RUN
     1918   01 00731    21600020 A            CI,R6    X'20'
     1919   01 00732    694007AC              BANZ     NOSECT            BRANCH ON INVALID SEEK ADDR
     1920   01 00733    21600010 A            CI,R6    X'10'
     1921   01 00734    694007B8              BANZ     WRPRDSC           BRANCH ON WRITE PROTECT VIOLATION
     1922   01 00735    68000797              B        RUNDISC            ELSE NORMAL RETRY SEQUENCE     *G01

     1924         01 00736           DSTATUS  EQU      %
     1925   01 00736    6AF0076C              BAL,R15  SNSTYPE           DISPLAY SENSE
     1926   01 00737    6AF00739              BAL,R15  ERRTYPE           DISPLAY ERROR STATUS
     1927   01 00738    68000726              B        BF                IGNORE ERROR IF RETURNED

1 C00   20:09 JUN 20,'83    DISC INTERRUPT SERVICING ROUTINES                                     PAGE   46
A    1930         01 00739           ERRTYPE  EQU      %                 GENERAL ERROR STATUS DISPLAY
     1931   01 00739    09F00994              PSW,R15  SUBSTACK          (SAVE LINK)

     1933   01 0073A    22600008 A            LI,R6    8                 SET TEXTC FOR 8 HEX DIGITS
     1934   01 0073B    35600981              STW,R6   WORKT
     1935   01 0073C    32900A67              LW,R9    ASHOLD            FETCH AIO STATUS
     1936   01 0073D    6AF0088B              BAL,R15  PRTHEX
     1937   01 0073E    226030A8              LI,R6    BA(MSGY6)
     1938   01 0073F    6AF005C3              BAL,R15  COMTYPEX
     1939   01 00740    22602607              LI,R6    BA(WORKT)+3
     1940   01 00741    6AF005C7              BAL,R15  COMTYPE

     1942   01 00742    22603100              LI,R6    BA(MSGYA8)        DISPLAY FULL TIO STATUS
     1943   01 00743    6AF005C3              BAL,R15  COMTYPEX
     1944   01 00744    32900A64              LW,R9    TSHOLD            (FIRST 32 BITS)
     1945   01 00745    6AF0088B              BAL,R15  PRTHEX
     1946   01 00746    22602607              LI,R6    BA(WORKT)+3
     1947   01 00747    6AF005C3              BAL,R15  COMTYPEX
     1948   01 00748    22602D94              LI,R6    BA(BLANK)
     1949   01 00749    6AF005C3              BAL,R15  COMTYPEX
     1950   01 0074A    32900A65              LW,R9    TSHOLD+1          (LAST 32 BITS)
     1951   01 0074B    6AF0088B              BAL,R15  PRTHEX
     1952   01 0074C    22602607              LI,R6    BA(WORKT)+3
     1953   01 0074D    6AF005C3              BAL,R15  COMTYPEX                                          *G01

     1955   01 0074E    32900A64              LW,R9    TSHOLD            FETCH CDW                       *G01
     1956   01 0074F    4B900B76              AND,R9   MM16                                              *G01
     1957   01 00750    25900001 A            SLS,R9   1                                                 *G01
     1958   01 00751    92800009 A            LD,R8    *R9                                               *G01
     1959   01 00752    15800A62              STD,R8   CDHOLD                                            *G01

     1961   01 00753    22602EA0              LI,R6    BA(CDWMSG)        DISPLAY FULL CDW                *G01
     1962   01 00754    6AF005C3              BAL,R15  COMTYPEX                                          *G01
     1963   01 00755    32900A62              LW,R9    CDHOLD                                            *G01
     1964   01 00756    6AF0088B              BAL,R15  PRTHEX                                            *G01
     1965   01 00757    22602607              LI,R6    BA(WORKT)+3        FIRST 32 BITS                  *G01
     1966   01 00758    6AF005C3              BAL,R15  COMTYPEX                                          *G01
     1967   01 00759    22602D94              LI,R6    BA(BLANK)                                         *G01
     1968   01 0075A    6AF005C3              BAL,R15  COMTYPEX                                          *G01
     1969   01 0075B    32900A63              LW,R9    CDHOLD+1                                          *G01
     1970   01 0075C    6AF0088B              BAL,R15  PRTHEX                                            *G01
     1971   01 0075D    22602607              LI,R6    BA(WORKT)+3        SECOND 32 BITS                 *G01
     1972   01 0075E    6AF005C7              BAL,R15  COMTYPE                                           *G01

     1974   01 0075F    226030B4              LI,R6    BA(MSGY7)         DISPLAY TDV STATUS
     1975   01 00760    6AF005C3              BAL,R15  COMTYPEX
     1976   01 00761    32900A66              LW,R9    DSHOLD
     1977   01 00762    6AF0088B              BAL,R15  PRTHEX
     1978   01 00763    22602607              LI,R6    BA(WORKT)+3
     1979   01 00764    6AF005C7              BAL,R15  COMTYPE

     1981   01 00765    22600004 A            LI,R6    4                 RESET TEXTC COUNT TO 4 BYTES
     1982   01 00766    35600981              STW,R6   WORKT

     1984   01 00767    6C000000 A            RD,0     0                 CHECK SENSE SWITCHES            *G01
     1985   01 00768    6940076A              BCS,4    %+2                SKIP IF SSW2 IS SET            *G01
     1986   01 00769    0F00090A              XPSD,0   ERRORPSD            ELSE ENTER ERROR PROCESSOR    *G01

     1988   01 0076A    08F00994              PLW,R15  SUBSTACK          RETURN                          *G01
     1989   01 0076B    E800000F A            B        *R15                                              *G01
1 C00   20:09 JUN 20,'83    DISC INTERRUPT SERVICING ROUTINES                                     PAGE   47
A    1991         01 0076C           SNSTYPE  EQU      %                 SENSE INFORMATION DISPLAY
     1992   01 0076C    09F00994              PSW,R15  SUBSTACK

     1994   01 0076D    22602FE8              LI,R6    BA(SNSMSG)        PRINT HEADING MESSAGE
     1995   01 0076E    6AF005C3              BAL,R15  COMTYPEX

     1997   01 0076F    227FFFFC A            LI,R7    -4                PRINT FOUR WORDS                *G01
     1998   01 00770    329E0937              LW,R9    SENSE+4,R7         OF SENSE INFORMATION           *G01
     1999   01 00771    6AF00777              BAL,R15  SNSPRNT                                           *G01
     2000   01 00772    65700770              BIR,R7   %-2                                               *G01

     2002   01 00773    22602D94              LI,R6    BA(BLANK)         RETURN CARRIAGE
     2003   01 00774    6AF005C7              BAL,R15  COMTYPE

     2005   01 00775    08F00994              PLW,R15  SUBSTACK
     2006   01 00776    E800000F A            B        *R15

     2008         01 00777           SNSPRNT  EQU      %
     2009   01 00777    09F00994              PSW,R15  SUBSTACK

     2011   01 00778    6AF0088B              BAL,R15  PRTHEX            CONVERT ONE SENSE WORD
     2012   01 00779    22600008 A            LI,R6    8
     2013   01 0077A    35600981              STW,R6   WORKT             SET FOR EIGHT DIGITS
     2014   01 0077B    22602607              LI,R6    BA(WORKT)+3
     2015   01 0077C    6AF005C3              BAL,R15  COMTYPEX          DISPLAY ONE SENSE WORD
     2016   01 0077D    22602D94              LI,R6    BA(BLANK)
     2017   01 0077E    6AF005C3              BAL,R15  COMTYPEX          DISPLAY A BLANK
     2018   01 0077F    22600004 A            LI,R6    4
     2019   01 00780    35600981              STW,R6   WORKT             SET FOR FOUR DIGITS AGAIN

     2021   01 00781    08F00994              PLW,R15  SUBSTACK
     2022   01 00782    E800000F A            B        *R15

     2024         01 00783           SIOFAIL  EQU      %                 SIO-FAILURE MESSAGE
     2025   01 00783    02200000 A            LCI      0                 (SAVE ALL REGISTERS)
     2026   01 00784    0B000994              PSM,R0   SUBSTACK
     2027   01 00785    22E02FF8              LI,R14   BA(MSGY1)

     2029         01 00786           SIOMANL  EQU      %
     2030   01 00786    6AF0088B              BAL,R15  PRTHEX            UNIT ADDRESS IN R9
     2031   01 00787    35B00982              STW,R11  WORK
     2032   01 00788    22602607              LI,R6    BA(WORKT)+3       DISPLAY UNIT ADDRESS
     2033   01 00789    6AF005C3              BAL,R15  COMTYPEX
     2034   01 0078A    3260000E A            LW,R6    R14                WAIT FOR OPERATOR RESPONSE
     2035   01 0078B    6AF00815              BAL,R15  MSGOPR

     2037   01 0078C    02200000 A            LCI      0
     2038   01 0078D    0A000994              PLM,R0   SUBSTACK
     2039   01 0078E    E800000F A            B        *R15

     2041         01 0078F           TIOFAIL  EQU      %                 MANUAL OR NOT OPERATIONAL
     2042   01 0078F    02200000 A            LCI      0
     2043   01 00790    0B000994              PSM,R0   SUBSTACK
     2044   01 00791    22E03020              LI,R14   BA(MSGY2)
     2045   01 00792    68000786              B        SIOMANL

     2047         01 00793           WRTFAIL  EQU      %                 WRITE PROTECTION ERROR
     2048   01 00793    02200000 A            LCI      0
     2049   01 00794    0B000994              PSM,R0   SUBSTACK
     2050   01 00795    22E03044              LI,R14   BA(MSGY3)
     2051   01 00796    68000786              B        SIOMANL
1 C00   20:09 JUN 20,'83    DISC INTERRUPT SERVICING ROUTINES                                     PAGE   48
A    2053   01 00797    33000B5F     RUNDISC  MTW,0    DRETRY            SKIP IF ALREADY IN RECOVERY
     2054   01 00798    6930079A              BNEZ     %+2
     2055   01 00799    33100B5D              MTW,1    DERRORS            ELSE UPDATE ERROR COUNT

     2057   01 0079A    33100B5F              MTW,1    DRETRY            UPDATE RETRY COUNT
     2058   01 0079B    32600B5F              LW,R6    DRETRY             THEN TEST FOR MAXIMUM
     2059   01 0079C    21600008 A            CI,R6    8
     2060   01 0079D    683007A9              BE       DDONE             SKIP IF ERROR RECOVERY FAILED

     2062   01 0079E    52000B54              TESTBIT  INDICATE,DOBUF2,9 BRANCH IF WE ARE USING BUFFER 2
            01 0079F    21000040 A
            01 007A0    694007A3
     2063   01 007A1    2200065E              LI,R0    DA(BUF1CW1)       SET TO USE BUFFER 1
     2064   01 007A2    680007A4              B        DISCGO            GO ISSUE ORDER

     2066   01 007A3    22000662     DOBUF2   LI,R0    DA(BUF2CW1)       SET TO USE BUFFER 2

     2068   01 007A4    CC000B61     DISCGO   SIO,R0   *DISCDEV
     2069   01 007A5    68C0067E              BCR,8+4  LPSDRET           SKIP IF ACCEPTED

     2071   01 007A6    32900B61              LW,R9    DISCDEV           ELSE REPORT SIO-FAILURE
     2072   01 007A7    6AF00783              BAL,R15  SIOFAIL
     2073   01 007A8    680007A4              B        DISCGO            THEN RETRY

     2075   01 007A9    22602F20     DDONE    LI,R6    BA(MSGX8)
     2076   01 007AA    6AF005C7              BAL,R15  COMTYPE           IRRECOVERABLE ERROR ON DISC
     2077   01 007AB    68000736              B        DSTATUS

     2079   01 007AC    226030DC     NOSECT   LI,R6    BA(MSGY9)         PROGRAMMING ERROR STATUS
     2080   01 007AD    6AF005C3              BAL,R15  COMTYPEX

     2082   01 007AE    52000B54              TESTBIT  INDICATE,DKSEC1,8  BRANCH IF BUF 1 IN USE
            01 007AF    21000080 A
            01 007B0    694007B6
     2083   01 007B1    32900CC8              LW,R9    BUF2WRD2          GET SEEK ADDR

     2085   01 007B2    6AF00777     ABTNOSEC BAL,R15  SNSPRNT           CONVERT AND DISPLAY
     2086   01 007B3    22602D94              LI,R6    BA(BLANK)          SEEK DATA AND WARNING
     2087   01 007B4    6AF005C7              BAL,R15  COMTYPE             THEN ABORT
     2088   01 007B5    68000736              B        DSTATUS

     2090   01 007B6    32900CC0     DKSEC1   LW,R9    BUF1WRD2          GET SEEK
     2091   01 007B7    680007B2              B        ABTNOSEC          BRANCH TO NOTIFY OPERATOR

     2093   01 007B8    2260310C     WRPRDSC  LI,R6    BA(MSGYA9)        DISK WRITE PROTECTED
     2094   01 007B9    6AF005C3              BAL,R15  COMTYPEX

     2096   01 007BA    52000B54              TESTBIT  INDICATE,WRD1,8    BRANCH IF BUF 1 IN USE
            01 007BB    21000080 A
            01 007BC    694007C5
     2097   01 007BD    22000662              LI,R0    DA(BUF2CW1)       SET R0 FOR REISSUE BUFFER 2 COMMDS
     2098   01 007BE    32900CC8              LW,R9    BUF2WRD2          GET SEEK ADDR

     2100   01 007BF    6AF0088B     WRABT    BAL,R15  PRTHEX            CONVERT FOR PRINTING
     2101   01 007C0    22602607              LI,R6    BA(WORKT)+3
     2102   01 007C1    6AF005C7              BAL,R15  COMTYPE           DISPLAY SEEK ADDRESS
     2103   01 007C2    32900B61              LW,R9    DISCDEV
     2104   01 007C3    6AF00793              BAL,R15  WRTFAIL           INFORM, WAIT FOR OPERATOR
     2105   01 007C4    680007A4              B        DISCGO             THEN RE-ISSUE THE COMMAND

     2107   01 007C5    2200065E     WRD1     LI,R0    DA(BUF1CW1)       SET R0 FOR REISSUE BUFFER 1 COMMDS
     2108   01 007C6    32900CC0              LW,R9    BUF1WRD2          GET SEEK ADDR
     2109   01 007C7    680007BF              B        WRABT             GO DECODE
1 C00   20:09 JUN 20,'83    DISC INTERRUPT SERVICING ROUTINES                                     PAGE   49
A    2111         01 007C8           FLAW     EQU      %
     2112   01 007C8    52000B54              TESTBIT  INDICATE,FLAW1,8  SKIP IF FLAW WAS BUFFER 1
            01 007C9    21000080 A
            01 007CA    694007CE

     2114         01 007CB           FLAW2    EQU      %                 FLAW WAS BUFFER 2
     2115   01 007CB    02200040 A            LCI      4                 FETCH SEEK AND OPERATION
     2116   01 007CC    2A000CC4              LM,R0    BUF2CW1            IOCDS
     2117   01 007CD    680007D0              B        FLAW0

     2119         01 007CE           FLAW1    EQU      %                 FLAW WAS BUFFER 1
     2120   01 007CE    02200040 A            LCI      4                 FETCH SEEK AND OPERATION
     2121   01 007CF    2A000CBC              LM,R0    BUF1CW1            IOCDS

     2123         01 007D0           FLAW0    EQU      %
     2124   01 007D0    15000902              STD,R0   CWHDRR            SAVE SEEK IOCD

     2126   01 007D1    22000481              LI,R0    DA(CWHDRR)        READ ENOGUGH HEADERS
     2127   01 007D2    6AF0081E              BAL,R15  XEQDIO             TO SPILL INTO SECOND TRACK

     2129   01 007D3    32100B49              LW,R1    COUNT             COMPUTE SIZE OF TRANSFER
     2130   01 007D4    36100B4C              DW,R1    COUNTSEC          (IN SECTOR UNITS)
     2131   01 007D5    31100B50              CW,R1    SECTMAX
     2132   01 007D6    682007EC              BLE      FLAWONE           SKIP IF ONLY ONE SECTOR
1 C00   20:09 JUN 20,'83    DISC INTERRUPT SERVICING ROUTINES                                     PAGE   50
A    2134                            * FLAW ROUTINE FOR MULTIPLE-TRACK TRANSFERS
     2135         01 007D7           FLAWTWO  EQU      %
     2136   01 007D7    352008F8              STW,R2   BUFCMDLST+2       SAVE ORDER BYTE AND BA(BUFF)

     2138   01 007D8    20201800 A            AI,R2    6*1024            POINT TO NEXT TRACK
     2139   01 007D9    352008FC              STW,R2   BUFCMDLST+6        AND SAVE (WONT CYL OVERFLOW)

     2141   01 007DA    22102440              LI,R1    BA(HDRDATA1)      POINT TO HEADER BUFFER
     2142   01 007DB    2220090E              LI,R2    FLSEEK1           POINT TO NEW SEEK ADDRESS

     2144   01 007DC    72020000 A            LB,R0    0,R1              FETCH FLAW BYTE (TRACK ONE)
     2145   01 007DD    683007E1              BEZ      NOFL1              SKIP IF NO FLAWMARK HERE

     2147   01 007DE    20100005 A            AI,R1    5                 POINT TO ALT CYL BYTE
     2148   01 007DF    6AE007F2              BAL,R14  LDFL               MOVE TO NEW SEEK ADDRESS
     2149   01 007E0    680007E2              B        FL2CK

     2151         01 007E1           NOFL1    EQU      %
     2152   01 007E1    6AE0080D              BAL,R14  LDNR              LOAD ORIGINAL SEEK

     2154         01 007E2           FL2CK    EQU     %
     2155   01 007E2    22102470              LI,R1    BA(HDRDATA2)      POINT TO HEADER BUFFER (TWO)
     2156   01 007E3    2220090F              LI,R2    FLSEEK2           POINT TO NEW SEEK ADDRESS (TWO)

     2158   01 007E4    72020000 A            LB,R0    0,R1              SKIP IF NO FLAWMARK HERE
     2159   01 007E5    683007E9              BEZ      NOFL2

     2161   01 007E6    20100005 A            AI,R1    5                 POINT TO ALT CYL BYTE
     2162   01 007E7    6AE007F2              BAL,R14  LDFL               MOVE ALTERNATE TO NEW SEEK
     2163   01 007E8    680007EA              B        FLCOMP

     2165         01 007E9           NOFL2    EQU     %
     2166   01 007E9    6AE0080D              BAL,R14  LDNR               USE ORIGINAL SEEK

     2168         01 007EA           FLCOMP   EQU     %
     2169   01 007EA    2200047B              LI,R0    DA(BUFCMDLST)     RE-ISSUE COMMANDS
     2170   01 007EB    680007A4              B        DISCGO

     2172                            * FLAW ROUTINE FOR SINGLE-TRACK TRANSFERS
     2173         01 007EC           FLAWONE  EQU      %
     2174   01 007EC    15200900              STD,R2   BUFCMDLSTX+2      SAVE OPERATION IOCD

     2176   01 007ED    2220090E              LI,R2    FLSEEK1           POINT TO NEW SEEK
     2177   01 007EE    22102445              LI,R1    BA(HDRDATA1)+5    POINT TO HEADER BUFFER
     2178   01 007EF    6AE007F2              BAL,R14  LDFL              MOVE ALTERNATE TO SEEK

     2180   01 007F0    2200047F              LI,R0    DA(BUFCMDLSTX)    RE-ISSUE ORGINAL REQUEST
     2181   01 007F1    680007A4              B        DISCGO             WITH NEW SEEK ADDRESS
1 C00   20:09 JUN 20,'83    DISC INTERRUPT SERVICING ROUTINES                                     PAGE   51
A    2183         01 007F2           LDFL     EQU      %                 GET ALTERNATE SEEK ADDRESS
     2184   01 007F2    72420000 A            LB,R4    0,X1               FROM SECTOR-HEADER
     2185   01 007F3    20100001 A            AI,X1    1

        1*  01 007F4    72520000 A            LB,R5    0,X1              GET ALT TRACK INFORMATION       *H01

        3*  01 007F5    33000B74              MTW,0    TCPVFLAG          SKIP IF NEW ALT TRACK           *H01
        4*  01 007F6    693007FF              BNEZ     LDFL0              FORMAT IN USE                  *H01

        6*  01 007F7    4B500B75              AND,R5   MM5               CLEAR ALT CYLINDER              *H01

     2190   01 007F8    25400108 A            SLD,R4   8                 POSITION CYL AND TRK
     2191   01 007F9    25400008 A            SLS,R4   8
     2192   01 007FA    30400005 A            AW,R4    R5

     2194   01 007FB    72520000 A            LB,X5    0,X1              GET ALT TRK AND EXTRA CYL BITS
     2195   01 007FC    2550007B A            SLS,X5   -5                (CLEAR TRK)
     2196   01 007FD    304A0805              AW,R4    ALTCYLS,X5        RECOVER EXTRA CYL BITS PROPERLY
        1*  01 007FE    68000803              B        LDFL1                                             *H01

        1*  01 007FF    25500278 A   LDFL0    SCS,R5   -8                MOVE 11-BIT CYLINDER            *H01
        2*  01 00800    25400103 A            SLD,R4   3                  AND 5-BIT TRACK                *H01

        4*  01 00801    2550007D A            SLS,R5   -3                TO CREATE PROPER                *H01
        5*  01 00802    25400110 A            SLD,R4   16                 4-BYTE SEEK                    *H01

        7*  01 00803    B5400002 A   LDFL1    STW,R4   *R2               SAVE ALTERNATE SEEK             *H01
     2199   01 00804    E800000E A            B        *R14

     2201         01 00805           ALTCYLS  EQU      %
     2202   01 00805    00000000 A            GEN,16,16 0,0              0
     2203   01 00806    04000000 A            GEN,16,16 1024,0           1
     2204   01 00807    02000000 A            GEN,16,16 512,0            2
     2205   01 00808    06000000 A            GEN,16,16 512+1024,0       3
     2206   01 00809    01000000 A            GEN,16,16 256,0            4
     2207   01 0080A    05000000 A            GEN,16,16 256+1024,0       5
     2208   01 0080B    03000000 A            GEN,16,16 256+512,0        6
     2209   01 0080C    07000000 A            GEN,16,16 256+512+1024,0   7

     2211         01 0080D           LDNR     EQU      %                 GET NORMAL SEEK ADDRESS
     2212   01 0080D    22300003 A            LI,X3    3                  FROM SECTOR-HEADER
     2213   01 0080E    2510007E A            SLS,X1   -2

     2215   01 0080F    F2060001 A            LB,R0    *X1,X3            FETCH BYTE OF ORIGINAL SEEK
     2216   01 00810    75060004 A            STB,R0   R4,X3             MOVE TO REGISTER 4
     2217   01 00811    6430080F              BDR,X3   %-2

     2219   01 00812    25400008 A            SLS,R4   8                 POSITION (AND SECTOR BECOMES 0)
     2220   01 00813    B5400002 A            STW,R4   *R2               MOVE TO NEW SEEK

     2222   01 00814    E800000E A            B        *R14
1 C00   20:09 JUN 20,'83    GENERAL I/O SUBROUTINES                                               PAGE   52
A    2224         01 00815           MSGOPR   EQU      %                 REQUEST KEY-IN FROM OPERATOR
     2225   01 00815    09F00994              PSW,R15  SUBSTACK

     2227   01 00816    6AF005C3              BAL,R15  COMTYPEX          ISSUE THE MESSAGE

     2229   01 00817    6AF005D6              BAL,R15  COMREAD           GATHER THE RESPONSE

     2231   01 00818    08F00994              PLW,R15  SUBSTACK
     2232   01 00819    E800000F A            B        *R15

     2234         01 0081A           XEQCIO   EQU      %                 GENERAL CONSOLE I/O
     2235   01 0081A    32900B63              LW,R9    TYPEDEV            WITH TIO-LOOP WAIT
     2236   01 0081B    6800081F              B        XEQGIO

     2238         01 0081C           XEQTIO   EQU      %                 GENERAL TAPE I/O
     2239   01 0081C    32900B62              LW,R9    TAPEDEV            WITH TIO-LOOP WAIT
     2240   01 0081D    6800081F              B        XEQGIO

     2242         01 0081E           XEQDIO   EQU      %                 GENERAL DISK I/O
     2243   01 0081E    32900B61              LW,R9    DISCDEV            WITH TIO-LOOP WAIT

     2245         01 0081F           XEQGIO   EQU      %                 GENERAL I/O
     2246   01 0081F    02200020 A            LCI      2                  WITH TIO-LOOP WAIT
     2247   01 00820    0BE00994              PSM,R14  SUBSTACK

     2249   01 00821    CC000009 A   XEQG1    SIO,R0   *R9               START CURRENT I/O
     2250   01 00822    68C00825              BCR,8+4  XEQG0

     2252   01 00823    6AF00783              BAL,R15  SIOFAIL           REPORT SIO-FAILURE
     2253   01 00824    68000821              B        XEQG1             AND RETRY

     2255   01 00825    6AF00829     XEQG0    BAL,R15  XEQLUP            WAIT FOR I/O READY

     2257   01 00826    02200020 A            LCI      2
     2258   01 00827    0AE00994              PLM,R14  SUBSTACK
     2259   01 00828    E800000F A            B        *R15
1 C00   20:09 JUN 20,'83    GENERAL I/O SUBROUTINES                                               PAGE   53
A    2261         01 00829           XEQLUP   EQU      %                 GENERAL TIO-LOOP WAIT
     2262   01 00829    09F00994              PSW,R15  SUBSTACK

     2264         01 0082A           XEQLUP0  EQU      %
     2265   01 0082A    22E003E8 A            LI,R14   1000              DELAY ONE MILLISECOND TO
     2266   01 0082B    64E0082B              BDR,R14  %                  AVOID MIOP LOADING

     2268   01 0082C    31900B62              CW,R9    TAPEDEV
     2269   01 0082D    69300830              BNE      XEQLUP2           CONTINUE IF NOT TAPE

     2271   01 0082E    21000464              CI,R0    DA(OFFLINE)       SKIP MANUAL TEST
     2272   01 0082F    68300836              BE       XEQLUP1            IF UNLOADING THIS TAPE

     2274         01 00830           XEQLUP2  EQU      %
     2275   01 00830    CDF00009 A            TIO,R15  *R9               POLL DEVICE FOR STATUS
     2276   01 00831    68C00836              BCR,8+4  XEQLUP1            AND SKIP IF READY

     2278   01 00832    7020000F A            LC       R15               OBTAIN OPERATIONAL STATUS
     2279   01 00833    6910082A              BCS,1    XEQLUP0            SKIP IF NOT MANUAL

     2281   01 00834    6AF0078F              BAL,R15  TIOFAIL           ELSE ISSUE MANUAL WARNING
     2282   01 00835    6800082A              B        XEQLUP0            CONTINUE STATUS CHECKING

     2284         01 00836           XEQLUP1  EQU      %
     2285   01 00836    08F00994              PLW,R15  SUBSTACK
     2286   01 00837    E800000F A            B        *R15
1 C00   20:09 JUN 20,'83    ILLEGAL TRAP HANDLER                                                  PAGE   54
A    2288         01 00838           DUMP     EQU      %
     2289   01 00838    02200000 A            LCI      0
     2290   01 00839    2B000937              STM,R0   CPSAVER

     2292   01 0083A    CF000B63              HIO,0    *TYPEDEV          STOP CONSOLE

     2294   01 0083B    12000994              LD,R0    SUBSTACK          SAVE SYSTEM STACK
     2295   01 0083C    15000978              STD,R0   CPSAVES
     2296   01 0083D    1200097A              LD,R0    CPSTACK           SET SPECIAL SYSTEM STACK
     2297   01 0083E    15000994              STD,R0   SUBSTACK

     2299   01 0083F    22602D90              LI,R6    BA(NEWLINE)       SKIP EXTRA LINE
     2300   01 00840    6AF005C7              BAL,R15  COMTYPE
     2301   01 00841    226032A0              LI,R6    BA(TRAPMSG0)      ISSUE TRAP WARNING
     2302   01 00842    6AF005C3              BAL,R15  COMTYPEX

     2304   01 00843    3290090A              LW,R9    ERRORPSD          CONVERT AND DISPLAY PSW1
     2305   01 00844    6AF00777              BAL,R15  SNSPRNT
     2306   01 00845    3290090B              LW,R9    ERRORPSD+1        CONVERT AND DISPLAY PSW2
     2307   01 00846    6AF00777              BAL,R15  SNSPRNT

     2309   01 00847    22602D94              LI,R6    BA(BLANK)         FINALIZE DISPLAY LINE
     2310   01 00848    6AF005C7              BAL,R15  COMTYPE

     2312   01 00849    226032C0              LI,R6    BA(TRAPMSG1)      QUERY THE OPERATOR ABOUT
     2313   01 0084A    6AF00815              BAL,R15  MSGOPR            WHAT TO DO NEXT AND WAIT

     2315   01 0084B    72000A4A              LB,R0    INPUT             GET RESPONSE BYTE
     2316   01 0084C    210000C6 A            CI,R0    'F'
     2317   01 0084D    69300854              BNE      DUMP0             SKIP IF NOT FINALIZE

     2319   01 0084E    32000B54              OFFBIT   INDICATE,4,5,6,7,8,9,23 CLEAR ALL BUSY BITS
            01 0084F    4B000CF8
            01 00850    35000B54
     2320   01 00851    CF000B62              HIO,R0   *TAPEDEV           RESET TAPE
     2321   01 00852    CF000B61              HIO,R0   *DISCDEV            RESET DISK
     2322   01 00853    0E30097E              LPSD,3   ERRPSD:F             ABORT AND FINALIZE TAPES

     2324   01 00854    210000C3 A   DUMP0    CI,R0    'C'
     2325   01 00855    6830085C              BE       DUMP1             SKIP IF CONTINUE

     2327   01 00856    32000B54              OFFBIT   INDICATE,4,5,6,7,8,9,23 CLEAR ALL BUSY BITS
            01 00857    4B000CF8
            01 00858    35000B54
     2328   01 00859    CF000B62              HIO,R0   *TAPEDEV           RESET TAPE
     2329   01 0085A    CF000B61              HIO,R0   *DISCDEV            RESET DISK
     2330   01 0085B    0E30097C              LPSD,3   ERRPSD:X             ABORT WITHOUT FINALIZING

     2332   01 0085C    12000978     DUMP1    LD,R0    CPSAVES           RESTORE SYSTEM STACK
     2333   01 0085D    15000994              STD,R0   SUBSTACK

     2335   01 0085E    02200000 A            LCI      0                 RESTORE REGISTERS
     2336   01 0085F    2A000937              LM,R0    CPSAVER
     2337   01 00860    0E30090A              LPSD,3   ERRPSD:C          EXIT LEVEL AND CONTINUE
1 C00   20:09 JUN 20,'83    DATA CONVERSION SUBROUTINES                                           PAGE   55
A    2339                            * CONVERT FROM EBCDIC TO BINARY
     2340                            *
     2341                            *       AT ENTRY:  R1 DIGIT COUNT
     2342                            *                  R6 ADDRESS OF DIGIT
     2343                            *
     2344                            *        AT EXIT:  R9 RIGHT JUSTIFIED BINARY VALUE

     2346         01 00861           CPTOHEX  EQU      %
     2347   01 00861    22500008 A            LI,R5    8                 SET DIGITS NOT CONVERTED
     2348   01 00862    22900000 A            LI,R9    0                 PRESET RESULT TO  ZERO

     2350         01 00863           CPPH     EQU      %
     2351   01 00863    728C0000 A            LB,R8    0,R6              GET NEXT CHARACTER

     2353   01 00864    21800060 A            CI,R8    '-'               TEST FOR - FIELD DELIMITER
     2354   01 00865    68300887              BE       CPPHO6
     2355   01 00866    21800040 A            CI,R8    ' '               CHECK FOR BLANK DELIMITER
     2356   01 00867    68300887              BE       CPPHO6
     2357   01 00868    2180006B A            CI,R8    ','               TEST FOR , FIELD DELIMITER
     2358   01 00869    68300887              BE       CPPHO6
     2359   01 0086A    21800015 A            CI,R8    X'15'              TEST FOR NL FIELD DELIMITER
     2360   01 0086B    68300887              BE       CPPHO6
     2361   01 0086C    2180004B A            CI,R8    '.'               TEST FOR . FIELD DELIMITER
     2362   01 0086D    68300882              BE       CPPHX

     2364   01 0086E    218000C1 A            CI,R8    'A'               LOOK FOR LEGAL HEX
     2365   01 0086F    E910000F A            BL       *R15               DIGITS AND EXIT IF NOT
     2366   01 00870    218000C6 A            CI,R8    'F'
     2367   01 00871    68200876              BLE      CPPHP
     2368   01 00872    218000F0 A            CI,R8    '0'
     2369   01 00873    E910000F A            BL       *R15
     2370   01 00874    218000F9 A            CI,R8    '9'
     2371   01 00875    E920000F A            BG       *R15

     2373         01 00876           CPPHP    EQU      %
     2374   01 00876    218000F0 A            CI,R8    240               TEST FOR NUMERIC
     2375   01 00877    68100879              BGE      %+2               BRANCH IF DIGIT (0-9)
     2376   01 00878    208FFF49 A            AI,R8    X'A'-C'A'         CONVERT TO HEX
     2377   01 00879    2580027C A            SCS,R8   -4                MOVE DIGIT
     2378   01 0087A    25800304 A            SCD,R8   4                  INTO LO END OF R9
     2379   01 0087B    205FFFFF A            AI,R5    -1                DECREMENT DIGITS NOT CONVERTED
     2380   01 0087C    20600001 A            AI,R6    1                 INCREMENT CHARACTER POINTER
     2381   01 0087D    64100863              BDR,R1   CPPH              CONTINUE PROCESSING
     2382   01 0087E    E800000F A            B        *R15              RETURN

     2384         01 0087F           CPPHO    EQU      %
     2385   01 0087F    21500008 A            CI,R5    8                 CHECK IF ANY DIGITS PROCESSED
     2386   01 00880    68300889              BE       CPPHD             NO- RESTART
     2387   01 00881    E800000F A            B        *R15              RETURN

     2389         01 00882           CPPHX    EQU      %
     2390   01 00882    20600001 A            AI,R6    1                 INCREMENT CHARACTER POINTER
     2391   01 00883    728C0000 A            LB,R8    0,R6              PICK UP NEXT CHARACTER
     2392   01 00884    2160004B A            CI,R6    '.'               CHECK FOR MORE PERIODS
     2393   01 00885    68300882              BE       CPPHX             YES
     2394   01 00886    6800087F              B        CPPHO             NO MORE

     2396         01 00887           CPPHO6   EQU      %
     2397   01 00887    20600001 A            AI,R6    1                 INCREMENT CHARACTER POINTER
     2398   01 00888    6800087F              B        CPPHO

     2400         01 00889           CPPHD    EQU      %
     2401   01 00889    64100863              BDR,R1   CPPH
     2402   01 0088A    E800000F A            B        *R15              RETURN
1 C00   20:09 JUN 20,'83    DATA CONVERSION SUBROUTINES                                           PAGE   56
A    2404                            * HEX (R9) TO EBCDIC (R10, R11, AND WORK)
     2405                            *
     2406         01 0088B           PRTHEX   EQU      %
     2407   01 0088B    022000E0 A            LCI      14
     2408   01 0088C    0BC00994              PSM,R12  SUBSTACK

     2410   01 0088D    22100000 A            LI,X1    0                 SET
     2411   01 0088E    22200008 A            LI,X2    8                 INDEXES

     2413   01 0088F    22800000 A   XD1      LI,R8    0                 CLEAR R8
     2414   01 00890    25800104 A            SLD,R8   4                 GET MSD FROM R9 INTO R8 LSD
     2415   01 00891    21800009 A            CI,R8    9                 TEST FOR NUMERIC
     2416   01 00892    69200894              BG       %+2               BRANCH IF A-F
     2417   01 00893    20800039 A            AI,R8    57                ADD 57 AND 183 IF NUMERIC
     2418   01 00894    208000B7 A            AI,R8    183               ADD 183 FOR ALPHA
     2419   01 00895    7582000A A            STB,R8   R10,X1            STORE RESULTS IN R10 & R11
     2420   01 00896    20100001 A            AI,X1    1                 BUMP OUTPUT INDEX
     2421   01 00897    6420088F              BDR,X2   XD1               CONVERT 8 DIGITS FOR PRINTING

     2423   01 00898    15A00982              STD,R10  WORK              RESULT GOES TO COMMAND BUFFER

     2425   01 00899    022000E0 A            LCI      14
     2426   01 0089A    0AC00994              PLM,R12  SUBSTACK
     2427   01 0089B    E800000F A            B        *R15              RETURN

     2429                            * BIN (R5) TO DECIMAL (WORK)
     2430                            *
     2431         01 0089C           PRTDEC   EQU      %
     2432   01 0089C    02200030 A            LCI      3
     2433   01 0089D    0B200994              PSM,R2   SUBSTACK
     2434   01 0089E    22200007 A            LI,R2    7                 SET INDEX TO STORE IN BYTE 7
     2435   01 0089F    22300008 A            LI,R3    8                 EXECUTE 8 TIMES
     2436   01 008A0    22400000 A            LI,R4    0                 CLEAR REMAINDE REG

     2438   01 008A1    36400B6A     DECX     DW,R4    TEN               DIVIDE BY 10 (CONVERT TO BASE 10)
     2439   01 008A2    204000F0 A            AI,R4    240               SET EBCDIC ZONE (F)
     2440   01 008A3    75440982              STB,R4   WORK,X2           STORE IN OUTPUT
     2441   01 008A4    22400000 A            LI,R4    0                 CLEAR REMAINDER
     2442   01 008A5    202FFFFF A            AI,X2    -1                REDUCE OUTPUT INDEX
     2443   01 008A6    31500004 A            CW,R5    R4                TEST FOR ZERO QUOTENT
     2444   01 008A7    683008AC              BE       PAD               GO PAD HI-ORDER PSNS WITH BLANKS
     2445   01 008A8    643008A1              BDR,R3   DECX              CONVERT UP TO 8 OUTPUT DIGITS

     2447   01 008A9    02200030 A            LCI      3
     2448   01 008AA    0A200994              PLM,R2   SUBSTACK
     2449   01 008AB    E800000F A            B        *R15              RETURN

     2451         01 008AC           PAD      EQU      %
     2452   01 008AC    203FFFFF A            AI,R3    -1                REDUCE PASS COUNT
     2453   01 008AD    22400040 A            LI,R4    64                GET BLANK PAD CHARACTER

     2455   01 008AE    75440982     PAD1     STB,R4   WORK,X2           STORE IN NEXT AVAILABLE OUTPUT PSN
     2456   01 008AF    202FFFFF A            AI,X2    -1                DECREMENT OUTPUT INDEX
     2457   01 008B0    643008AE              BDR,R3   PAD1              PAD ALL HI-ORDER PSNS

     2459   01 008B1    02200030 A            LCI      3
     2460   01 008B2    0A200994              PLM,R2   SUBSTACK
     2461   01 008B3    E800000F A            B        *R15              RETURN
1 C00   20:09 JUN 20,'83    CHANNEL PROGRAMS                                                      PAGE   57
A    2463                                     BOUND    8
     2464   01 008B4    020032FC N   RDBUF1CW IOPCW    X'02',BUF1WRD1,X'8C',16        BUFFER 1 READ
                        8C000010
     2465   01 008B6    020033E4 N            IOPCW    X'02',ENDLAB,X'1E',BUFFSIZE
                        1E004000
     2466   01 008B8    0200331C N   RDBUF2CW IOPCW    X'02',BUF2WRD1,X'8C',16        BUFFER 2 READ
                        8C000010
     2467   01 008BA    020073E4 N            IOPCW    X'02',ENDLAB+BUFFSIZE/4,X'1E',BUFFSIZE
                        1E004000
     2468   01 008BC    010032FC N   WRTB1CW  IOPCW    X'01',BUF1WRD1,X'8C',16        BUFFER 1 WRITE
                        8C000010
     2469   01 008BE    010033E4 N            IOPCW    X'01',ENDLAB,X'1C',BUFFSIZE
                        1C004000
     2470   01 008C0    0100331C N   WRTB2CW  IOPCW    X'01',BUF2WRD1,X'8C',16        BUFFER 2 WRITE
                        8C000010
     2471   01 008C2    010073E4 N            IOPCW    X'01',ENDLAB+BUFFSIZE/4,X'1C',BUFFSIZE
                        1C004000
     2472   01 008C4    02002608 N   REOFCW   IOPCW    X'02',WORK,X'0A',8
                        0A000008
     2473   01 008C6    33000000 A   REWCW    IOPCW    X'33',0,0,0
                        00000000
     2474   01 008C8    23000000 A   OFFLINE  IOPCW    X'23',0,0,0
                        00000000
     2475   01 008CA    63000000 A   ERGCW    IOPCW    X'63',0,0,0
                        00000000
     2476   01 008CC    4B000000 A   BSRCW    IOPCW    X'4B',0,0,0
                        00000000
     2477   01 008CE    04002D48 N   SENSECW  IOPCW    X'04',SENSEDTA,0,1
                        00000001
     2478   01 008D0    03002D48 N   SETCORR  IOPCW    X'03',SENSEDTA,0,1
                        00000001
     2479   01 008D2    73000000 A   WTMCW    IOPCW    X'73',0,0,0
                        00000000
     2480   01 008D4    53000000 A   FSFCW    IOPCW    X'53',0,0,0
                        00000000
     2481   01 008D6    43000000 A   FSRCW    IOPCW    X'43',0,0,0
                        00000000
     2482   01 008D8    010024BC N   EORCW    IOPCW    X'01',OEORF,0,16
                        00000010
     2483   01 008DA    020029B0 N   RDDIR    IOPCW    X'02',SAVEDATE,X'1C',STCKSIZE*4+16
                        1C0000D8
     2484   01 008DC    010029B0 N   WRDIRTRY IOPCW    X'01',SAVEDATE,X'1C',STCKSIZE*4+16
                        1C0000D8
     2485   01 008DE    010024AC N   EORWRT   IOPCW    X'01',OEORR,0,16
                        00000010
     2486   01 008E0    05002380 N   TYPECW   IOPCW    X'05',TYPECW,0,1
                        00000001
     2487   01 008E2    00002D91 N            IOPCW    0,BA(NEWLINE)+1,0,1
                        00000001
     2488   01 008E4    86002928 N   READCW   IOPCW    X'86',INPUT,0,50
                        00000032
     2489   01 008E6    01001958 N   BOOTRITE IOPCW    X'01',MTBOOT,X'1C',BOOTSIZ
                        1C000058
     2490   01 008E8    01000000 A   PGMRITE  IOPCW    X'01',0,X'1C',0
                        1C000000
     2491   01 008EA    0B0024A0 N   M800CW   IOPCW    X'0B',MOD800,0,1
                        00000001
     2492   01 008EC    0B0024A4 N   M1600CW  IOPCW    X'0B',MOD1600,0,1
                        00000001
     2493   01 008EE    0B0024A8 N   M6250CW  IOPCW    X'0B',MOD6250,0,1
                        00000001
1 C00   20:09 JUN 20,'83    CHANNEL PROGRAMS                                                      PAGE   58
A    2495   01 008F0    040024CC N   RESTORE  IOPCW    X'04',SENSE,X'22',16 GATHER SENSE INFORMATION
                        22000010
     2496   01 008F2    33000000 A            IOPCW    X'33',0,X'20',0      RESTORE THE CARRIAGE ARM
                        20000000
     2497   01 008F4    0A002440 N            IOPCW    X'0A',HDRDATA1,0,8   READ EXACTLY ONE HEADER
                        00000008

     2499         01 008F6           BUFCMDLST EQU     %                 ALTERNATE COMMAND LIST:
     2500   01 008F6    03002438              GEN,8,24 X'03',BA(FLSEEK1)  DOUBLE-TRACK TRANSFERS
     2501   01 008F7    22000004 A            GEN,8,24 X'22',4
     2502   01 008F8    00000000 A            GEN,8,24 0,0
     2503   01 008F9    2E001800 A            GEN,8,24 X'2E',6*1024
     2504   01 008FA    0300243C              GEN,8,24 X'03',BA(FLSEEK2)
     2505   01 008FB    22000004 A            GEN,8,24 X'22',4
     2506   01 008FC    00000000 A            GEN,8,24 0,0
     2507   01 008FD    1E001800 A            GEN,8,24 X'1E',6*1024

     2509         01 008FE           BUFCMDLSTX EQU    %                 ALTERNATE COMMAND LIST:
     2510   01 008FE    03002438              GEN,8,24 3,BA(FLSEEK1)      SINGLE-TRACK TRANSFERS
     2511   01 008FF    22000004 A            GEN,8,24 X'22',4
     2512   01 00900    00000000 A            GEN,8,24 0,0
     2513   01 00901    00000000 A            GEN,8,24 0,0

     2515         01 00902           CWHDRR   EQU      %                 READ HEADERS:
     2516   01 00902    00000000 A            GEN,8,24 0,0                ONLY 7 SECTORS NECESSARY
     2517   01 00903    00000000 A            GEN,8,24 0,0
     2518   01 00904    0A002440              GEN,8,24 X'0A',BA(HDRDATA1)
     2519   01 00905    0A000038 A            GEN,8,24 X'0A',7*8
1 C00   20:09 JUN 20,'83    DOUBLE WORD CONSTANTS                                                 PAGE   59
A    2521                                     BOUND    8
     2522   01 00906    00000000 A   IOINTOLD DATA     0,0               I/O INTERRUPT PSD
            01 00907    00000000 A
     2523   01 00908    0000066C     IONEWPSP DATA     INTERR,0          (INTERRUPTS ENABLED)
            01 00909    00000000 A
     2524   01 0090A    00000000 A   ERRORPSD DATA     0,0               ERROR-TRAP PSD
            01 0090B    00000000 A
     2525   01 0090C    00000838              DATA     DUMP              (INTERRUPTS DISABLED)
     2526   01 0090D    07000000 A            GEN,8,24 7,0

     2528   01 0090E    00000000 A   FLSEEK1  DATA     0                 NEW SEEK FIRST TRACK TRANSFER
     2529   01 0090F    00000000 A   FLSEEK2  DATA     0                 NEW SEEK SECOND TRACK TRANSFER

     2531   01 00910                 HDRDATA1 RES,1    6*8               HEADERS FROM FIRST TRACK
     2532   01 0091C                 HDRDATA2 RES,1    6*8               HEADERS FROM SECOND TRACK

        1*  01 00928    40000000 A   MOD800   GEN,8,24 X'40',0           NRZI                            *H01
        2*  01 00929    80000000 A   MOD1600  GEN,8,24 X'80',0           PE                              *H01
        3*  01 0092A    C0000000 A   MOD6250  GEN,8,24 X'C0',0           GCR                             *H01

     2538   01 0092B    40C5D6C6 A   OEORR    TEXT     ' EOF            '   TRUE END OF TAPE SET
            01 0092C    40404040 A
            01 0092D    40404040 A
            01 0092E    40404040 A
     2539   01 0092F    5CC5D6D9 A   OEORF    TEXT     '*EOR            '   END OF THIS REEL ONLY
            01 00930    40404040 A
            01 00931    40404040 A
            01 00932    40404040 A
     2540   01 00933    00000000 A   SENSE    DATA     0,0,0,0           SENSE INFORMATION BUFFER        *G01
            01 00934    00000000 A
            01 00935    00000000 A
            01 00936    00000000 A

     2542   01 00937                 CPSAVER  RES      64                REGISTERS AND SPECIAL STACK

     2544                                     BOUND    8
     2545   01 00978                 CPSAVES  RES      2                 SAVE SYSTEM STACK
     2546   01 0097A    00000946     CPSTACK  DATA     CPSAVER+15        SPECIAL STACK POINTER
     2547   01 0097B    00300000 A            GEN,16,16 48,0

     2549         01 0090A           ERRPSD:C EQU      ERRORPSD          CONTINUE PSD
     2550   01 0097C    00000412     ERRPSD:X DATA     USE1,0            ABORT PSD
            01 0097D    00000000 A
     2551   01 0097E    00000409     ERRPSD:F DATA     ENDJOBS,0         FINALIZE, ABORT PSD
            01 0097F    00000000 A
1 C00   20:09 JUN 20,'83    DOUBLE WORD CONSTANTS                                                 PAGE   60
A    2553                                     BOUND    8
     2554   01 00980    00000000 A            DATA     0
     2555   01 00981    00000004 A   WORKT    DATA     4
     2556   01 00982                 WORK     RES      10

     2558                                     BOUND    8
     2559   01 0098C    00000A6F     JOBSTACK DATA     STACK1-1
     2560   01 0098D    00328000 A            GEN,4,12,4,12   0,STCKSIZE,8,0 PUSH TRAP, PULL INHIBIT

     2562   01 0098E    00000997     WRKJOBSK DATA     STACK2-1
     2563   01 0098F    00328000 A            GEN,4,12,4,12   0,STCKSIZE,8,0 PUSH TRAP, PULL INHIBIT

     2565   01 00990    00000A6F     PJOBSTK  DATA     STACK1-1
     2566   01 00991    00328000 A            GEN,4,12,4,12   0,STCKSIZE,8,0 PUSH TRAP, PULL INHIBIT

     2568   01 00992    00000997     PWRKSTK  DATA     STACK2-1
     2569   01 00993    00328000 A            GEN,4,12,4,12   0,STCKSIZE,8,0 PUSH TRAP, PULL INHIBIT

     2571   01 00994    000009C9     SUBSTACK DATA     REGSTACK-1
     2572   01 00995    00800000 A            GEN,4,12,4,12   0,128,0,0      PUSH TRAP, PULL TRAP
     2573   01 00996    000009C9     ALTSUB   DATA     REGSTACK-1
     2574   01 00997    00800000 A            GEN,4,12,4,12   0,128,0,0      PUSH TRAP, PULL TRAP

     2576   01 00998                 STACK2   RES      STCKSIZE
     2577   01 009CA                 REGSTACK RES      128

     2579                                     BOUND    8
     2580   01 00A4A                 INPUT    RES      20
     2581   01 00A5E    40404040 A   BLANKS   TEXT     '    ','    ','    '
            01 00A5F    40404040 A
            01 00A60    40404040 A

     2583                                     BOUND    8
     2584   01 00A62                 CDHOLD   RES      2                 HOLD CDW DATA                   *G01
     2585   01 00A64                 TSHOLD   RES      2                 HOLD TIO STATUS
     2586   01 00A66                 DSHOLD   RES      1                 HOLD TDV STATUS
     2587   01 00A67                 ASHOLD   RES      1                 HOLD AIO STATUS
     2588   01 00A68                 CCHOLD   RES      1                 HOLD AIO CONDITION CODES

     2590                                     BOUND    8
     2591   01 00A6A    00000000 A            DATA     0
     2592   01 00A6B    00000008 A   CNTDIR   DATA     8
     2593   01 00A6C                 SAVEDATE RES      2
     2594   01 00A6E                 DIRSTACK RES      2

     2596   01 00A70                 STACK1   RES      STCKSIZE
1 C00   20:09 JUN 20,'83    ROTATING MEMORY INFORMATION TABLES - RADS                             PAGE   61
A    2598   01 00AA2    00000000 A   M7202    DATA     0,X'07FF0000',32*360,0,32*256*256,360,INC234
            01 00AA3    07FF0000 A
            01 00AA4    00002D00 A
            01 00AA5    00000000 A
            01 00AA6    00200000 A
            01 00AA7    00000168 A
            01 00AA8    0000055F
     2599   01 00AA9    00000010 A            DATA      16,X'F'**16,16**16,1**(16+4)
            01 00AAA    000F0000 A
            01 00AAB    00100000 A
            01 00AAC    00100000 A
     2600   01 00AAD    00000000 A   M7203    DATA     0,X'0FFF0000',32*360,0,32*256*256,360,INC234
            01 00AAE    0FFF0000 A
            01 00AAF    00002D00 A
            01 00AB0    00000000 A
            01 00AB1    00200000 A
            01 00AB2    00000168 A
            01 00AB3    0000055F
     2601   01 00AB4    00000010 A            DATA      16,X'F'**16,16**16,1**(16+4)
            01 00AB5    000F0000 A
            01 00AB6    00100000 A
            01 00AB7    00100000 A
     2602   01 00AB8    00000000 A   M7204    DATA     0,X'1FFF0000',32*360,0,32*256*256,360,INC234
            01 00AB9    1FFF0000 A
            01 00ABA    00002D00 A
            01 00ABB    00000000 A
            01 00ABC    00200000 A
            01 00ABD    00000168 A
            01 00ABE    0000055F
     2603   01 00ABF    00000010 A            DATA      16,X'F'**16,16**16,1**(16+4)
            01 00AC0    000F0000 A
            01 00AC1    00100000 A
            01 00AC2    00100000 A
     2604   01 00AC3    00000000 A   M7212    DATA     0,(63**23)+(81**16),12*1024,0,12*256*256,1024,INC12
            01 00AC4    1FD10000 A
            01 00AC5    00003000 A
            01 00AC6    00000000 A
            01 00AC7    000C0000 A
            01 00AC8    00000400 A
            01 00AC9    00000566
     2605   01 00ACA    00000010 A            DATA      16,X'7F'**16,82**16,1**(16+7)
            01 00ACB    007F0000 A
            01 00ACC    00520000 A
            01 00ACD    00800000 A
     2606   01 00ACE    00000000 A   M7232    DATA     0,X'1FFB0000',12*1024,0,16*256*256,1024,INC32
            01 00ACF    1FFB0000 A
            01 00AD0    00003000 A
            01 00AD1    00000000 A
            01 00AD2    00100000 A
            01 00AD3    00000400 A
            01 00AD4    00000583
     2607   01 00AD5    00000010 A            DATA      16,X'F'**16,12**16,1**(16+4)
            01 00AD6    000F0000 A
            01 00AD7    000C0000 A
            01 00AD8    00100000 A
     2608   01 00AD9    00000000 A   M3214    DATA     0,(255**20)+(10**16),11*1024,0,16**16,1024,INC32
            01 00ADA    0FFA0000 A
            01 00ADB    00002C00 A
            01 00ADC    00000000 A
            01 00ADD    00100000 A
            01 00ADE    00000400 A
            01 00ADF    00000583
     2609   01 00AE0    00000010 A            DATA      16,X'F'**16,11**16,16**16
            01 00AE1    000F0000 A
            01 00AE2    000B0000 A
            01 00AE3    00100000 A
1 C00   20:09 JUN 20,'83    ROTATING MEMORY INFORMATION TABLES - DISKS                            PAGE   62
A    2611   01 00AE4    00000000 A   M7242    DATA     0,(199**16)+(19**8),12*1024,0,2**8,1024,INC42
            01 00AE5    00C71300 A
            01 00AE6    00003000 A
            01 00AE7    00000000 A
            01 00AE8    00000200 A
            01 00AE9    00000400 A
            01 00AEA    0000058A
     2612   01 00AEB    00000000 A            DATA      0,X'7'**0,6**0,1**8
            01 00AEC    00000007 A
            01 00AED    00000006 A
            01 00AEE    00000100 A
     2613   01 00AEF    00000000 A   M7260    DATA     0,(199**16)+(19**8),11*1024,0,1**8,1024,INC60
            01 00AF0    00C71300 A
            01 00AF1    00002C00 A
            01 00AF2    00000000 A
            01 00AF3    00000100 A
            01 00AF4    00000400 A
            01 00AF5    0000058A
     2614   01 00AF6    00000000 A            DATA      0,X'F'**0,11**0,1**8
            01 00AF7    0000000F A
            01 00AF8    0000000B A
            01 00AF9    00000100 A
     2615   01 00AFA    00000000 A   M7270    DATA     0,(399**16)+(19**8),12*1024,0,2**8,1024,INC70
            01 00AFB    018F1300 A
            01 00AFC    00003000 A
            01 00AFD    00000000 A
            01 00AFE    00000200 A
            01 00AFF    00000400 A
            01 00B00    0000058A
     2616   01 00B01    00000000 A            DATA      0,X'7'**0,6**0,1**8
            01 00B02    00000007 A
            01 00B03    00000006 A
            01 00B04    00000100 A
     2617   01 00B05    00000000 A   M7272    DATA     0,(399**16)+(19**8),12*1024,0,1**8,1024,INC72
            01 00B06    018F1300 A
            01 00B07    00003000 A
            01 00B08    00000000 A
            01 00B09    00000100 A
            01 00B0A    00000400 A
            01 00B0B    0000058A
     2618   01 00B0C    00000000 A            DATA     0,X'F'**0,X'C'**0,1**8
            01 00B0D    0000000F A
            01 00B0E    0000000C A
            01 00B0F    00000100 A
     2619   01 00B10    00000000 A   M7275    DATA     0,(399**16)+(18**8),11*1024,0,1**8,1024,INC75
            01 00B11    018F1200 A
            01 00B12    00002C00 A
            01 00B13    00000000 A
            01 00B14    00000100 A
            01 00B15    00000400 A
            01 00B16    0000058A
     2620   01 00B17    00000000 A            DATA      0,X'F'**0,11**0,1**8
            01 00B18    0000000F A
            01 00B19    0000000B A
            01 00B1A    00000100 A
     2621   01 00B1B    00000000 A   M3275    DATA     0,(399**16)+(18**8),12*1024,0,1**8,1024,INC75
            01 00B1C    018F1200 A
            01 00B1D    00003000 A
            01 00B1E    00000000 A
            01 00B1F    00000100 A
            01 00B20    00000400 A
            01 00B21    0000058A
     2622   01 00B22    00000000 A            DATA      0,X'F'**0,12**0,1**8
            01 00B23    0000000F A
            01 00B24    0000000C A
            01 00B25    00000100 A
1 C00   20:09 JUN 20,'83    ROTATING MEMORY INFORMATION TABLES - DISKS                            PAGE   63
A       1*  01 00B26    00000000 A   M3281    DATA     0,(545**16)+(29**8),16*1024,0,1**8,1024,INC81     *H00
            01 00B27    02211D00 A
            01 00B28    00004000 A
            01 00B29    00000000 A
            01 00B2A    00000100 A
            01 00B2B    00000400 A
            01 00B2C    0000058A
        2*  01 00B2D    00000000 A            DATA     0,X'0F',X'10',1**8                                *H00
            01 00B2E    0000000F A
            01 00B2F    00000010 A
            01 00B30    00000100 A
        3*  01 00B31    00000000 A   M3282    DATA     0,(1091**16)+(29**8),16*1024,0,1**8,1024,INC82    *H00
            01 00B32    04431D00 A
            01 00B33    00004000 A
            01 00B34    00000000 A
            01 00B35    00000100 A
            01 00B36    00000400 A
            01 00B37    0000058A
        4*  01 00B38    00000000 A            DATA     0,X'0F',X'10',1**8                                *H00
            01 00B39    0000000F A
            01 00B3A    00000010 A
            01 00B3B    00000100 A
        5*  01 00B3C    00000000 A   M3283    DATA     0,(809**16)+(29**8),16*1024,0,1**8,1024,INC83     *H00
            01 00B3D    03291D00 A
            01 00B3E    00004000 A
            01 00B3F    00000000 A
            01 00B40    00000100 A
            01 00B41    00000400 A
            01 00B42    0000058A
        6*  01 00B43    00000000 A            DATA     0,X'0F',X'10',1**8                                *H00
            01 00B44    0000000F A
            01 00B45    00000010 A
            01 00B46    00000100 A
1 C00   20:09 JUN 20,'83    WORD CONSTANTS                                                        PAGE   64
A    2629                            * THIS IS THE MODEL-SPECIFIC INFORMATION TABLE
     2630                            * IT IS USED ONLY WHEN SAVING (DISK TO TAPE)
     2631                            *
     2632   01 00B47    00000000 A   LOSEEK   DATA     0                 STARTING SEEK DATA
     2633   01 00B48    1FFF0000 A   HISEEK   DATA     X'1FFF0000'       ENDING SEEK DATA
     2634   01 00B49    00002D00 A   COUNT    DATA     11520             BYTES PER TRANSFER
     2635   01 00B4A    00000000 A   FIRSTSEK DATA     0                 INITIAL SEEK DATA
     2636   01 00B4B    00200000 A   INCREMNT DATA     32**16            SEEK DATA INCREMENT (EACH TRANSFER)
     2637   01 00B4C    00000168 A   COUNTSEC DATA     360               BYTES PER SECTOR
     2638   01 00B4D    0000055F     INCSEK   DATA     INC234            ROUTINE TO DO INCREMENTING
     2639   01 00B4E    00000010 A   SECTSHFT DATA     16                SHIFT TO POSITION SECTOR
     2640   01 00B4F    000F0000 A   SECTMASK DATA     X'F'**16          MASK FOR SECTOR IN SEEK DATA
     2641   01 00B50    00100000 A   SECTMAX  DATA     16**16            POSITIONED NUMBER OF SECTORS/TRACK
     2642   01 00B51    00100000 A   INCHEAD  DATA     1**(16+4)         HEAD INCREMENT (AFTER SECTOR OFLW)

     2644   01 00B52    00000000 A   SENSEDTA DATA     0
     2645   01 00B53                 X1SAV    RES      1
     2646   01 00B54    00000000 A   INDICATE DATA     0
     2647   01 00B55                 CURRSEEK RES      1
     2648   01 00B56    00000000 A   TIME     DATA     0
     2649   01 00B57                 RETRY0   RES      1                 USED BY READ DIRECTORY AND
     2650   01 00B58                 RETRY1   RES      1                  WRITEBOOT ROUTINES
     2651   01 00B59                 RETRY2   RES      1                   FOR ERROR RECOVERY
     2652   01 00B5A                 RETRY3   RES      1
     2653   01 00B5B                 LASTCYLS RES      1                 USED BY PROGRESS REPORT
     2654   01 00B5C    00000000 A   TERRORS  DATA     0
     2655   01 00B5D    00000000 A   DERRORS  DATA     0
     2656   01 00B5E    00000000 A   TRETRY   DATA     0
     2657   01 00B5F    00000000 A   DRETRY   DATA     0
     2658   01 00B60    00000000 A   DISCOLD  DATA     0
     2659   01 00B61    000000F0 A   DISCDEV  DATA     DEF:DISK
     2660   01 00B62    00000080 A   TAPEDEV  DATA     DEF:TAPE
     2661   01 00B63    00000001 A   TYPEDEV  DATA     DEF:TYPE
     2662   01 00B64    01150000 A   NEWLINE  DATA     X'01150000'
     2663   01 00B65    01400000 A   BLANK    DATA     X'01400000'
     2664   01 00B66    016E0000 A   PROMPT0  DATA     X'01'**24+'>'**16
     2665   01 00B67    016F0000 A   PROMPT1  DATA     X'01'**24+'?'**16
     2666   01 00B68    000003E8 A   THOUSAND DATA     1000
     2667   01 00B69    0000003C A   SIXTY    DATA     60
     2668   01 00B6A    0000000A A   TEN      DATA     10
     2669   01 00B6B    00000000 A   MODEL    DATA     0
     2670   01 00B6C    C4C3E7E7 A   GP1DC    DATA     'DCXX'
     2671   01 00B6D    C4D5E7E7 A   GP2DN    DATA     'DNXX'
     2672   01 00B6E    00000000 A   DCWSAVE  DATA     0                 CURRENT DISK CHANNEL PROGRAM
     2673   01 00B6F    00000000 A   TCWSAVE  DATA     0                 CURRENT TAPE CHANNEL PROGRAM
     2674   01 00B70    00000000 A   PRETIME  DATA     0
     2675   01 00B71    B0480000 A   TPAIO    DATA     X'B0480000'       ERROR CONDITION BITS (AIO)
     2676   01 00B72    05000000 A   TYPEORDR GEN,8,24 5,0
     2677   01 00B73    00000000 A   DENSAV   DATA     0                 DENSITY FOR 'SAVE' FUNCTION
        1*  01 00B74    00000000 A   TCPVFLAG DATA     0                 FLAG FOR NEW HEADER FORMAT      *H01
     2678   01 00B75    0000001F A   MM5      DATA     X'1F'
     2679   01 00B76    0000FFFF A   MM16     DATA     X'FFFF'
     2680   01 00B77    00FFFFFF A   MM24     DATA     X'FFFFFF'
1 C00   20:09 JUN 20,'83    WORD CONSTANTS                                                        PAGE   65
A    2682         01 00B77           MOD:BEG  EQU      %-1
     2683   01 00B78    F7F2F0F2 A   M7202MSK DATA     '7202'            7202
     2684   01 00B79    F7F2F0F3 A   M7203MSK DATA     '7203'            7203
     2685   01 00B7A    F7F2F0F4 A   M7204MSK DATA     '7204'            7204
     2686   01 00B7B    F7F2F1F2 A   M7211MSK DATA     '7212'            7211
     2687   01 00B7C    F3F2F1F4 A   M3214MSK DATA     '3214'            3214
     2688   01 00B7D    F7F2F3F2 A   M7232MSK DATA     '7232'            7232

     2690   01 00B7E    F7F2F4F2 A   M7242MSK DATA     '7242'            7242 - CDC
     2691   01 00B7F    F7F2F6F0 A   M7260MSK DATA     '7260'            7260
     2692   01 00B80    F7F2F7F0 A   M7270MSK DATA     '7270'            7270 - ISS
     2693   01 00B81    F7F2F7F2 A   M7272MSK DATA     '7272'            7272 - DC32Q
     2694   01 00B82    F7F2F7F5 A   M7275MSK DATA     '7275'            7275
     2695   01 00B83    F3F2F7F5 A   M3275MSK DATA     '3275'            3275
        1*  01 00B84    F3F2F8F1 A   M3281MSK DATA     '3281'            STC 8350 WINCHESTER             *H00
        2*  01 00B85    F3F2F8F2 A   M3282MSK DATA     '3282'            STC 8775 WINCHESTER             *H00
        3*  01 00B86    F3F2F8F3 A   M3283MSK DATA     '3283'            T302/306 REMOVABLE MEDIA        *H00
     2698         01 00B86           MOD:END  EQU      %-1

     2700         01 00B86           MOD:MSK  EQU      %-1
     2701   01 00B87    00000AA2              DATA     M7202
     2702   01 00B88    00000AAD              DATA     M7203
     2703   01 00B89    00000AB8              DATA     M7204
     2704   01 00B8A    00000AC3              DATA     M7212
     2705   01 00B8B    00000AD9              DATA     M3214
     2706   01 00B8C    00000ACE              DATA     M7232

     2708   01 00B8D    00000AE4              DATA     M7242
     2709   01 00B8E    00000AEF              DATA     M7260
     2710   01 00B8F    00000AFA              DATA     M7270
     2711   01 00B90    00000B05              DATA     M7272
     2712   01 00B91    00000B10              DATA     M7275
     2713   01 00B92    00000B1B              DATA     M3275
        1*  01 00B93    00000B26              DATA     M3281                                             *H00
        2*  01 00B94    00000B31              DATA     M3282                                             *H00
        3*  01 00B95    00000B3C              DATA     M3283                                             *H00
1 C00   20:09 JUN 20,'83    TEXT AND TYPE OUT MESSAGES                                            PAGE   66
A       1*  01 00B96    21E3C5D3 A   MSGX1    TEXTC    TITLE                                             *H00
            01 00B97    C5C6C9D3 A
            01 00B98    C540C4C5 A
            01 00B99    E5C9C3C5 A
            01 00B9A    40C4E4D4 A
            01 00B9B    D740F9F6 A
            01 00B9C    F060F0F7 A
            01 00B9D    F0F160C8 A
            01 00B9E    F0F24040 A
     2718   01 00B9F    16E4E2C9 A   MSGX2    TEXTC    'USING #7232 BY DEFAULT'
            01 00BA0    D5C7407B A
            01 00BA1    F7F2F3F2 A
            01 00BA2    40C2E840 A
            01 00BA3    C4C5C6C1 A
            01 00BA4    E4D3E340 A
     2719   01 00BA5    0B4040C3 A   PRGSMSG  TEXTC    '  CYL: XXXX'
            01 00BA6    E8D37A40 A
            01 00BA7    E7E7E7E7 A
     2720   01 00BA8    086B40C3 A   CDWMSG   TEXTC    ', CCDW: '                                        *G01
            01 00BA9    C3C4E67A A
            01 00BAA    40404040 A
     2721   01 00BAB    18C9D9D9 A   MSGX4    TEXTC    'IRRECOVERABLE TAPE ERROR'
            01 00BAC    C5C3D6E5 A
            01 00BAD    C5D9C1C2 A
            01 00BAE    D3C540E3 A
            01 00BAF    C1D7C540 A
            01 00BB0    C5D9D9D6 A
            01 00BB1    D9404040 A
     2722   01 00BB2    11406040 A   MSGX5    TEXTC    ' - READ OPERATION'
            01 00BB3    D9C5C1C4 A
            01 00BB4    40D6D7C5 A
            01 00BB5    D9C1E3C9 A
            01 00BB6    D6D54040 A
     2723   01 00BB7    12406040 A   MSGX5A   TEXTC    ' - WRITE OPERATION'
            01 00BB8    E6D9C9E3 A
            01 00BB9    C540D6D7 A
            01 00BBA    C5D9C1E3 A
            01 00BBB    C9D6D540 A
     2724   01 00BBC    17C4C9E2 A   MSGX7    TEXTC    'DISC UNIT UNAVAILABLE: '
            01 00BBD    C340E4D5 A
            01 00BBE    C9E340E4 A
            01 00BBF    D5C1E5C1 A
            01 00BC0    C9D3C1C2 A
            01 00BC1    D3C57A40 A
     2725   01 00BC2    17E3C1D7 A   MSGX3    TEXTC    'TAPE UNIT UNAVAILABLE: '
            01 00BC3    C540E4D5 A
            01 00BC4    C9E340E4 A
            01 00BC5    D5C1E5C1 A
            01 00BC6    C9D3C1C2 A
            01 00BC7    D3C57A40 A
     2726   01 00BC8    18C9D9D9 A   MSGX8    TEXTC    'IRRECOVERABLE DISK ERROR'
            01 00BC9    C5C3D6E5 A
            01 00BCA    C5D9C1C2 A
            01 00BCB    D3C540C4 A
            01 00BCC    C9E2D240 A
            01 00BCD    C5D9D9D6 A
            01 00BCE    D9404040 A
     2727   01 00BCF    18C3C1D5 A   MSGX9    TEXTC    'CANNOT DECODE PARAMETER:'
            01 00BD0    D5D6E340 A
            01 00BD1    C4C5C3D6 A
            01 00BD2    C4C540D7 A
            01 00BD3    C1D9C1D4 A
            01 00BD4    C5E3C5D9 A
            01 00BD5    7A404040 A
     2728   01 00BD6    15C4C9D9 A   DIRMSG1  TEXTC    'DIRECTORY OF CONTENTS'
            01 00BD7    C5C3E3D6 A
            01 00BD8    D9E840D6 A
            01 00BD9    C640C3D6 A
            01 00BDA    D5E3C5D5 A
            01 00BDB    E3E24040 A
     2729   01 00BDC    0EE3C1D7 A   DIRMSG2  TEXTC    'TAPE CREATED--'
            01 00BDD    C540C3D9 A
            01 00BDE    C5C1E3C5 A
            01 00BDF    C4606040 A
     2730   01 00BE0    2540D4D6 A   DIRMSG4  TEXTC    ' MODEL XXXX ROTATING MEMORY DEVICE(S)'
            01 00BE1    C4C5D340 A
            01 00BE2    E7E7E7E7 A
            01 00BE3    40D9D6E3 A
            01 00BE4    C1E3C9D5 A
            01 00BE5    C740D4C5 A
            01 00BE6    D4D6D9E8 A
            01 00BE7    40C4C5E5 A
            01 00BE8    C9C3C54D A
            01 00BE9    E25D4040 A
     2731   01 00BEA    0740C4C3 A   DIRMSG5  TEXTC    ' DCXXXX'
            01 00BEB    E7E7E7E7 A
     2732   01 00BEC    16C5D5E3 A   MSGDATE  TEXTC    'ENTER DATE (MM/DD/YY):'
            01 00BED    C5D940C4 A
            01 00BEE    C1E3C540 A
            01 00BEF    4DD4D461 A
            01 00BF0    C4C461E8 A
            01 00BF1    E85D7A40 A
     2733   01 00BF2    1E40E6C9 A   REQDC    TEXTC    ' WILL BE REPLACED BY DC(NNDD):'
            01 00BF3    D3D340C2 A
            01 00BF4    C540D9C5 A
            01 00BF5    D7D3C1C3 A
            01 00BF6    C5C440C2 A
            01 00BF7    E840C4C3 A
            01 00BF8    4DD5D5C4 A
            01 00BF9    C45D7A40 A
     2734   01 00BFA    0CE2C5D5 A   SNSMSG   TEXTC    'SENSE DATA: '
            01 00BFB    E2C540C4 A
            01 00BFC    C1E3C17A A
            01 00BFD    40404040 A
     2735   01 00BFE    24406040 A   MSGY1    TEXTC    ' - SIO REJECTED, ENTER C WHEN READY:'
            01 00BFF    E2C9D640 A
            01 00C00    D9C5D1C5 A
            01 00C01    C3E3C5C4 A
            01 00C02    6B40C5D5 A
            01 00C03    E3C5D940 A
            01 00C04    C340E6C8 A
            01 00C05    C5D540D9 A
            01 00C06    C5C1C4E8 A
            01 00C07    7A404040 A
     2736   01 00C08    21406040 A   MSGY2    TEXTC    ' - NOT READY, ENTER C WHEN READY:'
            01 00C09    D5D6E340 A
            01 00C0A    D9C5C1C4 A
            01 00C0B    E86B40C5 A
            01 00C0C    D5E3C5D9 A
            01 00C0D    40C340E6 A
            01 00C0E    C8C5D540 A
            01 00C0F    D9C5C1C4 A
            01 00C10    E87A4040 A
     2737   01 00C11    27406040 A   MSGY3    TEXTC    ' - WRITE PROTECTED, ENTER C WHEN READY:'
            01 00C12    E6D9C9E3 A
            01 00C13    C540D7D9 A
            01 00C14    D6E3C5C3 A
            01 00C15    E3C5C46B A
            01 00C16    40C5D5E3 A
            01 00C17    C5D940C3 A
            01 00C18    40E6C8C5 A
            01 00C19    D540D9C5 A
            01 00C1A    C1C4E87A A
     2738   01 00C1B    24C5D5C4 A   MSGY4    TEXTC    'END OF TAPE, ASSIGN NEW UNIT (NNDD):'
            01 00C1C    40D6C640 A
            01 00C1D    E3C1D7C5 A
            01 00C1E    6B40C1E2 A
            01 00C1F    E2C9C7D5 A
            01 00C20    40D5C5E6 A
            01 00C21    40E4D5C9 A
            01 00C22    E3404DD5 A
            01 00C23    D5C4C45D A
            01 00C24    7A404040 A
     2739   01 00C25    13E4D5C4 A   MSGY5    TEXTC    'UNDEFINED I/O ERROR'
            01 00C26    C5C6C9D5 A
            01 00C27    C5C440C9 A
            01 00C28    61D640C5 A
            01 00C29    D9D9D6D9 A
     2740   01 00C2A    0BC1C9D6 A   MSGY6    TEXTC    'AIO STATUS-'
            01 00C2B    40E2E3C1 A
            01 00C2C    E3E4E260 A
     2741   01 00C2D    0BE3C4E5 A   MSGY7    TEXTC    'TDV STATUS-'
            01 00C2E    40E2E3C1 A
            01 00C2F    E3E4E260 A
     2742   01 00C30    18E2D7E4 A   MSGY8    TEXTC    'SPURIOUS I/O INTERRUPT, '
            01 00C31    D9C9D6E4 A
            01 00C32    E240C961 A
            01 00C33    D640C9D5 A
            01 00C34    E3C5D9D9 A
            01 00C35    E4D7E36B A
            01 00C36    40404040 A
     2743   01 00C37    21D7D9D6 A   MSGY9    TEXTC    'PROGRAMMING ERROR ON DISK, SEEK: '
            01 00C38    C7D9C1D4 A
            01 00C39    D4C9D5C7 A
            01 00C3A    40C5D9D9 A
            01 00C3B    D6D940D6 A
            01 00C3C    D540C4C9 A
            01 00C3D    E2D26B40 A
            01 00C3E    E2C5C5D2 A
            01 00C3F    7A404040 A
     2744   01 00C40    0BE3C9D6 A   MSGYA8   TEXTC    'TIO STATUS-'
            01 00C41    40E2E3C1 A
            01 00C42    E3E4E260 A
     2745   01 00C43    18D3C1E2 A   MSGYA9   TEXTC    'LAST USED SEEK ADDRESS: '
            01 00C44    E340E4E2 A
            01 00C45    C5C440E2 A
            01 00C46    C5C5D240 A
            01 00C47    C1C4C4D9 A
            01 00C48    C5E2E27A A
            01 00C49    40404040 A
     2746   01 00C4A    1660C3C8 A   MSGYA10  TEXTC    '-CHECK WRITE OPERATION'
            01 00C4B    C5C3D240 A
            01 00C4C    E6D9C9E3 A
            01 00C4D    C540D6D7 A
            01 00C4E    C5D9C1E3 A
            01 00C4F    C9D6D540 A
     2747   01 00C50    0000002C A            DATA     44
     2748   01 00C51    E3C9D4C5 A   JBTIME   TEXT     'TIME FOR THIS JOB  '
            01 00C52    40C6D6D9 A
            01 00C53    40E3C8C9 A
            01 00C54    E240D1D6 A
            01 00C55    C2404040 A
     2749   01 00C56    40F0F0F0 A   JT1      TEXT     ' 000 MINUTES'
            01 00C57    40D4C9D5 A
            01 00C58    E4E3C5E2 A
     2750   01 00C59    4040F0F0 A   JT2      TEXT     '  00 SECONDS'
            01 00C5A    40E2C5C3 A
            01 00C5B    D6D5C4E2 A

     2752   01 00C5C    0000002C A            DATA     44
     2753   01 00C5D    E3D6E3C1 A   ACCTIME  TEXT     'TOTAL COMPUTER TIME'
            01 00C5E    D340C3D6 A
            01 00C5F    D4D7E4E3 A
            01 00C60    C5D940E3 A
            01 00C61    C9D4C540 A
     2754   01 00C62    40F0F0F0 A   ACC1     TEXT     ' 000 MINUTES'
            01 00C63    40D4C9D5 A
            01 00C64    E4E3C5E2 A
     2755   01 00C65    4040F0F0 A   ACC2     TEXT     '  00 SECONDS'
            01 00C66    40E2C5C3 A
            01 00C67    D6D5C4E2 A

     2757   01 00C68    17E3D6E3 A   MSGTPER  TEXTC    'TOTAL TAPE ERRORS      '
            01 00C69    C1D340E3 A
            01 00C6A    C1D7C540 A
            01 00C6B    C5D9D9D6 A
            01 00C6C    D9E24040 A
            01 00C6D    40404040 A
     2758   01 00C6E    26C9D9D9 A   MSG::000 TEXTC    'IRRECOVERABLE ERRORS READING DIRECTORY'
            01 00C6F    C5C3D6E5 A
            01 00C70    C5D9C1C2 A
            01 00C71    D3C540C5 A
            01 00C72    D9D9D6D9 A
            01 00C73    E240D9C5 A
            01 00C74    C1C4C9D5 A
            01 00C75    C740C4C9 A
            01 00C76    D9C5C3E3 A
            01 00C77    D6D9E840 A
     2759   01 00C78    2AC9D9D9 A   MSG::001 TEXTC    'IRRECOVERABLE ERRORS WRITING BOOT/PRGM/DIR'
            01 00C79    C5C3D6E5 A
            01 00C7A    C5D9C1C2 A
            01 00C7B    D3C540C5 A
            01 00C7C    D9D9D6D9 A
            01 00C7D    E240E6D9 A
            01 00C7E    C9E3C9D5 A
            01 00C7F    C740C2D6 A
            01 00C80    D6E361D7 A
            01 00C81    D9C7D461 A
            01 00C82    C4C9D940 A
     2760   01 00C83    27D7D9D6 A   MSG::002 TEXTC    'PROGRAMMING ERROR, MODEL NOT RECOGNIZED'
            01 00C84    C7D9C1D4 A
            01 00C85    D4C9D5C7 A
            01 00C86    40C5D9D9 A
            01 00C87    D6D96B40 A
            01 00C88    D4D6C4C5 A
            01 00C89    D340D5D6 A
            01 00C8A    E340D9C5 A
            01 00C8B    C3D6C7D5 A
            01 00C8C    C9E9C5C4 A
     2761   01 00C8D    17E3D6E3 A   MSGDCER  TEXTC    'TOTAL DISC ERRORS      '
            01 00C8E    C1D340C4 A
            01 00C8F    C9E2C340 A
            01 00C90    C5D9D9D6 A
            01 00C91    D9E24040 A
            01 00C92    40404040 A
     2762   01 00C93    27D4D6C4 A   NOMODMSG TEXTC    'MODEL NUMBER NOT PRESENT FOR THIS GROUP'
            01 00C94    C5D340D5 A
            01 00C95    E4D4C2C5 A
            01 00C96    D940D5D6 A
            01 00C97    E340D7D9 A
            01 00C98    C5E2C5D5 A
            01 00C99    E340C6D6 A
            01 00C9A    D940E3C8 A
            01 00C9B    C9E240C7 A
            01 00C9C    D9D6E4D7 A
     2763   01 00C9D    2BC4C5E5 A   NODMSG   TEXTC    'DEVICE ADDRESSES NOT PRESENT FOR THIS GROUP'
            01 00C9E    C9C3C540 A
            01 00C9F    C1C4C4D9 A
            01 00CA0    C5E2E2C5 A
            01 00CA1    E240D5D6 A
            01 00CA2    E340D7D9 A
            01 00CA3    C5E2C5D5 A
            01 00CA4    E340C6D6 A
            01 00CA5    D940E3C8 A
            01 00CA6    C9E240C7 A
            01 00CA7    D9D6E4D7 A
     2764   01 00CA8    1E5C5C5C A   TRAPMSG0 TEXTC    '***TRAP/INTERRUPT/ERROR, PSD: '                  *G01
            01 00CA9    E3D9C1D7 A
            01 00CAA    61C9D5E3 A
            01 00CAB    C5D9D9E4 A
            01 00CAC    D7E361C5 A
            01 00CAD    D9D9D6D9 A
            01 00CAE    6B40D7E2 A
            01 00CAF    C47A4040 A
     2765   01 00CB0    2BC67E6E A   TRAPMSG1 TEXTC    'F=>FINALIZE TAPE, C=>CONTINUE, ELSE=>ABORT:'     *G01
            01 00CB1    C6C9D5C1 A
            01 00CB2    D3C9E9C5 A
            01 00CB3    40E3C1D7 A
            01 00CB4    C56B40C3 A
            01 00CB5    7E6EC3D6 A
            01 00CB6    D5E3C9D5 A
            01 00CB7    E4C56B40 A
            01 00CB8    C5D3E2C5 A
            01 00CB9    7E6EC1C2 A
            01 00CBA    D6D9E37A A
1 C00   20:09 JUN 20,'83    BUFFER DEFINITIONS                                                    PAGE   67
A    2767                                     BOUND    8
     2768   01 00CBC    03003300     BUF1CW1  GEN,8,24 X'03',BA(BUF1WRD2) SEEK
     2769   01 00CBD    22000004 A            GEN,8,24 X'22',4
     2770   01 00CBE    00000000 A   BUF1CW2  DATA     0                  READ/WRITE

     2772                            * THE NEXT FOUR WORDS ARE WRITTEN TO TAPE
     2773                            * AND COMPRISE THE BLOCK HEADER FOR EACH BUFFER
     2774                            *
     2775   01 00CBF    00000000 A   BUF1WRD1 DATA     0                  FLAGS+COUNT
     2776   01 00CC0    00000000 A   BUF1WRD2 DATA     0                  SEEK DATA
     2777   01 00CC1    00000000 A   BUF1WRD3 DATA     0                  MODEL NUMBER
     2778   01 00CC2    00000000 A   BUF1WRD4 DATA     0                  DEVICE ADDRESS

     2780                                     BOUND    8
     2781   01 00CC4    03003320     BUF2CW1  GEN,8,24 X'03',BA(BUF2WRD2)
     2782   01 00CC5    22000004 A            GEN,8,24 X'22',4
     2783   01 00CC6    00000000 A   BUF2CW2  DATA     0

     2785   01 00CC7    00000000 A   BUF2WRD1 DATA     0
     2786   01 00CC8    00000000 A   BUF2WRD2 DATA     0
     2787   01 00CC9    00000000 A   BUF2WRD3 DATA     0
     2788   01 00CCA    00000000 A   BUF2WRD4 DATA     0
1 C00   20:09 JUN 20,'83                                                                          PAGE   68
A    2790         01 00200           ENDLAB   END      START
            01 00CCB    E2C1E5C5 A
            01 00CCC    8FFFFFFF A
            01 00CCD    00000001 A
            01 00CCE    C3D6D4D7 A
            01 00CCF    20000001 A
            01 00CD0    E3C3D7E5 A
            01 00CD1    D9C5E2E3 A
            01 00CD2    10000001 A
            01 00CD3    00008000 A
            01 00CD4    00000400 A
            01 00CD5    FFFFFDFF A
            01 00CD6    00000200 A
            01 00CD7    FFFFFBFF A
            01 00CD8    00002000 A
            01 00CD9    FFFFF7FF A
            01 00CDA    FFFFFFBF A
            01 00CDB    00000040 A
            01 00CDC    00000019 A
            01 00CDD    08000000 A
            01 00CDE    04000000 A
            01 00CDF    02000000 A
            01 00CE0    1C000000 A
            01 00CE1    01000000 A
            01 00CE2    00800100 A
            01 00CE3    00400100 A
            01 00CE4    00800000 A
            01 00CE5    00400000 A
            01 00CE6    007F0000 A
            01 00CE7    00520000 A
            01 00CE8    1FCE0000 A
            01 00CE9    002E0000 A
            01 00CEA    00000800 A
            01 00CEB    00001400 A
            01 00CEC    0000EC00 A
            01 00CED    00001300 A
            01 00CEE    0000ED00 A
            01 00CEF    00001E00 A
            01 00CF0    0000E200 A
            01 00CF1    00000080 A
            01 00CF2    FFFFFF7F A
            01 00CF3    0F000080 A
            01 00CF4    F0FFFFFF A
            01 00CF5    00004000 A
            01 00CF6    0000FFFF A
            01 00CF7    FF3FFEFF A
            01 00CF8    F03FFEFF A

  CONTROL SECTION SUMMARY: 01 00CF9   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   20:09 JUN 20,'83                                                                          PAGE   69
A  ABTNOSEC        2085-BAL     2091/B
   ACCTIME          905/LI      2753-TEXT
   ACC1             895/STB     2754-TEXT
   ACC2             904/STH     2755-TEXT
   ALTCYLS         2196/AW      2201-EQU
   ALTSUB          1238/LD      2573-DATA
   ASHOLD          1676/STW     1935/LW      2587-RES
   A1               402/B        406-LB
   A1GX             401/BAL      430/BAL      440-LI
   A1GY             441-LD       494/BAL
   BDWRT           1846/TESTBIT 1851-LI
   BEGIN            199-BAL      256/BE       910/B       1524/B       1616/B
   BF              1905-EQU     1927/B
   BLANK            828/LI       908/LI      1948/LI      1967/LI      2002/LI      2016/LI      2086/LI
      2309/LI      2663-DATA
   BLANKS           284/LM      1444/LW      2581-TEXT
   BLNKWRK          205/BAL      282-EQU
   BLOCKSIZ         110-EQU      111/EQU      111/EQU     1554/LI      1564/LI      1631/LI      1654/GEN
   BLOOP           1633-LI      1646/BDR
   BOOT            1629-EQU     1663/EQU
   BOOTRITE        1547/LI      2489-IOPCW
   BOOTSIZ         1663-EQU     2489/IOPCW
   BSR               83-EQU     1497/IOREQ   1498/IOREQ   1529/IOREQ   1605/IOREQ
   BSRCW            955/LI      1810/LI      1823/LI      1859/LI      2476-IOPCW
   BSTART          1587-EQU     1607/B       1621/B
   BSTOP           1597/BE      1609-EQU
   BUFCMDLST       2136/STW     2139/STW     2169/LI      2499-EQU
   BUFCMDLSTX      2174/STD     2180/LI      2509-EQU
   BUFFSIZE         112-EQU     1101/GEN     1121/GEN     1147/GEN     1880/AI      2465/IOPCW   2467/IOPCW
      2467/IOPCW   2469/IOPCW   2471/IOPCW   2471/IOPCW
   BUF1CW1         1085/LI      1108/LI      1131/LI      2063/LI      2107/LI      2121/LM      2768-GEN
   BUF1CW2         1084/STW     1107/STW     1130/STW     2770-DATA
   BUF1WRD1         651/STW      682/LI      1874/LW      2464/IOPCW   2468/IOPCW   2775-DATA
   BUF1WRD2         646/STW      709/LW       747/LW       831/LW      2090/LW      2108/LW      2768/GEN
      2776-DATA
   BUF1WRD3         654/STW     2777-DATA
   BUF1WRD4         641/STW      701/CS      1080/LW      1126/LW      2778-DATA
   BUF2CW1         1098/LI      1118/LI      1144/LI      2066/LI      2097/LI      2116/LM      2781-GEN
   BUF2CW2         1097/STW     1117/STW     1143/STW     2783-DATA
   BUF2WRD1         669/LI      1876/LW      2466/IOPCW   2470/IOPCW   2785-DATA
   BUF2WRD2         832/CW       834/LW      2083/LW      2098/LW      2781/GEN     2786-DATA
   BUF2WRD3         655/STW     2787-DATA
   BUF2WRD4         642/STW     1093/LW      1139/LW      2788-DATA
   BWRITE          1548/BAL     1562/BAL     1574/BAL     1583-EQU
   CALL1            914/DATA     919-EQU
   CALL2            916/DATA     934-EQU
   CAL1RET          986/B        992-LPSD    1405/BCR
   CATALOG          0.2-EQU      0.4/EQU
   CCHOLD          1675/STCF    1902/LCF     2588-RES
   CDHOLD          1959/STD     1963/LW      1969/LW      2584-RES
   CDWMSG          1961/LI      2720-TEXTC
   CHK1              96-EQU      715/IOREQ    745/IOREQ
   CHK2              97-EQU      728/IOREQ    761/IOREQ
   CMPRTN           705/TESTBIT  737-EQU      763/B
   CNTDIR           506/LI      2592-DATA
   COMPRNT         1415/B       1422-LB
   COMPRTN          234/BE       298-LW
   COMREAD         1439-EQU     2229/BAL
   COMSIO           956/B        961/B        966/B        971/B        976/B        981/B        988-EQU
   COMTYPE          188/BAL      191/BAL      275/BAL      359/BAL      384/BAL      389/BAL      450/BAL
       503/BAL      507/BAL      546/BAL      551/BAL      577/BAL      797/BAL      829/BAL      843/BAL
       851/BAL      857/BAL      882/BAL      906/BAL      909/BAL     1190/BAL     1417-EQU     1523/BAL
      1615/BAL     1704/BAL     1752/BAL     1848/BAL     1852/BAL     1940/BAL     1972/BAL     1979/BAL
      2003/BAL     2076/BAL     2087/BAL     2102/BAL     2300/BAL     2310/BAL
   COMTYPEX         273/BAL      446/BAL      505/BAL      839/BAL     1200/BAL     1411-EQU     1482/BAL
      1486/BAL     1698/BAL     1844/BAL     1938/BAL     1943/BAL     1947/BAL     1949/BAL     1953/BAL
      1962/BAL     1966/BAL     1968/BAL     1975/BAL     1995/BAL     2015/BAL     2017/BAL     2033/BAL
      2080/BAL     2094/BAL     2227/BAL     2302/BAL
   CONT            1285/B       1295-LCI
   COUNT            648/LW      1017/LW      1033/LW      1275/LW      2129/LW      2634-DATA
   COUNTSEC        2130/DW      2637-DATA
   CPPH            2350-EQU     2381/BDR     2401/BDR
   CPPHD           2386/BE      2400-EQU
   CPPHO           2384-EQU     2394/B       2398/B
   CPPHO6          2354/BE      2356/BE      2358/BE      2360/BE      2396-EQU
   CPPHP           2367/BLE     2373-EQU
   CPPHX           2362/BE      2389-EQU     2393/BE
   CPSAVER         2290/STM     2336/LM      2542-RES     2546/DATA
   CPSAVES         2295/STD     2332/LD      2545-RES
   CPSTACK         2296/LD      2546-DATA
   CPTOHEX          395/BAL      411/BAL      460/BAL      488/BAL     1055/BAL     1207/BAL     1784/BAL
      2346-EQU
   CURRSEEK         645/STW      710/STW      748/STW      772/LW       790/LW      1252/LW      1264/LW
      1283/STW     1304/LW      1321/LW      2647-RES
   CWHDRR          2124/STD     2126/LI      2515-EQU
   CX               410-LI
   C1NEWPSD         914-DATA
   C1OLDPSD         157/XPSD     913-DATA     992/LPSD    1074/MTW     1075/LPSD    1367/MTW
   C2NEWPSD         916-DATA
   C2OLDPSD         158/XPSD     915-DATA     945/LD      1151/MTW     1152/LPSD
   D                100-EQU      658/IOREQ    662/IOREQ    673/IOREQ    674/IOREQ    707/IOREQ    715/IOREQ
       718/IOREQ    724/IOREQ    728/IOREQ    731/IOREQ    745/IOREQ    751/IOREQ    761/IOREQ    762/IOREQ
   D:ABORT          941/B        944-EQU
   D:CHK1           935/B       1077-EQU     1078/TESTBIT
   D:CHK2           942/B       1090-EQU     1091/TESTBIT
   D:RD1            936/B       1103-EQU     1104/TESTBIT
   D:RD2            937/B       1113-EQU     1114/TESTBIT
   D:SET0          1086/B       1099/B       1109/B       1119/B       1132/B       1145/B       1154-EQU
   D:WRT1           938/B       1123-EQU     1124/TESTBIT
   D:WRT2           939/B       1136-EQU     1137/TESTBIT
   D:WTE            940/B       1149-EQU     1150/TESTBIT
   D:XIT           1151-MTW     1165/BCR
   DCWSAVE         1155/STW     1162/LW      2672-DATA
   DDISCRIM         236/BE       317-LH
   DDONE           2060/BE      2075-LI
   DECODETP         244/BE       485-EQU
   DECX            2438-DW      2445/BDR
   DEF:CYLS         120-EQU      776/DW
   DEF:DISK         117-EQU     2659/DATA
   DEF:TAPE         116-EQU     2660/DATA
   DEF:TYPE         118-EQU     2661/DATA
   DENSAV           478/STW     1070/LW      1230/STW     1540/LW      2677-DATA
   DERRORS          853/LW      1229/STW     2055/MTW     2655-DATA
   DEV010           463/BNE      468-CI
   DEV011           469/BNE      473-CI
   DEV015           466/B        471/B        478-STW
   DIR%READ         501/BAL     1489-EQU
   DIRMSG1          502/LI      2728-TEXTC
   DIRMSG2          504/LI      2729-TEXTC
   DIRMSG4          549/STW      550/LI      2730-TEXTC
   DIRMSG5          544/STW      545/LI      2731-TEXTC
   DIRSTACK         515/LD       519/PLW     1571/STD     2594-RES
   DISCDEV          567/LW       634/STW      640/LW       807/CS      1081/STW     1094/STW     1127/STW
      1140/STW     1157/LW      1164/SIO*    1167/LW      1184/LW      1212/STW     1686/CW      2068/SIO*
      2071/LW      2103/LW      2243/LW      2321/HIO*    2329/HIO*    2659-DATA
   DISCERTN        1903/BCS     1911-EQU
   DISCGO          2064/B       2068-SIO     2073/B       2105/B       2170/B       2181/B
   DISCHAND        1687/BE      1893-EQU
   DISCOLD         1158/CW      1172/STW     1213/STW     1225/STW     2658-DATA
   DKSEC1          2082/TESTBIT 2090-LW
   DOBUF2          2062/TESTBIT 2066-LI
   DRETRY          1227/STW     1908/STW     2053/MTW     2057/MTW     2058/LW      2657-DATA
   DSHOLD          1684/STW     1733/LB      1746/LH      1898/LB      1915/LB      1976/LW      2586-RES
   DSTATUS         1924-EQU     2077/B       2088/B
   DTTE             657-EQU      686/B
   DTTF             665/TESTBIT  668-EQU
   DTTH             677/TESTBIT  681-EQU
   DUMP            2288-EQU     2525/DATA
   DUMP0           2317/BNE     2324-CI
   DUMP1           2325/BE      2332-LD
   DVD001          1741/TESTBIT 1745-EQU
   DVP1            1161-EQU     1169/B       1194/B
   END              265/BNE      554-EQU
   ENDJOBS          630/BCS      706/TESTBIT  723/TESTBIT  738/TESTBIT  754/TESTBIT  813-EQU     2551/DATA
   ENDLAB           111/EQU     1088/GEN     1101/GEN     1111/GEN     1121/GEN     1134/GEN     1147/GEN
      2465/IOPCW   2467/IOPCW   2469/IOPCW   2471/IOPCW   2790-END
   EORCW           1042/LI      2482-IOPCW
   EORWRT           818/LI      2485-IOPCW
   ERG               91-EQU     1606/IOREQ
   ERGCW            970/LI      1861/LI      2475-IOPCW
   ERRORPSD         155/XPSD     160/XPSD     164/XPSD     168/XPSD     946/STD      947/LPSD    1986/XPSD
      2304/LW      2306/LW      2524-DATA    2549/EQU
   ERRPSD:C        2337/LPSD    2549-EQU
   ERRPSD:F        2322/LPSD    2551-DATA
   ERRPSD:X        2330/LPSD    2550-DATA
   ERRTYPE         1855/BAL     1926/BAL     1930-EQU
   FALTINTR        1673/BCS     1690/BNE     1697-LI
   FIND             223/BNE      229-EQU
   FIRSTSEK         644/LW       773/SW      2635-DATA
   FLAW            1900/BANZ    2111-EQU
   FLAWONE         2132/BLE     2173-EQU
   FLAWTWO         2135-EQU
   FLAW0           2117/B       2123-EQU
   FLAW1           2112/TESTBIT 2119-EQU
   FLAW2           2114-EQU
   FLCOMP          2163/B       2168-EQU
   FLIPBIT           21-CNAME
   FLSEEK1         2142/LI      2176/LI      2500/GEN     2510/GEN     2528-DATA
   FLSEEK2         2156/LI      2504/GEN     2529-DATA
   FL2CK           2149/B       2154-EQU
   FORCE            254/BE       324-SETBIT
   FSF               92-EQU      692/IOREQ   1496/IOREQ
   FSFCW            975/LI      2480-IOPCW
   FSR               94-EQU     1512/IOREQ
   FSRCW            960/LI      2481-IOPCW
   GETMODEL         352-EQU      620/BAL     1178/BAL
   GETMOD0          355/BE       362-EQU
   GPARAM           259/B        271-EQU      292/BNE    305.3/BNE      308/BNE      322/B        346/B
       438/B        483/B
   GP1              414/BL       419/BG       436-LW
   GP1DC            436/LW      2670-DATA
   GP2              474/BNE      481-LW
   GP2DN            481/LW      2671-DATA
   GX               423-AI       431/B        434/B
   HDRDATA1        2141/LI      2177/LI      2497/IOPCW   2518/GEN     2531-RES
   HDRDATA2        2155/LI      2532-RES
   HISEEK          1254/CW      1289/CW      1306/CW      1325/LW      1344/CW      2633-DATA
   INCCNT          1256/B       1271/BNE     1275-LW      1291/B       1308/B       1339/BL      1345/BL
      1352/BL      1359/BL
   INCHEAD         2642-DATA
   INCREMNT        1253/AW      1265/AW      1305/AW      1323/AW      2636-DATA
   INCSEK           670/BAL*     683/BAL*    2638-DATA
   INC12           1260-EQU     2604/DATA
   INC234          1249-EQU     2598/DATA    2600/DATA    2602/DATA    2638/DATA
   INC32           1301-EQU     2606/DATA    2608/DATA
   INC42           1315-EQU     2611/DATA
   INC42X          1343-EQU     1355/B       1362/B
   INC60           1312-EQU     2613/DATA
   INC70           1313-EQU     2615/DATA
   INC72           1316-EQU     2617/DATA
   INC75           1314-EQU     2619/DATA    2621/DATA
   INC75X          1327/BE      1348-EQU
   INC77X          1330/BE      1349-EQU
   INC81         1316.1-EQU   2623.1/DATA
   INC81X        1331.2/BE    1356.1-EQU
   INC82         1316.2-EQU   2623.3/DATA
   INC82X        1331.5/BE    1356.2-EQU
   INC83         1316.3-EQU   2623.5/DATA
   INC83X        1331.8/BE    1349.1-EQU
   INDICATE         294/OFFBIT   295/SETBIT   302/OFFBIT   303/SETBIT   310/OFFBIT   311/SETBIT
       314/SETBIT   324/SETBIT   325/OFFBIT   328/SETBIT   329/OFFBIT   332/SETBIT   555/LW       573/LC
       587/LB       627/TESTBIT  628/OFFBIT   665/TESTBIT  672/TESTBIT  677/TESTBIT  685/TESTBIT
       691/TESTBIT  697/TESTBIT  698/OFFBIT   704/SETBIT   705/TESTBIT  706/TESTBIT  717/TESTBIT
       723/TESTBIT  730/TESTBIT  738/TESTBIT  741/TESTBIT  754/TESTBIT  757/TESTBIT  802/OFFBIT
       803/TESTBIT  804/TESTBIT  810/SETBIT   814/LC       997/SETBIT  1004/SETBIT  1016/SETBIT
      1032/SETBIT  1078/TESTBIT 1079/SETBIT  1091/TESTBIT 1092/SETBIT  1104/TESTBIT 1105/SETBIT
      1114/TESTBIT 1115/SETBIT  1124/TESTBIT 1125/SETBIT  1137/TESTBIT 1138/SETBIT  1150/TESTBIT 1174/LC
      1186/TESTBIT 1224/STW     1294/SETBIT  1491/SETBIT  1514/OFFBIT  1537/SETBIT  1578/OFFBIT
      1710/TESTBIT 1716/LB      1721/OFFBIT  1731/TESTBIT 1741/TESTBIT 1772/SETBIT  1797/TESTBIT
      1820/TESTBIT 1828/TESTBIT 1846/TESTBIT 1864/TESTBIT 1894/TESTBIT 1906/OFFBIT  2062/TESTBIT
      2082/TESTBIT 2096/TESTBIT 2112/TESTBIT 2319/OFFBIT  2327/OFFBIT  2646-DATA
   INHIBIT          258/BE       328-SETBIT
   INPUT            196/LD       208/LB       263/LB      1053/LI      1205/LI      1447/STW     1454/LI
      1468/LB      1477/CI      1782/LI      2315/LB      2488/IOPCW   2580-RES
   INTERR          1667-EQU     2523/DATA
   IOINTOLD         166/XPSD    1695/LPSD    2522-DATA
   IONEWPSP        2523-DATA
   IOPCW             58-CNAME
   IOREQ             64-COM
   JBTIME           881/LI      2748-TEXT
   JOBDTGO          637/B        639-EQU
   JOBREST          593/B        594/B        688-EQU
   JOBSAVE          592/B        596-EQU
   JOBSCH           626-EQU      627/TESTBIT  672/TESTBIT  685/TESTBIT
   JOBSTACK         367/LW       371/LW*      378/PSW      404/PSW      433/PSW      516/STD      559/LW
       563/LW*      568/PSW      581/PSW      603/PLW     1233/STD     1570/LD      2559-DATA
   JOBTAB           565/B        583-EQU
   JOBTABLE         589/B        591-EQU
   JT1              871/STB     2749-TEXT
   JT2              880/STH     2750-TEXT
   L                 38/GEN       49/CW
   LASTCYLS         780/STW      784/CW       787/STW     1221/STW     2653-RES
   LDFL            2148/BAL     2162/BAL     2178/BAL     2183-EQU
   LDFL0         2186.4/BNEZ  2197.1-SCS
   LDFL1         2196.1/B     2197.7-STW
   LDNR            2152/BAL     2166/BAL     2211-EQU
   LNSCAN          1456-EQU     1465/BDR
   LOAD             111/EQU      153-EQU     1551/LI      1653/GEN
   LOSEEK           624/STM     1182/STM     2632-DATA
   LPSDRET         1693-LCI     1707/B       1711/B       1724/B       1731/TESTBIT 1836/BCR     1895/B
      1909/B       2069/BCR
   MARK%GRP         250/BE       366-EQU
   MGE0             369/BE       381-EQU
   MGE1             372/BLZ      382-EQU
   MGE2             376/BEZ      387-EQU
   MM16            1956/AND     2679-DATA
   MM24            1550/LW      2680-DATA
   MM5           2186.6/AND     2678-DATA
   MOD:BEG          339/LI       340/CW       353/LI       354/CW      2682-EQU
   MOD:END          339/LI       353/LI      2698-EQU
   MOD:FND          341/BE       348-EQU
   MOD:MSK          363/LW      2700-EQU
   MODEL            349/STW      375/XW       513/STW      525/XW       534/XW       570/LW       600/STW
       609/XW       616/LW       619/STW      653/LW      1177/LW      2669-DATA
   MOD1600         2492/IOPCW 2533.2-GEN
   MOD6250         2493/IOPCW 2533.3-GEN
   MOD800          2491/IOPCW 2533.1-GEN
   MSG::000        1522/LI      2758-TEXTC
   MSG::001        1614/LI      2759-TEXTC
   MSG::002         358/LI      2760-TEXTC
   MSGDATE          193/LI      2732-TEXTC
   MSGDCER          855/STW      856/LI      2761-TEXTC
   MSGOPR           194/BAL      203/BAL     1051/BAL     1203/BAL     1780/BAL     2035/BAL     2224-EQU
      2313/BAL
   MSGTPER          849/STW      850/LI      2757-TEXTC
   MSGX1            190/LI    2716.1-TEXTC
   MSGX2            576/LI      2718-TEXTC
   MSGX3            493/LI      2725-TEXTC
   MSGX4           1843/LI      2721-TEXTC
   MSGX5           1847/LI      2722-TEXTC
   MSGX5A          1851/LI      2723-TEXTC
   MSGX7            440/LI      2724-TEXTC
   MSGX8           2075/LI      2726-TEXTC
   MSGX9            272/LI      2727-TEXTC
   MSGYA10         2746-TEXTC
   MSGYA8          1942/LI      2744-TEXTC
   MSGYA9           838/LI      2093/LI      2745-TEXTC
   MSGY1           2027/LI      2735-TEXTC
   MSGY2           2044/LI      2736-TEXTC
   MSGY3           2050/LI      2737-TEXTC
   MSGY4           1050/LI      1779/LI      2738-TEXTC
   MSGY5           1751/LI      2739-TEXTC
   MSGY6           1937/LI      2740-TEXTC
   MSGY7           1974/LI      2741-TEXTC
   MSGY8           1697/LI      2742-TEXTC
   MSGY9           2079/LI      2743-TEXTC
   MTBOOT          1627-EQU     2489/IOPCW
   MTCDW           1634/LI      1645/AWM     1652-EQU     1657/GEN     1659/LI
   MVETABLE         602-EQU      610/BEZ      613/B
   M1600CW          470/LI      2492-IOPCW
   M3214           2608-DATA    2705/DATA
   M3214MSK        2687-DATA
   M3275           1329/CW      2621-DATA    2713/DATA
   M3275MSK        2695-DATA
   M3281         1331.1/CW    2623.1-DATA  2713.1/DATA
   M3281MSK      2695.1-DATA
   M3282         1331.4/CW    2623.3-DATA  2713.2/DATA
   M3282MSK      2695.2-DATA
   M3283         1331.7/CW    2623.5-DATA  2713.3/DATA
   M3283MSK      2695.3-DATA
   M6250CW          476/LI      2493-IOPCW
   M7202           2598-DATA    2701/DATA
   M7202MSK        2683-DATA
   M7203           2600-DATA    2702/DATA
   M7203MSK        2684-DATA
   M7204           2602-DATA    2703/DATA
   M7204MSK        2685-DATA
   M7211MSK        2686-DATA
   M7212           2604-DATA    2704/DATA
   M7232           2606-DATA    2706/DATA
   M7232MSK         579/LW      2688-DATA
   M7242           2611-DATA    2708/DATA
   M7242MSK        2690-DATA
   M7260           2613-DATA    2709/DATA
   M7260MSK        2691-DATA
   M7270           2615-DATA    2710/DATA
   M7270MSK        2692-DATA
   M7272           2617-DATA    2711/DATA
   M7272MSK        2693-DATA
   M7275           1326/CW      2619-DATA    2712/DATA
   M7275MSK        2694-DATA
   M800CW           465/LI      2491-IOPCW
   NBLOX            111-EQU     1557/LI      1630/LI
   NEWDCX           240/BE       314-SETBIT
   NEWLINE          187/LI      1481/LI      2299/LI      2487/IOPCW   2662-DATA
   NEWREEL         1014/BANZ    1030/BANZ    1040-LI
   NEWREELT        1770/BE      1775-EQU
   NLSCAN          1463/BE      1468-LB
   NOCORR          1735/BANZ    1743/BANZ    1804-EQU     1891/B
   NOCORRA         1812/B       1828-TESTBIT
   NODMSG           383/LI      2763-TEXTC
   NOFL1           2145/BEZ     2151-EQU
   NOFL2           2159/BEZ     2165-EQU
   NOIN0           1459/BE      1466/B       1476-EQU
   NOIN1           1461/BE      1480-EQU
   NOIN2           1470/BE      1484-EQU
   NOMODMSG         388/LI      2762-TEXTC
   NORMRTRY        1748/BANZ    1814-EQU
   NOSECT          1919/BANZ    2079-LI
   NR1              261-EQU      296/B        304/B      305.6/B        312/B        315/B        326/B
       330/B        333/B        350/B        379/B        408/BE       425/BG       479/B        498/B
       538/BCS
   NTRIES           113-EQU     1492/LI      1544/LI
   OEORF           2482/IOPCW   2539-TEXT
   OEORR           2485/IOPCW   2538-TEXT
   OFFBIT            20-CNAME
   OFFLINE         1047/LI      1776/LI      2271/CI      2474-IOPCW
   OKDISC          1894/TESTBIT 1897-EQU
   OKTAPE          1710/TESTBIT 1713-CW
   OLDREEL         1050-LI      1058/BCS     1061/BCR
   OLDREELT        1779-LI      1787/BCS     1790/BCR
   OVERLAP          636/BAL      802-OFFBIT  1065/BAL     1193/BAL
   OVER0            803/TESTBIT  808/BE       811-B
   OVER1            804/TESTBIT  810-SETBIT
   OVLP0           1175/BCR     1187-BAL
   OVLP1           1192-EQU     1214/B
   OVRRD           1186/TESTBIT 1196-EQU     1210/BCS
   PAD             2444/BE      2451-EQU
   PAD1            2455-STB     2457/BDR
   PDRD            1500-EQU     1532/B
   PDRETRY         1510/BNE     1518-EQU
   PDRETRY0        1520/BGZ     1526-EQU
   PGMRITE         1552/STS     1555/STS     1561/LI      1565/AWM     2490-IOPCW
   PJOBSTK          368/CW       560/CW      1232/LD      2565-DATA
   PNTDIR           248/BE       500-EQU
   PNTDIR0          518-EQU      526/BEZ      530/B
   PNTDIR1          523/BGZ      528-EQU
   PNTDIR2          520/BCS      532-EQU
   PRESET           185/BAL      199/BAL     1216-EQU
   PRETIME          585/STW      860/SW      2674-DATA
   PRGSMSG          794/STW      796/LI      2719-TEXTC
   PRGS0            778/BE       783-EQU
   PROGRESS         660/BAL      711/BAL      749/BAL      765-EQU
   PROMPT0          202/LI      2664-DATA
   PROMPT1         1485/LI      2665-DATA
   PRT%MOD          541/BLZ      549-STW
   PRTDEC           792/BAL      865/BAL      876/BAL      889/BAL      900/BAL     2431-EQU
   PRTHEX           447/BAL      543/BAL      837/BAL      848/BAL      854/BAL     1187/BAL     1197/BAL
      1700/BAL     1936/BAL     1945/BAL     1951/BAL     1964/BAL     1970/BAL     1977/BAL     2011/BAL
      2030/BAL     2100/BAL     2406-EQU
   PSTCNT          1273/B       1277-LI
   PSTCNT1         1279-STB
   PWRD             537-PLW      547/B        552/B
   PWRKSTK          509/LD      1235/LD      2568-DATA
   RDBUF1CW         998/LI      1801/LI      1829/LI      2464-IOPCW
   RDBUF2CW        1005/LI      1798/LI      1832/LI      2466-IOPCW
   RDDIR           1504/LI      2483-IOPCW
   RD1               84-EQU      658/IOREQ    694/IOREQ    733/IOREQ    755/IOREQ
   RD2               85-EQU      673/IOREQ    720/IOREQ    739/IOREQ
   READCW          1450/LI      2488-IOPCW
   REDOB1          1797/TESTBIT 1801-LI
   REGSTACK        2571/DATA    2573/DATA    2577-RES
   REOFCW          1765/LI      2472-IOPCW
   REQDC           1202/LI      2733-TEXTC
   REREAD          1443-EQU     1478/BE      1487/B
   RESTORE         1912/LI      2495-IOPCW
   RESTRTN          238/BE       306-LW
   RETRI           1643/BCR     1659-LI
   RETRY0          1493/STW     1519/MTW     1545/STW     1602/MTW     2649-RES
   RETRY1          1558/STW     1567/MTW     2650-RES
   RETRY2          1502/STW     1509/CW      1589/STW     1595/LW      2651-RES
   RETRY3          1584/STW     1591/LW      2652-RES
   REW               90-EQU      689/IOREQ   1495/IOREQ   1538/IOREQ
   REWCW            824/LI       965/LI      1067/LI      1794/LI      2473-IOPCW
   REWRT           1820/TESTBIT 1858-EQU
   RGO              176/LW      1648-EQU
   RTN             1373-EQU     1385/B       1395/B
   RTNTIO           950/BAL      954/BAL      959/BAL      964/BAL      969/BAL      974/BAL      979/BAL
       984/BAL      995/BAL     1002/BAL     1009/BAL     1025/BAL     1366-EQU
   RTN0            1375/BCR     1397-EQU
   RTN1            1376/BCR     1387-EQU
   RTN2            1377/BCS     1392-EQU
   RTN3            1379-EQU     1390/BANZ
   RUNDISC         1917/BANZ    1922/B       2053-MTW
   RWCOMSIO         951/B        999/B       1006/B       1022/B       1038/B       1402-EQU     1409/B
   S:PT             0.4/EQU
   S:UFV            111/EQU      111/EQU
   SAVE%K           604/BCS      615-EQU
   SAVE%L           607/BGEZ     612-PSW
   SAVE%M           609-XW
   SAVE%N           618-EQU      633/BLZ
   SAVEDATE         197/STD     2483/IOPCW   2484/IOPCW   2593-RES
   SAVERTN          252/BE       290-LW
   SCAN             201-LI       225/BGE      278/B        385/B        390/B        495/B        557/BAZ
   SCAN1            205-BAL      267/B
   SCAN2            208-LB       220/B        227/B
   SCAN3            211/BE       213/BE       215/BE       222-CI
   SECTMASK        2640-DATA
   SECTMAX         2131/CW      2641-DATA
   SECTSHFT         769/MTW     2639-DATA
   SENSE           1998/LW      2495/IOPCW   2540-DATA
   SENSECW         1527/LI      1821/LI      2477-IOPCW
   SENSEDTA        2477/IOPCW   2478/IOPCW   2644-DATA
   SETBIT            19-CNAME
   SETCORR         1530/LI      1825/LI      2478-IOPCW
   SETDC            319/BE     319.2/BE       392-EQU
   SETDN            321/BE       457-EQU
   SETMODEL         246/BE       335-EQU
   SET0              89-EQU      819/IOREQ    825/IOREQ   1505/IOREQ   1528/IOREQ   1531/IOREQ   1542/IOREQ
      1592/IOREQ
   SET02            571/BNEZ     581-PSW
   SET03            561/BE       567-LW
   SET04            564/BGZ      570-LW
   SET05            574/BCR      579-LW
   SIO:            1636-SIO     1660/BDR
   SIOFAIL         1168/BAL     1408/BAL     1839/BAL     2024-EQU     2072/BAL     2252/BAL
   SIOMANL         2029-EQU     2045/B       2051/B
   SIXTY            864/DW       888/DW      2667-DATA
   SKIPDIR          242/BE       332-SETBIT
   SNSMSG          1994/LI      2734-TEXTC
   SNSPRNT         1999/BAL     2008-EQU     2085/BAL     2305/BAL     2307/BAL
   SNSTYPE         1925/BAL     1991-EQU
   STACK1          2559/DATA    2565/DATA    2596-RES
   STACK2          2562/DATA    2568/DATA    2576-RES
   START            172-EQU     1649/B       2790/END
   STBUF2          1828/TESTBIT 1832-LI
   STCKSIZE         114-EQU     2483/IOPCW   2484/IOPCW   2560/GEN     2563/GEN     2566/GEN     2569/GEN
      2576/RES     2596/RES
   STOP            1255/BGE     1290/BGE     1293-EQU     1307/BGE     1346/B
   STWMIN1          870-LB       873/BDR
   STWMIN2          894-LB       897/BDR
   SUBSTACK         443/PSM      453/PLM      788/PSW      799/PLW     1239/STD     1251/PSM     1262/PSM
      1296/PLM     1303/PSM     1320/PSM     1371/PSM     1399/PLM     1413/PSM     1419/PSM     1436/PLM
      1441/PSM     1473/PLM     1490/PSW     1515/PLW     1535/PSW     1579/PLW     1585/PSW     1610/PLW
      1669/PSM     1694/PLM     1931/PSW     1988/PLW     1992/PSW     2005/PLW     2009/PSW     2021/PLW
      2026/PSM     2038/PLM     2043/PSM     2049/PSM     2225/PSW     2231/PLW     2247/PSM     2258/PLM
      2262/PSW     2285/PLW     2294/LD      2297/STD     2333/STD     2408/PSM     2426/PLM     2433/PSM
      2448/PLM     2460/PLM     2571-DATA
   SWRTXB2         1864/TESTBIT 1868-LI
   T                 99-EQU      663/IOREQ    666/IOREQ    675/IOREQ    678/IOREQ    689/IOREQ    692/IOREQ
       694/IOREQ    695/IOREQ    720/IOREQ    721/IOREQ    733/IOREQ    734/IOREQ    739/IOREQ    742/IOREQ
       752/IOREQ    755/IOREQ    758/IOREQ    817/IOREQ    819/IOREQ    820/IOREQ    821/IOREQ    825/IOREQ
      1495/IOREQ   1496/IOREQ   1497/IOREQ   1498/IOREQ   1505/IOREQ   1506/IOREQ   1512/IOREQ   1528/IOREQ
      1529/IOREQ   1531/IOREQ   1538/IOREQ   1542/IOREQ   1576/IOREQ   1592/IOREQ   1593/IOREQ   1605/IOREQ
      1606/IOREQ
   T:BSR            920/B        953-EQU
   T:ERG            928/B        968-EQU
   T:FSF            929/B        973-EQU
   T:FSR            931/B        958-EQU
   T:RD1            921/B        994-EQU
   T:RD2            922/B       1001-EQU
   T:REW            927/B        963-EQU
   T:SET0           926/B        949-EQU
   T:WRT1           923/B       1008-EQU
   T:WRT2           924/B       1024-EQU
   T:WTE            925/B        983-EQU
   T:WTM            930/B        978-EQU
   TAPEDEV          497/STW      699/LW       805/LW       985/TDV*    1011/TDV*    1027/TDV*    1063/STW
      1374/TIO*    1393/LW      1404/SIO*    1407/LW      1619/LW      1689/CW      1757/LW      1792/STW
      1835/SIO*    1838/LW      2239/LW      2268/CW      2320/HIO*    2328/HIO*    2660-DATA
   TAPEHAND        1691/B       1709-EQU
   TAPERROR        1714/BANZ    1726-EQU
   TCDB             741/TESTBIT  744-EQU
   TCDD             757/TESTBIT  760-EQU
   TCPVFLAG       305.5/MTW   1223.1/STW   2186.3/MTW   2677.1-DATA
   TCPVRTN        258.2/BE     299.1/BNE    305.1-LW
   TCWSAVE          989/STW     1403/STW     1760/LW      2673-DATA
   TEN             2438/DW      2668-DATA
   TERRORS          847/LW      1228/STW     1501/LW      1508/LW      1588/LW      1596/CW      1729/MTW
      1755/MTW     1763/MTW     1890/MTW     2654-DATA
   TESTBIT           22-CNAME
   THOUSAND         862/DW       886/DW      2666-DATA
   TIME             162/MTW      174/STW      584/LW       859/LW       884/LW      1380/LW      1383/CW
      2648-DATA
   TIOFAIL         1394/BAL     2041-EQU     2281/BAL
   TITLE            0.4-EQU   2716.1/TEXTC
   TOBADTP         1808/BE      1818/BE      1842-EQU
   TPAIO           1713/CW      2675-DATA
   TPENDRD         1718/BANZ    1871-EQU
   TPENDTP         1720-EQU     1773/B       1856/B       1886/BE
   TPEOF           1739/BANZ    1763-MTW
   TPIODIAG        1753/B       1849/B       1854-EQU
   TPWRTPR         1737/BANZ    1755-MTW
   TPX1            1761/B       1799/B       1802/B       1830/B       1834-EQU     1840/B       1866/B
      1869/B
   TRAPMSG0        2301/LI      2764-TEXTC
   TRAPMSG1        2312/LI      2765-TEXTC
   TRETRY          1226/STW     1723/STW     1727/MTW     1805/MTW     1807/CW      1815/MTW     1817/CW
      1888/MTW     2656-DATA
   TRKINC          1268/BGE     1287-EQU
   TSHOLD          1682/STD     1882/LW      1944/LW      1950/LW      1955/LW      2585-RES
   TTD              702/BE       705-TESTBIT
   TTDE             706-TESTBIT  735/B
   TTDF             717/TESTBIT  720-IOREQ
   TTDH             730/TESTBIT  733-IOREQ
   TTP              691/TESTBIT  694-IOREQ
   TTX              697/TESTBIT  704-SETBIT
   TYPDV           1159/BNE     1171-EQU
   TYPECW          1424/STB     1426/STB     1430/STW     1432/LI      2486-IOPCW   2486/IOPCW
   TYPEDEV          179/TIO*     182/STW     2235/LW      2292/HIO*    2661-DATA
   TYPEORDR        1429/OR      2676-GEN
   USE0             815/BCS      823-EQU
   USE1             360/B        827-EQU     2550/DATA
   USE2             833/BG       836-EQU
   VERSION          0.3-EQU      0.4/EQU       65/TITLE
   WORK             217/STB      231/LB       285/STM      286/STM      287/STM      290/LW       298/LW
     305.1/LW       306/LW       317/LH       336/LD       393/LI       437/STW      441/LD       448/STW
       454/STD      458/LI       482/STW      486/LI       793/LW       870/LB       879/LH       894/LB
       903/LH      1188/STW     1198/STW     1768/LB      2031/STW     2423/STD     2440/STB     2455/STB
      2472/IOPCW   2556-RES
   WORKT            274/LI       277/STW      345/STW      449/LI       841/STW      842/LI       845/STW
      1189/LI      1199/LI      1702/STW     1703/LI      1706/STW     1934/STW     1939/LI      1946/LI
      1952/LI      1965/LI      1971/LI      1978/LI      1982/STW     2013/STW     2014/LI      2019/STW
      2032/LI      2101/LI      2555-DATA
   WRABT           2100-BAL     2109/B
   WRDIRTRY        1573/LI      2484-IOPCW
   WRD1            2096/TESTBIT 2107-LI
   WRKJOBSK         510/STD      529/PSW      535/PSW      537/PLW      612/PSW      629/PLW     1236/STD
      2562-DATA
   WRPRDSC         1921/BANZ    2093-LI
   WRTB:XX         1603/BEZ     1613-EQU
   WRTBOOT          597/BAL     1534-EQU
   WRTB0           1560-EQU     1568/BGZ
   WRTB1CW         1019/STW     1021/LI      1865/LI      2468-IOPCW
   WRTB2CW         1035/STW     1037/LI      1868/LI      2470-IOPCW
   WRTFAIL         1620/BAL     1758/BAL     2047-EQU     2104/BAL
   WRT1              86-EQU      663/IOREQ    707/IOREQ
   WRT2              87-EQU      675/IOREQ    724/IOREQ
   WSTOP           1600/BCS     1618-EQU
   WTE               88-EQU      662/IOREQ    666/IOREQ    674/IOREQ    678/IOREQ    695/IOREQ    718/IOREQ
       721/IOREQ    731/IOREQ    734/IOREQ    742/IOREQ    751/IOREQ    752/IOREQ    758/IOREQ    762/IOREQ
      1506/IOREQ   1593/IOREQ
   WTM               93-EQU      817/IOREQ    820/IOREQ    821/IOREQ   1576/IOREQ
   WTMCW            980/LI      1040/LI      1044/LI      2479-IOPCW
   XD1             2413-LI      2421/BDR
   XEQCIO          1433/BAL     1451/BAL     2234-EQU
   XEQDIO          1913/BAL     2127/BAL     2242-EQU
   XEQGIO          2236/B       2240/B       2245-EQU
   XEQG0           2250/BCR     2255-BAL
   XEQG1           2249-SIO     2253/B
   XEQLUP          2255/BAL     2261-EQU
   XEQLUP0         2264-EQU     2279/BCS     2282/B
   XEQLUP1         2272/BE      2276/BCR     2284-EQU
   XEQLUP2         2269/BNE     2274-EQU
   XEQTIO           990/BAL     1041/BAL     1043/BAL     1045/BAL     1046/BAL     1048/BAL     1068/BAL
      1072/BAL     1766/BAL     1777/BAL     1795/BAL     1811/BAL     1822/BAL     1824/BAL     1826/BAL
      1860/BAL     1862/BAL     2238-EQU
   XTNTIO          1369-EQU
   X1SAV            230/STW      262/LW      2645-RES
