7 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.blank   +++|          IDENT  BLANK,BLANK
00002  M01S00002.blank   +++|          ABS
00003  M01S00003.blank   +++|          SST
00004  M01S00004.blank   +++|          ENTRY  BLANK
00005  M01S00005.blank   +++|          ENTRY  ARG=
00006  M01S00006.blank   +++|          ENTRY  RFL=
00007  M01S00007.blank   +++|          ENTRY  SSJ=
00008  M01S00008.blank   +++|          SYSCOM B1

Seq #  *Modification Id* Act 
----------------------------+
00009  M02S00009.ns22000 ---|*COMMENT  BLANK - TAPE LABELING PROGRAM.
00010  M01S00001.ns22000 +++|*COMMENT  BLANK - BLANK TAPE LABELING PROGRAM.

Seq #  *Modification Id* Act 
----------------------------+
00011  M02S00010.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
00012  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M01S00011.blank   +++|          TITLE  BLANK - BLANK TAPE LABELING PROGRAM.
00014  M01S00012.blank   +++|          SPACE  4
00015  M01S00013.blank   +++|***       BLANK - BLANK TAPE LABELING PROGRAM.
00016  M01S00014.blank   +++|*         M. E. MADDEN.      73/04/01.
00017  M01S00015.blank   +++|*         J. L. LARSON.      76/04/21.
00018  M01S00016.blank   +++|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00017.ns22000 ---|***       *BLANK* WRITES AND VERIFIES *VOL1*,*HDR1*,AND *EOF1* EBCDIC

Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00018.ns22000 ---|*         OR ANSI TAPE LABELS ON AN UNLABELED MAGNETIC TAPE. IF THE
00021  M01S00002.ns22000 +++|***       *BLANK* WRITES AND VERIFIES *VOL1*, *HDR1*, AND *EOF1* LABELS
00022  M01S00003.ns22000 +++|*         (ASCII OR EBCDIC) ON AN UNLABELED MAGNETIC TAPE.  IF THE
00023  M01S00019.blank   +++|*         TAPE HAD BEEN BLANK LABELED WITH LABEL ACCESSIBILITY=BLANK
00024  M01S00020.blank   +++|*         A LABELED TAPE MAY HAVE NEW BLANK TAPE LABELS WRITTEN.
00025  M01S00021.blank   +++|*
00026  M01S00022.blank   +++|*
00027  M01S00023.blank   +++|*         THE FOLLOWING IS WRITTEN ON THE TAPE--
00028  M01S00024.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00029  M02S00025.ns22000 ---|*                VOL1 HDR1 * * EOF1 **
00030  M01S00004.ns22000 +++|*                VOL1 HDR1 * * EOF1 * *
00031  M01S00026.blank   +++|*
00032  M01S00027.blank   +++|*         WHERE * IS A TAPE MARK.
00033  M01S00028.blank   +++|*
00034  M01S00029.blank   +++|*         AFTER THE TAPE HAS BEEN BLANKED LABELED, IT IS UNLOADED,
00035  M01S00030.blank   +++|*         IF SPECIFIED, AND RETURNED.
00036  M01S00031.blank   +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00032.274l797 ---|***       CONTROL CARD STATEMENT.
00038  M01S00001.274l797 +++|***       BLANK COMMAND.
00039  M01S00033.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00034.274l797 ---|*         BLANK(VSN=...,VA=.,OWNER=.../...,LSL=.,

Seq #  *Modification Id* Act 
----------------------------+
00041  M02S00035.274l797 ---|*                                FA=.,OFA=.,D=...,CV=..,XT,U)
00042  M01S00002.274l797 +++|*         BLANK,VSN=VVVVVV,VA=X,OWNER=USER/FAMILY,LSL=X,FA=X,OFA=X,
00043  M01S00003.274l797 +++|*           D=DENSITY,CV=MODE,MT,NT,CT,AT,U,EVSN=EEEEEE).
00044  M01S00036.blank   +++|*
00045  M01S00037.blank   +++|*         VSN    VOLUME SERIAL NUMBER (1 - 6 CHARACTERS)
00046  M01S00004.274l797 +++|*
00047  M01S00005.274l797 +++|*                  DEFAULT IS *      *
00048  M01S00006.274l797 +++|*
00049  M01S00038.blank   +++|*         VA     VOLUME ACCESSIBILITY (1 CHARACTER)

Seq #  *Modification Id* Act 
----------------------------+
00050  M02S00039.274l797 ---|*         OWNER  OWNER IDENTIFICATION (USER NUMBER/FAMILY NAME)
00051  M01S00007.274l797 +++|*
00052  M01S00008.274l797 +++|*                  DEFAULT IS * * (VOL1 LABEL CAN BE REWRITTEN)
00053  M01S00009.274l797 +++|*
00054  M01S00010.274l797 +++|*         OWNER  OWNER IDENTIFICATION (USER/FAMILY)
00055  M01S00011.274l797 +++|*
00056  M01S00012.274l797 +++|*                  DEFAULT IS CURRENT USER NAME AND FAMILY OF JOB
00057  M01S00013.274l797 +++|*
00058  M01S00040.blank   +++|*         LSL    LABEL STANDARD LEVEL (1 CHARACTER)
00059  M01S00014.274l797 +++|*
00060  M01S00015.274l797 +++|*                  DEFAULT IS *1*
00061  M01S00016.274l797 +++|*
00062  M01S00041.blank   +++|*         FA     FILE ACCESSIBILITY (1 CHARACTER)
00063  M01S00017.274l797 +++|*
00064  M01S00018.274l797 +++|*                  DEFAULT IS * * (UNLIMITED ACCESS)
00065  M01S00019.274l797 +++|*
00066  M01S00042.blank   +++|*         OFA    OLD FILE ACCESSIBILITY (1 CHARACTER)

Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00043.274l797 ---|*         D      TAPE DENSITY

Seq #  *Modification Id* Act 
----------------------------+
00068  M02S00044.274l797 ---|*         CV     CONVERSION MODE (*AS* OR *US* = ASCII, *EB* = EBCDIC)

Seq #  *Modification Id* Act 
----------------------------+
00069  M02S00045.274l797 ---|*         XT     TRACK TYPE (X = M FOR 7-TRACK, N FOR 9-TRACK)

Seq #  *Modification Id* Act 
----------------------------+
00070  M02S00046.274l797 ---|*         U      UNLOAD AFTER BLANKING

Seq #  *Modification Id* Act 
----------------------------+
00071  M02S00047.274l797 ---|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00048.274l797 ---|***       DEFAULTS.
00073  M01S00049.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00074  M02S00050.274l797 ---|*         VSN    *      *

Seq #  *Modification Id* Act 
----------------------------+
00075  M02S00051.274l797 ---|*         VA     * * (VOL1 LABEL CAN BE REWRITTEN)

Seq #  *Modification Id* Act 
----------------------------+
00076  M02S00052.274l797 ---|*         OWNER  USER NUMBER AND FAMILY NAME DETERMINED FROM VALIDATION

Seq #  *Modification Id* Act 
----------------------------+
00077  M02S00053.274l797 ---|*         LSL    *1*

Seq #  *Modification Id* Act 
----------------------------+
00078  M02S00054.274l797 ---|*         FA     * * (UNLIMITED ACCESS)

Seq #  *Modification Id* Act 
----------------------------+
00079  M02S00055.274l797 ---|*         OFA    * *

