Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:blank
Deck BLANK
Library Member Format: MODIFY
Listing Sections
- Deck BLANK Start
- Deck BLANK Part 1 (Line 1395)
Source
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
| 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
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
Figure
| 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
Figure
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
Figure
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
Figure
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
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/blank.txt · Last modified: by 127.0.0.1