Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.blank +++| IDENT BLANK,BLANK
00002 M00S00002.blank +++| ABS
00003 M00S00003.blank +++| SST
00004 M00S00004.blank +++| ENTRY BLANK
00005 M00S00005.blank +++| ENTRY ARG=
00006 M00S00006.blank +++| ENTRY RFL=
00007 M00S00007.blank +++| ENTRY SSJ=
00008 M00S00008.blank +++| SYSCOM B1
Line S00009 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00009 M01S00009.ns22000 ---|*COMMENT BLANK - TAPE LABELING PROGRAM.
Line S00001 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00010 M01S00001.ns22000 +++|*COMMENT BLANK - BLANK TAPE LABELING PROGRAM.
Line S00010 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00011 M01S00010.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00012 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00013 M00S00011.blank +++| TITLE BLANK - BLANK TAPE LABELING PROGRAM.
00014 M00S00012.blank +++| SPACE 4
00015 M00S00013.blank +++|*** BLANK - BLANK TAPE LABELING PROGRAM.
00016 M00S00014.blank +++|* M. E. MADDEN. 73/04/01.
00017 M00S00015.blank +++|* J. L. LARSON. 76/04/21.
00018 M00S00016.blank +++| SPACE 4
Line S00017 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00019 M01S00017.ns22000 ---|*** *BLANK* WRITES AND VERIFIES *VOL1*,*HDR1*,AND *EOF1* EBCDIC
00020 M01S00018.ns22000 ---|* OR ANSI TAPE LABELS ON AN UNLABELED MAGNETIC TAPE. IF THE
Line S00002 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
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 M00S00019.blank +++|* TAPE HAD BEEN BLANK LABELED WITH LABEL ACCESSIBILITY=BLANK
00024 M00S00020.blank +++|* A LABELED TAPE MAY HAVE NEW BLANK TAPE LABELS WRITTEN.
00025 M00S00021.blank +++|*
00026 M00S00022.blank +++|*
00027 M00S00023.blank +++|* THE FOLLOWING IS WRITTEN ON THE TAPE--
00028 M00S00024.blank +++|*
Line S00025 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00029 M01S00025.ns22000 ---|* VOL1 HDR1 * * EOF1 **
Line S00004 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00030 M01S00004.ns22000 +++|* VOL1 HDR1 * * EOF1 * *
00031 M00S00026.blank +++|*
00032 M00S00027.blank +++|* WHERE * IS A TAPE MARK.
00033 M00S00028.blank +++|*
00034 M00S00029.blank +++|* AFTER THE TAPE HAS BEEN BLANKED LABELED, IT IS UNLOADED,
00035 M00S00030.blank +++|* IF SPECIFIED, AND RETURNED.
00036 M00S00031.blank +++| SPACE 4,10
Line S00032 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00037 M01S00032.274l797 ---|*** CONTROL CARD STATEMENT.
Line S00001 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00038 M01S00001.274l797 +++|*** BLANK COMMAND.
00039 M00S00033.blank +++|*
Line S00034 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00040 M01S00034.274l797 ---|* BLANK(VSN=...,VA=.,OWNER=.../...,LSL=.,
00041 M01S00035.274l797 ---|* FA=.,OFA=.,D=...,CV=..,XT,U)
Line S00002 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00036.blank +++|*
00045 M00S00037.blank +++|* VSN VOLUME SERIAL NUMBER (1 - 6 CHARACTERS)
Line S00004 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00046 M01S00004.274l797 +++|*
00047 M01S00005.274l797 +++|* DEFAULT IS * *
00048 M01S00006.274l797 +++|*
00049 M00S00038.blank +++|* VA VOLUME ACCESSIBILITY (1 CHARACTER)
Line S00039 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00050 M01S00039.274l797 ---|* OWNER OWNER IDENTIFICATION (USER NUMBER/FAMILY NAME)
Line S00007 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00040.blank +++|* LSL LABEL STANDARD LEVEL (1 CHARACTER)
Line S00014 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00059 M01S00014.274l797 +++|*
00060 M01S00015.274l797 +++|* DEFAULT IS *1*
00061 M01S00016.274l797 +++|*
00062 M00S00041.blank +++|* FA FILE ACCESSIBILITY (1 CHARACTER)
Line S00017 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00063 M01S00017.274l797 +++|*
00064 M01S00018.274l797 +++|* DEFAULT IS * * (UNLIMITED ACCESS)
00065 M01S00019.274l797 +++|*
00066 M00S00042.blank +++|* OFA OLD FILE ACCESSIBILITY (1 CHARACTER)
Line S00043 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00067 M01S00043.274l797 ---|* D TAPE DENSITY
00068 M01S00044.274l797 ---|* CV CONVERSION MODE (*AS* OR *US* = ASCII, *EB* = EBCDIC)
00069 M01S00045.274l797 ---|* XT TRACK TYPE (X = M FOR 7-TRACK, N FOR 9-TRACK)
00070 M01S00046.274l797 ---|* U UNLOAD AFTER BLANKING
00071 M01S00047.274l797 ---| SPACE 4,10
00072 M01S00048.274l797 ---|*** DEFAULTS.
00073 M00S00049.blank +++|*
Line S00050 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00074 M01S00050.274l797 ---|* VSN * *
00075 M01S00051.274l797 ---|* VA * * (VOL1 LABEL CAN BE REWRITTEN)
00076 M01S00052.274l797 ---|* OWNER USER NUMBER AND FAMILY NAME DETERMINED FROM VALIDATION
00077 M01S00053.274l797 ---|* LSL *1*
00078 M01S00054.274l797 ---|* FA * * (UNLIMITED ACCESS)
00079 M01S00055.274l797 ---|* OFA * *
00080 M01S00056.274l797 ---|* D INSTALLATION DEFAULT
00081 M01S00057.274l797 ---|* CV INSTALLATION DEFAULT
00082 M01S00058.274l797 ---|* XT INSTALLATION DEFAULT
00083 M01S00059.274l797 ---|* U NOT SELECTED
Line S00020 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00060.blank +++| SPACE 4,10
00134 M00S00061.blank +++|*** ERROR MESSAGES.
00135 M00S00062.blank +++|*
00136 M00S00063.blank +++|* * BLANK LABELS DO NOT VERIFY.*
Line S00064 Modification History
M01 (Removed by) blank1
Seq # *Modification Id* Act
----------------------------+
00137 M01S00064.blank1 ---|* LABELS READ DO NOT MATCH THOSE WRITTEN.
Line S00001 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
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 M00S00065.blank +++|*
00143 M00S00066.blank +++|* * ERROR IN ARGUMENTS.*
00144 M00S00067.blank +++|* ONE OR MORE ARGUMENTS WERE INCORRECT, OR
00145 M00S00068.blank +++|* REQUIRED ARGUMENTS WERE MISSING.
Line S00069 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00069.blank +++|*
Line S00070 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00155 M01S00070.274l797 ---|*
00156 M01S00071.274l797 ---|* * MT/NT CONFLICT.*
00157 M01S00072.274l797 ---|* CONFLICT EXISTS BETWEEN 7- AND 9-TRACK TAPE
00158 M01S00073.274l797 ---|* DESCRIPTORS (TRACK TYPE, DENSITY, AND/OR
00159 M01S00074.274l797 ---|* CONVERSION MODE).
Line S00077 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00075.blank +++|*
00164 M00S00076.blank +++|* * SYSTEM ERROR.*
00165 M00S00077.blank +++|* *RSB* MONITOR FUNCTION FAILS.
00166 M00S00078.blank +++|*
00167 M00S00079.blank +++|* * TAPE BLANK LABELED.*
00168 M00S00080.blank +++|* BLANK LABEL OPERATION WAS SUCCESSFUL.
Line S00005 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
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 M00S00081.blank +++| SPACE 4,10
00176 M00S00082.blank +++|**** ASSEMBLY CONSTANTS.
00177 M00S00083.blank +++|
00178 M00S00084.blank +++|
00179 M00S00085.blank +++| BUFL EQU 101B CIO BUFFER LENGTH
00180 M00S00086.blank +++| BUFFL EQU 12 SCRATCH BUFFER LENGTH
00181 M00S00087.blank +++| COUNT EQU 3 LABEL ERROR RETRY COUNT
00182 M00S00088.blank +++|
00183 M00S00089.blank +++|
00184 M00S00090.blank +++|****
00185 M00S00091.blank +++| SPACE 4,10
00186 M00S00092.blank +++|* MICRO DEFINITIONS.
00187 M00S00093.blank +++|
00188 M00S00094.blank +++|
00189 M00S00095.blank +++| VERNUM MICRO 6,3,+"VER170"+
Line S00096 Modification History
M01 (Removed by) blank2
Seq # *Modification Id* Act
----------------------------+
00190 M01S00096.blank2 ---| SPACE 4
00191 M01S00097.blank2 ---| TITLE MACROS.
Line S00001 Modification History
M01 (Added by) blank2
Seq # *Modification Id* Act
----------------------------+
00192 M01S00001.blank2 +++| TITLE COMMON DECKS.
00193 M00S00098.blank +++|* COMMON DECKS.
00194 M00S00099.blank +++|
00195 M00S00100.blank +++|
00196 M00S00101.blank +++|*CALL COMCMAC
Line S00011 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00197 M01S00011.blank1 +++|*CALL COMCCMD
Line S00002 Modification History
M01 (Added by) blank2
Seq # *Modification Id* Act
----------------------------+
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.
Line S00102 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00204 M01S00102.274l797 ---| RDSB SPACE 4
Line S00080 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00205 M01S00080.274l797 +++| RDSB SPACE 4,10
00206 M00S00103.blank +++|** RDSB.
Line S00081 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00207 M01S00081.274l797 +++|*
00208 M00S00104.blank +++|* READ SUB-SYSTEM BLOCK.
00209 M00S00105.blank +++|*
Line S00106 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00210 M01S00106.274l797 ---|*
00211 M01S00107.274l797 ---|* STATUS WORD *SS* IS USED. EXITS TO *ERR1* IF ERRORS.
Line S00082 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00212 M01S00082.274l797 +++|* STATUS WORD *SS* IS USED.
00213 M00S00108.blank +++|*
00214 M00S00109.blank +++|* RDSB QUEUE,WC,FROM,TO
00215 M00S00110.blank +++|
00216 M00S00111.blank +++| PURGMAC RDSB
00217 M00S00112.blank +++|
00218 M00S00113.blank +++| RDSB MACRO Q,W,F,T
Line S00083 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00219 M01S00083.274l797 +++| MACREF RDSB
00220 M00S00114.blank +++| R= X5,W
00221 M00S00115.blank +++| R= X6,T
00222 M00S00116.blank +++| R= X7,F
00223 M00S00117.blank +++| R= X1,Q
00224 M00S00118.blank +++| RJ RSB
00225 M00S00119.blank +++| ENDM
Line S00120 Modification History
M01 (Removed by) blank2
Seq # *Modification Id* Act
----------------------------+
00226 M01S00120.blank2 ---| COMSSSJ SPACE 4
00227 M01S00121.blank2 ---|** DEFINE SSJ= PARAMETERS.
00228 M01S00122.blank2 ---|
00229 M01S00123.blank2 ---|
00230 M01S00124.blank2 ---| QUAL COMSSSJ
00231 M01S00125.blank2 ---|*CALL COMSSSJ
00232 M01S00126.blank2 ---| QUAL *
00233 M00S00127.blank +++| BLANK SPACE 4
00234 M00S00128.blank +++| TITLE MAIN PROGRAM.
00235 M00S00129.blank +++| ORG 110B
00236 M00S00130.blank +++|
00237 M00S00131.blank +++|
00238 M00S00132.blank +++|** BLANK - MAIN PROGRAM.
00239 M00S00133.blank +++|
00240 M00S00134.blank +++|
00241 M00S00135.blank +++| BLANK SB1 1 (B1) = 1
Line S00136 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00242 M01S00136.274l797 ---| SB2 CCDR UNPACK CONTROL CARD
Line S00084 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00243 M01S00084.274l797 +++| SB2 CCDR UNPACK COMMAND
00244 M00S00137.blank +++| RJ USB
Line S00138 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00245 M01S00138.ns22000 ---|
00246 M01S00139.ns22000 ---| BLK1 SA5 BLANKC CHECK FOR *BLANK*
Line S00005 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00247 M01S00005.ns22000 +++| BLK1 SA5 =0LBLANK CHECK FOR *BLANK*
00248 M00S00140.blank +++| RJ POP
Line S00141 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00249 M01S00141.274l797 ---| NG B5,ERR IF CONTROL CARD ERROR
Line S00085 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00250 M01S00085.274l797 +++| NG B5,ERR IF COMMAND ERROR
00251 M00S00142.blank +++| ZR X2,ERR IF ILLEGAL SEPARATOR
00252 M00S00143.blank +++| BX7 X6-X5
00253 M00S00144.blank +++| NZ X7,BLK1 IF NOT *BLANK*
00254 M00S00145.blank +++| SX1 X1-1R=
00255 M00S00146.blank +++| ZR X1,ERR IF ILLEGAL SEPARATOR
Line S00008 Modification History
M01 (Added by) blank2
Seq # *Modification Id* Act
----------------------------+
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
Line S00006 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00265 M01S00006.ns22000 +++|
00266 M01S00007.ns22000 +++|* INITIALIZE LABELS.
00267 M01S00008.ns22000 +++|
00268 M00S00147.blank +++| RJ BOP PROCESS OPTIONAL PARAMETERS
00269 M00S00148.blank +++| SA1 HDR
00270 M00S00149.blank +++| SA2 HDR1 BUILD HDR1 FIRST WORD
00271 M00S00150.blank +++| MX0 -36
00272 M00S00151.blank +++| SA3 EOF1 BUILD EOF1 FIRST WORD
00273 M00S00152.blank +++| BX1 -X0*X1
00274 M00S00153.blank +++| BX6 X1+X2
00275 M00S00154.blank +++| SA6 A2
00276 M00S00155.blank +++| BX6 X1+X3
00277 M00S00156.blank +++| SA6 A3
Line S00157 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00278 M01S00157.ns22000 ---| SPACE 4
00279 M01S00158.ns22000 ---|** ASSIGN TAPE.
00280 M01S00159.ns22000 ---|
00281 M01S00160.ns22000 ---|
00282 M00S00161.blank +++| UNLOAD F,R
Line S00162 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00283 M01S00162.ns22000 ---| LABEL F REQUEST TAPE
00284 M01S00163.ns22000 ---| SPACE 4
00285 M01S00164.ns22000 ---|** CHECK FOR EST ORDINAL OF TAPE ASSIGNED.
00286 M01S00165.ns22000 ---|
Line S00009 Modification History
M01 (Added by) ns22000
M02 (Removed by) blank1
Seq # *Modification Id* Act
----------------------------+
00287 M02S00009.blank1 ---| LABEL X2 REQUEST OPERATOR TAPE ASSIGNMENT
Line S00012 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00288 M01S00012.blank1 +++|
00289 M01S00013.blank1 +++|* ENTER HERE TO RETRY AFTER OPERATOR *GO*.
00290 M01S00014.blank1 +++|
Line S00015 Modification History
M01 (Added by) blank1
M02 (Removed by) blank1a
Seq # *Modification Id* Act
----------------------------+
00291 M02S00015.blank1a ---| BLK2 LABEL F REQUEST OPERATOR TAPE ASSIGNMENT
Line S00001 Modification History
M01 (Added by) blank1a
Seq # *Modification Id* Act
----------------------------+
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
Line S00006 Modification History
M01 (Added by) blank1a
M02 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00297 M02S00006.274l797 ---| LABEL F REQUEST OPERATOR TAPE ASSIGNMENT
Line S00086 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00298 M01S00086.274l797 +++| LABEL F REQUEST TAPE ASSIGNMENT
Line S00007 Modification History
M01 (Added by) blank1a
Seq # *Modification Id* Act
----------------------------+
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
Line S00010 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00304 M01S00010.ns22000 +++|
00305 M01S00011.ns22000 +++|* INSERT EST ORDINAL INTO *HDR1* / *EOF1* LABELS.
00306 M00S00166.blank +++|
00307 M00S00167.blank +++| STATUS F,P
00308 M00S00168.blank +++| SA1 F+6 READ FST FROM FET+6
Line S00169 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00309 M01S00169.ns22000 ---| MX0 -6
Line S00012 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00310 M01S00012.ns22000 +++| MX0 -9
00311 M00S00170.blank +++| LX1 12
00312 M00S00171.blank +++| MX2 -3
00313 M00S00172.blank +++| BX5 -X0*X1 EST ORDINAL
00314 M00S00173.blank +++| SB2 1R0
00315 M00S00174.blank +++| BX4 -X2*X5
Line S00175 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00316 M01S00175.ns22000 ---| MX0 12
Line S00013 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00317 M01S00013.ns22000 +++| MX0 18
00318 M00S00176.blank +++| LX5 -3
00319 M00S00177.blank +++| SX4 X4+B2
Line S00014 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00320 M01S00014.ns22000 +++| BX7 -X2*X5
00321 M01S00015.ns22000 +++| LX5 -3
00322 M01S00016.ns22000 +++| SX7 X7+B2
00323 M00S00178.blank +++| BX5 -X2*X5
00324 M00S00179.blank +++| SA3 HDR+7 ENTER EST ORDINAL IN HDR1
00325 M00S00180.blank +++| SX5 X5+B2
Line S00181 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00326 M01S00181.ns22000 ---| LX4 -12
Line S00017 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00327 M01S00017.ns22000 +++| LX4 -18
00328 M00S00182.blank +++| BX3 -X0*X3
00329 M00S00183.blank +++| LX5 -6
00330 M00S00184.blank +++| BX6 X4+X5
Line S00018 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00331 M01S00018.ns22000 +++| LX7 -12
00332 M01S00019.ns22000 +++| BX6 X6+X7
00333 M00S00185.blank +++| BX6 X6+X3
Line S00186 Modification History
M01 (Removed by) blank1a
Seq # *Modification Id* Act
----------------------------+
00334 M01S00186.blank1a ---| SA6 A3
Line S00012 Modification History
M01 (Added by) blank1a
Seq # *Modification Id* Act
----------------------------+
00335 M01S00012.blank1a +++| SA6 A3+
00336 M00S00187.blank +++| SA2 DBS SET DEFAULT BLOCK SIZE IN FET
00337 M00S00188.blank +++| BX6 X6-X6
00338 M00S00189.blank +++| LX7 X2
00339 M00S00190.blank +++| SA6 F+5 CLEAR FNT/FST FROM FET
Line S00191 Modification History
M01 (Removed by) blank1a
Seq # *Modification Id* Act
----------------------------+
00340 M01S00191.blank1a ---| SA7 A6+B1 SET MLRS FIELD
Line S00013 Modification History
M01 (Added by) blank1a
Seq # *Modification Id* Act
----------------------------+
00341 M01S00013.blank1a +++| SA7 A6+1 SET MLRS FIELD
Line S00192 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00342 M01S00192.ns22000 ---| SPACE 4
00343 M01S00193.ns22000 ---|** WRITE BLANK LABELS.
00344 M01S00194.ns22000 ---|
Line S00020 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00345 M01S00020.ns22000 +++|
00346 M01S00021.ns22000 +++|* WRITE LABELS.
Line S00016 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00347 M01S00016.blank1 +++|* ENTER HERE TO RETRY IF ERROR DETECTED AND RETRY COUNT
00348 M01S00017.blank1 +++|* NOT YET EXHAUSTED.
00349 M00S00195.blank +++|
Line S00196 Modification History
M01 (Removed by) blank1
Seq # *Modification Id* Act
----------------------------+
00350 M01S00196.blank1 ---| BLK2 REWIND F
Line S00018 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00351 M01S00018.blank1 +++| BLK3 REWIND F
Line S00197 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00352 M01S00197.ns22000 ---|
00353 M00S00198.blank +++| MOVE 10,VBUF,BUF VOL1
Line S00199 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00354 M01S00199.ns22000 ---|
00355 M00S00200.blank +++| SA1 HDR1 SET *HDR1*
00356 M00S00201.blank +++| BX6 X1
00357 M00S00202.blank +++| SA6 HDR
00358 M00S00203.blank +++| MOVE 10,HBUF,BUF+10 HDR1
Line S00204 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00359 M01S00204.ns22000 ---|
00360 M00S00205.blank +++| MOVE 2,EOT,BUF+20 TAPE MARK
00361 M00S00206.blank +++| MOVE 2,EOT,BUF+22 TAPE MARK
Line S00207 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00362 M01S00207.ns22000 ---|
00363 M00S00208.blank +++| SA1 EOF1 SET *EOF1*
00364 M00S00209.blank +++| BX6 X1
00365 M00S00210.blank +++| SA6 HDR
00366 M00S00211.blank +++| MOVE 10,HBUF,BUF+24 EOF1
Line S00212 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00367 M01S00212.ns22000 ---|
00368 M00S00213.blank +++| MOVE 2,EOT,BUF+34 TAPE MARK
00369 M00S00214.blank +++| MOVE 2,EOT,BUF+36 TAPE MARK
Line S00215 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00370 M01S00215.ns22000 ---|
00371 M00S00216.blank +++| RECALL F
00372 M00S00217.blank +++| SX6 BUF+38
00373 M00S00218.blank +++| SA6 F+2 SET IN
00374 M00S00219.blank +++| WRITECW F,R WRITE LABELS ONTO TAPE
Line S00019 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00375 M01S00019.blank1 +++| RJ CTS CHECK TAPE STATUS
00376 M00S00220.blank +++|
Line S00221 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00377 M01S00221.ns22000 ---|
00378 M01S00222.ns22000 ---| SPACE 4
00379 M01S00223.ns22000 ---|** VERIFY LABELS.
00380 M01S00224.ns22000 ---|
Line S00022 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00381 M01S00022.ns22000 +++|* VERIFY LABELS.
00382 M00S00225.blank +++|
00383 M00S00226.blank +++| REWIND F,R
Line S00227 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00384 M01S00227.ns22000 ---|
00385 M01S00228.ns22000 ---|* VERIFY VOL1, HDR1, AND TAPE MARK.
00386 M01S00229.ns22000 ---|
00387 M00S00230.blank +++| READCW F,17B READ EXPECTED LABELS
Line S00020 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00388 M01S00020.blank1 +++| RJ CTS CHECK TAPE STATUS
00389 M00S00231.blank +++| SA0 VBUF
00390 M00S00232.blank +++| RJ VYL VERIFY VOLUME LABEL
00391 M00S00233.blank +++| SA1 HDR1 SET *HDR1*
00392 M00S00234.blank +++| BX6 X1
00393 M00S00235.blank +++| SA6 HDR
00394 M00S00236.blank +++| SA0 HBUF
00395 M00S00237.blank +++| RJ VYL VERIFY HEADER LABEL
00396 M00S00238.blank +++| RJ VTM VERIFY TAPE MARK
Line S00239 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00397 M01S00239.ns22000 ---|
00398 M01S00240.ns22000 ---|* VERIFY SECOND TAPE MARK.
00399 M01S00241.ns22000 ---|
00400 M00S00242.blank +++| READCW F,17B
Line S00021 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00401 M01S00021.blank1 +++| RJ CTS CHECK TAPE STATUS
00402 M00S00243.blank +++| RJ VTM VERIFY TAPE MARK
Line S00244 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00403 M01S00244.ns22000 ---|
00404 M01S00245.ns22000 ---|* VERIFY EOF1 AND TAPE MARK.
00405 M01S00246.ns22000 ---|
00406 M00S00247.blank +++| READCW F,17B
Line S00022 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00407 M01S00022.blank1 +++| RJ CTS CHECK TAPE STATUS
00408 M00S00248.blank +++| SA1 EOF1 SET *EOF1*
00409 M00S00249.blank +++| BX6 X1
00410 M00S00250.blank +++| SA6 HDR
00411 M00S00251.blank +++| SA0 HBUF
00412 M00S00252.blank +++| RJ VYL VERIFY TRAILER LABEL
00413 M00S00253.blank +++| RJ VTM VERIFY TAPE MARK
Line S00254 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00414 M01S00254.ns22000 ---|
00415 M01S00255.ns22000 ---|* VERIFY FINAL TAPE MARK.
00416 M01S00256.ns22000 ---|
00417 M00S00257.blank +++| READCW F,17B
Line S00023 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00418 M01S00023.blank1 +++| RJ CTS CHECK TAPE STATUS
00419 M00S00258.blank +++| RJ VTM VERIFY TAPE MARK
Line S00259 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00420 M01S00259.ns22000 ---|
00421 M01S00260.ns22000 ---|
00422 M00S00261.blank +++| UNLOAD F
00423 M00S00262.blank +++| MESSAGE (=C* TAPE BLANK LABELED.*),3
00424 M00S00263.blank +++| ENDRUN
Line S00017 Modification History
M01 (Added by) blank2
Seq # *Modification Id* Act
----------------------------+
00425 M01S00017.blank2 +++|
00426 M01S00018.blank2 +++|
00427 M01S00019.blank2 +++| BLKA BSSZ 3 *SETPFP* BLOCK
Line S00264 Modification History
M01 (Removed by) blank1
Seq # *Modification Id* Act
----------------------------+
00428 M01S00264.blank1 ---| VER SPACE 4
Line S00024 Modification History
M01 (Added by) blank1
M02 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00429 M02S00024.274l797 ---| IEE SPACE 4,20
Line S00087 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00430 M01S00087.274l797 +++| IEE SPACE 4,15
Line S00025 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
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 M00S00265.blank +++|** VER - VERIFY ERROR EXIT.
00488 M00S00266.blank +++|
00489 M00S00267.blank +++|
00490 M00S00268.blank +++| VER BSS 0
00491 M00S00269.blank +++| SA1 VERA
00492 M00S00270.blank +++| SX6 X1-1
00493 M00S00271.blank +++| SA6 A1
Line S00272 Modification History
M01 (Removed by) blank1
Seq # *Modification Id* Act
----------------------------+
00494 M01S00272.blank1 ---| NZ X1,BLK2 IF RETRY COUNT NOT EXHAUSTED
Line S00081 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
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 M00S00273.blank +++| REWIND F
00499 M00S00274.blank +++| WRITEF X2 ERASE LABELS
00500 M00S00275.blank +++| UNLOAD X2
Line S00276 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00501 M01S00276.ns22000 ---| UNLOAD F
00502 M00S00277.blank +++| SB2 =C* BLANK LABELS DO NOT VERIFY.*
Line S00278 Modification History
M01 (Removed by) blank1
Seq # *Modification Id* Act
----------------------------+
00503 M01S00278.blank1 ---| EQ ABT ISSUE MESSAGE AND ABORT
Line S00084 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
00504 M01S00084.blank1 +++| EQ IEE1 RETRY OR ISSUE MESSAGE AND ABORT
00505 M00S00279.blank +++|
00506 M00S00280.blank +++| VERA CON COUNT VERIFY ERROR RETRY COUNT
Line S00281 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00507 M01S00281.ns22000 ---|
00508 M01S00282.ns22000 ---| BLANKC VFD 60/0LBLANK
00509 M00S00283.blank +++| TITLE SUBROUTINES.
Line S00085 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
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
Line S00284 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00528 M01S00284.274l797 ---| RSB SPACE 4
Line S00088 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00529 M01S00088.274l797 +++| RSB SPACE 4,15
00530 M00S00285.blank +++|** RSB - MAKE *RSB* REQUEST.
00531 M00S00286.blank +++|*
00532 M00S00287.blank +++|* ENTRY (X1) = SUBSYSTEM QUEUE PRIORITY.
00533 M00S00288.blank +++|* (X5) = WORD COUNT.
00534 M00S00289.blank +++|* (X6) = ADDRESS TO SEND TO.
00535 M00S00290.blank +++|*
00536 M00S00291.blank +++|* EXIT TO *ERR2*, IF SYSTEM ERROR.
00537 M00S00292.blank +++|*
00538 M00S00293.blank +++|* USES A - 1, 2, 7.
00539 M00S00294.blank +++|* X - 1, 2, 5, 6, 7.
00540 M00S00295.blank +++|*
00541 M00S00296.blank +++|* CALLS SYS=.
00542 M00S00297.blank +++|
00543 M00S00298.blank +++|
00544 M00S00299.blank +++| RSB SUBR ENTRY/EXIT
00545 M00S00300.blank +++| SA2 RSBA
00546 M00S00301.blank +++| LX5 36
00547 M00S00302.blank +++| LX7 18
00548 M00S00303.blank +++| BX6 X6+X5
00549 M00S00304.blank +++| LX1 18
00550 M00S00305.blank +++| BX7 X7+X6
00551 M00S00306.blank +++| BX6 X1+X2
00552 M00S00307.blank +++| SA7 X6
00553 M00S00308.blank +++| RJ =XSYS=
00554 M00S00309.blank +++| SA1 SS CHECK ERROR RESPONSE
00555 M00S00310.blank +++| PL X1,ERR2 IF ERROR CONDITION
00556 M00S00311.blank +++| EQ RSBX RETURN
00557 M00S00312.blank +++|
00558 M00S00313.blank +++| RSBA VFD 18/3LRSB,12/2000B,12/0,18/SS
00559 M00S00314.blank +++| SS CON 0 RDSB MACRO STATUS WORD
00560 M00S00315.blank +++| VTM SPACE 4,10
00561 M00S00316.blank +++|** VTM - VERIFY TAPE MARK.
00562 M00S00317.blank +++|*
00563 M00S00318.blank +++|* EXIT TO VER IF ERRORS.
00564 M00S00319.blank +++|*
00565 M00S00320.blank +++|* MACRO READW.
00566 M00S00321.blank +++|
00567 M00S00322.blank +++|
00568 M00S00323.blank +++| VTM SUBR ENTRY/EXIT
00569 M00S00324.blank +++| READW F,BUFF,1
00570 M00S00325.blank +++| NG X1,VTMX IF EOF ENCOUNTERED
00571 M00S00326.blank +++| EQ VER ERROR
00572 M00S00327.blank +++| VYL SPACE 4,15
00573 M00S00328.blank +++|** VYL - VERIFY LABEL.
00574 M00S00329.blank +++|*
00575 M00S00330.blank +++|* ENTRY (A0) = FWA EXPECTED LABEL CONTENTS.
00576 M00S00331.blank +++|*
00577 M00S00332.blank +++|* EXIT TO VER IF ERRORS.
00578 M00S00333.blank +++|*
00579 M00S00334.blank +++|* USES A - 1, 2.
00580 M00S00335.blank +++|* B - 2.
00581 M00S00336.blank +++|* X - 0, 1, 2, 3.
00582 M00S00337.blank +++|*
00583 M00S00338.blank +++|* MACRO READW.
00584 M00S00339.blank +++|
00585 M00S00340.blank +++|
00586 M00S00341.blank +++| VYL SUBR ENTRY/EXIT
00587 M00S00342.blank +++| READW F,BUFF,10
00588 M00S00343.blank +++| NZ X1,VER IF EOR/EOF
00589 M00S00344.blank +++| SA1 A0
00590 M00S00345.blank +++| MX0 -30
00591 M00S00346.blank +++| SA2 BUFF
00592 M00S00347.blank +++| BX3 X1-X2
00593 M00S00348.blank +++| BX3 -X0*X3
00594 M00S00349.blank +++| NZ X3,VER IF INCORRECT UBC OR BLOCK LENGTH
00595 M00S00350.blank +++| SB2 8
00596 M00S00351.blank +++| VYL1 SA1 A1+B1
00597 M00S00352.blank +++| SA2 A2+B1
00598 M00S00353.blank +++| BX3 X1-X2
00599 M00S00354.blank +++| SB2 B2-B1
00600 M00S00355.blank +++| NZ X3,VER IF LABEL CONTENT ERROR
00601 M00S00356.blank +++| NZ B2,VYL1 IF MORE WORDS TO VERIFY
00602 M00S00357.blank +++| SA2 A2+B1
00603 M00S00358.blank +++| AX2 48
00604 M00S00359.blank +++| NZ X2,VER IF NOT LEVEL ZERO
00605 M00S00360.blank +++| EQ VYLX RETURN
00606 M00S00361.blank +++| TITLE PARAMETER PROCESSING SUBROUTINES.
Line S00362 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00607 M01S00362.274l797 ---| AOP SPACE 4
Line S00089 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00608 M01S00089.274l797 +++| AOP SPACE 4,15
Line S00363 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00609 M01S00363.ns22000 ---|** AOP - ANALIZE OPTIONAL PARAMETERS.
Line S00023 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00610 M01S00023.ns22000 +++|** AOP - ANALYZE OPTIONAL PARAMETERS.
00611 M00S00364.blank +++|*
00612 M00S00365.blank +++|* ENTRY (B3) = PARAMETER OPTION TABLE ADDRESS.
00613 M00S00366.blank +++|* (B6) = ADDRESS TO BEGIN PARAMETER ASSEMBLY.
00614 M00S00367.blank +++|*
00615 M00S00368.blank +++|* EXIT (X1) = SEPARATOR.
00616 M00S00369.blank +++|* (X2) = OPTION TABLE ENTRY.
00617 M00S00370.blank +++|* (X5) = PARAMETER.
00618 M00S00371.blank +++|* TO ERR IF ERROR.
00619 M00S00372.blank +++|*
00620 M00S00373.blank +++|* USES A - 2.
00621 M00S00374.blank +++|* X - 2, 3, 6.
00622 M00S00375.blank +++|*
00623 M00S00376.blank +++|* CALLS CLP.
00624 M00S00377.blank +++|
00625 M00S00378.blank +++|
00626 M00S00379.blank +++| AOP SUBR ENTRY/EXIT
00627 M00S00380.blank +++| RJ CLP GET PARAMETER
00628 M00S00381.blank +++| SA2 B3-B1 READ OPTION TABLE
00629 M00S00382.blank +++| MX3 30
00630 M00S00383.blank +++| AOP1 SA2 A2+B1
00631 M00S00384.blank +++| BX6 X3*X2
00632 M00S00385.blank +++| ZR X2,ERR IF END OF OPTIONS
00633 M00S00386.blank +++| BX6 X6-X5
00634 M00S00387.blank +++| NZ X6,AOP1 IF NO MATCH
00635 M00S00388.blank +++| EQ AOPX RETURN
Line S00389 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00636 M01S00389.274l797 ---| BOP SPACE 4
Line S00090 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00637 M01S00090.274l797 +++| BOP SPACE 4,20
00638 M00S00390.blank +++|** BOP - BLANK OPTIONAL PARAMETER PROCESSOR.
00639 M00S00391.blank +++|*
Line S00392 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00640 M01S00392.274l797 ---|* ENTRY USBB CONTAINS UNPACKED CONTROL CARD.
Line S00091 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00641 M01S00091.274l797 +++|* ENTRY USBB CONTAINS UNPACKED COMMAND.
00642 M00S00393.blank +++|* (B6) = STRING BUFFER POINTER.
00643 M00S00394.blank +++|*
00644 M00S00395.blank +++|* EXIT FET HAS TAPE DESCRIPTORS.
Line S00396 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00645 M01S00396.274l797 ---|* VBUF AND HBUF BUILT.
00646 M01S00397.274l797 ---|* TO ERR IF ERROR.
Line S00092 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00647 M01S00092.274l797 +++|* *VBUF* AND *HBUF* BUILT.
00648 M01S00093.274l797 +++|* TO *ERR* IF PARAMETER ERROR.
00649 M00S00398.blank +++|*
Line S00399 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00650 M01S00399.274l797 ---|* USES ALL REGISTERS.
Line S00094 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00651 M01S00094.274l797 +++|* USES X - ALL.
00652 M01S00095.274l797 +++|* A - 1, 3, 4, 5, 6, 7.
00653 M01S00096.274l797 +++|* B - 2, 3.
00654 M00S00400.blank +++|*
Line S00401 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00655 M01S00401.274l797 ---|* CALLS AOP, SOI.
Line S00097 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00656 M01S00097.274l797 +++|* CALLS AOP, SDT, SOI.
00657 M00S00402.blank +++|*
Line S00403 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00658 M01S00403.ns22000 ---|* MACRO JDATE, RDSB.
Line S00024 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00659 M02S00024.274l797 ---|* MACROS GETPFP, JDATE, RDSB.
Line S00098 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00660 M01S00098.274l797 +++|* MACROS GETPFP, JDATE.
00661 M00S00404.blank +++|
00662 M00S00405.blank +++|
00663 M00S00406.blank +++| BOP SUBR ENTRY/EXIT
00664 M00S00407.blank +++|
Line S00408 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00665 M01S00408.274l797 ---|* SET DEFAULT TRACK TYPE AND OWNERSHIP.
Line S00099 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00666 M01S00099.274l797 +++|* SET DEFAULT OWNERSHIP AND TAPE DESCRIPTORS.
00667 M00S00409.blank +++|
Line S00410 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00668 M01S00410.ns22000 ---| RDSB 0,1,ESTP,BOPA READ *ESTP*
00669 M01S00411.ns22000 ---| RDSB 0,1,IPRL,BOPB READ *IPRW*
00670 M01S00412.ns22000 ---| RDSB 0,1,0,BOPC READ *PFCW*
00671 M01S00413.ns22000 ---| SA1 BOPB
Line S00025 Modification History
M01 (Added by) ns22000
M02 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00672 M02S00025.274l797 ---| MX6 1 GET INSTALLATION DEFAULTS
00673 M02S00026.274l797 ---| SA6 BOPA
00674 M02S00027.274l797 ---| RDSB 0,1,IPRL,A6
00675 M02S00028.274l797 ---| SA1 BOPA
Line S00414 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00676 M01S00414.274l797 ---| SA2 F+1 SET DEFAULT DEVICE TYPE
00677 M01S00415.274l797 ---| MX0 12
00678 M01S00416.274l797 ---| SX3 100B
00679 M01S00417.274l797 ---| BX2 -X0*X2 CLEAR DEVICE TYPE FIELD
00680 M01S00418.274l797 ---| LX1 1
00681 M01S00419.274l797 ---| BX3 X3*X1 DEFAULT TRACK TYPE BIT
00682 M00S00420.blank +++| SA4 DTD DEFAULT TAPE DESCRIPTORS
Line S00421 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00683 M01S00421.274l797 ---| SX6 X3+2RMT DEFAULT DEVICE TYPE
00684 M01S00422.274l797 ---| LX3 56-6 POSITION MT/NT BIT
00685 M01S00423.274l797 ---| LX6 -12
00686 M01S00424.274l797 ---| BX6 X2+X6
00687 M01S00425.274l797 ---| BX7 X3+X4
00688 M01S00426.274l797 ---| SA6 A2 SET DEFAULT DEVICE TYPE IN FET
Line S00100 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00689 M01S00100.274l797 +++| BX7 X4
00690 M00S00427.blank +++| BX6 X6-X6
00691 M00S00428.blank +++| SA7 F+10B SET DEFAULT TAPE DESCRIPTORS IN FET
00692 M00S00429.blank +++| SA6 A7+B1 CLEAR VSN FIELD
Line S00430 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00693 M01S00430.ns22000 ---| SA2 A1-B1 ESTP
00694 M01S00431.ns22000 ---| SA1 A1+B1 PFCW
00695 M01S00432.ns22000 ---| MX0 -6
00696 M01S00433.ns22000 ---| LX1 -12
00697 M01S00434.ns22000 ---| BX1 -X0*X1 FAMILY INDEX
00698 M01S00435.ns22000 ---| LX2 12
00699 M01S00436.ns22000 ---| MX0 -12
00700 M01S00437.ns22000 ---| BX2 -X0*X2 EST FWA
00701 M01S00438.ns22000 ---| MX6 1
00702 M01S00439.ns22000 ---| IX7 X2+X1 EST ENTRY ADDRESS
00703 M01S00440.ns22000 ---| SA6 A2
00704 M01S00441.ns22000 ---| RDSB 0,1,X7,A6 READ EST ENTRY
00705 M01S00442.ns22000 ---| SA1 BOPA
00706 M01S00443.ns22000 ---| MX0 -12
00707 M01S00444.ns22000 ---| BX1 -X0*X1
00708 M01S00445.ns22000 ---| LX1 3
00709 M01S00446.ns22000 ---| SX7 X1+PFGL MST ADDRESS
00710 M01S00447.ns22000 ---| MX6 1
00711 M01S00448.ns22000 ---| SA6 A1
00712 M01S00449.ns22000 ---| RDSB 0,1,X7,A6 READ FAMILY NAME
Line S00029 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00713 M01S00029.ns22000 +++| GETPFP BOPA GET FAMILY NAME
00714 M00S00450.blank +++| SA5 BOPA
00715 M00S00451.blank +++| MX0 42
00716 M00S00452.blank +++| BX5 X0*X5 FAMILY NAME
00717 M00S00453.blank +++| SA4 SSJ=+/COMSSSJ/UIDS
00718 M00S00454.blank +++| BX4 X0*X4 USER NUMBER
00719 M00S00455.blank +++| RJ SOI SET OWNER IDENTIFICATION
Line S00456 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00720 M01S00456.ns22000 ---|
00721 M01S00457.ns22000 ---|* DATE HRD1.
00722 M01S00458.ns22000 ---|
00723 M01S00459.ns22000 ---| JDATE BOPA
Line S00030 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00724 M01S00030.ns22000 +++| JDATE BOPA BUILD CREATION/RETENTION DATES
00725 M00S00460.blank +++| SA1 BOPA
00726 M00S00461.blank +++| BX2 X1
Line S00001 Modification History
M01 (Added by) ns2786
Seq # *Modification Id* Act
----------------------------+
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 M00S00462.blank +++| LX2 6
Line S00463 Modification History
M01 (Removed by) ns2786
Seq # *Modification Id* Act
----------------------------+
00734 M01S00463.ns2786 ---| SX5 1R
Line S00007 Modification History
M01 (Added by) ns2786
Seq # *Modification Id* Act
----------------------------+
00735 M01S00007.ns2786 +++| BX2 X2+X5
00736 M01S00008.ns2786 +++| LX5 6*6
00737 M00S00464.blank +++| BX2 X2+X5
00738 M00S00465.blank +++| LX2 12
00739 M00S00466.blank +++| LX1 -18
00740 M00S00467.blank +++| MX5 -12
00741 M00S00468.blank +++| BX0 -X5*X1
00742 M00S00469.blank +++| BX2 X0+X2
Line S00470 Modification History
M01 (Removed by) ns2786
Seq # *Modification Id* Act
----------------------------+
00743 M01S00470.ns2786 ---| MX5 12
Line S00009 Modification History
M01 (Added by) ns2786
Seq # *Modification Id* Act
----------------------------+
00744 M01S00009.ns2786 +++| MX5 6
00745 M00S00471.blank +++| SA3 HDR+4
00746 M00S00472.blank +++| BX3 X5*X3
00747 M00S00473.blank +++| BX6 X3+X2
00748 M00S00474.blank +++| SA6 A3
00749 M00S00475.blank +++| MX5 18
00750 M00S00476.blank +++| SA3 A3+B1
00751 M00S00477.blank +++| BX1 X5*X1
00752 M00S00478.blank +++| BX3 -X5*X3
00753 M00S00479.blank +++| BX6 X1+X3
00754 M00S00480.blank +++| SA6 A3
00755 M00S00481.blank +++|
00756 M00S00482.blank +++|* PROCESS OPTIONAL PARAMETERS.
Line S00101 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00757 M01S00101.274l797 +++|* REENTER HERE FROM COMMAND PARAMETER PROCESSORS.
00758 M00S00483.blank +++|
Line S00484 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00759 M01S00484.274l797 ---| BOP1 ZR B6,BOPX IF CONTROL CARD EXHAUSTED
Line S00102 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00760 M01S00102.274l797 +++| BOP1 ZR B6,BOP4 IF COMMAND EXHAUSTED
00761 M00S00485.blank +++| SB3 TCCP
00762 M00S00486.blank +++| SX6 B0+
00763 M00S00487.blank +++| SA6 LIT DISABLE LITERAL PROCESSING
Line S00488 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00764 M01S00488.ns22000 ---| RJ AOP ANALIZE OPTIONS
Line S00031 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00765 M01S00031.ns22000 +++| RJ AOP ANALYZE OPTION
00766 M00S00489.blank +++| SB2 X2 PROCESSOR ADDRESS
Line S00490 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00767 M01S00490.274l797 ---| LX2 31
Line S00103 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00768 M01S00103.274l797 +++| LX2 59-28
00769 M00S00491.blank +++| SX3 X1-1R=
00770 M00S00492.blank +++| PL X2,BOP2 IF NOT EQUIVALENCED PARAMETER
00771 M00S00493.blank +++| NZ X3,ERR IF NOT CORRECT SEPARATOR
00772 M00S00494.blank +++| EQ BOP3 CONTINUE
00773 M00S00495.blank +++|
00774 M00S00496.blank +++| BOP2 ZR X3,ERR IF NOT CORRECT SEPARATOR
00775 M00S00497.blank +++| BOP3 MX6 -1
00776 M00S00498.blank +++| BX6 -X6*X2
00777 M00S00499.blank +++| SA6 LIT ENABLE/DISABLE LITERAL PROCESSING
Line S00104 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00778 M01S00104.274l797 +++| LX2 0-18-59+28
00779 M00S00500.blank +++| JP B2 JUMP TO PROCESSOR
00780 M00S00501.blank +++|
Line S00105 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00781 M01S00105.274l797 +++|* CHECK FOR DEVICE TYPE CONFLICT.
00782 M00S00502.blank +++|
Line S00106 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 +++|
Line S00503 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00799 M01S00503.ns22000 ---| BOPA CON -0 JDATE TEMPORARY
00800 M01S00504.ns22000 ---| BOPB CON -0 *IPRW* TEMPORARY
00801 M01S00505.ns22000 ---| BOPC CON PFCW *PFCW* TEMPORARY
Line S00032 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00802 M01S00032.ns22000 +++| BOPA BSS 3 TEMPORARIES
Line S00506 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00803 M01S00506.274l797 ---|
00804 M01S00507.274l797 ---|
00805 M01S00508.274l797 ---|** TCCP - TABLE OF CONTROL CARD PARAMETERS.
Line S00122 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00806 M01S00122.274l797 +++| TCCP SPACE 4,10
00807 M01S00123.274l797 +++|** TCCP - TABLE OF COMMAND PARAMETERS.
00808 M00S00509.blank +++|*
Line S00510 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00809 M01S00510.274l797 ---|*T 30/PARM,1/L,1/E,10/,18/PRAD
Figure
0 17 18 27 28 29 PRAD E L 30 59 PARM
Line S00124 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00810 M01S00124.274l797 +++|*T 30/KEYW,1/L,1/E,10/PARAM,18/PRAD
Figure
0 17 18 27 28 29 PRAD PARAM E L 30 59 KEYW
00811 M00S00511.blank +++|*
Line S00512 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00812 M01S00512.274l797 ---|* PARM 1 - 5 CHARACTER CONTROL CARD PARAMETER
Line S00125 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00813 M01S00125.274l797 +++|* KEYW 1 - 5 CHARACTER COMMAND KEYWORD
00814 M00S00513.blank +++|* L LITERAL PROCESSING FOR ARGUMENT VALUE (1 = ENABLE,
00815 M00S00514.blank +++|* 0 = DISABLE)
00816 M00S00515.blank +++|* E PARAMETER EQUIVALENCE (1 = EQUIVALENCED,
00817 M00S00516.blank +++|* 0 = NOT EQUIVALENCED)
Line S00126 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00818 M01S00126.274l797 +++|* PARAM PARAMETER FOR ARGUMENT PROCESSOR
00819 M00S00517.blank +++|* PRAD PROCESSOR ADDRESS
00820 M00S00518.blank +++|
00821 M00S00519.blank +++|
00822 M00S00520.blank +++| TCCP BSS 0
00823 M00S00521.blank +++| VFD 30/0LVSN,1/1,1/1,10/0,18/VSN VSN
00824 M00S00522.blank +++| VFD 30/0LVA,1/1,1/1,10/0,18/PVA VA
00825 M00S00523.blank +++| VFD 30/0LOWNER,1/0,1/1,10/0,18/OWN OWNER
00826 M00S00524.blank +++| VFD 30/0LLSL,1/0,1/1,10/0,18/LSL LSL
00827 M00S00525.blank +++| VFD 30/0LFA,1/1,1/1,10/0,18/PFA FA
00828 M00S00526.blank +++| VFD 30/0LOFA,1/1,1/1,10/0,18/OFA OFA
00829 M00S00527.blank +++| VFD 30/0LD,1/0,1/1,10/0,18/DEN D
00830 M00S00528.blank +++| VFD 30/0LCV,1/0,1/1,10/0,18/PCV CV
Line S00529 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00831 M01S00529.274l797 ---| VFD 30/0LMT,1/0,1/0,10/0,18/TRK MT
00832 M01S00530.274l797 ---| VFD 30/0LNT,1/0,1/0,10/0,18/TRK NT
Line S00127 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00531.blank +++| VFD 30/0LU,1/0,1/0,10/0,18/UNL U
Line S00130 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00837 M01S00130.274l797 +++| VFD 30/0LEVSN,1/0,1/1,10/0,18/EVS EVSN
00838 M00S00532.blank +++| CON 0 END OF TABLE
Line S00533 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00839 M01S00533.274l797 ---| CLP SPACE 4
Line S00131 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00534.blank +++|** CLP - CALL POP (PICK OUT PARAMETER).
00856 M00S00535.blank +++|*
00857 M00S00536.blank +++|* ENTRY (B6) = PARAMETER BEGINNING ADDRESS IN STRING BUFFER.
00858 M00S00537.blank +++|*
00859 M00S00538.blank +++|* EXIT (X1) = SEPARATOR.
00860 M00S00539.blank +++|* (X5) = PARAMETER.
00861 M00S00540.blank +++|* TO ERR IF ERROR.
00862 M00S00541.blank +++|*
00863 M00S00542.blank +++|* USES X - 5.
00864 M00S00543.blank +++|*
00865 M00S00544.blank +++|* CALLS POP.
00866 M00S00545.blank +++|
00867 M00S00546.blank +++|
00868 M00S00547.blank +++| CLP SUBR ENTRY/EXIT
00869 M00S00548.blank +++| RJ POP PICK OUT PARAMETER
00870 M00S00549.blank +++| NG B5,ERR IF NO PARAMETER
00871 M00S00550.blank +++| ZR X2,ERR IF ILLEGAL TERMINATION
00872 M00S00551.blank +++| GE B5,B1,ERR IF PARAMETER TOO LONG
00873 M00S00552.blank +++| BX5 X6
00874 M00S00553.blank +++| EQ CLPX RETURN
Line S00554 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00875 M01S00554.274l797 ---| ERR SPACE 4
Line S00146 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00876 M01S00146.274l797 +++| ERR SPACE 4,10
00877 M00S00555.blank +++|** ERR - ERROR PROCESSOR.
00878 M00S00556.blank +++|
00879 M00S00557.blank +++|
00880 M00S00558.blank +++| ERR SB2 =C* ERROR IN ARGUMENTS.*
Line S00559 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00881 M01S00559.274l797 ---| EQ ABT ISSUE MESSAGE AND ABORT
00882 M01S00560.274l797 ---|
00883 M01S00561.274l797 ---|
00884 M01S00562.274l797 ---| ERR1 SB2 =C* MT/NT CONFLICT.*
00885 M00S00563.blank +++| EQ ABT ISSUE MESSAGE AND ABORT
00886 M00S00564.blank +++|
00887 M00S00565.blank +++|
00888 M00S00566.blank +++| ERR2 SB2 =C* SYSTEM ERROR.*
00889 M00S00567.blank +++|* EQ ABT ISSUE MESSAGE AND ABORT
00890 M00S00568.blank +++|
00891 M00S00569.blank +++|
00892 M00S00570.blank +++| ABT BSS 0
00893 M00S00571.blank +++| MESSAGE B2,0
00894 M00S00572.blank +++| ABORT
Line S00147 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00573.blank +++| SOI SPACE 4,15
00957 M00S00574.blank +++|** SOI - SET OWNER IDENTIFICATION IN VOL1.
00958 M00S00575.blank +++|*
00959 M00S00576.blank +++|* ENTRY (X4) = USER NUMBER, LEFT-JUSTIFIED, ZERO FILLED.
00960 M00S00577.blank +++|* (X5) = FAMILY NAME, LEFT-JUSTIFIED, ZERO FILLED.
00961 M00S00578.blank +++|*
00962 M00S00579.blank +++|* EXIT FAMILY NAME CONCATENATED WITH USER NUMBER STORED IN
00963 M00S00580.blank +++|* CHARACTER POSITIONS 38 - 51 OF VOL1 LABEL
00964 M00S00581.blank +++|* (7 CHARACTERS EACH, LEFT-JUSTIFIED, BLANK FILLED).
00965 M00S00582.blank +++|*
00966 M00S00583.blank +++|* USES A - 1, 3, 6.
00967 M00S00584.blank +++|* X - 0, 1, 2, 3, 4, 5, 6.
00968 M00S00585.blank +++|*
00969 M00S00586.blank +++|* CALLS SFN.
00970 M00S00587.blank +++|
00971 M00S00588.blank +++|
00972 M00S00589.blank +++| SOI SUBR ENTRY/EXIT
00973 M00S00590.blank +++| MX0 42
00974 M00S00591.blank +++| BX1 X5
00975 M00S00592.blank +++| RJ SFN SPACE FILL FAMILY NAME
00976 M00S00593.blank +++| BX5 X0*X6
00977 M00S00594.blank +++| LX1 X4
00978 M00S00595.blank +++| RJ SFN SPACE FILL USER NUMBER
00979 M00S00596.blank +++| BX4 X0*X6
00980 M00S00597.blank +++| MX0 -18
00981 M00S00598.blank +++| SA1 VOL1+3 PRESERVE CHARACTERS 31 - 37 OF VOL1
00982 M00S00599.blank +++| LX5 18
00983 M00S00600.blank +++| BX1 X0*X1
00984 M00S00601.blank +++| BX2 -X0*X5 FIRST 3 CHARACTERS OF FAMILY NAME
00985 M00S00602.blank +++| LX4 36
00986 M00S00603.blank +++| BX5 X0*X5 LAST 4 CHARACTERS OF FAMILY NAME
00987 M00S00604.blank +++| MX0 -42
00988 M00S00605.blank +++| BX6 X1+X2
00989 M00S00606.blank +++| BX2 -X0*X4 FIRST 6 CHARACTERS OF USER NUMBER
00990 M00S00607.blank +++| SA6 A1
00991 M00S00608.blank +++| BX4 X0*X4 LAST CHARACTER OF USER NUMBER
00992 M00S00609.blank +++| SA3 VOL1+5 PRESERVE CHARACTERS 52 - 60 OF VOL1
00993 M00S00610.blank +++| BX6 X5+X2
00994 M00S00611.blank +++| MX0 -54
00995 M00S00612.blank +++| SA6 A6+B1
00996 M00S00613.blank +++| BX3 -X0*X3
00997 M00S00614.blank +++| BX6 X3+X4
00998 M00S00615.blank +++| SA6 A3
00999 M00S00616.blank +++| EQ SOIX RETURN
01000 M00S00617.blank +++| TITLE OPTION PROCESSORS.
Line S00618 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01001 M01S00618.274l797 ---| DEN SPACE 4
01002 M01S00619.274l797 ---|** PROCESS DENSITY.
01003 M01S00620.274l797 ---|* (LO,HI,HY,HD,PE,GE)
01004 M01S00621.274l797 ---|* (200,556,800,1600,6250)
Line S00208 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01005 M01S00208.274l797 +++| DEN SPACE 4,10
01006 M01S00209.274l797 +++|** DEN - PROCESS DENSITY.
01007 M01S00210.274l797 +++|*
01008 M01S00211.274l797 +++|* D=DENSITY.
01009 M00S00622.blank +++|
01010 M00S00623.blank +++|
Line S00624 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01011 M01S00624.274l797 ---| DEN BSS 0
Line S00212 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01012 M01S00212.274l797 +++| DEN BSS 0 ENTRY
01013 M00S00625.blank +++| SB3 TDEN
01014 M00S00626.blank +++| RJ AOP ANALYZE DENSITY OPTIONS
01015 M00S00627.blank +++| SX1 X1-1R=
01016 M00S00628.blank +++| ZR X1,ERR IF ILLEGAL SEPARATOR
01017 M00S00629.blank +++| MX0 3
Line S00630 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01018 M01S00630.274l797 ---| LX2 -9
01019 M01S00631.274l797 ---| SA3 F+8 SET DENSITY IN FET
Line S00213 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01020 M01S00213.274l797 +++| LX2 51-0
01021 M01S00214.274l797 +++| SA3 F+10B SET DENSITY IN FET
01022 M00S00632.blank +++| LX0 -6
01023 M00S00633.blank +++| BX1 X0*X2
01024 M00S00634.blank +++| BX3 -X0*X3
Line S00635 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01025 M01S00635.274l797 ---| LX2 5
Line S00215 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01026 M01S00215.274l797 +++| LX2 59-5-51+0
01027 M00S00636.blank +++| BX6 X1+X3
Line S00637 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01028 M01S00637.274l797 ---| MX0 -1
Line S00216 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01029 M01S00216.274l797 +++| MX0 -2
01030 M00S00638.blank +++| SA6 A3+
Line S00639 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01031 M01S00639.274l797 ---| PL X2,BOP1 IF TRACK TYPE NOT TO BE SET
01032 M01S00640.274l797 ---| BX5 -X0*X2
01033 M01S00641.274l797 ---| LX5 6
01034 M01S00642.274l797 ---| SX5 X5+2RMT
01035 M01S00643.274l797 ---| LX5 -12
01036 M01S00644.274l797 ---| EQ TRK SET MT OR NT TRACK TYPE
01037 M01S00645.274l797 ---|
01038 M01S00646.274l797 ---|
Line S00217 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00647.blank +++|** TDEN - TABLE OF DENSITY OPTIONS.
01046 M00S00648.blank +++|*
Line S00649 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01047 M01S00649.274l797 ---|*T 30/OP, 25/, 1/T, 1/M, 3/DC
Line S00223 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01048 M01S00223.274l797 +++|*T 30/OP, 24/, 1/T, 2/DT, 3/DC
01049 M00S00650.blank +++|*
01050 M00S00651.blank +++|* OP 1 - 5 CHARACTER DENSITY OPTION
Line S00652 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01051 M01S00652.274l797 ---|* T TRACK SELECTION (0=MT, 1=NT)
01052 M01S00653.274l797 ---|* M IF SET, 7- OR 9-TRACK TYPE TO BE SET IN FET
Line S00224 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00654.blank +++|* DC DENSITY CODE FOR FET
01056 M00S00655.blank +++|
01057 M00S00656.blank +++|
01058 M00S00657.blank +++| TDEN BSS 0
Line S00658 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01059 M01S00658.274l797 ---| VFD 30/0LHI,25/0,1/0,1/1,3/1 HI = 556 BPI 7-TRACK
01060 M01S00659.274l797 ---| VFD 30/0L556,25/0,1/0,1/1,3/1 556 BPI 7-TRACK
01061 M01S00660.274l797 ---| VFD 30/0LLO,25/0,1/0,1/1,3/2 LO = 200 BPI 7-TRACK
01062 M01S00661.274l797 ---| VFD 30/0L200,25/0,1/0,1/1,3/2 200 BPI 7-TRACK
01063 M01S00662.274l797 ---| VFD 30/0LHY,25/0,1/0,1/1,3/3 HY = 800 BPI 7-TRACK
01064 M01S00663.274l797 ---| VFD 30/0L800,25/0,1/0,1/0,3/3 800 BPI 7- OR 9-TRACK
01065 M01S00664.274l797 ---| VFD 30/0LHD,25/0,1/1,1/1,3/3 HD = 800 BPI 9-TRACK
01066 M01S00665.274l797 ---| VFD 30/0LPE,25/0,1/1,1/1,3/4 PE = 1600 CPI 9-TRACK
01067 M01S00666.274l797 ---| VFD 30/0L1600,25/0,1/1,1/1,3/4 1600 CPI 9-TRACK
01068 M01S00667.274l797 ---| VFD 30/0LGE,25/0,1/1,1/1,3/5 GE = 6250 CPI 9-TRACK
01069 M01S00668.274l797 ---| VFD 30/0L6250,25/0,1/1,1/1,3/5 6250 CPI 9-TRACK
Line S00226 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00669.blank +++| CON 0 END OF TABLE
Line S00240 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
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 M00S00670.blank +++| PVA SPACE 4,10
Line S00671 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01104 M01S00671.274l797 ---|** PROCESS VOLUME ACCESSIBLITY.
01105 M01S00672.274l797 ---|* VA=A.
Line S00258 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01106 M01S00258.274l797 +++|** PVA - PROCESS VOLUME ACCESSIBLITY.
01107 M01S00259.274l797 +++|*
01108 M01S00260.274l797 +++|* VA=X.
01109 M00S00673.blank +++|
01110 M00S00674.blank +++|
Line S00675 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01111 M01S00675.274l797 ---| PVA BSS 0
Line S00261 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01112 M01S00261.274l797 +++| PVA BSS 0 ENTRY
01113 M00S00676.blank +++| SA0 VBUF+2
01114 M00S00677.blank +++| SB3 0
01115 M00S00678.blank +++| EQ PSC PROCESS SINGLE CHARACTER
01116 M00S00679.blank +++| OFA SPACE 4,10
Line S00680 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01117 M01S00680.274l797 ---|** PROCESS OLD FILE ACCESSIBILITY (FA CURRENTLY ON TAPE).
01118 M01S00681.274l797 ---|* OFA=X.
Line S00262 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01119 M01S00262.274l797 +++|** OFA - PROCESS OLD FILE ACCESSIBILITY (FA CURRENTLY ON TAPE).
01120 M01S00263.274l797 +++|*
01121 M01S00264.274l797 +++|* OFA=X.
01122 M00S00682.blank +++|
01123 M00S00683.blank +++|
Line S00684 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01124 M01S00684.274l797 ---| OFA BSS 0
Line S00265 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01125 M01S00265.274l797 +++| OFA BSS 0 ENTRY
01126 M00S00685.blank +++| SA0 F+9
01127 M00S00686.blank +++| SB3 24
01128 M00S00687.blank +++| EQ PSC PROCESS SINGLE CHARACTER
01129 M00S00688.blank +++| PFA SPACE 4,10
Line S00689 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01130 M01S00689.274l797 ---|** PROCESS FILE ACCESSIBILITY.
01131 M01S00690.274l797 ---|* FA=A.
Line S00266 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01132 M01S00266.274l797 +++|** PFA - PROCESS FILE ACCESSIBILITY.
01133 M01S00267.274l797 +++|*
01134 M01S00268.274l797 +++|* FA=X.
01135 M00S00691.blank +++|
01136 M00S00692.blank +++|
Line S00693 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01137 M01S00693.274l797 ---| PFA BSS 0
Line S00269 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01138 M01S00269.274l797 +++| PFA BSS 0 ENTRY
01139 M00S00694.blank +++| SA0 HBUF+6
01140 M00S00695.blank +++| SB3 42
01141 M00S00696.blank +++| EQ PSC PROCESS SINGLE CHARACTER
Line S00697 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01142 M01S00697.274l797 ---| LSL SPACE 4
01143 M01S00698.274l797 ---|** PROCESS LABEL STANDARD LEVEL.
01144 M01S00699.274l797 ---|* LSL=A.
Line S00270 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01145 M01S00270.274l797 +++| LSL SPACE 4,10
01146 M01S00271.274l797 +++|** LSL = PROCESS LABEL STANDARD LEVEL.
01147 M01S00272.274l797 +++|*
01148 M01S00273.274l797 +++|* LSL=A.
01149 M00S00700.blank +++|
01150 M00S00701.blank +++|
Line S00702 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01151 M01S00702.274l797 ---| LSL BSS 0
01152 M01S00703.274l797 ---| SA0 VBUF+8
Line S00274 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01153 M01S00274.274l797 +++| LSL BSS 0 ENTRY
01154 M01S00275.274l797 +++| SA0 VBUF+10B
01155 M00S00704.blank +++| SB3 6
01156 M00S00705.blank +++|* EQ PSC PROCESS SINGLE CHARACTER
01157 M00S00706.blank +++| PSC SPACE 4,10
Line S00707 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01158 M01S00707.274l797 ---|** PROCESS SINGLE CHARACTER.
Line S00276 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01159 M01S00276.274l797 +++|** PSC - PROCESS SINGLE CHARACTER.
01160 M00S00708.blank +++|
01161 M00S00709.blank +++|
Line S00710 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01162 M01S00710.274l797 ---| PSC BSS 0
Line S00277 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01163 M01S00277.274l797 +++| PSC BSS 0 ENTRY
01164 M00S00711.blank +++| RJ CLP GET PARAMETER
01165 M00S00712.blank +++| SX1 X1-1R=
01166 M00S00713.blank +++| ZR X1,ERR IF ILLEGAL SEPARATOR
01167 M00S00714.blank +++| MX0 6
01168 M00S00715.blank +++| BX1 -X0*X5
01169 M00S00716.blank +++| SA2 A0
01170 M00S00717.blank +++| LX0 B3
01171 M00S00718.blank +++| NZ X1,ERR IF MORE THAN ONE CHARACTER
01172 M00S00719.blank +++| NZ X5,PSC1 IF NOT NULL PARAMETER
01173 M00S00720.blank +++| SX5 1R
01174 M00S00721.blank +++| LX5 -6
01175 M00S00722.blank +++| PSC1 LX5 B3 SET VALUE IN LABEL
01176 M00S00723.blank +++| BX2 -X0*X2
01177 M00S00724.blank +++| BX6 X2+X5
01178 M00S00725.blank +++| SA6 A2
01179 M00S00726.blank +++| EQ BOP1 RETURN
Line S00727 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01180 M01S00727.274l797 ---| OWN SPACE 4
01181 M01S00728.274l797 ---|** PROCESS OWNER IDENTIFICATION.
01182 M01S00729.274l797 ---|* OWNER=USERNUM/FAMILYN.
Line S00278 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01183 M01S00278.274l797 +++| OWN SPACE 4,10
01184 M01S00279.274l797 +++|** OWN - PROCESS OWNER IDENTIFICATION.
01185 M01S00280.274l797 +++|*
01186 M01S00281.274l797 +++|* OWNER=USERNUM/FAMILYN.
01187 M00S00730.blank +++|
01188 M00S00731.blank +++|
Line S00732 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01189 M01S00732.274l797 ---| OWN BSS 0
Line S00282 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01190 M01S00282.274l797 +++| OWN BSS 0 ENTRY
01191 M00S00733.blank +++| RJ CLP GET USER NUMBER
01192 M00S00734.blank +++| MX0 -18
01193 M00S00735.blank +++| SX1 X1-1R/
01194 M00S00736.blank +++| BX7 -X0*X5
01195 M00S00737.blank +++| NZ X1,ERR IF SEPARATOR NOT */*
01196 M00S00738.blank +++| NZ X7,ERR IF USER NUMBER TOO LONG
01197 M00S00739.blank +++| BX4 X5
01198 M00S00740.blank +++| RJ CLP GET FAMILY NAME
01199 M00S00741.blank +++| SX1 X1-1R=
01200 M00S00742.blank +++| ZR X1,ERR IF ILLEGAL SEPARATOR
01201 M00S00743.blank +++| BX7 -X0*X5
01202 M00S00744.blank +++| NZ X7,ERR IF FAMILY NAME TOO LONG
01203 M00S00745.blank +++| RJ SOI SET OWNER IDENTIFICATION
01204 M00S00746.blank +++| JP BOP1 RETURN
01205 M00S00747.blank +++| PCV SPACE 4,10
Line S00748 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01206 M01S00748.274l797 ---|** PROCESS CONVERSION MODE.
01207 M01S00749.274l797 ---|* CV=(AS,US,EB)
Line S00283 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01208 M01S00283.274l797 +++|** PCV - PROCESS CONVERSION MODE.
01209 M01S00284.274l797 +++|*
01210 M01S00285.274l797 +++|* CV=MODE.
01211 M00S00750.blank +++|
01212 M00S00751.blank +++|
Line S00752 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01213 M01S00752.274l797 ---| PCV BSS 0
Line S00286 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01214 M01S00286.274l797 +++| PCV BSS 0 ENTRY
01215 M00S00753.blank +++| SB3 TCVM
01216 M00S00754.blank +++| RJ AOP ANALYZE CONVERSION MODE OPTION
01217 M00S00755.blank +++| SX1 X1-1R=
01218 M00S00756.blank +++| ZR X1,ERR IF ILLEGAL SEPARATOR
01219 M00S00757.blank +++| LX2 -12
01220 M00S00758.blank +++| MX0 3
Line S00759 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01221 M01S00759.274l797 ---| SA3 F+8 SET CONVERSION MODE IN FET
Line S00287 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01222 M01S00287.274l797 +++| SA3 F+10B SET CONVERSION MODE IN FET
01223 M00S00760.blank +++| LX0 -9
01224 M00S00761.blank +++| BX3 -X0*X3
01225 M00S00762.blank +++| BX2 X0*X2
01226 M00S00763.blank +++| BX6 X3+X2
Line S00764 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01227 M01S00764.274l797 ---| SX5 2RNT
01228 M00S00765.blank +++| SA6 A3
Line S00766 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01229 M01S00766.274l797 ---| LX5 -12
01230 M01S00767.274l797 ---| EQ TRK SET NT TRACK TYPE
01231 M01S00768.274l797 ---|
01232 M01S00769.274l797 ---|
Line S00288 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01233 M01S00288.274l797 +++| EQ BOP1 RETURN
01234 M01S00289.274l797 +++| TCVM SPACE 4,10
01235 M00S00770.blank +++|** TCVM - TABLE OF CONVERSION MODE OPTIONS.
01236 M00S00771.blank +++|*
01237 M00S00772.blank +++|*T 30/OP,27/,3/CC
01238 M00S00773.blank +++|*
01239 M00S00774.blank +++|* OP 1 - 5 CHARACTER CONVERSION MODE OPTION
01240 M00S00775.blank +++|* CC CONVERSION MODE CODE FOR FET
01241 M00S00776.blank +++|
01242 M00S00777.blank +++|
01243 M00S00778.blank +++| TCVM BSS 0
01244 M00S00779.blank +++| VFD 30/0LAS,27/0,3/1 ASCII CONVERSION MODE
01245 M00S00780.blank +++| VFD 30/0LUS,27/0,3/1 USASI (SAME AS ASCII)
01246 M00S00781.blank +++| VFD 30/0LEB,27/0,3/2 EBCDIC CONVERSION MODE
01247 M00S00782.blank +++| CON 0 END OF TABLE
Line S00783 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01248 M01S00783.274l797 ---| TRK SPACE 4
01249 M01S00784.274l797 ---|** PROCESS SEVEN/NINE TRACK SELECTION.
01250 M01S00785.274l797 ---|* MT
01251 M01S00786.274l797 ---|* NT
Line S00290 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01252 M01S00290.274l797 +++| PDT SPACE 4,10
01253 M01S00291.274l797 +++|** PDT - PROCESS TAPE DEVICE TYPE SELECTION.
01254 M01S00292.274l797 +++|*
01255 M01S00293.274l797 +++|* DT=TYPE
01256 M01S00294.274l797 +++|* MT
01257 M01S00295.274l797 +++|* NT
01258 M00S00787.blank +++|
01259 M00S00788.blank +++|
Line S00789 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01260 M01S00789.274l797 ---| TRK BSS 0
01261 M01S00790.274l797 ---| MX0 12
01262 M01S00791.274l797 ---| SA2 F+1 SET EQUIPMENT TYPE *MT* OR *NT* IN FET
01263 M01S00792.274l797 ---| BX2 -X0*X2
01264 M01S00793.274l797 ---| BX6 X2+X5
01265 M01S00794.274l797 ---| MX0 1
01266 M01S00795.274l797 ---| SA3 F+8
01267 M01S00796.274l797 ---| SA6 A2
01268 M01S00797.274l797 ---| LX0 -3
01269 M01S00798.274l797 ---| AX5 54
01270 M01S00799.274l797 ---| BX3 -X0*X3
01271 M01S00800.274l797 ---| SX7 X5-1RM
01272 M01S00801.274l797 ---| LX7 -4
01273 M01S00802.274l797 ---| BX6 X7+X3
01274 M01S00803.274l797 ---| SA1 TRKA GET PREVIOUS TRACK SETTING INDICATOR
01275 M01S00804.274l797 ---| SA6 A3
01276 M01S00805.274l797 ---| SA7 A1 SAVE CURRENT TRACK SETTING
01277 M01S00806.274l797 ---| NG X1,BOP1 IF TRACK TYPE NOT PREVIOUSLY SPECIFIED
01278 M01S00807.274l797 ---| BX1 X7-X1
01279 M01S00808.274l797 ---| NZ X1,ERR1 IF MT/NT CONFLICT
Line S00296 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01280 M01S00296.274l797 +++| PDT BSS 0 ENTRY
01281 M01S00297.274l797 +++| SB3 TDVT
01282 M01S00298.274l797 +++| RJ AOP ANALYZE DEVICE TYPE OPTION
01283 M01S00299.274l797 +++| SX1 X1-1R=
01284 M01S00300.274l797 +++| ZR X1,ERR IF INCORRECT SEPARATOR
01285 M01S00301.274l797 +++|
01286 M01S00302.274l797 +++|* ENTRY FOR *MT* AND *NT* KEYWORDS.
01287 M01S00303.274l797 +++|
01288 M01S00304.274l797 +++| PDT1 SA1 EDT GET PREVIOUS DEVICE TYPE SELECTION
01289 M01S00305.274l797 +++| PL X1,ERR IF DEVICE TYPE PREVIOUSLY SPECIFIED
01290 M01S00306.274l797 +++| MX0 -2
01291 M01S00307.274l797 +++| BX6 -X0*X2 TAPE DEVICE TYPE
01292 M01S00308.274l797 +++| SA6 A1+ SET DEVICE TYPE
01293 M00S00809.blank +++| EQ BOP1 RETURN
Line S00309 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01294 M01S00309.274l797 +++| TDVT SPACE 4,10
01295 M01S00310.274l797 +++|** TDVT - TABLE OF TAPE DEVICE TYPES.
01296 M01S00311.274l797 +++|*
01297 M01S00312.274l797 +++|*T 30/OP,28/,3/DT
01298 M01S00313.274l797 +++|*
01299 M01S00314.274l797 +++|* OP 2 CHARACTER TAPE DEVICE TYPE MNEMONIC
01300 M01S00315.274l797 +++|* DT TAPE DEVICE TYPE FOR *LABEL* MACRO
01301 M01S00316.274l797 +++|
01302 M01S00317.274l797 +++|
01303 M01S00318.274l797 +++| TDVT BSS 0
01304 M01S00319.274l797 +++| VFD 30/0LMT,28/0,2/0
01305 M01S00320.274l797 +++| VFD 30/0LNT,28/0,2/2
01306 M01S00321.274l797 +++| VFD 30/0LCT,28/0,2/1
01307 M01S00322.274l797 +++| VFD 30/0LAT,28/0,2/3
01308 M01S00323.274l797 +++| CON 0
01309 M01S00324.274l797 +++| UNL SPACE 4,10
01310 M01S00325.274l797 +++|** UNL - PROCESS UNLOAD AFTER BLANKING.
01311 M01S00326.274l797 +++|*
01312 M01S00327.274l797 +++|* U
01313 M00S00810.blank +++|
01314 M00S00811.blank +++|
Line S00812 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01315 M01S00812.274l797 ---| TRKA CON -1 PREVIOUS TRACK TYPE INDICATOR
01316 M01S00813.274l797 ---| UNL SPACE 4
01317 M01S00814.274l797 ---|** PROCESS UNLOAD AFTER BLANKING.
01318 M01S00815.274l797 ---|* U
01319 M01S00816.274l797 ---|
01320 M01S00817.274l797 ---|
01321 M01S00818.274l797 ---| UNL BSS 0
Line S00328 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01322 M01S00328.274l797 +++| UNL BSS 0 ENTRY
01323 M00S00819.blank +++| MX0 1 CLEAR INHIBIT UNLOAD
01324 M00S00820.blank +++| SA1 F+10B
01325 M00S00821.blank +++| LX0 -18
01326 M00S00822.blank +++| BX6 -X0*X1
01327 M00S00823.blank +++| SA6 A1
01328 M00S00824.blank +++| EQ BOP1 RETURN
Line S00825 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01329 M01S00825.274l797 ---| VSN SPACE 4
01330 M01S00826.274l797 ---|** PROCESS VOLUME SERIAL NUMBER.
01331 M01S00827.274l797 ---|* VSN=AAAAAA.
Line S00329 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01332 M01S00329.274l797 +++| VSN SPACE 4,10
01333 M01S00330.274l797 +++|** VSN - PROCESS VOLUME SERIAL NUMBER.
01334 M01S00331.274l797 +++|*
01335 M01S00332.274l797 +++|* VSN=AAAAAA.
01336 M00S00828.blank +++|
01337 M00S00829.blank +++|
Line S00830 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01338 M01S00830.274l797 ---| VSN BSS 0
Line S00333 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01339 M01S00333.274l797 +++| VSN BSS 0 ENTRY
01340 M00S00831.blank +++| RJ CLP GET VSN
01341 M00S00832.blank +++| SX1 X1-1R=
01342 M00S00833.blank +++| ZR X1,ERR IF ILLEGAL SEPARATOR
01343 M00S00834.blank +++| MX0 -24
01344 M00S00835.blank +++| SA2 VSNA
01345 M00S00836.blank +++| MX1 0
01346 M00S00837.blank +++| BX7 X5-X2
01347 M00S00838.blank +++| ZR X7,VSN1 IF VSN=SCRATCH
01348 M00S00839.blank +++| SA2 A2+B1
01349 M00S00840.blank +++| BX7 X5-X2
01350 M00S00841.blank +++| ZR X7,VSN1 IF VSN=0
01351 M00S00842.blank +++| BX2 -X0*X5
Line S00843 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01352 M01S00843.274l797 ---| NZ X2,ERR IF VSN \ 6 CHARACTERS
Line S00334 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01353 M01S00334.274l797 +++| NZ X2,ERR IF VSN .GT. 6 CHARACTERS
01354 M00S00844.blank +++| BX1 X5
Line S00845 Modification History
M01 (Removed by) blank1
Seq # *Modification Id* Act
----------------------------+
01355 M01S00845.blank1 ---| VSN1 RJ SFN SPACE FILL VSN
Line S00103 Modification History
M01 (Added by) blank1
Seq # *Modification Id* Act
----------------------------+
01356 M01S00103.blank1 +++| MX0 -6 CHECK IF VSN IS A LEGAL FILE NAME
01357 M01S00104.blank1 +++| VSN0 LX5 6
01358 M01S00105.blank1 +++| BX3 -X0*X5
01359 M01S00106.blank1 +++| SX2 X3-1R+
01360 M01S00107.blank1 +++| PL X2,VSN1 IF NOT ALPHANUMERIC
01361 M01S00108.blank1 +++| NZ X3,VSN0 IF MORE CHARACTERS TO CHECK
01362 M01S00109.blank1 +++| SA2 F
01363 M01S00110.blank1 +++| MX0 -18
01364 M01S00111.blank1 +++| BX3 -X0*X2
01365 M01S00112.blank1 +++| BX6 X3+X1 SET VSN INTO FET
01366 M01S00113.blank1 +++| SA6 A2
01367 M01S00114.blank1 +++| VSN1 MX0 -24 RESTORE VSN MASK
01368 M01S00115.blank1 +++| RJ SFN SPACE FILL VSN
01369 M00S00846.blank +++| BX6 X0*X6
01370 M00S00847.blank +++| SA1 VBUF+1 ENTER VSN
01371 M00S00848.blank +++| LX1 -36
01372 M00S00849.blank +++| BX1 -X0*X1
01373 M00S00850.blank +++| BX7 X6+X1
01374 M00S00851.blank +++| LX7 36
01375 M00S00852.blank +++| SA7 A1
01376 M00S00853.blank +++| EQ BOP1 RETURN
01377 M00S00854.blank +++|
01378 M00S00855.blank +++| VSNA VFD 60/0LSCRATCH SCRATCH VSNS
01379 M00S00856.blank +++| VFD 60/0L0
Line S00335 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
01380 M01S00335.274l797 +++| SPACE 4,10
01381 M01S00336.274l797 +++|** GLOBAL DATA.
01382 M01S00337.274l797 +++|
01383 M01S00338.274l797 +++|
01384 M01S00339.274l797 +++| EDT CON -1 EXPLICITLY SPECIFIED DEVICE TYPE
01385 M01S00340.274l797 +++| DDT CON -1 DEVICE TYPE IMPLICITLY SET BY DENSITY
01386 M00S00857.blank +++| TITLE COMMON DECKS.
01387 M00S00858.blank +++|* COMMON DECKS.
01388 M00S00859.blank +++|
01389 M00S00860.blank +++|
01390 M00S00861.blank +++|*CALL COMCCIO
01391 M00S00862.blank +++|*CALL COMCCPM
01392 M00S00863.blank +++|*CALL COMCLFM
01393 M00S00864.blank +++|*CALL COMCMVE
Line S00865 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
01394 M01S00865.274l797 ---| RCC SET 1 DEFINE CONTROL CARD READ AHEAD