Seq #  *Modification Id* Act 
----------------------------+
00080  M02S00056.274l797 ---|*         D      INSTALLATION DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00081  M02S00057.274l797 ---|*         CV     INSTALLATION DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00058.274l797 ---|*         XT     INSTALLATION DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
00083  M02S00059.274l797 ---|*         U      NOT SELECTED
00084  M01S00020.274l797 +++|*                  DEFAULT IS * *
00085  M01S00021.274l797 +++|*
00086  M01S00022.274l797 +++|*         D      TAPE DENSITY (200, 556, 800, 1600, 6250, 38000, LO,
00087  M01S00023.274l797 +++|*                  HI, HY, HD, PE, GE, CE, AE)
00088  M01S00024.274l797 +++|*
00089  M01S00025.274l797 +++|*                  200 = 200 BPI (MT DEVICE)
00090  M01S00026.274l797 +++|*                  556 = 556 BPI (MT DEVICE)
00091  M01S00027.274l797 +++|*                  800 = 800 BPI (MT OR NT DEVICE)
00092  M01S00028.274l797 +++|*                  1600 = 1600 CPI (NT DEVICE)
00093  M01S00029.274l797 +++|*                  6250 = 6250 CPI (NT DEVICE)
00094  M01S00030.274l797 +++|*                  38000 = 38000 CPI CARTRIDGE (CT OR AT DEVICE)
00095  M01S00031.274l797 +++|*                  LO = 200 BPI (MT DEVICE)
00096  M01S00032.274l797 +++|*                  HI = 556 BPI (MT DEVICE)
00097  M01S00033.274l797 +++|*                  HY = 800 BPI (MT DEVICE)
00098  M01S00034.274l797 +++|*                  HD = 800 BPI (NT DEVICE)
00099  M01S00035.274l797 +++|*                  PE = 1600 CPI (NT DEVICE)
00100  M01S00036.274l797 +++|*                  GE = 6250 CPI (NT DEVICE)
00101  M01S00037.274l797 +++|*                  CE = 38000 CPI CARTRIDGE (CT DEVICE)
00102  M01S00038.274l797 +++|*                  AE = 38000 CPI ACS CARTRIDGE (AT DEVICE)
00103  M01S00039.274l797 +++|*
00104  M01S00040.274l797 +++|*                  DEFAULT IS JOB DEFAULT VALUE FOR DEVICE TYPE
00105  M01S00041.274l797 +++|*
00106  M01S00042.274l797 +++|*         CV     CONVERSION MODE (AS, US, EB)
00107  M01S00043.274l797 +++|*
00108  M01S00044.274l797 +++|*                  EB = EBCDIC
00109  M01S00045.274l797 +++|*                  AS = ASCII
00110  M01S00046.274l797 +++|*                  US = ASCII
00111  M01S00047.274l797 +++|*
00112  M01S00048.274l797 +++|*                  DEFAULT IS JOB DEFAULT VALUE FOR DEVICE TYPE
00113  M01S00049.274l797 +++|*
00114  M01S00050.274l797 +++|*         DT     TAPE DEVICE TYPE
00115  M01S00051.274l797 +++|*
00116  M01S00052.274l797 +++|*                MT = 7 TRACK
00117  M01S00053.274l797 +++|*                NT = 9 TRACK
00118  M01S00054.274l797 +++|*                CT = CARTRIDGE
00119  M01S00055.274l797 +++|*                AT = ACS CARTRIDGE
00120  M01S00056.274l797 +++|*
00121  M01S00057.274l797 +++|*         MT     BLANK LABEL 7 TRACK TAPE (OBSOLETE)
00122  M01S00058.274l797 +++|*
00123  M01S00059.274l797 +++|*         NT     BLANK LABEL 9 TRACK TAPE (OBSOLETE)
00124  M01S00060.274l797 +++|*
00125  M01S00061.274l797 +++|*         U      UNLOAD UNIT AFTER BLANKING TAPE
00126  M01S00062.274l797 +++|*
00127  M01S00063.274l797 +++|*                  DEFAULT IS NOT SELECTED (DO NOT UNLOAD UNIT)
00128  M01S00064.274l797 +++|*
00129  M01S00065.274l797 +++|*         EVSN   EXTERNAL VSN (1 - 6 ALPHANUMERIC CHARACTERS)
00130  M01S00066.274l797 +++|*
00131  M01S00067.274l797 +++|*                  REQUIRED WHEN LABELING *AT* TAPE
00132  M01S00068.274l797 +++|*                  NOT ALLOWED WHEN NOT LABELING *AT* TAPE
00133  M01S00060.blank   +++|          SPACE  4,10
00134  M01S00061.blank   +++|***       ERROR MESSAGES.
00135  M01S00062.blank   +++|*
00136  M01S00063.blank   +++|*         * BLANK LABELS DO NOT VERIFY.*

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00064.blank1  ---|*                LABELS READ DO NOT MATCH THOSE WRITTEN.
00138  M01S00001.blank1  +++|*                LABELS READ DO NOT MATCH THOSE WRITTEN.  FOR
00139  M01S00002.blank1  +++|*                SYSTEM ORIGIN JOBS, THIS MESSAGE WILL FLASH AT
00140  M01S00003.blank1  +++|*                THE JOB-S CONTROL POINT.  ENTERING THE CONSOLE
00141  M01S00004.blank1  +++|*                COMMAND *GO,JSN* WILL RETRY THE REQUEST.
00142  M01S00065.blank   +++|*
00143  M01S00066.blank   +++|*         * ERROR IN ARGUMENTS.*
00144  M01S00067.blank   +++|*                ONE OR MORE ARGUMENTS WERE INCORRECT, OR
00145  M01S00068.blank   +++|*                REQUIRED ARGUMENTS WERE MISSING.
00146  M01S00069.274l797 +++|*
00147  M01S00070.274l797 +++|*         * EXTERNAL VSN NOT ALLOWED FOR TAPE DEVICE TYPE.*
00148  M01S00071.274l797 +++|*                AN EXTERNAL VSN WAS SPECIFIED FOR A TAPE DEVICE TYPE
00149  M01S00072.274l797 +++|*                OTHER THAN *AT*.
00150  M01S00073.274l797 +++|*
00151  M01S00074.274l797 +++|*         *EXTERNAL VSN NOT SPECIFIED FOR AT TAPE.*
00152  M01S00075.274l797 +++|*                AN EXTERNAL VSN WAS NOT SPECIFIED WHEN BLANK LABELING
00153  M01S00076.274l797 +++|*                AN *AT* TAPE.
00154  M01S00069.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00070.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00071.274l797 ---|*         * MT/NT CONFLICT.*

Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00072.274l797 ---|*                CONFLICT EXISTS BETWEEN 7- AND 9-TRACK TAPE

Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00073.274l797 ---|*                DESCRIPTORS (TRACK TYPE, DENSITY, AND/OR

Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00074.274l797 ---|*                CONVERSION MODE).
00160  M01S00077.274l797 +++|*         * INCORRECT DENSITY FOR TAPE DEVICE TYPE.
00161  M01S00078.274l797 +++|*                THE SPECIFIED DENSITY IS NOT SUPPORTED BY THE
00162  M01S00079.274l797 +++|*                SPECIFIED TAPE DEVICE TYPE.
00163  M01S00075.blank   +++|*
00164  M01S00076.blank   +++|*         * SYSTEM ERROR.*
00165  M01S00077.blank   +++|*                *RSB* MONITOR FUNCTION FAILS.
00166  M01S00078.blank   +++|*
00167  M01S00079.blank   +++|*         * TAPE BLANK LABELED.*
00168  M01S00080.blank   +++|*                BLANK LABEL OPERATION WAS SUCCESSFUL.
00169  M01S00005.blank1  +++|*
00170  M01S00006.blank1  +++|*         * TAPE READ/WRITE ERROR (BLANK).*
00171  M01S00007.blank1  +++|*                AN ERROR OCCURRED WHILE ATTEMPTING TO READ OR WRITE
00172  M01S00008.blank1  +++|*                THE TAPE LABELS.  FOR SYSTEM ORIGIN JOBS, THIS MESSAGE
00173  M01S00009.blank1  +++|*                WILL FLASH AT THE JOB-S CONTROL POINT.  ENTERING THE
00174  M01S00010.blank1  +++|*                CONSOLE COMMAND *GO,JSN* WILL RETRY THE REQUEST.
00175  M01S00081.blank   +++|          SPACE  4,10
00176  M01S00082.blank   +++|****      ASSEMBLY CONSTANTS.
00177  M01S00083.blank   +++|
00178  M01S00084.blank   +++|
00179  M01S00085.blank   +++| BUFL     EQU    101B        CIO BUFFER LENGTH
00180  M01S00086.blank   +++| BUFFL    EQU    12          SCRATCH BUFFER LENGTH
00181  M01S00087.blank   +++| COUNT    EQU    3           LABEL ERROR RETRY COUNT
00182  M01S00088.blank   +++|
00183  M01S00089.blank   +++|
00184  M01S00090.blank   +++|****
00185  M01S00091.blank   +++|          SPACE  4,10
00186  M01S00092.blank   +++|*         MICRO DEFINITIONS.
00187  M01S00093.blank   +++|
00188  M01S00094.blank   +++|
00189  M01S00095.blank   +++| VERNUM   MICRO  6,3,+"VER170"+

Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00096.blank2  ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00097.blank2  ---|          TITLE  MACROS.
00192  M01S00001.blank2  +++|          TITLE    COMMON DECKS.
00193  M01S00098.blank   +++|*         COMMON DECKS.
00194  M01S00099.blank   +++|
00195  M01S00100.blank   +++|
00196  M01S00101.blank   +++|*CALL     COMCMAC
00197  M01S00011.blank1  +++|*CALL     COMCCMD
00198  M01S00002.blank2  +++|*CALL     COMSPRD
00199  M01S00003.blank2  +++|*CALL     COMSSSD
00200  M01S00004.blank2  +++|          QUAL   COMSSSJ
00201  M01S00005.blank2  +++|*CALL     COMSSSJ
00202  M01S00006.blank2  +++|          QUAL   *
00203  M01S00007.blank2  +++|          TITLE    MACRO  DEFINITIONS.

Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00102.274l797 ---| RDSB     SPACE  4
00205  M01S00080.274l797 +++| RDSB     SPACE  4,10
00206  M01S00103.blank   +++|**        RDSB.
00207  M01S00081.274l797 +++|*
00208  M01S00104.blank   +++|*         READ SUB-SYSTEM BLOCK.
00209  M01S00105.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00106.274l797 ---|*

Seq #  *Modification Id* Act 
----------------------------+
00211  M02S00107.274l797 ---|*         STATUS WORD *SS* IS USED.  EXITS TO *ERR1* IF ERRORS.
00212  M01S00082.274l797 +++|*         STATUS WORD *SS* IS USED.
00213  M01S00108.blank   +++|*
00214  M01S00109.blank   +++|*         RDSB   QUEUE,WC,FROM,TO
00215  M01S00110.blank   +++|
00216  M01S00111.blank   +++|          PURGMAC RDSB
00217  M01S00112.blank   +++|
00218  M01S00113.blank   +++| RDSB     MACRO  Q,W,F,T
00219  M01S00083.274l797 +++|          MACREF RDSB
00220  M01S00114.blank   +++|          R= X5,W
00221  M01S00115.blank   +++|          R= X6,T
00222  M01S00116.blank   +++|          R= X7,F
00223  M01S00117.blank   +++|          R= X1,Q
00224  M01S00118.blank   +++|          RJ RSB
00225  M01S00119.blank   +++|          ENDM

Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00120.blank2  ---| COMSSSJ  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00121.blank2  ---|**        DEFINE SSJ= PARAMETERS.

Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00122.blank2  ---|

Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00123.blank2  ---|

Seq #  *Modification Id* Act 
----------------------------+
00230  M02S00124.blank2  ---|          QUAL   COMSSSJ

Seq #  *Modification Id* Act 
----------------------------+
00231  M02S00125.blank2  ---|*CALL     COMSSSJ

Seq #  *Modification Id* Act 
----------------------------+
00232  M02S00126.blank2  ---|          QUAL   *
00233  M01S00127.blank   +++| BLANK    SPACE  4
00234  M01S00128.blank   +++|          TITLE  MAIN PROGRAM.
00235  M01S00129.blank   +++|          ORG    110B
00236  M01S00130.blank   +++|
00237  M01S00131.blank   +++|
00238  M01S00132.blank   +++|**        BLANK - MAIN PROGRAM.
00239  M01S00133.blank   +++|
00240  M01S00134.blank   +++|
00241  M01S00135.blank   +++| BLANK    SB1    1           (B1) = 1

Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00136.274l797 ---|          SB2    CCDR        UNPACK CONTROL CARD
00243  M01S00084.274l797 +++|          SB2    CCDR        UNPACK COMMAND
00244  M01S00137.blank   +++|          RJ     USB

Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00138.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00139.ns22000 ---| BLK1     SA5    BLANKC      CHECK FOR *BLANK*
00247  M01S00005.ns22000 +++| BLK1     SA5    =0LBLANK    CHECK FOR *BLANK*
00248  M01S00140.blank   +++|          RJ     POP

Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00141.274l797 ---|          NG     B5,ERR      IF CONTROL CARD ERROR
00250  M01S00085.274l797 +++|          NG     B5,ERR      IF COMMAND ERROR
00251  M01S00142.blank   +++|          ZR     X2,ERR      IF ILLEGAL SEPARATOR
00252  M01S00143.blank   +++|          BX7    X6-X5
00253  M01S00144.blank   +++|          NZ     X7,BLK1     IF NOT *BLANK*
00254  M01S00145.blank   +++|          SX1    X1-1R=
00255  M01S00146.blank   +++|          ZR     X1,ERR      IF ILLEGAL SEPARATOR
00256  M01S00008.blank2  +++|
00257  M01S00009.blank2  +++|*         RESTORE USER NAME AND USER INDEX IN CONTROL POINT AREA.
00258  M01S00010.blank2  +++|
00259  M01S00011.blank2  +++|          SA1    SSJ=+/COMSSSJ/UIDS  USER NAME AND USER INDEX
00260  M01S00012.blank2  +++|          BX6    X1
00261  M01S00013.blank2  +++|          SA6    BLKA+2
00262  M01S00014.blank2  +++|          SX6    3           SET USER NAME AND USER INDEX FLAGS
00263  M01S00015.blank2  +++|          SA6    BLKA
00264  M01S00016.blank2  +++|          SETPFP BLKA        CHANGE USER NAME AND USER INDEX IN CP AREA
00265  M01S00006.ns22000 +++|
00266  M01S00007.ns22000 +++|*         INITIALIZE LABELS.
00267  M01S00008.ns22000 +++|
00268  M01S00147.blank   +++|          RJ     BOP         PROCESS OPTIONAL PARAMETERS
00269  M01S00148.blank   +++|          SA1    HDR
00270  M01S00149.blank   +++|          SA2    HDR1        BUILD HDR1 FIRST WORD
00271  M01S00150.blank   +++|          MX0    -36
00272  M01S00151.blank   +++|          SA3    EOF1        BUILD EOF1 FIRST WORD
00273  M01S00152.blank   +++|          BX1    -X0*X1
00274  M01S00153.blank   +++|          BX6    X1+X2
00275  M01S00154.blank   +++|          SA6    A2
00276  M01S00155.blank   +++|          BX6    X1+X3
00277  M01S00156.blank   +++|          SA6    A3

Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00157.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00158.ns22000 ---|**        ASSIGN TAPE.

Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00159.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00160.ns22000 ---|
00282  M01S00161.blank   +++|          UNLOAD F,R

Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00162.ns22000 ---|          LABEL  F           REQUEST TAPE

Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00163.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00164.ns22000 ---|**        CHECK FOR EST ORDINAL OF TAPE ASSIGNED.

Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00165.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00009.blank1  ---|          LABEL  X2          REQUEST OPERATOR TAPE ASSIGNMENT
00288  M01S00012.blank1  +++|
00289  M01S00013.blank1  +++|*         ENTER HERE TO RETRY AFTER OPERATOR *GO*.
00290  M01S00014.blank1  +++|

Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00015.blank1a ---| BLK2     LABEL  F           REQUEST OPERATOR TAPE ASSIGNMENT
00292  M01S00001.blank1a +++| BLK2     SA1    F+1         CLEAR ERROR PROCESSING BIT
00293  M01S00002.blank1a +++|          MX0    -1
00294  M01S00003.blank1a +++|          LX0    44
00295  M01S00004.blank1a +++|          BX6    X0*X1
00296  M01S00005.blank1a +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
00297  M02S00006.274l797 ---|          LABEL  F           REQUEST OPERATOR TAPE ASSIGNMENT
00298  M01S00086.274l797 +++|          LABEL  F           REQUEST TAPE ASSIGNMENT
00299  M01S00007.blank1a +++|          SA1    F+1         SET ERROR PROCESSING BIT
00300  M01S00008.blank1a +++|          SX0    B1
00301  M01S00009.blank1a +++|          LX0    44
00302  M01S00010.blank1a +++|          BX6    X0+X1
00303  M01S00011.blank1a +++|          SA6    A1
00304  M01S00010.ns22000 +++|
00305  M01S00011.ns22000 +++|*         INSERT EST ORDINAL INTO *HDR1* / *EOF1* LABELS.
00306  M01S00166.blank   +++|
00307  M01S00167.blank   +++|          STATUS F,P
00308  M01S00168.blank   +++|          SA1    F+6         READ FST FROM FET+6

Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00169.ns22000 ---|          MX0    -6
00310  M01S00012.ns22000 +++|          MX0    -9
00311  M01S00170.blank   +++|          LX1    12
00312  M01S00171.blank   +++|          MX2    -3
00313  M01S00172.blank   +++|          BX5    -X0*X1      EST ORDINAL
00314  M01S00173.blank   +++|          SB2    1R0
00315  M01S00174.blank   +++|          BX4    -X2*X5

