Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.1xy +++| IDENT 1XY,MXY
00002 M00S00002.1xy +++| 1XY TITLE 1XY - 7165/895 (CCC) DMA DRIVER.
00003 M00S00003.1xy +++| PERIPH
00004 M00S00004.1xy +++| BASE MIXED
| Line S00005 Modification History |
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00005.274l797 ---| SST
| Line S00001 Modification History |
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.274l797 +++| SST OSTE,OSTP
00007 M00S00006.1xy +++|*COMMENT 1XY - 7165/895 (CCC) DMA DRIVER.
| Line S00007 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00008 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1985.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00010 M00S00008.1xy +++| 1XY SPACE 4,15
00011 M00S00009.1xy +++|*** 1XY - 7165/895 (CCC) DMA DRIVER.
00012 M00S00010.1xy +++|*
00013 M00S00011.1xy +++|* G. S. ANDERSON. 04/30/84.
00014 M00S00012.1xy +++|* R. M. DANISCH. 02/01/86.
00015 M00S00013.1xy +++|* S. L. BETH. 08/01/86.
00016 M00S00014.1xy +++| 1XY SPACE 4,15
00017 M00S00015.1xy +++|*** *1XY* IS THE CYBER CHANNEL COUPLER (CCC) DMA DRIVER FOR THE
00018 M00S00016.1xy +++|* 7165/895 DISK STORAGE SUBSYSTEM.
00019 M00S00017.1xy +++|*
00020 M00S00018.1xy +++|* THE 7165/895 DISK DRIVES ARE SUPPORTED AS BUFFERED I/O
00021 M00S00019.1xy +++|* DEVICES. THE REQUESTS THAT ARE PROCESSED BY *1XY* ARE
00022 M00S00020.1xy +++|* POSTED BY *CPUMTR* IN THE BUFFERED I/O TABLES IN *CMR*.
00023 M00S00021.1xy +++|* *1XY* INTERLOCKS THE UNITS, LINKS THE REQUESTS, AND COMPLETES
00024 M00S00022.1xy +++|* THE REQUESTS BY ISSUING APPROPRIATE *BIOM* REQUESTS.
00025 M00S00023.1xy +++|*
00026 M00S00024.1xy +++|* *1XY* SCANS THROUGH THE *PUT* ENTRIES IN A CIRCULAR FASHION
00027 M00S00025.1xy +++|* LOOKING FOR REQUESTS TO PROCESS. ONCE A REQUEST IS FOUND
00028 M00S00026.1xy +++|* AND LINKED *1XY* USES THE PHYSICAL DISK AND UEM ADDRESSES IN
00029 M00S00027.1xy +++|* THE CORRESPONDING *CBT* ENTRY TO DETERMINE THE ACTION TO BE
00030 M00S00028.1xy +++|* TAKEN. *1XY* WILL ATTEMPT TO PROCESS CONSECUTIVE SECTOR
00031 M00S00029.1xy +++|* REQUESTS ON THE CURRENT UNIT UNTIL THE END OF THE CYLINDER
00032 M00S00030.1xy +++|* OR A CONSECUTIVE SECTOR REQUEST WAS NOT FOUND. AT THIS
00033 M00S00031.1xy +++|* POINT *1XY* WILL RESUME ITS SEARCH THROUGH THE *PUT* WITH THE
00034 M00S00032.1xy +++|* *PUT* ENTRY IMMEDIATELY FOLLOWING THE ONE JUST PROCESSED.
00035 M00S00033.1xy +++| SPACE 4,10
00036 M00S00034.1xy +++|** MESSAGES.
00037 M00S00035.1xy +++|*
00038 M00S00036.1xy +++|* * 1XY - UNAUTHORIZED CALL.*
00039 M00S00037.1xy +++|* ISSUED TO THE SYSTEM DAYFILE IF *1XY* WAS NOT CALLED FROM
00040 M00S00038.1xy +++|* THE SYSTEM.
00041 M00S00039.1xy +++|*
00042 M00S00040.1xy +++|* * 1XY CHANNEL XX NOT RESPONDING.*
00043 M00S00041.1xy +++|* ISSUED TO INDICATE THE SELECTED CHANNEL DOES NOT RESPOND
00044 M00S00042.1xy +++|* TO BASIC CHANNEL FUNCTIONS.
00045 M00S00043.1xy +++| SPACE 4,10
00046 M00S00044.1xy +++|*** ERRLOG MESSAGES.
00047 M00S00045.1xy +++|*
00048 M00S00046.1xy +++|* *EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.*
00049 M00S00047.1xy +++|*
00050 M00S00048.1xy +++|* A MEDIA DEFECT HAS BEEN ENCOUNTERED ON EQUIPMENT WITH EST
00051 M00S00049.1xy +++|* ORDINAL ORD, LOGICAL TRACK NNNN. A REQUEST HAS BEEN ISSUED
00052 M00S00050.1xy +++|* TO AUTOMATICALLY FLAW THIS TRACK WHEN IT IS DROPPED.
00053 M00S00051.1xy +++|*
00054 M00S00052.1xy +++|* * CCHXX,MA464-DYY.*
00055 M00S00053.1xy +++|*
00056 M00S00054.1xy +++|* FIRMWARE THAT IS LOADED IN THE *CCC*.
00057 M00S00055.1xy +++|* XX = CONCURRENT CHANNEL NUMBER.
00058 M00S00056.1xy +++|* YY = LEVEL FOR FIRMWARE.
00059 M00S00057.1xy +++|*
00060 M00S00058.1xy +++|* *DCXXX, UYY,PS=ZZZZZZ.*
00061 M00S00059.1xy +++|*
00062 M00S00060.1xy +++|* PACK SERIAL NUMBER IDENTIFICATION.
00063 M00S00061.1xy +++|* XXX = EST ORDINAL.
00064 M00S00062.1xy +++|* YY = UNIT NUMBER.
00065 M00S00063.1xy +++|* ZZZZZZ = SERIAL NUMBER FOR HDA.
00066 M00S00064.1xy +++|*
| Line S00065 Modification History |
M01 (Removed by) | 1xy3 |
Seq # *Modification Id* Act
----------------------------+
00067 M01S00065.1xy3 ---|* * HUNG BUSY - GS = XXXX.*
| Line S00001 Modification History |
M01 (Added by) | 1xy3 |
Seq # *Modification Id* Act
----------------------------+
00068 M01S00001.1xy3 +++|* * CCHXX, DCYYY, FORMAT FAILURE.*
00069 M01S00002.1xy3 +++|* * HUNG BUSY - GS = ZZZZ.*
00070 M00S00066.1xy +++|*
00071 M00S00067.1xy +++|* CHANNEL HUNG BUSY DURING FORMAT OPERATION.
| Line S00068 Modification History |
M01 (Removed by) | 1xy3 |
Seq # *Modification Id* Act
----------------------------+
00072 M01S00068.1xy3 ---|* XXXX = THE GENERAL STATUS.
| Line S00003 Modification History |
M01 (Added by) | 1xy3 |
Seq # *Modification Id* Act
----------------------------+
00073 M01S00003.1xy3 +++|* XX = CHANNEL NUMBER.
00074 M01S00004.1xy3 +++|* YYY = EST ORDINAL.
00075 M01S00005.1xy3 +++|* ZZZZ = THE GENERAL STATUS.
00076 M00S00069.1xy +++|
00077 M00S00070.1xy +++|
00078 M00S00071.1xy +++| SPACE 4,10
00079 M00S00072.1xy +++|*** ORGANIZATION OF 7165/895 (MEASUREMENTS IN DECIMAL).
00080 M00S00073.1xy +++|*
00081 M00S00074.1xy +++|* EQUIPMENT TYPE *DC*
00082 M00S00075.1xy +++|*
00083 M00S00076.1xy +++|* PHYSICAL ORGANIZATION:
00084 M00S00077.1xy +++|*
00085 M00S00078.1xy +++|* CM WORDS/PHYSICAL SECTOR 2048
00086 M00S00079.1xy +++|* PHYSICAL SECTORS/PHYSICAL TRACK 3
00087 M00S00080.1xy +++|* PHYSICAL TRACKS/CYLINDER 15
00088 M00S00081.1xy +++|* CYLINDERS/DEVICE 885 * N (0<N<3)
00089 M00S00082.1xy +++|* CM WORDS/DEVICE 79,749,120 * N
00090 M00S00083.1xy +++|*
00091 M00S00084.1xy +++|* LOGICAL ORGANIZATION:
00092 M00S00085.1xy +++|*
00093 M00S00086.1xy +++|* CM WORDS/LOGICAL SECTOR 64
00094 M00S00087.1xy +++|* LOGICAL SECTORS/PHYSICAL SECTOR 32
00095 M00S00088.1xy +++|* LOGICAL SECTORS/LOGICAL TRACK 704 * N
00096 M00S00089.1xy +++|* LOGICAL TRACKS/CYLINDER 2
00097 M00S00090.1xy +++|* LOGICAL TRACKS/DEVICE 1770
00098 M00S00091.1xy +++|*
00099 M00S00092.1xy +++|* MAXIMUM DATA RATE 400.00 K CM WORDS/SECOND
00100 M00S00093.1xy +++| EJECT
00101 M00S00094.1xy +++|*** SPECIAL PROGRAMMING NOTES.
00102 M00S00095.1xy +++|*
00103 M00S00096.1xy +++|* THE FOLLOWING IS A LIST OF SPECIAL NOTES THAT SHOULD BE
00104 M00S00097.1xy +++|* READ AND UNDERSTOOD BEFORE ANY MODIFICATIONS ARE MADE TO
00105 M00S00098.1xy +++|* THIS PROGRAM.
00106 M00S00099.1xy +++|*
00107 M00S00100.1xy +++|*
00108 M00S00101.1xy +++|* 1) *1XM*, *1XY* AND *1HP* ARE VERY SIMILAR IN DESIGN. MOST
00109 M00S00102.1xy +++|* FIXES APPLIED TO ONE OF THESE DRIVERS WILL ALSO APPLY TO
00110 M00S00103.1xy +++|* THE OTHERS.
00111 M00S00104.1xy +++|*
00112 M00S00105.1xy +++|* 2) WHERE POSSIBLE, *CMR* POINTERS HAVE BEEN PLUGGED BY THE
00113 M00S00106.1xy +++|* PRESET ROUTINE TO IMPROVE THE EXECUTION SPEED OF THE
00114 M00S00107.1xy +++|* PROGRAM AND TO MINIMIZE THE AMOUNT OF CODE.
00115 M00S00108.1xy +++|*
00116 M00S00109.1xy +++|* 3) BECAUSE *1XY* ISSUES ALL *BIOM* COMPLETION REQUESTS
00117 M00S00110.1xy +++|* WITHOUT WAITING FOR FUNCTION COMPLETION, THE *MONITOR*
00118 M00S00111.1xy +++|* MACRO HAS BEEN REDEFINED TO ENSURE THERE IS NO PENDING
00119 M00S00112.1xy +++|* MONITOR REQUEST AT THE TIME ANOTHER IS ABOUT TO BE
00120 M00S00113.1xy +++|* ISSUED.
00121 M00S00114.1xy +++| EJECT
00122 M00S00115.1xy +++|
00123 M00S00116.1xy +++|* COMMON DECKS.
00124 M00S00117.1xy +++|
00125 M00S00118.1xy +++|
00126 M00S00119.1xy +++|*CALL COMPMAC
00127 M00S00120.1xy +++| RICHI$ EQU 1 SELECT DEFERRED INSTRUCTION MODIFICATION
00128 M00S00121.1xy +++|*CALL COMPCHI
00129 M00S00122.1xy +++|*CALL COMPIOU
00130 M00S00123.1xy +++|*CALL COMSCPS
00131 M00S00124.1xy +++|*CALL COMSDFS
00132 M00S00125.1xy +++| LIST X
00133 M00S00126.1xy +++|*CALL COMSHIO
00134 M00S00127.1xy +++| LIST *
00135 M00S00128.1xy +++|*CALL COMSLSD
00136 M00S00129.1xy +++|*CALL COMSMSC
00137 M00S00130.1xy +++| LIST X
00138 M00S00131.1xy +++|*CALL COMSMSP
00139 M00S00132.1xy +++| LIST *
00140 M00S00133.1xy +++|*CALL COMSMST
00141 M00S00134.1xy +++|*CALL COMSPIM
00142 M00S00135.1xy +++|*CALL COMS1DS
00143 M00S00136.1xy +++| TITLE CONSTANTS, DEFINITIONS, AND MACROS.
00144 M00S00137.1xy +++| 1XY SPACE 4,10
00145 M00S00138.1xy +++|**** DIRECT CELL ASSIGNMENTS.
00146 M00S00139.1xy +++|
00147 M00S00140.1xy +++|
00148 M00S00141.1xy +++| BS EQU 15 BLOCK SIZE FOR DATA TRANSFER
00149 M00S00142.1xy +++| RS EQU 16 ERROR RECOVERY STATUS
00150 M00S00143.1xy +++| ER EQU 17 ERROR RECOVERY IN PROGRESS
00151 M00S00144.1xy +++| CC EQU 20 COMPLETION COUNT
00152 M00S00145.1xy +++| S1 EQU 21 SCRATCH
00153 M00S00146.1xy +++| EC EQU 22 ERROR CODE
00154 M00S00147.1xy +++| RW EQU 23 READ/WRITE FLAG
00155 M00S00148.1xy +++| IL EQU 24 *PUT* INTERLOCK FLAG
00156 M00S00149.1xy +++| SR EQU 25 - 31 SCRATCH (5 CELLS)
| Line S00001 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00157 M01S00001.ns2769 +++| WB EQU SR - SR+4 FOR *COMP1MD* COMPATIBILITY
00158 M00S00150.1xy +++| PR EQU 32 *PUT* REQUEST PROCESSING ACTIVE
00159 M00S00151.1xy +++| CN EQU 33 - 37 SCRATCH (5 CELLS)
00160 M00S00152.1xy +++| SC EQU 40 UNUSED
00161 M00S00153.1xy +++| FU EQU 41 - 42 UEM FWA (2 CELLS)
00162 M00S00154.1xy +++| UA EQU 43 - 44 UEM ADDRESS (2 CELLS)
00163 M00S00155.1xy +++| EP EQU 45 ERROR ON PREVIOUS SECTOR
00164 M00S00156.1xy +++| CS EQU 46 CHANNEL STATUS
00165 M00S00157.1xy +++| NB EQU 47 NEXT BUFFER ORDINAL
00166 M00S00158.1xy +++| PB EQU 50 PREVIOUS BUFFER ORDINAL
00167 M00S00159.1xy +++| CB EQU 51 CURRENT BUFFER ORDINAL
00168 M00S00160.1xy +++| TB EQU 52 TOTAL CBT COUNT
00169 M00S00161.1xy +++| GS EQU 53 GENERAL STATUS
00170 M00S00162.1xy +++|* EQU 54 CHANNEL NUMBER (FROM INPUT REGISTER)
00171 M00S00163.1xy +++| TI EQU 57 *TPOR* INDEX
00172 M00S00164.1xy +++| CA EQU 60 - 64 CURRENT PHYSICAL ADDRESS (5 CELLS)
00173 M00S00165.1xy +++| RC EQU 65 RETRY COUNT
00174 M00S00166.1xy +++| PO EQU 66 CURRENT *PUT* ORDINAL
00175 M00S00167.1xy +++| S2 EQU 67 SCRATCH
00176 M00S00168.1xy +++| 1XY SPACE 4,10
00177 M00S00169.1xy +++|** DRIVER FUNCTION CODES.
00178 M00S00170.1xy +++|
00179 M00S00171.1xy +++|
00180 M00S00172.1xy +++| FCSK EQU 1 SEEK 1 TO 1 INTERLACE
00181 M00S00173.1xy +++| FCRD EQU 4 READ
00182 M00S00174.1xy +++| FCWR EQU 5 WRITE
00183 M00S00175.1xy +++| FCOC EQU 10 OPERATION COMPLETE
00184 M00S00176.1xy +++| FCGS EQU 12 GENERAL STATUS
00185 M00S00177.1xy +++| FCCO EQU 14 CONTINUE
00186 M00S00178.1xy +++| FCFP EQU 16 FORMAT PACK
00187 M00S00179.1xy +++| FCDS EQU 23 DETAILED STATUS
00188 M00S00180.1xy +++| FCRU EQU 31 READ UTILITY SECTOR
00189 M00S00181.1xy +++| FCRP EQU 34 READ PACK SERIAL NUMBER
00190 M00S00182.1xy +++| FCAL EQU 414 AUTOLOAD
00191 M00S00183.1xy +++| 1XY SPACE 4,10
00192 M00S00184.1xy +++|** 170 DMA ADAPTER FUNCTIONS.
00193 M00S00185.1xy +++|
00194 M00S00186.1xy +++|
00195 M00S00187.1xy +++| FCMC EQU 100000+1S17 MASTER CLEAR ADAPTER
00196 M00S00188.1xy +++| FCCT EQU 101000+1S17 CLEAR T REGISTERS
00197 M00S00189.1xy +++| FCDI EQU 102000+1S17 DMA INPUT
00198 M00S00190.1xy +++| FCDO EQU 103000+1S17 DMA OUTPUT
00199 M00S00191.1xy +++| FCCD EQU 104000+1S17 CLEAR DMA MODE
00200 M00S00192.1xy +++| FCDT EQU 106000+1S17 DISABLE TEST MODE
00201 M00S00193.1xy +++| FCET EQU 107000+1S17 ENABLE TEST MODE
00202 M00S00194.1xy +++| FCRC EQU 110000+1S17 READ CONTROL REGISTERS
00203 M00S00195.1xy +++| FCWC EQU 111000+1S17 WRITE CONTROL REGISTERS
00204 M00S00196.1xy +++| FCRE EQU 112000+1S17 READ ERROR STATUS REGISTER
00205 M00S00197.1xy +++| FCRO EQU 114000+1S17 READ OPERATIONAL STATUS REGISTER
00206 M00S00198.1xy +++| FCRT EQU 116000+1S17 READ T REGISTER
00207 M00S00199.1xy +++| FCWT EQU 117000+1S17 WRITE T PRIME REGISTER
00208 M00S00200.1xy +++|
00209 M00S00201.1xy +++|
00210 M00S00202.1xy +++|* 170 DMA OPERATIONAL STATUS.
00211 M00S00203.1xy +++|
00212 M00S00204.1xy +++| OSOF EQU 4000 OUTPUT BUFFER FULL
00213 M00S00205.1xy +++| OSIF EQU 2000 INPUT BUFFER FULL
00214 M00S00206.1xy +++| OSID EQU 1000 INPUT DATA AVAILABLE
00215 M00S00207.1xy +++| OSFT EQU 0400 FAST TRANSFER MODE
00216 M00S00208.1xy +++| OSEC EQU 0200 EXTERNAL CLOCK PRESENT
00217 M00S00209.1xy +++| OSTM EQU 0100 TEST MODE
00218 M00S00210.1xy +++| OSZC EQU 0040 PP WORD COUNT EQUAL ZERO
00219 M00S00211.1xy +++| OSDO EQU 0020 DMA OUTPUT
00220 M00S00212.1xy +++| OSDI EQU 0010 DMA INPUT
00221 M00S00213.1xy +++| OSTH EQU 0004 DMA TRANSFER HALTED
00222 M00S00214.1xy +++| OSTE EQU 0002 T PRIME REGISTER EMPTY
00223 M00S00215.1xy +++| OSTP EQU 0001 TRANSFER IN PROGRESS
00224 M00S00216.1xy +++| SPACE 4,15
00225 M00S00217.1xy +++|** DETAILED STATUS CONSTANTS.
00226 M00S00218.1xy +++|
00227 M00S00219.1xy +++|
| Line S00220 Modification History |
M01 (Removed by) | ns2508 |
Seq # *Modification Id* Act
----------------------------+
00228 M01S00220.ns2508 ---| SB7 EQU 4 SENSE BYTE 7
| Line S00001 Modification History |
M01 (Added by) | ns2508 |
Seq # *Modification Id* Act
----------------------------+
00229 M01S00001.ns2508 +++| SB0 EQU 0 SENSE BYTE 0
| Line S00001 Modification History |
M01 (Added by) | ns2537 |
Seq # *Modification Id* Act
----------------------------+
00230 M01S00001.ns2537 +++| SB7 EQU 4 SENSE BYTE 7 STATUS WORD OFFSET
00231 M00S00221.1xy +++| DCF EQU 1 DEVICE CHECK FORMAT
| Line S00002 Modification History |
M01 (Added by) | ns2537 |
Seq # *Modification Id* Act
----------------------------+
00232 M01S00002.ns2537 +++| FM6 EQU 6 FORMAT 6 MESSAGE
| Line S00222 Modification History |
M01 (Removed by) | ns2508 |
Seq # *Modification Id* Act
----------------------------+
00233 M01S00222.ns2508 ---| DNRM EQU 11 DEVICE NOT READY MESSAGE
00234 M00S00223.1xy +++| SPACE 4,15
00235 M00S00224.1xy +++|** ASSEMBLY CONSTANTS.
00236 M00S00225.1xy +++|
00237 M00S00226.1xy +++|
00238 M00S00227.1xy +++| BFRL EQU 10 *EMB* FLUSH RETRY LIMIT
00239 M00S00228.1xy +++| CH EQU 0 MASS STORAGE CHANNEL
00240 M00S00229.1xy +++| FCSKL EQU 4 SEEK PARAMETER WORD COUNT
00241 M00S00230.1xy +++| FPBL EQU 22 FORMAT PACK PARAMETER BLOCK LENGTH
00242 M00S00231.1xy +++| HLEN EQU 4*5 LENGTH OF SECTOR HEADER
| Line S00232 Modification History |
M01 (Removed by) | ns2510 |
Seq # *Modification Id* Act
----------------------------+
00243 M01S00232.ns2510 ---| MAXU EQU 16D MAXIMUM NUMBER OF UNITS PER CHANNEL
| Line S00001 Modification History |
M01 (Added by) | ns2510 |
Seq # *Modification Id* Act
----------------------------+
00244 M01S00001.ns2510 +++| MAXU EQU 64D MAXIMUM NUMBER OF UNITS PER CHANNEL
00245 M00S00233.1xy +++| MFRL EQU 10 MONITOR FUNCTION RETRY LIMIT
00246 M00S00234.1xy +++| MMXN EQU 10D MAXIMUM NUMBER OF EXCHANGE RETRIES
00247 M00S00235.1xy +++| PCRL EQU 10 PP CALL RETRY LIMIT
00248 M00S00236.1xy +++| PSLT EQU 26 PHYSICAL SECTORS PER LOGICAL TRACK
00249 M00S00237.1xy +++| PSPT EQU 3 PHYSICAL SECTORS PER PHYSICAL TRACK
00250 M00S00238.1xy +++| SSIZ EQU 1000 SECTOR SIZE FLAG FOR SEEK
00251 M00S00239.1xy +++| TPORE EQU 1 LENGTH OF *TPOR* ENTRY
00252 M00S00240.1xy +++|****
| Line S00241 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00253 M01S00241.ns2769 ---| CBRW SPACE 4,20
| Line S00002 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00254 M01S00002.ns2769 +++| SPACE 4,20
00255 M00S00242.1xy +++|** MACROS.
| Line S00003 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00256 M01S00003.ns2769 +++| TBLM SPACE 4,10
00257 M01S00004.ns2769 +++|** TBLM - CREATE TABLE ENTRY MACRO.
00258 M01S00005.ns2769 +++|*
00259 M01S00006.ns2769 +++|*NAM TBLM
00260 M01S00007.ns2769 +++|*
00261 M01S00008.ns2769 +++|* ENTRY NAM = TABLE NAME.
00262 M01S00009.ns2769 +++|*
00263 M01S00010.ns2769 +++|* EXIT NAM_E MACRO DEFINED.
00264 M01S00011.ns2769 +++|
00265 M01S00012.ns2769 +++|
00266 M01S00013.ns2769 +++| PURGMAC TBLM
00267 M01S00014.ns2769 +++|
00268 M01S00015.ns2769 +++| MACRO TBLM,NAM
00269 M01S00016.ns2769 +++| PURGMAC NAM_E
00270 M01S00017.ns2769 +++| NAM_E MACRO ADDR
00271 M01S00018.ns2769 +++| LOCAL A
00272 M01S00019.ns2769 +++| MACREF NAM_E
00273 M01S00020.ns2769 +++| NOREF A
00274 M01S00021.ns2769 +++| A EQU ADDR
00275 M01S00022.ns2769 +++| T_NAM RMT
00276 M01S00023.ns2769 +++| CON A
00277 M01S00024.ns2769 +++| RMT
00278 M01S00025.ns2769 +++| TBLM ENDM
00279 M01S00026.ns2769 +++| CBTE SPACE 4,10
00280 M01S00027.ns2769 +++|** CBTE - CONTROL BUFFER TABLE ENTRY.
00281 M01S00028.ns2769 +++|*
00282 M01S00029.ns2769 +++|* THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TCBT*
00283 M01S00030.ns2769 +++|* THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH
00284 M01S00031.ns2769 +++|* REQUIRES THE FWA OF THE CONTROL BUFFER TABLE.
00285 M01S00032.ns2769 +++|*
00286 M01S00033.ns2769 +++|* CBTE ADDR
00287 M01S00034.ns2769 +++|*
00288 M01S00035.ns2769 +++|* ENTRY (ADDR) = ADDRESS OF INSTRUCTION.
00289 M01S00036.ns2769 +++|*
00290 M01S00037.ns2769 +++|* EXIT ADDRESS IS ADDED TO THE REMOTE BLOCK *TCBT*.
00291 M01S00038.ns2769 +++|
00292 M01S00039.ns2769 +++|
00293 M01S00040.ns2769 +++| CBT TBLM
00294 M00S00243.1xy +++| CCBA SPACE 4,15
00295 M00S00244.1xy +++|** CCBA - COMPUTE *CBT* ENTRY ADDRESS.
| Line S00041 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00296 M01S00041.ns2769 +++|*
00297 M01S00042.ns2769 +++|* THIS MACRO SETS (A) TO THE REQUESTED *CBT* ENTRY ADDRESS.
00298 M00S00245.1xy +++|*
00299 M00S00246.1xy +++|* CCBA W,A
00300 M00S00247.1xy +++|*
00301 M00S00248.1xy +++|* *W* - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS.
00302 M00S00249.1xy +++|* *A* - IF NON-BLANK, BUFFER ORDINAL IS IN ACCUMULATOR.
00303 M00S00250.1xy +++|*
00304 M00S00251.1xy +++|* ENTRY (A) = BUFFER ORDINAL IF *A* PARAMETER IS NON-BLANK.
00305 M00S00252.1xy +++|* (CB) = CURRENT BUFFER ORDINAL.
00306 M00S00253.1xy +++|*
00307 M00S00254.1xy +++|* EXIT (A) = *CBT* ENTRY ADDRESS + WORD OFFSET.
00308 M00S00255.1xy +++|
00309 M00S00256.1xy +++|
00310 M00S00257.1xy +++| PURGMAC CCBA
00311 M00S00258.1xy +++|
00312 M00S00259.1xy +++| CCBA MACRO W,A
| Line S00260 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00313 M01S00260.ns2769 ---| LOCAL FWACB
00314 M00S00261.1xy +++| MACREF CCBA
00315 M00S00262.1xy +++| IFC EQ,$A$$,1
00316 M00S00263.1xy +++| LDD CB
00317 M00S00264.1xy +++| SHN CBTLS
| Line S00265 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00318 M01S00265.ns2769 ---| FWACB ADC W
00319 M01S00266.ns2769 ---| CBTA RMT
| Line S00267 Modification History |
M01 (Removed by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00320 M02S00267.ns2769 ---| CON FWACB+1
| Line S00001 Modification History |
M01 (Added by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00321 M02S00001.ns2769 ---| CON FWACB
| Line S00268 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00322 M01S00268.ns2769 ---| CBTA RMT
| Line S00043 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00323 M01S00043.ns2769 +++| CBTE *
00324 M01S00044.ns2769 +++| ADC W
00325 M00S00269.1xy +++| CCBA ENDM
| Line S00045 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00326 M01S00045.ns2769 +++| PUTE SPACE 4,10
00327 M01S00046.ns2769 +++|** PUTE - PHYSICAL UNIT TABLE ENTRY.
00328 M01S00047.ns2769 +++|*
00329 M01S00048.ns2769 +++|* THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TPUT*
00330 M01S00049.ns2769 +++|* THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH
00331 M01S00050.ns2769 +++|* REQUIRES THE FWA OF THE PHYSICAL UNIT TABLE.
00332 M01S00051.ns2769 +++|*
00333 M01S00052.ns2769 +++|* PUTE ADDR
00334 M01S00053.ns2769 +++|*
00335 M01S00054.ns2769 +++|* ENTRY (ADDR) = ADDRESS OF INSTRUCTION.
00336 M01S00055.ns2769 +++|*
00337 M01S00056.ns2769 +++|* EXIT ADDRESS IS ADDED TO THE REMOTE BLOCK *TPUT*.
00338 M01S00057.ns2769 +++|
00339 M01S00058.ns2769 +++|
00340 M01S00059.ns2769 +++| PUT TBLM
00341 M00S00270.1xy +++| CPTA SPACE 4,10
00342 M00S00271.1xy +++|** CPTA - COMPUTE *PUT* ENTRY ADDRESS.
| Line S00060 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00343 M01S00060.ns2769 +++|*
00344 M01S00061.ns2769 +++|* THIS MACRO SETS (A) TO THE REQUESTED *PUT* ENTRY ADDRESS.
00345 M00S00272.1xy +++|*
00346 M00S00273.1xy +++|* CPTA W,A
00347 M00S00274.1xy +++|*
00348 M00S00275.1xy +++|* *W* - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS.
00349 M00S00276.1xy +++|* *A* - IF NON-BLANK, *PUT* ORDINAL IS IN ACCUMULATOR.
00350 M00S00277.1xy +++|*
00351 M00S00278.1xy +++|* ENTRY (A) = *PUT* ORDINAL IF *A* PARAMETER IS NON-BLANK.
00352 M00S00279.1xy +++|* (PO) = *PUT* ORDINAL.
00353 M00S00280.1xy +++|*
00354 M00S00281.1xy +++|* EXIT (A) = *PUT* ENTRY ADDRESS + WORD OFFSET.
00355 M00S00282.1xy +++|
00356 M00S00283.1xy +++|
00357 M00S00284.1xy +++| PURGMAC CPTA
00358 M00S00285.1xy +++|
00359 M00S00286.1xy +++| CPTA MACRO W,A
| Line S00287 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00360 M01S00287.ns2769 ---| LOCAL FWAPUT
00361 M00S00288.1xy +++| MACREF CPTA
00362 M00S00289.1xy +++| IFC EQ,$A$$,1
00363 M00S00290.1xy +++| LDD PO
00364 M00S00291.1xy +++| SHN PUTLS
| Line S00292 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00365 M01S00292.ns2769 ---| FWAPUT ADC W
00366 M01S00293.ns2769 ---| PUTA RMT
| Line S00294 Modification History |
M01 (Removed by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00367 M02S00294.ns2769 ---| CON FWAPUT+1
| Line S00002 Modification History |
M01 (Added by) | 271l716 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00368 M02S00002.ns2769 ---| CON FWAPUT
| Line S00295 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00369 M01S00295.ns2769 ---| RMT
| Line S00062 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00370 M01S00062.ns2769 +++| PUTE *
00371 M01S00063.ns2769 +++| ADC W
00372 M00S00296.1xy +++| CPTA ENDM
| Line S00003 Modification History |
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00373 M01S00003.271l716 +++| CSHN SPACE 4,10
00374 M01S00004.271l716 +++|** CSHN - GENERATE CALCULATED SHIFT INSTRUCTION.
00375 M01S00005.271l716 +++|*
00376 M01S00006.271l716 +++|* CSHN A
00377 M01S00007.271l716 +++|*
00378 M01S00008.271l716 +++|* *A* = MNEMONIC DEFINING BIT POSITION.
00379 M01S00009.271l716 +++|*
00380 M01S00010.271l716 +++|* ENTRY .M = SHIFT COUNT FROM PREVIOUS CALL.
00381 M01S00011.271l716 +++|*
00382 M01S00012.271l716 +++|* EXIT .M = SHIFT COUNT TO REALIGN ACCUMULATOR.
00383 M01S00013.271l716 +++|* .N = SHIFT TO MOVE *A* TO SIGN POSITION.
00384 M01S00014.271l716 +++|
00385 M01S00015.271l716 +++|
00386 M01S00016.271l716 +++| PURGMAC CSHN
00387 M01S00017.271l716 +++|
00388 M01S00018.271l716 +++| CSHN MACRO A
00389 M01S00019.271l716 +++| .N SET .M+21-A+A/12D*12D
00390 M01S00020.271l716 +++| .M SET .M+22-.N
00391 M01S00021.271l716 +++| IFGT .N,21,1
00392 M01S00022.271l716 +++| .N SET .N-22
00393 M01S00023.271l716 +++| SHN .N
00394 M01S00024.271l716 +++| CSHN ENDM
| Line S00064 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00395 M01S00064.ns2769 +++| EMBE SPACE 4,10
00396 M01S00065.ns2769 +++|** EMBE - ERROR MESSAGE TABLE ENTRY.
00397 M01S00066.ns2769 +++|*
00398 M01S00067.ns2769 +++|* THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TEMB*
00399 M01S00068.ns2769 +++|* THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH
00400 M01S00069.ns2769 +++|* REQUIRES THE FWA OF THE ERROR MESSAGE TABLE.
00401 M01S00070.ns2769 +++|*
00402 M01S00071.ns2769 +++|* EMBE ADDR
00403 M01S00072.ns2769 +++|*
00404 M01S00073.ns2769 +++|* ENTRY (ADDR) = ADDRESS OF INSTRUCTION.
00405 M01S00074.ns2769 +++|*
00406 M01S00075.ns2769 +++|* EXIT ADDRESS IS ADDED TO THE REMOTE BLOCK *TEMB*.
00407 M01S00076.ns2769 +++|
00408 M01S00077.ns2769 +++|
00409 M01S00078.ns2769 +++| EMB TBLM
00410 M00S00297.1xy +++| MONITOR SPACE 4,15
00411 M00S00298.1xy +++|** MONITOR - ISSUE MONITOR FUNCTION.
00412 M00S00299.1xy +++|*
00413 M00S00300.1xy +++|* THIS MACRO PROVIDES FUNCTIONALITY IDENTICAL TO THAT OF THE
00414 M00S00301.1xy +++|* *MONITOR* MACRO DEFINED IN *COMPMAC*, WHILE ENSURING ANY
00415 M00S00302.1xy +++|* PENDING *BIOM* MONITOR FUNCTION IS COMPLETED BEFORE THE NEXT
00416 M00S00303.1xy +++|* MONITOR FUNCTION IS ISSUED.
00417 M00S00304.1xy +++|*
00418 M00S00305.1xy +++|* MONITOR F
00419 M00S00306.1xy +++|*
00420 M00S00307.1xy +++|* *F* - MONITOR FUNCTION CODE.
00421 M00S00308.1xy +++|*
00422 M00S00309.1xy +++|* EXIT (A) = 0.
00423 M00S00310.1xy +++|* (CM - CM+4) = COMPLETED PP OUTPUT REGISTER IMAGE.
00424 M00S00311.1xy +++|*
00425 M00S00312.1xy +++|* CALLS IMF.
00426 M00S00313.1xy +++|
00427 M00S00314.1xy +++|
00428 M00S00315.1xy +++| PURGMAC MONITOR
00429 M00S00316.1xy +++|
00430 M00S00317.1xy +++| MONITOR MACRO F
00431 M00S00318.1xy +++| MACREF MONITOR
00432 M00S00319.1xy +++| LDK F
00433 M00S00320.1xy +++| RJM IMF
00434 M00S00321.1xy +++| MONITOR ENDM
00435 M00S00322.1xy +++| 1XY SPACE 4
00436 M00S00323.1xy +++| RICHI REDEFINE CHANNEL INSTRUCTIONS
00437 M00S00324.1xy +++| TITLE MAIN PROGRAM.
00438 M00S00325.1xy +++|** MXY - 895 DMA DRIVER.
00439 M00S00326.1xy +++|
00440 M00S00327.1xy +++|
00441 M00S00328.1xy +++| ORG PPFW
00442 M00S00329.1xy +++| MXY RJM PRS PRESET
00443 M00S00330.1xy +++| MXY SPACE 4
00444 M00S00331.1xy +++|** MST - MASTER MAIN PROGRAM.
00445 M00S00332.1xy +++|
00446 M00S00333.1xy +++|
00447 M00S00334.1xy +++| MST RJM CCR CHECK FOR CHANNEL REQUESTED/DOWN
00448 M00S00335.1xy +++| MJN MST1 IF CHANNEL GLOBALLY DOWN
00449 M00S00336.1xy +++| RJM SUQ SCAN UNIT QUEUE
00450 M00S00337.1xy +++| ZJN MST IF NO ELIGIBLE ENTRY FOUND
00451 M00S00338.1xy +++| RJM ISF ISSUE SEEK FUNCTION
00452 M00S00339.1xy +++| NJN MST IF UNIT NOT ON CYLINDER
00453 M00S00340.1xy +++| RJM PDT PERFORM DATA TRANSFER
00454 M00S00341.1xy +++| UJN MST LOOP
00455 M00S00342.1xy +++|
00456 M00S00343.1xy +++| MST1 RJM DCH RELEASE CHANNEL
00457 M00S00344.1xy +++| MONITOR DPPM DROP PP
00458 M00S00345.1xy +++| LJM PPR ENTER IDLE LOOP
00459 M00S00346.1xy +++| TPOR SPACE 4,10
00460 M00S00347.1xy +++|** TPOR - TABLE OF *PUT* ORDINALS.
00461 M00S00348.1xy +++|*
00462 M00S00349.1xy +++|* THIS TABLE CONTAINS THE ORDINALS OF THE *PUT* ENTRIES FOR ALL
00463 M00S00350.1xy +++|* UNITS ACCESSED BY THIS DRIVER-S CHANNEL.
00464 M00S00351.1xy +++|*
00465 M00S00352.1xy +++|* ENTRY = 1 WORD.
00466 M00S00353.1xy +++|*
| Line S00354 Modification History |
M01 (Removed by) | ns2643 |
Seq # *Modification Id* Act
----------------------------+
00467 M01S00354.ns2643 ---|*T 5/ 0, 1/ I, 6/ *PUT* ORDINAL
00468 M01S00355.ns2643 ---|* I EST CHANNEL BYTE INDEX.
| Line S00001 Modification History |
M01 (Added by) | ns2643 |
Seq # *Modification Id* Act
----------------------------+
00469 M01S00001.ns2643 +++|*T 11/ PUT ,1/I
00470 M01S00002.ns2643 +++|* PUT *PUT* ORDINAL OF DEVICE.
00471 M01S00003.ns2643 +++|* I EST CHANNEL BYTE INDEX.
00472 M00S00356.1xy +++|*
00473 M00S00357.1xy +++|* TABLE IS TERMINATED BY A ZERO BYTE.
00474 M00S00358.1xy +++|
00475 M00S00359.1xy +++|
00476 M00S00360.1xy +++| TPOR BSSZ TPORE*MAXU
00477 M00S00361.1xy +++| CON 0 TERMINATE *TPOR* TABLE
00478 M00S00362.1xy +++| CCR SPACE 4,20
00479 M00S00363.1xy +++|** CCR - CHECK FOR CHANNEL REQUESTED OR DOWN.
00480 M00S00364.1xy +++|*
00481 M00S00365.1xy +++|* THIS ROUTINE CHECKS TO SEE IF THE CHANNEL TO WHICH THIS PP IS
00482 M00S00366.1xy +++|* DEDICATED IS BEING REQUESTED BY ANOTHER PP OR IS GLOBALLY
00483 M00S00367.1xy +++|* DOWN. IF THE CHANNEL IS REQUESTED BY ANOTHER PP, IT WILL BE
00484 M00S00368.1xy +++|* RELEASED AND WILL BE REQUESTED AGAIN FOLLOWING A ONE SECOND
00485 M00S00369.1xy +++|* DELAY. IF THE CHANNEL IS GLOBALLY DOWN, THE DRIVER DROP FLAG
00486 M00S00370.1xy +++|* WILL BE SET IN THE CONTROLWARE TABLE AND THE CHANNEL WILL BE
00487 M00S00371.1xy +++|* RELEASED.
00488 M00S00372.1xy +++|*
00489 M00S00373.1xy +++|* EXIT (A) .LT. 0 IF CHANNEL IS GLOBALLY DOWN.
00490 M00S00374.1xy +++|*
00491 M00S00375.1xy +++|* USES CM - CM+4.
00492 M00S00376.1xy +++|*
| Line S00377 Modification History |
M01 (Removed by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
00493 M01S00377.1xy2 ---|* CALLS DCH, DFM, FNC, RCH, RCS, SCD.
| Line S00001 Modification History |
M01 (Added by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
00494 M01S00001.1xy2 +++|* CALLS DCH, FNC, RCH, SCD.
00495 M00S00378.1xy +++|*
00496 M00S00379.1xy +++|* MACROS DELAY.
00497 M00S00380.1xy +++|
00498 M00S00381.1xy +++|
00499 M00S00382.1xy +++| CCR4 RJM SCD SET DRIVER DROP FLAG
00500 M00S00383.1xy +++| LCN 0 SET DROPOUT REPLY
00501 M00S00384.1xy +++|
00502 M00S00385.1xy +++| CCR SUBR ENTRY/EXIT
00503 M00S00386.1xy +++| LDC ** READ CHANNEL TABLE
00504 M00S00387.1xy +++| CCRA EQU *-1 (CM ADDRESS OF ENTRY)
00505 M00S00388.1xy +++| CRD CM
00506 M00S00389.1xy +++| LDD CM+** CHECK REQUESTED FLAG
00507 M00S00390.1xy +++| CCRB EQU *-1 (BYTE ADDRESS OF ENTRY)
00508 M00S00391.1xy +++| SHN 21-5
00509 M00S00392.1xy +++| MJN CCR4 IF CHANNEL IS GLOBALLY DOWN
00510 M00S00393.1xy +++| SHN 22+5-13
00511 M00S00394.1xy +++| PJN CCRX IF CHANNEL NOT REQUESTED
00512 M00S00395.1xy +++| RJM DCH RELEASE CHANNEL
00513 M00S00396.1xy +++| CCR1 DELAY
00514 M00S00397.1xy +++| RJM RCH REQUEST CHANNEL
00515 M00S00398.1xy +++| ZJN CCR1 IF CHANNEL NOT ASSIGNED
00516 M00S00399.1xy +++| DCN CH+40 INSURE CHANNEL IN CORRECT STATE
00517 M00S00400.1xy +++| LDC FCCT CLEAR THE T REGISTER
00518 M00S00401.1xy +++| RJM FNN
00519 M00S00402.1xy +++| MJN CCR3 IF ERROR ON CHANNEL ACCESS
00520 M00S00403.1xy +++| LDC FCWC WRITE ADAPTER CONTROL REGISTER
00521 M00S00404.1xy +++| RJM FNC
00522 M00S00405.1xy +++| MJN CCR3 IF ERROR ON CHANNEL ACCESS
| Line S00406 Modification History |
M01 (Removed by) | 1xy9 |
Seq # *Modification Id* Act
----------------------------+
00523 M01S00406.1xy9 ---| LDC 20000 SELECT 60 BIT CM WORD ACCESS
| Line S00001 Modification History |
M01 (Added by) | 1xy9 |
Seq # *Modification Id* Act
----------------------------+
00524 M01S00001.1xy9 +++| LDC 20400 60 BIT CM WORD ACCESS AND NO ERROR CLEAR
00525 M00S00407.1xy +++| OAN CH
00526 M00S00408.1xy +++| CCR2 SBN 1
00527 M00S00409.1xy +++| ZJN CCR3 IF TIMEOUT ON CONTROL REGISTER WRITE
00528 M00S00410.1xy +++| FJM CCR2,CH IF DATA NOT ACCEPTED
| Line S00411 Modification History |
M01 (Removed by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
00529 M01S00411.1xy2 ---| DCN CH+40
| Line S00002 Modification History |
M01 (Added by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
00530 M01S00002.1xy2 +++| CCR2.1 DCN CH+40
00531 M00S00412.1xy +++| LJM CCRX RETURN
00532 M00S00413.1xy +++|
| Line S00414 Modification History |
M01 (Removed by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
00533 M01S00414.1xy2 ---| CCR3 DCN CH+40
| Line S00415 Modification History |
M01 (Removed by) | 1xy2 |
M02 (Removed by) | 271l716 |
Seq # *Modification Id* Act
----------------------------+
00534 M02S00415.271l716 ---| LDD IR+4 SET CHANNEL IN MESSAGE
00535 M02S00416.271l716 ---| RJM C2D
00536 M02S00417.271l716 ---| STM MSGA+7
| Line S00418 Modification History |
M01 (Removed by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
00537 M01S00418.1xy2 ---| LDC MSGA+400000
00538 M01S00419.1xy2 ---| RJM DFM
00539 M01S00420.1xy2 ---|* LDN 0
00540 M01S00421.1xy2 ---| RJM RCS DOWN THE CHANNEL
00541 M01S00422.1xy2 ---| LJM CCR4 DROP THE DRIVER
| Line S00003 Modification History |
M01 (Added by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
00542 M01S00003.1xy2 +++|* PREVENT ANY I/O FROM BEING PERFORMED ON THIS CHANNEL. THE
00543 M01S00004.1xy2 +++|* UNIT QUEUES MUST CONTINUE TO BE SERVICED BY THIS DRIVER TO
00544 M01S00005.1xy2 +++|* ENSURE THAT CHANNEL SPECIFIC REQUESTS ARE PROCESSED.
00545 M01S00006.1xy2 +++|* ALTHOUGH THIS DRIVER WILL BE FREE TO SELECT I/O REQUESTS, ANY
00546 M01S00007.1xy2 +++|* ATTEMPT TO ISSUE A CHANNEL FUNCTION WILL RESULT IN A *CHANNEL
00547 M01S00008.1xy2 +++|* FAILURE* ERROR. THE ERROR PROCESSOR WILL SET THE SUSPECT
00548 M01S00009.1xy2 +++|* FLAG, CAUSING *1MV* TO PERFORM A HARDWARE VERIFICATION. THE
00549 M01S00010.1xy2 +++|* EXPECTED RESULT OF THIS VERIFICATION IS THAT *1MV* WILL DOWN
00550 M01S00011.1xy2 +++|* THE CHANNEL ON THE DEVICE.
00551 M01S00012.1xy2 +++|
00552 M01S00013.1xy2 +++| CCR3 LDC UJNI+FNC5.1-FNCC
00553 M01S00014.1xy2 +++| ERRNG FNC5.1-FNCC CODE DEPENDS ON VALUE
00554 M01S00015.1xy2 +++| ERRPL FNC5.1-FNCC-40 CODE DEPENDS ON VALUE
00555 M01S00016.1xy2 +++| STM FNCC
00556 M01S00017.1xy2 +++| LDC UJNI+FNN5.1-FNNA
00557 M01S00018.1xy2 +++| ERRNG FNN5.1-FNNA CODE DEPENDS ON VALUE
00558 M01S00019.1xy2 +++| ERRPL FNN5.1-FNNA-40 CODE DEPENDS ON VALUE
00559 M01S00020.1xy2 +++| STM FNNA
00560 M01S00021.1xy2 +++| UJN CCR2.1 RETURN
00561 M00S00423.1xy +++| CCS SPACE 4,15
00562 M00S00424.1xy +++|** CCS - CHECK FOR CONSECUTIVE SECTOR REQUEST.
00563 M00S00425.1xy +++|*
00564 M00S00426.1xy +++|* THIS ROUTINE CHECKS THE NEXT BUFFER IN THE I/O QUEUE TO
00565 M00S00427.1xy +++|* DETERMINE IF IT IS CONSECUTIVE WITH THE REQUEST CURRENTLY
00566 M00S00428.1xy +++|* BEING PROCESSED.
00567 M00S00429.1xy +++|*
00568 M00S00430.1xy +++|* ENTRY (CB) = CURRENT BUFFER ORDINAL.
00569 M00S00431.1xy +++|* (NB) = NEXT BUFFER ORDINAL IF CONSECUTIVE REQUEST
00570 M00S00432.1xy +++|* ALREADY FOUND.
00571 M00S00433.1xy +++|* (RW) = READ/WRITE FLAG.
00572 M00S00434.1xy +++|* (TB) = TOTAL BUFFER COUNT.
00573 M00S00435.1xy +++|*
00574 M00S00436.1xy +++|* EXIT (NB) = NEXT BUFFER ORDINAL.
00575 M00S00437.1xy +++|* = 0 IF CONSECUTIVE TRANSFER NOT POSSIBLE.
00576 M00S00438.1xy +++|* (TB) = TOTAL BUFFER COUNT.
00577 M00S00439.1xy +++|*
00578 M00S00440.1xy +++|* USES NB, TB, CM - CM+4, CN - CN+4, TO - TO+4.
00579 M00S00441.1xy +++|*
00580 M00S00442.1xy +++|* MACROS CCBA.
00581 M00S00443.1xy +++|
00582 M00S00444.1xy +++|
00583 M00S00445.1xy +++| CCS3 LDN 0 INDICATE NO CONSECUTIVE REQUEST
00584 M00S00446.1xy +++| STD NB
00585 M00S00447.1xy +++|
00586 M00S00448.1xy +++| CCS SUBR ENTRY/EXIT
00587 M00S00449.1xy +++| LDD NB
00588 M00S00450.1xy +++| NJN CCSX IF NEXT REQUEST ALREADY FOUND
00589 M00S00451.1xy +++| CCBA PAD4 READ CURRENT *CBT* ENTRY
00590 M00S00452.1xy +++| CRD CM
00591 M00S00453.1xy +++| ADK IOLK-PAD4
00592 M00S00454.1xy +++| CRD CN
00593 M00S00455.1xy +++| LDD CN+2 NEXT BUFFER ORDINAL
00594 M00S00456.1xy +++| ZJN CCSX IF THIS BUFFER IS LAST IN QUEUE
00595 M00S00457.1xy +++| STD NB STORE NEW CURRENT BUFFER ORDINAL
00596 M00S00458.1xy +++| CCBA PAD1,A GET DISK ADDRESS FOR THIS BUFFER
00597 M00S00459.1xy +++| CRD CN
00598 M00S00460.1xy +++| ADK IOLK-PAD1 GET WRITE FLAG
00599 M00S00461.1xy +++| CRD T0
00600 M00S00462.1xy +++| LDD T0
00601 M00S00463.1xy +++| SHN 0-11
00602 M00S00464.1xy +++| LPN 1
00603 M00S00465.1xy +++| LMD RW
00604 M00S00466.1xy +++| NJN CCS3 IF TRANSFER NOT IN SAME DIRECTION
00605 M00S00467.1xy +++| LDD CM+1
00606 M00S00468.1xy +++| LMD CN+1
00607 M00S00469.1xy +++| CCS1 NJN CCS3 IF NO CYLINDER MATCH
00608 M00S00470.1xy +++| LDD CM+2
00609 M00S00471.1xy +++| ADN 1
00610 M00S00472.1xy +++| LMD CN+2
00611 M00S00473.1xy +++| ZJN CCS2 IF CONSECUTIVE SECTOR NOT ON SAME TRACK
00612 M00S00474.1xy +++| LDD CM+2
00613 M00S00475.1xy +++| ADD HN
00614 M00S00476.1xy +++| SCN 77
00615 M00S00477.1xy +++| LMD CN+2
00616 M00S00478.1xy +++| NJN CCS1 IF NOT FIRST SECTOR OF CONSECUTIVE TRACK
00617 M00S00479.1xy +++| LDD CM+2
00618 M00S00480.1xy +++| LPN 77
00619 M00S00481.1xy +++| LMN PSPT-1
00620 M00S00482.1xy +++| NJN CCS1 IF CONSECUTIVE REQUEST
00621 M00S00483.1xy +++| CCS2 AOD TB INCREMENT TOTAL BUFFER COUNT
00622 M00S00484.1xy +++| LJM CCSX RETURN
00623 M00S00485.1xy +++| CDS SPACE 4,20
00624 M00S00486.1xy +++|** CDS - CRACK DETAILED STATUS.
00625 M00S00487.1xy +++|*
00626 M00S00488.1xy +++|* THIS ROUTINE DETERMINES WHAT ERROR CODE TO SET BY EXAMINING
00627 M00S00489.1xy +++|* DETAILED STATUS.
00628 M00S00490.1xy +++|*
00629 M00S00491.1xy +++|* ENTRY (GS) = GENERAL STATUS.
00630 M00S00492.1xy +++|* (RW) = READ/WRITE FLAG.
00631 M00S00493.1xy +++|*
00632 M00S00494.1xy +++|* USES EC, RS, T1.
00633 M00S00495.1xy +++|*
00634 M00S00496.1xy +++|* CALLS FNC, GDS, GGS.
00635 M00S00497.1xy +++|
00636 M00S00498.1xy +++|
00637 M00S00499.1xy +++| CDS SUBR ENTRY/EXIT
00638 M00S00500.1xy +++| RJM GDS GET DETAILED STATUS
00639 M00S00501.1xy +++| MJN CDSX IF ERROR
00640 M00S00502.1xy +++| LDD GS
00641 M00S00503.1xy +++| SHN 21-10
00642 M00S00504.1xy +++| PJN CDS1 IF ERROR NOT RECOVERABLE BY SUBSYSTEM
00643 M00S00505.1xy +++| LDM CDSA,RW PREPARE FOR *CONTINUE* SEQUENCE
00644 M00S00506.1xy +++| STD T1
00645 M00S00507.1xy +++| LDC LDNI+FCCO
00646 M00S00508.1xy +++| STI T1
00647 M00S00509.1xy +++| LCN 1 INDICATE CONTROLLER RECOVERY IN PROGRESS
00648 M00S00510.1xy +++| STD RS
00649 M00S00511.1xy +++| UJN CDS1.1 SET STATUS ERROR CODE
00650 M00S00512.1xy +++|
00651 M00S00513.1xy +++| CDS1 SHN 10-13+22
00652 M00S00514.1xy +++| MJN CDS2 IF ABNORMAL TERMINATION
00653 M00S00515.1xy +++| LDD EC
00654 M00S00516.1xy +++| NJN CDSX IF ERROR CODE ALREADY SET
00655 M00S00517.1xy +++| CDS1.1 UJN CDS4 SET STATUS ERROR CODE
00656 M00S00518.1xy +++|
00657 M00S00519.1xy +++|* CHECK FOR *NOT READY* CONDITION.
00658 M00S00520.1xy +++|
00659 M00S00521.1xy +++| CDS2 SHN 13-4
00660 M00S00522.1xy +++| PJN CDS3 IF NOT *NOT READY*
| Line S00523 Modification History |
M01 (Removed by) | ns2508 |
Seq # *Modification Id* Act
----------------------------+
00661 M01S00523.ns2508 ---| LDM DST+SB7
00662 M01S00524.ns2508 ---| LPN 17
00663 M01S00525.ns2508 ---| LMN DCF
00664 M01S00526.ns2508 ---| NJN CDS3 IF NOT *NOT READY*
00665 M01S00527.ns2508 ---| LDM DST+SB7+1
00666 M01S00528.ns2508 ---| SHN 0-10
00667 M01S00529.ns2508 ---| LMN DNRM
| Line S00002 Modification History |
M01 (Added by) | ns2508 |
Seq # *Modification Id* Act
----------------------------+
00668 M01S00002.ns2508 +++| LDM DST+SB0
00669 M01S00003.ns2508 +++| SHN 0-12
00670 M01S00004.ns2508 +++| LPN 1
00671 M01S00005.ns2508 +++| LMN 1
00672 M00S00530.1xy +++| ZJN CDS5 IF DRIVE NOT READY
| Line S00003 Modification History |
M01 (Added by) | ns2537 |
Seq # *Modification Id* Act
----------------------------+
00673 M01S00003.ns2537 +++|
00674 M01S00004.ns2537 +++|* CHECK FOR STATISTICAL MESSAGE. THIS IS NOT A TRUE ERROR
00675 M01S00005.ns2537 +++|* CONDITION.
00676 M01S00006.ns2537 +++|
00677 M01S00007.ns2537 +++| LDM DST+SB7
00678 M01S00008.ns2537 +++| LPN 17
00679 M01S00009.ns2537 +++| LMN FM6
00680 M01S00010.ns2537 +++| ZJN CDS5.1 IF FORMAT 6 MESSAGE
00681 M00S00531.1xy +++|
00682 M00S00532.1xy +++|* CHECK FOR MEDIA ERROR.
00683 M00S00533.1xy +++|
00684 M00S00534.1xy +++| CDS3 LDM DST
00685 M00S00535.1xy +++| LPC 210
00686 M00S00536.1xy +++| LMC 210
00687 M00S00537.1xy +++| ZJN CDS6 IF MEDIA ERROR
00688 M00S00538.1xy +++| LDM DST+21
00689 M00S00539.1xy +++| SHN 21-6
00690 M00S00540.1xy +++| MJN CDS8 IF CHANNEL PARITY ERROR ON OUTPUT
00691 M00S00541.1xy +++| SHN 6-2
00692 M00S00542.1xy +++| MJN CDS9 IF DATA TRANSFER ERROR
00693 M00S00543.1xy +++| SHN 2-21+22
00694 M00S00544.1xy +++| LPN 50
00695 M00S00545.1xy +++| NJN CDS10 IF ADAPTOR MEMORY PARITY ERROR
00696 M00S00546.1xy +++| CDS4 LDK DSTE&NRDE
| Line S00547 Modification History |
M01 (Removed by) | ns2537 |
Seq # *Modification Id* Act
----------------------------+
00697 M01S00547.ns2537 ---| CDS5 LMK NRDE&PARE
| Line S00011 Modification History |
M01 (Added by) | ns2537 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
00698 M02S00011.253l688 ---| CDS5 LMK NRDE&RDFE
00699 M02S00012.253l688 ---| CDS5.1 LMK RDFE&PARE
| Line S00001 Modification History |
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act
----------------------------+
00700 M01S00001.253l688 +++| CDS5 LMK NRDE&STAE
00701 M01S00002.253l688 +++| CDS5.1 LMK STAE&PARE
00702 M00S00548.1xy +++| CDS6 LMK PARE
00703 M00S00549.1xy +++| CDS7 STD EC
00704 M00S00550.1xy +++| LJM CDSX RETURN
00705 M00S00551.1xy +++|
00706 M00S00552.1xy +++| CDS8 LDN CHPE SET *CHANNEL PARITY* ERROR CODE
00707 M00S00553.1xy +++| UJN CDS7 SET ERROR CODE
00708 M00S00554.1xy +++|
00709 M00S00555.1xy +++| CDS9 LDN IDTE SET *DATA TRANSFER* ERROR CODE
00710 M00S00556.1xy +++| UJN CDS7 SET ERROR CODE
00711 M00S00557.1xy +++|
00712 M00S00558.1xy +++| CDS10 LDN RAME SET *CONTROLLER MEMORY* ERROR CODE
00713 M00S00559.1xy +++| UJN CDS7 SET ERROR CODE
00714 M00S00560.1xy +++|
00715 M00S00561.1xy +++|
00716 M00S00562.1xy +++| CDSA BSS 0
00717 M00S00563.1xy +++| CON RIOA
00718 M00S00564.1xy +++| CON WIOA
| Line S00565 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00719 M01S00565.ns2769 ---| CMD SPACE 4,15
00720 M01S00566.ns2769 ---|** CMD - CALL *1MD*.
00721 M01S00567.ns2769 ---|*
00722 M01S00568.ns2769 ---|* ENTRY (CN - CN+4) = *EMB* HEADER WORD.
00723 M01S00569.ns2769 ---|*
00724 M01S00570.ns2769 ---|* EXIT (A) .EQ. 0 IF UNABLE TO CALL *1MD*.
00725 M01S00571.ns2769 ---|* .NE. 0 IF *1MD* HAS BEEN CALLED.
00726 M01S00572.ns2769 ---|* *1MD* CALLED FLAG IS SET IN CELL *SR+4* IF *1MD* WAS
00727 M01S00573.ns2769 ---|* CALLED.
00728 M01S00574.ns2769 ---|*
00729 M01S00575.ns2769 ---|* USES SR+4, S2, CM - CM+4.
00730 M01S00576.ns2769 ---|*
00731 M01S00577.ns2769 ---|* CALLS 1MD.
00732 M01S00578.ns2769 ---|*
00733 M01S00579.ns2769 ---|* MACROS EXECUTE, MONITOR.
00734 M01S00580.ns2769 ---|
00735 M01S00581.ns2769 ---|
00736 M01S00582.ns2769 ---| CMD2 LDN 2 SET *1MD* CALLED FLAG
00737 M01S00583.ns2769 ---| RAD SR+4
00738 M01S00584.ns2769 ---|
00739 M01S00585.ns2769 ---| CMD SUBR ENTRY/EXIT
00740 M01S00586.ns2769 ---| LDD SR+4
00741 M01S00587.ns2769 ---| LPN 2
00742 M01S00588.ns2769 ---| NJN CMDX IF *1MD* ALREADY CALLED
00743 M01S00589.ns2769 ---| STD S2 CLEAR *RPPM* RETRY COUNT
00744 M01S00590.ns2769 ---| LDD MA
00745 M01S00591.ns2769 ---| CWM CMDA,ON
00746 M01S00592.ns2769 ---| CMD1 LDK ZERL
00747 M01S00593.ns2769 ---| CRD CM
00748 M01S00594.ns2769 ---| EXECUTE 1MD,=
00749 M01S00595.ns2769 ---| MONITOR RPPM
00750 M01S00596.ns2769 ---| LDD CM+1
00751 M01S00597.ns2769 ---| NJN CMD2 IF PP ASSIGNED
00752 M01S00598.ns2769 ---| AOD S2 INCREMENT *RPPM* RETRY COUNT
00753 M01S00599.ns2769 ---| LMN MFRL
00754 M01S00600.ns2769 ---| ZJN CMDX IF RETRY LIMIT
00755 M01S00601.ns2769 ---| UJN CMD1 RETRY *RPPM*
00756 M01S00602.ns2769 ---|
00757 M01S00603.ns2769 ---|
00758 M01S00604.ns2769 ---| CMDA VFD 18/3L1MD,42/1
00759 M00S00605.1xy +++| CRL SPACE 4,15
00760 M00S00606.1xy +++|** CRL - CHECK FOR ERROR RETRY LIMIT REACHED.
00761 M00S00607.1xy +++|*
00762 M00S00608.1xy +++|* ENTRY (EC) = ERROR CODE.
00763 M00S00609.1xy +++|* (ER) = *RECOVERY IN PROGRESS* FLAG.
00764 M00S00610.1xy +++|* (RC) = RETRY COUNT.
| Line S00079 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00765 M01S00079.ns2769 +++|* (T5) = EST ORDINAL.
00766 M00S00611.1xy +++|*
00767 M00S00612.1xy +++|* EXIT (A) .GE. 0 IF RETRY LIMIT REACHED.
00768 M00S00613.1xy +++|* .LT. 0 IF NOT AT RETRY LIMIT.
| Line S00001 Modification History |
M01 (Added by) | ns2732a |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
00769 M02S00001.ns2732b ---|* (RC) INCREMENTED IF NOT AT LIMIT.
| Line S00001 Modification History |
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
00770 M01S00001.ns2732b +++|* (RC) INCREMENTED.
| Line S00080 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00771 M01S00080.ns2769 +++|* MESSAGE ISSUED TO *MS2W* OF SYSTEM CONTROL POINT FOR
00772 M01S00081.ns2769 +++|* B-DISPLAY PRESENTATION IF HALF WAY TO RETRY LIMIT.
| Line S00002 Modification History |
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
00773 M01S00002.ns2732a +++|*
00774 M01S00003.ns2732a +++|* USES RC.
| Line S00614 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00775 M01S00614.ns2732 ---|* (RC) = (RC) + 1.
00776 M01S00615.ns2732 ---|*
00777 M01S00616.ns2732 ---|* USES RC.
00778 M00S00617.1xy +++|
00779 M00S00618.1xy +++|
00780 M00S00619.1xy +++| CRL SUBR ENTRY/EXIT
00781 M00S00620.1xy +++| LDD ER
00782 M00S00621.1xy +++| LMC SHNI+1
00783 M00S00622.1xy +++| STM CRLA
| Line S00623 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00784 M01S00623.ns2732 ---| AOD RC INCREMENT RETRY COUNT
| Line S00001 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
00785 M02S00001.ns2732b ---| LDD RC RETRY COUNT
| Line S00002 Modification History |
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
00786 M01S00002.ns2732b +++| AOD RC INCREMENT RETRY COUNT
| Line S00082 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00787 M01S00082.ns2769 +++| LDM TREC,EC
00788 M01S00083.ns2769 +++| SHN -1
00789 M01S00084.ns2769 +++| SBD RC
00790 M01S00085.ns2769 +++| PJN CRL1 IF TOO EARLY TO NOTIFY OPERATOR
00791 M01S00086.ns2769 +++| LDD T5 STORE EST ORDINAL IN MESSAGE
00792 M01S00087.ns2769 +++| SHN -3
00793 M01S00088.ns2769 +++| RJM C2D
00794 M01S00089.ns2769 +++| STM CRLB+1
00795 M01S00090.ns2769 +++| LDD T5
00796 M01S00091.ns2769 +++| LPN 7
00797 M01S00092.ns2769 +++| SHN 6
00798 M01S00093.ns2769 +++| ADC 2R0
00799 M01S00094.ns2769 +++| STM CRLB+2
00800 M01S00095.ns2769 +++| LDM TMNE,EC STORE ERROR MNEMONIC IN MESSAGE
00801 M01S00096.ns2769 +++| STM CRLB+3
00802 M01S00097.ns2769 +++| LDD CP
00803 M01S00098.ns2769 +++| ADK MS2W
00804 M01S00099.ns2769 +++| CWM CRLB,TR
00805 M01S00100.ns2769 +++| CRL1 LDD RC
00806 M00S00624.1xy +++|
00807 M00S00625.1xy +++|* IF *RECOVERY IN PROGRESS* IS NOT SET, THE RETRY COUNT IS
00808 M00S00626.1xy +++|* SHIFTED SO THAT THE LIMIT CHECK IS MADE AGAINST N/2 (WHERE N
00809 M00S00627.1xy +++|* IS THE RETRY LIMIT FOR THE ERROR TYPE IN CELL *EC*). THIS
00810 M00S00628.1xy +++|* CAUSES HALF OF THE RETRY ATTEMPTS TO BE PERFORMED ON EACH
00811 M00S00629.1xy +++|* CHANNEL, IF AN ALTERNATE ACCESS IS AVAILABLE. IF NO
00812 M00S00630.1xy +++|* ALTERNATE ACCESS IS AVAILABLE, ALL RETRIES WILL BE PERFORMED
00813 M00S00631.1xy +++|* ON THIS CHANNEL.
00814 M00S00632.1xy +++|
00815 M00S00633.1xy +++| SHN 0
00816 M00S00634.1xy +++|* SHN 1 (RECOVERY NOT IN PROGRESS)
00817 M00S00635.1xy +++| CRLA EQU *-1
00818 M00S00636.1xy +++| SBM TREC,EC
| Line S00002 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
00819 M02S00002.ns2732b ---| SBN 1
| Line S00004 Modification History |
M01 (Added by) | ns2732a |
M02 (Removed by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
00820 M02S00004.ns2732b ---| PJN CRLX IF RETRY LIMIT REACHED
00821 M02S00005.ns2732b ---| AOD RC INCREMENT RETRY COUNT
| Line S00003 Modification History |
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
00822 M01S00003.ns2732b +++| SBN 2
| Line S00637 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00823 M01S00637.ns2769 ---| UJN CRLX RETURN
| Line S00101 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00824 M01S00101.ns2769 +++| UJP CRLX RETURN
00825 M01S00102.ns2769 +++|
00826 M01S00103.ns2769 +++|
00827 M01S00104.ns2769 +++| CRLB DATA C*EQ000 XX ERROR RETRY UNDERWAY.*
00828 M00S00638.1xy +++| CRQ SPACE 4,20
00829 M00S00639.1xy +++|** CRQ - CHECK REQUEST QUEUE.
00830 M00S00640.1xy +++|*
00831 M00S00641.1xy +++|* THIS ROUTINE ATTEMPTS TO CALL *CPUMTR* TO COMPLETE REQUESTS
00832 M00S00642.1xy +++|* IN THE UNIT QUEUE THAT HAVE ALREADY BEEN PROCESSED.
00833 M00S00643.1xy +++|*
00834 M00S00644.1xy +++|* ENTRY (CC) = COMPLETION REQUEST COUNT.
00835 M00S00645.1xy +++|* (PO) = *PUT* ORDINAL.
00836 M00S00646.1xy +++|*
00837 M00S00647.1xy +++|* EXIT (A) .EQ. 0 IF NO REQUESTS PRESENT.
00838 M00S00648.1xy +++|* .NE. 0 IF *CPUMTR* IS STILL BUSY WITH PREVIOUS
00839 M00S00649.1xy +++|* FUNCTION OR AN EXCHANGE WAS JUST ISSUED
00840 M00S00650.1xy +++|* FOR THE CURRENT FUNCTION.
00841 M00S00651.1xy +++|*
00842 M00S00652.1xy +++|* USES CC, CN - CN+4, T0 - T4.
00843 M00S00653.1xy +++|
00844 M00S00654.1xy +++|
00845 M00S00655.1xy +++| CRQ SUBR ENTRY/EXIT
00846 M00S00656.1xy +++| LDC ** READ XP
00847 M00S00657.1xy +++| CRQA EQU *-1 FWA OF XP
00848 M00S00658.1xy +++| CRD T0
00849 M00S00659.1xy +++| LDD OA READ OUTPUT REGISTER
00850 M00S00660.1xy +++| CRD CN
00851 M00S00661.1xy +++| LDD T0+4 (B0)
00852 M00S00662.1xy +++| NJN CRQ1 IF MISSED EXCHANGE
00853 M00S00663.1xy +++| STD CN+3
00854 M00S00664.1xy +++| LDD CN
00855 M00S00665.1xy +++| SHN 21-13
00856 M00S00666.1xy +++| MJN CRQ1 IF REISSUE REQUIRED
00857 M00S00667.1xy +++| NJN CRQX IF FUNCTION NOW BEING PROCESSED
00858 M00S00668.1xy +++| LDD CC
00859 M00S00669.1xy +++| ZJN CRQX IF NO PENDING COMPLETION REQUESTS
00860 M00S00670.1xy +++| LDC **
00861 M00S00671.1xy +++| CRQE EQU *-1
00862 M00S00672.1xy +++| CRD T0
00863 M00S00673.1xy +++| LDD T0
00864 M00S00674.1xy +++| ADD T0+1
00865 M00S00675.1xy +++| NJN CRQX IF FUNCTION IN PROGRESS
00866 M00S00676.1xy +++| LDN DCBS SET *BIOM* SUBFUNCTION
00867 M00S00677.1xy +++| STD CN+1
00868 M00S00678.1xy +++| LDD PO
00869 M00S00679.1xy +++| STD CN+2
00870 M00S00680.1xy +++| CRQ1 LDD CC
00871 M00S00681.1xy +++| RAD CN+3
00872 M00S00682.1xy +++| LDN 0
00873 M00S00683.1xy +++| STD CC
00874 M00S00684.1xy +++| LDK BIOM
00875 M00S00685.1xy +++| STD CN
00876 M00S00686.1xy +++| LDD OA
00877 M00S00687.1xy +++| CWD CN
00878 M00S00688.1xy +++| LDC **
00879 M00S00689.1xy +++| CRQB EQU *-1 ADDRESS OF EXCHANGE PACKAGE
00880 M00S00690.1xy +++| CWM CRQD,ON WRITE FIRST WORD
00881 M00S00691.1xy +++| SBN 1 SET EXCHANGE ADDRESS
00882 M00S00692.1xy +++| MXN 0 EXCHANGE CPU
00883 M00S00693.1xy +++| CRQC EQU *-1 CPU NUMBER
00884 M00S00694.1xy +++| UJP CRQX RETURN
00885 M00S00695.1xy +++|
00886 M00S00696.1xy +++|
00887 M00S00697.1xy +++| CRQD VFD 24/0 (P)
00888 M00S00698.1xy +++| VFD 18/0 (A0)
00889 M00S00699.1xy +++| VFD 18/0 (B0)
| Line S00700 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00890 M01S00700.ns2769 ---| C4D SPACE 4,15
00891 M01S00701.ns2769 ---|** C4D - CONVERT ONE PP WORD TO FOUR DISPLAY CODE CHARACTERS.
00892 M01S00702.ns2769 ---|*
00893 M01S00703.ns2769 ---|* ENTRY (A) = PP WORD TO CONVERT.
00894 M01S00704.ns2769 ---|* (T1) = ADDRESS OF FIRST OF TWO CONSECUTIVE PP WORDS IN
00895 M01S00705.ns2769 ---|* WHICH TO STORE THE DISPLAY CODE CHARACTERS.
00896 M01S00706.ns2769 ---|*
00897 M01S00707.ns2769 ---|* EXIT (A) = ADDRESS OF NEXT DISPLAY BUFFER WORD.
00898 M01S00708.ns2769 ---|* (T1) = (T1) + 2.
00899 M01S00709.ns2769 ---|*
00900 M01S00710.ns2769 ---|* USES CM, T1.
00901 M01S00711.ns2769 ---|*
00902 M01S00712.ns2769 ---|* CALLS C2D.
00903 M01S00713.ns2769 ---|
00904 M01S00714.ns2769 ---|
00905 M01S00715.ns2769 ---| C4D SUBR ENTRY/EXIT
00906 M01S00716.ns2769 ---| STD CM SAVE BINARY WORD
00907 M01S00717.ns2769 ---| SHN -6 CONVERT UPPER 6 BITS
00908 M01S00718.ns2769 ---| RJM C2D
00909 M01S00719.ns2769 ---| STI T1 STORE RESULT IN DISPLAY BUFFER
00910 M01S00720.ns2769 ---| AOD T1 ADVANCE TO NEXT DISPLAY BUFFER WORD
00911 M01S00721.ns2769 ---| LDD CM CONVERT LOWER 6 BITS
00912 M01S00722.ns2769 ---| LPN 77
00913 M01S00723.ns2769 ---| RJM C2D
00914 M01S00724.ns2769 ---| STI T1 STORE RESULT IN DISPLAY BUFFER
00915 M01S00725.ns2769 ---| AOD T1 ADVANCE TO NEXT DISPLAY BUFFER WORD
00916 M01S00726.ns2769 ---| UJN C4DX RETURN
00917 M00S00727.1xy +++| DCH SPACE 4,15
00918 M00S00728.1xy +++|** DCH - RELEASE CHANNEL.
00919 M00S00729.1xy +++|*
00920 M00S00730.1xy +++|* THIS ROUTINE RELEASES THE CHANNEL IF IT IS CURRENTLY
00921 M00S00731.1xy +++|* RESERVED.
00922 M00S00732.1xy +++|*
00923 M00S00733.1xy +++|* ENTRY (CS) = CHANNEL RESERVATION STATUS.
00924 M00S00734.1xy +++|* (IR+4) = CHANNEL NUMBER.
00925 M00S00735.1xy +++|*
00926 M00S00736.1xy +++|* EXIT (A) = (CS) = 0.
00927 M00S00737.1xy +++|*
00928 M00S00738.1xy +++|* USES CM+1, CS.
00929 M00S00739.1xy +++|*
00930 M00S00740.1xy +++|* MACROS MONITOR.
00931 M00S00741.1xy +++|
00932 M00S00742.1xy +++|
00933 M00S00743.1xy +++| DCH SUBR ENTRY/EXIT
00934 M00S00744.1xy +++| LDD CS
00935 M00S00745.1xy +++| LPN 1
00936 M00S00746.1xy +++| ZJN DCHX IF CHANNEL NOT RESERVED
00937 M00S00747.1xy +++| LDD IR+4 RELEASE CHANNEL
00938 M00S00748.1xy +++| STD CM+1
00939 M00S00749.1xy +++| MONITOR DCHM
00940 M00S00750.1xy +++| SOD CS CLEAR CHANNEL RESERVATION FLAG
00941 M00S00751.1xy +++| UJN DCHX RETURN
00942 M00S00752.1xy +++| ERR SPACE 4,20
00943 M00S00753.1xy +++|** ERR - PROCESS ERROR.
00944 M00S00754.1xy +++|*
00945 M00S00755.1xy +++|* THIS ROUTINE IS CALLED TO PERFORM ALL ERROR PROCESSING.
00946 M00S00756.1xy +++|*
00947 M00S00757.1xy +++|* ENTRY (EC) = 0 IF THIS IS THE FIRST RETRY OF A RECOVERY
00948 M00S00758.1xy +++|* SEQUENCE AND THE CALLER DID NOT SET THE ERROR
00949 M00S00759.1xy +++|* CODE.
00950 M00S00760.1xy +++|* = ERROR CODE IF NOT THE FIRST RETRY OF A RECOVERY
00951 M00S00761.1xy +++|* SEQUENCE AND NOT A CALLER SPECIFIED ERROR CODE.
00952 M00S00762.1xy +++|* = COMPLEMENT OF ERROR CODE IF SPECIFIED BY THE
00953 M00S00763.1xy +++|* CALLER.
00954 M00S00764.1xy +++|* (RC) = RETRY COUNT.
00955 M00S00765.1xy +++|*
00956 M00S00766.1xy +++|* EXIT (EC) = 0.
00957 M00S00767.1xy +++|* (RC) = 0.
| Line S00768 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00958 M01S00768.ns2732 ---|* TO *MST.
| Line S00003 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00959 M01S00003.ns2732 +++|* TO *MST*.
00960 M00S00769.1xy +++|*
00961 M00S00770.1xy +++|* USES EC, RC, RS, T1.
00962 M00S00771.1xy +++|*
| Line S00772 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00963 M01S00772.ns2732 ---|* CALLS CDS, CRL, CRQ, FNN, GGS, IBD, IBM, IIC, ISF, PDT, PFR,
| Line S00773 Modification History |
M01 (Removed by) | ns2507 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00964 M02S00773.ns2732 ---|* PRE, RCS, SAS, SSF, TEP.
| Line S00001 Modification History |
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00965 M02S00001.ns2732 ---|* PRE, SAS, SSF, TEP.
| Line S00004 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00966 M02S00004.ns2769 ---|* CALLS CDS, CRL, CRQ, FNN, GGS, IBD, IBM, IIC, ISF, PDT,
| Line S00105 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
00967 M01S00105.ns2769 +++|* CALLS CDS, CRL, CRQ, FNN, GGS, IBM, IIC, ISF, PDT,
| Line S00005 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00968 M01S00005.ns2732 +++|* PFR, PRE, RLC, SAS, SSF, TEP.
00969 M00S00774.1xy +++|
00970 M00S00775.1xy +++|
00971 M00S00776.1xy +++| ERR SUBR ENTRY
00972 M00S00777.1xy +++| ERR1 RJM PRE PRESET ERROR PROCESSOR
00973 M00S00778.1xy +++| NJP ERR11 IF INTERLOCK/VERIFICATION FAILURE
00974 M00S00779.1xy +++| LDC FCCD CLEAR DMA MODE
00975 M00S00780.1xy +++| RJM FNN
00976 M00S00781.1xy +++| MJN ERR1.1 IF ERROR ENCOUNTERED
| Line S00006 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
00977 M01S00006.ns2732 +++| DCN CH+40
00978 M00S00782.1xy +++| RJM GGS GET GENERAL STATUS
00979 M00S00783.1xy +++| MJN ERR1.1 IF GENERAL STATUS UNAVAILABLE
00980 M00S00784.1xy +++| RJM SAS SAVE ADAPTER STATUS
00981 M00S00785.1xy +++| MJN ERR1.1 IF ERROR ENCOUNTERED
00982 M00S00786.1xy +++| RJM CDS CHECK DETAILED STATUS
00983 M00S00787.1xy +++| ERR1.1 LDD RC
| Line S00788 Modification History |
M01 (Removed by) | ns2560 |
Seq # *Modification Id* Act
----------------------------+
00984 M01S00788.ns2560 ---| NJN ERR2 IF NOT FIRST RETRY
00985 M01S00789.ns2560 ---| LDD GS STORE INITIAL GENERAL STATUS
| Line S00001 Modification History |
M01 (Added by) | ns2560 |
Seq # *Modification Id* Act
----------------------------+
00986 M01S00001.ns2560 +++| ZJN ERR1.2 IF FIRST RETRY
00987 M01S00002.ns2560 +++| LDD ER
00988 M01S00003.ns2560 +++| ZJN ERR2 IF NOT RECOVERY IN PROGRESS
00989 M01S00004.ns2560 +++| AOM ERRA
00990 M01S00005.ns2560 +++| LMN 2
00991 M01S00006.ns2560 +++| NJN ERR2 IF NOT FIRST *ERR* CALL
00992 M01S00007.ns2560 +++| ERR1.2 LDD GS
00993 M00S00790.1xy +++| STM BMLGS
| Line S00791 Modification History |
M01 (Removed by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
00994 M01S00791.ns2749 ---| ERR2 LDD EC
| Line S00001 Modification History |
M01 (Added by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
00995 M01S00001.ns2749 +++| ERR2 LCN 0
00996 M01S00002.ns2749 +++| LMD EC
00997 M01S00003.ns2749 +++| STD EC
00998 M00S00792.1xy +++| SHN 21-13
| Line S00793 Modification History |
M01 (Removed by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
00999 M01S00793.ns2749 ---| PJN ERR4 IF NOT COMPLEMENTED ERROR CODE
| Line S00794 Modification History |
M01 (Removed by) | ns2507 |
M02 (Removed by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
01000 M02S00794.ns2749 ---| ERR3 LCN 0
| Line S00002 Modification History |
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
01001 M02S00002.ns2749 ---| LCN 0
| Line S00795 Modification History |
M01 (Removed by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
01002 M01S00795.ns2749 ---| LMD EC
01003 M01S00796.ns2749 ---| STD EC
01004 M01S00797.ns2749 ---| ERR4 LDD TH FORCE IMMEDIATE COMPLETION
| Line S00004 Modification History |
M01 (Added by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
01005 M01S00004.ns2749 +++| MJN ERR2 IF COMPLEMENTED ERROR CODE
01006 M01S00005.ns2749 +++| LDD TH FORCE IMMEDIATE COMPLETION
01007 M00S00798.1xy +++| ERRNZ SHNI-1000 CODE DEPENDS ON VALUE
01008 M00S00799.1xy +++| STM IICA
01009 M00S00800.1xy +++| RJM IIC ISSUE I/O COMPLETION REQUEST
01010 M00S00801.1xy +++| ERR4.1 RJM CRQ ENSURE COMPLETION OF PENDING REQUEST
01011 M00S00802.1xy +++| NJN ERR4.1 IF FUNCTION STILL PENDING
01012 M00S00803.1xy +++| RJM IBM ISSUE BML MESSAGE IF NECESSARY
01013 M00S00804.1xy +++| AOD RS INCREMENT RECOVERY STATUS
01014 M00S00805.1xy +++| SHN 21-13
| Line S00806 Modification History |
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act
----------------------------+
01015 M01S00806.ns2507 ---| MJP ERR10 IF CONTROLLER ERROR RECOVERY IN PROGRESS
| Line S00003 Modification History |
M01 (Added by) | ns2507 |
Seq # *Modification Id* Act
----------------------------+
01016 M01S00003.ns2507 +++| MJN ERR10 IF *CCC* ERROR RECOVERY IN PROGRESS
| Line S00007 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01017 M01S00007.ns2732 +++|
01018 M01S00008.ns2732 +++|* SET THE SUSPECT FLAG IF APPROPRIATE FOR THIS ERROR TYPE.
01019 M01S00009.ns2732 +++|
| Line S00006 Modification History |
M01 (Added by) | ns2749 |
Seq # *Modification Id* Act
----------------------------+
01020 M01S00006.ns2749 +++| LDK STAE
01021 M01S00007.ns2749 +++| LMD EC
01022 M01S00008.ns2749 +++| ZJN ERR7 IF STATISTICAL DATA (NOT AN ERROR)
| Line S00010 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01023 M01S00010.ns2732 +++| RJM SSF SET SUSPECT FLAG (IF APPROPRIATE)
| Line S00011 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01024 M02S00011.ns2769 ---| RJM IBD ISSUE B-DISPLAY MESSAGE
01025 M00S00807.1xy +++| RJM CRL CHECK FOR RETRY LIMIT REACHED
01026 M00S00808.1xy +++| MJN ERR7 IF RETRY LIMIT NOT REACHED
| Line S00809 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01027 M01S00809.ns2769 ---| RJM IBD ISSUE B-DISPLAY MESSAGE
| Line S00004 Modification History |
M01 (Added by) | ns2732b |
Seq # *Modification Id* Act
----------------------------+
01028 M01S00004.ns2732b +++| SOD RC ADJUST FINAL RETRY COUNT
| Line S00810 Modification History |
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act
----------------------------+
01029 M01S00810.ns2507 ---|
01030 M01S00811.ns2507 ---|* DOWN THE CHANNEL IF APPROPRIATE FOR THIS ERROR TYPE.
01031 M01S00812.ns2507 ---|
| Line S00001 Modification History |
M01 (Added by) | ns2497 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
01032 M02S00001.ns2732a ---| SOD RC ALIGN RETRY COUNT FOR FINAL MESSAGE
| Line S00813 Modification History |
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act
----------------------------+
01033 M01S00813.ns2507 ---| LDD GS
01034 M01S00814.ns2507 ---| LMC 7777
01035 M01S00815.ns2507 ---| NJN ERR6 IF GENERAL STATUS OBTAINED
01036 M01S00816.ns2507 ---| LDM TEPF,EC
01037 M01S00817.ns2507 ---| SHN 21-6
01038 M01S00818.ns2507 ---| PJN ERR6 IF DOWNING CHANNEL INAPPROPRIATE
01039 M01S00819.ns2507 ---| LDD T5 DOWN CHANNEL ON DEVICE
01040 M01S00820.ns2507 ---| RJM RCS
01041 M00S00821.1xy +++| ERR6 AOD RS SET RECOVERY STATUS
01042 M00S00822.1xy +++| UJN ERR11 TERMINATE ERROR PROCESSING
01043 M00S00823.1xy +++|
| Line S00012 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01044 M01S00012.ns2732 +++|* CHECK FOR CONTROLWARE RELOAD.
01045 M01S00013.ns2732 +++|
01046 M01S00014.ns2732 +++| ERR7 RJM RHR RELEASE HARDWARE RESERVE
01047 M01S00015.ns2732 +++| RJM RLC LOAD CONTROLWARE IF NECESSARY
| Line S00824 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01048 M01S00824.ns2732 ---|* SET THE SUSPECT FLAG IF APPROPRIATE FOR THIS ERROR TYPE.
01049 M01S00825.ns2732 ---|
01050 M01S00826.ns2732 ---| ERR7 RJM SSF SET SUSPECT FLAG (IF APPROPRIATE)
01051 M01S00827.ns2732 ---| RJM IBD ISSUE B-DISPLAY MESSAGE
01052 M00S00828.1xy +++|
01053 M00S00829.1xy +++|* RETRY I/O SEQUENCE.
01054 M00S00830.1xy +++|
01055 M00S00831.1xy +++| ERR9 RJM ISF ISSUE SEEK FUNCTION
01056 M00S00832.1xy +++| ZJN ERR10 IF ON CYLINDER AND NO ERROR
01057 M00S00833.1xy +++| LDD GS
01058 M00S00834.1xy +++| LMN 2
01059 M00S00835.1xy +++| ZJN ERR9 IF POSITIONER BUSY
| Line S00836 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01060 M01S00836.ns2732 ---| LMN 10&2
01061 M01S00837.ns2732 ---| ZJN ERR6 IF DRIVE RESERVED ON OTHER ACCESS
01062 M00S00838.1xy +++| UJP ERR1 RESTART ERROR PROCESSING
01063 M00S00839.1xy +++|
01064 M00S00840.1xy +++| ERR10 RJM PFR PREPARE FOR RETRY ATTEMPT
01065 M00S00841.1xy +++| RJM PDT PERFORM READ/WRITE OPERATION
01066 M00S00842.1xy +++|
01067 M00S00843.1xy +++|* CONTROL RETURNS TO THIS POINT ONLY IF THE ERROR WAS
01068 M00S00844.1xy +++|* RECOVERED.
01069 M00S00845.1xy +++|
01070 M00S00846.1xy +++| ERR11 AOD RS SET RECOVERY STATUS
| Line S00006 Modification History |
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
01071 M01S00006.ns2732a +++| SHN 6
01072 M01S00007.ns2732a +++| RAD RC ADJUST FOR CONTROLLER RECOVERY
01073 M00S00847.1xy +++|
01074 M00S00848.1xy +++|* TERMINATE ERROR PROCESSING. INSTRUCTIONS MODIFIED FOR ERROR
01075 M00S00849.1xy +++|* PROCESSING WILL BE RESTORED TO THEIR ORIGINAL VALUES, VARIOUS
01076 M00S00850.1xy +++|* DATA CELLS WILL BE RESTORED TO THEIR INITIAL STATES, ETC.
01077 M00S00851.1xy +++|
01078 M00S00852.1xy +++| RJM TEP TERMINATE ERROR PROCESSING
01079 M00S00853.1xy +++| LJM MST EXIT ERROR PROCESSOR
| Line S00008 Modification History |
M01 (Added by) | ns2560 |
Seq # *Modification Id* Act
----------------------------+
01080 M01S00008.ns2560 +++|
01081 M01S00009.ns2560 +++|
01082 M01S00010.ns2560 +++| ERRA CON 0 RECOVERY IN PROGRESS PASS COUNTER
01083 M00S00854.1xy +++| TEPF SPACE 4,30
01084 M00S00855.1xy +++|** TEPF - TABLE OF ERROR PROCESSING FLAGS.
01085 M00S00856.1xy +++|*
01086 M00S00857.1xy +++|* THIS TABLE CONTAINS INFORMATION RELATED TO EACH ERROR TYPE.
01087 M00S00858.1xy +++|* EACH ENTRY HAS THE FOLLOWING FORMAT -
01088 M00S00859.1xy +++|* VFD 2/ERROR COUNT INCREMENT, BML MESSAGE INDICATOR
01089 M00S00860.1xy +++|* 0 DO NOT INCREMENT ERROR COUNTS AND DO
01090 M00S00861.1xy +++|* NOT ISSUE BML MESSAGE.
01091 M00S00862.1xy +++|* 1 INCREMENT ERROR COUNTS AND ISSUE BML
01092 M00S00863.1xy +++|* MESSAGE.
01093 M00S00864.1xy +++|* 2 INCREMENT ERROR COUNTS AND ISSUE BML
01094 M00S00865.1xy +++|* MESSAGE IF UNRECOVERED ERROR.
| Line S00866 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01095 M01S00866.ns2732 ---|* VFD 2/ERROR LOG MESSAGE INDICATOR
01096 M01S00867.ns2732 ---|* 0 DO NOT ISSUE ERROR LOG MESSAGE.
01097 M01S00868.ns2732 ---|* 1 ISSUE ERROR LOG MESSAGE WITH DETAILED
01098 M01S00869.ns2732 ---|* STATUS.
01099 M01S00870.ns2732 ---|* 2 ISSUE ERROR LOG MESSAGE WITHOUT
01100 M01S00871.ns2732 ---|* DETAILED STATUS.
| Line S00016 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01101 M01S00016.ns2732 +++|* VFD 2/UNUSED (ZERO)
01102 M00S00872.1xy +++|* VFD 1/SUSPECT FLAG
01103 M00S00873.1xy +++|* 0 DO NOT SET SUSPECT FLAG.
01104 M00S00874.1xy +++|* 1 SET SUSPECT FLAG.
| Line S00875 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01105 M01S00875.ns2732 ---|* VFD 1/DOWN CHANNEL FLAG
01106 M01S00876.ns2732 ---|* 0 DO NOT DOWN CHANNEL.
01107 M01S00877.ns2732 ---|* 1 DOWN CHANNEL.
01108 M01S00878.ns2732 ---|* VFD 1/CONTROLLER RELOAD FLAG
01109 M01S00879.ns2732 ---|* 0 DO NOT RELOAD CONTROLLER.
01110 M01S00880.ns2732 ---|* 1 RELOAD CONTROLLER.
01111 M01S00881.ns2732 ---|* VFD 5/UNUSED (ZERO)
| Line S00017 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01112 M01S00017.ns2732 +++|* VFD 7/UNUSED (ZERO)
01113 M00S00882.1xy +++|
01114 M00S00883.1xy +++|
01115 M00S00884.1xy +++| LIST G
01116 M00S00885.1xy +++| TEPF EQU *-1
01117 M00S00886.1xy +++| ECHO 1,EC=("DREC")
| Line S00887 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01118 M01S00887.ns2732 ---| VFD 2/IEC._EC,2/IEM._EC,1/SUS._EC,1/IDC._EC,1/CWR._EC,5/0
| Line S00018 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01119 M01S00018.ns2732 +++| VFD 2/IEC._EC,2/0,1/SUS._EC,7/0
01120 M00S00888.1xy +++| LIST *
01121 M00S00889.1xy +++| TMNE SPACE 4,10
01122 M00S00890.1xy +++|** TMNE - TABLE OF ERROR CODE MNEMONICS.
01123 M00S00891.1xy +++|
01124 M00S00892.1xy +++|
01125 M00S00893.1xy +++| LIST G
01126 M00S00894.1xy +++| TMNE EQU *-1
01127 M00S00895.1xy +++| ECHO 1,ERRCODE=("DREC")
01128 M00S00896.1xy +++| CON EMN._ERRCODE "TXT._ERRCODE" ERROR
01129 M00S00897.1xy +++| LIST *
01130 M00S00898.1xy +++| TREC SPACE 4,10
01131 M00S00899.1xy +++|** TREC - TABLE OF RETRY COUNTS.
01132 M00S00900.1xy +++|
01133 M00S00901.1xy +++|
01134 M00S00902.1xy +++| LIST G
01135 M00S00903.1xy +++| TREC EQU *-1
01136 M00S00904.1xy +++| ECHO 1,ERRCODE=("DREC")
01137 M00S00905.1xy +++| CON RTC._ERRCODE "TXT._ERRCODE" ERROR
01138 M00S00906.1xy +++| LIST *
01139 M00S00907.1xy +++| TSYM SPACE 4,10
01140 M00S00908.1xy +++|** TSYM - TABLE OF BML SYMPTOM CODES.
01141 M00S00909.1xy +++|
01142 M00S00910.1xy +++|
01143 M00S00911.1xy +++| LIST G
01144 M00S00912.1xy +++| TSYM EQU *-1
01145 M00S00913.1xy +++| ECHO 1,ERRCODE=("DREC")
01146 M00S00914.1xy +++| CON SYM._ERRCODE "TXT._ERRCODE" ERROR
01147 M00S00915.1xy +++| LIST *
01148 M00S00916.1xy +++| FNC SPACE 4,10
01149 M00S00917.1xy +++|** FNC - FUNCTION CHANNEL.
01150 M00S00918.1xy +++|*
01151 M00S00919.1xy +++|* ENTRY (A) = FUNCTION CODE.
01152 M00S00920.1xy +++|*
01153 M00S00921.1xy +++|* EXIT (A) .LT. 0 IF CHANNEL ACTIVE UPON ENTRY OR FUNCTION
01154 M00S00922.1xy +++|* TIMEOUT. (EC) = COMPLEMENT OF ERROR CODE.
01155 M00S00923.1xy +++|* .EQ. 0 IF NO ERROR, CHANNEL ACTIVE.
01156 M00S00924.1xy +++|*
01157 M00S00925.1xy +++|* USES EC.
01158 M00S00926.1xy +++|
01159 M00S00927.1xy +++|
01160 M00S00928.1xy +++| FNC6 ACN CH ACTIVATE CHANNEL
01161 M00S00929.1xy +++| LDN 0 SET REPLY STATUS
01162 M00S00930.1xy +++|
01163 M00S00931.1xy +++| FNC SUBR ENTRY/EXIT
01164 M00S00932.1xy +++| PJN FNC0 IF CONTROLLER FUNCTION
01165 M00S00933.1xy +++| LPC 177777
01166 M00S00934.1xy +++| STML FNCB
01167 M00S00935.1xy +++| UJN FNC0.1 CONTINUE
01168 M00S00936.1xy +++|
01169 M00S00937.1xy +++| FNC0 STM FNCA SAVE FUNCTION CODE
01170 M00S00938.1xy +++| FNC0.1 AJM FNC5,CH IF CHANNEL IS STILL ACTIVE
| Line S00022 Modification History |
M01 (Added by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
01171 M01S00022.1xy2 +++|* UJN FNC5.1 (CHANNEL INITIALIZATION ERROR)
01172 M01S00023.1xy2 +++| FNCC EQU *-2
01173 M00S00939.1xy +++| FAN CH FUNCTION CHANNEL
01174 M00S00940.1xy +++|
01175 M00S00941.1xy +++|* THE DRIVER MUST WAIT AT LEAST 300 MS BEFORE TIMING OUT THE
01176 M00S00942.1xy +++|* FUNCTION.
01177 M00S00943.1xy +++|
01178 M00S00944.1xy +++| FNC1 ADD ON
01179 M00S00945.1xy +++| IJM FNC6,CH IF FUNCTION ACCEPTED
01180 M00S00946.1xy +++| NJN FNC1 IF NOT TIMEOUT YET
01181 M00S00947.1xy +++| LCN FTOE
01182 M00S00948.1xy +++| FNC3 STD EC
01183 M00S00949.1xy +++| EJM FNC4,CH IF CHANNEL IS EMPTY
01184 M00S00950.1xy +++| LDN 1 SAVE LAST FUNCTION ISSUED
01185 M00S00951.1xy +++| IAM FNCA,CH
01186 M00S00952.1xy +++| FNC4 LCN 0 SET ERROR REPLY STATUS
01187 M00S00953.1xy +++| DCN CH+40
01188 M00S00954.1xy +++| UJN FNCX RETURN
01189 M00S00955.1xy +++|
01190 M00S00956.1xy +++| FNC5 LCN CHFE SET *CHANNEL FAILURE* ERROR CODE
01191 M00S00957.1xy +++| UJN FNC3 INPUT DATA/FUNCTION FROM CHANNEL
| Line S00024 Modification History |
M01 (Added by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
01192 M01S00024.1xy2 +++|
01193 M01S00025.1xy2 +++| FNC5.1 LCN CHFE SET *CHANNEL FAILURE* ERROR CODE
01194 M01S00026.1xy2 +++| STD EC
01195 M01S00027.1xy2 +++| UJN FNCX RETURN
01196 M00S00958.1xy +++|
01197 M00S00959.1xy +++|
01198 M00S00960.1xy +++| FNCA CON -0 CURRENT FUNCTION
01199 M00S00961.1xy +++| FNCB CON -0 CURRENT ADAPTER FUNCTION
01200 M00S00962.1xy +++| FNN SPACE 4,10
01201 M00S00963.1xy +++|** FNN - FUNCTION CHANNEL NO ACTIVATE.
01202 M00S00964.1xy +++|*
01203 M00S00965.1xy +++|* ENTRY (A) = FUNCTION CODE.
01204 M00S00966.1xy +++|*
01205 M00S00967.1xy +++|* EXIT (A) .LT. 0 IF CHANNEL ACTIVE UPON ENTRY OR FUNCTION
01206 M00S00968.1xy +++|* TIMEOUT. (EC) = COMPLEMENT OF ERROR CODE.
01207 M00S00969.1xy +++|* .GE. 0 IF NO ERROR.
01208 M00S00970.1xy +++|*
01209 M00S00971.1xy +++|* USES EC.
01210 M00S00972.1xy +++|
01211 M00S00973.1xy +++|
01212 M00S00974.1xy +++| FNN6 LDN 0 SET REPLY STATUS
01213 M00S00975.1xy +++|
01214 M00S00976.1xy +++| FNN SUBR ENTRY/EXIT
01215 M00S00977.1xy +++| PJN FNN0 IF CONTROLLER FUNCTION
01216 M00S00978.1xy +++| LPC 177777
01217 M00S00979.1xy +++| STML FNCB
01218 M00S00980.1xy +++| UJN FNN0.1 CONTINUE
01219 M00S00981.1xy +++|
01220 M00S00982.1xy +++| FNN0 STM FNCA SAVE FUNCTION CODE
01221 M00S00983.1xy +++| FNN0.1 AJM FNN5,CH IF CHANNEL IS STILL ACTIVE
| Line S00028 Modification History |
M01 (Added by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
01222 M01S00028.1xy2 +++|* UJN FNN5.1 (CHANNEL INITIALIZATION ERROR)
01223 M01S00029.1xy2 +++| FNNA EQU *-2
01224 M00S00984.1xy +++| FAN CH FUNCTION CHANNEL
01225 M00S00985.1xy +++|
01226 M00S00986.1xy +++|* THE DRIVER MUST WAIT AT LEAST 300 MS BEFORE TIMING OUT THE
01227 M00S00987.1xy +++|* FUNCTION.
01228 M00S00988.1xy +++|
01229 M00S00989.1xy +++| FNN1 ADD ON
01230 M00S00990.1xy +++| IJM FNN6,CH IF FUNCTION ACCEPTED
01231 M00S00991.1xy +++| NJN FNN1 IF NOT TIMEOUT YET
01232 M00S00992.1xy +++| LCN FTOE SET COMPLEMENT OF *FTOE* ERROR CODE
01233 M00S00993.1xy +++| FNN3 STD EC
01234 M00S00994.1xy +++| EJM FNN4,CH IF CHANNEL IS EMPTY
01235 M00S00995.1xy +++| LDN 1 SAVE LAST FUNCTION ISSUED
01236 M00S00996.1xy +++| IAM FNCA,CH
01237 M00S00997.1xy +++| FNN4 LCN 0 SET ERROR REPLY STATUS
01238 M00S00998.1xy +++| DCN CH+40
01239 M00S00999.1xy +++| UJN FNNX RETURN
01240 M00S01000.1xy +++|
01241 M00S01001.1xy +++| FNN5 LCN CHFE SET *CHANNEL FAILURE* ERROR CODE
01242 M00S01002.1xy +++| UJN FNN3 INPUT DATA/FUNCTION FROM CHANNEL
| Line S00030 Modification History |
M01 (Added by) | 1xy2 |
Seq # *Modification Id* Act
----------------------------+
01243 M01S00030.1xy2 +++|
01244 M01S00031.1xy2 +++| FNN5.1 LCN CHFE SET *CHANNEL FAILURE* ERROR CODE
01245 M01S00032.1xy2 +++| STD EC
01246 M01S00033.1xy2 +++| UJN FNNX RETURN
01247 M00S01003.1xy +++| GDS SPACE 4,15
01248 M00S01004.1xy +++|** GDS - GET DETAILED STATUS.
01249 M00S01005.1xy +++|*
01250 M00S01006.1xy +++|* THIS ROUTINE OBTAINS THE DETAILED STATUS FROM THE CONTROLLER.
01251 M00S01007.1xy +++|*
01252 M00S01008.1xy +++|* EXIT (A) .EQ. 0 IF STATUS OBTAINED.
01253 M00S01009.1xy +++|* .LT. 0 IF STATUS NOT OBTAINED.
01254 M00S01010.1xy +++|* (EC) = COMPLEMENT OF ERROR CODE IF STATUS NOT
01255 M00S01011.1xy +++|* OBTAINED.
01256 M00S01012.1xy +++|*
01257 M00S01013.1xy +++|* USES EC, T1.
01258 M00S01014.1xy +++|*
01259 M00S01015.1xy +++|* CALLS FNC.
01260 M00S01016.1xy +++|
01261 M00S01017.1xy +++|
01262 M00S01018.1xy +++| GDS2 LCN IDTE SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01263 M00S01019.1xy +++| GDS3 STD EC
01264 M00S01020.1xy +++| GDS4 LDN MXSL-1 INVALIDATE DETAILED STATUS
01265 M00S01021.1xy +++| STD T1
01266 M00S01022.1xy +++| GDS5 LCN 0
01267 M00S01023.1xy +++| STM DST,T1
01268 M00S01024.1xy +++| SOD T1
01269 M00S01025.1xy +++| PJN GDS5 IF MORE BYTES
01270 M00S01026.1xy +++| GDS6 DCN CH+40
01271 M00S01027.1xy +++|
01272 M00S01028.1xy +++| GDS SUBR ENTRY/EXIT
01273 M00S01029.1xy +++| LDN FCDS ISSUE DETAILED STATUS FUNCTION
01274 M00S01030.1xy +++| RJM FNC
01275 M00S01031.1xy +++| MJN GDS4 IF ERROR
01276 M00S01032.1xy +++| LDN MXSL
01277 M00S01033.1xy +++| IAM DST,CH INPUT DETAILED STATUS
01278 M00S01034.1xy +++| NJN GDS2 IF INCOMPLETE DATA TRANSFER
01279 M00S01035.1xy +++| SFM GDS1,CH IF CHANNEL PARITY ERROR
01280 M00S01036.1xy +++| UJN GDS6 RETURN
01281 M00S01037.1xy +++|
01282 M00S01038.1xy +++| GDS1 LCN CHPE SET *CHANNEL PARITY* ERROR CODE
01283 M00S01039.1xy +++| UJN GDS3 SET ERROR CODE
01284 M00S01040.1xy +++| GGS SPACE 4,20
01285 M00S01041.1xy +++|** GGS - GET GENERAL STATUS.
01286 M00S01042.1xy +++|*
01287 M00S01043.1xy +++|* THIS ROUTINE OBTAINS GENERAL STATUS FROM THE CONTROLLER.
01288 M00S01044.1xy +++|*
01289 M00S01045.1xy +++|* EXIT (A) .EQ. 0 IF GENERAL STATUS OBTAINED. (GS) = STATUS.
01290 M00S01046.1xy +++|* .LT. 0 IF STATUS NOT OBTAINED. (GS) = 7777.
01291 M00S01047.1xy +++|* (EC) = COMPLEMENT OF *IDET* ERROR CODE IF INCOMPLETE
01292 M00S01048.1xy +++|* DATA TRANSFER OCCURRED.
01293 M00S01049.1xy +++|* = COMPLEMENT OF *CHPE* ERROR CODE IF CHANNEL
01294 M00S01050.1xy +++|* PARITY ERROR OCCURRED.
01295 M00S01051.1xy +++|*
01296 M00S01052.1xy +++|* USES EC, GS.
01297 M00S01053.1xy +++|*
01298 M00S01054.1xy +++|* CALLS FNC.
01299 M00S01055.1xy +++|
01300 M00S01056.1xy +++|
01301 M00S01057.1xy +++| GGS1 LCN CHPE SET *CHANNEL PARITY* ERROR CODE
01302 M00S01058.1xy +++| UJN GGS3 SET ERROR CODE
01303 M00S01059.1xy +++|
01304 M00S01060.1xy +++| GGS2 LCN IDTE SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01305 M00S01061.1xy +++| GGS3 STD EC
01306 M00S01062.1xy +++| GGS4 LCN 0 INVALIDATE GENERAL STATUS
01307 M00S01063.1xy +++| STD GS
01308 M00S01064.1xy +++| GGS5 DCN CH+40
01309 M00S01065.1xy +++|
01310 M00S01066.1xy +++| GGS SUBR ENTRY/EXIT
01311 M00S01067.1xy +++| LDN FCGS ISSUE GENERAL STATUS FUNCTION
01312 M00S01068.1xy +++| RJM FNC
01313 M00S01069.1xy +++| MJN GGS4 IF FUNCTION TIMEOUT
01314 M00S01070.1xy +++| LDN 1 INPUT STATUS
01315 M00S01071.1xy +++| IAM GS,CH
01316 M00S01072.1xy +++| NJN GGS2 IF INCOMPLETE TRANSFER
01317 M00S01073.1xy +++| SFM GGS1,CH IF CHANNEL PARITY ERROR
01318 M00S01074.1xy +++| LDD GS
01319 M00S01075.1xy +++| UJN GGS5 RETURN
| Line S01076 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01320 M01S01076.ns2769 ---| IBD SPACE 4,15
01321 M01S01077.ns2769 ---|** IBD - ISSUE B-DISPLAY MESSAGE.
01322 M01S01078.ns2769 ---|*
01323 M01S01079.ns2769 ---|* THIS ROUTINE ISSUES A MESSAGE TO *MS2W* OF THE SYSTEM CONTROL
01324 M01S01080.ns2769 ---|* POINT FOR PRESENTATION ON B-DISPLAY.
01325 M01S01081.ns2769 ---|*
01326 M01S01082.ns2769 ---|* ENTRY (EC) = ERROR CODE.
01327 M01S01083.ns2769 ---|* (RC) = RETRY COUNT.
01328 M01S01084.ns2769 ---|* (T5) = EST ORDINAL.
01329 M01S01085.ns2769 ---|*
01330 M01S01086.ns2769 ---|* CALLS C2D.
| Line S01087 Modification History |
M01 (Removed by) | ns2558 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01331 M02S01087.ns2769 ---|*
01332 M02S01088.ns2769 ---|* MACROS DELAY.
| Line S01089 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01333 M01S01089.ns2769 ---|
01334 M01S01090.ns2769 ---|
01335 M01S01091.ns2769 ---| IBD SUBR ENTRY/EXIT
01336 M01S01092.ns2769 ---| LDM TREC,EC
| Line S01093 Modification History |
M01 (Removed by) | ns2732 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01337 M02S01093.ns2769 ---| SHN -2
| Line S00019 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01338 M02S00019.ns2769 ---| SHN -1
| Line S01094 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01339 M01S01094.ns2769 ---| SBD RC
01340 M01S01095.ns2769 ---| PJN IBDX IF TOO EARLY TO NOTIFY OPERATOR
01341 M01S01096.ns2769 ---| LDD T5 STORE EST ORDINAL IN MESSAGE
01342 M01S01097.ns2769 ---| SHN -3
01343 M01S01098.ns2769 ---| RJM C2D
01344 M01S01099.ns2769 ---| STM IBDA+1
01345 M01S01100.ns2769 ---| LDD T5
01346 M01S01101.ns2769 ---| LPN 7
01347 M01S01102.ns2769 ---| SHN 6
01348 M01S01103.ns2769 ---| ADC 2R0
01349 M01S01104.ns2769 ---| STM IBDA+2
01350 M01S01105.ns2769 ---| LDM TMNE,EC STORE ERROR MNEMONIC IN MESSAGE
01351 M01S01106.ns2769 ---| STM IBDA+3
01352 M01S01107.ns2769 ---| LDD CP
01353 M01S01108.ns2769 ---| ADK MS2W
01354 M01S01109.ns2769 ---| CWM IBDA,TR
| Line S01110 Modification History |
M01 (Removed by) | ns2558 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01355 M02S01110.ns2769 ---| DELAY 200D*8D DELAY FOR 200 MILLISECONDS
| Line S01111 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01356 M01S01111.ns2769 ---| UJP IBDX RETURN
01357 M01S01112.ns2769 ---|
01358 M01S01113.ns2769 ---|
01359 M01S01114.ns2769 ---| IBDA DATA C*EQ000 XX ERROR RETRY UNDERWAY.*
01360 M00S01115.1xy +++| IBM SPACE 4,25
01361 M00S01116.1xy +++|** IBM - ISSUE BML MESSAGE.
01362 M00S01117.1xy +++|*
| Line S01118 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01363 M01S01118.ns2769 ---|* THIS ROUTINE BUILDS A BML MESSAGE AND CALLS ROUTINE *IMS* TO
| Line S00106 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01364 M01S00106.ns2769 +++|* THIS ROUTINE BUILDS A BML MESSAGE AND CALLS ROUTINE *IMB* TO
01365 M00S01119.1xy +++|* ISSUE THE MESSAGE TO THE BML.
01366 M00S01120.1xy +++|*
01367 M00S01121.1xy +++|* ENTRY (CA - CA+3) = SEEK PARAMETERS.
01368 M00S01122.1xy +++|* (EC) = ERROR CODE.
01369 M00S01123.1xy +++|* (ER) = RECOVERY IN PROGRESS FLAG.
01370 M00S01124.1xy +++|* (RC) = RETRY COUNT.
01371 M00S01125.1xy +++|* (RS) = RECOVERY STATUS.
01372 M00S01126.1xy +++|* 777X INITIAL RETRY.
01373 M00S01127.1xy +++|* 0 RECOVERED BY CONTROLLER.
01374 M00S01128.1xy +++|* 1 RECOVERED BY DRIVER.
01375 M00S01129.1xy +++|* 2 UNRESOLVED.
01376 M00S01130.1xy +++|* 3 UNRECOVERED.
01377 M00S01131.1xy +++|* (RW) = READ/WRITE FLAG.
01378 M00S01132.1xy +++|* (T5) = EST ORDINAL.
01379 M00S01133.1xy +++|* (BMLGS) = GENERAL STATUS.
01380 M00S01134.1xy +++|* (DST - DST+23) = DETAILED STATUS IF APPLICABLE.
01381 M00S01135.1xy +++|*
| Line S01136 Modification History |
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act
----------------------------+
01382 M01S01136.ns2507 ---|* USES T1, T2.
| Line S00004 Modification History |
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2519 |
Seq # *Modification Id* Act
----------------------------+
01383 M02S00004.ns2519 ---|* USES T1.
| Line S00001 Modification History |
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01384 M02S00001.ns2732 ---|* USES S2, T1.
| Line S00020 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
01385 M02S00020.ns2732a ---|* EXIT (RC) INCREMENTED.
| Line S00008 Modification History |
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
01386 M01S00008.ns2732a +++|* EXIT (RC) INCREMENTED IF FIRST RETRY.
| Line S00021 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01387 M01S00021.ns2732 +++|*
| Line S00022 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01388 M02S00022.ns2769 ---|* USES RC, T1.
| Line S00107 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01389 M01S00107.ns2769 +++|* USES RC, T1, CM+1 - CM+3.
01390 M00S01137.1xy +++|*
| Line S01138 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01391 M01S01138.ns2769 ---|* CALLS IEC, IMS.
| Line S00108 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01392 M01S00108.ns2769 +++|* CALLS IMB.
01393 M01S00109.ns2769 +++|*
01394 M01S00110.ns2769 +++|* MACROS MONITOR.
01395 M00S01139.1xy +++|
01396 M00S01140.1xy +++|
01397 M00S01141.1xy +++| IBM SUBR ENTRY/EXIT
| Line S00023 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
01398 M02S00023.ns2732a ---| AOD RC INCREMENT RETRY COUNT
01399 M00S01142.1xy +++| LDM TEPF,EC
01400 M00S01143.1xy +++| SHN 0-12
01401 M00S01144.1xy +++| ZJN IBMX IF NO BML MESSAGE/ERROR COUNT INCREMENT
| Line S01145 Modification History |
M01 (Removed by) | ns2562 |
Seq # *Modification Id* Act
----------------------------+
01402 M01S01145.ns2562 ---| SHN 12-13
01403 M01S01146.ns2562 ---| ZJN IBM1 IF BML MESSAGE MAY BE ISSUED
01404 M01S01147.ns2562 ---| LDD RS
01405 M01S01148.ns2562 ---| LMN 3
01406 M01S01149.ns2562 ---| NJN IBMX IF NOT UNRECOVERED ERROR
| Line S01150 Modification History |
M01 (Removed by) | ns2507 |
M02 (Removed by) | ns2562 |
Seq # *Modification Id* Act
----------------------------+
01407 M02S01150.ns2562 ---| IBM1 STD T2
01408 M02S01151.ns2562 ---| LDD RS
| Line S00005 Modification History |
M01 (Added by) | ns2507 |
M02 (Removed by) | ns2519 |
M03 (Removed by) | ns2562 |
Seq # *Modification Id* Act
----------------------------+
01409 M03S00005.ns2562 ---| IBM1 LDD RS
| Line S00002 Modification History |
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2562 |
Seq # *Modification Id* Act
----------------------------+
01410 M02S00002.ns2562 ---| IBM1 STD S2
| Line S00001 Modification History |
M01 (Added by) | ns2562 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01411 M02S00001.ns2732 ---| LDN 0
01412 M02S00002.ns2732 ---| STD S2
| Line S00003 Modification History |
M01 (Added by) | ns2519 |
Seq # *Modification Id* Act
----------------------------+
01413 M01S00003.ns2519 +++| LDD RS
01414 M00S01152.1xy +++| LMN 2
01415 M00S01153.1xy +++| ZJN IBMX IF UNRESOLVED ERROR
01416 M00S01154.1xy +++| SHN 21-13
| Line S01155 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01417 M01S01155.ns2732 ---| PJN IBM2 IF FINAL RETRY
| Line S00024 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01418 M01S00024.ns2732 +++| PJN IBM1 IF FINAL RETRY
01419 M00S01156.1xy +++| LDD RC
| Line S00025 Modification History |
M01 (Added by) | ns2732 |
M02 (Removed by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
01420 M02S00025.ns2732a ---| LMN 1
01421 M00S01157.1xy +++| NJN IBMX IF NOT INITIAL RETRY
| Line S00009 Modification History |
M01 (Added by) | ns2732a |
Seq # *Modification Id* Act
----------------------------+
01422 M01S00009.ns2732a +++| AOD RC INCREMENT RETRY COUNT
| Line S00004 Modification History |
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01423 M02S00004.ns2732 ---| AOD S2
| Line S01158 Modification History |
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act
----------------------------+
01424 M01S01158.ns2507 ---| AOD T2
01425 M00S01159.1xy +++| UJN IBM3 CONTINUE
01426 M00S01160.1xy +++|
| Line S00026 Modification History |
M01 (Added by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01427 M01S00026.ns2732 +++| IBM1 SHN 13-1
01428 M01S00027.ns2732 +++| PJN IBM2 IF UNRECOVERED
01429 M01S00028.ns2732 +++| LDN 2
01430 M01S00029.ns2732 +++| SBD RC
01431 M01S00030.ns2732 +++| MJN IBM2 IF NOT RECOVERED ON FIRST RETRY
01432 M01S00031.ns2732 +++| LDK STAE
01433 M01S00032.ns2732 +++| LMD EC
01434 M01S00033.ns2732 +++| ZJN IBM3 IF ERROR NOT TO BE COUNTED
| Line S01161 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01435 M01S01161.ns2769 ---| IBM2 RJM IEC INCREMENT ERROR COUNTER
| Line S00111 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01436 M01S00111.ns2769 +++|
01437 M01S00112.ns2769 +++|* INCREMENT ERROR COUNTER.
01438 M01S00113.ns2769 +++|
01439 M01S00114.ns2769 +++| IBM2 LDD T5 SET EST ORDINAL
01440 M01S00115.ns2769 +++| STD CM+1
01441 M01S00116.ns2769 +++| LDD RS SET BYTE NUMBER
01442 M01S00117.ns2769 +++| SHN -1
01443 M01S00118.ns2769 +++| ADN 3
01444 M01S00119.ns2769 +++| STD CM+2
01445 M01S00120.ns2769 +++| LDK ICTS SET SUBFUNCTION
01446 M01S00121.ns2769 +++| STD CM+3
01447 M01S00122.ns2769 +++| MONITOR SMDM
| Line S01162 Modification History |
M01 (Removed by) | ns2497 |
Seq # *Modification Id* Act
----------------------------+
01448 M01S01162.ns2497 ---| SOD RC
01449 M00S01163.1xy +++| IBM3 LDD RS SET RECOVERED/UNRECOVERED FLAG
01450 M00S01164.1xy +++| ADN 5
01451 M00S01165.1xy +++| SHN -3
01452 M00S01166.1xy +++| LPN 1
01453 M00S01167.1xy +++| STD T1
01454 M00S01168.1xy +++| LDC /COMSDFS/D1XY*400 STORE SYMPTOM CODE
01455 M00S01169.1xy +++| LMM TSYM,EC
01456 M00S01170.1xy +++| STM BMLSC
01457 M00S01171.1xy +++| LMK /COMSDFS/HS0040+/COMSDFS/D1XY*400
01458 M00S01172.1xy +++| NJN IBM4 IF NOT A MEDIA ERROR
01459 M00S01173.1xy +++| LDD RW
01460 M00S01174.1xy +++| ERRNZ /COMSDFS/HS0041-/COMSDFS/HS0040-1 ERROR
01461 M00S01175.1xy +++| RAM BMLSC
01462 M00S01176.1xy +++| IBM4 LDD RC STORE RETRY COUNT
| Line S01177 Modification History |
M01 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01463 M01S01177.ns2732 ---| ADN 1
01464 M00S01178.1xy +++| SHN 6-1
01465 M00S01179.1xy +++| ADD RW ADD READ/WRITE FLAG
01466 M00S01180.1xy +++| SHN 1
01467 M00S01181.1xy +++| ADD T1 ADD RECOVERY STATUS
01468 M00S01182.1xy +++| STM BMLRC
| Line S00005 Modification History |
M01 (Added by) | ns2519 |
M02 (Removed by) | ns2732 |
Seq # *Modification Id* Act
----------------------------+
01469 M02S00005.ns2732 ---| LDD S2 SET RETRY COUNT = 1 IF INITIAL RETRY
01470 M02S00006.ns2732 ---| RAD RC
| Line S01183 Modification History |
M01 (Removed by) | ns2507 |
Seq # *Modification Id* Act
----------------------------+
01471 M01S01183.ns2507 ---| LDD T2
01472 M01S01184.ns2507 ---| RAD RC
01473 M00S01185.1xy +++| LDD CA UNIT NUMBER
01474 M00S01186.1xy +++| LPN 77
01475 M00S01187.1xy +++| STM BMLUN
01476 M00S01188.1xy +++| LDD T5 EST ORDINAL
01477 M00S01189.1xy +++| STM BMLEO
01478 M00S01190.1xy +++| LDD EC ERROR CODE
01479 M00S01191.1xy +++| STM BMLEC
01480 M00S01192.1xy +++| LDD CA+1 CYLINDER
01481 M00S01193.1xy +++| STM BMLCY
01482 M00S01194.1xy +++| LDD CA+2 TRACK AND SECTOR
01483 M00S01195.1xy +++| SHN 6
01484 M00S01196.1xy +++| LMD CA+3
01485 M00S01197.1xy +++| STM BMLTS
| Line S01198 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01486 M01S01198.ns2769 ---| LDC BMS1LC*10000+BML ISSUE MESSAGE
| Line S00123 Modification History |
M01 (Added by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01487 M01S00123.ns2769 +++| LDC BML ISSUE *BML* MESSAGE
01488 M01S00124.ns2769 +++| RJM IMB ISSUE MESSAGE TO BUFFER
| Line S01199 Modification History |
M01 (Removed by) | ns2769 |
Seq # *Modification Id* Act
----------------------------+
01489 M01S01199.ns2769 ---| RJM IMS
01490 M00S01200.1xy +++| UJP IBMX RETURN
01491 M00S01201.1xy +++| BML SPACE 4,10
01492 M00S01202.1xy +++|* BINARY MAINTENANCE LOG MESSAGE.
01493 M00S01203.1xy +++|
01494 M00S01204.1xy +++| BML BSS 0
01495 M00S01205.1xy +++|
01496 M00S01206.1xy +++| HDR1 VFD 36/0 RESERVED
01497 M00S01207.1xy +++| VFD 12/BMS1LC LENGTH OF MESSAGE
01498 M00S01208.1xy +++| VFD 12/MLDY MESSAGE TYPE
01499 M00S01209.1xy +++|
01500 M00S01210.1xy +++| VFD 12//COMSDFS/RM0115 MESSAGE ID
01501 M00S01211.1xy +++|
01502 M00S01212.1xy +++| BMLSC VFD 4//COMSDFS/D1XY DRIVER TYPE
01503 M00S01213.1xy +++| VFD 1/0 RESERVED
01504 M00S01214.1xy +++| VFD 7/0 SYMPTOM CODE
01505 M00S01215.1xy +++|
01506 M00S01216.1xy +++| BMLPP VFD 6/ PP NUMBER
01507 M00S01217.1xy +++| VFD 6/ CHANNEL NUMBER
01508 M00S01218.1xy +++|
01509 M00S01219.1xy +++| BMLUN VFD 6/0 EQUIPMENT NUMBER
01510 M00S01220.1xy +++| VFD 6/ UNIT NUMBER
01511 M00S01221.1xy +++|
01512 M00S01222.1xy +++| VFD 12/0 RESERVED
01513 M00S01223.1xy +++|
01514 M00S01224.1xy +++| BMLEO VFD 12/ EST ORDINAL
01515 M00S01225.1xy +++|
01516 M00S01226.1xy +++| BMLRC VFD 6/ RETRY COUNT
01517 M00S01227.1xy +++| VFD 4/0 RESERVED
01518 M00S01228.1xy +++| VFD 1/0 READ OPERATION
01519 M00S01229.1xy +++|* VFD 1/1 WRITE OPERATION
01520 M00S01230.1xy +++| VFD 1/0 RECOVERED ERROR
01521 M00S01231.1xy +++|* VFD 1/1 UNRECOVERED ERROR
01522 M00S01232.1xy +++|
01523 M00S01233.1xy +++| BMLCR VFD 6/ CHANNEL USED FOR RECOVERY
01524 M00S01234.1xy +++| VFD 6/0 RESERVED
01525 M00S01235.1xy +++|
01526 M00S01236.1xy +++| BMLMF VFD 12/ MAINFRAME ID
01527 M00S01237.1xy +++|
01528 M00S01238.1xy +++| VFD 12/0 RESERVED
01529 M00S01239.1xy +++|
01530 M00S01240.1xy +++| HDR1L EQU *-HDR1 HEADER LENGTH (PP WORDS)
01531 M00S01241.1xy +++| HDR1LC EQU HDR1L/5 HEADER LENGTH (CM WORDS)
01532 M00S01242.1xy +++|
01533 M00S01243.1xy +++| BMLEC VFD 12/ ERROR CODE
01534 M00S01244.1xy +++|
01535 M00S01245.1xy +++| BMLCY VFD 12/ CYLINDER
01536 M00S01246.1xy +++|
01537 M00S01247.1xy +++| BMLTS VFD 12/ TRACK AND SECTOR
01538 M00S01248.1xy +++|
01539 M00S01249.1xy +++| BMLLF VFD 12/ LAST FUNCTION
01540 M00S01250.1xy +++|
01541 M00S01251.1xy +++| BMLGS VFD 12/ GENERAL STATUS
01542 M00S01252.1xy +++|
01543 M00S01253.1xy +++|* DETAILED STATUS.
01544 M00S01254.1xy +++|
01545 M00S01255.1xy +++| DST BSS MXSL
01546 M00S01256.1xy +++|
01547 M00S01257.1xy +++|
01548 M00S01258.1xy +++|* ADAPTER STATUS.
01549 M00S01259.1xy +++|
01550 M00S01260.1xy +++| BMLAS VFD 6/ UPPER BITS OF FUNCTION CODE