User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1xy

Deck 1XY

32 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1xy     +++|          IDENT  1XY,MXY
00002  M01S00002.1xy     +++| 1XY      TITLE  1XY - 7165/895 (CCC) DMA DRIVER.
00003  M01S00003.1xy     +++|          PERIPH
00004  M01S00004.1xy     +++|          BASE   MIXED
Line S00005 Modification History
M01 (Added by) 1xy
M02 (Updated by) 274l797
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.274l797 ---|          SST
00006  M01S00001.274l797 +++|          SST    OSTE,OSTP
00007  M01S00006.1xy     +++|*COMMENT  1XY - 7165/895 (CCC) DMA DRIVER.
Line S00007 Modification History
M01 (Added by) 1xy
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00008  M02S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1985.
00009  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00010  M01S00008.1xy     +++| 1XY      SPACE  4,15
00011  M01S00009.1xy     +++|***       1XY - 7165/895 (CCC) DMA DRIVER.
00012  M01S00010.1xy     +++|*
00013  M01S00011.1xy     +++|*         G. S. ANDERSON.    04/30/84.
00014  M01S00012.1xy     +++|*         R. M. DANISCH.     02/01/86.
00015  M01S00013.1xy     +++|*         S. L. BETH.        08/01/86.
00016  M01S00014.1xy     +++| 1XY      SPACE  4,15
00017  M01S00015.1xy     +++|***       *1XY* IS THE CYBER CHANNEL COUPLER (CCC) DMA DRIVER FOR THE
00018  M01S00016.1xy     +++|*         7165/895 DISK STORAGE SUBSYSTEM.
00019  M01S00017.1xy     +++|*
00020  M01S00018.1xy     +++|*         THE 7165/895 DISK DRIVES ARE SUPPORTED AS BUFFERED I/O
00021  M01S00019.1xy     +++|*         DEVICES.  THE REQUESTS THAT ARE PROCESSED BY *1XY* ARE
00022  M01S00020.1xy     +++|*         POSTED BY *CPUMTR* IN THE BUFFERED I/O TABLES IN *CMR*.
00023  M01S00021.1xy     +++|*         *1XY* INTERLOCKS THE UNITS, LINKS THE REQUESTS, AND COMPLETES
00024  M01S00022.1xy     +++|*         THE REQUESTS BY ISSUING APPROPRIATE *BIOM* REQUESTS.
00025  M01S00023.1xy     +++|*
00026  M01S00024.1xy     +++|*         *1XY* SCANS THROUGH THE *PUT* ENTRIES IN A CIRCULAR FASHION
00027  M01S00025.1xy     +++|*         LOOKING FOR REQUESTS TO PROCESS.  ONCE A REQUEST IS FOUND
00028  M01S00026.1xy     +++|*         AND LINKED *1XY* USES THE PHYSICAL DISK AND UEM ADDRESSES IN
00029  M01S00027.1xy     +++|*         THE CORRESPONDING *CBT* ENTRY TO DETERMINE THE ACTION TO BE
00030  M01S00028.1xy     +++|*         TAKEN.  *1XY* WILL ATTEMPT TO PROCESS CONSECUTIVE SECTOR
00031  M01S00029.1xy     +++|*         REQUESTS ON THE CURRENT UNIT UNTIL THE END OF THE CYLINDER
00032  M01S00030.1xy     +++|*         OR A CONSECUTIVE SECTOR REQUEST WAS NOT FOUND.  AT THIS
00033  M01S00031.1xy     +++|*         POINT *1XY* WILL RESUME ITS SEARCH THROUGH THE *PUT* WITH THE
00034  M01S00032.1xy     +++|*         *PUT* ENTRY IMMEDIATELY FOLLOWING THE ONE JUST PROCESSED.
00035  M01S00033.1xy     +++|          SPACE  4,10
00036  M01S00034.1xy     +++|**        MESSAGES.
00037  M01S00035.1xy     +++|*
00038  M01S00036.1xy     +++|*         * 1XY - UNAUTHORIZED CALL.*
00039  M01S00037.1xy     +++|*         ISSUED TO THE SYSTEM DAYFILE IF *1XY* WAS NOT CALLED FROM
00040  M01S00038.1xy     +++|*         THE SYSTEM.
00041  M01S00039.1xy     +++|*
00042  M01S00040.1xy     +++|*         * 1XY CHANNEL XX NOT RESPONDING.*
00043  M01S00041.1xy     +++|*         ISSUED TO INDICATE THE SELECTED CHANNEL DOES NOT RESPOND
00044  M01S00042.1xy     +++|*         TO BASIC CHANNEL FUNCTIONS.
00045  M01S00043.1xy     +++|          SPACE  4,10
00046  M01S00044.1xy     +++|***       ERRLOG MESSAGES.
00047  M01S00045.1xy     +++|*
00048  M01S00046.1xy     +++|*         *EQXXX,TKNNNN, MEDIA DEFECT ENCOUNTERED.*
00049  M01S00047.1xy     +++|*
00050  M01S00048.1xy     +++|*         A MEDIA DEFECT HAS BEEN ENCOUNTERED ON EQUIPMENT WITH EST
00051  M01S00049.1xy     +++|*         ORDINAL ORD, LOGICAL TRACK NNNN.  A REQUEST HAS BEEN ISSUED
00052  M01S00050.1xy     +++|*         TO AUTOMATICALLY FLAW THIS TRACK WHEN IT IS DROPPED.
00053  M01S00051.1xy     +++|*
00054  M01S00052.1xy     +++|*         * CCHXX,MA464-DYY.*
00055  M01S00053.1xy     +++|*
00056  M01S00054.1xy     +++|*         FIRMWARE THAT IS LOADED IN THE *CCC*.
00057  M01S00055.1xy     +++|*         XX = CONCURRENT CHANNEL NUMBER.
00058  M01S00056.1xy     +++|*         YY = LEVEL FOR FIRMWARE.
00059  M01S00057.1xy     +++|*
00060  M01S00058.1xy     +++|*         *DCXXX, UYY,PS=ZZZZZZ.*
00061  M01S00059.1xy     +++|*
00062  M01S00060.1xy     +++|*         PACK SERIAL NUMBER IDENTIFICATION.
00063  M01S00061.1xy     +++|*         XXX = EST ORDINAL.
00064  M01S00062.1xy     +++|*         YY = UNIT NUMBER.
00065  M01S00063.1xy     +++|*         ZZZZZZ = SERIAL NUMBER FOR HDA.
00066  M01S00064.1xy     +++|*
Line S00065 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
00067  M02S00065.1xy3    ---|*         * HUNG BUSY - GS = XXXX.*
00068  M01S00001.1xy3    +++|*         * CCHXX, DCYYY, FORMAT FAILURE.*
00069  M01S00002.1xy3    +++|*         * HUNG BUSY - GS = ZZZZ.*
00070  M01S00066.1xy     +++|*
00071  M01S00067.1xy     +++|*         CHANNEL HUNG BUSY DURING FORMAT OPERATION.
Line S00068 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy3
Seq #  *Modification Id* Act 
----------------------------+
00072  M02S00068.1xy3    ---|*         XXXX = THE GENERAL STATUS.
00073  M01S00003.1xy3    +++|*         XX = CHANNEL NUMBER.
00074  M01S00004.1xy3    +++|*         YYY = EST ORDINAL.
00075  M01S00005.1xy3    +++|*         ZZZZ = THE GENERAL STATUS.
00076  M01S00069.1xy     +++|
00077  M01S00070.1xy     +++|
00078  M01S00071.1xy     +++|          SPACE  4,10
00079  M01S00072.1xy     +++|***       ORGANIZATION OF 7165/895 (MEASUREMENTS IN DECIMAL).
00080  M01S00073.1xy     +++|*
00081  M01S00074.1xy     +++|*         EQUIPMENT TYPE                    *DC*
00082  M01S00075.1xy     +++|*
00083  M01S00076.1xy     +++|*         PHYSICAL ORGANIZATION:
00084  M01S00077.1xy     +++|*
00085  M01S00078.1xy     +++|*           CM WORDS/PHYSICAL SECTOR        2048
00086  M01S00079.1xy     +++|*           PHYSICAL SECTORS/PHYSICAL TRACK  3
00087  M01S00080.1xy     +++|*           PHYSICAL TRACKS/CYLINDER        15
00088  M01S00081.1xy     +++|*           CYLINDERS/DEVICE                885 * N (0<N<3)
00089  M01S00082.1xy     +++|*           CM WORDS/DEVICE                 79,749,120 * N
00090  M01S00083.1xy     +++|*
00091  M01S00084.1xy     +++|*         LOGICAL ORGANIZATION:
00092  M01S00085.1xy     +++|*
00093  M01S00086.1xy     +++|*           CM WORDS/LOGICAL SECTOR         64
00094  M01S00087.1xy     +++|*           LOGICAL SECTORS/PHYSICAL SECTOR 32
00095  M01S00088.1xy     +++|*           LOGICAL SECTORS/LOGICAL TRACK   704 * N
00096  M01S00089.1xy     +++|*           LOGICAL TRACKS/CYLINDER         2
00097  M01S00090.1xy     +++|*           LOGICAL TRACKS/DEVICE           1770
00098  M01S00091.1xy     +++|*
00099  M01S00092.1xy     +++|*         MAXIMUM DATA RATE                 400.00 K CM WORDS/SECOND
00100  M01S00093.1xy     +++|          EJECT
00101  M01S00094.1xy     +++|***       SPECIAL PROGRAMMING NOTES.
00102  M01S00095.1xy     +++|*
00103  M01S00096.1xy     +++|*         THE FOLLOWING IS A LIST OF SPECIAL NOTES THAT SHOULD BE
00104  M01S00097.1xy     +++|*         READ AND UNDERSTOOD BEFORE ANY MODIFICATIONS ARE MADE TO
00105  M01S00098.1xy     +++|*         THIS PROGRAM.
00106  M01S00099.1xy     +++|*
00107  M01S00100.1xy     +++|*
00108  M01S00101.1xy     +++|*         1)  *1XM*, *1XY* AND *1HP* ARE VERY SIMILAR IN DESIGN.  MOST
00109  M01S00102.1xy     +++|*             FIXES APPLIED TO ONE OF THESE DRIVERS WILL ALSO APPLY TO
00110  M01S00103.1xy     +++|*             THE OTHERS.
00111  M01S00104.1xy     +++|*
00112  M01S00105.1xy     +++|*         2)  WHERE POSSIBLE, *CMR* POINTERS HAVE BEEN PLUGGED BY THE
00113  M01S00106.1xy     +++|*             PRESET ROUTINE TO IMPROVE THE EXECUTION SPEED OF THE
00114  M01S00107.1xy     +++|*             PROGRAM AND TO MINIMIZE THE AMOUNT OF CODE.
00115  M01S00108.1xy     +++|*
00116  M01S00109.1xy     +++|*         3)  BECAUSE *1XY* ISSUES ALL *BIOM* COMPLETION REQUESTS
00117  M01S00110.1xy     +++|*             WITHOUT WAITING FOR FUNCTION COMPLETION, THE *MONITOR*
00118  M01S00111.1xy     +++|*             MACRO HAS BEEN REDEFINED TO ENSURE THERE IS NO PENDING
00119  M01S00112.1xy     +++|*             MONITOR REQUEST AT THE TIME ANOTHER IS ABOUT TO BE
00120  M01S00113.1xy     +++|*             ISSUED.
00121  M01S00114.1xy     +++|          EJECT
00122  M01S00115.1xy     +++|
00123  M01S00116.1xy     +++|*         COMMON DECKS.
00124  M01S00117.1xy     +++|
00125  M01S00118.1xy     +++|
00126  M01S00119.1xy     +++|*CALL     COMPMAC
00127  M01S00120.1xy     +++| RICHI$   EQU    1           SELECT DEFERRED INSTRUCTION MODIFICATION
00128  M01S00121.1xy     +++|*CALL     COMPCHI
00129  M01S00122.1xy     +++|*CALL     COMPIOU
00130  M01S00123.1xy     +++|*CALL     COMSCPS
00131  M01S00124.1xy     +++|*CALL     COMSDFS
00132  M01S00125.1xy     +++|          LIST   X
00133  M01S00126.1xy     +++|*CALL     COMSHIO
00134  M01S00127.1xy     +++|          LIST   *
00135  M01S00128.1xy     +++|*CALL     COMSLSD
00136  M01S00129.1xy     +++|*CALL     COMSMSC
00137  M01S00130.1xy     +++|          LIST   X
00138  M01S00131.1xy     +++|*CALL     COMSMSP
00139  M01S00132.1xy     +++|          LIST   *
00140  M01S00133.1xy     +++|*CALL     COMSMST
00141  M01S00134.1xy     +++|*CALL     COMSPIM
00142  M01S00135.1xy     +++|*CALL     COMS1DS
00143  M01S00136.1xy     +++|          TITLE  CONSTANTS, DEFINITIONS, AND MACROS.
00144  M01S00137.1xy     +++| 1XY      SPACE  4,10
00145  M01S00138.1xy     +++|****      DIRECT CELL ASSIGNMENTS.
00146  M01S00139.1xy     +++|
00147  M01S00140.1xy     +++|
00148  M01S00141.1xy     +++| BS       EQU    15          BLOCK SIZE FOR DATA TRANSFER
00149  M01S00142.1xy     +++| RS       EQU    16          ERROR RECOVERY STATUS
00150  M01S00143.1xy     +++| ER       EQU    17          ERROR RECOVERY IN PROGRESS
00151  M01S00144.1xy     +++| CC       EQU    20          COMPLETION COUNT
00152  M01S00145.1xy     +++| S1       EQU    21          SCRATCH
00153  M01S00146.1xy     +++| EC       EQU    22          ERROR CODE
00154  M01S00147.1xy     +++| RW       EQU    23          READ/WRITE FLAG
00155  M01S00148.1xy     +++| IL       EQU    24          *PUT* INTERLOCK FLAG
00156  M01S00149.1xy     +++| SR       EQU    25 - 31     SCRATCH (5 CELLS)
00157  M01S00001.ns2769  +++| WB       EQU    SR - SR+4   FOR *COMP1MD* COMPATIBILITY
00158  M01S00150.1xy     +++| PR       EQU    32          *PUT* REQUEST PROCESSING ACTIVE
00159  M01S00151.1xy     +++| CN       EQU    33 - 37     SCRATCH (5 CELLS)
00160  M01S00152.1xy     +++| SC       EQU    40          UNUSED
00161  M01S00153.1xy     +++| FU       EQU    41 - 42     UEM FWA (2 CELLS)
00162  M01S00154.1xy     +++| UA       EQU    43 - 44     UEM ADDRESS (2 CELLS)
00163  M01S00155.1xy     +++| EP       EQU    45          ERROR ON PREVIOUS SECTOR
00164  M01S00156.1xy     +++| CS       EQU    46          CHANNEL STATUS
00165  M01S00157.1xy     +++| NB       EQU    47          NEXT BUFFER ORDINAL
00166  M01S00158.1xy     +++| PB       EQU    50          PREVIOUS BUFFER ORDINAL
00167  M01S00159.1xy     +++| CB       EQU    51          CURRENT BUFFER ORDINAL
00168  M01S00160.1xy     +++| TB       EQU    52          TOTAL CBT COUNT
00169  M01S00161.1xy     +++| GS       EQU    53          GENERAL STATUS
00170  M01S00162.1xy     +++|*         EQU    54          CHANNEL NUMBER (FROM INPUT REGISTER)
00171  M01S00163.1xy     +++| TI       EQU    57          *TPOR* INDEX
00172  M01S00164.1xy     +++| CA       EQU    60 - 64     CURRENT PHYSICAL ADDRESS (5 CELLS)
00173  M01S00165.1xy     +++| RC       EQU    65          RETRY COUNT
00174  M01S00166.1xy     +++| PO       EQU    66          CURRENT *PUT* ORDINAL
00175  M01S00167.1xy     +++| S2       EQU    67          SCRATCH
00176  M01S00168.1xy     +++| 1XY      SPACE  4,10
00177  M01S00169.1xy     +++|**        DRIVER FUNCTION CODES.
00178  M01S00170.1xy     +++|
00179  M01S00171.1xy     +++|
00180  M01S00172.1xy     +++| FCSK     EQU    1           SEEK 1 TO 1 INTERLACE
00181  M01S00173.1xy     +++| FCRD     EQU    4           READ
00182  M01S00174.1xy     +++| FCWR     EQU    5           WRITE
00183  M01S00175.1xy     +++| FCOC     EQU    10          OPERATION COMPLETE
00184  M01S00176.1xy     +++| FCGS     EQU    12          GENERAL STATUS
00185  M01S00177.1xy     +++| FCCO     EQU    14          CONTINUE
00186  M01S00178.1xy     +++| FCFP     EQU    16          FORMAT PACK
00187  M01S00179.1xy     +++| FCDS     EQU    23          DETAILED STATUS
00188  M01S00180.1xy     +++| FCRU     EQU    31          READ UTILITY SECTOR
00189  M01S00181.1xy     +++| FCRP     EQU    34          READ PACK SERIAL NUMBER
00190  M01S00182.1xy     +++| FCAL     EQU    414         AUTOLOAD
00191  M01S00183.1xy     +++| 1XY      SPACE  4,10
00192  M01S00184.1xy     +++|**        170 DMA ADAPTER FUNCTIONS.
00193  M01S00185.1xy     +++|
00194  M01S00186.1xy     +++|
00195  M01S00187.1xy     +++| FCMC     EQU    100000+1S17 MASTER CLEAR ADAPTER
00196  M01S00188.1xy     +++| FCCT     EQU    101000+1S17 CLEAR T REGISTERS
00197  M01S00189.1xy     +++| FCDI     EQU    102000+1S17 DMA INPUT
00198  M01S00190.1xy     +++| FCDO     EQU    103000+1S17 DMA OUTPUT
00199  M01S00191.1xy     +++| FCCD     EQU    104000+1S17 CLEAR DMA MODE
00200  M01S00192.1xy     +++| FCDT     EQU    106000+1S17 DISABLE TEST MODE
00201  M01S00193.1xy     +++| FCET     EQU    107000+1S17 ENABLE TEST MODE
00202  M01S00194.1xy     +++| FCRC     EQU    110000+1S17 READ CONTROL REGISTERS
00203  M01S00195.1xy     +++| FCWC     EQU    111000+1S17 WRITE CONTROL REGISTERS
00204  M01S00196.1xy     +++| FCRE     EQU    112000+1S17 READ ERROR STATUS REGISTER
00205  M01S00197.1xy     +++| FCRO     EQU    114000+1S17 READ OPERATIONAL STATUS REGISTER
00206  M01S00198.1xy     +++| FCRT     EQU    116000+1S17 READ T REGISTER
00207  M01S00199.1xy     +++| FCWT     EQU    117000+1S17 WRITE T PRIME REGISTER
00208  M01S00200.1xy     +++|
00209  M01S00201.1xy     +++|
00210  M01S00202.1xy     +++|*         170 DMA OPERATIONAL STATUS.
00211  M01S00203.1xy     +++|
00212  M01S00204.1xy     +++| OSOF     EQU    4000        OUTPUT BUFFER FULL
00213  M01S00205.1xy     +++| OSIF     EQU    2000        INPUT BUFFER FULL
00214  M01S00206.1xy     +++| OSID     EQU    1000        INPUT DATA AVAILABLE
00215  M01S00207.1xy     +++| OSFT     EQU    0400        FAST TRANSFER MODE
00216  M01S00208.1xy     +++| OSEC     EQU    0200        EXTERNAL CLOCK PRESENT
00217  M01S00209.1xy     +++| OSTM     EQU    0100        TEST MODE
00218  M01S00210.1xy     +++| OSZC     EQU    0040        PP WORD COUNT EQUAL ZERO
00219  M01S00211.1xy     +++| OSDO     EQU    0020        DMA OUTPUT
00220  M01S00212.1xy     +++| OSDI     EQU    0010        DMA INPUT
00221  M01S00213.1xy     +++| OSTH     EQU    0004        DMA TRANSFER HALTED
00222  M01S00214.1xy     +++| OSTE     EQU    0002        T PRIME REGISTER EMPTY
00223  M01S00215.1xy     +++| OSTP     EQU    0001        TRANSFER IN PROGRESS
00224  M01S00216.1xy     +++|          SPACE  4,15
00225  M01S00217.1xy     +++|**        DETAILED STATUS CONSTANTS.
00226  M01S00218.1xy     +++|
00227  M01S00219.1xy     +++|
Line S00220 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00220.ns2508  ---| SB7      EQU    4           SENSE BYTE 7
00229  M01S00001.ns2508  +++| SB0      EQU    0           SENSE BYTE 0
00230  M01S00001.ns2537  +++| SB7      EQU    4           SENSE BYTE 7 STATUS WORD OFFSET
00231  M01S00221.1xy     +++| DCF      EQU    1           DEVICE CHECK FORMAT
00232  M01S00002.ns2537  +++| FM6      EQU    6           FORMAT 6 MESSAGE
Line S00222 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00222.ns2508  ---| DNRM     EQU    11          DEVICE NOT READY MESSAGE
00234  M01S00223.1xy     +++|          SPACE  4,15
00235  M01S00224.1xy     +++|**        ASSEMBLY CONSTANTS.
00236  M01S00225.1xy     +++|
00237  M01S00226.1xy     +++|
00238  M01S00227.1xy     +++| BFRL     EQU    10          *EMB* FLUSH RETRY LIMIT
00239  M01S00228.1xy     +++| CH       EQU    0           MASS STORAGE CHANNEL
00240  M01S00229.1xy     +++| FCSKL    EQU    4           SEEK PARAMETER WORD COUNT
00241  M01S00230.1xy     +++| FPBL     EQU    22          FORMAT PACK PARAMETER BLOCK LENGTH
00242  M01S00231.1xy     +++| HLEN     EQU    4*5         LENGTH OF SECTOR HEADER
Line S00232 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2510
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00232.ns2510  ---| MAXU     EQU    16D         MAXIMUM NUMBER OF UNITS PER CHANNEL
00244  M01S00001.ns2510  +++| MAXU     EQU    64D         MAXIMUM NUMBER OF UNITS PER CHANNEL
00245  M01S00233.1xy     +++| MFRL     EQU    10          MONITOR FUNCTION RETRY LIMIT
00246  M01S00234.1xy     +++| MMXN     EQU    10D         MAXIMUM NUMBER OF EXCHANGE RETRIES
00247  M01S00235.1xy     +++| PCRL     EQU    10          PP CALL RETRY LIMIT
00248  M01S00236.1xy     +++| PSLT     EQU    26          PHYSICAL SECTORS PER LOGICAL TRACK
00249  M01S00237.1xy     +++| PSPT     EQU    3           PHYSICAL SECTORS PER PHYSICAL TRACK
00250  M01S00238.1xy     +++| SSIZ     EQU    1000        SECTOR SIZE FLAG FOR SEEK
00251  M01S00239.1xy     +++| TPORE    EQU    1           LENGTH OF *TPOR* ENTRY
00252  M01S00240.1xy     +++|****
Line S00241 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00241.ns2769  ---| CBRW     SPACE  4,20
00254  M01S00002.ns2769  +++|          SPACE  4,20
00255  M01S00242.1xy     +++|**        MACROS.
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  M01S00243.1xy     +++| CCBA     SPACE  4,15
00295  M01S00244.1xy     +++|**        CCBA - COMPUTE *CBT* ENTRY ADDRESS.
00296  M01S00041.ns2769  +++|*
00297  M01S00042.ns2769  +++|*         THIS MACRO SETS (A) TO THE REQUESTED *CBT* ENTRY ADDRESS.
00298  M01S00245.1xy     +++|*
00299  M01S00246.1xy     +++|*         CCBA   W,A
00300  M01S00247.1xy     +++|*
00301  M01S00248.1xy     +++|*                *W* - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS.
00302  M01S00249.1xy     +++|*                *A* - IF NON-BLANK, BUFFER ORDINAL IS IN ACCUMULATOR.
00303  M01S00250.1xy     +++|*
00304  M01S00251.1xy     +++|*         ENTRY  (A) = BUFFER ORDINAL IF *A* PARAMETER IS NON-BLANK.
00305  M01S00252.1xy     +++|*                (CB) = CURRENT BUFFER ORDINAL.
00306  M01S00253.1xy     +++|*
00307  M01S00254.1xy     +++|*         EXIT   (A) = *CBT* ENTRY ADDRESS + WORD OFFSET.
00308  M01S00255.1xy     +++|
00309  M01S00256.1xy     +++|
00310  M01S00257.1xy     +++|          PURGMAC  CCBA
00311  M01S00258.1xy     +++|
00312  M01S00259.1xy     +++| CCBA     MACRO  W,A
Line S00260 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00313  M02S00260.ns2769  ---|          LOCAL  FWACB
00314  M01S00261.1xy     +++|          MACREF CCBA
00315  M01S00262.1xy     +++|          IFC    EQ,$A$$,1
00316  M01S00263.1xy     +++|          LDD    CB
00317  M01S00264.1xy     +++|          SHN    CBTLS
Line S00265 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00318  M02S00265.ns2769  ---| FWACB    ADC    W
Line S00266 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00319  M02S00266.ns2769  ---| CBTA     RMT
Line S00267 Modification History
M01 (Added by) 1xy
M02 (Updated by) 271l716
M03 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00320  M03S00267.ns2769  ---|          CON    FWACB+1
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00321  M02S00001.ns2769  ---|          CON    FWACB
Line S00268 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00322  M02S00268.ns2769  ---| CBTA     RMT
00323  M01S00043.ns2769  +++|          CBTE   *
00324  M01S00044.ns2769  +++|          ADC    W
00325  M01S00269.1xy     +++| CCBA     ENDM
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  M01S00270.1xy     +++| CPTA     SPACE  4,10
00342  M01S00271.1xy     +++|**        CPTA - COMPUTE *PUT* ENTRY ADDRESS.
00343  M01S00060.ns2769  +++|*
00344  M01S00061.ns2769  +++|*         THIS MACRO SETS (A) TO THE REQUESTED *PUT* ENTRY ADDRESS.
00345  M01S00272.1xy     +++|*
00346  M01S00273.1xy     +++|*         CPTA   W,A
00347  M01S00274.1xy     +++|*
00348  M01S00275.1xy     +++|*                *W* - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS.
00349  M01S00276.1xy     +++|*                *A* - IF NON-BLANK, *PUT* ORDINAL IS IN ACCUMULATOR.
00350  M01S00277.1xy     +++|*
00351  M01S00278.1xy     +++|*         ENTRY  (A) = *PUT* ORDINAL IF *A* PARAMETER IS NON-BLANK.
00352  M01S00279.1xy     +++|*                (PO) = *PUT* ORDINAL.
00353  M01S00280.1xy     +++|*
00354  M01S00281.1xy     +++|*         EXIT   (A) = *PUT* ENTRY ADDRESS + WORD OFFSET.
00355  M01S00282.1xy     +++|
00356  M01S00283.1xy     +++|
00357  M01S00284.1xy     +++|          PURGMAC  CPTA
00358  M01S00285.1xy     +++|
00359  M01S00286.1xy     +++| CPTA     MACRO  W,A
Line S00287 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00360  M02S00287.ns2769  ---|          LOCAL  FWAPUT
00361  M01S00288.1xy     +++|          MACREF CPTA
00362  M01S00289.1xy     +++|          IFC    EQ,$A$$,1
00363  M01S00290.1xy     +++|          LDD    PO
00364  M01S00291.1xy     +++|          SHN    PUTLS
Line S00292 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00365  M02S00292.ns2769  ---| FWAPUT   ADC    W
Line S00293 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00366  M02S00293.ns2769  ---| PUTA     RMT
Line S00294 Modification History
M01 (Added by) 1xy
M02 (Updated by) 271l716
M03 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00367  M03S00294.ns2769  ---|          CON    FWAPUT+1
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00002.ns2769  ---|          CON    FWAPUT
Line S00295 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00295.ns2769  ---|          RMT
00370  M01S00062.ns2769  +++|          PUTE   *
00371  M01S00063.ns2769  +++|          ADC    W
00372  M01S00296.1xy     +++| CPTA     ENDM
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
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  M01S00297.1xy     +++| MONITOR  SPACE  4,15
00411  M01S00298.1xy     +++|**        MONITOR - ISSUE MONITOR FUNCTION.
00412  M01S00299.1xy     +++|*
00413  M01S00300.1xy     +++|*         THIS MACRO PROVIDES FUNCTIONALITY IDENTICAL TO THAT OF THE
00414  M01S00301.1xy     +++|*         *MONITOR* MACRO DEFINED IN *COMPMAC*, WHILE ENSURING ANY
00415  M01S00302.1xy     +++|*         PENDING *BIOM* MONITOR FUNCTION IS COMPLETED BEFORE THE NEXT
00416  M01S00303.1xy     +++|*         MONITOR FUNCTION IS ISSUED.
00417  M01S00304.1xy     +++|*
00418  M01S00305.1xy     +++|*         MONITOR  F
00419  M01S00306.1xy     +++|*
00420  M01S00307.1xy     +++|*                  *F* - MONITOR FUNCTION CODE.
00421  M01S00308.1xy     +++|*
00422  M01S00309.1xy     +++|*         EXIT   (A) = 0.
00423  M01S00310.1xy     +++|*                (CM - CM+4) = COMPLETED PP OUTPUT REGISTER IMAGE.
00424  M01S00311.1xy     +++|*
00425  M01S00312.1xy     +++|*         CALLS  IMF.
00426  M01S00313.1xy     +++|
00427  M01S00314.1xy     +++|
00428  M01S00315.1xy     +++|          PURGMAC  MONITOR
00429  M01S00316.1xy     +++|
00430  M01S00317.1xy     +++| MONITOR  MACRO  F
00431  M01S00318.1xy     +++|          MACREF MONITOR
00432  M01S00319.1xy     +++|          LDK    F
00433  M01S00320.1xy     +++|          RJM    IMF
00434  M01S00321.1xy     +++| MONITOR  ENDM
00435  M01S00322.1xy     +++| 1XY      SPACE  4
00436  M01S00323.1xy     +++|          RICHI              REDEFINE CHANNEL INSTRUCTIONS
00437  M01S00324.1xy     +++|          TITLE  MAIN PROGRAM.
00438  M01S00325.1xy     +++|**        MXY - 895 DMA DRIVER.
00439  M01S00326.1xy     +++|
00440  M01S00327.1xy     +++|
00441  M01S00328.1xy     +++|          ORG    PPFW
00442  M01S00329.1xy     +++| MXY      RJM    PRS         PRESET
00443  M01S00330.1xy     +++| MXY      SPACE  4
00444  M01S00331.1xy     +++|**        MST - MASTER MAIN PROGRAM.
00445  M01S00332.1xy     +++|
00446  M01S00333.1xy     +++|
00447  M01S00334.1xy     +++| MST      RJM    CCR         CHECK FOR CHANNEL REQUESTED/DOWN
00448  M01S00335.1xy     +++|          MJN    MST1        IF CHANNEL GLOBALLY DOWN
00449  M01S00336.1xy     +++|          RJM    SUQ         SCAN UNIT QUEUE
00450  M01S00337.1xy     +++|          ZJN    MST         IF NO ELIGIBLE ENTRY FOUND
00451  M01S00338.1xy     +++|          RJM    ISF         ISSUE SEEK FUNCTION
00452  M01S00339.1xy     +++|          NJN    MST         IF UNIT NOT ON CYLINDER
00453  M01S00340.1xy     +++|          RJM    PDT         PERFORM DATA TRANSFER
00454  M01S00341.1xy     +++|          UJN    MST         LOOP
00455  M01S00342.1xy     +++|
00456  M01S00343.1xy     +++| MST1     RJM    DCH         RELEASE CHANNEL
00457  M01S00344.1xy     +++|          MONITOR  DPPM      DROP PP
00458  M01S00345.1xy     +++|          LJM    PPR         ENTER IDLE LOOP
00459  M01S00346.1xy     +++| TPOR     SPACE  4,10
00460  M01S00347.1xy     +++|**        TPOR - TABLE OF *PUT* ORDINALS.
00461  M01S00348.1xy     +++|*
00462  M01S00349.1xy     +++|*         THIS TABLE CONTAINS THE ORDINALS OF THE *PUT* ENTRIES FOR ALL
00463  M01S00350.1xy     +++|*         UNITS ACCESSED BY THIS DRIVER-S CHANNEL.
00464  M01S00351.1xy     +++|*
00465  M01S00352.1xy     +++|*         ENTRY = 1 WORD.
00466  M01S00353.1xy     +++|*
Line S00354 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2643
Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00354.ns2643  ---|*T        5/ 0, 1/ I, 6/ *PUT* ORDINAL
Figure