Seq #  *Modification Id* Act 
----------------------------+
00316  M02S00175.ns22000 ---|          MX0    12
00317  M01S00013.ns22000 +++|          MX0    18
00318  M01S00176.blank   +++|          LX5    -3
00319  M01S00177.blank   +++|          SX4    X4+B2
00320  M01S00014.ns22000 +++|          BX7    -X2*X5
00321  M01S00015.ns22000 +++|          LX5    -3
00322  M01S00016.ns22000 +++|          SX7    X7+B2
00323  M01S00178.blank   +++|          BX5    -X2*X5
00324  M01S00179.blank   +++|          SA3    HDR+7       ENTER EST ORDINAL IN HDR1
00325  M01S00180.blank   +++|          SX5    X5+B2

Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00181.ns22000 ---|          LX4    -12
00327  M01S00017.ns22000 +++|          LX4    -18
00328  M01S00182.blank   +++|          BX3    -X0*X3
00329  M01S00183.blank   +++|          LX5    -6
00330  M01S00184.blank   +++|          BX6    X4+X5
00331  M01S00018.ns22000 +++|          LX7    -12
00332  M01S00019.ns22000 +++|          BX6    X6+X7
00333  M01S00185.blank   +++|          BX6    X6+X3

Seq #  *Modification Id* Act 
----------------------------+
00334  M02S00186.blank1a ---|          SA6    A3
00335  M01S00012.blank1a +++|          SA6    A3+
00336  M01S00187.blank   +++|          SA2    DBS         SET DEFAULT BLOCK SIZE IN FET
00337  M01S00188.blank   +++|          BX6    X6-X6
00338  M01S00189.blank   +++|          LX7    X2
00339  M01S00190.blank   +++|          SA6    F+5         CLEAR FNT/FST FROM FET

Seq #  *Modification Id* Act 
----------------------------+
00340  M02S00191.blank1a ---|          SA7    A6+B1       SET MLRS FIELD
00341  M01S00013.blank1a +++|          SA7    A6+1        SET MLRS FIELD

Seq #  *Modification Id* Act 
----------------------------+
00342  M02S00192.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00343  M02S00193.ns22000 ---|**        WRITE BLANK LABELS.

Seq #  *Modification Id* Act 
----------------------------+
00344  M02S00194.ns22000 ---|
00345  M01S00020.ns22000 +++|
00346  M01S00021.ns22000 +++|*         WRITE LABELS.
00347  M01S00016.blank1  +++|*         ENTER HERE TO RETRY IF ERROR DETECTED AND RETRY COUNT
00348  M01S00017.blank1  +++|*         NOT YET EXHAUSTED.
00349  M01S00195.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
00350  M02S00196.blank1  ---| BLK2     REWIND F
00351  M01S00018.blank1  +++| BLK3     REWIND F

Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00197.ns22000 ---|
00353  M01S00198.blank   +++|          MOVE   10,VBUF,BUF      VOL1

Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00199.ns22000 ---|
00355  M01S00200.blank   +++|          SA1    HDR1        SET *HDR1*
00356  M01S00201.blank   +++|          BX6    X1
00357  M01S00202.blank   +++|          SA6    HDR
00358  M01S00203.blank   +++|          MOVE   10,HBUF,BUF+10   HDR1

Seq #  *Modification Id* Act 
----------------------------+
00359  M02S00204.ns22000 ---|
00360  M01S00205.blank   +++|          MOVE   2,EOT,BUF+20     TAPE MARK
00361  M01S00206.blank   +++|          MOVE   2,EOT,BUF+22     TAPE MARK

Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00207.ns22000 ---|
00363  M01S00208.blank   +++|          SA1    EOF1        SET *EOF1*
00364  M01S00209.blank   +++|          BX6    X1
00365  M01S00210.blank   +++|          SA6    HDR
00366  M01S00211.blank   +++|          MOVE   10,HBUF,BUF+24  EOF1

Seq #  *Modification Id* Act 
----------------------------+
00367  M02S00212.ns22000 ---|
00368  M01S00213.blank   +++|          MOVE   2,EOT,BUF+34     TAPE MARK
00369  M01S00214.blank   +++|          MOVE   2,EOT,BUF+36     TAPE MARK

Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00215.ns22000 ---|
00371  M01S00216.blank   +++|          RECALL F
00372  M01S00217.blank   +++|          SX6    BUF+38
00373  M01S00218.blank   +++|          SA6    F+2         SET IN
00374  M01S00219.blank   +++|          WRITECW F,R        WRITE LABELS ONTO TAPE
00375  M01S00019.blank1  +++|          RJ     CTS         CHECK TAPE STATUS
00376  M01S00220.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
00377  M02S00221.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00378  M02S00222.ns22000 ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00379  M02S00223.ns22000 ---|**        VERIFY LABELS.

Seq #  *Modification Id* Act 
----------------------------+
00380  M02S00224.ns22000 ---|
00381  M01S00022.ns22000 +++|*         VERIFY LABELS.
00382  M01S00225.blank   +++|
00383  M01S00226.blank   +++|          REWIND F,R

Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00227.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00228.ns22000 ---|*         VERIFY VOL1, HDR1, AND TAPE MARK.

Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00229.ns22000 ---|
00387  M01S00230.blank   +++|          READCW F,17B       READ EXPECTED LABELS
00388  M01S00020.blank1  +++|          RJ     CTS         CHECK TAPE STATUS
00389  M01S00231.blank   +++|          SA0    VBUF
00390  M01S00232.blank   +++|          RJ     VYL         VERIFY VOLUME LABEL
00391  M01S00233.blank   +++|          SA1    HDR1        SET *HDR1*
00392  M01S00234.blank   +++|          BX6    X1
00393  M01S00235.blank   +++|          SA6    HDR
00394  M01S00236.blank   +++|          SA0    HBUF
00395  M01S00237.blank   +++|          RJ     VYL         VERIFY HEADER LABEL
00396  M01S00238.blank   +++|          RJ     VTM         VERIFY TAPE MARK

Seq #  *Modification Id* Act 
----------------------------+
00397  M02S00239.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00398  M02S00240.ns22000 ---|*         VERIFY SECOND TAPE MARK.

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00241.ns22000 ---|
00400  M01S00242.blank   +++|          READCW F,17B
00401  M01S00021.blank1  +++|          RJ     CTS         CHECK TAPE STATUS
00402  M01S00243.blank   +++|          RJ     VTM         VERIFY TAPE MARK

Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00244.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00245.ns22000 ---|*         VERIFY EOF1 AND TAPE MARK.

Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00246.ns22000 ---|
00406  M01S00247.blank   +++|          READCW F,17B
00407  M01S00022.blank1  +++|          RJ     CTS         CHECK TAPE STATUS
00408  M01S00248.blank   +++|          SA1    EOF1        SET *EOF1*
00409  M01S00249.blank   +++|          BX6    X1
00410  M01S00250.blank   +++|          SA6    HDR
00411  M01S00251.blank   +++|          SA0    HBUF
00412  M01S00252.blank   +++|          RJ     VYL         VERIFY TRAILER LABEL
00413  M01S00253.blank   +++|          RJ     VTM         VERIFY TAPE MARK

Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00254.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00255.ns22000 ---|*         VERIFY FINAL TAPE MARK.

Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00256.ns22000 ---|
00417  M01S00257.blank   +++|          READCW F,17B
00418  M01S00023.blank1  +++|          RJ     CTS         CHECK TAPE STATUS
00419  M01S00258.blank   +++|          RJ     VTM         VERIFY TAPE MARK

Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00259.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00260.ns22000 ---|
00422  M01S00261.blank   +++|          UNLOAD F
00423  M01S00262.blank   +++|          MESSAGE (=C* TAPE BLANK LABELED.*),3
00424  M01S00263.blank   +++|          ENDRUN
00425  M01S00017.blank2  +++|
00426  M01S00018.blank2  +++|
00427  M01S00019.blank2  +++| BLKA     BSSZ   3           *SETPFP* BLOCK

