cdc:nos2.source:opl.opl871:deck:1hp
Deck 1HP
Library Member Format: MODIFY
Listing Sections
- Deck 1HP Start
- Deck 1HP Part 1 (Line 1622)
- Deck 1HP Part 2 (Line 3159)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1hp +++| IDENT 1HP,FHP 00002 M00S00002.1hp +++| 1HP TITLE 1HP - 885-42 DRIVER. 00003 M00S00003.1hp +++| PERIPH 00004 M00S00004.1hp +++| BASE MIXED 00005 M00S00005.1hp +++| SST 00006 M00S00006.1hp +++|*COMMENT 1HP - 885-42 DRIVER.
| Line S00007 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M00S00008.1hp +++| 1HP SPACE 4,10 00010 M00S00009.1hp +++|*** 1HP - 885-42 DRIVER. 00011 M00S00010.1hp +++|* 00012 M00S00011.1hp +++|* P. T. BARNETT. 83/09/04. 00013 M00S00012.1hp +++|* R. M. DANISCH. 85/12/23. 00014 M00S00013.1hp +++| 1HP SPACE 4,10 00015 M00S00014.1hp +++|*** 1HP PROVIDES THE CAPABILITY TO ACCESS THE 885-42 DRIVE 00016 M00S00015.1hp +++|* THROUGH THE 7155-401 (FA211-C) CONTROLLER. 1HP IS A 00017 M00S00016.1hp +++|* DEDICATED PROGRAM THAT IS INITIATED AT DEADSTART AND REMAINS 00018 M00S00017.1hp +++|* ACTIVE AS LONG AS ITS CHANNEL IS UP AND FUNCTIONAL. 1HP USES 00019 M00S00018.1hp +++|* THE *BIOM* MONITOR FUNCTION TO COMMUNICATE WITH *CPUMTR*. 00020 M00S00019.1hp +++| 1HP SPACE 4,10 00021 M00S00020.1hp +++|*** CALL FORMAT - 00022 M00S00021.1hp +++|* 00023 M00S00022.1hp +++|*T,IR 18/*1HP*, 1/0, 5/CP, 6/CCTO, 18/0, 12/CH
Figure IR
00024 M00S00023.1hp +++|* 00025 M00S00024.1hp +++|* CP CONTROL POINT NUMBER (MUST BE SYSTEM CP). 00026 M00S00025.1hp +++|* 00027 M00S00026.1hp +++|* CCTO CCT ORDINAL. 00028 M00S00027.1hp +++|* CH CHANNEL NUMBER. 00029 M00S00028.1hp +++| 1HP SPACE 4,35 00030 M00S00029.1hp +++|*** ORGANIZATION OF 885-42. 00031 M00S00030.1hp +++|* 00032 M00S00031.1hp +++|* UP TO THREE 885-42 UNITS CAN BE COMBINED TO FORM 00033 M00S00032.1hp +++|* A LOGICAL DEVICE. 00034 M00S00033.1hp +++|* 00035 M00S00034.1hp +++|* EQUIPMENT TYPE = *DB*. 00036 M00S00035.1hp +++|* 00037 M00S00036.1hp +++|* SECTORS/TRACK = 640 LOGICAL / 160 PHYSICAL. 00038 M00S00037.1hp +++|* (4 LOGICAL SECTORS FORM 1 PHYSICAL SECTOR) 00039 M00S00038.1hp +++|* 00040 M00S00039.1hp +++|* CM WORDS/PHYSICAL SECTOR = 400B. 00041 M00S00040.1hp +++|* 00042 M00S00041.1hp +++|* LOGICAL SECTORS/PHYSICAL SECTOR = 4. 00043 M00S00042.1hp +++|* 00044 M00S00043.1hp +++|* LOGICAL SECTORS/LOGICAL TRACK = 1200B (640D). 00045 M00S00044.1hp +++|* 00046 M00S00045.1hp +++|* LOGICAL SECTORS/BUFFER = 40B. 00047 M00S00046.1hp +++|* 00048 M00S00047.1hp +++|* TRACKS/UNIT = 3222B (1682D). 00049 M00S00048.1hp +++|* 00050 M00S00049.1hp +++|* WORDS/UNIT = 68,894,720. 00051 M00S00050.1hp +++|* 00052 M00S00051.1hp +++|* UNITS/DEVICE = 1-3. 00053 M00S00052.1hp +++|* 00054 M00S00053.1hp +++|* WORDS/DEVICE = 68,894,720 - 206,684,160. 00055 M00S00054.1hp +++|* 00056 M00S00055.1hp +++|* MAXIMUM DATA RATE = 491.52 K WORDS/SECOND. 00057 M00S00056.1hp +++| 1HP SPACE 4,20 00058 M00S00057.1hp +++|** MESSAGES. 00059 M00S00058.1hp +++|* 00060 M00S00059.1hp +++|* * EQXXX CC ERROR RETRY UNDERWAY.* 00061 M00S00060.1hp +++|* ISSUED TO THE SYSTEM CONTROL POINT FOR PRESENTATION ON THE 00062 M00S00061.1hp +++|* B-DISPLAY TO ALERT THE OPERATOR THAT ERROR RECOVERY IS BEING 00063 M00S00062.1hp +++|* PERFORMED ON THE DEVICE WHOSE EST ORDINAL IS XXX. THE TWO 00064 M00S00063.1hp +++|* CHARACTER MNEMONIC CC DESCRIBES THE ERROR TYPE. 00065 M00S00064.1hp +++|* 00066 M00S00065.1hp +++|* * 1HP - UNAUTHORIZED CALL.* 00067 M00S00066.1hp +++|* ISSUED TO THE SYSTEM DAYFILE IF 1HP WAS NOT CALLED FROM 00068 M00S00067.1hp +++|* THE SYSTEM. 00069 M00S00068.1hp +++| 1HP SPACE 4,65 00070 M00S00069.1hp +++|** IMPLEMENTATION NOTES. 00071 M00S00070.1hp +++|* 00072 M00S00071.1hp +++|* THE 7155-401 CONTROLLER IS CONNECTED TO ESM THROUGH A LOW 00073 M00S00072.1hp +++|* SPEED PORT, AND THE DATA TRANSFER IS DONE THROUGH THAT 00074 M00S00073.1hp +++|* CONNECTION. THEREFORE, UPON ISSUING A READ OR WRITE 00075 M00S00074.1hp +++|* FUNCTION, A 2-BYTE ESM ADDRESS IS SENT TO THE CONTROLLER 00076 M00S00075.1hp +++|* THROUGH THE CHANNEL, AND THEN THE CHANNEL IS DISCONNECTED. 00077 M00S00076.1hp +++|* *1HP* IS THEN FREE TO DO AS IT PLEASES WHILE THE CONTROLLER 00078 M00S00077.1hp +++|* READS/WRITES THE DATA FROM/TO ESM. SOMETIME BEFORE ISSUING 00079 M00S00078.1hp +++|* THE NEXT READ/WRITE FUNCTION *1HP* WILL ISSUE A GENERAL 00080 M00S00079.1hp +++|* STATUS FUNCTION. THE CONTROLLER WILL PROVIDE STATUS ONLY 00081 M00S00080.1hp +++|* AFTER COMPLETION OF THE DATA TRANSFER. 00082 M00S00081.1hp +++|* 00083 M00S00082.1hp +++|* IN ORDER TO MAXIMIZE THE TRANSFER RATE, *1HP* WILL SCAN THE 00084 M00S00083.1hp +++|* UNIT QUEUE WHILE WAITING FOR I/O COMPLETION TO SEE IF THE 00085 M00S00084.1hp +++|* CURRENT TRANSFER CAN BE CONTINUED. IF THE 10B SECTORS 00086 M00S00085.1hp +++|* IMMEDIATELY FOLLOWING THE CURRENT 10B SECTORS ARE TO 00087 M00S00086.1hp +++|* BE USED IN THE SAME TRANSFER DIRECTION, *1HP* WILL CONTINUE 00088 M00S00087.1hp +++|* THE OPERATION, WITHOUT LOSING A DISK REVOLUTION. 00089 M00S00088.1hp +++|* DURING THE SUCCEEDING TRANSFER, *1HP* WILL ATTEMPT TO NOTIFY 00090 M00S00089.1hp +++|* *CPUMTR* OF COMPLETION ON THE PREVIOUS BUFFER. 00091 M00S00090.1hp +++| 1HP SPACE 4,10 00092 M00S00091.1hp +++|* COMMON DECKS. 00093 M00S00092.1hp +++| 00094 M00S00093.1hp +++|*CALL COMPMAC 00095 M00S00094.1hp +++| RICHI$ EQU 1 SELECT DEFERRED INSTRUCTION REDEFINITION 00096 M00S00095.1hp +++|*CALL COMPCHI 00097 M00S00096.1hp +++|*CALL COMSCPS 00098 M00S00097.1hp +++|*CALL COMSDFS 00099 M00S00098.1hp +++| LIST X 00100 M00S00099.1hp +++|*CALL COMSHIO 00101 M00S00100.1hp +++| LIST * 00102 M00S00101.1hp +++|*CALL COMSLSD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00103 M01S00001.252l678 +++|*CALL COMSMSC 00104 M00S00102.1hp +++| LIST X 00105 M00S00103.1hp +++|*CALL COMSMSP 00106 M00S00104.1hp +++| LIST * 00107 M00S00105.1hp +++|*CALL COMSPIM 00108 M00S00106.1hp +++|*CALL COMS1DS 00109 M00S00107.1hp +++| TITLE CONSTANTS, DEFINITIONS, AND MACROS. 00110 M00S00108.1hp +++| 1HP SPACE 4,10 00111 M00S00109.1hp +++|** DIRECT CELL ASSIGNMENTS. 00112 M00S00110.1hp +++| 00113 M00S00111.1hp +++| 00114 M00S00112.1hp +++| RS EQU 16 ERROR RECOVERY STATUS 00115 M00S00113.1hp +++| ER EQU 17 ERROR RECOVERY IN PROGRESS 00116 M00S00114.1hp +++| CC EQU 20 COMPLETION REQUEST COUNT 00117 M00S00115.1hp +++| S1 EQU 21 SCRATCH 00118 M00S00116.1hp +++| EC EQU 22 ERROR CODE 00119 M00S00117.1hp +++| RW EQU 23 READ/WRITE FLAG 00120 M00S00118.1hp +++| IL EQU 24 *PUT* INTERLOCK FLAG 00121 M00S00119.1hp +++| SR EQU 25 - 31 SCRATCH
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00122 M01S00001.ns2769 +++| WB EQU SR - SR+4 FOR *COMPIMB* COMPATIBILITY 00123 M00S00120.1hp +++| PI EQU 32 *PADN* WORD INDEX 00124 M00S00121.1hp +++| CN EQU 33 - 37 SCRATCH (5 CELLS) 00125 M00S00122.1hp +++| CD EQU 40 - 45 CURRENT DATA (6 CELLS) 00126 M00S00123.1hp +++| CS EQU 46 CHANNEL STATUS 00127 M00S00124.1hp +++| NB EQU 47 NEXT BUFFER ORDINAL 00128 M00S00125.1hp +++| PB EQU 50 PREVIOUS BUFFER ORDINAL 00129 M00S00126.1hp +++| CB EQU 51 CURRENT BUFFER ORDINAL 00130 M00S00127.1hp +++| TB EQU 52 TOTAL CBT COUNT 00131 M00S00128.1hp +++| GS EQU 53 GENERAL STATUS 00132 M00S00129.1hp +++|* EQU 54 CHANNEL NUMBER (FROM INPUT REGISTER) 00133 M00S00130.1hp +++| TI EQU 57 *TPOR* INDEX 00134 M00S00131.1hp +++| CA EQU 60 - 64 CURRENT PHYSICAL ADDRESS (5 CELLS) 00135 M00S00132.1hp +++| RC EQU 65 RETRY COUNT 00136 M00S00133.1hp +++| PO EQU 66 *PUT* ORDINAL 00137 M00S00134.1hp +++| S2 EQU 67 SCRATCH 00138 M00S00135.1hp +++| 1HP SPACE 4,10 00139 M00S00136.1hp +++|** DRIVER FUNCTION CODES. 00140 M00S00137.1hp +++| 00141 M00S00138.1hp +++| 00142 M00S00139.1hp +++| FCSK EQU 1 SEEK 1 TO 1 INTERLACE 00143 M00S00140.1hp +++| FCRD EQU 4 READ 00144 M00S00141.1hp +++| FCWR EQU 5 WRITE 00145 M00S00142.1hp +++| FCOC EQU 10 OPERATION COMPLETE 00146 M00S00143.1hp +++| FCCO EQU 14 CONTINUE 00147 M00S00144.1hp +++| FCDS EQU 23 DETAILED STATUS 00148 M00S00145.1hp +++| FCES EQU 66 EXTENDED GENERAL STATUS 00149 M00S00146.1hp +++| FCAL EQU 414 AUTOLOAD 00150 M00S00147.1hp +++| 1HP SPACE 4,10 00151 M00S00148.1hp +++|** STATUS AND CONTROL REGISTER FUNCTION CODE(S). 00152 M00S00149.1hp +++| 00153 M00S00150.1hp +++| FCTC EQU 3000 TEST AND CLEAR *SCR* BIT 00154 M00S00151.1hp +++| 1HP SPACE 4,10 00155 M00S00152.1hp +++|** ASSEMBLY CONSTANTS. 00156 M00S00153.1hp +++| 00157 M00S00154.1hp +++| 00158 M00S00155.1hp +++| BFRL EQU 10 *EMB* FLUSH RETRY COUNT 00159 M00S00156.1hp +++| CH EQU 0 MASS STORAGE CHANNEL 00160 M00S00157.1hp +++| EMAI EQU 400 EXTENDED MEMORY ADDRESS INCREMENT 00161 M00S00158.1hp +++| FCESL EQU 5 LENGTH OF EXTENDED GENERAL STATUS 00162 M00S00159.1hp +++| FCRDL EQU 2 NUMBER OF PARAMETER BYTES FOR READ 00163 M00S00160.1hp +++| FCSKL EQU 4 NUMBER OF PARAMETER BYTES FOR SEEK 00164 M00S00161.1hp +++| FCWRL EQU 6 NUMBER OF PARAMETER BYTES FOR WRITE
| Line S00162 Modification History | |
|---|---|
M01 (Removed by) | 1hp12 |
Seq # *Modification Id* Act ----------------------------+ 00165 M01S00162.1hp12 ---| MAXU EQU 10 MAXIMUM NUMBER OF UNITS PER CHANNEL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1hp12 |
Seq # *Modification Id* Act ----------------------------+ 00166 M01S00001.1hp12 +++| MAXU EQU 16D MAXIMUM NUMBER OF UNITS PER CHANNEL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 00167 M01S00001.ns2446 +++| PCRL EQU 10 PP CALL RETRY LIMIT 00168 M00S00163.1hp +++| MFRL EQU 10 MONITOR FUNCTION RETRY LIMIT 00169 M00S00164.1hp +++| PPSLB EQU 10 PHYSICAL SECTORS PER BUFFER 00170 M00S00165.1hp +++| PSPT EQU 40 PHYSICAL SECTORS PER PHYSICAL TRACK 00171 M00S00166.1hp +++| SOSF EQU 100 SEEK OPTION SELECT FLAGS 00172 M00S00167.1hp +++| TPORE EQU 1 LENGTH OF *TPOR* ENTRY 00173 M00S00168.1hp +++| SPACE 4,10 00174 M00S00169.1hp +++|** MACROS.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00175 M01S00002.ns2769 +++| TBLM SPACE 4,10 00176 M01S00003.ns2769 +++|** TBLM - CREATE TABLE ENTRY MACRO. 00177 M01S00004.ns2769 +++|* 00178 M01S00005.ns2769 +++|*NAM TBLM 00179 M01S00006.ns2769 +++|* 00180 M01S00007.ns2769 +++|* ENTRY NAM = TABLE NAME. 00181 M01S00008.ns2769 +++|* 00182 M01S00009.ns2769 +++|* EXIT NAM_E MACRO DEFINED. 00183 M01S00010.ns2769 +++| 00184 M01S00011.ns2769 +++| 00185 M01S00012.ns2769 +++| PURGMAC TBLM 00186 M01S00013.ns2769 +++| 00187 M01S00014.ns2769 +++| MACRO TBLM,NAM 00188 M01S00015.ns2769 +++| PURGMAC NAM_E 00189 M01S00016.ns2769 +++| NAM_E MACRO ADDR 00190 M01S00017.ns2769 +++| LOCAL A 00191 M01S00018.ns2769 +++| MACREF NAM_E 00192 M01S00019.ns2769 +++| NOREF A 00193 M01S00020.ns2769 +++| A EQU ADDR 00194 M01S00021.ns2769 +++| T_NAM RMT 00195 M01S00022.ns2769 +++| CON A 00196 M01S00023.ns2769 +++| RMT 00197 M01S00024.ns2769 +++| TBLM ENDM 00198 M01S00025.ns2769 +++| CBTE SPACE 4,10 00199 M01S00026.ns2769 +++|** CBTE - CONTROL BUFFER TABLE ENTRY. 00200 M01S00027.ns2769 +++|* 00201 M01S00028.ns2769 +++|* THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TCBT* 00202 M01S00029.ns2769 +++|* THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH 00203 M01S00030.ns2769 +++|* REQUIRES THE FWA OF THE CONTROL BUFFER TABLE. 00204 M01S00031.ns2769 +++|* 00205 M01S00032.ns2769 +++|* CBTE ADDR 00206 M01S00033.ns2769 +++|* 00207 M01S00034.ns2769 +++|* ENTRY (ADDR) = ADDRESS OF INSTRUCTION. 00208 M01S00035.ns2769 +++|* 00209 M01S00036.ns2769 +++|* EXIT ADDRESS IS ADDED TO THE REMOTE BLOCK *TCBT*. 00210 M01S00037.ns2769 +++| 00211 M01S00038.ns2769 +++| 00212 M01S00039.ns2769 +++| CBT TBLM 00213 M00S00170.1hp +++| CCBA SPACE 4,15 00214 M00S00171.1hp +++|** CCBA - COMPUTE *CBT* ENTRY ADDRESS. 00215 M00S00172.1hp +++|*
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00216 M01S00040.ns2769 +++|* THIS MACRO SETS (A) TO THE REQUESTED *CBT* ENTRY ADDRESS. 00217 M01S00041.ns2769 +++|* 00218 M00S00173.1hp +++|* CCBA W,A 00219 M00S00174.1hp +++|* 00220 M00S00175.1hp +++|* W - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS. 00221 M00S00176.1hp +++|* A - IF NON-BLANK, BUFFER ORDINAL IS IN ACCUMULATOR. 00222 M00S00177.1hp +++|* 00223 M00S00178.1hp +++|* ENTRY (A) = BUFFER ORDINAL IF *A* PARAMETER IS NON-BLANK. 00224 M00S00179.1hp +++|* (CB) = CURRENT BUFFER ORDINAL. 00225 M00S00180.1hp +++|* 00226 M00S00181.1hp +++|* EXIT (A) = *CBT* ENTRY ADDRESS + WORD OFFSET. 00227 M00S00182.1hp +++| 00228 M00S00183.1hp +++| 00229 M00S00184.1hp +++| PURGMAC CCBA 00230 M00S00185.1hp +++| 00231 M00S00186.1hp +++| CCBA MACRO W,A
| Line S00187 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00232 M01S00187.ns2769 ---| LOCAL FWACB 00233 M00S00188.1hp +++| MACREF CCBA 00234 M00S00189.1hp +++| IFC EQ,$A$$,1 00235 M00S00190.1hp +++| LDD CB 00236 M00S00191.1hp +++| SHN CBTLS
| Line S00192 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00237 M01S00192.ns2769 ---| FWACB ADC W 00238 M01S00193.ns2769 ---| CBTA RMT
| Line S00194 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00239 M02S00194.ns2769 ---| CON FWACB+1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00240 M02S00001.ns2769 ---| CON FWACB
| Line S00195 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00241 M01S00195.ns2769 ---| CBTA RMT
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00242 M01S00042.ns2769 +++| CBTE * 00243 M01S00043.ns2769 +++| ADC W 00244 M00S00196.1hp +++| CCBA ENDM
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00245 M01S00044.ns2769 +++| PUTE SPACE 4,10 00246 M01S00045.ns2769 +++|** PUTE - PHYSICAL UNIT TABLE ENTRY. 00247 M01S00046.ns2769 +++|* 00248 M01S00047.ns2769 +++|* THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TPUT* 00249 M01S00048.ns2769 +++|* THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH 00250 M01S00049.ns2769 +++|* REQUIRES THE FWA OF THE PHYSICAL UNIT TABLE. 00251 M01S00050.ns2769 +++|* 00252 M01S00051.ns2769 +++|* PUTE ADDR 00253 M01S00052.ns2769 +++|* 00254 M01S00053.ns2769 +++|* ENTRY (ADDR) = ADDRESS OF INSTRUCTION. 00255 M01S00054.ns2769 +++|* 00256 M01S00055.ns2769 +++|* EXIT ADDRESS IS ADDED TO THE REMOTE BLOCK *TPUT*. 00257 M01S00056.ns2769 +++| 00258 M01S00057.ns2769 +++| 00259 M01S00058.ns2769 +++| PUT TBLM 00260 M00S00197.1hp +++| CPTA SPACE 4,10 00261 M00S00198.1hp +++|** CPTA - COMPUTE *PUT* ENTRY ADDRESS. 00262 M00S00199.1hp +++|*
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00263 M01S00059.ns2769 +++|* THIS MACRO SETS (A) TO THE REQUESTED *PUT* ENTRY ADDRESS. 00264 M01S00060.ns2769 +++|* 00265 M00S00200.1hp +++|* CPTA W,A 00266 M00S00201.1hp +++|* 00267 M00S00202.1hp +++|* W - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS. 00268 M00S00203.1hp +++|* A - IF NON-BLANK, *PUT* ORDINAL IS IN ACCUMULATOR. 00269 M00S00204.1hp +++|* 00270 M00S00205.1hp +++|* ENTRY (A) = *PUT* ORDINAL IF *A* PARAMETER IS NON-BLANK. 00271 M00S00206.1hp +++|* (PO) = *PUT* ORDINAL. 00272 M00S00207.1hp +++|* 00273 M00S00208.1hp +++|* EXIT (A) = *PUT* ENTRY ADDRESS + WORD OFFSET. 00274 M00S00209.1hp +++| 00275 M00S00210.1hp +++| 00276 M00S00211.1hp +++| PURGMAC CPTA 00277 M00S00212.1hp +++| 00278 M00S00213.1hp +++| CPTA MACRO W,A
| Line S00214 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00279 M01S00214.ns2769 ---| LOCAL FWAPUT 00280 M00S00215.1hp +++| MACREF CPTA 00281 M00S00216.1hp +++| IFC EQ,$A$$,1 00282 M00S00217.1hp +++| LDD PO 00283 M00S00218.1hp +++| SHN PUTLS
| Line S00219 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00284 M01S00219.ns2769 ---| FWAPUT ADC W 00285 M01S00220.ns2769 ---| PUTA RMT
| Line S00221 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00286 M02S00221.ns2769 ---| CON FWAPUT+1
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00287 M02S00002.ns2769 ---| CON FWAPUT
| Line S00222 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00288 M01S00222.ns2769 ---| RMT
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00289 M01S00061.ns2769 +++| PUTE * 00290 M01S00062.ns2769 +++| ADC W 00291 M00S00223.1hp +++| CPTA ENDM
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00292 M01S00063.ns2769 +++| EMBE SPACE 4,10 00293 M01S00064.ns2769 +++|** EMBE - ERROR MESSAGE TABLE ENTRY. 00294 M01S00065.ns2769 +++|* 00295 M01S00066.ns2769 +++|* THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TEMB* 00296 M01S00067.ns2769 +++|* THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH 00297 M01S00068.ns2769 +++|* REQUIRES THE FWA OF THE ERROR MESSAGE TABLE. 00298 M01S00069.ns2769 +++|* 00299 M01S00070.ns2769 +++|* EMBE ADDR 00300 M01S00071.ns2769 +++|* 00301 M01S00072.ns2769 +++|* ENTRY (ADDR) = ADDRESS OF INSTRUCTION. 00302 M01S00073.ns2769 +++|* 00303 M01S00074.ns2769 +++|* EXIT ADDRESS IS ADDED TO THE REMOTE BLOCK *TEMB*. 00304 M01S00075.ns2769 +++| 00305 M01S00076.ns2769 +++| 00306 M01S00077.ns2769 +++| EMB TBLM 00307 M00S00224.1hp +++| MONITOR SPACE 4,15 00308 M00S00225.1hp +++|** MONITOR - ISSUE MONITOR FUNCTION. 00309 M00S00226.1hp +++|* 00310 M00S00227.1hp +++|* THIS MACRO PROVIDES FUNCTIONALITY IDENTICAL TO THAT OF THE 00311 M00S00228.1hp +++|* *MONITOR* MACRO DEFINED IN *COMPMAC*, WHILE ENSURING ANY 00312 M00S00229.1hp +++|* PENDING *BIOM* MONITOR FUNCTION IS COMPLETED BEFORE THE NEXT 00313 M00S00230.1hp +++|* MONITOR FUNCTION IS ISSUED. 00314 M00S00231.1hp +++|* 00315 M00S00232.1hp +++|* MONITOR F 00316 M00S00233.1hp +++|* 00317 M00S00234.1hp +++|* F - MONITOR FUNCTION CODE. 00318 M00S00235.1hp +++|* 00319 M00S00236.1hp +++|* EXIT (A) = 0. 00320 M00S00237.1hp +++|* (CM - CM+4) = COMPLETED PP OUTPUT REGISTER IMAGE. 00321 M00S00238.1hp +++|* 00322 M00S00239.1hp +++|* CALLS IMF. 00323 M00S00240.1hp +++| 00324 M00S00241.1hp +++| 00325 M00S00242.1hp +++| PURGMAC MONITOR 00326 M00S00243.1hp +++| 00327 M00S00244.1hp +++| MONITOR MACRO F 00328 M00S00245.1hp +++| MACREF MONITOR 00329 M00S00246.1hp +++| LDK F 00330 M00S00247.1hp +++| RJM IMF 00331 M00S00248.1hp +++| MONITOR ENDM 00332 M00S00249.1hp +++| 1HP SPACE 4 00333 M00S00250.1hp +++| TITLE MAIN PROGRAM. 00334 M00S00251.1hp +++| FHP SPACE 4,10 00335 M00S00252.1hp +++|** FHP - 885-42 DRIVER. 00336 M00S00253.1hp +++| 00337 M00S00254.1hp +++| 00338 M00S00255.1hp +++| ORG PPFW 00339 M00S00256.1hp +++| FHP RJM PRS PRESET 00340 M00S00257.1hp +++| MST SPACE 4,10 00341 M00S00258.1hp +++|** MST - MAIN PROGRAM. 00342 M00S00259.1hp +++| 00343 M00S00260.1hp +++| 00344 M00S00261.1hp +++| MST RJM CCR CHECK FOR CHANNEL REQUESTED/DOWN 00345 M00S00262.1hp +++| MJN MST1 IF CHANNEL GLOBALLY DOWN 00346 M00S00263.1hp +++| RJM SUQ SCAN UNIT QUEUE 00347 M00S00264.1hp +++| ZJN MST IF NO ELIGIBLE ENTRY FOUND 00348 M00S00265.1hp +++| RJM ISF ISSUE SEEK FUNCTION 00349 M00S00266.1hp +++| NJN MST IF UNIT NOT ON CYLINDER 00350 M00S00267.1hp +++| RJM PDT PERFORM DATA TRANSFER 00351 M00S00268.1hp +++| UJN MST LOOP 00352 M00S00269.1hp +++| 00353 M00S00270.1hp +++| MST1 RJM DCH RELEASE CHANNEL 00354 M00S00271.1hp +++| MONITOR DPPM DROP PP 00355 M00S00272.1hp +++| LJM PPR ENTER IDLE LOOP 00356 M00S00273.1hp +++| TPOR SPACE 4,10 00357 M00S00274.1hp +++|** TPOR - TABLE OF *PUT* ORDINALS. 00358 M00S00275.1hp +++|* 00359 M00S00276.1hp +++|* THIS TABLE CONTAINS THE ORDINALS OF THE *PUT* ENTRIES FOR ALL 00360 M00S00277.1hp +++|* UNITS ACCESSED BY THIS DRIVER-S CHANNEL. 00361 M00S00278.1hp +++|* 00362 M00S00279.1hp +++|* ENTRY = 1 WORD. 00363 M00S00280.1hp +++|*
| Line S00281 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00364 M01S00281.252l678 ---|*T 12/ *PUT* ORDINAL
Figure
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00365 M01S00002.252l678 +++|*T 5/ 0, 1/ I, 6/ *PUT* ORDINAL
Figure
00366 M01S00003.252l678 +++|* I EST CHANNEL BYTE INDEX. 00367 M00S00282.1hp +++|* 00368 M00S00283.1hp +++|* TABLE IS TERMINATED BY A ZERO BYTE. 00369 M00S00284.1hp +++| 00370 M00S00285.1hp +++| 00371 M00S00286.1hp +++| TPOR BSSZ TPORE*MAXU 00372 M00S00287.1hp +++| CON 0 TERMINATE *TPOR* TABLE 00373 M00S00288.1hp +++| TITLE SUBROUTINES. 00374 M00S00289.1hp +++| CCP SPACE 4,10 00375 M00S00290.1hp +++|** CCP - CHECK FOR CHANNEL PARITY ERROR. 00376 M00S00291.1hp +++|* 00377 M00S00292.1hp +++|* EXIT (A) .EQ. 0 IF NO CHANNEL PARITY ERROR. 00378 M00S00293.1hp +++|* .LT. 0 = COMPLEMENT OF *CHPE* ERROR CODE IF 00379 M00S00294.1hp +++|* CHANNEL PARITY ERROR. 00380 M00S00295.1hp +++| 00381 M00S00296.1hp +++| 00382 M00S00297.1hp +++| CCP1 LDN 0 00383 M00S00298.1hp +++| 00384 M00S00299.1hp +++| CCP SUBR ENTRY/EXIT 00385 M00S00300.1hp +++| LDC FCTC+30 TEST AND CLEAR SCR BIT 00386 M00S00301.1hp +++| CCPA EQU *-1 (BIT NUMBER)
| Line S00302 Modification History | |
|---|---|
M01 (Removed by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 00387 M01S00302.1hp10 ---| FJM CCP1,CH IF MAINTENANCE CHANNEL IN USE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 00388 M01S00001.1hp10 +++| FJM CCP1,CHSC IF MAINTENANCE CHANNEL IN USE 00389 M01S00002.1hp10 +++| CCPB EQU *-2 00390 M00S00303.1hp +++| OAN CHSC ISSUE REQUEST
| Line S00304 Modification History | |
|---|---|
M01 (Removed by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 00391 M01S00304.1hp10 ---| CCPB EQU *-1
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 00392 M01S00003.1hp10 +++| CCPC EQU *-1 00393 M00S00305.1hp +++| IAN CHSC INPUT RESULT
| Line S00306 Modification History | |
|---|---|
M01 (Removed by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 00394 M01S00306.1hp10 ---| CCPC EQU *-1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1hp10 |
Seq # *Modification Id* Act ----------------------------+ 00395 M01S00004.1hp10 +++| CCPD EQU *-1 00396 M00S00307.1hp +++| ZJN CCPX IF NO CHANNEL PARITY ERROR 00397 M00S00308.1hp +++| LCN CHPE 00398 M00S00309.1hp +++| UJN CCPX RETURN 00399 M00S00310.1hp +++| 1HP SPACE 4 00400 M00S00311.1hp +++| RICHI REDEFINE CHANNEL INSTRUCTIONS 00401 M00S00312.1hp +++| CCR SPACE 4,20 00402 M00S00313.1hp +++|** CCR - CHECK FOR CHANNEL REQUESTED OR DOWN. 00403 M00S00314.1hp +++|* 00404 M00S00315.1hp +++|* THIS ROUTINE CHECKS TO SEE IF THE CHANNEL TO WHICH THIS PP IS 00405 M00S00316.1hp +++|* DEDICATED IS BEING REQUESTED BY ANOTHER PP OR IS GLOBALLY 00406 M00S00317.1hp +++|* DOWN. IF THE CHANNEL IS REQUESTED BY ANOTHER PP, IT WILL BE 00407 M00S00318.1hp +++|* RELEASED AND WILL BE REQUESTED AGAIN FOLLOWING A ONE SECOND 00408 M00S00319.1hp +++|* DELAY. IF THE CHANNEL IS GLOBALLY DOWN, THE DRIVER DROP FLAG 00409 M00S00320.1hp +++|* WILL BE SET IN THE CONTROLWARE TABLE AND THE CHANNEL WILL BE 00410 M00S00321.1hp +++|* RELEASED. 00411 M00S00322.1hp +++|* 00412 M00S00323.1hp +++|* EXIT (A) .LT. 0 IF CHANNEL IS GLOBALLY DOWN. 00413 M00S00324.1hp +++|* 00414 M00S00325.1hp +++|* USES CM - CM+4. 00415 M00S00326.1hp +++|* 00416 M00S00327.1hp +++|* CALLS DCH, RCH, SCD. 00417 M00S00328.1hp +++|* 00418 M00S00329.1hp +++|* MACROS DELAY. 00419 M00S00330.1hp +++| 00420 M00S00331.1hp +++| 00421 M00S00332.1hp +++| CCR2 RJM SCD SET DRIVER DROP FLAG 00422 M00S00333.1hp +++| LCN 0 SET DROPOUT REPLY 00423 M00S00334.1hp +++| 00424 M00S00335.1hp +++| CCR SUBR ENTRY/EXIT 00425 M00S00336.1hp +++| LDC ** READ CHANNEL TABLE 00426 M00S00337.1hp +++| CCRA EQU *-1 (CM ADDRESS OF ENTRY) 00427 M00S00338.1hp +++| CRD CM 00428 M00S00339.1hp +++| LDD CM+** CHECK REQUESTED FLAG 00429 M00S00340.1hp +++| CCRB EQU *-1 (BYTE ADDRESS OF ENTRY) 00430 M00S00341.1hp +++| SHN 21-5 00431 M00S00342.1hp +++| MJN CCR2 IF CHANNEL IS GLOBALLY DOWN 00432 M00S00343.1hp +++| SHN 22+5-13 00433 M00S00344.1hp +++| PJN CCRX IF CHANNEL NOT REQUESTED 00434 M00S00345.1hp +++| RJM DCH RELEASE CHANNEL
| Line S00346 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00435 M01S00346.252l678 ---| 00436 M01S00347.252l678 ---|* THE FOLLOWING DELAY MUST BE LONG ENOUGH TO ENSURE THAT ON A 00437 M01S00348.252l678 ---|* DOWN CHANNEL REQUEST (*1DS* HAS REQUESTED THE CHANNEL) ENOUGH 00438 M01S00349.252l678 ---|* TIME HAS ELAPSED TO ALLOW *MTR* TO LOOP THROUGH THE PP 00439 M01S00350.252l678 ---|* FUNCTION REQUESTS AND COMPLETE THE *1DS* DOWN CHANNEL 00440 M01S00351.252l678 ---|* REQUEST. OTHERWISE, A DEADLOCK BETWEEN *1HP* AND *1DS* WILL 00441 M01S00352.252l678 ---|* OCCUR IN WHICH *1DS* CANNOT COMPLETE BECAUSE THE GLOBAL DOWN 00442 M01S00353.252l678 ---|* BIT CANNOT BE SET WHILE A PP HAS AN OUTSTANDING REQUEST FOR 00443 M01S00354.252l678 ---|* THE CHANNEL AND *1HP* WILL NEVER GET THE CHANNEL. 00444 M01S00355.252l678 ---| 00445 M01S00356.252l678 ---| CCR1 DELAY 8D*1000D DELAY FOR ONE SECOND
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 00446 M01S00004.252l678 +++| CCR1 DELAY 00447 M00S00357.1hp +++| RJM RCH REQUEST CHANNEL 00448 M00S00358.1hp +++| ZJN CCR1 IF CHANNEL NOT ASSIGNED 00449 M00S00359.1hp +++| UJN CCRX RETURN 00450 M00S00360.1hp +++| CCS SPACE 4,15 00451 M00S00361.1hp +++|** CCS - CHECK CONSECUTIVE SECTORS. 00452 M00S00362.1hp +++|* 00453 M00S00363.1hp +++|* THIS ROUTINE CHECKS THE NEXT BUFFER IN THE I/O QUEUE TO 00454 M00S00364.1hp +++|* DETERMINE IF IT IS CONSECUTIVE WITH THE REQUEST CURRENTLY 00455 M00S00365.1hp +++|* BEING PROCESSED. 00456 M00S00366.1hp +++|* 00457 M00S00367.1hp +++|* ENTRY (CB) = CURRENT BUFFER ORDINAL. 00458 M00S00368.1hp +++|* (NB) = NEXT BUFFER ORDINAL IF CONSECUTIVE REQUEST 00459 M00S00369.1hp +++|* ALREADY FOUND. 00460 M00S00370.1hp +++|* (TB) = TOTAL BUFFER COUNT. 00461 M00S00371.1hp +++|* 00462 M00S00372.1hp +++|* EXIT (NB) = NEXT BUFFER ORDINAL. 00463 M00S00373.1hp +++|* = 0 IF CONSECUTIVE TRANSFER NOT POSSIBLE. 00464 M00S00374.1hp +++|* (TB) = TOTAL BUFFER COUNT. 00465 M00S00375.1hp +++|* 00466 M00S00376.1hp +++|* USES NB, TB, CM - CM+4, CN - CN+4, T0 - T4. 00467 M00S00377.1hp +++|* 00468 M00S00378.1hp +++|* MACROS CCBA. 00469 M00S00379.1hp +++| 00470 M00S00380.1hp +++| 00471 M00S00381.1hp +++| CCS3 LDN 0 INDICATE NO CONSECUTIVE REQUEST 00472 M00S00382.1hp +++| STD NB 00473 M00S00383.1hp +++| 00474 M00S00384.1hp +++| CCS SUBR ENTRY/EXIT 00475 M00S00385.1hp +++| LDD NB 00476 M00S00386.1hp +++| NJN CCSX IF NEXT REQUEST ALREADY FOUND 00477 M00S00387.1hp +++| CCBA PAD4 READ CURRENT *CBT* ENTRY 00478 M00S00388.1hp +++| CRD CM 00479 M00S00389.1hp +++| ADK IOLK-PAD4 00480 M00S00390.1hp +++| CRD CN 00481 M00S00391.1hp +++| LDD CN+2 NEXT BUFFER ORDINAL 00482 M00S00392.1hp +++| ZJN CCSX IF NO BUFFER 00483 M00S00393.1hp +++| STD NB STORE BUFFER ORDINAL OF NEXT REQUEST 00484 M00S00394.1hp +++| CCBA PAD1,A GET DISK ADDRESS FOR THIS BUFFER 00485 M00S00395.1hp +++| CRD CN 00486 M00S00396.1hp +++| ADK IOLK-PAD1 GET WRITE FLAG 00487 M00S00397.1hp +++| CRD T0 00488 M00S00398.1hp +++| LDD T0 00489 M00S00399.1hp +++| SHN 0-11 00490 M00S00400.1hp +++| LPN 1 00491 M00S00401.1hp +++| LMD RW 00492 M00S00402.1hp +++| NJN CCS3 IF TRANSFER NOT IN SAME DIRECTION 00493 M00S00403.1hp +++| LDD CM+1 00494 M00S00404.1hp +++| LMD CN+1 00495 M00S00405.1hp +++| CCS1 NJN CCS3 IF NO CYLINDER MATCH 00496 M00S00406.1hp +++| LDD CM+2 00497 M00S00407.1hp +++| ADN 2 00498 M00S00408.1hp +++| LMD CN+2 00499 M00S00409.1hp +++| ZJN CCS2 IF CONSECTUTIVE SECTOR ON SAME TRACK 00500 M00S00410.1hp +++| LDD CM+2 00501 M00S00411.1hp +++| ADD HN 00502 M00S00412.1hp +++| SCN 77 00503 M00S00413.1hp +++| LMD CN+2 00504 M00S00414.1hp +++| NJN CCS1 IF NOT FIRST SECTOR ON CONSECUTIVE TRACK 00505 M00S00415.1hp +++| LDD CM+2 00506 M00S00416.1hp +++| LPN 77 00507 M00S00417.1hp +++| SBN PSPT-2 00508 M00S00418.1hp +++| NJN CCS1 IF NOT CONSECUTIVE REQUEST 00509 M00S00419.1hp +++| CCS2 AOD TB INCREMENT TOTAL BUFFER COUNT 00510 M00S00420.1hp +++| LJM CCSX RETURN 00511 M00S00421.1hp +++| CDS SPACE 4,25 00512 M00S00422.1hp +++|** CDS - CRACK DETAILED STATUS. 00513 M00S00423.1hp +++|* 00514 M00S00424.1hp +++|* THIS ROUTINE DETERMINES WHAT ERROR CODE TO SET BY EXAMINING 00515 M00S00425.1hp +++|* DETAILED STATUS. IT WILL ALSO ATTEMPT TO RECOVER BY ISSUING 00516 M00S00426.1hp +++|* A *CONTINUE* FUNCTION IF GENERAL STATUS INDICATES THE ERROR 00517 M00S00427.1hp +++|* IS RECOVERABLE BY THE CONTROLLER. 00518 M00S00428.1hp +++|* 00519 M00S00429.1hp +++|* ENTRY (EC) = ERROR CODE. 00520 M00S00430.1hp +++|* (GS) = GENERAL STATUS. 00521 M00S00431.1hp +++|* (RW) = READ/WRITE FLAG. 00522 M00S00432.1hp +++|* (T7) = SECTOR COUNT. 00523 M00S00433.1hp +++|* 00524 M00S00434.1hp +++|* EXIT (A) .EQ. 0 IF ERROR WAS RECOVERED BY CONTROLLER. 00525 M00S00435.1hp +++|* .LT. 0 IF A FUNCTION TIMEOUT, CHANNEL PARITY 00526 M00S00436.1hp +++|* ERROR, OR DATA TRANSFER ERROR OCCURRED 00527 M00S00437.1hp +++|* WHILE TRYING TO OBTAIN STATUS. 00528 M00S00438.1hp +++|* .GT. 0 OTHERWISE. 00529 M00S00439.1hp +++|* (EC) = ERROR CODE. 00530 M00S00440.1hp +++|* 00531 M00S00441.1hp +++|* USES CB, EC, PB, RS. 00532 M00S00442.1hp +++|* 00533 M00S00443.1hp +++|* CALLS GDS, GGS, PCH. 00534 M00S00444.1hp +++| 00535 M00S00445.1hp +++| 00536 M00S00446.1hp +++| CDS SUBR ENTRY/EXIT 00537 M00S00447.1hp +++| CDS1 RJM GDS GET DETAILED STATUS 00538 M00S00448.1hp +++| MJN CDSX IF ERROR
| Line S00449 Modification History | |
|---|---|
M01 (Removed by) | ns2509 |
Seq # *Modification Id* Act ----------------------------+ 00539 M01S00449.ns2509 ---| LDM DST+21 00540 M01S00450.ns2509 ---| LPN 20 00541 M01S00451.ns2509 ---| NJN CDS2 IF INVALID STATUS 00542 M00S00452.1hp +++| LDD GS 00543 M00S00453.1hp +++| SHN 21-13
| Line S00454 Modification History | |
|---|---|
M01 (Removed by) | ns2509 |
Seq # *Modification Id* Act ----------------------------+ 00544 M01S00454.ns2509 ---| CDS2 PJP CDS6 IF NOT ABNORMAL TERMINATION
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2509 |
Seq # *Modification Id* Act ----------------------------+ 00545 M01S00001.ns2509 +++| PJP CDS6 IF NOT ABNORMAL TERMINATION 00546 M00S00455.1hp +++| SHN 13-10 00547 M00S00456.1hp +++| PJN CDS3 IF ERROR NOT RECOVERABLE BY CONTROLLER 00548 M00S00457.1hp +++| 00549 M00S00458.1hp +++|* ATTEMPT CONTROLLER RECOVERY. 00550 M00S00459.1hp +++| 00551 M00S00460.1hp +++| LDK FCCO ISSUE *CONTINUE* FUNCTION 00552 M00S00461.1hp +++| RJM PCH 00553 M00S00462.1hp +++| MJN CDSX IF TIMEOUT/DATA TRANSFER ERROR 00554 M00S00463.1hp +++| RJM GGS GET GENERAL STATUS 00555 M00S00464.1hp +++| MJN CDSX IF STATUS NOT OBTAINED 00556 M00S00465.1hp +++| NJN CDS1 IF NOT YET RECOVERED 00557 M00S00466.1hp +++| LCN 1 INDICATE CONTROLLER RECOVERY 00558 M00S00467.1hp +++| STD RS 00559 M00S00468.1hp +++| LDN 0 00560 M00S00469.1hp +++| UJN CDSX RETURN 00561 M00S00470.1hp +++| 00562 M00S00471.1hp +++|* CHECK FOR *NOT READY* CONDITION. 00563 M00S00472.1hp +++| 00564 M00S00473.1hp +++| CDS3 SHN 10-4 00565 M00S00474.1hp +++| PJN CDS4 IF NOT *NOT READY* 00566 M00S00475.1hp +++| LDM DST+7 00567 M00S00476.1hp +++| LPN 1 00568 M00S00477.1hp +++| NJN CDS4 IF NOT *NOT READY* 00569 M00S00478.1hp +++| LDM DST+10 00570 M00S00479.1hp +++| SHN 0-7 00571 M00S00480.1hp +++| LPN 1 00572 M00S00481.1hp +++| ZJP CDS8 IF DRIVE *NOT READY* 00573 M00S00482.1hp +++| 00574 M00S00483.1hp +++|* DURING SPINUP, THE STATUS OF THE DRIVE CHANGES SO AS TO 00575 M00S00484.1hp +++|* APPEAR NOT TO BE A *NOT READY* CONDITION. TO AVOID 00576 M00S00485.1hp +++|* MISHANDLING THIS SITUATION THE ERROR PROCESSOR CHECKS FOR 00577 M00S00486.1hp +++|* PRIOR DETECTION OF *NOT READY* AND ASSUMES NO CHANGE IN 00578 M00S00487.1hp +++|* THE SITUATION UNTIL GENERAL STATUS BECOMES ZERO. 00579 M00S00488.1hp +++| 00580 M00S00489.1hp +++| CDS4 LDD EC 00581 M00S00490.1hp +++| LMK NRDE 00582 M00S00491.1hp +++| ZJP CDS8 IF *NOT READY* ALREADY DETECTED 00583 M00S00492.1hp +++| 00584 M00S00493.1hp +++|* CHECK FOR *BUFFER TO DISK* ERROR. 00585 M00S00494.1hp +++| 00586 M00S00495.1hp +++| LDD RW 00587 M00S00496.1hp +++| ZJN CDS5 IF READ OPERATION 00588 M00S00497.1hp +++| LDM DST+14 00589 M00S00498.1hp +++| SHN 21-13 00590 M00S00499.1hp +++| PJN CDS5 IF NOT ERROR ON PREVIOUS SECTOR 00591 M00S00500.1hp +++| LDD T7 00592 M00S00501.1hp +++| LMK PPSLB-1 00593 M00S00502.1hp +++| NJN CDS5 IF NOT AT BUFFER BOUNDARY 00594 M00S00503.1hp +++| LDD PB BACKUP TO PREVIOUS BUFFER 00595 M00S00504.1hp +++| STD CB 00596 M00S00505.1hp +++| LDN 0 00597 M00S00506.1hp +++| STD PB 00598 M00S00507.1hp +++| UJN CDS6 SET ERROR CODE 00599 M00S00508.1hp +++| 00600 M00S00509.1hp +++|* CHECK FOR MEDIA ERROR. 00601 M00S00510.1hp +++| 00602 M00S00511.1hp +++| CDS5 LDM DST+17 00603 M00S00512.1hp +++| LPN 40 00604 M00S00513.1hp +++| NJN CDS6 IF PROCESSOR INSTRUCTION TIMEOUT 00605 M00S00514.1hp +++| LDM DST 00606 M00S00515.1hp +++| LPN 17 00607 M00S00516.1hp +++| LMN 10 00608 M00S00517.1hp +++| ZJN CDS7 IF MEDIA ERROR 00609 M00S00518.1hp +++| LDM DST+1 00610 M00S00519.1hp +++| SHN 21-13 00611 M00S00520.1hp +++| MJN CDS7 IF MEDIA ERROR 00612 M00S00521.1hp +++| SHN 13-11 00613 M00S00522.1hp +++| MJN CDS7 IF MEDIA ERROR 00614 M00S00523.1hp +++| LDM DST+20 00615 M00S00524.1hp +++| SHN 21-10 00616 M00S00525.1hp +++| MJN CDS7 IF MEDIA ERROR 00617 M00S00526.1hp +++| LDM DST+17 00618 M00S00527.1hp +++| SHN 21-6 00619 M00S00528.1hp +++| MJN CDS9 IF CHANNEL PARITY ERROR ON OUTPUT 00620 M00S00529.1hp +++| CDS6 LDN DSTE 00621 M00S00530.1hp +++| UJN CDS10 SET ERROR CODE 00622 M00S00531.1hp +++| 00623 M00S00532.1hp +++| CDS7 LDK PARE&NRDE 00624 M00S00533.1hp +++| CDS8 LMK NRDE 00625 M00S00534.1hp +++| UJN CDS10 SET ERROR CODE 00626 M00S00535.1hp +++| 00627 M00S00536.1hp +++| CDS9 LDN CHPE SET ERROR CODE 00628 M00S00537.1hp +++| CDS10 STD EC 00629 M00S00538.1hp +++| LJM CDSX RETURN
| Line S00539 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00630 M01S00539.ns2769 ---| CMD SPACE 4,10 00631 M01S00540.ns2769 ---|** CMD - CALL *1MD*. 00632 M01S00541.ns2769 ---|* 00633 M01S00542.ns2769 ---|* ENTRY (CN - CN+4) = *EMB* HEADER WORD. 00634 M01S00543.ns2769 ---|* 00635 M01S00544.ns2769 ---|* EXIT (A) .EQ. 0 IF UNABLE TO CALL *1MD*. 00636 M01S00545.ns2769 ---|* .NE. 0 IF *1MD* HAS BEEN CALLED. 00637 M01S00546.ns2769 ---|* *1MD* CALLED FLAG IS SET IN CELL *SR+4* IF *1MD* WAS 00638 M01S00547.ns2769 ---|* CALLED. 00639 M01S00548.ns2769 ---|* 00640 M01S00549.ns2769 ---|* USES SR+4, S2, CM - CM+4. 00641 M01S00550.ns2769 ---|* 00642 M01S00551.ns2769 ---|* CALLS 1MD. 00643 M01S00552.ns2769 ---|* 00644 M01S00553.ns2769 ---|* MACROS DELAY, EXECUTE, MONITOR. 00645 M01S00554.ns2769 ---| 00646 M01S00555.ns2769 ---| 00647 M01S00556.ns2769 ---| CMD2 LDN 2 SET *1MD* CALLED FLAG 00648 M01S00557.ns2769 ---| RAD SR+4 00649 M01S00558.ns2769 ---| 00650 M01S00559.ns2769 ---| CMD SUBR ENTRY/EXIT 00651 M01S00560.ns2769 ---| LDD SR+4 00652 M01S00561.ns2769 ---| LPN 2 00653 M01S00562.ns2769 ---| NJN CMDX IF *1MD* ALREADY CALLED 00654 M01S00563.ns2769 ---| STD S2 CLEAR *RPPM* RETRY COUNT 00655 M01S00564.ns2769 ---| LDD MA 00656 M01S00565.ns2769 ---| CWM CMDA,ON 00657 M01S00566.ns2769 ---| CMD1 LDK ZERL 00658 M01S00567.ns2769 ---| CRD CM 00659 M01S00568.ns2769 ---| EXECUTE 1MD,= 00660 M01S00569.ns2769 ---| MONITOR RPPM 00661 M01S00570.ns2769 ---| LDD CM+1 00662 M01S00571.ns2769 ---| NJN CMD2 IF PP ASSIGNED 00663 M01S00572.ns2769 ---| AOD S2 INCREMENT *RPPM* RETRY COUNT 00664 M01S00573.ns2769 ---| LMN MFRL 00665 M01S00574.ns2769 ---| ZJN CMDX IF RETRY LIMIT 00666 M01S00575.ns2769 ---| DELAY 10D*8D DELAY FOR 10 MILLISECONDS 00667 M01S00576.ns2769 ---| UJN CMD1 RETRY *RPPM* 00668 M01S00577.ns2769 ---| 00669 M01S00578.ns2769 ---| CMDA VFD 18/3L1MD,42/1 00670 M00S00579.1hp +++| CRL SPACE 4,10 00671 M00S00580.1hp +++|** CRL - CHECK FOR ERROR RETRY LIMIT REACHED. 00672 M00S00581.1hp +++|* 00673 M00S00582.1hp +++|* ENTRY (EC) = ERROR CODE. 00674 M00S00583.1hp +++|* (ER) = *RECOVERY IN PROGRESS* FLAG. 00675 M00S00584.1hp +++|* (RC) = RETRY COUNT.
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00676 M01S00078.ns2769 +++|* (T5) = EST ORDINAL. 00677 M00S00585.1hp +++|* 00678 M00S00586.1hp +++|* EXIT (A) .GE. 0 IF RETRY LIMIT REACHED. 00679 M00S00587.1hp +++|* .LT. 0 IF NOT AT RETRY LIMIT.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2732a |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00680 M02S00001.ns2732b ---|* (RC) INCREMENTED IF NOT AT LIMIT.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00681 M01S00001.ns2732b +++|* (RC) INCREMENTED.
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00682 M01S00079.ns2769 +++|* MESSAGE ISSUED TO *MS2W* OF SYSTEM CONTROL POINT FOR 00683 M01S00080.ns2769 +++|* B-DISPLAY PRESENTATION IF HALF WAY TO RETRY LIMIT.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 00684 M01S00002.ns2732a +++|* 00685 M01S00003.ns2732a +++|* USES RC.
| Line S00588 Modification History | |
|---|---|
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 00686 M01S00588.ns2732 ---|* (RC) = (RC) + 1. 00687 M01S00589.ns2732 ---|* 00688 M01S00590.ns2732 ---|* USES RC. 00689 M00S00591.1hp +++| 00690 M00S00592.1hp +++| 00691 M00S00593.1hp +++| CRL SUBR ENTRY/EXIT 00692 M00S00594.1hp +++| LDD ER 00693 M00S00595.1hp +++| LMC SHNI+1 00694 M00S00596.1hp +++| STM CRLA
| Line S00597 Modification History | |
|---|---|
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 00695 M01S00597.ns2732 ---| AOD RC INCREMENT RETRY COUNT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00696 M02S00001.ns2732b ---| LDD RC RETRY COUNT
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00697 M01S00002.ns2732b +++| AOD RC INCREMENT RETRY COUNT
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00698 M01S00081.ns2769 +++| LDM TREC,EC 00699 M01S00082.ns2769 +++| SHN -1 00700 M01S00083.ns2769 +++| SBD RC 00701 M01S00084.ns2769 +++| PJN CRL1 IF TOO EARLY TO NOTIFY OPERATOR 00702 M01S00085.ns2769 +++| LDD T5 STORE EST ORDINAL IN MESSAGE 00703 M01S00086.ns2769 +++| SHN -3 00704 M01S00087.ns2769 +++| RJM C2D 00705 M01S00088.ns2769 +++| STM CRLB+1 00706 M01S00089.ns2769 +++| LDD T5 00707 M01S00090.ns2769 +++| LPN 7 00708 M01S00091.ns2769 +++| SHN 6 00709 M01S00092.ns2769 +++| ADC 2R0 00710 M01S00093.ns2769 +++| STM CRLB+2 00711 M01S00094.ns2769 +++| LDM TMNE,EC STORE ERROR MNEMONIC IN MESSAGE 00712 M01S00095.ns2769 +++| STM CRLB+3 00713 M01S00096.ns2769 +++| LDD CP 00714 M01S00097.ns2769 +++| ADK MS2W 00715 M01S00098.ns2769 +++| CWM CRLB,TR 00716 M01S00099.ns2769 +++| CRL1 LDD RC 00717 M00S00598.1hp +++| 00718 M00S00599.1hp +++|* IF *RECOVERY IN PROGRESS* IS NOT SET, THE RETRY COUNT IS 00719 M00S00600.1hp +++|* SHIFTED SO THAT THE LIMIT CHECK IS MADE AGAINST N/2 (WHERE N 00720 M00S00601.1hp +++|* IS THE RETRY LIMIT FOR THE ERROR TYPE IN CELL *EC*). THIS 00721 M00S00602.1hp +++|* CAUSES HALF OF THE RETRY ATTEMPTS TO BE PERFORMED ON EACH 00722 M00S00603.1hp +++|* CHANNEL, IF AN ALTERNATE ACCESS IS AVAILABLE. IF NO 00723 M00S00604.1hp +++|* ALTERNATE ACCESS IS AVAILABLE, ALL RETRIES WILL BE PERFORMED 00724 M00S00605.1hp +++|* ON THIS CHANNEL. 00725 M00S00606.1hp +++| 00726 M00S00607.1hp +++| SHN 0 00727 M00S00608.1hp +++|* SHN 1 (RECOVERY NOT IN PROGRESS) 00728 M00S00609.1hp +++| CRLA EQU *-1 00729 M00S00610.1hp +++| SBM TREC,EC
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2732a |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00730 M02S00004.ns2732b ---| PJN CRLX IF RETRY LIMIT REACHED 00731 M02S00005.ns2732b ---| AOD RC INCREMENT RETRY COUNT
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00732 M01S00003.ns2732b +++| SBN 1
| Line S00611 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00733 M01S00611.ns2769 ---| UJN CRLX RETURN
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00734 M01S00100.ns2769 +++| UJP CRLX RETURN 00735 M01S00101.ns2769 +++| 00736 M01S00102.ns2769 +++| 00737 M01S00103.ns2769 +++| CRLB DATA C*EQ000 XX ERROR RETRY UNDERWAY.* 00738 M00S00612.1hp +++| CRQ SPACE 4,20 00739 M00S00613.1hp +++|** CRQ - CHECK REQUEST QUEUE. 00740 M00S00614.1hp +++|* 00741 M00S00615.1hp +++|* THIS ROUTINE ATTEMPTS TO CALL *CPUMTR* TO COMPLETE REQUESTS 00742 M00S00616.1hp +++|* IN THE UNIT QUEUE THAT HAVE ALREADY BEEN PROCESSED. 00743 M00S00617.1hp +++|* 00744 M00S00618.1hp +++|* ENTRY (CC) = COMPLETION REQUEST COUNT. 00745 M00S00619.1hp +++|* (PO) = *PUT* ORDINAL. 00746 M00S00620.1hp +++|* 00747 M00S00621.1hp +++|* EXIT (A) .EQ. 0 IF NO REQUESTS PRESENT. 00748 M00S00622.1hp +++|* .NE. 0 IF *CPUMTR* IS STILL BUSY WITH PREVIOUS 00749 M00S00623.1hp +++|* FUNCTION OR AN EXCHANGE WAS JUST ISSUED 00750 M00S00624.1hp +++|* FOR THE CURRENT FUNCTION. 00751 M00S00625.1hp +++|* 00752 M00S00626.1hp +++|* USES CC, CN - CN+4, T0 - T4. 00753 M00S00627.1hp +++| 00754 M00S00628.1hp +++| 00755 M00S00629.1hp +++| CRQ SUBR ENTRY/EXIT 00756 M00S00630.1hp +++| LDC ** READ XP 00757 M00S00631.1hp +++| CRQA EQU *-1 FWA OF XP 00758 M00S00632.1hp +++| CRD T0 00759 M00S00633.1hp +++| LDD OA READ OUTPUT REGISTER 00760 M00S00634.1hp +++| CRD CN 00761 M00S00635.1hp +++| LDD T0+4 (B0) 00762 M00S00636.1hp +++| NJN CRQ1 IF MISSED EXCHANGE 00763 M00S00637.1hp +++| STD CN+3 00764 M00S00638.1hp +++| LDD CN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2454 |
Seq # *Modification Id* Act ----------------------------+ 00765 M01S00001.ns2454 +++| SHN 21-13 00766 M01S00002.ns2454 +++| MJN CRQ1 IF REISSUE REQUIRED 00767 M00S00639.1hp +++| NJN CRQX IF FUNCTION NOW BEING PROCESSED 00768 M00S00640.1hp +++| LDD CC 00769 M00S00641.1hp +++| ZJN CRQX IF NO PENDING COMPLETION REQUESTS 00770 M00S00642.1hp +++| LDC ** 00771 M00S00643.1hp +++| CRQE EQU *-1 00772 M00S00644.1hp +++| CRD T0 00773 M00S00645.1hp +++| LDD T0 00774 M00S00646.1hp +++| ADD T0+1 00775 M00S00647.1hp +++| NJN CRQX IF FUNCTION IN PROGRESS 00776 M00S00648.1hp +++| LDN DCBS SET *BIOM* SUBFUNCTION 00777 M00S00649.1hp +++| STD CN+1 00778 M00S00650.1hp +++| LDD PO 00779 M00S00651.1hp +++| STD CN+2 00780 M00S00652.1hp +++| CRQ1 LDD CC 00781 M00S00653.1hp +++| RAD CN+3 00782 M00S00654.1hp +++| LDN 0 00783 M00S00655.1hp +++| STD CC 00784 M00S00656.1hp +++| LDK BIOM 00785 M00S00657.1hp +++| STD CN 00786 M00S00658.1hp +++| LDD OA 00787 M00S00659.1hp +++| CWD CN 00788 M00S00660.1hp +++| LDC ** 00789 M00S00661.1hp +++| CRQB EQU *-1 ADDRESS OF EXCHANGE PACKAGE 00790 M00S00662.1hp +++| CWM CRQD,ON WRITE FIRST WORD 00791 M00S00663.1hp +++| SBN 1 SET EXCHANGE ADDRESS 00792 M00S00664.1hp +++| MXN 0 EXCHANGE CPU 00793 M00S00665.1hp +++| CRQC EQU *-1 CPU NUMBER 00794 M00S00666.1hp +++| UJP CRQX RETURN 00795 M00S00667.1hp +++| 00796 M00S00668.1hp +++| CRQD VFD 24/0 (P) 00797 M00S00669.1hp +++| VFD 18/0 (A0) 00798 M00S00670.1hp +++| VFD 18/0 (B0)
| Line S00671 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00799 M01S00671.ns2769 ---| C4D SPACE 4,15 00800 M01S00672.ns2769 ---|** C4D - CONVERT ONE PP WORD TO FOUR DISPLAY CODE CHARACTERS. 00801 M01S00673.ns2769 ---|* 00802 M01S00674.ns2769 ---|* ENTRY (A) = PP WORD TO CONVERT. 00803 M01S00675.ns2769 ---|* (T1) = ADDRESS OF FIRST OF TWO CONSECUTIVE PP WORDS IN 00804 M01S00676.ns2769 ---|* WHICH TO STORE THE DISPLAY CODE CHARACTERS. 00805 M01S00677.ns2769 ---|* 00806 M01S00678.ns2769 ---|* EXIT (A) = ADDRESS OF NEXT DISPLAY BUFFER WORD. 00807 M01S00679.ns2769 ---|* (T1) = (T1) + 2. 00808 M01S00680.ns2769 ---|* 00809 M01S00681.ns2769 ---|* USES CM, T1. 00810 M01S00682.ns2769 ---|* 00811 M01S00683.ns2769 ---|* CALLS C2D. 00812 M01S00684.ns2769 ---| 00813 M01S00685.ns2769 ---| 00814 M01S00686.ns2769 ---| C4D SUBR ENTRY/EXIT 00815 M01S00687.ns2769 ---| STD CM SAVE BINARY WORD 00816 M01S00688.ns2769 ---| SHN -6 CONVERT UPPER 6 BITS 00817 M01S00689.ns2769 ---| RJM C2D 00818 M01S00690.ns2769 ---| STI T1 STORE RESULT IN DISPLAY BUFFER 00819 M01S00691.ns2769 ---| AOD T1 ADVANCE TO NEXT DISPLAY BUFFER WORD 00820 M01S00692.ns2769 ---| LDD CM CONVERT LOWER 6 BITS 00821 M01S00693.ns2769 ---| LPN 77 00822 M01S00694.ns2769 ---| RJM C2D 00823 M01S00695.ns2769 ---| STI T1 STORE RESULT IN DISPLAY BUFFER 00824 M01S00696.ns2769 ---| AOD T1 ADVANCE TO NEXT DISPLAY BUFFER WORD 00825 M01S00697.ns2769 ---| UJN C4DX RETURN 00826 M00S00698.1hp +++| DCH SPACE 4,15 00827 M00S00699.1hp +++|** DCH - RELEASE CHANNEL. 00828 M00S00700.1hp +++|* 00829 M00S00701.1hp +++|* THIS ROUTINE RELEASES THE CHANNEL IF IT IS CURRENTLY 00830 M00S00702.1hp +++|* RESERVED. 00831 M00S00703.1hp +++|* 00832 M00S00704.1hp +++|* ENTRY (IR+4) = CHANNEL NUMBER. 00833 M00S00705.1hp +++|* (CS) = CHANNEL RESERVATION STATUS. 00834 M00S00706.1hp +++|* 00835 M00S00707.1hp +++|* EXIT (A) = (CS) = 0. 00836 M00S00708.1hp +++|* 00837 M00S00709.1hp +++|* USES CM+1, CS. 00838 M00S00710.1hp +++|* 00839 M00S00711.1hp +++|* MACROS MONITOR. 00840 M00S00712.1hp +++| 00841 M00S00713.1hp +++| 00842 M00S00714.1hp +++| DCH SUBR ENTRY/EXIT 00843 M00S00715.1hp +++| LDD CS 00844 M00S00716.1hp +++| LPN 1 00845 M00S00717.1hp +++| ZJN DCHX IF CHANNEL NOT RESERVED 00846 M00S00718.1hp +++| LDD IR+4 RELEASE CHANNEL 00847 M00S00719.1hp +++| STD CM+1 00848 M00S00720.1hp +++| MONITOR DCHM 00849 M00S00721.1hp +++| SOD CS 00850 M00S00722.1hp +++| UJN DCHX RETURN 00851 M00S00723.1hp +++| ERR SPACE 4,30 00852 M00S00724.1hp +++|** ERR - PROCESS ERROR. 00853 M00S00725.1hp +++|* 00854 M00S00726.1hp +++|* THIS ROUTINE IS CALLED TO PERFORM ERROR PROCESSING. 00855 M00S00727.1hp +++|* 00856 M00S00728.1hp +++|* ENTRY (EC) = 0 IF THIS IS THE FIRST RETRY OF A RECOVERY 00857 M00S00729.1hp +++|* SEQUENCE AND THE CALLER DID NOT SET THE ERROR 00858 M00S00730.1hp +++|* CODE. 00859 M00S00731.1hp +++|* = ERROR CODE IF NOT THE FIRST RETRY OF A RECOVERY 00860 M00S00732.1hp +++|* SEQUENCE AND NOT A CALLER SPECIFIED ERROR CODE. 00861 M00S00733.1hp +++|* = COMPLEMENT OF ERROR CODE IF SPECIFIED BY THE 00862 M00S00734.1hp +++|* CALLER. 00863 M00S00735.1hp +++|* (RC) = RETRY COUNT. 00864 M00S00736.1hp +++|* 00865 M00S00737.1hp +++|* EXIT (EC) = 0. 00866 M00S00738.1hp +++|* (RC) = 0. 00867 M00S00739.1hp +++|* TO THE POINT OF CALL IF THE ERROR WAS RECOVERED BY THE 00868 M00S00740.1hp +++|* CONTROLLER. 00869 M00S00741.1hp +++|* TO *MST* IN ALL OTHER CASES. 00870 M00S00742.1hp +++|* 00871 M00S00743.1hp +++|* USES EC, RC, RS, T1. 00872 M00S00744.1hp +++|*
| Line S00745 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00873 M01S00745.ns2769 ---|* CALLS CDS, CRL, CRQ, GGS, IBM, IBD, ISF, PDT, PFR, PRE,
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00874 M01S00104.ns2769 +++|* CALLS CDS, CRL, CRQ, GGS, IBM, ISF, PDT, PFR, PRE,
| Line S00746 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 00875 M01S00746.ns2507 ---|* RCS, RLC, SSF, TEP.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 00876 M01S00001.ns2507 +++|* RLC, SSF, TEP. 00877 M00S00747.1hp +++| 00878 M00S00748.1hp +++| 00879 M00S00749.1hp +++| ERR SUBR ENTRY/EXIT 00880 M00S00750.1hp +++| RJM PRE PRESET ERROR PROCESSOR 00881 M00S00751.1hp +++| NJP ERR11 IF INTERLOCK/VERIFICATION FAILURE 00882 M00S00752.1hp +++| LDD EC 00883 M00S00753.1hp +++| SHN 21-13 00884 M00S00754.1hp +++| PJN ERR3 IF ERROR CODE NOT SET BY CALLER 00885 M00S00755.1hp +++| ERR2 LCN 0 STORE ERROR CODE 00886 M00S00756.1hp +++| LMD EC 00887 M00S00757.1hp +++| STD EC
| Line S00758 Modification History | |
|---|---|
M01 (Removed by) | 1hp13 |
Seq # *Modification Id* Act ----------------------------+ 00888 M01S00758.1hp13 ---| UJN ERR4 CHECK FOR RETRY LIMIT
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1hp13 |
Seq # *Modification Id* Act ----------------------------+ 00889 M01S00001.1hp13 +++| UJN ERR3.1 CHECK FOR RETRY LIMIT 00890 M00S00759.1hp +++| 00891 M00S00760.1hp +++| ERR3 RJM GGS GET GENERAL STATUS 00892 M00S00761.1hp +++| MJN ERR2 IF STATUS NOT OBTAINED
| Line S00762 Modification History | |
|---|---|
M01 (Removed by) | 1hp13 |
Seq # *Modification Id* Act ----------------------------+ 00893 M01S00762.1hp13 ---| LDD RC 00894 M01S00763.1hp13 ---| NJN ERR3.1 IF NOT FIRST RETRY 00895 M01S00764.1hp13 ---| LDD GS SAVE INITIAL GENERAL STATUS 00896 M01S00765.1hp13 ---| STM BMLGS 00897 M01S00766.1hp13 ---| ERR3.1 RJM CDS CRACK DETAILED STATUS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1hp13 |
Seq # *Modification Id* Act ----------------------------+ 00898 M01S00002.1hp13 +++| RJM CDS CRACK DETAILED STATUS 00899 M00S00767.1hp +++| MJN ERR2 IF STATUS NOT OBTAINED
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1hp13 |
Seq # *Modification Id* Act ----------------------------+ 00900 M01S00003.1hp13 +++| ERR3.1 LDD RC 00901 M01S00004.1hp13 +++| NJN ERR4 IF NOT FIRST RETRY 00902 M01S00005.1hp13 +++| LDD GS SAVE INITIAL GENERAL STATUS 00903 M01S00006.1hp13 +++| STM BMLGS 00904 M00S00768.1hp +++| ERR4 LDD TH FORCE IMMEDIATE COMPLETION 00905 M00S00769.1hp +++| ERRNZ SHNI-1000 CODE DEPENDS ON VALUE 00906 M00S00770.1hp +++| STM IICA 00907 M00S00771.1hp +++| RJM IIC ISSUE I/O COMPLETION REQUEST 00908 M00S00772.1hp +++| ERR4.1 RJM CRQ ENSURE NO PENDING MONITOR FUNCTION 00909 M00S00773.1hp +++| NJN ERR4.1 IF FUNCTION STILL PENDING 00910 M00S00774.1hp +++| RJM IBM ISSUE BML MESSAGE IF FIRST RETRY 00911 M00S00775.1hp +++| AOD RS 00912 M00S00776.1hp +++| SHN 21-13 00913 M00S00777.1hp +++| MJN ERR6.1 IF ERROR RECOVERED BY CONTROLLER 00914 M00S00778.1hp +++| RJM CRL CHECK FOR RETRY LIMIT REACHED 00915 M00S00779.1hp +++| MJN ERR7 IF RETRY LIMIT NOT REACHED
| Line S00780 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00916 M01S00780.ns2769 ---| RJM IBD ISSUE B-DISPLAY MESSAGE 00917 M00S00781.1hp +++| 00918 M00S00782.1hp +++|* ATTEMPT TO RELOAD THE CONTROLLER IF THE ERROR TYPE IS 00919 M00S00783.1hp +++|* APPROPRIATE FOR SUCH AN ACTION. 00920 M00S00784.1hp +++| 00921 M00S00785.1hp +++| LDM TEPF,EC 00922 M00S00786.1hp +++| SHN 21-5 00923 M00S00787.1hp +++| PJN ERR5 IF RELOAD INAPPROPRIATE FOR ERROR TYPE 00924 M00S00788.1hp +++| RJM RLC RELOAD CONTROLLER
| Line S00789 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 00925 M01S00789.ns2507 ---| NJN ERR5 IF RELOAD ATTEMPT FAILED 00926 M01S00790.ns2507 ---| STD RC CLEAR RETRY COUNT 00927 M01S00791.ns2507 ---| UJN ERR9 RETRY WITH RELOADED CONTROLWARE 00928 M01S00792.ns2507 ---| 00929 M01S00793.ns2507 ---|* DOWN THE CHANNEL IF APPROPRIATE FOR THIS ERROR TYPE. 00930 M01S00794.ns2507 ---|
| Line S00795 Modification History | |
|---|---|
M01 (Removed by) | ns2497 |
Seq # *Modification Id* Act ----------------------------+ 00931 M01S00795.ns2497 ---| ERR5 LDM TEPF,EC
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2497 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 00932 M02S00001.ns2732a ---| ERR5 SOD RC ALIGN RETRY COUNT FOR FINAL MESSAGE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2497 |
M02 (Removed by) | ns2507 |
M03 (Removed by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 00933 M03S00002.ns2732a ---| LDM TEPF,EC
| Line S00796 Modification History | |
|---|---|
M01 (Removed by) | ns2507 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 00934 M02S00796.ns2732a ---| SHN 21-6 00935 M02S00797.ns2732a ---| PJN ERR6 IF DOWNING CHANNEL INAPPROPRIATE 00936 M02S00798.ns2732a ---| RJM RCS REMOVE CHANNEL FROM SYSTEM USE 00937 M02S00799.ns2732a ---| ERR6 AOD RS SET RECOVERY STATUS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 00938 M02S00002.ns2732a ---| AOD RS SET RECOVERY STATUS
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2732a |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00939 M02S00006.ns2732b ---| ERR5 AOD RS SET RECOVERY STATUS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act ----------------------------+ 00940 M01S00004.ns2732b +++| ERR5 SOD RC ADJUST FINAL RETRY COUNT 00941 M01S00005.ns2732b +++| AOD RS SET RECOVERY STATUS 00942 M00S00800.1hp +++| ERR6.1 UJN ERR11 TERMINATE ERROR PROCESSING 00943 M00S00801.1hp +++| 00944 M00S00802.1hp +++|* SET THE SUSPECT FLAG IF APPROPRIATE FOR THIS ERROR TYPE. 00945 M00S00803.1hp +++| 00946 M00S00804.1hp +++| ERR7 RJM SSF SET SUSPECT FLAG (IF APPROPRIATE)
| Line S00805 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 00947 M01S00805.ns2769 ---| RJM IBD ISSUE B-DISPLAY MESSAGE 00948 M00S00806.1hp +++| 00949 M00S00807.1hp +++|* RETRY I/O SEQUENCE. 00950 M00S00808.1hp +++| 00951 M00S00809.1hp +++| ERR9 RJM ISF ISSUE SEEK FUNCTION 00952 M00S00810.1hp +++| ZJN ERR10 IF ON CYLINDER AND NO ERROR 00953 M00S00811.1hp +++| LDD GS 00954 M00S00812.1hp +++| LMN 2 00955 M00S00813.1hp +++| ZJN ERR9 IF POSITIONER BUSY 00956 M00S00814.1hp +++| LMN 10&2
| Line S00815 Modification History | |
|---|---|
M01 (Removed by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 00957 M01S00815.ns2446 ---| ZJN ERR11 IF DRIVE RESERVED ON OTHER ACCESS 00958 M01S00816.ns2446 ---| LDD CS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2446 |
Seq # *Modification Id* Act ----------------------------+ 00959 M01S00002.ns2446 +++| NJN ERR9.1 IF DRIVE NOT RESERVED ON OTHER CHANNEL 00960 M01S00003.ns2446 +++| LDC 4000 CAUSE PRIORITY OVERRIDE ON SEEK 00961 M01S00004.ns2446 +++| RAM ISFA 00962 M01S00005.ns2446 +++| UJN ERR9 REISSUE SEEK 00963 M01S00006.ns2446 +++| 00964 M01S00007.ns2446 +++| ERR9.1 LDD CS 00965 M00S00817.1hp +++| LPN 10 00966 M00S00818.1hp +++| ZJN ERR11 IF CONTROLLER WAS NOT CONNECTED 00967 M00S00819.1hp +++| LDK DSTE SET ERROR CODE FOR LOST CONTROLLER RESERVE 00968 M00S00820.1hp +++| STD EC 00969 M00S00821.1hp +++| UJP ERR4 RETRY OPERATION 00970 M00S00822.1hp +++| 00971 M00S00823.1hp +++| ERR10 RJM PFR PREPARE FOR RETRY ATTEMPT 00972 M00S00824.1hp +++| RJM PDT PERFORM READ/WRITE OPERATION 00973 M00S00825.1hp +++| 00974 M00S00826.1hp +++|* CONTROL RETURNS TO THIS POINT ONLY IF THE ERROR WAS 00975 M00S00827.1hp +++|* RECOVERED. 00976 M00S00828.1hp +++| 00977 M00S00829.1hp +++| ERR11 AOD RS SET RECOVERY STATUS
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
00978 M01S00007.ns2732a +++| SHN 6
00979 M01S00008.ns2732a +++| RAD RC ADJUST FOR CONTROLLER RECOVERY
00980 M00S00830.1hp +++|
00981 M00S00831.1hp +++|* TERMINATE ERROR PROCESSING. INSTRUCTIONS MODIFIED FOR ERROR
00982 M00S00832.1hp +++|* PROCESSING WILL BE RESTORED TO THEIR ORIGINAL VALUES, VARIOUS
00983 M00S00833.1hp +++|* DATA CELLS WILL BE RESTORED TO THEIR INITIAL STATES, ETC.
00984 M00S00834.1hp +++|
00985 M00S00835.1hp +++| RJM TEP TERMINATE ERROR PROCESSING
00986 M00S00836.1hp +++| LDM ERRA,RS
00987 M00S00837.1hp +++| STD T1
00988 M00S00838.1hp +++| LJM 0,T1 EXIT ERROR PROCESSOR
00989 M00S00839.1hp +++|
00990 M00S00840.1hp +++| ERRA INDEX TABLE OF EXIT ADDRESSES
00991 M00S00841.1hp +++| INDEX 0,ERRX
00992 M00S00842.1hp +++| INDEX 1,MST
00993 M00S00843.1hp +++| INDEX 2,MST
00994 M00S00844.1hp +++| INDEX 3,MST
00995 M00S00845.1hp +++| INDEX 4
00996 M00S00846.1hp +++| TEPF SPACE 4,25
00997 M00S00847.1hp +++|** TEPF - TABLE OF ERROR PROCESSING FLAGS.
00998 M00S00848.1hp +++|*
00999 M00S00849.1hp +++|* THIS TABLE CONTAINS INFORMATION RELATED TO EACH ERROR TYPE.
01000 M00S00850.1hp +++|* EACH ENTRY HAS THE FOLLOWING FORMAT -
01001 M00S00851.1hp +++|* VFD 2/ERROR COUNT INCREMENT, BML MESSAGE INDICATOR
01002 M00S00852.1hp +++|* 0 DO NOT INCREMENT ERROR COUNTS AND DO
01003 M00S00853.1hp +++|* NOT ISSUE BML MESSAGE.
01004 M00S00854.1hp +++|* 1 INCREMENT ERROR COUNTS AND ISSUE BML
01005 M00S00855.1hp +++|* MESSAGE.
01006 M00S00856.1hp +++|* 2 INCREMENT ERROR COUNTS AND ISSUE BML
01007 M00S00857.1hp +++|* MESSAGE IF UNRECOVERED ERROR.
01008 M00S00858.1hp +++|* VFD 2/ERROR LOG MESSAGE INDICATOR
01009 M00S00859.1hp +++|* 0 DO NOT ISSUE ERROR LOG MESSAGE.
01010 M00S00860.1hp +++|* 1 ISSUE ERROR LOG MESSAGE WITH DETAILED
01011 M00S00861.1hp +++|* STATUS.
01012 M00S00862.1hp +++|* 2 ISSUE ERROR LOG MESSAGE WITHOUT
01013 M00S00863.1hp +++|* DETAILED STATUS.
01014 M00S00864.1hp +++|* VFD 1/SUSPECT FLAG
01015 M00S00865.1hp +++|* 0 DO NOT SET SUSPECT FLAG.
01016 M00S00866.1hp +++|* 1 SET SUSPECT FLAG.
01017 M00S00867.1hp +++|* VFD 1/DOWN CHANNEL FLAG
01018 M00S00868.1hp +++|* 0 DO NOT DOWN CHANNEL.
01019 M00S00869.1hp +++|* 1 DOWN CHANNEL.
01020 M00S00870.1hp +++|* VFD 1/CONTROLLER RELOAD FLAG
01021 M00S00871.1hp +++|* 0 DO NOT RELOAD CONTROLLER.
01022 M00S00872.1hp +++|* 1 RELOAD CONTROLLER.
01023 M00S00873.1hp +++|* VFD 5/UNUSED (ZERO)
01024 M00S00874.1hp +++|
01025 M00S00875.1hp +++| LIST G
01026 M00S00876.1hp +++| TEPF EQU *-1
01027 M00S00877.1hp +++| ECHO 1,EC=("DREC")
01028 M00S00878.1hp +++| VFD 2/IEC._EC,2/IEM._EC,1/SUS._EC,1/IDC._EC,1/CWR._EC,5/0
01029 M00S00879.1hp +++| LIST *
01030 M00S00880.1hp +++| TEPO SPACE 4,10
01031 M00S00881.1hp +++|** TEPO - TABLE OF IMMEDIATE RETURN ERROR PROCESSING OPTIONS.
01032 M00S00882.1hp +++|
01033 M00S00883.1hp +++| LIST G
01034 M00S00884.1hp +++| TEPO EQU *-1
01035 M00S00885.1hp +++| ECHO 1,ERRCODE=("DREC")
01036 M00S00886.1hp +++| CON EPO._ERRCODE "TXT._ERRCODE" ERROR
01037 M00S00887.1hp +++| LIST *
01038 M00S00888.1hp +++| TMNE SPACE 4,10
01039 M00S00889.1hp +++|** TMNE - TABLE OF ERROR CODE MNEMONICS.
01040 M00S00890.1hp +++|
01041 M00S00891.1hp +++| LIST G
01042 M00S00892.1hp +++| TMNE EQU *-1
01043 M00S00893.1hp +++| ECHO 1,ERRCODE=("DREC")
01044 M00S00894.1hp +++| CON EMN._ERRCODE "TXT._ERRCODE" ERROR
01045 M00S00895.1hp +++| LIST *
01046 M00S00896.1hp +++| TREC SPACE 4,10
01047 M00S00897.1hp +++|** TREC - TABLE OF RETRY COUNTS.
01048 M00S00898.1hp +++|
01049 M00S00899.1hp +++| LIST G
01050 M00S00900.1hp +++| TREC EQU *-1
01051 M00S00901.1hp +++| ECHO 1,ERRCODE=("DREC")
01052 M00S00902.1hp +++| CON RTC._ERRCODE "TXT._ERRCODE" ERROR
01053 M00S00903.1hp +++| LIST *
01054 M00S00904.1hp +++| TSYM SPACE 4,10
01055 M00S00905.1hp +++|** TSYM - TABLE OF BML SYMPTOM CODES.
01056 M00S00906.1hp +++|
01057 M00S00907.1hp +++| LIST G
01058 M00S00908.1hp +++| TSYM EQU *-1
01059 M00S00909.1hp +++| ECHO 1,ERRCODE=("DREC")
01060 M00S00910.1hp +++| CON SYM._ERRCODE "TXT._ERRCODE" ERROR
01061 M00S00911.1hp +++| LIST *
01062 M00S00912.1hp +++| FNC SPACE 4,10
01063 M00S00913.1hp +++|** FNC - FUNCTION CHANNEL.
01064 M00S00914.1hp +++|*
01065 M00S00915.1hp +++|* ENTRY (A) = FUNCTION CODE.
01066 M00S00916.1hp +++|*
01067 M00S00917.1hp +++|* EXIT (A) .LT. 0 IF CHANNEL ACTIVE UPON ENTRY OR FUNCTION
01068 M00S00918.1hp +++|* TIMEOUT. (EC) = COMPLEMENT OF ERROR CODE.
01069 M00S00919.1hp +++|* .GE. 0 IF NO ERROR.
01070 M00S00920.1hp +++|*
01071 M00S00921.1hp +++|* USES EC.
01072 M00S00922.1hp +++|
01073 M00S00923.1hp +++|
01074 M00S00924.1hp +++| FNC6 ACN CH ACTIVATE CHANNEL
01075 M00S00925.1hp +++| LDN 0 SET REPLY STATUS
01076 M00S00926.1hp +++|
01077 M00S00927.1hp +++| FNC SUBR ENTRY/EXIT
01078 M00S00928.1hp +++| STM FNCA SAVE FUNCTION CODE
01079 M00S00929.1hp +++| AJM FNC5,CH IF CHANNEL IS STILL ACTIVE
01080 M00S00930.1hp +++| FAN CH FUNCTION CHANNEL
01081 M00S00931.1hp +++|
01082 M00S00932.1hp +++|* THE DRIVER MUST WAIT AT LEAST 300 MS BEFORE TIMING OUT THE
01083 M00S00933.1hp +++|* FUNCTION.
01084 M00S00934.1hp +++|
01085 M00S00935.1hp +++| FNC1 ADD ON
01086 M00S00936.1hp +++| IJM FNC6,CH IF FUNCTION ACCEPTED
01087 M00S00937.1hp +++| NJN FNC1 IF NOT TIMEOUT YET
01088 M00S00938.1hp +++| FNC2 LCN FTOE SET COMPLEMENT OF *FTOE* ERROR CODE
01089 M00S00939.1hp +++| FNC3 STD EC
01090 M00S00940.1hp +++| EJM FNC4,CH IF CHANNEL IS EMPTY
01091 M00S00941.1hp +++| LDN 1 SAVE LAST FUNCTION ISSUED
01092 M00S00942.1hp +++| IAM FNCA,CH
01093 M00S00943.1hp +++| FNC4 LCN 0 SET ERROR REPLY STATUS
01094 M00S00944.1hp +++| DCN CH+40
01095 M00S00945.1hp +++| UJN FNCX RETURN
01096 M00S00946.1hp +++|
01097 M00S00947.1hp +++| FNC5 LCN CHFE SET *CHANNEL FAILURE* ERROR CODE
01098 M00S00948.1hp +++| UJN FNC3 INPUT DATA/FUNCTION FROM CHANNEL
01099 M00S00949.1hp +++|
01100 M00S00950.1hp +++|
01101 M00S00951.1hp +++| FNCA CON -0 CURRENT FUNCTION
01102 M00S00952.1hp +++| GDS SPACE 4,15
01103 M00S00953.1hp +++|** GDS - GET DETAILED STATUS.
01104 M00S00954.1hp +++|*
01105 M00S00955.1hp +++|* THIS ROUTINE OBTAINS THE DETAILED STATUS FROM THE CONTROLLER.
01106 M00S00956.1hp +++|*
01107 M00S00957.1hp +++|* EXIT (A) .EQ. 0 IF STATUS OBTAINED.
01108 M00S00958.1hp +++|* .LT. 0 IF STATUS NOT OBTAINED.
01109 M00S00959.1hp +++|* (EC) = COMPLEMENT OF *IDTE* ERROR CODE IF INCOMPLETE
01110 M00S00960.1hp +++|* TRANSFER OCCURS.
01111 M00S00961.1hp +++|*
01112 M00S00962.1hp +++|* USES EC, T1.
01113 M00S00963.1hp +++|*
01114 M00S00964.1hp +++|* CALLS CCP, FNC.
01115 M00S00965.1hp +++|
01116 M00S00966.1hp +++|
01117 M00S00967.1hp +++| GDS1 LCN IDTE SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01118 M00S00968.1hp +++| GDS2 STD EC
01119 M00S00969.1hp +++| GDS3 LDN MXSL-1 INVALIDATE DETAILED STATUS
01120 M00S00970.1hp +++| STD T1
01121 M00S00971.1hp +++| GDS4 LCN 0
01122 M00S00972.1hp +++| STM DST,T1
01123 M00S00973.1hp +++| SOD T1
01124 M00S00974.1hp +++| PJN GDS4 IF MORE BYTES
01125 M00S00975.1hp +++|
01126 M00S00976.1hp +++| GDS SUBR ENTRY/EXIT
01127 M00S00977.1hp +++| LDN FCDS ISSUE DETAILED STATUS FUNCTION
01128 M00S00978.1hp +++| RJM FNC
01129 M00S00979.1hp +++| MJN GDS3 IF ERROR
01130 M00S00980.1hp +++| LDN MXSL
01131 M00S00981.1hp +++| IAM DST,CH INPUT DETAILED STATUS
01132 M00S00982.1hp +++| NJN GDS1 IF INCOMPLETE DATA TRANSFER
01133 M00S00983.1hp +++| RJM CCP CHECK FOR CHANNEL PARITY ERROR
01134 M00S00984.1hp +++| ZJN GDSX IF NO CHANNEL PARITY ERROR
01135 M00S00985.1hp +++| UJN GDS2 INVALIDATE STATUS AND RETURN
01136 M00S00986.1hp +++| GGS SPACE 4,15
01137 M00S00987.1hp +++|** GGS - GET GENERAL STATUS.
01138 M00S00988.1hp +++|*
01139 M00S00989.1hp +++|* THIS ROUTINE OBTAINS THE EXTENDED GENERAL STATUS FROM THE
01140 M00S00990.1hp +++|* CONTROLLER.
01141 M00S00991.1hp +++|*
01142 M00S00992.1hp +++|* EXIT (A) .GE. 0 IF GENERAL STATUS OBTAINED. (GS) = STATUS.
01143 M00S00993.1hp +++|* .LT. 0 IF STATUS NOT OBTAINED. (GS) = 7777.
01144 M00S00994.1hp +++|* (EC) = COMPLEMENT OF *IDTE* ERROR CODE IF INCOMPLETE
01145 M00S00995.1hp +++|* TRANSFER OCCURRED.
01146 M00S00996.1hp +++|* = COMPLEMENT OF *CHPE* ERROR CODE IF CHANNEL
01147 M00S00997.1hp +++|* ERROR OCCURRED.
01148 M00S00998.1hp +++|*
01149 M00S00999.1hp +++|* USES EC, GS, T1.
01150 M00S01000.1hp +++|*
01151 M00S01001.1hp +++|* CALLS CCP, FNC.
01152 M00S01002.1hp +++|
01153 M00S01003.1hp +++|
01154 M00S01004.1hp +++| GGS1 LCN IDTE SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01155 M00S01005.1hp +++| GGS2 STD EC
01156 M00S01006.1hp +++| GGS3 LDN FCESL-1 INVALIDATE EXTENDED GENERAL STATUS
01157 M00S01007.1hp +++| STD T1
01158 M00S01008.1hp +++| GGS4 LCN 0
01159 M00S01009.1hp +++| STM GGSA,T1
01160 M00S01010.1hp +++| SOD T1
01161 M00S01011.1hp +++| PJN GGS4 IF MORE BYTES
01162 M00S01012.1hp +++| LCN 0 INVALIDATE GENERAL STATUS
01163 M00S01013.1hp +++| GGS5 STD GS
01164 M00S01014.1hp +++|
01165 M00S01015.1hp +++| GGS SUBR ENTRY/EXIT
01166 M00S01016.1hp +++| LDM FNCA SAVE FUNCTION BEFORE GENERAL STATUS
01167 M00S01017.1hp +++| STM GGSB
01168 M00S01018.1hp +++| LDN FCES ISSUE EXTENDED GENERAL STATUS FUNCTION
01169 M00S01019.1hp +++| RJM FNC
01170 M00S01020.1hp +++| MJN GGS3 IF ERROR
01171 M00S01021.1hp +++| LDN FCESL
01172 M00S01022.1hp +++| IAM GGSA,CH
01173 M00S01023.1hp +++| NJN GGS1 IF INCOMPLETE TRANSFER
01174 M00S01024.1hp +++| RJM CCP CHECK FOR CHANNEL PARITY ERROR
01175 M00S01025.1hp +++| MJN GGS2 IF CHANNEL PARITY ERROR
01176 M00S01026.1hp +++| LDM GGSB RESTORE LAST FUNCTION FOR ERROR PROCESSOR
01177 M00S01027.1hp +++| STM FNCA
01178 M00S01028.1hp +++| LDM GGSA
01179 M00S01029.1hp +++| UJN GGS5 SAVE FIRST STATUS BYTE
01180 M00S01030.1hp +++|
01181 M00S01031.1hp +++| GGSA BSS FCESL EXTENDED GENERAL STATUS BUFFER
01182 M00S01032.1hp +++| GGSB BSS 1 LAST FUNCTION BEFORE GENERAL STATUS
| Line S01033 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01183 M01S01033.ns2769 ---| IBD SPACE 4,10 01184 M01S01034.ns2769 ---|** IBD - ISSUE B-DISPLAY MESSAGE. 01185 M01S01035.ns2769 ---|* 01186 M01S01036.ns2769 ---|* THIS ROUTINE ISSUES A MESSAGE TO *MS2W* OF THE SYSTEM CONTROL 01187 M01S01037.ns2769 ---|* POINT FOR PRESENTATION ON B-DISPLAY. 01188 M01S01038.ns2769 ---|* 01189 M01S01039.ns2769 ---|* ENTRY (EC) = ERROR CODE. 01190 M01S01040.ns2769 ---|* (RC) = RETRY COUNT. 01191 M01S01041.ns2769 ---|* (T5) = EST ORDINAL. 01192 M01S01042.ns2769 ---|* 01193 M01S01043.ns2769 ---|* CALLS C2D. 01194 M01S01044.ns2769 ---|* 01195 M01S01045.ns2769 ---|* MACROS DELAY. 01196 M01S01046.ns2769 ---| 01197 M01S01047.ns2769 ---| 01198 M01S01048.ns2769 ---| IBD SUBR ENTRY/EXIT 01199 M01S01049.ns2769 ---| LDM TREC,EC 01200 M01S01050.ns2769 ---| SHN -2 01201 M01S01051.ns2769 ---| SBD RC 01202 M01S01052.ns2769 ---| PJN IBDX IF TOO EARLY TO NOTIFY OPERATOR 01203 M01S01053.ns2769 ---| LDD T5 STORE EST ORDINAL IN MESSAGE 01204 M01S01054.ns2769 ---| SHN -3 01205 M01S01055.ns2769 ---| RJM C2D 01206 M01S01056.ns2769 ---| STM IBDA+1 01207 M01S01057.ns2769 ---| LDD T5 01208 M01S01058.ns2769 ---| LPN 7 01209 M01S01059.ns2769 ---| SHN 6 01210 M01S01060.ns2769 ---| ADC 2R0 01211 M01S01061.ns2769 ---| STM IBDA+2 01212 M01S01062.ns2769 ---| LDM TMNE,EC STORE ERROR MNEMONIC IN MESSAGE 01213 M01S01063.ns2769 ---| STM IBDA+3 01214 M01S01064.ns2769 ---| LDD CP 01215 M01S01065.ns2769 ---| ADK MS2W 01216 M01S01066.ns2769 ---| CWM IBDA,TR
| Line S01067 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01217 M02S01067.ns2769 ---| DELAY 100D*8D DELAY FOR 100 MILLISECONDS
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S00005.ns2769 ---| DELAY 200D*8D DELAY FOR 200 MILLISECONDS
| Line S01068 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01219 M01S01068.ns2769 ---| UJP IBDX RETURN 01220 M01S01069.ns2769 ---| 01221 M01S01070.ns2769 ---| IBDA DATA C*EQ000 XX ERROR RETRY UNDERWAY.* 01222 M00S01071.1hp +++| IBM SPACE 4,25 01223 M00S01072.1hp +++|** IBM - ISSUE BML MESSAGE. 01224 M00S01073.1hp +++|*
| Line S01074 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01225 M01S01074.ns2769 ---|* THIS ROUTINE BUILDS A BML MESSAGE AND CALLS ROUTINE *IMS* TO
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01226 M01S00105.ns2769 +++|* THIS ROUTINE BUILDS A BML MESSAGE AND CALLS ROUTINE *IMB* TO 01227 M00S01075.1hp +++|* ISSUE THE MESSAGE TO THE BML. 01228 M00S01076.1hp +++|*
| Line S01077 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01229 M01S01077.252l678 ---|* ENTRY (CA) = UNIT NUMBER.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01230 M01S00006.252l678 +++|* ENTRY (CA - CA+3) = SEEK PARAMETERS. 01231 M00S01078.1hp +++|* (EC) = ERROR CODE. 01232 M00S01079.1hp +++|* (ER) = RECOVERY IN PROGRESS FLAG. 01233 M00S01080.1hp +++|* (RC) = RETRY COUNT. 01234 M00S01081.1hp +++|* (RS) = RECOVERY STATUS. 01235 M00S01082.1hp +++|* 777X INITIAL RETRY. 01236 M00S01083.1hp +++|* 0 RECOVERED BY CONTROLLER. 01237 M00S01084.1hp +++|* 1 RECOVERED BY DRIVER. 01238 M00S01085.1hp +++|* 2 UNRESOLVED. 01239 M00S01086.1hp +++|* 3 UNRECOVERED. 01240 M00S01087.1hp +++|* (RW) = READ/WRITE FLAG. 01241 M00S01088.1hp +++|* (T5) = EST ORDINAL. 01242 M00S01089.1hp +++|* (BMLGS) = GENERAL STATUS. 01243 M00S01090.1hp +++|* (DST - DST+23) = DETAILED STATUS IF APPLICABLE. 01244 M00S01091.1hp +++|*
| Line S01092 Modification History | |
|---|---|
M01 (Removed by) | ns2475 |
Seq # *Modification Id* Act ----------------------------+ 01245 M01S01092.ns2475 ---|* USES T1.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2475 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 01246 M02S00001.ns2507 ---|* USES T1, T2.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2519 |
Seq # *Modification Id* Act ----------------------------+ 01247 M02S00003.ns2519 ---|* USES T1.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 01248 M02S00001.ns2732 ---|* USES S2, T1.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 01249 M02S00002.ns2732a ---|* EXIT (RC) INCREMENTED.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 01250 M01S00009.ns2732a +++|* EXIT (RC) INCREMENTED IF FIRST RETRY.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 01251 M01S00003.ns2732 +++|*
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01252 M02S00004.ns2769 ---|* USES RC, T1.
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01253 M01S00106.ns2769 +++|* USES RC, T1, CM+1 - CM+3. 01254 M00S01093.1hp +++|*
| Line S01094 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01255 M01S01094.ns2769 ---|* CALLS IEC, IMS.
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01256 M01S00107.ns2769 +++|* CALLS IMB. 01257 M01S00108.ns2769 +++|* 01258 M01S00109.ns2769 +++|* MACROS MONITOR. 01259 M00S01095.1hp +++| 01260 M00S01096.1hp +++| 01261 M00S01097.1hp +++| IBM SUBR ENTRY/EXIT
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 01262 M02S00005.ns2732a ---| AOD RC INCREMENT RETRY COUNT 01263 M00S01098.1hp +++| LDM TEPF,EC 01264 M00S01099.1hp +++| SHN 0-12 01265 M00S01100.1hp +++| ZJN IBMX IF NO BML MESSAGE/ERROR COUNT INCREMENT
| Line S01101 Modification History | |
|---|---|
M01 (Removed by) | ns2562 |
Seq # *Modification Id* Act ----------------------------+ 01266 M01S01101.ns2562 ---| SHN 12-13 01267 M01S01102.ns2562 ---| ZJN IBM1 IF BML MESSAGE MAY BE ISSUED 01268 M01S01103.ns2562 ---| LDD RS 01269 M01S01104.ns2562 ---| LMN 3 01270 M01S01105.ns2562 ---| NJN IBMX IF NOT UNRECOVERED ERROR
| Line S01106 Modification History | |
|---|---|
M01 (Removed by) | ns2475 |
M02 (Removed by) | ns2562 |
Seq # *Modification Id* Act ----------------------------+ 01271 M02S01106.ns2562 ---| IBM1 LDD RS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2475 |
M02 (Removed by) | ns2507 |
M03 (Removed by) | ns2562 |
Seq # *Modification Id* Act ----------------------------+ 01272 M03S00002.ns2562 ---| IBM1 STD T2 01273 M03S00003.ns2562 ---| LDD RS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2519 |
M03 (Removed by) | ns2562 |
Seq # *Modification Id* Act ----------------------------+ 01274 M03S00004.ns2562 ---| IBM1 LDD RS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2562 |
Seq # *Modification Id* Act ----------------------------+ 01275 M02S00002.ns2562 ---| IBM1 STD S2
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2562 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 01276 M02S00001.ns2732 ---| LDN 0 01277 M02S00002.ns2732 ---| STD S2
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2519 |
Seq # *Modification Id* Act ----------------------------+ 01278 M01S00003.ns2519 +++| LDD RS 01279 M00S01107.1hp +++| LMN 2 01280 M00S01108.1hp +++| ZJN IBMX IF UNRESOLVED ERROR 01281 M00S01109.1hp +++| SHN 21-13 01282 M00S01110.1hp +++| PJN IBM2 IF FINAL RETRY 01283 M00S01111.1hp +++| LDD RC 01284 M00S01112.1hp +++| NJN IBMX IF NOT INITIAL RETRY
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act ----------------------------+ 01285 M01S00010.ns2732a +++| AOD RC INCREMENT RETRY COUNT
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 01286 M02S00004.ns2732 ---| AOD S2
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2475 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 01287 M02S00004.ns2507 ---| AOD T2 01288 M00S01113.1hp +++| UJN IBM3 CONTINUE 01289 M00S01114.1hp +++|
| Line S01115 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01290 M01S01115.ns2769 ---| IBM2 RJM IEC INCREMENT ERROR COUNTER
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01291 M01S00110.ns2769 +++|* INCREMENT ERROR COUNTER. 01292 M01S00111.ns2769 +++| 01293 M01S00112.ns2769 +++| IBM2 LDD T5 SET EST ORDINAL 01294 M01S00113.ns2769 +++| STD CM+1 01295 M01S00114.ns2769 +++| LDD RS SET BYTE NUMBER 01296 M01S00115.ns2769 +++| SHN -1 01297 M01S00116.ns2769 +++| ADN 3 01298 M01S00117.ns2769 +++| STD CM+2 01299 M01S00118.ns2769 +++| LDK ICTS SET SUBFUNCTION 01300 M01S00119.ns2769 +++| STD CM+3 01301 M01S00120.ns2769 +++| MONITOR SMDM
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2497 |
Seq # *Modification Id* Act ----------------------------+ 01302 M02S00007.ns2497 ---| SOD RC 01303 M00S01116.1hp +++| IBM3 LDD RS SET RECOVERED/UNRECOVERED FLAG 01304 M00S01117.1hp +++| ADN 5 01305 M00S01118.1hp +++| SHN -3 01306 M00S01119.1hp +++| LPN 1
| Line S01120 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01307 M01S01120.252l678 ---| LMN 10 INDICATE LAST MESSAGE OF PAIR 01308 M00S01121.1hp +++| STD T1 01309 M00S01122.1hp +++| LDC /COMSDFS/D1HP*400 STORE SYMPTOM CODE 01310 M00S01123.1hp +++| LMM TSYM,EC 01311 M00S01124.1hp +++| STM BMLSC 01312 M00S01125.1hp +++| LMK /COMSDFS/HS0040+/COMSDFS/D1HP*400 01313 M00S01126.1hp +++| NJN IBM4 IF NOT A MEDIA ERROR 01314 M00S01127.1hp +++| LDD RW SET WRITE MEDIA ERROR SYMPTOM CODE 01315 M00S01128.1hp +++| ERRNZ /COMSDFS/HS0041-/COMSDFS/HS0040-1 ERROR 01316 M00S01129.1hp +++| RAM BMLSC 01317 M00S01130.1hp +++| IBM4 LDD RC STORE RETRY COUNT
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 01318 M02S00008.ns2732 ---| ADN 1 01319 M00S01131.1hp +++| SHN 6-1 01320 M00S01132.1hp +++| ADD RW ADD READ/WRITE FLAG 01321 M00S01133.1hp +++| SHN 1 01322 M00S01134.1hp +++| ADD T1 ADD RECOVERY STATUS 01323 M00S01135.1hp +++| STM BMLRC
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act ----------------------------+ 01324 M02S00005.ns2732 ---| LDD S2 SET RETRY COUNT = 1 IF INITIAL RETRY 01325 M02S00006.ns2732 ---| RAD RC
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2475 |
M02 (Removed by) | ns2507 |
Seq # *Modification Id* Act ----------------------------+ 01326 M02S00005.ns2507 ---| LDD T2 01327 M02S00006.ns2507 ---| RAD RC 01328 M00S01136.1hp +++| LDD CA UNIT NUMBER 01329 M00S01137.1hp +++| LPN 77 01330 M00S01138.1hp +++| STM BMLUN 01331 M00S01139.1hp +++| LDD T5 EST ORDINAL 01332 M00S01140.1hp +++| STM BMLEO
| Line S01141 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01333 M01S01141.252l678 ---| LDN HDR1LC-1 COPY FIRST HEADER TO SECOND HEADER BUFFER 01334 M01S01142.252l678 ---| STD T1 01335 M01S01143.252l678 ---| LDD MA 01336 M01S01144.252l678 ---| CWM HDR1+5,T1 01337 M01S01145.252l678 ---| SBN HDR1LC-1 01338 M01S01146.252l678 ---| CRM HDR2+5,T1 01339 M01S01147.252l678 ---| LDM BMLRC INDICATE FIRST MESSAGE OF PAIR 01340 M01S01148.252l678 ---| LMN 14 01341 M01S01149.252l678 ---| STM BMLRC 01342 M01S01150.252l678 ---| LDC BMLLNC*10000+BML 01343 M01S01151.252l678 ---| RJM IMS ISSUE MESSAGE
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01344 M01S00009.252l678 +++| LDD EC ERROR CODE 01345 M01S00010.252l678 +++| STM BMLEC 01346 M01S00011.252l678 +++| LDD CA+1 CYLINDER 01347 M01S00012.252l678 +++| STM BMLCY 01348 M01S00013.252l678 +++| LDD CA+2 TRACK AND SECTOR 01349 M01S00014.252l678 +++| SHN 6 01350 M01S00015.252l678 +++| LMD CA+3 01351 M01S00016.252l678 +++| STM BMLTS
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01352 M02S00017.ns2769 ---| LDC BMS1LC*10000+BML ISSUE MESSAGE 01353 M02S00018.ns2769 ---| RJM IMS
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01354 M01S00121.ns2769 +++| LDC BML ISSUE *BML* MESSAGE 01355 M01S00122.ns2769 +++| RJM IMB ISSUE MESSAGE TO BUFFER 01356 M00S01152.1hp +++| UJP IBMX RETURN 01357 M00S01153.1hp +++| BML SPACE 4,10 01358 M00S01154.1hp +++|* BINARY MAINTENANCE LOG MESSAGE. 01359 M00S01155.1hp +++| 01360 M00S01156.1hp +++| BML BSS 0
| Line S01157 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01361 M01S01157.252l678 ---| 01362 M01S01158.252l678 ---|* FIRST MESSAGE HEADER. THE MESSAGE HEADER HAS TWO PARTS. THE 01363 M01S01159.252l678 ---|* FIRST WORD IS USED BY *1MD* TO DETERMINE THE LENGTH AND TYPE 01364 M01S01160.252l678 ---|* OF THE MESSAGE. THE SECOND PART IS THE TWO WORD BML MESSAGE 01365 M01S01161.252l678 ---|* HEADER CONTAINING MESSAGE ID, SYMPTOM CODE AND OTHER DATA. 01366 M00S01162.1hp +++| 01367 M00S01163.1hp +++| HDR1 VFD 36/0 RESERVED
| Line S01164 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01368 M01S01164.252l678 ---| VFD 12/BMS1L LENGTH OF MESSAGE INCLUDING HEADER
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01369 M01S00019.252l678 +++| VFD 12/BMS1LC LENGTH OF MESSAGE
| Line S01165 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01370 M01S01165.252l678 ---| VFD 12/BMLT MESSAGE TYPE
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01371 M01S00020.252l678 +++| VFD 12/MLDY MESSAGE TYPE 01372 M00S01166.1hp +++| 01373 M00S01167.1hp +++| VFD 12//COMSDFS/RM0014 MESSAGE ID 01374 M00S01168.1hp +++| 01375 M00S01169.1hp +++| BMLSC VFD 4//COMSDFS/D1HP DRIVER TYPE 01376 M00S01170.1hp +++| VFD 1/0 RESERVED 01377 M00S01171.1hp +++| VFD 7/0 SYMPTOM CODE 01378 M00S01172.1hp +++| 01379 M00S01173.1hp +++| BMLPP VFD 6/ PP NUMBER 01380 M00S01174.1hp +++| VFD 6/ CHANNEL NUMBER 01381 M00S01175.1hp +++| 01382 M00S01176.1hp +++| BMLUN VFD 6/0 EQUIPMENT NUMBER 01383 M00S01177.1hp +++| VFD 6/ UNIT NUMBER 01384 M00S01178.1hp +++| 01385 M00S01179.1hp +++| VFD 12/0 RESERVED 01386 M00S01180.1hp +++| 01387 M00S01181.1hp +++| BMLEO VFD 12/ EST ORDINAL 01388 M00S01182.1hp +++| 01389 M00S01183.1hp +++| BMLRC VFD 6/ RETRY COUNT
| Line S01184 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01390 M01S01184.252l678 ---| VFD 2/0 RESERVED 01391 M01S01185.252l678 ---| VFD 2/2 SECOND MESSAGE OF PAIR 01392 M01S01186.252l678 ---|* VFD 2/1 FIRST MESSAGE OF PAIR
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01393 M01S00021.252l678 +++| VFD 4/0 RESERVED 01394 M00S01187.1hp +++| VFD 1/0 READ OPERATION 01395 M00S01188.1hp +++|* VFD 1/1 WRITE OPERATION 01396 M00S01189.1hp +++| VFD 1/0 RECOVERED ERROR 01397 M00S01190.1hp +++|* VFD 1/1 UNRECOVERED ERROR 01398 M00S01191.1hp +++| 01399 M00S01192.1hp +++| BMLCR VFD 6/ CHANNEL USED FOR RECOVERY 01400 M00S01193.1hp +++| VFD 6/0 RESERVED 01401 M00S01194.1hp +++| 01402 M00S01195.1hp +++| BMLMF VFD 12/ MAINFRAME ID 01403 M00S01196.1hp +++| 01404 M00S01197.1hp +++| VFD 12/0 RESERVED 01405 M00S01198.1hp +++| 01406 M00S01199.1hp +++| HDR1L EQU *-HDR1 HEADER LENGTH (PP WORDS) 01407 M00S01200.1hp +++| HDR1LC EQU HDR1L/5 HEADER LENGTH (CM WORDS)
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01408 M01S00022.252l678 +++| 01409 M01S00023.252l678 +++| BMLEC VFD 12/ ERROR CODE 01410 M01S00024.252l678 +++| 01411 M01S00025.252l678 +++| BMLCY VFD 12/ CYLINDER 01412 M01S00026.252l678 +++| 01413 M01S00027.252l678 +++| BMLTS VFD 12/ TRACK AND SECTOR 01414 M01S00028.252l678 +++| 01415 M01S00029.252l678 +++| BMLLF VFD 12/ LAST FUNCTION 01416 M01S00030.252l678 +++| 01417 M01S00031.252l678 +++| BMLGS VFD 12/ GENERAL STATUS 01418 M00S01201.1hp +++| 01419 M00S01202.1hp +++|* DETAILED STATUS. 01420 M00S01203.1hp +++| 01421 M00S01204.1hp +++| DST BSS MXSL 01422 M00S01205.1hp +++|
| Line S01206 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01423 M01S01206.252l678 ---| BMS1L EQU */5-HDR1/5 LENGTH OF FIRST MESSAGE 01424 M01S01207.252l678 ---| 01425 M01S01208.252l678 ---|* SECOND MESSAGE HEADER. 01426 M01S01209.252l678 ---| 01427 M01S01210.252l678 ---| HDR2 VFD 36/0 RESERVED 01428 M01S01211.252l678 ---| VFD 12/BMS2L LENGTH OF MESSAGE INCLUDING HEADER 01429 M01S01212.252l678 ---| VFD 12/BMLT MESSAGE TYPE 01430 M01S01213.252l678 ---| 01431 M01S01214.252l678 ---| BSS HDR1L-5 01432 M01S01215.252l678 ---| 01433 M01S01216.252l678 ---|* BODY OF SECOND MESSAGE. 01434 M01S01217.252l678 ---| 01435 M01S01218.252l678 ---| VFD 36/0 RESERVED 01436 M01S01219.252l678 ---| BMLLF VFD 12/ LAST FUNCTION ISSUED 01437 M01S01220.252l678 ---| 01438 M01S01221.252l678 ---| BMLGS VFD 12/ INITIAL GENERAL STATUS 01439 M01S01222.252l678 ---| 01440 M01S01223.252l678 ---| BMS2L EQU */5-HDR2/5 LENGTH OF SECOND MESSAGE 01441 M01S01224.252l678 ---| BMLLNC EQU */5-BML/5 LENGTH OF MESSAGE PAIR (CM WORDS)
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01442 M01S00032.252l678 +++| BMS1L EQU *-BML LENGTH OF MESSAGE (PP WORDS) 01443 M01S00033.252l678 +++| .A SET BMS1L+4 01444 M01S00034.252l678 +++| BMS1LC EQU .A/5 LENGTH OF MESSAGE (CM WORDS)
| Line S01225 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01445 M01S01225.ns2769 ---| IEC SPACE 4,15 01446 M01S01226.ns2769 ---|** IEC - INCREMENT ERROR COUNTER. 01447 M01S01227.ns2769 ---|* 01448 M01S01228.ns2769 ---|* THIS ROUTINE INCREMENTS THE RECOVERED/UNRECOVERED ERROR 01449 M01S01229.ns2769 ---|* COUNTER IN THE MST CORRESPONDING TO THIS UNIT. 01450 M01S01230.ns2769 ---|* 01451 M01S01231.ns2769 ---|* ENTRY (RS) = RECOVERY STATUS. 01452 M01S01232.ns2769 ---|* 0 RECOVERED BY CONTROLLER. 01453 M01S01233.ns2769 ---|* 1 RECOVERED BY DRIVER. 01454 M01S01234.ns2769 ---|* 2 UNRESOLVED. 01455 M01S01235.ns2769 ---|* 3 UNRECOVERED. 01456 M01S01236.ns2769 ---|* (T5) = EST ORDINAL. 01457 M01S01237.ns2769 ---|* 01458 M01S01238.ns2769 ---|* EXIT (A) = 0. 01459 M01S01239.ns2769 ---|* 01460 M01S01240.ns2769 ---|* USES CM+1 - CM+3. 01461 M01S01241.ns2769 ---|* 01462 M01S01242.ns2769 ---|* MACROS MONITOR. 01463 M01S01243.ns2769 ---| 01464 M01S01244.ns2769 ---| 01465 M01S01245.ns2769 ---| IEC SUBR ENTRY/EXIT 01466 M01S01246.ns2769 ---| LDD T5 SET EST ORDINAL 01467 M01S01247.ns2769 ---| STD CM+1 01468 M01S01248.ns2769 ---| LDD RS SET BYTE NUMBER 01469 M01S01249.ns2769 ---| SHN -1 01470 M01S01250.ns2769 ---| ADN 3 01471 M01S01251.ns2769 ---| STD CM+2 01472 M01S01252.ns2769 ---| LDK ICTS SET SUBFUNCTION 01473 M01S01253.ns2769 ---| STD CM+3
| Line S01254 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01474 M02S01254.ns2769 ---| MONITOR STBM
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01475 M02S00001.ns2769 ---| MONITOR SMDM
| Line S01255 Modification History | |
|---|---|
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act ----------------------------+ 01476 M01S01255.ns2769 ---| UJN IECX RETURN
| Line S01256 Modification History | |
|---|---|
M01 (Removed by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 01477 M01S01256.252l678 ---| IEM SPACE 4,15 01478 M01S01257.252l678 ---|** IEM - ISSUE ERROR LOG MESSAGES. 01479 M01S01258.252l678 ---|* 01480 M01S01259.252l678 ---|* THIS ROUTINE CREATES A BLOCK OF ERROR LOG MESSAGES HAVING THE 01481 M01S01260.252l678 ---|* FOLLOWING FORMAT AND CALLS ROUTINE *IMS* TO PLACE THE MESSAGE 01482 M01S01261.252l678 ---|* BLOCK IN THE *EMB* AND CALL *1MD*. 01483 M01S01262.252l678 ---|* 01484 M01S01263.252l678 ---|* 1 2 3 4 5 6 01485 M01S01264.252l678 ---|* 123456789012345678901234567890123456789012345678901234567890 01486 M01S01265.252l678 ---|* DBNNN,UNRECOVERED MASS STORAGE ERROR. 01487 M01S01266.252l678 ---|* DBNNN,OPERATION=XXXXX ERROR CODE=XX. 01488 M01S01267.252l678 ---|* DBNNN,CH=NN UN=UU CY=CCCC TK=TT SC=SS. 01489 M01S01268.252l678 ---|* DBNNN,LAST FUNCTION ISSUED = FFFF. 01490 M01S01269.252l678 ---|* DBNNN,GENERAL STATUS = GGGG. 01491 M01S01270.252l678 ---|* DBNNN,DETAILED STATUS = 01492 M01S01271.252l678 ---|* DBNNN, 01=XXXX 02=XXXX 03=XXXX 04=XXXX 01493 M01S01272.252l678 ---|* DBNNN, 05=XXXX 06=XXXX 07=XXXX 08=XXXX 01494 M01S01273.252l678 ---|* DBNNN, 09=XXXX 10=XXXX 11=XXXX 12=XXXX 01495 M01S01274.252l678 ---|* DBNNN, 13=XXXX 14=XXXX 15=XXXX 16=XXXX 01496 M01S01275.252l678 ---|* DBNNN, 17=XXXX 18=XXXX 19=XXXX 20=XXXX 01497 M01S01276.252l678 ---|* 01498 M01S01277.252l678 ---|* THIS MESSAGE BLOCK WILL BE ISSUED WHEN ALL RETRIES HAVE BEEN 01499 M01S01278.252l678 ---|* ATTEMPTED WITHOUT SUCCESS DURING MASS STORAGE ERROR RECOVERY. 01500 M01S01279.252l678 ---|* 01501 M01S01280.252l678 ---|* ENTRY (CA) = UNIT NUMBER. 01502 M01S01281.252l678 ---|* (CA+1) = CYLINDER NUMBER. 01503 M01S01282.252l678 ---|* (CA+2) = TRACK NUMBER. 01504 M01S01283.252l678 ---|* (CA+3) = SECTOR NUMBER. 01505 M01S01284.252l678 ---|* (EC) = ERROR CODE. 01506 M01S01285.252l678 ---|* (GS) = GENERAL STATUS. 01507 M01S01286.252l678 ---|* (T5) = EST ORDINAL. 01508 M01S01287.252l678 ---|* (BMLLF) = LAST FUNCTION ISSUED. 01509 M01S01288.252l678 ---|* 01510 M01S01289.252l678 ---|* USES T1 - T4, T6. 01511 M01S01290.252l678 ---|* 01512 M01S01291.252l678 ---|* CALLS C2D, C4D, IMS. 01513 M01S01292.252l678 ---| 01514 M01S01293.252l678 ---| 01515 M01S01294.252l678 ---| IEM SUBR ENTRY/EXIT 01516 M01S01295.252l678 ---| LDM TEPF,EC 01517 M01S01296.252l678 ---| SHN 0-10 01518 M01S01297.252l678 ---| LPN 3 01519 M01S01298.252l678 ---| ZJN IEMX IF NO MESSAGE FOR THIS ERROR TYPE 01520 M01S01299.252l678 ---| SHN -1 SET MESSAGE FORMAT INDICATOR 01521 M01S01300.252l678 ---| STD T6 01522 M01S01301.252l678 ---| LDD T5 EST ORDINAL 01523 M01S01302.252l678 ---| SHN -6 01524 M01S01303.252l678 ---| RJM C2D 01525 M01S01304.252l678 ---| LPN 77 01526 M01S01305.252l678 ---| STD T3 01527 M01S01306.252l678 ---| LDD T5 01528 M01S01307.252l678 ---| RJM C2D 01529 M01S01308.252l678 ---| STD T4 01530 M01S01309.252l678 ---| LDC IEMC-1 BUILD PREFIXES 01531 M01S01310.252l678 ---| STD T1 01532 M01S01311.252l678 ---| IEM1 AOD T1 01533 M01S01312.252l678 ---| LDI T1 01534 M01S01313.252l678 ---| ZJN IEM2 IF END OF TABLE 01535 M01S01314.252l678 ---| STD T2 01536 M01S01315.252l678 ---| LDI T2 01537 M01S01316.252l678 ---| SCN 77 01538 M01S01317.252l678 ---| LMD T3 01539 M01S01318.252l678 ---| STI T2 01540 M01S01319.252l678 ---| AOD T2 01541 M01S01320.252l678 ---| LDD T4 01542 M01S01321.252l678 ---| STI T2 01543 M01S01322.252l678 ---| UJN IEM1 CONTINUE 01544 M01S01323.252l678 ---| 01545 M01S01324.252l678 ---| IEM2 LDD RW SET OPERATION TYPE 01546 M01S01325.252l678 ---| ZJN IEM2.1 IF READ OPERATION 01547 M01S01326.252l678 ---| LDC 2R=W 01548 M01S01327.252l678 ---| STM ELMOP 01549 M01S01328.252l678 ---| LDC 2RRI 01550 M01S01329.252l678 ---| STM ELMOP+1 01551 M01S01330.252l678 ---| LDC 2RTE 01552 M01S01331.252l678 ---| UJN IEM2.2 CONTINUE 01553 M01S01332.252l678 ---| 01554 M01S01333.252l678 ---| IEM2.1 LDC 2R=R 01555 M01S01334.252l678 ---| STM ELMOP 01556 M01S01335.252l678 ---| LDC 2REA 01557 M01S01336.252l678 ---| STM ELMOP+1 01558 M01S01337.252l678 ---| LDC 2RD 01559 M01S01338.252l678 ---| IEM2.2 STM ELMOP+2 01560 M01S01339.252l678 ---| LDD IR+4 CHANNEL 01561 M01S01340.252l678 ---| RJM C2D 01562 M01S01341.252l678 ---| STM ELMCH 01563 M01S01342.252l678 ---| LDD EC ERROR CODE 01564 M01S01343.252l678 ---| RJM C2D 01565 M01S01344.252l678 ---| STM ELMEC 01566 M01S01345.252l678 ---| LDD CA UNIT 01567 M01S01346.252l678 ---| RJM C2D 01568 M01S01347.252l678 ---| STM ELMUN 01569 M01S01348.252l678 ---| LDD CA+1 CYLINDER 01570 M01S01349.252l678 ---| SHN -6 01571 M01S01350.252l678 ---| RJM C2D 01572 M01S01351.252l678 ---| STM ELMCY 01573 M01S01352.252l678 ---| LDD CA+1 01574 M01S01353.252l678 ---| RJM C2D 01575 M01S01354.252l678 ---| STM ELMCY+1 01576 M01S01355.252l678 ---| LDD CA+2 TRACK 01577 M01S01356.252l678 ---| RJM C2D 01578 M01S01357.252l678 ---| STM ELMTK 01579 M01S01358.252l678 ---| LDD CA+3 SECTOR 01580 M01S01359.252l678 ---| RJM C2D 01581 M01S01360.252l678 ---| STM ELMSC 01582 M01S01361.252l678 ---| LDM BMLLF LAST FUNCTION ISSUED 01583 M01S01362.252l678 ---| SHN -6 01584 M01S01363.252l678 ---| RJM C2D 01585 M01S01364.252l678 ---| STM ELMLF 01586 M01S01365.252l678 ---| LDM BMLLF 01587 M01S01366.252l678 ---| RJM C2D 01588 M01S01367.252l678 ---| STM ELMLF+1 01589 M01S01368.252l678 ---| LDD GS GENERAL STATUS 01590 M01S01369.252l678 ---| SHN -6 01591 M01S01370.252l678 ---| RJM C2D 01592 M01S01371.252l678 ---| STM ELMGS 01593 M01S01372.252l678 ---| LDD GS 01594 M01S01373.252l678 ---| RJM C2D 01595 M01S01374.252l678 ---| STM ELMGS+1 01596 M01S01375.252l678 ---| LDM IEMB,T6 SET MESSAGE LENGTH 01597 M01S01376.252l678 ---| STM IEMA 01598 M01S01377.252l678 ---| LDD T6 01599 M01S01378.252l678 ---| NJN IEM5 IF SHORT MESSAGE FORMAT 01600 M01S01379.252l678 ---| 01601 M01S01380.252l678 ---|* CONVERT DETAILED STATUS. 01602 M01S01381.252l678 ---| 01603 M01S01382.252l678 ---| LDC ELMDS+4 SET ADDRESS OF DISPLAY CODE MESSAGE 01604 M01S01383.252l678 ---| STD T1 01605 M01S01384.252l678 ---| LDC DST-1 SET ADDRESS OF BINARY DETAILED STATUS 01606 M01S01385.252l678 ---| STD T2 01607 M01S01386.252l678 ---| IEM3 LDN 4 SET END OF LINE INDICATOR 01608 M01S01387.252l678 ---| STD T3 01609 M01S01388.252l678 ---| IEM4 LDN 2 ADVANCE TO NEXT DISPLAY BUFFER WORD 01610 M01S01389.252l678 ---| RAD T1 01611 M01S01390.252l678 ---| AOD T2 ADVANCE TO NEXT BINARY WORD 01612 M01S01391.252l678 ---| LDI T2 CONVERT NEXT BYTE 01613 M01S01392.252l678 ---| RJM C4D 01614 M01S01393.252l678 ---| SOD T3 DECREMENT END OF LINE INDICATOR 01615 M01S01394.252l678 ---| NJN IEM4 IF NOT END OF LINE 01616 M01S01395.252l678 ---| LDN 11 ADVANCE TO NEXT LINE 01617 M01S01396.252l678 ---| RAD T1 01618 M01S01397.252l678 ---| LMC ELMDSE+11 01619 M01S01398.252l678 ---| NJN IEM3 IF CONVERSION NOT COMPLETE 01620 M01S01399.252l678 ---| IEM5 LDC **+ELM ISSUE MESSAGE 01621 M01S01400.252l678 ---|* LDC ELMLN*10000+ELM (LONG MESSAGE FORMAT)
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1hp.txt · Last modified: (external edit)