056711 *PUT* ORDINAL I 0


Line S00355 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2643
Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00355.ns2643  ---|*                I    EST CHANNEL BYTE INDEX.
00469  M01S00001.ns2643  +++|*T        11/ PUT ,1/I
Figure

0111I PUT

00470  M01S00002.ns2643  +++|*         PUT    *PUT* ORDINAL OF DEVICE.
00471  M01S00003.ns2643  +++|*         I      EST CHANNEL BYTE INDEX.
00472  M01S00356.1xy     +++|*
00473  M01S00357.1xy     +++|*         TABLE IS TERMINATED BY A ZERO BYTE.
00474  M01S00358.1xy     +++|
00475  M01S00359.1xy     +++|
00476  M01S00360.1xy     +++| TPOR     BSSZ   TPORE*MAXU
00477  M01S00361.1xy     +++|          CON    0           TERMINATE *TPOR* TABLE
00478  M01S00362.1xy     +++| CCR      SPACE  4,20
00479  M01S00363.1xy     +++|**        CCR - CHECK FOR CHANNEL REQUESTED OR DOWN.
00480  M01S00364.1xy     +++|*
00481  M01S00365.1xy     +++|*         THIS ROUTINE CHECKS TO SEE IF THE CHANNEL TO WHICH THIS PP IS
00482  M01S00366.1xy     +++|*         DEDICATED IS BEING REQUESTED BY ANOTHER PP OR IS GLOBALLY
00483  M01S00367.1xy     +++|*         DOWN.  IF THE CHANNEL IS REQUESTED BY ANOTHER PP, IT WILL BE
00484  M01S00368.1xy     +++|*         RELEASED AND WILL BE REQUESTED AGAIN FOLLOWING A ONE SECOND
00485  M01S00369.1xy     +++|*         DELAY.  IF THE CHANNEL IS GLOBALLY DOWN, THE DRIVER DROP FLAG
00486  M01S00370.1xy     +++|*         WILL BE SET IN THE CONTROLWARE TABLE AND THE CHANNEL WILL BE
00487  M01S00371.1xy     +++|*         RELEASED.
00488  M01S00372.1xy     +++|*
00489  M01S00373.1xy     +++|*         EXIT   (A) .LT. 0 IF CHANNEL IS GLOBALLY DOWN.
00490  M01S00374.1xy     +++|*
00491  M01S00375.1xy     +++|*         USES   CM - CM+4.
00492  M01S00376.1xy     +++|*
Line S00377 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00493  M02S00377.1xy2    ---|*         CALLS  DCH, DFM, FNC, RCH, RCS, SCD.
00494  M01S00001.1xy2    +++|*         CALLS  DCH, FNC, RCH, SCD.
00495  M01S00378.1xy     +++|*
00496  M01S00379.1xy     +++|*         MACROS DELAY.
00497  M01S00380.1xy     +++|
00498  M01S00381.1xy     +++|
00499  M01S00382.1xy     +++| CCR4     RJM    SCD         SET DRIVER DROP FLAG
00500  M01S00383.1xy     +++|          LCN    0           SET DROPOUT REPLY
00501  M01S00384.1xy     +++|
00502  M01S00385.1xy     +++| CCR      SUBR               ENTRY/EXIT
00503  M01S00386.1xy     +++|          LDC    **          READ CHANNEL TABLE
00504  M01S00387.1xy     +++| CCRA     EQU    *-1         (CM ADDRESS OF ENTRY)
00505  M01S00388.1xy     +++|          CRD    CM
00506  M01S00389.1xy     +++|          LDD    CM+**       CHECK REQUESTED FLAG
00507  M01S00390.1xy     +++| CCRB     EQU    *-1         (BYTE ADDRESS OF ENTRY)
00508  M01S00391.1xy     +++|          SHN    21-5
00509  M01S00392.1xy     +++|          MJN    CCR4        IF CHANNEL IS GLOBALLY DOWN
00510  M01S00393.1xy     +++|          SHN    22+5-13
00511  M01S00394.1xy     +++|          PJN    CCRX        IF CHANNEL NOT REQUESTED
00512  M01S00395.1xy     +++|          RJM    DCH         RELEASE CHANNEL
00513  M01S00396.1xy     +++| CCR1     DELAY
00514  M01S00397.1xy     +++|          RJM    RCH         REQUEST CHANNEL
00515  M01S00398.1xy     +++|          ZJN    CCR1        IF CHANNEL NOT ASSIGNED
00516  M01S00399.1xy     +++|          DCN    CH+40       INSURE CHANNEL IN CORRECT STATE
00517  M01S00400.1xy     +++|          LDC    FCCT        CLEAR THE T REGISTER
00518  M01S00401.1xy     +++|          RJM    FNN
00519  M01S00402.1xy     +++|          MJN    CCR3        IF ERROR ON CHANNEL ACCESS
00520  M01S00403.1xy     +++|          LDC    FCWC        WRITE ADAPTER CONTROL REGISTER
00521  M01S00404.1xy     +++|          RJM    FNC
00522  M01S00405.1xy     +++|          MJN    CCR3        IF ERROR ON CHANNEL ACCESS
Line S00406 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy9
Seq #  *Modification Id* Act 
----------------------------+
00523  M02S00406.1xy9    ---|          LDC    20000       SELECT 60 BIT CM WORD ACCESS
00524  M01S00001.1xy9    +++|          LDC    20400       60 BIT CM WORD ACCESS AND NO ERROR CLEAR
00525  M01S00407.1xy     +++|          OAN    CH
00526  M01S00408.1xy     +++| CCR2     SBN    1
00527  M01S00409.1xy     +++|          ZJN    CCR3        IF TIMEOUT ON CONTROL REGISTER WRITE
00528  M01S00410.1xy     +++|          FJM    CCR2,CH     IF DATA NOT ACCEPTED
Line S00411 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00529  M02S00411.1xy2    ---|          DCN    CH+40
00530  M01S00002.1xy2    +++| CCR2.1   DCN    CH+40
00531  M01S00412.1xy     +++|          LJM    CCRX        RETURN
00532  M01S00413.1xy     +++|
Line S00414 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00533  M02S00414.1xy2    ---| CCR3     DCN    CH+40
Line S00415 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00534  M03S00415.271l716 ---|          LDD    IR+4        SET CHANNEL IN MESSAGE
Line S00416 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00535  M03S00416.271l716 ---|          RJM    C2D
Line S00417 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00536  M03S00417.271l716 ---|          STM    MSGA+7
Line S00418 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00418.1xy2    ---|          LDC    MSGA+400000
Line S00419 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00419.1xy2    ---|          RJM    DFM
Line S00420 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00420.1xy2    ---|*         LDN    0
Line S00421 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00421.1xy2    ---|          RJM    RCS         DOWN THE CHANNEL
Line S00422 Modification History
M01 (Added by) 1xy
M02 (Updated by) 1xy2
Seq #  *Modification Id* Act 
----------------------------+
00541  M02S00422.1xy2    ---|          LJM    CCR4        DROP THE DRIVER
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  M01S00423.1xy     +++| CCS      SPACE  4,15
00562  M01S00424.1xy     +++|**        CCS - CHECK FOR CONSECUTIVE SECTOR REQUEST.
00563  M01S00425.1xy     +++|*
00564  M01S00426.1xy     +++|*         THIS ROUTINE CHECKS THE NEXT BUFFER IN THE I/O QUEUE TO
00565  M01S00427.1xy     +++|*         DETERMINE IF IT IS CONSECUTIVE WITH THE REQUEST CURRENTLY
00566  M01S00428.1xy     +++|*         BEING PROCESSED.
00567  M01S00429.1xy     +++|*
00568  M01S00430.1xy     +++|*         ENTRY  (CB) = CURRENT BUFFER ORDINAL.
00569  M01S00431.1xy     +++|*                (NB) = NEXT BUFFER ORDINAL IF CONSECUTIVE REQUEST
00570  M01S00432.1xy     +++|*                       ALREADY FOUND.
00571  M01S00433.1xy     +++|*                (RW) = READ/WRITE FLAG.
00572  M01S00434.1xy     +++|*                (TB) = TOTAL BUFFER COUNT.
00573  M01S00435.1xy     +++|*
00574  M01S00436.1xy     +++|*         EXIT   (NB) = NEXT BUFFER ORDINAL.
00575  M01S00437.1xy     +++|*                    = 0 IF CONSECUTIVE TRANSFER NOT POSSIBLE.
00576  M01S00438.1xy     +++|*                (TB) = TOTAL BUFFER COUNT.
00577  M01S00439.1xy     +++|*
00578  M01S00440.1xy     +++|*         USES   NB, TB, CM - CM+4, CN - CN+4, TO - TO+4.
00579  M01S00441.1xy     +++|*
00580  M01S00442.1xy     +++|*         MACROS CCBA.
00581  M01S00443.1xy     +++|
00582  M01S00444.1xy     +++|
00583  M01S00445.1xy     +++| CCS3     LDN    0           INDICATE NO CONSECUTIVE REQUEST
00584  M01S00446.1xy     +++|          STD    NB
00585  M01S00447.1xy     +++|
00586  M01S00448.1xy     +++| CCS      SUBR               ENTRY/EXIT
00587  M01S00449.1xy     +++|          LDD    NB
00588  M01S00450.1xy     +++|          NJN    CCSX        IF NEXT REQUEST ALREADY FOUND
00589  M01S00451.1xy     +++|          CCBA   PAD4        READ CURRENT *CBT* ENTRY
00590  M01S00452.1xy     +++|          CRD    CM
00591  M01S00453.1xy     +++|          ADK    IOLK-PAD4
00592  M01S00454.1xy     +++|          CRD    CN
00593  M01S00455.1xy     +++|          LDD    CN+2        NEXT BUFFER ORDINAL
00594  M01S00456.1xy     +++|          ZJN    CCSX        IF THIS BUFFER IS LAST IN QUEUE
00595  M01S00457.1xy     +++|          STD    NB          STORE NEW CURRENT BUFFER ORDINAL
00596  M01S00458.1xy     +++|          CCBA   PAD1,A      GET DISK ADDRESS FOR THIS BUFFER
00597  M01S00459.1xy     +++|          CRD    CN
00598  M01S00460.1xy     +++|          ADK    IOLK-PAD1   GET WRITE FLAG
00599  M01S00461.1xy     +++|          CRD    T0
00600  M01S00462.1xy     +++|          LDD    T0
00601  M01S00463.1xy     +++|          SHN    0-11
00602  M01S00464.1xy     +++|          LPN    1
00603  M01S00465.1xy     +++|          LMD    RW
00604  M01S00466.1xy     +++|          NJN    CCS3        IF TRANSFER NOT IN SAME DIRECTION
00605  M01S00467.1xy     +++|          LDD    CM+1
00606  M01S00468.1xy     +++|          LMD    CN+1
00607  M01S00469.1xy     +++| CCS1     NJN    CCS3        IF NO CYLINDER MATCH
00608  M01S00470.1xy     +++|          LDD    CM+2
00609  M01S00471.1xy     +++|          ADN    1
00610  M01S00472.1xy     +++|          LMD    CN+2
00611  M01S00473.1xy     +++|          ZJN    CCS2        IF CONSECUTIVE SECTOR NOT ON SAME TRACK
00612  M01S00474.1xy     +++|          LDD    CM+2
00613  M01S00475.1xy     +++|          ADD    HN
00614  M01S00476.1xy     +++|          SCN    77
00615  M01S00477.1xy     +++|          LMD    CN+2
00616  M01S00478.1xy     +++|          NJN    CCS1        IF NOT FIRST SECTOR OF CONSECUTIVE TRACK
00617  M01S00479.1xy     +++|          LDD    CM+2
00618  M01S00480.1xy     +++|          LPN    77
00619  M01S00481.1xy     +++|          LMN    PSPT-1
00620  M01S00482.1xy     +++|          NJN    CCS1        IF CONSECUTIVE REQUEST
00621  M01S00483.1xy     +++| CCS2     AOD    TB          INCREMENT TOTAL BUFFER COUNT
00622  M01S00484.1xy     +++|          LJM    CCSX        RETURN
00623  M01S00485.1xy     +++| CDS      SPACE  4,20
00624  M01S00486.1xy     +++|**        CDS - CRACK DETAILED STATUS.
00625  M01S00487.1xy     +++|*
00626  M01S00488.1xy     +++|*         THIS ROUTINE DETERMINES WHAT ERROR CODE TO SET BY EXAMINING
00627  M01S00489.1xy     +++|*         DETAILED STATUS.
00628  M01S00490.1xy     +++|*
00629  M01S00491.1xy     +++|*         ENTRY  (GS) = GENERAL STATUS.
00630  M01S00492.1xy     +++|*                (RW) = READ/WRITE FLAG.
00631  M01S00493.1xy     +++|*
00632  M01S00494.1xy     +++|*         USES   EC, RS, T1.
00633  M01S00495.1xy     +++|*
00634  M01S00496.1xy     +++|*         CALLS  FNC, GDS, GGS.
00635  M01S00497.1xy     +++|
00636  M01S00498.1xy     +++|
00637  M01S00499.1xy     +++| CDS      SUBR               ENTRY/EXIT
00638  M01S00500.1xy     +++|          RJM    GDS         GET DETAILED STATUS
00639  M01S00501.1xy     +++|          MJN    CDSX        IF ERROR
00640  M01S00502.1xy     +++|          LDD    GS
00641  M01S00503.1xy     +++|          SHN    21-10
00642  M01S00504.1xy     +++|          PJN    CDS1        IF ERROR NOT RECOVERABLE BY SUBSYSTEM
00643  M01S00505.1xy     +++|          LDM    CDSA,RW     PREPARE FOR *CONTINUE* SEQUENCE
00644  M01S00506.1xy     +++|          STD    T1
00645  M01S00507.1xy     +++|          LDC    LDNI+FCCO
00646  M01S00508.1xy     +++|          STI    T1
00647  M01S00509.1xy     +++|          LCN    1           INDICATE CONTROLLER RECOVERY IN PROGRESS
00648  M01S00510.1xy     +++|          STD    RS
00649  M01S00511.1xy     +++|          UJN    CDS1.1      SET STATUS ERROR CODE
00650  M01S00512.1xy     +++|
00651  M01S00513.1xy     +++| CDS1     SHN    10-13+22
00652  M01S00514.1xy     +++|          MJN    CDS2        IF ABNORMAL TERMINATION
00653  M01S00515.1xy     +++|          LDD    EC
00654  M01S00516.1xy     +++|          NJN    CDSX        IF ERROR CODE ALREADY SET
00655  M01S00517.1xy     +++| CDS1.1   UJN    CDS4        SET STATUS ERROR CODE
00656  M01S00518.1xy     +++|
00657  M01S00519.1xy     +++|*         CHECK FOR *NOT READY* CONDITION.
00658  M01S00520.1xy     +++|
00659  M01S00521.1xy     +++| CDS2     SHN    13-4
00660  M01S00522.1xy     +++|          PJN    CDS3        IF NOT *NOT READY*
Line S00523 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00523.ns2508  ---|          LDM    DST+SB7
Line S00524 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00524.ns2508  ---|          LPN    17
Line S00525 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00525.ns2508  ---|          LMN    DCF
Line S00526 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00526.ns2508  ---|          NJN    CDS3        IF NOT *NOT READY*
Line S00527 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00527.ns2508  ---|          LDM    DST+SB7+1
Line S00528 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00528.ns2508  ---|          SHN    0-10
Line S00529 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2508
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00529.ns2508  ---|          LMN    DNRM
00668  M01S00002.ns2508  +++|          LDM    DST+SB0
00669  M01S00003.ns2508  +++|          SHN    0-12
00670  M01S00004.ns2508  +++|          LPN    1
00671  M01S00005.ns2508  +++|          LMN    1
00672  M01S00530.1xy     +++|          ZJN    CDS5        IF DRIVE NOT READY
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  M01S00531.1xy     +++|
00682  M01S00532.1xy     +++|*         CHECK FOR MEDIA ERROR.
00683  M01S00533.1xy     +++|
00684  M01S00534.1xy     +++| CDS3     LDM    DST
00685  M01S00535.1xy     +++|          LPC    210
00686  M01S00536.1xy     +++|          LMC    210
00687  M01S00537.1xy     +++|          ZJN    CDS6        IF MEDIA ERROR
00688  M01S00538.1xy     +++|          LDM    DST+21
00689  M01S00539.1xy     +++|          SHN    21-6
00690  M01S00540.1xy     +++|          MJN    CDS8        IF CHANNEL PARITY ERROR ON OUTPUT
00691  M01S00541.1xy     +++|          SHN    6-2
00692  M01S00542.1xy     +++|          MJN    CDS9        IF DATA TRANSFER ERROR
00693  M01S00543.1xy     +++|          SHN    2-21+22
00694  M01S00544.1xy     +++|          LPN    50
00695  M01S00545.1xy     +++|          NJN    CDS10       IF ADAPTOR MEMORY PARITY ERROR
00696  M01S00546.1xy     +++| CDS4     LDK    DSTE&NRDE
Line S00547 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2537
Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00547.ns2537  ---| CDS5     LMK    NRDE&PARE
Line S00011 Modification History
M01 (Added by) ns2537
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00698  M02S00011.253l688 ---| CDS5     LMK    NRDE&RDFE
Line S00012 Modification History
M01 (Added by) ns2537
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
00699  M02S00012.253l688 ---| CDS5.1   LMK    RDFE&PARE
00700  M01S00001.253l688 +++| CDS5     LMK    NRDE&STAE
00701  M01S00002.253l688 +++| CDS5.1   LMK    STAE&PARE
00702  M01S00548.1xy     +++| CDS6     LMK    PARE
00703  M01S00549.1xy     +++| CDS7     STD    EC
00704  M01S00550.1xy     +++|          LJM    CDSX        RETURN
00705  M01S00551.1xy     +++|
00706  M01S00552.1xy     +++| CDS8     LDN    CHPE        SET *CHANNEL PARITY* ERROR CODE
00707  M01S00553.1xy     +++|          UJN    CDS7        SET ERROR CODE
00708  M01S00554.1xy     +++|
00709  M01S00555.1xy     +++| CDS9     LDN    IDTE        SET *DATA TRANSFER* ERROR CODE
00710  M01S00556.1xy     +++|          UJN    CDS7        SET ERROR CODE
00711  M01S00557.1xy     +++|
00712  M01S00558.1xy     +++| CDS10    LDN    RAME        SET *CONTROLLER MEMORY* ERROR CODE
00713  M01S00559.1xy     +++|          UJN    CDS7        SET ERROR CODE
00714  M01S00560.1xy     +++|
00715  M01S00561.1xy     +++|
00716  M01S00562.1xy     +++| CDSA     BSS    0
00717  M01S00563.1xy     +++|          CON    RIOA
00718  M01S00564.1xy     +++|          CON    WIOA
Line S00565 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00719  M02S00565.ns2769  ---| CMD      SPACE  4,15
Line S00566 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00720  M02S00566.ns2769  ---|**        CMD - CALL *1MD*.
Line S00567 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00721  M02S00567.ns2769  ---|*
Line S00568 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00568.ns2769  ---|*         ENTRY  (CN - CN+4) = *EMB* HEADER WORD.
Line S00569 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00723  M02S00569.ns2769  ---|*
Line S00570 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00570.ns2769  ---|*         EXIT   (A) .EQ. 0 IF UNABLE TO CALL *1MD*.
Line S00571 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00725  M02S00571.ns2769  ---|*                    .NE. 0 IF *1MD* HAS BEEN CALLED.
Line S00572 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00726  M02S00572.ns2769  ---|*                *1MD* CALLED FLAG IS SET IN CELL *SR+4* IF *1MD* WAS
Line S00573 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00727  M02S00573.ns2769  ---|*                CALLED.
Line S00574 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00728  M02S00574.ns2769  ---|*
Line S00575 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00729  M02S00575.ns2769  ---|*         USES   SR+4, S2, CM - CM+4.
Line S00576 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00576.ns2769  ---|*
Line S00577 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00577.ns2769  ---|*         CALLS  1MD.
Line S00578 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00732  M02S00578.ns2769  ---|*
Line S00579 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00579.ns2769  ---|*         MACROS EXECUTE, MONITOR.
Line S00580 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00734  M02S00580.ns2769  ---|
Line S00581 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00735  M02S00581.ns2769  ---|
Line S00582 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00736  M02S00582.ns2769  ---| CMD2     LDN    2           SET *1MD* CALLED FLAG
Line S00583 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00583.ns2769  ---|          RAD    SR+4
Line S00584 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00584.ns2769  ---|
Line S00585 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00585.ns2769  ---| CMD      SUBR               ENTRY/EXIT
Line S00586 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00740  M02S00586.ns2769  ---|          LDD    SR+4
Line S00587 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00741  M02S00587.ns2769  ---|          LPN    2
Line S00588 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00742  M02S00588.ns2769  ---|          NJN    CMDX        IF *1MD* ALREADY CALLED
Line S00589 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00743  M02S00589.ns2769  ---|          STD    S2          CLEAR *RPPM* RETRY COUNT
Line S00590 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00744  M02S00590.ns2769  ---|          LDD    MA
Line S00591 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00745  M02S00591.ns2769  ---|          CWM    CMDA,ON
Line S00592 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00592.ns2769  ---| CMD1     LDK    ZERL
Line S00593 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00747  M02S00593.ns2769  ---|          CRD    CM
Line S00594 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00748  M02S00594.ns2769  ---|          EXECUTE  1MD,=
Line S00595 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00749  M02S00595.ns2769  ---|          MONITOR  RPPM
Line S00596 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00750  M02S00596.ns2769  ---|          LDD    CM+1
Line S00597 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00751  M02S00597.ns2769  ---|          NJN    CMD2        IF PP ASSIGNED
Line S00598 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00598.ns2769  ---|          AOD    S2          INCREMENT *RPPM* RETRY COUNT
Line S00599 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00599.ns2769  ---|          LMN    MFRL
Line S00600 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00600.ns2769  ---|          ZJN    CMDX        IF RETRY LIMIT
Line S00601 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00601.ns2769  ---|          UJN    CMD1        RETRY *RPPM*
Line S00602 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00756  M02S00602.ns2769  ---|
Line S00603 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00603.ns2769  ---|
Line S00604 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00604.ns2769  ---| CMDA     VFD    18/3L1MD,42/1
00759  M01S00605.1xy     +++| CRL      SPACE  4,15
00760  M01S00606.1xy     +++|**        CRL - CHECK FOR ERROR RETRY LIMIT REACHED.
00761  M01S00607.1xy     +++|*
00762  M01S00608.1xy     +++|*         ENTRY  (EC) = ERROR CODE.
00763  M01S00609.1xy     +++|*                (ER) = *RECOVERY IN PROGRESS* FLAG.
00764  M01S00610.1xy     +++|*                (RC) = RETRY COUNT.
00765  M01S00079.ns2769  +++|*                (T5) = EST ORDINAL.
00766  M01S00611.1xy     +++|*
00767  M01S00612.1xy     +++|*         EXIT   (A) .GE. 0 IF RETRY LIMIT REACHED.
00768  M01S00613.1xy     +++|*                    .LT. 0 IF NOT AT RETRY LIMIT.
Line S00001 Modification History
M01 (Added by) ns2732a
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00001.ns2732b ---|*                (RC) INCREMENTED IF NOT AT LIMIT.
00770  M01S00001.ns2732b +++|*                (RC) INCREMENTED.
00771  M01S00080.ns2769  +++|*                MESSAGE ISSUED TO *MS2W* OF SYSTEM CONTROL POINT FOR
00772  M01S00081.ns2769  +++|*                B-DISPLAY PRESENTATION IF HALF WAY TO RETRY LIMIT.
00773  M01S00002.ns2732a +++|*
00774  M01S00003.ns2732a +++|*         USES   RC.
Line S00614 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00775  M02S00614.ns2732  ---|*                (RC) = (RC) + 1.
Line S00615 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00776  M02S00615.ns2732  ---|*
Line S00616 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00616.ns2732  ---|*         USES   RC.
00778  M01S00617.1xy     +++|
00779  M01S00618.1xy     +++|
00780  M01S00619.1xy     +++| CRL      SUBR               ENTRY/EXIT
00781  M01S00620.1xy     +++|          LDD    ER
00782  M01S00621.1xy     +++|          LMC    SHNI+1
00783  M01S00622.1xy     +++|          STM    CRLA
Line S00623 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00623.ns2732  ---|          AOD    RC          INCREMENT RETRY COUNT
Line S00001 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00001.ns2732b ---|          LDD    RC          RETRY COUNT
00786  M01S00002.ns2732b +++|          AOD    RC          INCREMENT RETRY COUNT
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  M01S00624.1xy     +++|
00807  M01S00625.1xy     +++|*         IF *RECOVERY IN PROGRESS* IS NOT SET, THE RETRY COUNT IS
00808  M01S00626.1xy     +++|*         SHIFTED SO THAT THE LIMIT CHECK IS MADE AGAINST N/2 (WHERE N
00809  M01S00627.1xy     +++|*         IS THE RETRY LIMIT FOR THE ERROR TYPE IN CELL *EC*).  THIS
00810  M01S00628.1xy     +++|*         CAUSES HALF OF THE RETRY ATTEMPTS TO BE PERFORMED ON EACH
00811  M01S00629.1xy     +++|*         CHANNEL, IF AN ALTERNATE ACCESS IS AVAILABLE.  IF NO
00812  M01S00630.1xy     +++|*         ALTERNATE ACCESS IS AVAILABLE, ALL RETRIES WILL BE PERFORMED
00813  M01S00631.1xy     +++|*         ON THIS CHANNEL.
00814  M01S00632.1xy     +++|
00815  M01S00633.1xy     +++|          SHN    0
00816  M01S00634.1xy     +++|*         SHN    1           (RECOVERY NOT IN PROGRESS)
00817  M01S00635.1xy     +++| CRLA     EQU    *-1
00818  M01S00636.1xy     +++|          SBM    TREC,EC
Line S00002 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00002.ns2732b ---|          SBN    1
Line S00004 Modification History
M01 (Added by) ns2732a
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00004.ns2732b ---|          PJN    CRLX        IF RETRY LIMIT REACHED
Line S00005 Modification History
M01 (Added by) ns2732a
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00005.ns2732b ---|          AOD    RC          INCREMENT RETRY COUNT
00822  M01S00003.ns2732b +++|          SBN    2
Line S00637 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00637.ns2769  ---|          UJN    CRLX        RETURN
00824  M01S00101.ns2769  +++|          UJP    CRLX        RETURN
00825  M01S00102.ns2769  +++|
00826  M01S00103.ns2769  +++|
00827  M01S00104.ns2769  +++| CRLB     DATA   C*EQ000 XX ERROR RETRY UNDERWAY.*
00828  M01S00638.1xy     +++| CRQ      SPACE  4,20
00829  M01S00639.1xy     +++|**        CRQ - CHECK REQUEST QUEUE.
00830  M01S00640.1xy     +++|*
00831  M01S00641.1xy     +++|*         THIS ROUTINE ATTEMPTS TO CALL *CPUMTR* TO COMPLETE REQUESTS
00832  M01S00642.1xy     +++|*         IN THE UNIT QUEUE THAT HAVE ALREADY BEEN PROCESSED.
00833  M01S00643.1xy     +++|*
00834  M01S00644.1xy     +++|*         ENTRY  (CC) = COMPLETION REQUEST COUNT.
00835  M01S00645.1xy     +++|*                (PO) = *PUT* ORDINAL.
00836  M01S00646.1xy     +++|*
00837  M01S00647.1xy     +++|*         EXIT   (A) .EQ. 0 IF NO REQUESTS PRESENT.
00838  M01S00648.1xy     +++|*                    .NE. 0 IF *CPUMTR* IS STILL BUSY WITH PREVIOUS
00839  M01S00649.1xy     +++|*                           FUNCTION OR AN EXCHANGE WAS JUST ISSUED
00840  M01S00650.1xy     +++|*                           FOR THE CURRENT FUNCTION.
00841  M01S00651.1xy     +++|*
00842  M01S00652.1xy     +++|*         USES   CC, CN - CN+4, T0 - T4.
00843  M01S00653.1xy     +++|
00844  M01S00654.1xy     +++|
00845  M01S00655.1xy     +++| CRQ      SUBR               ENTRY/EXIT
00846  M01S00656.1xy     +++|          LDC    **          READ XP
00847  M01S00657.1xy     +++| CRQA     EQU    *-1         FWA OF XP
00848  M01S00658.1xy     +++|          CRD    T0
00849  M01S00659.1xy     +++|          LDD    OA          READ OUTPUT REGISTER
00850  M01S00660.1xy     +++|          CRD    CN
00851  M01S00661.1xy     +++|          LDD    T0+4        (B0)
00852  M01S00662.1xy     +++|          NJN    CRQ1        IF MISSED EXCHANGE
00853  M01S00663.1xy     +++|          STD    CN+3
00854  M01S00664.1xy     +++|          LDD    CN
00855  M01S00665.1xy     +++|          SHN    21-13
00856  M01S00666.1xy     +++|          MJN    CRQ1        IF REISSUE REQUIRED
00857  M01S00667.1xy     +++|          NJN    CRQX        IF FUNCTION NOW BEING PROCESSED
00858  M01S00668.1xy     +++|          LDD    CC
00859  M01S00669.1xy     +++|          ZJN    CRQX        IF NO PENDING COMPLETION REQUESTS
00860  M01S00670.1xy     +++|          LDC    **
00861  M01S00671.1xy     +++| CRQE     EQU    *-1
00862  M01S00672.1xy     +++|          CRD    T0
00863  M01S00673.1xy     +++|          LDD    T0
00864  M01S00674.1xy     +++|          ADD    T0+1
00865  M01S00675.1xy     +++|          NJN    CRQX        IF FUNCTION IN PROGRESS
00866  M01S00676.1xy     +++|          LDN    DCBS        SET *BIOM* SUBFUNCTION
00867  M01S00677.1xy     +++|          STD    CN+1
00868  M01S00678.1xy     +++|          LDD    PO
00869  M01S00679.1xy     +++|          STD    CN+2
00870  M01S00680.1xy     +++| CRQ1     LDD    CC
00871  M01S00681.1xy     +++|          RAD    CN+3
00872  M01S00682.1xy     +++|          LDN    0
00873  M01S00683.1xy     +++|          STD    CC
00874  M01S00684.1xy     +++|          LDK    BIOM
00875  M01S00685.1xy     +++|          STD    CN
00876  M01S00686.1xy     +++|          LDD    OA
00877  M01S00687.1xy     +++|          CWD    CN
00878  M01S00688.1xy     +++|          LDC    **
00879  M01S00689.1xy     +++| CRQB     EQU    *-1         ADDRESS OF EXCHANGE PACKAGE
00880  M01S00690.1xy     +++|          CWM    CRQD,ON     WRITE FIRST WORD
00881  M01S00691.1xy     +++|          SBN    1           SET EXCHANGE ADDRESS
00882  M01S00692.1xy     +++|          MXN    0           EXCHANGE CPU
00883  M01S00693.1xy     +++| CRQC     EQU    *-1         CPU NUMBER
00884  M01S00694.1xy     +++|          UJP    CRQX        RETURN
00885  M01S00695.1xy     +++|
00886  M01S00696.1xy     +++|
00887  M01S00697.1xy     +++| CRQD     VFD    24/0        (P)
00888  M01S00698.1xy     +++|          VFD    18/0        (A0)
00889  M01S00699.1xy     +++|          VFD    18/0        (B0)
Line S00700 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00890  M02S00700.ns2769  ---| C4D      SPACE  4,15
Line S00701 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00701.ns2769  ---|**        C4D - CONVERT ONE PP WORD TO FOUR DISPLAY CODE CHARACTERS.
Line S00702 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00892  M02S00702.ns2769  ---|*
Line S00703 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00703.ns2769  ---|*         ENTRY  (A) = PP WORD TO CONVERT.
Line S00704 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00704.ns2769  ---|*                (T1) = ADDRESS OF FIRST OF TWO CONSECUTIVE PP WORDS IN
Line S00705 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00705.ns2769  ---|*                       WHICH TO STORE THE DISPLAY CODE CHARACTERS.
Line S00706 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00706.ns2769  ---|*
Line S00707 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00707.ns2769  ---|*         EXIT   (A) = ADDRESS OF NEXT DISPLAY BUFFER WORD.
Line S00708 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00708.ns2769  ---|*                (T1) = (T1) + 2.
Line S00709 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00709.ns2769  ---|*
Line S00710 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00900  M02S00710.ns2769  ---|*         USES   CM, T1.
Line S00711 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00901  M02S00711.ns2769  ---|*
Line S00712 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00902  M02S00712.ns2769  ---|*         CALLS  C2D.
Line S00713 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00903  M02S00713.ns2769  ---|
Line S00714 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00714.ns2769  ---|
Line S00715 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00715.ns2769  ---| C4D      SUBR               ENTRY/EXIT
Line S00716 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00716.ns2769  ---|          STD    CM          SAVE BINARY WORD
Line S00717 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00717.ns2769  ---|          SHN    -6          CONVERT UPPER 6 BITS
Line S00718 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00908  M02S00718.ns2769  ---|          RJM    C2D
Line S00719 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00909  M02S00719.ns2769  ---|          STI    T1          STORE RESULT IN DISPLAY BUFFER
Line S00720 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00720.ns2769  ---|          AOD    T1          ADVANCE TO NEXT DISPLAY BUFFER WORD
Line S00721 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00721.ns2769  ---|          LDD    CM          CONVERT LOWER 6 BITS
Line S00722 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00722.ns2769  ---|          LPN    77
Line S00723 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00913  M02S00723.ns2769  ---|          RJM    C2D
Line S00724 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00724.ns2769  ---|          STI    T1          STORE RESULT IN DISPLAY BUFFER
Line S00725 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00725.ns2769  ---|          AOD    T1          ADVANCE TO NEXT DISPLAY BUFFER WORD
Line S00726 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00726.ns2769  ---|          UJN    C4DX        RETURN
00917  M01S00727.1xy     +++| DCH      SPACE  4,15
00918  M01S00728.1xy     +++|**        DCH - RELEASE CHANNEL.
00919  M01S00729.1xy     +++|*
00920  M01S00730.1xy     +++|*         THIS ROUTINE RELEASES THE CHANNEL IF IT IS CURRENTLY
00921  M01S00731.1xy     +++|*         RESERVED.
00922  M01S00732.1xy     +++|*
00923  M01S00733.1xy     +++|*         ENTRY  (CS) = CHANNEL RESERVATION STATUS.
00924  M01S00734.1xy     +++|*                (IR+4) = CHANNEL NUMBER.
00925  M01S00735.1xy     +++|*
00926  M01S00736.1xy     +++|*         EXIT   (A) = (CS) = 0.
00927  M01S00737.1xy     +++|*
00928  M01S00738.1xy     +++|*         USES   CM+1, CS.
00929  M01S00739.1xy     +++|*
00930  M01S00740.1xy     +++|*         MACROS MONITOR.
00931  M01S00741.1xy     +++|
00932  M01S00742.1xy     +++|
00933  M01S00743.1xy     +++| DCH      SUBR               ENTRY/EXIT
00934  M01S00744.1xy     +++|          LDD    CS
00935  M01S00745.1xy     +++|          LPN    1
00936  M01S00746.1xy     +++|          ZJN    DCHX        IF CHANNEL NOT RESERVED
00937  M01S00747.1xy     +++|          LDD    IR+4        RELEASE CHANNEL
00938  M01S00748.1xy     +++|          STD    CM+1
00939  M01S00749.1xy     +++|          MONITOR  DCHM
00940  M01S00750.1xy     +++|          SOD    CS          CLEAR CHANNEL RESERVATION FLAG
00941  M01S00751.1xy     +++|          UJN    DCHX        RETURN
00942  M01S00752.1xy     +++| ERR      SPACE  4,20
00943  M01S00753.1xy     +++|**        ERR - PROCESS ERROR.
00944  M01S00754.1xy     +++|*
00945  M01S00755.1xy     +++|*         THIS ROUTINE IS CALLED TO PERFORM ALL ERROR PROCESSING.
00946  M01S00756.1xy     +++|*
00947  M01S00757.1xy     +++|*         ENTRY  (EC) = 0 IF THIS IS THE FIRST RETRY OF A RECOVERY
00948  M01S00758.1xy     +++|*                       SEQUENCE AND THE CALLER DID NOT SET THE ERROR
00949  M01S00759.1xy     +++|*                       CODE.
00950  M01S00760.1xy     +++|*                     = ERROR CODE IF NOT THE FIRST RETRY OF A RECOVERY
00951  M01S00761.1xy     +++|*                       SEQUENCE AND NOT A CALLER SPECIFIED ERROR CODE.
00952  M01S00762.1xy     +++|*                     = COMPLEMENT OF ERROR CODE IF SPECIFIED BY THE
00953  M01S00763.1xy     +++|*                       CALLER.
00954  M01S00764.1xy     +++|*                (RC) = RETRY COUNT.
00955  M01S00765.1xy     +++|*
00956  M01S00766.1xy     +++|*         EXIT   (EC) = 0.
00957  M01S00767.1xy     +++|*                (RC) = 0.
Line S00768 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00958  M02S00768.ns2732  ---|*                TO *MST.
00959  M01S00003.ns2732  +++|*                TO *MST*.
00960  M01S00769.1xy     +++|*
00961  M01S00770.1xy     +++|*         USES   EC, RC, RS, T1.
00962  M01S00771.1xy     +++|*
Line S00772 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00772.ns2732  ---|*         CALLS  CDS, CRL, CRQ, FNN, GGS, IBD, IBM, IIC, ISF, PDT, PFR,
Line S00773 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
M03 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00964  M03S00773.ns2732  ---|*                PRE, RCS, SAS, SSF, TEP.
Line S00001 Modification History
M01 (Added by) ns2507
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00965  M02S00001.ns2732  ---|*                PRE, SAS, SSF, TEP.
Line S00004 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00966  M02S00004.ns2769  ---|*         CALLS  CDS, CRL, CRQ, FNN, GGS, IBD, IBM, IIC, ISF, PDT,
00967  M01S00105.ns2769  +++|*         CALLS  CDS, CRL, CRQ, FNN, GGS, IBM, IIC, ISF, PDT,
00968  M01S00005.ns2732  +++|*                PFR, PRE, RLC, SAS, SSF, TEP.
00969  M01S00774.1xy     +++|
00970  M01S00775.1xy     +++|
00971  M01S00776.1xy     +++| ERR      SUBR               ENTRY
00972  M01S00777.1xy     +++| ERR1     RJM    PRE         PRESET ERROR PROCESSOR
00973  M01S00778.1xy     +++|          NJP    ERR11       IF INTERLOCK/VERIFICATION FAILURE
00974  M01S00779.1xy     +++|          LDC    FCCD        CLEAR DMA MODE
00975  M01S00780.1xy     +++|          RJM    FNN
00976  M01S00781.1xy     +++|          MJN    ERR1.1      IF ERROR ENCOUNTERED
00977  M01S00006.ns2732  +++|          DCN    CH+40
00978  M01S00782.1xy     +++|          RJM    GGS         GET GENERAL STATUS
00979  M01S00783.1xy     +++|          MJN    ERR1.1      IF GENERAL STATUS UNAVAILABLE
00980  M01S00784.1xy     +++|          RJM    SAS         SAVE ADAPTER STATUS
00981  M01S00785.1xy     +++|          MJN    ERR1.1      IF ERROR ENCOUNTERED
00982  M01S00786.1xy     +++|          RJM    CDS         CHECK DETAILED STATUS
00983  M01S00787.1xy     +++| ERR1.1   LDD    RC
Line S00788 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2560
Seq #  *Modification Id* Act 
----------------------------+
00984  M02S00788.ns2560  ---|          NJN    ERR2        IF NOT FIRST RETRY
Line S00789 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2560
Seq #  *Modification Id* Act 
----------------------------+
00985  M02S00789.ns2560  ---|          LDD    GS          STORE INITIAL GENERAL STATUS
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  M01S00790.1xy     +++|          STM    BMLGS
Line S00791 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2749
Seq #  *Modification Id* Act 
----------------------------+
00994  M02S00791.ns2749  ---| ERR2     LDD    EC
00995  M01S00001.ns2749  +++| ERR2     LCN    0
00996  M01S00002.ns2749  +++|          LMD    EC
00997  M01S00003.ns2749  +++|          STD    EC
00998  M01S00792.1xy     +++|          SHN    21-13
Line S00793 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2749
Seq #  *Modification Id* Act 
----------------------------+
00999  M02S00793.ns2749  ---|          PJN    ERR4        IF NOT COMPLEMENTED ERROR CODE
Line S00794 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
M03 (Updated by) ns2749
Seq #  *Modification Id* Act 
----------------------------+
01000  M03S00794.ns2749  ---| ERR3     LCN    0
Line S00002 Modification History
M01 (Added by) ns2507
M02 (Updated by) ns2749
Seq #  *Modification Id* Act 
----------------------------+
01001  M02S00002.ns2749  ---|          LCN    0
Line S00795 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2749
Seq #  *Modification Id* Act 
----------------------------+
01002  M02S00795.ns2749  ---|          LMD    EC
Line S00796 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2749
Seq #  *Modification Id* Act 
----------------------------+
01003  M02S00796.ns2749  ---|          STD    EC
Line S00797 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2749
Seq #  *Modification Id* Act 
----------------------------+
01004  M02S00797.ns2749  ---| ERR4     LDD    TH          FORCE IMMEDIATE COMPLETION
01005  M01S00004.ns2749  +++|          MJN    ERR2        IF COMPLEMENTED ERROR CODE
01006  M01S00005.ns2749  +++|          LDD    TH          FORCE IMMEDIATE COMPLETION
01007  M01S00798.1xy     +++|          ERRNZ  SHNI-1000   CODE DEPENDS ON VALUE
01008  M01S00799.1xy     +++|          STM    IICA
01009  M01S00800.1xy     +++|          RJM    IIC         ISSUE I/O COMPLETION REQUEST
01010  M01S00801.1xy     +++| ERR4.1   RJM    CRQ         ENSURE COMPLETION OF PENDING REQUEST
01011  M01S00802.1xy     +++|          NJN    ERR4.1      IF FUNCTION STILL PENDING
01012  M01S00803.1xy     +++|          RJM    IBM         ISSUE BML MESSAGE IF NECESSARY
01013  M01S00804.1xy     +++|          AOD    RS          INCREMENT RECOVERY STATUS
01014  M01S00805.1xy     +++|          SHN    21-13
Line S00806 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01015  M02S00806.ns2507  ---|          MJP    ERR10       IF CONTROLLER ERROR RECOVERY IN PROGRESS
01016  M01S00003.ns2507  +++|          MJN    ERR10       IF *CCC* ERROR RECOVERY IN PROGRESS
01017  M01S00007.ns2732  +++|
01018  M01S00008.ns2732  +++|*         SET THE SUSPECT FLAG IF APPROPRIATE FOR THIS ERROR TYPE.
01019  M01S00009.ns2732  +++|
01020  M01S00006.ns2749  +++|          LDK    STAE
01021  M01S00007.ns2749  +++|          LMD    EC
01022  M01S00008.ns2749  +++|          ZJN    ERR7        IF STATISTICAL DATA (NOT AN ERROR)
01023  M01S00010.ns2732  +++|          RJM    SSF         SET SUSPECT FLAG (IF APPROPRIATE)
Line S00011 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00011.ns2769  ---|          RJM    IBD         ISSUE B-DISPLAY MESSAGE
01025  M01S00807.1xy     +++|          RJM    CRL         CHECK FOR RETRY LIMIT REACHED
01026  M01S00808.1xy     +++|          MJN    ERR7        IF RETRY LIMIT NOT REACHED
Line S00809 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01027  M02S00809.ns2769  ---|          RJM    IBD         ISSUE B-DISPLAY MESSAGE
01028  M01S00004.ns2732b +++|          SOD    RC          ADJUST FINAL RETRY COUNT
Line S00810 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01029  M02S00810.ns2507  ---|
Line S00811 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01030  M02S00811.ns2507  ---|*         DOWN THE CHANNEL IF APPROPRIATE FOR THIS ERROR TYPE.
Line S00812 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01031  M02S00812.ns2507  ---|
Line S00001 Modification History
M01 (Added by) ns2497
M02 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
01032  M02S00001.ns2732a ---|          SOD    RC          ALIGN RETRY COUNT FOR FINAL MESSAGE
Line S00813 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01033  M02S00813.ns2507  ---|          LDD    GS
Line S00814 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01034  M02S00814.ns2507  ---|          LMC    7777
Line S00815 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01035  M02S00815.ns2507  ---|          NJN    ERR6        IF GENERAL STATUS OBTAINED
Line S00816 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01036  M02S00816.ns2507  ---|          LDM    TEPF,EC
Line S00817 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01037  M02S00817.ns2507  ---|          SHN    21-6
Line S00818 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01038  M02S00818.ns2507  ---|          PJN    ERR6        IF DOWNING CHANNEL INAPPROPRIATE
Line S00819 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01039  M02S00819.ns2507  ---|          LDD    T5          DOWN CHANNEL ON DEVICE
Line S00820 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01040  M02S00820.ns2507  ---|          RJM    RCS
01041  M01S00821.1xy     +++| ERR6     AOD    RS          SET RECOVERY STATUS
01042  M01S00822.1xy     +++|          UJN    ERR11       TERMINATE ERROR PROCESSING
01043  M01S00823.1xy     +++|
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 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01048  M02S00824.ns2732  ---|*         SET THE SUSPECT FLAG IF APPROPRIATE FOR THIS ERROR TYPE.
Line S00825 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01049  M02S00825.ns2732  ---|
Line S00826 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01050  M02S00826.ns2732  ---| ERR7     RJM    SSF         SET SUSPECT FLAG (IF APPROPRIATE)
Line S00827 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01051  M02S00827.ns2732  ---|          RJM    IBD         ISSUE B-DISPLAY MESSAGE
01052  M01S00828.1xy     +++|
01053  M01S00829.1xy     +++|*         RETRY I/O SEQUENCE.
01054  M01S00830.1xy     +++|
01055  M01S00831.1xy     +++| ERR9     RJM    ISF         ISSUE SEEK FUNCTION
01056  M01S00832.1xy     +++|          ZJN    ERR10       IF ON CYLINDER AND NO ERROR
01057  M01S00833.1xy     +++|          LDD    GS
01058  M01S00834.1xy     +++|          LMN    2
01059  M01S00835.1xy     +++|          ZJN    ERR9        IF POSITIONER BUSY
Line S00836 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00836.ns2732  ---|          LMN    10&2
Line S00837 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00837.ns2732  ---|          ZJN    ERR6        IF DRIVE RESERVED ON OTHER ACCESS
01062  M01S00838.1xy     +++|          UJP    ERR1        RESTART ERROR PROCESSING
01063  M01S00839.1xy     +++|
01064  M01S00840.1xy     +++| ERR10    RJM    PFR         PREPARE FOR RETRY ATTEMPT
01065  M01S00841.1xy     +++|          RJM    PDT         PERFORM READ/WRITE OPERATION
01066  M01S00842.1xy     +++|
01067  M01S00843.1xy     +++|*         CONTROL RETURNS TO THIS POINT ONLY IF THE ERROR WAS
01068  M01S00844.1xy     +++|*         RECOVERED.
01069  M01S00845.1xy     +++|
01070  M01S00846.1xy     +++| ERR11    AOD    RS          SET RECOVERY STATUS
01071  M01S00006.ns2732a +++|          SHN    6
01072  M01S00007.ns2732a +++|          RAD    RC          ADJUST FOR CONTROLLER RECOVERY
01073  M01S00847.1xy     +++|
01074  M01S00848.1xy     +++|*         TERMINATE ERROR PROCESSING.  INSTRUCTIONS MODIFIED FOR ERROR
01075  M01S00849.1xy     +++|*         PROCESSING WILL BE RESTORED TO THEIR ORIGINAL VALUES, VARIOUS
01076  M01S00850.1xy     +++|*         DATA CELLS WILL BE RESTORED TO THEIR INITIAL STATES, ETC.
01077  M01S00851.1xy     +++|
01078  M01S00852.1xy     +++|          RJM    TEP         TERMINATE ERROR PROCESSING
01079  M01S00853.1xy     +++|          LJM    MST         EXIT ERROR PROCESSOR
01080  M01S00008.ns2560  +++|
01081  M01S00009.ns2560  +++|
01082  M01S00010.ns2560  +++| ERRA     CON    0           RECOVERY IN PROGRESS PASS COUNTER
01083  M01S00854.1xy     +++| TEPF     SPACE  4,30
01084  M01S00855.1xy     +++|**        TEPF - TABLE OF ERROR PROCESSING FLAGS.
01085  M01S00856.1xy     +++|*
01086  M01S00857.1xy     +++|*         THIS TABLE CONTAINS INFORMATION RELATED TO EACH ERROR TYPE.
01087  M01S00858.1xy     +++|*         EACH ENTRY HAS THE FOLLOWING FORMAT -
01088  M01S00859.1xy     +++|*                VFD    2/ERROR COUNT INCREMENT, BML MESSAGE INDICATOR
01089  M01S00860.1xy     +++|*                            0   DO NOT INCREMENT ERROR COUNTS AND DO
01090  M01S00861.1xy     +++|*                                NOT ISSUE BML MESSAGE.
01091  M01S00862.1xy     +++|*                            1   INCREMENT ERROR COUNTS AND ISSUE BML
01092  M01S00863.1xy     +++|*                                MESSAGE.
01093  M01S00864.1xy     +++|*                            2   INCREMENT ERROR COUNTS AND ISSUE BML
01094  M01S00865.1xy     +++|*                                MESSAGE IF UNRECOVERED ERROR.
Line S00866 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01095  M02S00866.ns2732  ---|*                VFD    2/ERROR LOG MESSAGE INDICATOR
Line S00867 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01096  M02S00867.ns2732  ---|*                            0   DO NOT ISSUE ERROR LOG MESSAGE.
Line S00868 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01097  M02S00868.ns2732  ---|*                            1   ISSUE ERROR LOG MESSAGE WITH DETAILED
Line S00869 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01098  M02S00869.ns2732  ---|*                                STATUS.
Line S00870 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01099  M02S00870.ns2732  ---|*                            2   ISSUE ERROR LOG MESSAGE WITHOUT
Line S00871 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01100  M02S00871.ns2732  ---|*                                DETAILED STATUS.
01101  M01S00016.ns2732  +++|*                VFD    2/UNUSED (ZERO)
01102  M01S00872.1xy     +++|*                VFD    1/SUSPECT FLAG
01103  M01S00873.1xy     +++|*                            0   DO NOT SET SUSPECT FLAG.
01104  M01S00874.1xy     +++|*                            1   SET SUSPECT FLAG.
Line S00875 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01105  M02S00875.ns2732  ---|*                VFD    1/DOWN CHANNEL FLAG
Line S00876 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01106  M02S00876.ns2732  ---|*                            0   DO NOT DOWN CHANNEL.
Line S00877 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01107  M02S00877.ns2732  ---|*                            1   DOWN CHANNEL.
Line S00878 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01108  M02S00878.ns2732  ---|*                VFD    1/CONTROLLER RELOAD FLAG
Line S00879 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01109  M02S00879.ns2732  ---|*                            0   DO NOT RELOAD CONTROLLER.
Line S00880 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01110  M02S00880.ns2732  ---|*                            1   RELOAD CONTROLLER.
Line S00881 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01111  M02S00881.ns2732  ---|*                VFD    5/UNUSED (ZERO)
01112  M01S00017.ns2732  +++|*                VFD    7/UNUSED (ZERO)
01113  M01S00882.1xy     +++|
01114  M01S00883.1xy     +++|
01115  M01S00884.1xy     +++|          LIST   G
01116  M01S00885.1xy     +++| TEPF     EQU    *-1
01117  M01S00886.1xy     +++|          ECHO   1,EC=("DREC")
Line S00887 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01118  M02S00887.ns2732  ---|          VFD    2/IEC._EC,2/IEM._EC,1/SUS._EC,1/IDC._EC,1/CWR._EC,5/0
01119  M01S00018.ns2732  +++|          VFD    2/IEC._EC,2/0,1/SUS._EC,7/0
01120  M01S00888.1xy     +++|          LIST   *
01121  M01S00889.1xy     +++| TMNE     SPACE  4,10
01122  M01S00890.1xy     +++|**        TMNE - TABLE OF ERROR CODE MNEMONICS.
01123  M01S00891.1xy     +++|
01124  M01S00892.1xy     +++|
01125  M01S00893.1xy     +++|          LIST   G
01126  M01S00894.1xy     +++| TMNE     EQU    *-1
01127  M01S00895.1xy     +++|          ECHO   1,ERRCODE=("DREC")
01128  M01S00896.1xy     +++|          CON    EMN._ERRCODE          "TXT._ERRCODE" ERROR
01129  M01S00897.1xy     +++|          LIST   *
01130  M01S00898.1xy     +++| TREC     SPACE  4,10
01131  M01S00899.1xy     +++|**        TREC - TABLE OF RETRY COUNTS.
01132  M01S00900.1xy     +++|
01133  M01S00901.1xy     +++|
01134  M01S00902.1xy     +++|          LIST   G
01135  M01S00903.1xy     +++| TREC     EQU    *-1
01136  M01S00904.1xy     +++|          ECHO   1,ERRCODE=("DREC")
01137  M01S00905.1xy     +++|          CON    RTC._ERRCODE          "TXT._ERRCODE" ERROR
01138  M01S00906.1xy     +++|          LIST   *
01139  M01S00907.1xy     +++| TSYM     SPACE  4,10
01140  M01S00908.1xy     +++|**        TSYM - TABLE OF BML SYMPTOM CODES.
01141  M01S00909.1xy     +++|
01142  M01S00910.1xy     +++|
01143  M01S00911.1xy     +++|          LIST   G
01144  M01S00912.1xy     +++| TSYM     EQU    *-1
01145  M01S00913.1xy     +++|          ECHO   1,ERRCODE=("DREC")
01146  M01S00914.1xy     +++|          CON    SYM._ERRCODE          "TXT._ERRCODE" ERROR
01147  M01S00915.1xy     +++|          LIST   *
01148  M01S00916.1xy     +++| FNC      SPACE  4,10
01149  M01S00917.1xy     +++|**        FNC - FUNCTION CHANNEL.
01150  M01S00918.1xy     +++|*
01151  M01S00919.1xy     +++|*         ENTRY  (A) = FUNCTION CODE.
01152  M01S00920.1xy     +++|*
01153  M01S00921.1xy     +++|*         EXIT   (A) .LT. 0 IF CHANNEL ACTIVE UPON ENTRY OR FUNCTION
01154  M01S00922.1xy     +++|*                           TIMEOUT.  (EC) = COMPLEMENT OF ERROR CODE.
01155  M01S00923.1xy     +++|*                    .EQ. 0 IF NO ERROR, CHANNEL ACTIVE.
01156  M01S00924.1xy     +++|*
01157  M01S00925.1xy     +++|*         USES   EC.
01158  M01S00926.1xy     +++|
01159  M01S00927.1xy     +++|
01160  M01S00928.1xy     +++| FNC6     ACN    CH          ACTIVATE CHANNEL
01161  M01S00929.1xy     +++|          LDN    0           SET REPLY STATUS
01162  M01S00930.1xy     +++|
01163  M01S00931.1xy     +++| FNC      SUBR               ENTRY/EXIT
01164  M01S00932.1xy     +++|          PJN    FNC0        IF CONTROLLER FUNCTION
01165  M01S00933.1xy     +++|          LPC    177777
01166  M01S00934.1xy     +++|          STML   FNCB
01167  M01S00935.1xy     +++|          UJN    FNC0.1      CONTINUE
01168  M01S00936.1xy     +++|
01169  M01S00937.1xy     +++| FNC0     STM    FNCA        SAVE FUNCTION CODE
01170  M01S00938.1xy     +++| FNC0.1   AJM    FNC5,CH     IF CHANNEL IS STILL ACTIVE
01171  M01S00022.1xy2    +++|*         UJN    FNC5.1      (CHANNEL INITIALIZATION ERROR)
01172  M01S00023.1xy2    +++| FNCC     EQU    *-2
01173  M01S00939.1xy     +++|          FAN    CH          FUNCTION CHANNEL
01174  M01S00940.1xy     +++|
01175  M01S00941.1xy     +++|*         THE DRIVER MUST WAIT AT LEAST 300 MS BEFORE TIMING OUT THE
01176  M01S00942.1xy     +++|*         FUNCTION.
01177  M01S00943.1xy     +++|
01178  M01S00944.1xy     +++| FNC1     ADD    ON
01179  M01S00945.1xy     +++|          IJM    FNC6,CH     IF FUNCTION ACCEPTED
01180  M01S00946.1xy     +++|          NJN    FNC1        IF NOT TIMEOUT YET
01181  M01S00947.1xy     +++|          LCN    FTOE
01182  M01S00948.1xy     +++| FNC3     STD    EC
01183  M01S00949.1xy     +++|          EJM    FNC4,CH     IF CHANNEL IS EMPTY
01184  M01S00950.1xy     +++|          LDN    1           SAVE LAST FUNCTION ISSUED
01185  M01S00951.1xy     +++|          IAM    FNCA,CH
01186  M01S00952.1xy     +++| FNC4     LCN    0           SET ERROR REPLY STATUS
01187  M01S00953.1xy     +++|          DCN    CH+40
01188  M01S00954.1xy     +++|          UJN    FNCX        RETURN
01189  M01S00955.1xy     +++|
01190  M01S00956.1xy     +++| FNC5     LCN    CHFE        SET *CHANNEL FAILURE* ERROR CODE
01191  M01S00957.1xy     +++|          UJN    FNC3        INPUT DATA/FUNCTION FROM CHANNEL
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  M01S00958.1xy     +++|
01197  M01S00959.1xy     +++|
01198  M01S00960.1xy     +++| FNCA     CON    -0          CURRENT FUNCTION
01199  M01S00961.1xy     +++| FNCB     CON    -0          CURRENT ADAPTER FUNCTION
01200  M01S00962.1xy     +++| FNN      SPACE  4,10
01201  M01S00963.1xy     +++|**        FNN - FUNCTION CHANNEL NO ACTIVATE.
01202  M01S00964.1xy     +++|*
01203  M01S00965.1xy     +++|*         ENTRY  (A) = FUNCTION CODE.
01204  M01S00966.1xy     +++|*
01205  M01S00967.1xy     +++|*         EXIT   (A) .LT. 0 IF CHANNEL ACTIVE UPON ENTRY OR FUNCTION
01206  M01S00968.1xy     +++|*                           TIMEOUT.  (EC) = COMPLEMENT OF ERROR CODE.
01207  M01S00969.1xy     +++|*                    .GE. 0 IF NO ERROR.
01208  M01S00970.1xy     +++|*
01209  M01S00971.1xy     +++|*         USES   EC.
01210  M01S00972.1xy     +++|
01211  M01S00973.1xy     +++|
01212  M01S00974.1xy     +++| FNN6     LDN    0           SET REPLY STATUS
01213  M01S00975.1xy     +++|
01214  M01S00976.1xy     +++| FNN      SUBR               ENTRY/EXIT
01215  M01S00977.1xy     +++|          PJN    FNN0        IF CONTROLLER FUNCTION
01216  M01S00978.1xy     +++|          LPC    177777
01217  M01S00979.1xy     +++|          STML   FNCB
01218  M01S00980.1xy     +++|          UJN    FNN0.1      CONTINUE
01219  M01S00981.1xy     +++|
01220  M01S00982.1xy     +++| FNN0     STM    FNCA        SAVE FUNCTION CODE
01221  M01S00983.1xy     +++| FNN0.1   AJM    FNN5,CH     IF CHANNEL IS STILL ACTIVE
01222  M01S00028.1xy2    +++|*         UJN    FNN5.1      (CHANNEL INITIALIZATION ERROR)
01223  M01S00029.1xy2    +++| FNNA     EQU    *-2
01224  M01S00984.1xy     +++|          FAN    CH          FUNCTION CHANNEL
01225  M01S00985.1xy     +++|
01226  M01S00986.1xy     +++|*         THE DRIVER MUST WAIT AT LEAST 300 MS BEFORE TIMING OUT THE
01227  M01S00987.1xy     +++|*         FUNCTION.
01228  M01S00988.1xy     +++|
01229  M01S00989.1xy     +++| FNN1     ADD    ON
01230  M01S00990.1xy     +++|          IJM    FNN6,CH     IF FUNCTION ACCEPTED
01231  M01S00991.1xy     +++|          NJN    FNN1        IF NOT TIMEOUT YET
01232  M01S00992.1xy     +++|          LCN    FTOE        SET COMPLEMENT OF *FTOE* ERROR CODE
01233  M01S00993.1xy     +++| FNN3     STD    EC
01234  M01S00994.1xy     +++|          EJM    FNN4,CH     IF CHANNEL IS EMPTY
01235  M01S00995.1xy     +++|          LDN    1           SAVE LAST FUNCTION ISSUED
01236  M01S00996.1xy     +++|          IAM    FNCA,CH
01237  M01S00997.1xy     +++| FNN4     LCN    0           SET ERROR REPLY STATUS
01238  M01S00998.1xy     +++|          DCN    CH+40
01239  M01S00999.1xy     +++|          UJN    FNNX        RETURN
01240  M01S01000.1xy     +++|
01241  M01S01001.1xy     +++| FNN5     LCN    CHFE        SET *CHANNEL FAILURE* ERROR CODE
01242  M01S01002.1xy     +++|          UJN    FNN3        INPUT DATA/FUNCTION FROM CHANNEL
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  M01S01003.1xy     +++| GDS      SPACE  4,15
01248  M01S01004.1xy     +++|**        GDS - GET DETAILED STATUS.
01249  M01S01005.1xy     +++|*
01250  M01S01006.1xy     +++|*         THIS ROUTINE OBTAINS THE DETAILED STATUS FROM THE CONTROLLER.
01251  M01S01007.1xy     +++|*
01252  M01S01008.1xy     +++|*         EXIT   (A) .EQ. 0 IF STATUS OBTAINED.
01253  M01S01009.1xy     +++|*                    .LT. 0 IF STATUS NOT OBTAINED.
01254  M01S01010.1xy     +++|*                (EC) = COMPLEMENT OF ERROR CODE IF STATUS NOT
01255  M01S01011.1xy     +++|*                       OBTAINED.
01256  M01S01012.1xy     +++|*
01257  M01S01013.1xy     +++|*         USES   EC, T1.
01258  M01S01014.1xy     +++|*
01259  M01S01015.1xy     +++|*         CALLS  FNC.
01260  M01S01016.1xy     +++|
01261  M01S01017.1xy     +++|
01262  M01S01018.1xy     +++| GDS2     LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01263  M01S01019.1xy     +++| GDS3     STD    EC
01264  M01S01020.1xy     +++| GDS4     LDN    MXSL-1      INVALIDATE DETAILED STATUS
01265  M01S01021.1xy     +++|          STD    T1
01266  M01S01022.1xy     +++| GDS5     LCN    0
01267  M01S01023.1xy     +++|          STM    DST,T1
01268  M01S01024.1xy     +++|          SOD    T1
01269  M01S01025.1xy     +++|          PJN    GDS5        IF MORE BYTES
01270  M01S01026.1xy     +++| GDS6     DCN    CH+40
01271  M01S01027.1xy     +++|
01272  M01S01028.1xy     +++| GDS      SUBR               ENTRY/EXIT
01273  M01S01029.1xy     +++|          LDN    FCDS        ISSUE DETAILED STATUS FUNCTION
01274  M01S01030.1xy     +++|          RJM    FNC
01275  M01S01031.1xy     +++|          MJN    GDS4        IF ERROR
01276  M01S01032.1xy     +++|          LDN    MXSL
01277  M01S01033.1xy     +++|          IAM    DST,CH      INPUT DETAILED STATUS
01278  M01S01034.1xy     +++|          NJN    GDS2        IF INCOMPLETE DATA TRANSFER
01279  M01S01035.1xy     +++|          SFM    GDS1,CH     IF CHANNEL PARITY ERROR
01280  M01S01036.1xy     +++|          UJN    GDS6        RETURN
01281  M01S01037.1xy     +++|
01282  M01S01038.1xy     +++| GDS1     LCN    CHPE        SET *CHANNEL PARITY* ERROR CODE
01283  M01S01039.1xy     +++|          UJN    GDS3        SET ERROR CODE
01284  M01S01040.1xy     +++| GGS      SPACE  4,20
01285  M01S01041.1xy     +++|**        GGS - GET GENERAL STATUS.
01286  M01S01042.1xy     +++|*
01287  M01S01043.1xy     +++|*         THIS ROUTINE OBTAINS GENERAL STATUS FROM THE CONTROLLER.
01288  M01S01044.1xy     +++|*
01289  M01S01045.1xy     +++|*         EXIT   (A) .EQ. 0 IF GENERAL STATUS OBTAINED.  (GS) = STATUS.
01290  M01S01046.1xy     +++|*                    .LT. 0 IF STATUS NOT OBTAINED.  (GS) = 7777.
01291  M01S01047.1xy     +++|*                (EC) = COMPLEMENT OF *IDET* ERROR CODE IF INCOMPLETE
01292  M01S01048.1xy     +++|*                       DATA TRANSFER OCCURRED.
01293  M01S01049.1xy     +++|*                     = COMPLEMENT OF *CHPE* ERROR CODE IF CHANNEL
01294  M01S01050.1xy     +++|*                       PARITY ERROR OCCURRED.
01295  M01S01051.1xy     +++|*
01296  M01S01052.1xy     +++|*         USES   EC, GS.
01297  M01S01053.1xy     +++|*
01298  M01S01054.1xy     +++|*         CALLS  FNC.
01299  M01S01055.1xy     +++|
01300  M01S01056.1xy     +++|
01301  M01S01057.1xy     +++| GGS1     LCN    CHPE        SET *CHANNEL PARITY* ERROR CODE
01302  M01S01058.1xy     +++|          UJN    GGS3        SET ERROR CODE
01303  M01S01059.1xy     +++|
01304  M01S01060.1xy     +++| GGS2     LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01305  M01S01061.1xy     +++| GGS3     STD    EC
01306  M01S01062.1xy     +++| GGS4     LCN    0           INVALIDATE GENERAL STATUS
01307  M01S01063.1xy     +++|          STD    GS
01308  M01S01064.1xy     +++| GGS5     DCN    CH+40
01309  M01S01065.1xy     +++|
01310  M01S01066.1xy     +++| GGS      SUBR               ENTRY/EXIT
01311  M01S01067.1xy     +++|          LDN    FCGS        ISSUE GENERAL STATUS FUNCTION
01312  M01S01068.1xy     +++|          RJM    FNC
01313  M01S01069.1xy     +++|          MJN    GGS4        IF FUNCTION TIMEOUT
01314  M01S01070.1xy     +++|          LDN    1           INPUT STATUS
01315  M01S01071.1xy     +++|          IAM    GS,CH
01316  M01S01072.1xy     +++|          NJN    GGS2        IF INCOMPLETE TRANSFER
01317  M01S01073.1xy     +++|          SFM    GGS1,CH     IF CHANNEL PARITY ERROR
01318  M01S01074.1xy     +++|          LDD    GS
01319  M01S01075.1xy     +++|          UJN    GGS5        RETURN
Line S01076 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01320  M02S01076.ns2769  ---| IBD      SPACE  4,15
Line S01077 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01321  M02S01077.ns2769  ---|**        IBD - ISSUE B-DISPLAY MESSAGE.
Line S01078 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01322  M02S01078.ns2769  ---|*
Line S01079 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01323  M02S01079.ns2769  ---|*         THIS ROUTINE ISSUES A MESSAGE TO *MS2W* OF THE SYSTEM CONTROL
Line S01080 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01324  M02S01080.ns2769  ---|*         POINT FOR PRESENTATION ON B-DISPLAY.
Line S01081 Modification History
M01 (Added by) 1xy
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01325  M02S01081.ns2769  ---|*
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1xy.txt ยท Last modified: by 127.0.0.1