Seq #  *Modification Id* Act 
----------------------------+
00428  M02S00264.blank1  ---| VER      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00024.274l797 ---| IEE      SPACE  4,20
00430  M01S00087.274l797 +++| IEE      SPACE  4,15
00431  M01S00025.blank1  +++|**        IEE - I/O ERROR EXIT.
00432  M01S00026.blank1  +++|*
00433  M01S00027.blank1  +++|*         ENTRY  FROM *CTS* IF ERROR STATUS DETECTED IN FET.
00434  M01S00028.blank1  +++|*                FROM *VER* (AT *IEE1*) IF VERIFY ERROR RETRY COUNT
00435  M01S00029.blank1  +++|*                EXHAUSTED.
00436  M01S00030.blank1  +++|*
00437  M01S00031.blank1  +++|*         EXIT   TO *BLK3* IF RETRY COUNT NOT YET EXHAUSTED.
00438  M01S00032.blank1  +++|*                TO *ABT* IF RETRY COUNT EXHAUSTED AND NOT *SYOT*.
00439  M01S00033.blank1  +++|*                TO *BLK2* IF OPERATOR ENTERS *GO* TO FLASHING REQUEST.
00440  M01S00034.blank1  +++|*
00441  M01S00035.blank1  +++|*         USES   X - 1, 2, 6.
00442  M01S00036.blank1  +++|*                A - 1, 6.
00443  M01S00037.blank1  +++|*                B - 2.
00444  M01S00038.blank1  +++|*
00445  M01S00039.blank1  +++|*         MACROS FLASH, MESSAGE, RECALL, REWIND, WRITEF, UNLOAD.
00446  M01S00040.blank1  +++|
00447  M01S00041.blank1  +++|
00448  M01S00042.blank1  +++| IEE      BSS    0           ENTRY
00449  M01S00043.blank1  +++|          SA1    IEEA
00450  M01S00044.blank1  +++|          SX6    X1-1
00451  M01S00045.blank1  +++|          SA6    A1
00452  M01S00046.blank1  +++|          NZ     X1,BLK3     IF RETRY COUNT NOT EXHAUSTED
00453  M01S00047.blank1  +++|          SX6    COUNT       RESET RETRY COUNT
00454  M01S00048.blank1  +++|          SA6    A1
00455  M01S00049.blank1  +++|          REWIND F
00456  M01S00050.blank1  +++|          WRITEF X2          ERASE LABELS
00457  M01S00051.blank1  +++|          UNLOAD X2
00458  M01S00052.blank1  +++|          SB2    =C* TAPE READ/WRITE ERROR (BLANK).*
00459  M01S00053.blank1  +++|
00460  M01S00054.blank1  +++|*         CHECK FOR SYSTEM ORIGIN PROCESSING.
00461  M01S00055.blank1  +++|
00462  M01S00056.blank1  +++| IEE1     SA1    JOPR        CHECK ORIGIN TYPE
00463  M01S00057.blank1  +++|          AX1    24
00464  M01S00058.blank1  +++|          MX2    -12
00465  M01S00059.blank1  +++|          BX1    -X2*X1
00466  M01S00060.blank1  +++|          ERRNZ  SYOT        CODE DEPENDS ON VALUE
00467  M01S00061.blank1  +++|          NZ     X1,ABT      IF NOT SYSTEM ORIGIN
00468  M01S00062.blank1  +++|
00469  M01S00063.blank1  +++|*         DISPLAY ERROR MESSAGE ON CONSOLE, WAIT FOR OPERATOR ACTION,
00470  M01S00064.blank1  +++|*         AND RETRY THE REQUEST IF OPERATOR ENTERS *GO,JSN*.
00471  M01S00065.blank1  +++|
00472  M01S00066.blank1  +++|          MESSAGE B2,1       DISPLAY MESSAGE
00473  M01S00067.blank1  +++|          SA1    B0          SET PAUSE FLAG IN RA+0
00474  M01S00068.blank1  +++|          MX2    1
00475  M01S00069.blank1  +++|          LX2    12-59
00476  M01S00070.blank1  +++|          BX6    X1+X2
00477  M01S00071.blank1  +++|          SA6    A1
00478  M01S00072.blank1  +++|          FLASH
00479  M01S00073.blank1  +++| IEE2     RECALL
00480  M01S00074.blank1  +++|          SA1    B0          CHECK PAUSE FLAG IN RA+0
00481  M01S00075.blank1  +++|          LX1    59-12
00482  M01S00076.blank1  +++|          NG     X1,IEE2     IF PAUSE FLAG STILL SET
00483  M01S00077.blank1  +++|          EQ     BLK2        RETRY REQUEST
00484  M01S00078.blank1  +++|
00485  M01S00079.blank1  +++| IEEA     CON    COUNT       READ/WRITE ERROR RETRY COUNT
00486  M01S00080.blank1  +++| VER      SPACE  4,10
00487  M01S00265.blank   +++|**        VER - VERIFY ERROR EXIT.
00488  M01S00266.blank   +++|
00489  M01S00267.blank   +++|
00490  M01S00268.blank   +++| VER      BSS    0
00491  M01S00269.blank   +++|          SA1    VERA
00492  M01S00270.blank   +++|          SX6    X1-1
00493  M01S00271.blank   +++|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
00494  M02S00272.blank1  ---|          NZ     X1,BLK2     IF RETRY COUNT NOT EXHAUSTED
00495  M01S00081.blank1  +++|          NZ     X1,BLK3     IF RETRY COUNT NOT EXHAUSTED
00496  M01S00082.blank1  +++|          SX6    COUNT       RESET RETRY COUNT
00497  M01S00083.blank1  +++|          SA6    A1
00498  M01S00273.blank   +++|          REWIND F
00499  M01S00274.blank   +++|          WRITEF X2          ERASE LABELS
00500  M01S00275.blank   +++|          UNLOAD X2

Seq #  *Modification Id* Act 
----------------------------+
00501  M02S00276.ns22000 ---|          UNLOAD F
00502  M01S00277.blank   +++|          SB2    =C* BLANK LABELS DO NOT VERIFY.*

Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00278.blank1  ---|          EQ     ABT         ISSUE MESSAGE AND ABORT
00504  M01S00084.blank1  +++|          EQ     IEE1        RETRY OR ISSUE MESSAGE AND ABORT
00505  M01S00279.blank   +++|
00506  M01S00280.blank   +++| VERA     CON    COUNT       VERIFY ERROR RETRY COUNT

Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00281.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00282.ns22000 ---| BLANKC   VFD    60/0LBLANK
00509  M01S00283.blank   +++|          TITLE  SUBROUTINES.
00510  M01S00085.blank1  +++| CTS      SPACE  4,10
00511  M01S00086.blank1  +++|**        CTS - CHECK TAPE STATUS.
00512  M01S00087.blank1  +++|*
00513  M01S00088.blank1  +++|*         ENTRY  (F) = TAPE FET.
00514  M01S00089.blank1  +++|*
00515  M01S00090.blank1  +++|*         EXIT   TO *IEE* IF TAPE READ/WRITE ERRORS.
00516  M01S00091.blank1  +++|*
00517  M01S00092.blank1  +++|*         USES   A - 1.
00518  M01S00093.blank1  +++|*                X = 1, 6.
00519  M01S00094.blank1  +++|
00520  M01S00095.blank1  +++|
00521  M01S00096.blank1  +++| CTS      SUBR               ENTRY/EXIT
00522  M01S00097.blank1  +++|          SA1    F           CHECK ERROR CODE
00523  M01S00098.blank1  +++|          AX1    9
00524  M01S00099.blank1  +++|          MX6    -5
00525  M01S00100.blank1  +++|          BX1    -X6*X1
00526  M01S00101.blank1  +++|          ZR     X1,CTSX     IF NO ERROR
00527  M01S00102.blank1  +++|          EQ     IEE         PROCESS ERROR

Seq #  *Modification Id* Act 
----------------------------+
00528  M02S00284.274l797 ---| RSB      SPACE  4
00529  M01S00088.274l797 +++| RSB      SPACE  4,15
00530  M01S00285.blank   +++|**        RSB - MAKE *RSB* REQUEST.
00531  M01S00286.blank   +++|*
00532  M01S00287.blank   +++|*         ENTRY  (X1) = SUBSYSTEM QUEUE PRIORITY.
00533  M01S00288.blank   +++|*                (X5) = WORD COUNT.
00534  M01S00289.blank   +++|*                (X6) = ADDRESS TO SEND TO.
00535  M01S00290.blank   +++|*
00536  M01S00291.blank   +++|*         EXIT   TO *ERR2*, IF SYSTEM ERROR.
00537  M01S00292.blank   +++|*
00538  M01S00293.blank   +++|*         USES   A - 1, 2, 7.
00539  M01S00294.blank   +++|*                X - 1, 2, 5, 6, 7.
00540  M01S00295.blank   +++|*
00541  M01S00296.blank   +++|*         CALLS  SYS=.
00542  M01S00297.blank   +++|
00543  M01S00298.blank   +++|
00544  M01S00299.blank   +++| RSB      SUBR               ENTRY/EXIT
00545  M01S00300.blank   +++|          SA2    RSBA
00546  M01S00301.blank   +++|          LX5    36
00547  M01S00302.blank   +++|          LX7    18
00548  M01S00303.blank   +++|          BX6    X6+X5
00549  M01S00304.blank   +++|          LX1    18
00550  M01S00305.blank   +++|          BX7    X7+X6
00551  M01S00306.blank   +++|          BX6    X1+X2
00552  M01S00307.blank   +++|          SA7    X6
00553  M01S00308.blank   +++|          RJ     =XSYS=
00554  M01S00309.blank   +++|          SA1    SS          CHECK ERROR RESPONSE
00555  M01S00310.blank   +++|          PL     X1,ERR2     IF ERROR CONDITION
00556  M01S00311.blank   +++|          EQ     RSBX        RETURN
00557  M01S00312.blank   +++|
00558  M01S00313.blank   +++| RSBA     VFD    18/3LRSB,12/2000B,12/0,18/SS
00559  M01S00314.blank   +++| SS       CON    0           RDSB MACRO STATUS WORD
00560  M01S00315.blank   +++| VTM      SPACE  4,10
00561  M01S00316.blank   +++|**        VTM - VERIFY TAPE MARK.
00562  M01S00317.blank   +++|*
00563  M01S00318.blank   +++|*         EXIT   TO VER IF ERRORS.
00564  M01S00319.blank   +++|*
00565  M01S00320.blank   +++|*         MACRO  READW.
00566  M01S00321.blank   +++|
00567  M01S00322.blank   +++|
00568  M01S00323.blank   +++| VTM      SUBR               ENTRY/EXIT
00569  M01S00324.blank   +++|          READW  F,BUFF,1
00570  M01S00325.blank   +++|          NG     X1,VTMX     IF EOF ENCOUNTERED
00571  M01S00326.blank   +++|          EQ     VER         ERROR
00572  M01S00327.blank   +++| VYL      SPACE  4,15
00573  M01S00328.blank   +++|**        VYL - VERIFY LABEL.
00574  M01S00329.blank   +++|*
00575  M01S00330.blank   +++|*         ENTRY  (A0) = FWA EXPECTED LABEL CONTENTS.
00576  M01S00331.blank   +++|*
00577  M01S00332.blank   +++|*         EXIT   TO VER IF ERRORS.
00578  M01S00333.blank   +++|*
00579  M01S00334.blank   +++|*         USES   A - 1, 2.
00580  M01S00335.blank   +++|*                B - 2.
00581  M01S00336.blank   +++|*                X - 0, 1, 2, 3.
00582  M01S00337.blank   +++|*
00583  M01S00338.blank   +++|*         MACRO  READW.
00584  M01S00339.blank   +++|
00585  M01S00340.blank   +++|
00586  M01S00341.blank   +++| VYL      SUBR               ENTRY/EXIT
00587  M01S00342.blank   +++|          READW  F,BUFF,10
00588  M01S00343.blank   +++|          NZ     X1,VER      IF EOR/EOF
00589  M01S00344.blank   +++|          SA1    A0
00590  M01S00345.blank   +++|          MX0    -30
00591  M01S00346.blank   +++|          SA2    BUFF
00592  M01S00347.blank   +++|          BX3    X1-X2
00593  M01S00348.blank   +++|          BX3    -X0*X3
00594  M01S00349.blank   +++|          NZ     X3,VER      IF INCORRECT UBC OR BLOCK LENGTH
00595  M01S00350.blank   +++|          SB2    8
00596  M01S00351.blank   +++| VYL1     SA1    A1+B1
00597  M01S00352.blank   +++|          SA2    A2+B1
00598  M01S00353.blank   +++|          BX3    X1-X2
00599  M01S00354.blank   +++|          SB2    B2-B1
00600  M01S00355.blank   +++|          NZ     X3,VER      IF LABEL CONTENT ERROR
00601  M01S00356.blank   +++|          NZ     B2,VYL1     IF MORE WORDS TO VERIFY
00602  M01S00357.blank   +++|          SA2    A2+B1
00603  M01S00358.blank   +++|          AX2    48
00604  M01S00359.blank   +++|          NZ     X2,VER      IF NOT LEVEL ZERO
00605  M01S00360.blank   +++|          EQ     VYLX        RETURN
00606  M01S00361.blank   +++|          TITLE  PARAMETER PROCESSING SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00362.274l797 ---| AOP      SPACE  4
00608  M01S00089.274l797 +++| AOP      SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
00609  M02S00363.ns22000 ---|**        AOP - ANALIZE OPTIONAL PARAMETERS.
00610  M01S00023.ns22000 +++|**        AOP - ANALYZE OPTIONAL PARAMETERS.
00611  M01S00364.blank   +++|*
00612  M01S00365.blank   +++|*         ENTRY  (B3) = PARAMETER OPTION TABLE ADDRESS.
00613  M01S00366.blank   +++|*                (B6) = ADDRESS TO BEGIN PARAMETER ASSEMBLY.
00614  M01S00367.blank   +++|*
00615  M01S00368.blank   +++|*         EXIT   (X1) = SEPARATOR.
00616  M01S00369.blank   +++|*                (X2) = OPTION TABLE ENTRY.
00617  M01S00370.blank   +++|*                (X5) = PARAMETER.
00618  M01S00371.blank   +++|*                TO ERR IF ERROR.
00619  M01S00372.blank   +++|*
00620  M01S00373.blank   +++|*         USES   A - 2.
00621  M01S00374.blank   +++|*                X - 2, 3, 6.
00622  M01S00375.blank   +++|*
00623  M01S00376.blank   +++|*         CALLS  CLP.
00624  M01S00377.blank   +++|
00625  M01S00378.blank   +++|
00626  M01S00379.blank   +++| AOP      SUBR               ENTRY/EXIT
00627  M01S00380.blank   +++|          RJ     CLP         GET PARAMETER
00628  M01S00381.blank   +++|          SA2    B3-B1       READ OPTION TABLE
00629  M01S00382.blank   +++|          MX3    30
00630  M01S00383.blank   +++| AOP1     SA2    A2+B1
00631  M01S00384.blank   +++|          BX6    X3*X2
00632  M01S00385.blank   +++|          ZR     X2,ERR      IF END OF OPTIONS
00633  M01S00386.blank   +++|          BX6    X6-X5
00634  M01S00387.blank   +++|          NZ     X6,AOP1     IF NO MATCH
00635  M01S00388.blank   +++|          EQ     AOPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00389.274l797 ---| BOP      SPACE  4
00637  M01S00090.274l797 +++| BOP      SPACE  4,20
00638  M01S00390.blank   +++|**        BOP - BLANK OPTIONAL PARAMETER PROCESSOR.
00639  M01S00391.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00392.274l797 ---|*         ENTRY  USBB CONTAINS UNPACKED CONTROL CARD.
00641  M01S00091.274l797 +++|*         ENTRY  USBB CONTAINS UNPACKED COMMAND.
00642  M01S00393.blank   +++|*                (B6) = STRING BUFFER POINTER.
00643  M01S00394.blank   +++|*
00644  M01S00395.blank   +++|*         EXIT   FET HAS TAPE DESCRIPTORS.

Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00396.274l797 ---|*                VBUF AND HBUF BUILT.

Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00397.274l797 ---|*                TO ERR IF ERROR.
00647  M01S00092.274l797 +++|*                *VBUF* AND *HBUF* BUILT.
00648  M01S00093.274l797 +++|*                TO *ERR* IF PARAMETER ERROR.
00649  M01S00398.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00399.274l797 ---|*         USES   ALL REGISTERS.
00651  M01S00094.274l797 +++|*         USES   X - ALL.
00652  M01S00095.274l797 +++|*                A - 1, 3, 4, 5, 6, 7.
00653  M01S00096.274l797 +++|*                B - 2, 3.
00654  M01S00400.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00401.274l797 ---|*         CALLS  AOP, SOI.
00656  M01S00097.274l797 +++|*         CALLS  AOP, SDT, SOI.
00657  M01S00402.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00403.ns22000 ---|*         MACRO  JDATE, RDSB.

Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00024.274l797 ---|*         MACROS GETPFP, JDATE, RDSB.
00660  M01S00098.274l797 +++|*         MACROS GETPFP, JDATE.
00661  M01S00404.blank   +++|
00662  M01S00405.blank   +++|
00663  M01S00406.blank   +++| BOP      SUBR               ENTRY/EXIT
00664  M01S00407.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00408.274l797 ---|*         SET DEFAULT TRACK TYPE AND OWNERSHIP.
00666  M01S00099.274l797 +++|*         SET DEFAULT OWNERSHIP AND TAPE DESCRIPTORS.
00667  M01S00409.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00410.ns22000 ---|          RDSB   0,1,ESTP,BOPA  READ *ESTP*

Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00411.ns22000 ---|          RDSB   0,1,IPRL,BOPB  READ *IPRW*

Seq #  *Modification Id* Act 
----------------------------+
00670  M02S00412.ns22000 ---|          RDSB   0,1,0,BOPC  READ *PFCW*

Seq #  *Modification Id* Act 
----------------------------+
00671  M02S00413.ns22000 ---|          SA1    BOPB

Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00025.274l797 ---|          MX6    1           GET INSTALLATION DEFAULTS

Seq #  *Modification Id* Act 
----------------------------+
00673  M02S00026.274l797 ---|          SA6    BOPA

Seq #  *Modification Id* Act 
----------------------------+
00674  M02S00027.274l797 ---|          RDSB   0,1,IPRL,A6

Seq #  *Modification Id* Act 
----------------------------+
00675  M02S00028.274l797 ---|          SA1    BOPA

Seq #  *Modification Id* Act 
----------------------------+
00676  M02S00414.274l797 ---|          SA2    F+1         SET DEFAULT DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00415.274l797 ---|          MX0    12

Seq #  *Modification Id* Act 
----------------------------+
00678  M02S00416.274l797 ---|          SX3    100B

Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00417.274l797 ---|          BX2    -X0*X2      CLEAR DEVICE TYPE FIELD

Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00418.274l797 ---|          LX1    1

Seq #  *Modification Id* Act 
----------------------------+
00681  M02S00419.274l797 ---|          BX3    X3*X1       DEFAULT TRACK TYPE BIT
00682  M01S00420.blank   +++|          SA4    DTD         DEFAULT TAPE DESCRIPTORS

Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00421.274l797 ---|          SX6    X3+2RMT     DEFAULT DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
00684  M02S00422.274l797 ---|          LX3    56-6        POSITION MT/NT BIT

Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00423.274l797 ---|          LX6    -12

Seq #  *Modification Id* Act 
----------------------------+
00686  M02S00424.274l797 ---|          BX6    X2+X6

Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00425.274l797 ---|          BX7    X3+X4

Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00426.274l797 ---|          SA6    A2          SET DEFAULT DEVICE TYPE IN FET
00689  M01S00100.274l797 +++|          BX7    X4
00690  M01S00427.blank   +++|          BX6    X6-X6
00691  M01S00428.blank   +++|          SA7    F+10B       SET DEFAULT TAPE DESCRIPTORS IN FET
00692  M01S00429.blank   +++|          SA6    A7+B1       CLEAR VSN FIELD

Seq #  *Modification Id* Act 
----------------------------+
00693  M02S00430.ns22000 ---|          SA2    A1-B1       ESTP

Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00431.ns22000 ---|          SA1    A1+B1       PFCW

Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00432.ns22000 ---|          MX0    -6

Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00433.ns22000 ---|          LX1    -12

Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00434.ns22000 ---|          BX1    -X0*X1      FAMILY INDEX

Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00435.ns22000 ---|          LX2    12

Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00436.ns22000 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
00700  M02S00437.ns22000 ---|          BX2    -X0*X2      EST FWA

Seq #  *Modification Id* Act 
----------------------------+
00701  M02S00438.ns22000 ---|          MX6    1

Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00439.ns22000 ---|          IX7    X2+X1       EST ENTRY ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00703  M02S00440.ns22000 ---|          SA6    A2

Seq #  *Modification Id* Act 
----------------------------+
00704  M02S00441.ns22000 ---|          RDSB   0,1,X7,A6   READ EST ENTRY

Seq #  *Modification Id* Act 
----------------------------+
00705  M02S00442.ns22000 ---|          SA1    BOPA

Seq #  *Modification Id* Act 
----------------------------+
00706  M02S00443.ns22000 ---|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
00707  M02S00444.ns22000 ---|          BX1    -X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00708  M02S00445.ns22000 ---|          LX1    3

Seq #  *Modification Id* Act 
----------------------------+
00709  M02S00446.ns22000 ---|          SX7    X1+PFGL     MST ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00447.ns22000 ---|          MX6    1

Seq #  *Modification Id* Act 
----------------------------+
00711  M02S00448.ns22000 ---|          SA6    A1

Seq #  *Modification Id* Act 
----------------------------+
00712  M02S00449.ns22000 ---|          RDSB   0,1,X7,A6   READ FAMILY NAME
00713  M01S00029.ns22000 +++|          GETPFP BOPA        GET FAMILY NAME
00714  M01S00450.blank   +++|          SA5    BOPA
00715  M01S00451.blank   +++|          MX0    42
00716  M01S00452.blank   +++|          BX5    X0*X5       FAMILY NAME
00717  M01S00453.blank   +++|          SA4    SSJ=+/COMSSSJ/UIDS
00718  M01S00454.blank   +++|          BX4    X0*X4       USER NUMBER
00719  M01S00455.blank   +++|          RJ     SOI         SET OWNER IDENTIFICATION

Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00456.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00457.ns22000 ---|*         DATE HRD1.

Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00458.ns22000 ---|

Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00459.ns22000 ---|          JDATE  BOPA
00724  M01S00030.ns22000 +++|          JDATE  BOPA        BUILD CREATION/RETENTION DATES
00725  M01S00460.blank   +++|          SA1    BOPA
00726  M01S00461.blank   +++|          BX2    X1
00727  M01S00001.ns2786  +++|          AX2    24
00728  M01S00002.ns2786  +++|          SX2    X2-1R7
00729  M01S00003.ns2786  +++|          SX5    1R          SET 20TH CENTURY FILL CHARACTER
00730  M01S00004.ns2786  +++|          PL     X2,BOP0     IF DATE IS BEFORE THE YEAR 2000
00731  M01S00005.ns2786  +++|          SX5    1R0         SET 21ST CENTURY FILL CHARACTER
00732  M01S00006.ns2786  +++| BOP0     BX2    X1
00733  M01S00462.blank   +++|          LX2    6

Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00463.ns2786  ---|          SX5    1R
00735  M01S00007.ns2786  +++|          BX2    X2+X5
00736  M01S00008.ns2786  +++|          LX5    6*6
00737  M01S00464.blank   +++|          BX2    X2+X5
00738  M01S00465.blank   +++|          LX2    12
00739  M01S00466.blank   +++|          LX1    -18
00740  M01S00467.blank   +++|          MX5    -12
00741  M01S00468.blank   +++|          BX0    -X5*X1
00742  M01S00469.blank   +++|          BX2    X0+X2

Seq #  *Modification Id* Act 
----------------------------+
00743  M02S00470.ns2786  ---|          MX5    12
00744  M01S00009.ns2786  +++|          MX5    6
00745  M01S00471.blank   +++|          SA3    HDR+4
00746  M01S00472.blank   +++|          BX3    X5*X3
00747  M01S00473.blank   +++|          BX6    X3+X2
00748  M01S00474.blank   +++|          SA6    A3
00749  M01S00475.blank   +++|          MX5    18
00750  M01S00476.blank   +++|          SA3    A3+B1
00751  M01S00477.blank   +++|          BX1    X5*X1
00752  M01S00478.blank   +++|          BX3    -X5*X3
00753  M01S00479.blank   +++|          BX6    X1+X3
00754  M01S00480.blank   +++|          SA6    A3
00755  M01S00481.blank   +++|
00756  M01S00482.blank   +++|*         PROCESS OPTIONAL PARAMETERS.
00757  M01S00101.274l797 +++|*         REENTER HERE FROM COMMAND PARAMETER PROCESSORS.
00758  M01S00483.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00484.274l797 ---| BOP1     ZR     B6,BOPX     IF CONTROL CARD EXHAUSTED
00760  M01S00102.274l797 +++| BOP1     ZR     B6,BOP4     IF COMMAND EXHAUSTED
00761  M01S00485.blank   +++|          SB3    TCCP
00762  M01S00486.blank   +++|          SX6    B0+
00763  M01S00487.blank   +++|          SA6    LIT         DISABLE LITERAL PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00488.ns22000 ---|          RJ     AOP         ANALIZE OPTIONS
00765  M01S00031.ns22000 +++|          RJ     AOP         ANALYZE OPTION
00766  M01S00489.blank   +++|          SB2    X2          PROCESSOR ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
00767  M02S00490.274l797 ---|          LX2    31
00768  M01S00103.274l797 +++|          LX2    59-28
00769  M01S00491.blank   +++|          SX3    X1-1R=
00770  M01S00492.blank   +++|          PL     X2,BOP2     IF NOT EQUIVALENCED PARAMETER
00771  M01S00493.blank   +++|          NZ     X3,ERR      IF NOT CORRECT SEPARATOR
00772  M01S00494.blank   +++|          EQ     BOP3        CONTINUE
00773  M01S00495.blank   +++|
00774  M01S00496.blank   +++| BOP2     ZR     X3,ERR      IF NOT CORRECT SEPARATOR
00775  M01S00497.blank   +++| BOP3     MX6    -1
00776  M01S00498.blank   +++|          BX6    -X6*X2
00777  M01S00499.blank   +++|          SA6    LIT         ENABLE/DISABLE LITERAL PROCESSING
00778  M01S00104.274l797 +++|          LX2    0-18-59+28
00779  M01S00500.blank   +++|          JP     B2          JUMP TO PROCESSOR
00780  M01S00501.blank   +++|
00781  M01S00105.274l797 +++|*         CHECK FOR DEVICE TYPE CONFLICT.
00782  M01S00502.blank   +++|
00783  M01S00106.274l797 +++| BOP4     RJ     SDT         SET DEVICE TYPE IN FET
00784  M01S00107.274l797 +++|          SA2    F+11B       CHECK EXTERNAL VSN SPECIFIED
00785  M01S00108.274l797 +++|          LX1    12
00786  M01S00109.274l797 +++|          SX1    X1-2RAT
00787  M01S00110.274l797 +++|          MX0    36
00788  M01S00111.274l797 +++|          BX2    X0*X2
00789  M01S00112.274l797 +++|          NZ     X1,BOP5     IF NOT *AT* TAPE DEVICE TYPE
00790  M01S00113.274l797 +++|          SB2    =C* EXTERNAL VSN NOT SPECIFIED FOR AT TAPE.*
00791  M01S00114.274l797 +++|          ZR     X2,ABT      IF EXTERNAL VSN NOT SPECIFIED
00792  M01S00115.274l797 +++|          EQ     BOPX        RETURN
00793  M01S00116.274l797 +++|
00794  M01S00117.274l797 +++| BOP5     SB2    =C* EXTERNAL VSN NOT ALLOWED FOR TAPE DEVICE TYPE.*
00795  M01S00118.274l797 +++|          NZ     X2,ABT      IF EXTERNAL VSN SPECIFIED
00796  M01S00119.274l797 +++|          EQ     BOPX        RETURN
00797  M01S00120.274l797 +++|
00798  M01S00121.274l797 +++|

Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00503.ns22000 ---| BOPA     CON    -0          JDATE TEMPORARY

Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00504.ns22000 ---| BOPB     CON    -0          *IPRW* TEMPORARY

Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00505.ns22000 ---| BOPC     CON    PFCW        *PFCW* TEMPORARY
00802  M01S00032.ns22000 +++| BOPA     BSS    3           TEMPORARIES

Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00506.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00507.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00508.274l797 ---|**        TCCP - TABLE OF CONTROL CARD PARAMETERS.
00806  M01S00122.274l797 +++| TCCP     SPACE  4,10
00807  M01S00123.274l797 +++|**        TCCP - TABLE OF COMMAND PARAMETERS.
00808  M01S00509.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00510.274l797 ---|*T        30/PARM,1/L,1/E,10/,18/PRAD

Figure

00810  M01S00124.274l797 +++|*T        30/KEYW,1/L,1/E,10/PARAM,18/PRAD

Figure

00811  M01S00511.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00512.274l797 ---|*         PARM   1 - 5 CHARACTER CONTROL CARD PARAMETER
00813  M01S00125.274l797 +++|*         KEYW   1 - 5 CHARACTER COMMAND KEYWORD
00814  M01S00513.blank   +++|*         L      LITERAL PROCESSING FOR ARGUMENT VALUE (1 = ENABLE,
00815  M01S00514.blank   +++|*                0 = DISABLE)
00816  M01S00515.blank   +++|*         E      PARAMETER EQUIVALENCE (1 = EQUIVALENCED,
00817  M01S00516.blank   +++|*                0 = NOT EQUIVALENCED)
00818  M01S00126.274l797 +++|*         PARAM  PARAMETER FOR ARGUMENT PROCESSOR
00819  M01S00517.blank   +++|*         PRAD   PROCESSOR ADDRESS
00820  M01S00518.blank   +++|
00821  M01S00519.blank   +++|
00822  M01S00520.blank   +++| TCCP     BSS    0
00823  M01S00521.blank   +++|          VFD    30/0LVSN,1/1,1/1,10/0,18/VSN    VSN
00824  M01S00522.blank   +++|          VFD    30/0LVA,1/1,1/1,10/0,18/PVA     VA
00825  M01S00523.blank   +++|          VFD    30/0LOWNER,1/0,1/1,10/0,18/OWN  OWNER
00826  M01S00524.blank   +++|          VFD    30/0LLSL,1/0,1/1,10/0,18/LSL    LSL
00827  M01S00525.blank   +++|          VFD    30/0LFA,1/1,1/1,10/0,18/PFA     FA
00828  M01S00526.blank   +++|          VFD    30/0LOFA,1/1,1/1,10/0,18/OFA    OFA
00829  M01S00527.blank   +++|          VFD    30/0LD,1/0,1/1,10/0,18/DEN      D
00830  M01S00528.blank   +++|          VFD    30/0LCV,1/0,1/1,10/0,18/PCV     CV

Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00529.274l797 ---|          VFD    30/0LMT,1/0,1/0,10/0,18/TRK     MT

Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00530.274l797 ---|          VFD    30/0LNT,1/0,1/0,10/0,18/TRK     NT
00833  M01S00127.274l797 +++|          VFD    30/0LMT,1/0,1/0,10/0,18/PDT1    MT
00834  M01S00128.274l797 +++|          VFD    30/0LNT,1/0,1/0,10/2,18/PDT1    NT
00835  M01S00129.274l797 +++|          VFD    30/0LDT,1/0,1/1,10/3,18/PDT     DT
00836  M01S00531.blank   +++|          VFD    30/0LU,1/0,1/0,10/0,18/UNL      U
00837  M01S00130.274l797 +++|          VFD    30/0LEVSN,1/0,1/1,10/0,18/EVS   EVSN
00838  M01S00532.blank   +++|          CON    0           END OF TABLE

Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00533.274l797 ---| CLP      SPACE  4
00840  M01S00131.274l797 +++| TTDV     SPACE  4,10
00841  M01S00132.274l797 +++|**        TTDV - TABLE OF TAPE DEVICE MNEMONICS.
00842  M01S00133.274l797 +++|*
00843  M01S00134.274l797 +++|*         T      12/ MNEMONIC,48/0
00844  M01S00135.274l797 +++|*
00845  M01S00136.274l797 +++|*         THIS TABLE MUST BE IN THE ORDER OF THE TAPE DEVICE TYPE CODES
00846  M01S00137.274l797 +++|*         IN THE *LABEL* FET.
00847  M01S00138.274l797 +++|
00848  M01S00139.274l797 +++|
00849  M01S00140.274l797 +++| TTDV     BSS    0
00850  M01S00141.274l797 +++|          VFD    60/0LMT     7 TRACK
00851  M01S00142.274l797 +++|          VFD    60/0LCT     CARTRIDGE
00852  M01S00143.274l797 +++|          VFD    60/0LNT     9 TRACK
00853  M01S00144.274l797 +++|          VFD    60/0LAT     ACS CARTRIDGE
00854  M01S00145.274l797 +++| CLP      SPACE  4,15
00855  M01S00534.blank   +++|**        CLP - CALL POP (PICK OUT PARAMETER).
00856  M01S00535.blank   +++|*
00857  M01S00536.blank   +++|*         ENTRY  (B6) = PARAMETER BEGINNING ADDRESS IN STRING BUFFER.
00858  M01S00537.blank   +++|*
00859  M01S00538.blank   +++|*         EXIT   (X1) = SEPARATOR.
00860  M01S00539.blank   +++|*                (X5) = PARAMETER.
00861  M01S00540.blank   +++|*                TO ERR IF ERROR.
00862  M01S00541.blank   +++|*
00863  M01S00542.blank   +++|*         USES   X - 5.
00864  M01S00543.blank   +++|*
00865  M01S00544.blank   +++|*         CALLS  POP.
00866  M01S00545.blank   +++|
00867  M01S00546.blank   +++|
00868  M01S00547.blank   +++| CLP      SUBR               ENTRY/EXIT
00869  M01S00548.blank   +++|          RJ     POP         PICK OUT PARAMETER
00870  M01S00549.blank   +++|          NG     B5,ERR      IF NO PARAMETER
00871  M01S00550.blank   +++|          ZR     X2,ERR      IF ILLEGAL TERMINATION
00872  M01S00551.blank   +++|          GE     B5,B1,ERR   IF PARAMETER TOO LONG
00873  M01S00552.blank   +++|          BX5    X6
00874  M01S00553.blank   +++|          EQ     CLPX        RETURN

Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00554.274l797 ---| ERR      SPACE  4
00876  M01S00146.274l797 +++| ERR      SPACE  4,10
00877  M01S00555.blank   +++|**        ERR - ERROR PROCESSOR.
00878  M01S00556.blank   +++|
00879  M01S00557.blank   +++|
00880  M01S00558.blank   +++| ERR      SB2    =C* ERROR IN ARGUMENTS.*

Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00559.274l797 ---|          EQ     ABT         ISSUE MESSAGE AND ABORT

Seq #  *Modification Id* Act 
----------------------------+
00882  M02S00560.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00561.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00562.274l797 ---| ERR1     SB2    =C* MT/NT CONFLICT.*
00885  M01S00563.blank   +++|          EQ     ABT         ISSUE MESSAGE AND ABORT
00886  M01S00564.blank   +++|
00887  M01S00565.blank   +++|
00888  M01S00566.blank   +++| ERR2     SB2    =C* SYSTEM ERROR.*
00889  M01S00567.blank   +++|*         EQ     ABT         ISSUE MESSAGE AND ABORT
00890  M01S00568.blank   +++|
00891  M01S00569.blank   +++|
00892  M01S00570.blank   +++| ABT      BSS    0
00893  M01S00571.blank   +++|          MESSAGE B2,0
00894  M01S00572.blank   +++|          ABORT
00895  M01S00147.274l797 +++| SDT      SPACE  4,15
00896  M01S00148.274l797 +++|**        SDT - SET TAPE DEVICE TYPE IN FET.
00897  M01S00149.274l797 +++|*
00898  M01S00150.274l797 +++|*         EXIT   TAPE DEVICE MNEMONIC AND DEVICE TYPE SET IN *LABEL*
00899  M01S00151.274l797 +++|*                  FET IF NO ERROR.
00900  M01S00152.274l797 +++|*                (X1) = TAPE DEVICE MNEMONIC LEFT JUSTIFED IF NO ERROR.
00901  M01S00153.274l797 +++|*                TO *ABT* IF DENSITY AND DEVICE TYPE CONFLICT.
00902  M01S00154.274l797 +++|*
00903  M01S00155.274l797 +++|*         USES   X - 0, 1, 2, 6.
00904  M01S00156.274l797 +++|*                A - 1, 2, 6.
00905  M01S00157.274l797 +++|*                B - 2.
00906  M01S00158.274l797 +++|*
00907  M01S00159.274l797 +++|*         MACROS RDSB.
00908  M01S00160.274l797 +++|
00909  M01S00161.274l797 +++|
00910  M01S00162.274l797 +++| SDT      SUBR               ENTRY/EXIT
00911  M01S00163.274l797 +++|
00912  M01S00164.274l797 +++|*         CHECK SPECIFIED TAPE DEVICE TYPE.
00913  M01S00165.274l797 +++|
00914  M01S00166.274l797 +++|          SA1    EDT
00915  M01S00167.274l797 +++|          SA2    DDT
00916  M01S00168.274l797 +++|          NG     X1,SDT1     IF DEVICE TYPE NOT EXPLICITLY SPECIFIED
00917  M01S00169.274l797 +++|          NG     X2,SDT2     IF DEVICE TYPE NOT SELECTED BY DENSITY
00918  M01S00170.274l797 +++|          BX2    X1-X2
00919  M01S00171.274l797 +++|          ZR     X2,SDT2     IF NO DENSITY AND DEVICE TYPE CONFLICT
00920  M01S00172.274l797 +++|          SB2    =C* INCORRECT DENSITY FOR TAPE DEVICE TYPE.*
00921  M01S00173.274l797 +++|          EQ     ABT         ABORT
00922  M01S00174.274l797 +++|
00923  M01S00175.274l797 +++| SDT1     BX1    X2
00924  M01S00176.274l797 +++|          PL     X1,SDT2     IF DEVICE TYPE SELECTED BY DENSITY
00925  M01S00177.274l797 +++|
00926  M01S00178.274l797 +++|*         GET DEFAULT TAPE DEVICE TYPE.
00927  M01S00179.274l797 +++|
00928  M01S00180.274l797 +++|          MX6    1           GET INSTALLATION DEFAULTS
00929  M01S00181.274l797 +++|          SA6    SDTA
00930  M01S00182.274l797 +++|          RDSB   0,1,IPRL,A6
00931  M01S00183.274l797 +++|          SA1    SDTA
00932  M01S00184.274l797 +++|          LX1    0-4
00933  M01S00185.274l797 +++|          MX0    -2
00934  M01S00186.274l797 +++|          BX1    -X0*X1      DEFAULT TAPE DEVICE TYPE
00935  M01S00187.274l797 +++|
00936  M01S00188.274l797 +++|*         SET DEVICE MNEMONIC AND DEVICE TYPE IN FET.
00937  M01S00189.274l797 +++|
00938  M01S00190.274l797 +++| SDT2     SA2    F+10B       GET TAPE DESCRIPTORS
00939  M01S00191.274l797 +++|          MX0    58
00940  M01S00192.274l797 +++|          LX0    55-0
00941  M01S00193.274l797 +++|          LX1    55-0
00942  M01S00194.274l797 +++|          BX2    X0*X2
00943  M01S00195.274l797 +++|          BX6    X2+X1
00944  M01S00196.274l797 +++|          SA6    A2
00945  M01S00197.274l797 +++|          SA2    F+1
00946  M01S00198.274l797 +++|          LX1    0-0-55+0
00947  M01S00199.274l797 +++|          MX0    -48
00948  M01S00200.274l797 +++|          SA1    TTDV+X1     GET DEVICE MNEMONIC
00949  M01S00201.274l797 +++|          BX6    -X0*X2
00950  M01S00202.274l797 +++|          BX6    X6+X1
00951  M01S00203.274l797 +++|          SA6    A2          SET DEVICE MNEMONIC IN FET
00952  M01S00204.274l797 +++|          EQ     SDTX        RETURN
00953  M01S00205.274l797 +++|
00954  M01S00206.274l797 +++|
00955  M01S00207.274l797 +++| SDTA     BSSZ   3           *RSB* BUFFER
00956  M01S00573.blank   +++| SOI      SPACE  4,15
00957  M01S00574.blank   +++|**        SOI - SET OWNER IDENTIFICATION IN VOL1.
00958  M01S00575.blank   +++|*
00959  M01S00576.blank   +++|*         ENTRY  (X4) = USER NUMBER, LEFT-JUSTIFIED, ZERO FILLED.
00960  M01S00577.blank   +++|*                (X5) = FAMILY NAME, LEFT-JUSTIFIED, ZERO FILLED.
00961  M01S00578.blank   +++|*
00962  M01S00579.blank   +++|*         EXIT   FAMILY NAME CONCATENATED WITH USER NUMBER STORED IN
00963  M01S00580.blank   +++|*                CHARACTER POSITIONS 38 - 51 OF VOL1 LABEL
00964  M01S00581.blank   +++|*                (7 CHARACTERS EACH, LEFT-JUSTIFIED, BLANK FILLED).
00965  M01S00582.blank   +++|*
00966  M01S00583.blank   +++|*         USES   A - 1, 3, 6.
00967  M01S00584.blank   +++|*                X - 0, 1, 2, 3, 4, 5, 6.
00968  M01S00585.blank   +++|*
00969  M01S00586.blank   +++|*         CALLS  SFN.
00970  M01S00587.blank   +++|
00971  M01S00588.blank   +++|
00972  M01S00589.blank   +++| SOI      SUBR               ENTRY/EXIT
00973  M01S00590.blank   +++|          MX0    42
00974  M01S00591.blank   +++|          BX1    X5
00975  M01S00592.blank   +++|          RJ     SFN         SPACE FILL FAMILY NAME
00976  M01S00593.blank   +++|          BX5    X0*X6
00977  M01S00594.blank   +++|          LX1    X4
00978  M01S00595.blank   +++|          RJ     SFN         SPACE FILL USER NUMBER
00979  M01S00596.blank   +++|          BX4    X0*X6
00980  M01S00597.blank   +++|          MX0    -18
00981  M01S00598.blank   +++|          SA1    VOL1+3      PRESERVE CHARACTERS 31 - 37 OF VOL1
00982  M01S00599.blank   +++|          LX5    18
00983  M01S00600.blank   +++|          BX1    X0*X1
00984  M01S00601.blank   +++|          BX2    -X0*X5      FIRST 3 CHARACTERS OF FAMILY NAME
00985  M01S00602.blank   +++|          LX4    36
00986  M01S00603.blank   +++|          BX5    X0*X5       LAST 4 CHARACTERS OF FAMILY NAME
00987  M01S00604.blank   +++|          MX0    -42
00988  M01S00605.blank   +++|          BX6    X1+X2
00989  M01S00606.blank   +++|          BX2    -X0*X4      FIRST 6 CHARACTERS OF USER NUMBER
00990  M01S00607.blank   +++|          SA6    A1
00991  M01S00608.blank   +++|          BX4    X0*X4       LAST CHARACTER OF USER NUMBER
00992  M01S00609.blank   +++|          SA3    VOL1+5      PRESERVE CHARACTERS 52 - 60 OF VOL1
00993  M01S00610.blank   +++|          BX6    X5+X2
00994  M01S00611.blank   +++|          MX0    -54
00995  M01S00612.blank   +++|          SA6    A6+B1
00996  M01S00613.blank   +++|          BX3    -X0*X3
00997  M01S00614.blank   +++|          BX6    X3+X4
00998  M01S00615.blank   +++|          SA6    A3
00999  M01S00616.blank   +++|          EQ     SOIX        RETURN
01000  M01S00617.blank   +++|          TITLE  OPTION PROCESSORS.

Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00618.274l797 ---| DEN      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00619.274l797 ---|**        PROCESS DENSITY.

Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00620.274l797 ---|*                (LO,HI,HY,HD,PE,GE)

Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00621.274l797 ---|*                (200,556,800,1600,6250)
01005  M01S00208.274l797 +++| DEN      SPACE  4,10
01006  M01S00209.274l797 +++|**        DEN - PROCESS DENSITY.
01007  M01S00210.274l797 +++|*
01008  M01S00211.274l797 +++|*         D=DENSITY.
01009  M01S00622.blank   +++|
01010  M01S00623.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
01011  M02S00624.274l797 ---| DEN      BSS    0
01012  M01S00212.274l797 +++| DEN      BSS    0           ENTRY
01013  M01S00625.blank   +++|          SB3    TDEN
01014  M01S00626.blank   +++|          RJ     AOP         ANALYZE DENSITY OPTIONS
01015  M01S00627.blank   +++|          SX1    X1-1R=
01016  M01S00628.blank   +++|          ZR     X1,ERR      IF ILLEGAL SEPARATOR
01017  M01S00629.blank   +++|          MX0    3

Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00630.274l797 ---|          LX2    -9

Seq #  *Modification Id* Act 
----------------------------+
01019  M02S00631.274l797 ---|          SA3    F+8         SET DENSITY IN FET
01020  M01S00213.274l797 +++|          LX2    51-0
01021  M01S00214.274l797 +++|          SA3    F+10B       SET DENSITY IN FET
01022  M01S00632.blank   +++|          LX0    -6
01023  M01S00633.blank   +++|          BX1    X0*X2
01024  M01S00634.blank   +++|          BX3    -X0*X3

Seq #  *Modification Id* Act 
----------------------------+
01025  M02S00635.274l797 ---|          LX2    5
01026  M01S00215.274l797 +++|          LX2    59-5-51+0
01027  M01S00636.blank   +++|          BX6    X1+X3

Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00637.274l797 ---|          MX0    -1
01029  M01S00216.274l797 +++|          MX0    -2
01030  M01S00638.blank   +++|          SA6    A3+

Seq #  *Modification Id* Act 
----------------------------+
01031  M02S00639.274l797 ---|          PL     X2,BOP1     IF TRACK TYPE NOT TO BE SET

Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00640.274l797 ---|          BX5    -X0*X2

Seq #  *Modification Id* Act 
----------------------------+
01033  M02S00641.274l797 ---|          LX5    6

Seq #  *Modification Id* Act 
----------------------------+
01034  M02S00642.274l797 ---|          SX5    X5+2RMT

Seq #  *Modification Id* Act 
----------------------------+
01035  M02S00643.274l797 ---|          LX5    -12

Seq #  *Modification Id* Act 
----------------------------+
01036  M02S00644.274l797 ---|          EQ     TRK         SET MT OR NT TRACK TYPE

Seq #  *Modification Id* Act 
----------------------------+
01037  M02S00645.274l797 ---|

Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00646.274l797 ---|
01039  M01S00217.274l797 +++|          PL     X2,BOP1     IF NOT UNIQUE DEVICE TYPE FOR SELECTION
01040  M01S00218.274l797 +++|          LX2    0-3-59+5
01041  M01S00219.274l797 +++|          BX6    -X0*X2      IMPLICIT TAPE DEVICE TYPE
01042  M01S00220.274l797 +++|          SA6    DDT         SET IMPLICIT DEVICE TYPE
01043  M01S00221.274l797 +++|          EQ     BOP1        RETURN
01044  M01S00222.274l797 +++| TDEN     SPACE  4,10
01045  M01S00647.blank   +++|**        TDEN - TABLE OF DENSITY OPTIONS.
01046  M01S00648.blank   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01047  M02S00649.274l797 ---|*T        30/OP, 25/, 1/T, 1/M, 3/DC

Figure

01048  M01S00223.274l797 +++|*T        30/OP, 24/, 1/T, 2/DT, 3/DC

Figure

01049  M01S00650.blank   +++|*
01050  M01S00651.blank   +++|*         OP     1 - 5 CHARACTER DENSITY OPTION

Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00652.274l797 ---|*         T      TRACK SELECTION (0=MT, 1=NT)

Seq #  *Modification Id* Act 
----------------------------+
01052  M02S00653.274l797 ---|*         M      IF SET, 7- OR 9-TRACK TYPE TO BE SET IN FET
01053  M01S00224.274l797 +++|*         T      IF SET, IMPLICITLY SELECT TAPE DEVICE TYPE
01054  M01S00225.274l797 +++|*         DI     INDEX INTO *TTDV* TABLE IF *T* FLAG IS SET
01055  M01S00654.blank   +++|*         DC     DENSITY CODE FOR FET
01056  M01S00655.blank   +++|
01057  M01S00656.blank   +++|
01058  M01S00657.blank   +++| TDEN     BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01059  M02S00658.274l797 ---|          VFD    30/0LHI,25/0,1/0,1/1,3/1    HI = 556 BPI 7-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00659.274l797 ---|          VFD    30/0L556,25/0,1/0,1/1,3/1   556 BPI 7-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00660.274l797 ---|          VFD    30/0LLO,25/0,1/0,1/1,3/2    LO = 200 BPI 7-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00661.274l797 ---|          VFD    30/0L200,25/0,1/0,1/1,3/2   200 BPI 7-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01063  M02S00662.274l797 ---|          VFD    30/0LHY,25/0,1/0,1/1,3/3    HY = 800 BPI 7-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00663.274l797 ---|          VFD    30/0L800,25/0,1/0,1/0,3/3   800 BPI 7- OR 9-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01065  M02S00664.274l797 ---|          VFD    30/0LHD,25/0,1/1,1/1,3/3    HD = 800 BPI 9-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01066  M02S00665.274l797 ---|          VFD    30/0LPE,25/0,1/1,1/1,3/4    PE = 1600 CPI 9-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01067  M02S00666.274l797 ---|          VFD    30/0L1600,25/0,1/1,1/1,3/4  1600 CPI 9-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01068  M02S00667.274l797 ---|          VFD    30/0LGE,25/0,1/1,1/1,3/5    GE = 6250 CPI 9-TRACK

Seq #  *Modification Id* Act 
----------------------------+
01069  M02S00668.274l797 ---|          VFD    30/0L6250,25/0,1/1,1/1,3/5  6250 CPI 9-TRACK
01070  M01S00226.274l797 +++|          VFD    30/0L556,24/0,1/1,2/0,3/1   556 BPI MT
01071  M01S00227.274l797 +++|          VFD    30/0L200,24/0,1/1,2/0,3/2   200 BPI MT
01072  M01S00228.274l797 +++|          VFD    30/0L800,24/0,1/0,2/0,3/3   800 BPI MT, NT
01073  M01S00229.274l797 +++|          VFD    30/0L1600,24/0,1/1,2/2,3/4  1600 CPI NT
01074  M01S00230.274l797 +++|          VFD    30/0L6250,24/0,1/1,2/2,3/5  6250 CPI NT
01075  M01S00231.274l797 +++|          VFD    30/0L38000,24/0,1/0,2/0,3/6 38000 CPI CT, AT
01076  M01S00232.274l797 +++|          VFD    30/0LHI,24/0,1/1,2/0,3/1    556 BPI MT
01077  M01S00233.274l797 +++|          VFD    30/0LLO,24/0,1/1,2/0,3/2    200 BPI MT
01078  M01S00234.274l797 +++|          VFD    30/0LHY,24/0,1/1,2/0,3/3    800 BPI MT
01079  M01S00235.274l797 +++|          VFD    30/0LHD,24/0,1/1,2/2,3/3    800 BPI NT
01080  M01S00236.274l797 +++|          VFD    30/0LPE,24/0,1/1,2/2,3/4    1600 CPI NT
01081  M01S00237.274l797 +++|          VFD    30/0LGE,24/0,1/1,2/2,3/5    6250 CPI NT
01082  M01S00238.274l797 +++|          VFD    30/0LCE,24/0,1/1,2/1,3/6    38000 CPI CT
01083  M01S00239.274l797 +++|          VFD    30/0LAE,24/0,1/1,2/3,3/6    38000 CPI AT
01084  M01S00669.blank   +++|          CON    0           END OF TABLE
01085  M01S00240.274l797 +++| EVS      SPACE  4,10
01086  M01S00241.274l797 +++|**        EVS - PROCESS *AT* TAPE EXTERNAL VSN.
01087  M01S00242.274l797 +++|*
01088  M01S00243.274l797 +++|*         EVSN=EEEEEE.
01089  M01S00244.274l797 +++|
01090  M01S00245.274l797 +++|
01091  M01S00246.274l797 +++| EVS      BSS    0           ENTRY
01092  M01S00247.274l797 +++|          RJ     CLP         GET VSN
01093  M01S00248.274l797 +++|          SX1    X1-1R=
01094  M01S00249.274l797 +++|          ZR     X1,ERR      IF ILLEGAL SEPARATOR
01095  M01S00250.274l797 +++|          SA1    F+11B
01096  M01S00251.274l797 +++|          MX0    -24
01097  M01S00252.274l797 +++|          BX6    -X0*X5
01098  M01S00253.274l797 +++|          BX1    -X0*X1
01099  M01S00254.274l797 +++|          NZ     X6,ERR      IF VSN .GT. 6 CHARACTERS
01100  M01S00255.274l797 +++|          BX6    X1+X5       SET EXTERNAL VSN IN LABEL FET
01101  M01S00256.274l797 +++|          SA6    A1
01102  M01S00257.274l797 +++|          EQ     BOP1        RETURN
01103  M01S00670.blank   +++| PVA      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01104  M02S00671.274l797 ---|**        PROCESS VOLUME ACCESSIBLITY.

Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00672.274l797 ---|*                VA=A.
01106  M01S00258.274l797 +++|**        PVA - PROCESS VOLUME ACCESSIBLITY.
01107  M01S00259.274l797 +++|*
01108  M01S00260.274l797 +++|*         VA=X.
01109  M01S00673.blank   +++|
01110  M01S00674.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00675.274l797 ---| PVA      BSS    0
01112  M01S00261.274l797 +++| PVA      BSS    0           ENTRY
01113  M01S00676.blank   +++|          SA0    VBUF+2
01114  M01S00677.blank   +++|          SB3    0
01115  M01S00678.blank   +++|          EQ     PSC         PROCESS SINGLE CHARACTER
01116  M01S00679.blank   +++| OFA      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01117  M02S00680.274l797 ---|**        PROCESS OLD FILE ACCESSIBILITY (FA CURRENTLY ON TAPE).

Seq #  *Modification Id* Act 
----------------------------+
01118  M02S00681.274l797 ---|*                OFA=X.
01119  M01S00262.274l797 +++|**        OFA - PROCESS OLD FILE ACCESSIBILITY (FA CURRENTLY ON TAPE).
01120  M01S00263.274l797 +++|*
01121  M01S00264.274l797 +++|*         OFA=X.
01122  M01S00682.blank   +++|
01123  M01S00683.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
01124  M02S00684.274l797 ---| OFA      BSS    0
01125  M01S00265.274l797 +++| OFA      BSS    0           ENTRY
01126  M01S00685.blank   +++|          SA0    F+9
01127  M01S00686.blank   +++|          SB3    24
01128  M01S00687.blank   +++|          EQ     PSC         PROCESS SINGLE CHARACTER
01129  M01S00688.blank   +++| PFA      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00689.274l797 ---|**        PROCESS FILE ACCESSIBILITY.

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00690.274l797 ---|*                FA=A.
01132  M01S00266.274l797 +++|**        PFA - PROCESS FILE ACCESSIBILITY.
01133  M01S00267.274l797 +++|*
01134  M01S00268.274l797 +++|*         FA=X.
01135  M01S00691.blank   +++|
01136  M01S00692.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
01137  M02S00693.274l797 ---| PFA      BSS    0
01138  M01S00269.274l797 +++| PFA      BSS    0           ENTRY
01139  M01S00694.blank   +++|          SA0    HBUF+6
01140  M01S00695.blank   +++|          SB3    42
01141  M01S00696.blank   +++|          EQ     PSC         PROCESS SINGLE CHARACTER

Seq #  *Modification Id* Act 
----------------------------+
01142  M02S00697.274l797 ---| LSL      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01143  M02S00698.274l797 ---|**        PROCESS LABEL STANDARD LEVEL.

Seq #  *Modification Id* Act 
----------------------------+
01144  M02S00699.274l797 ---|*                LSL=A.
01145  M01S00270.274l797 +++| LSL      SPACE  4,10
01146  M01S00271.274l797 +++|**        LSL = PROCESS LABEL STANDARD LEVEL.
01147  M01S00272.274l797 +++|*
01148  M01S00273.274l797 +++|*         LSL=A.
01149  M01S00700.blank   +++|
01150  M01S00701.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
01151  M02S00702.274l797 ---| LSL      BSS    0

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00703.274l797 ---|          SA0    VBUF+8
01153  M01S00274.274l797 +++| LSL      BSS    0           ENTRY
01154  M01S00275.274l797 +++|          SA0    VBUF+10B
01155  M01S00704.blank   +++|          SB3    6
01156  M01S00705.blank   +++|*         EQ     PSC         PROCESS SINGLE CHARACTER
01157  M01S00706.blank   +++| PSC      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00707.274l797 ---|**        PROCESS SINGLE CHARACTER.
01159  M01S00276.274l797 +++|**        PSC - PROCESS SINGLE CHARACTER.
01160  M01S00708.blank   +++|
01161  M01S00709.blank   +++|

Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00710.274l797 ---| PSC      BSS    0
01163  M01S00277.274l797 +++| PSC      BSS    0           ENTRY
01164  M01S00711.blank   +++|          RJ     CLP         GET PARAMETER
01165  M01S00712.blank   +++|          SX1    X1-1R=
01166  M01S00713.blank   +++|          ZR     X1,ERR      IF ILLEGAL SEPARATOR
01167  M01S00714.blank   +++|          MX0    6
01168  M01S00715.blank   +++|          BX1    -X0*X5
01169  M01S00716.blank   +++|          SA2    A0
01170  M01S00717.blank   +++|          LX0    B3
01171  M01S00718.blank   +++|          NZ     X1,ERR      IF MORE THAN ONE CHARACTER
01172  M01S00719.blank   +++|          NZ     X5,PSC1     IF NOT NULL PARAMETER
01173  M01S00720.blank   +++|          SX5    1R
01174  M01S00721.blank   +++|          LX5    -6
01175  M01S00722.blank   +++| PSC1     LX5    B3          SET VALUE IN LABEL
01176  M01S00723.blank   +++|          BX2    -X0*X2
01177  M01S00724.blank   +++|          BX6    X2+X5
01178  M01S00725.blank   +++|          SA6    A2
01179  M01S00726.blank   +++|          EQ     BOP1        RETURN

Seq #  *Modification Id* Act 
----------------------------+
01180  M02S00727.274l797 ---| OWN      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01181  M02S00728.274l797 ---|**        PROCESS OWNER IDENTIFICATION.

Proceed to Part 1