User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1hp

Deck 1HP

23 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.1hp     +++|          IDENT  1HP,FHP
00002  M01S00002.1hp     +++| 1HP      TITLE  1HP - 885-42 DRIVER.
00003  M01S00003.1hp     +++|          PERIPH
00004  M01S00004.1hp     +++|          BASE   MIXED
00005  M01S00005.1hp     +++|          SST
00006  M01S00006.1hp     +++|*COMMENT  1HP - 885-42 DRIVER.
Line S00007 Modification History
M01 (Added by) 1hp
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1982.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.1hp     +++| 1HP      SPACE  4,10
00010  M01S00009.1hp     +++|***       1HP - 885-42 DRIVER.
00011  M01S00010.1hp     +++|*
00012  M01S00011.1hp     +++|*         P. T. BARNETT.     83/09/04.
00013  M01S00012.1hp     +++|*         R. M. DANISCH.     85/12/23.
00014  M01S00013.1hp     +++| 1HP      SPACE  4,10
00015  M01S00014.1hp     +++|***       1HP PROVIDES THE CAPABILITY TO ACCESS THE 885-42 DRIVE
00016  M01S00015.1hp     +++|*         THROUGH THE 7155-401 (FA211-C) CONTROLLER.  1HP IS A
00017  M01S00016.1hp     +++|*         DEDICATED PROGRAM THAT IS INITIATED AT DEADSTART AND REMAINS
00018  M01S00017.1hp     +++|*         ACTIVE AS LONG AS ITS CHANNEL IS UP AND FUNCTIONAL.  1HP USES
00019  M01S00018.1hp     +++|*         THE *BIOM* MONITOR FUNCTION TO COMMUNICATE WITH *CPUMTR*.
00020  M01S00019.1hp     +++| 1HP      SPACE  4,10
00021  M01S00020.1hp     +++|***       CALL FORMAT -
00022  M01S00021.1hp     +++|*
00023  M01S00022.1hp     +++|*T,IR     18/*1HP*, 1/0, 5/CP, 6/CCTO, 18/0, 12/CH
Figure IR

0111229CH030353640414259CCTOCP0*1HP*

00024  M01S00023.1hp     +++|*
00025  M01S00024.1hp     +++|*         CP     CONTROL POINT NUMBER (MUST BE SYSTEM CP).
00026  M01S00025.1hp     +++|*
00027  M01S00026.1hp     +++|*         CCTO   CCT ORDINAL.
00028  M01S00027.1hp     +++|*         CH     CHANNEL NUMBER.
00029  M01S00028.1hp     +++| 1HP      SPACE  4,35
00030  M01S00029.1hp     +++|***       ORGANIZATION OF 885-42.
00031  M01S00030.1hp     +++|*
00032  M01S00031.1hp     +++|*         UP TO THREE 885-42 UNITS CAN BE COMBINED TO FORM
00033  M01S00032.1hp     +++|*         A LOGICAL DEVICE.
00034  M01S00033.1hp     +++|*
00035  M01S00034.1hp     +++|*         EQUIPMENT TYPE = *DB*.
00036  M01S00035.1hp     +++|*
00037  M01S00036.1hp     +++|*         SECTORS/TRACK = 640 LOGICAL / 160 PHYSICAL.
00038  M01S00037.1hp     +++|*           (4 LOGICAL SECTORS FORM 1 PHYSICAL SECTOR)
00039  M01S00038.1hp     +++|*
00040  M01S00039.1hp     +++|*         CM WORDS/PHYSICAL SECTOR = 400B.
00041  M01S00040.1hp     +++|*
00042  M01S00041.1hp     +++|*         LOGICAL SECTORS/PHYSICAL SECTOR = 4.
00043  M01S00042.1hp     +++|*
00044  M01S00043.1hp     +++|*         LOGICAL SECTORS/LOGICAL TRACK = 1200B (640D).
00045  M01S00044.1hp     +++|*
00046  M01S00045.1hp     +++|*         LOGICAL SECTORS/BUFFER = 40B.
00047  M01S00046.1hp     +++|*
00048  M01S00047.1hp     +++|*         TRACKS/UNIT = 3222B (1682D).
00049  M01S00048.1hp     +++|*
00050  M01S00049.1hp     +++|*         WORDS/UNIT = 68,894,720.
00051  M01S00050.1hp     +++|*
00052  M01S00051.1hp     +++|*         UNITS/DEVICE = 1-3.
00053  M01S00052.1hp     +++|*
00054  M01S00053.1hp     +++|*         WORDS/DEVICE = 68,894,720 - 206,684,160.
00055  M01S00054.1hp     +++|*
00056  M01S00055.1hp     +++|*         MAXIMUM DATA RATE = 491.52 K WORDS/SECOND.
00057  M01S00056.1hp     +++| 1HP      SPACE  4,20
00058  M01S00057.1hp     +++|**        MESSAGES.
00059  M01S00058.1hp     +++|*
00060  M01S00059.1hp     +++|*         * EQXXX CC ERROR RETRY UNDERWAY.*
00061  M01S00060.1hp     +++|*         ISSUED TO THE SYSTEM CONTROL POINT FOR PRESENTATION ON THE
00062  M01S00061.1hp     +++|*         B-DISPLAY TO ALERT THE OPERATOR THAT ERROR RECOVERY IS BEING
00063  M01S00062.1hp     +++|*         PERFORMED ON THE DEVICE WHOSE EST ORDINAL IS XXX.  THE TWO
00064  M01S00063.1hp     +++|*         CHARACTER MNEMONIC CC DESCRIBES THE ERROR TYPE.
00065  M01S00064.1hp     +++|*
00066  M01S00065.1hp     +++|*         * 1HP - UNAUTHORIZED CALL.*
00067  M01S00066.1hp     +++|*         ISSUED TO THE SYSTEM DAYFILE IF 1HP WAS NOT CALLED FROM
00068  M01S00067.1hp     +++|*         THE SYSTEM.
00069  M01S00068.1hp     +++| 1HP      SPACE  4,65
00070  M01S00069.1hp     +++|**        IMPLEMENTATION NOTES.
00071  M01S00070.1hp     +++|*
00072  M01S00071.1hp     +++|*         THE 7155-401 CONTROLLER IS CONNECTED TO ESM THROUGH A LOW
00073  M01S00072.1hp     +++|*         SPEED PORT, AND THE DATA TRANSFER IS DONE THROUGH THAT
00074  M01S00073.1hp     +++|*         CONNECTION.  THEREFORE, UPON ISSUING A READ OR WRITE
00075  M01S00074.1hp     +++|*         FUNCTION, A 2-BYTE ESM ADDRESS IS SENT TO THE CONTROLLER
00076  M01S00075.1hp     +++|*         THROUGH THE CHANNEL, AND THEN THE CHANNEL IS DISCONNECTED.
00077  M01S00076.1hp     +++|*         *1HP* IS THEN FREE TO DO AS IT PLEASES WHILE THE CONTROLLER
00078  M01S00077.1hp     +++|*         READS/WRITES THE DATA FROM/TO ESM.  SOMETIME BEFORE ISSUING
00079  M01S00078.1hp     +++|*         THE NEXT READ/WRITE FUNCTION *1HP* WILL ISSUE A GENERAL
00080  M01S00079.1hp     +++|*         STATUS FUNCTION.  THE CONTROLLER WILL PROVIDE STATUS ONLY
00081  M01S00080.1hp     +++|*         AFTER COMPLETION OF THE DATA TRANSFER.
00082  M01S00081.1hp     +++|*
00083  M01S00082.1hp     +++|*         IN ORDER TO MAXIMIZE THE TRANSFER RATE, *1HP* WILL SCAN THE
00084  M01S00083.1hp     +++|*         UNIT QUEUE WHILE WAITING FOR I/O COMPLETION TO SEE IF THE
00085  M01S00084.1hp     +++|*         CURRENT TRANSFER CAN BE CONTINUED.  IF THE 10B SECTORS
00086  M01S00085.1hp     +++|*         IMMEDIATELY FOLLOWING THE CURRENT 10B SECTORS ARE TO
00087  M01S00086.1hp     +++|*         BE USED IN THE SAME TRANSFER DIRECTION, *1HP* WILL CONTINUE
00088  M01S00087.1hp     +++|*         THE OPERATION, WITHOUT LOSING A DISK REVOLUTION.
00089  M01S00088.1hp     +++|*         DURING THE SUCCEEDING TRANSFER, *1HP* WILL ATTEMPT TO NOTIFY
00090  M01S00089.1hp     +++|*         *CPUMTR* OF COMPLETION ON THE PREVIOUS BUFFER.
00091  M01S00090.1hp     +++| 1HP      SPACE  4,10
00092  M01S00091.1hp     +++|*         COMMON DECKS.
00093  M01S00092.1hp     +++|
00094  M01S00093.1hp     +++|*CALL     COMPMAC
00095  M01S00094.1hp     +++| RICHI$   EQU    1           SELECT DEFERRED INSTRUCTION REDEFINITION
00096  M01S00095.1hp     +++|*CALL     COMPCHI
00097  M01S00096.1hp     +++|*CALL     COMSCPS
00098  M01S00097.1hp     +++|*CALL     COMSDFS
00099  M01S00098.1hp     +++|          LIST   X
00100  M01S00099.1hp     +++|*CALL     COMSHIO
00101  M01S00100.1hp     +++|          LIST   *
00102  M01S00101.1hp     +++|*CALL     COMSLSD
00103  M01S00001.252l678 +++|*CALL     COMSMSC
00104  M01S00102.1hp     +++|          LIST   X
00105  M01S00103.1hp     +++|*CALL     COMSMSP
00106  M01S00104.1hp     +++|          LIST   *
00107  M01S00105.1hp     +++|*CALL     COMSPIM
00108  M01S00106.1hp     +++|*CALL     COMS1DS
00109  M01S00107.1hp     +++|          TITLE  CONSTANTS, DEFINITIONS, AND MACROS.
00110  M01S00108.1hp     +++| 1HP      SPACE  4,10
00111  M01S00109.1hp     +++|**        DIRECT CELL ASSIGNMENTS.
00112  M01S00110.1hp     +++|
00113  M01S00111.1hp     +++|
00114  M01S00112.1hp     +++| RS       EQU    16          ERROR RECOVERY STATUS
00115  M01S00113.1hp     +++| ER       EQU    17          ERROR RECOVERY IN PROGRESS
00116  M01S00114.1hp     +++| CC       EQU    20          COMPLETION REQUEST COUNT
00117  M01S00115.1hp     +++| S1       EQU    21          SCRATCH
00118  M01S00116.1hp     +++| EC       EQU    22          ERROR CODE
00119  M01S00117.1hp     +++| RW       EQU    23          READ/WRITE FLAG
00120  M01S00118.1hp     +++| IL       EQU    24          *PUT* INTERLOCK FLAG
00121  M01S00119.1hp     +++| SR       EQU    25 - 31     SCRATCH
00122  M01S00001.ns2769  +++| WB       EQU    SR - SR+4   FOR *COMPIMB* COMPATIBILITY
00123  M01S00120.1hp     +++| PI       EQU    32          *PADN* WORD INDEX
00124  M01S00121.1hp     +++| CN       EQU    33 - 37     SCRATCH (5 CELLS)
00125  M01S00122.1hp     +++| CD       EQU    40 - 45     CURRENT DATA (6 CELLS)
00126  M01S00123.1hp     +++| CS       EQU    46          CHANNEL STATUS
00127  M01S00124.1hp     +++| NB       EQU    47          NEXT BUFFER ORDINAL
00128  M01S00125.1hp     +++| PB       EQU    50          PREVIOUS BUFFER ORDINAL
00129  M01S00126.1hp     +++| CB       EQU    51          CURRENT BUFFER ORDINAL
00130  M01S00127.1hp     +++| TB       EQU    52          TOTAL CBT COUNT
00131  M01S00128.1hp     +++| GS       EQU    53          GENERAL STATUS
00132  M01S00129.1hp     +++|*         EQU    54          CHANNEL NUMBER (FROM INPUT REGISTER)
00133  M01S00130.1hp     +++| TI       EQU    57          *TPOR* INDEX
00134  M01S00131.1hp     +++| CA       EQU    60 - 64     CURRENT PHYSICAL ADDRESS (5 CELLS)
00135  M01S00132.1hp     +++| RC       EQU    65          RETRY COUNT
00136  M01S00133.1hp     +++| PO       EQU    66          *PUT* ORDINAL
00137  M01S00134.1hp     +++| S2       EQU    67          SCRATCH
00138  M01S00135.1hp     +++| 1HP      SPACE  4,10
00139  M01S00136.1hp     +++|**        DRIVER FUNCTION CODES.
00140  M01S00137.1hp     +++|
00141  M01S00138.1hp     +++|
00142  M01S00139.1hp     +++| FCSK     EQU    1           SEEK 1 TO 1 INTERLACE
00143  M01S00140.1hp     +++| FCRD     EQU    4           READ
00144  M01S00141.1hp     +++| FCWR     EQU    5           WRITE
00145  M01S00142.1hp     +++| FCOC     EQU    10          OPERATION COMPLETE
00146  M01S00143.1hp     +++| FCCO     EQU    14          CONTINUE
00147  M01S00144.1hp     +++| FCDS     EQU    23          DETAILED STATUS
00148  M01S00145.1hp     +++| FCES     EQU    66          EXTENDED GENERAL STATUS
00149  M01S00146.1hp     +++| FCAL     EQU    414         AUTOLOAD
00150  M01S00147.1hp     +++| 1HP      SPACE  4,10
00151  M01S00148.1hp     +++|**        STATUS AND CONTROL REGISTER FUNCTION CODE(S).
00152  M01S00149.1hp     +++|
00153  M01S00150.1hp     +++| FCTC     EQU    3000        TEST AND CLEAR *SCR* BIT
00154  M01S00151.1hp     +++| 1HP      SPACE  4,10
00155  M01S00152.1hp     +++|**        ASSEMBLY CONSTANTS.
00156  M01S00153.1hp     +++|
00157  M01S00154.1hp     +++|
00158  M01S00155.1hp     +++| BFRL     EQU    10          *EMB* FLUSH RETRY COUNT
00159  M01S00156.1hp     +++| CH       EQU    0           MASS STORAGE CHANNEL
00160  M01S00157.1hp     +++| EMAI     EQU    400         EXTENDED MEMORY ADDRESS INCREMENT
00161  M01S00158.1hp     +++| FCESL    EQU    5           LENGTH OF EXTENDED GENERAL STATUS
00162  M01S00159.1hp     +++| FCRDL    EQU    2           NUMBER OF PARAMETER BYTES FOR READ
00163  M01S00160.1hp     +++| FCSKL    EQU    4           NUMBER OF PARAMETER BYTES FOR SEEK
00164  M01S00161.1hp     +++| FCWRL    EQU    6           NUMBER OF PARAMETER BYTES FOR WRITE
Line S00162 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp12
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00162.1hp12   ---| MAXU     EQU    10          MAXIMUM NUMBER OF UNITS PER CHANNEL
00166  M01S00001.1hp12   +++| MAXU     EQU    16D         MAXIMUM NUMBER OF UNITS PER CHANNEL
00167  M01S00001.ns2446  +++| PCRL     EQU    10          PP CALL RETRY LIMIT
00168  M01S00163.1hp     +++| MFRL     EQU    10          MONITOR FUNCTION RETRY LIMIT
00169  M01S00164.1hp     +++| PPSLB    EQU    10          PHYSICAL SECTORS PER BUFFER
00170  M01S00165.1hp     +++| PSPT     EQU    40          PHYSICAL SECTORS PER PHYSICAL TRACK
00171  M01S00166.1hp     +++| SOSF     EQU    100         SEEK OPTION SELECT FLAGS
00172  M01S00167.1hp     +++| TPORE    EQU    1           LENGTH OF *TPOR* ENTRY
00173  M01S00168.1hp     +++|          SPACE  4,10
00174  M01S00169.1hp     +++|**        MACROS.
00175  M01S00002.ns2769  +++| TBLM     SPACE  4,10
00176  M01S00003.ns2769  +++|**        TBLM - CREATE TABLE ENTRY MACRO.
00177  M01S00004.ns2769  +++|*
00178  M01S00005.ns2769  +++|*NAM      TBLM
00179  M01S00006.ns2769  +++|*
00180  M01S00007.ns2769  +++|*         ENTRY  NAM = TABLE NAME.
00181  M01S00008.ns2769  +++|*
00182  M01S00009.ns2769  +++|*         EXIT   NAM_E MACRO DEFINED.
00183  M01S00010.ns2769  +++|
00184  M01S00011.ns2769  +++|
00185  M01S00012.ns2769  +++|          PURGMAC  TBLM
00186  M01S00013.ns2769  +++|
00187  M01S00014.ns2769  +++|          MACRO  TBLM,NAM
00188  M01S00015.ns2769  +++|          PURGMAC  NAM_E
00189  M01S00016.ns2769  +++| NAM_E    MACRO  ADDR
00190  M01S00017.ns2769  +++|          LOCAL  A
00191  M01S00018.ns2769  +++|          MACREF NAM_E
00192  M01S00019.ns2769  +++|          NOREF  A
00193  M01S00020.ns2769  +++| A        EQU    ADDR
00194  M01S00021.ns2769  +++| T_NAM    RMT
00195  M01S00022.ns2769  +++|          CON    A
00196  M01S00023.ns2769  +++|          RMT
00197  M01S00024.ns2769  +++| TBLM     ENDM
00198  M01S00025.ns2769  +++| CBTE     SPACE  4,10
00199  M01S00026.ns2769  +++|**        CBTE - CONTROL BUFFER TABLE ENTRY.
00200  M01S00027.ns2769  +++|*
00201  M01S00028.ns2769  +++|*         THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TCBT*
00202  M01S00029.ns2769  +++|*         THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH
00203  M01S00030.ns2769  +++|*         REQUIRES THE FWA OF THE CONTROL BUFFER TABLE.
00204  M01S00031.ns2769  +++|*
00205  M01S00032.ns2769  +++|*         CBTE   ADDR
00206  M01S00033.ns2769  +++|*
00207  M01S00034.ns2769  +++|*         ENTRY  (ADDR) = ADDRESS OF INSTRUCTION.
00208  M01S00035.ns2769  +++|*
00209  M01S00036.ns2769  +++|*         EXIT   ADDRESS IS ADDED TO THE REMOTE BLOCK *TCBT*.
00210  M01S00037.ns2769  +++|
00211  M01S00038.ns2769  +++|
00212  M01S00039.ns2769  +++| CBT      TBLM
00213  M01S00170.1hp     +++| CCBA     SPACE  4,15
00214  M01S00171.1hp     +++|**        CCBA - COMPUTE *CBT* ENTRY ADDRESS.
00215  M01S00172.1hp     +++|*
00216  M01S00040.ns2769  +++|*         THIS MACRO SETS (A) TO THE REQUESTED *CBT* ENTRY ADDRESS.
00217  M01S00041.ns2769  +++|*
00218  M01S00173.1hp     +++|*         CCBA   W,A
00219  M01S00174.1hp     +++|*
00220  M01S00175.1hp     +++|*                W - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS.
00221  M01S00176.1hp     +++|*                A - IF NON-BLANK, BUFFER ORDINAL IS IN ACCUMULATOR.
00222  M01S00177.1hp     +++|*
00223  M01S00178.1hp     +++|*         ENTRY  (A) = BUFFER ORDINAL IF *A* PARAMETER IS NON-BLANK.
00224  M01S00179.1hp     +++|*                (CB) = CURRENT BUFFER ORDINAL.
00225  M01S00180.1hp     +++|*
00226  M01S00181.1hp     +++|*         EXIT   (A) = *CBT* ENTRY ADDRESS + WORD OFFSET.
00227  M01S00182.1hp     +++|
00228  M01S00183.1hp     +++|
00229  M01S00184.1hp     +++|          PURGMAC  CCBA
00230  M01S00185.1hp     +++|
00231  M01S00186.1hp     +++| CCBA     MACRO  W,A
Line S00187 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00232  M02S00187.ns2769  ---|          LOCAL  FWACB
00233  M01S00188.1hp     +++|          MACREF CCBA
00234  M01S00189.1hp     +++|          IFC    EQ,$A$$,1
00235  M01S00190.1hp     +++|          LDD    CB
00236  M01S00191.1hp     +++|          SHN    CBTLS
Line S00192 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00192.ns2769  ---| FWACB    ADC    W
Line S00193 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00193.ns2769  ---| CBTA     RMT
Line S00194 Modification History
M01 (Added by) 1hp
M02 (Updated by) 271l716
M03 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00239  M03S00194.ns2769  ---|          CON    FWACB+1
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00240  M02S00001.ns2769  ---|          CON    FWACB
Line S00195 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00195.ns2769  ---| CBTA     RMT
00242  M01S00042.ns2769  +++|          CBTE   *
00243  M01S00043.ns2769  +++|          ADC    W
00244  M01S00196.1hp     +++| CCBA     ENDM
00245  M01S00044.ns2769  +++| PUTE     SPACE  4,10
00246  M01S00045.ns2769  +++|**        PUTE - PHYSICAL UNIT TABLE ENTRY.
00247  M01S00046.ns2769  +++|*
00248  M01S00047.ns2769  +++|*         THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TPUT*
00249  M01S00048.ns2769  +++|*         THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH
00250  M01S00049.ns2769  +++|*         REQUIRES THE FWA OF THE PHYSICAL UNIT TABLE.
00251  M01S00050.ns2769  +++|*
00252  M01S00051.ns2769  +++|*         PUTE   ADDR
00253  M01S00052.ns2769  +++|*
00254  M01S00053.ns2769  +++|*         ENTRY  (ADDR) = ADDRESS OF INSTRUCTION.
00255  M01S00054.ns2769  +++|*
00256  M01S00055.ns2769  +++|*         EXIT   ADDRESS IS ADDED TO THE REMOTE BLOCK *TPUT*.
00257  M01S00056.ns2769  +++|
00258  M01S00057.ns2769  +++|
00259  M01S00058.ns2769  +++| PUT      TBLM
00260  M01S00197.1hp     +++| CPTA     SPACE  4,10
00261  M01S00198.1hp     +++|**        CPTA - COMPUTE *PUT* ENTRY ADDRESS.
00262  M01S00199.1hp     +++|*
00263  M01S00059.ns2769  +++|*         THIS MACRO SETS (A) TO THE REQUESTED *PUT* ENTRY ADDRESS.
00264  M01S00060.ns2769  +++|*
00265  M01S00200.1hp     +++|*         CPTA   W,A
00266  M01S00201.1hp     +++|*
00267  M01S00202.1hp     +++|*                W - OPTIONAL WORD OFFSET TO BE ADDED TO ADDRESS.
00268  M01S00203.1hp     +++|*                A - IF NON-BLANK, *PUT* ORDINAL IS IN ACCUMULATOR.
00269  M01S00204.1hp     +++|*
00270  M01S00205.1hp     +++|*         ENTRY  (A) = *PUT* ORDINAL IF *A* PARAMETER IS NON-BLANK.
00271  M01S00206.1hp     +++|*                (PO) = *PUT* ORDINAL.
00272  M01S00207.1hp     +++|*
00273  M01S00208.1hp     +++|*         EXIT   (A) = *PUT* ENTRY ADDRESS + WORD OFFSET.
00274  M01S00209.1hp     +++|
00275  M01S00210.1hp     +++|
00276  M01S00211.1hp     +++|          PURGMAC  CPTA
00277  M01S00212.1hp     +++|
00278  M01S00213.1hp     +++| CPTA     MACRO  W,A
Line S00214 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00214.ns2769  ---|          LOCAL  FWAPUT
00280  M01S00215.1hp     +++|          MACREF CPTA
00281  M01S00216.1hp     +++|          IFC    EQ,$A$$,1
00282  M01S00217.1hp     +++|          LDD    PO
00283  M01S00218.1hp     +++|          SHN    PUTLS
Line S00219 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00219.ns2769  ---| FWAPUT   ADC    W
Line S00220 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00220.ns2769  ---| PUTA     RMT
Line S00221 Modification History
M01 (Added by) 1hp
M02 (Updated by) 271l716
M03 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00286  M03S00221.ns2769  ---|          CON    FWAPUT+1
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00002.ns2769  ---|          CON    FWAPUT
Line S00222 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00222.ns2769  ---|          RMT
00289  M01S00061.ns2769  +++|          PUTE   *
00290  M01S00062.ns2769  +++|          ADC    W
00291  M01S00223.1hp     +++| CPTA     ENDM
00292  M01S00063.ns2769  +++| EMBE     SPACE  4,10
00293  M01S00064.ns2769  +++|**        EMBE - ERROR MESSAGE TABLE ENTRY.
00294  M01S00065.ns2769  +++|*
00295  M01S00066.ns2769  +++|*         THIS MACRO GENERATES AN ENTRY IN REMOTE LIST *TEMB*
00296  M01S00067.ns2769  +++|*         THAT CONTAINS THE ADDRESS OF AN INSTRUCTION WHICH
00297  M01S00068.ns2769  +++|*         REQUIRES THE FWA OF THE ERROR MESSAGE TABLE.
00298  M01S00069.ns2769  +++|*
00299  M01S00070.ns2769  +++|*         EMBE   ADDR
00300  M01S00071.ns2769  +++|*
00301  M01S00072.ns2769  +++|*         ENTRY  (ADDR) = ADDRESS OF INSTRUCTION.
00302  M01S00073.ns2769  +++|*
00303  M01S00074.ns2769  +++|*         EXIT   ADDRESS IS ADDED TO THE REMOTE BLOCK *TEMB*.
00304  M01S00075.ns2769  +++|
00305  M01S00076.ns2769  +++|
00306  M01S00077.ns2769  +++| EMB      TBLM
00307  M01S00224.1hp     +++| MONITOR  SPACE  4,15
00308  M01S00225.1hp     +++|**        MONITOR - ISSUE MONITOR FUNCTION.
00309  M01S00226.1hp     +++|*
00310  M01S00227.1hp     +++|*         THIS MACRO PROVIDES FUNCTIONALITY IDENTICAL TO THAT OF THE
00311  M01S00228.1hp     +++|*         *MONITOR* MACRO DEFINED IN *COMPMAC*, WHILE ENSURING ANY
00312  M01S00229.1hp     +++|*         PENDING *BIOM* MONITOR FUNCTION IS COMPLETED BEFORE THE NEXT
00313  M01S00230.1hp     +++|*         MONITOR FUNCTION IS ISSUED.
00314  M01S00231.1hp     +++|*
00315  M01S00232.1hp     +++|*         MONITOR  F
00316  M01S00233.1hp     +++|*
00317  M01S00234.1hp     +++|*                  F - MONITOR FUNCTION CODE.
00318  M01S00235.1hp     +++|*
00319  M01S00236.1hp     +++|*         EXIT   (A) = 0.
00320  M01S00237.1hp     +++|*                (CM - CM+4) = COMPLETED PP OUTPUT REGISTER IMAGE.
00321  M01S00238.1hp     +++|*
00322  M01S00239.1hp     +++|*         CALLS  IMF.
00323  M01S00240.1hp     +++|
00324  M01S00241.1hp     +++|
00325  M01S00242.1hp     +++|          PURGMAC  MONITOR
00326  M01S00243.1hp     +++|
00327  M01S00244.1hp     +++| MONITOR  MACRO  F
00328  M01S00245.1hp     +++|          MACREF MONITOR
00329  M01S00246.1hp     +++|          LDK    F
00330  M01S00247.1hp     +++|          RJM    IMF
00331  M01S00248.1hp     +++| MONITOR  ENDM
00332  M01S00249.1hp     +++| 1HP      SPACE  4
00333  M01S00250.1hp     +++|          TITLE  MAIN PROGRAM.
00334  M01S00251.1hp     +++| FHP      SPACE  4,10
00335  M01S00252.1hp     +++|**        FHP - 885-42 DRIVER.
00336  M01S00253.1hp     +++|
00337  M01S00254.1hp     +++|
00338  M01S00255.1hp     +++|          ORG    PPFW
00339  M01S00256.1hp     +++| FHP      RJM    PRS         PRESET
00340  M01S00257.1hp     +++| MST      SPACE  4,10
00341  M01S00258.1hp     +++|**        MST - MAIN PROGRAM.
00342  M01S00259.1hp     +++|
00343  M01S00260.1hp     +++|
00344  M01S00261.1hp     +++| MST      RJM    CCR         CHECK FOR CHANNEL REQUESTED/DOWN
00345  M01S00262.1hp     +++|          MJN    MST1        IF CHANNEL GLOBALLY DOWN
00346  M01S00263.1hp     +++|          RJM    SUQ         SCAN UNIT QUEUE
00347  M01S00264.1hp     +++|          ZJN    MST         IF NO ELIGIBLE ENTRY FOUND
00348  M01S00265.1hp     +++|          RJM    ISF         ISSUE SEEK FUNCTION
00349  M01S00266.1hp     +++|          NJN    MST         IF UNIT NOT ON CYLINDER
00350  M01S00267.1hp     +++|          RJM    PDT         PERFORM DATA TRANSFER
00351  M01S00268.1hp     +++|          UJN    MST         LOOP
00352  M01S00269.1hp     +++|
00353  M01S00270.1hp     +++| MST1     RJM    DCH         RELEASE CHANNEL
00354  M01S00271.1hp     +++|          MONITOR  DPPM      DROP PP
00355  M01S00272.1hp     +++|          LJM    PPR         ENTER IDLE LOOP
00356  M01S00273.1hp     +++| TPOR     SPACE  4,10
00357  M01S00274.1hp     +++|**        TPOR - TABLE OF *PUT* ORDINALS.
00358  M01S00275.1hp     +++|*
00359  M01S00276.1hp     +++|*         THIS TABLE CONTAINS THE ORDINALS OF THE *PUT* ENTRIES FOR ALL
00360  M01S00277.1hp     +++|*         UNITS ACCESSED BY THIS DRIVER-S CHANNEL.
00361  M01S00278.1hp     +++|*
00362  M01S00279.1hp     +++|*         ENTRY = 1 WORD.
00363  M01S00280.1hp     +++|*
Line S00281 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00364  M02S00281.252l678 ---|*T        12/ *PUT* ORDINAL
Figure

011 *PUT* ORDINAL

00365  M01S00002.252l678 +++|*T        5/ 0, 1/ I, 6/ *PUT* ORDINAL
Figure

056711 *PUT* ORDINAL I 0

00366  M01S00003.252l678 +++|*                I    EST CHANNEL BYTE INDEX.
00367  M01S00282.1hp     +++|*
00368  M01S00283.1hp     +++|*         TABLE IS TERMINATED BY A ZERO BYTE.
00369  M01S00284.1hp     +++|
00370  M01S00285.1hp     +++|
00371  M01S00286.1hp     +++| TPOR     BSSZ   TPORE*MAXU
00372  M01S00287.1hp     +++|          CON    0           TERMINATE *TPOR* TABLE
00373  M01S00288.1hp     +++|          TITLE  SUBROUTINES.
00374  M01S00289.1hp     +++| CCP      SPACE  4,10
00375  M01S00290.1hp     +++|**        CCP - CHECK FOR CHANNEL PARITY ERROR.
00376  M01S00291.1hp     +++|*
00377  M01S00292.1hp     +++|*         EXIT   (A) .EQ. 0 IF NO CHANNEL PARITY ERROR.
00378  M01S00293.1hp     +++|*                    .LT. 0 = COMPLEMENT OF *CHPE* ERROR CODE IF
00379  M01S00294.1hp     +++|*                         CHANNEL PARITY ERROR.
00380  M01S00295.1hp     +++|
00381  M01S00296.1hp     +++|
00382  M01S00297.1hp     +++| CCP1     LDN    0
00383  M01S00298.1hp     +++|
00384  M01S00299.1hp     +++| CCP      SUBR               ENTRY/EXIT
00385  M01S00300.1hp     +++|          LDC    FCTC+30     TEST AND CLEAR SCR BIT
00386  M01S00301.1hp     +++| CCPA     EQU    *-1         (BIT NUMBER)
Line S00302 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp10
Seq #  *Modification Id* Act 
----------------------------+
00387  M02S00302.1hp10   ---|          FJM    CCP1,CH     IF MAINTENANCE CHANNEL IN USE
00388  M01S00001.1hp10   +++|          FJM    CCP1,CHSC   IF MAINTENANCE CHANNEL IN USE
00389  M01S00002.1hp10   +++| CCPB     EQU    *-2
00390  M01S00303.1hp     +++|          OAN    CHSC        ISSUE REQUEST
Line S00304 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp10
Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00304.1hp10   ---| CCPB     EQU    *-1
00392  M01S00003.1hp10   +++| CCPC     EQU    *-1
00393  M01S00305.1hp     +++|          IAN    CHSC        INPUT RESULT
Line S00306 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp10
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00306.1hp10   ---| CCPC     EQU    *-1
00395  M01S00004.1hp10   +++| CCPD     EQU    *-1
00396  M01S00307.1hp     +++|          ZJN    CCPX        IF NO CHANNEL PARITY ERROR
00397  M01S00308.1hp     +++|          LCN    CHPE
00398  M01S00309.1hp     +++|          UJN    CCPX        RETURN
00399  M01S00310.1hp     +++| 1HP      SPACE  4
00400  M01S00311.1hp     +++|          RICHI              REDEFINE CHANNEL INSTRUCTIONS
00401  M01S00312.1hp     +++| CCR      SPACE  4,20
00402  M01S00313.1hp     +++|**        CCR - CHECK FOR CHANNEL REQUESTED OR DOWN.
00403  M01S00314.1hp     +++|*
00404  M01S00315.1hp     +++|*         THIS ROUTINE CHECKS TO SEE IF THE CHANNEL TO WHICH THIS PP IS
00405  M01S00316.1hp     +++|*         DEDICATED IS BEING REQUESTED BY ANOTHER PP OR IS GLOBALLY
00406  M01S00317.1hp     +++|*         DOWN.  IF THE CHANNEL IS REQUESTED BY ANOTHER PP, IT WILL BE
00407  M01S00318.1hp     +++|*         RELEASED AND WILL BE REQUESTED AGAIN FOLLOWING A ONE SECOND
00408  M01S00319.1hp     +++|*         DELAY.  IF THE CHANNEL IS GLOBALLY DOWN, THE DRIVER DROP FLAG
00409  M01S00320.1hp     +++|*         WILL BE SET IN THE CONTROLWARE TABLE AND THE CHANNEL WILL BE
00410  M01S00321.1hp     +++|*         RELEASED.
00411  M01S00322.1hp     +++|*
00412  M01S00323.1hp     +++|*         EXIT   (A) .LT. 0 IF CHANNEL IS GLOBALLY DOWN.
00413  M01S00324.1hp     +++|*
00414  M01S00325.1hp     +++|*         USES   CM - CM+4.
00415  M01S00326.1hp     +++|*
00416  M01S00327.1hp     +++|*         CALLS  DCH, RCH, SCD.
00417  M01S00328.1hp     +++|*
00418  M01S00329.1hp     +++|*         MACROS DELAY.
00419  M01S00330.1hp     +++|
00420  M01S00331.1hp     +++|
00421  M01S00332.1hp     +++| CCR2     RJM    SCD         SET DRIVER DROP FLAG
00422  M01S00333.1hp     +++|          LCN    0           SET DROPOUT REPLY
00423  M01S00334.1hp     +++|
00424  M01S00335.1hp     +++| CCR      SUBR               ENTRY/EXIT
00425  M01S00336.1hp     +++|          LDC    **          READ CHANNEL TABLE
00426  M01S00337.1hp     +++| CCRA     EQU    *-1         (CM ADDRESS OF ENTRY)
00427  M01S00338.1hp     +++|          CRD    CM
00428  M01S00339.1hp     +++|          LDD    CM+**       CHECK REQUESTED FLAG
00429  M01S00340.1hp     +++| CCRB     EQU    *-1         (BYTE ADDRESS OF ENTRY)
00430  M01S00341.1hp     +++|          SHN    21-5
00431  M01S00342.1hp     +++|          MJN    CCR2        IF CHANNEL IS GLOBALLY DOWN
00432  M01S00343.1hp     +++|          SHN    22+5-13
00433  M01S00344.1hp     +++|          PJN    CCRX        IF CHANNEL NOT REQUESTED
00434  M01S00345.1hp     +++|          RJM    DCH         RELEASE CHANNEL
Line S00346 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00346.252l678 ---|
Line S00347 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00347.252l678 ---|*         THE FOLLOWING DELAY MUST BE LONG ENOUGH TO ENSURE THAT ON A
Line S00348 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00348.252l678 ---|*         DOWN CHANNEL REQUEST (*1DS* HAS REQUESTED THE CHANNEL) ENOUGH
Line S00349 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00438  M02S00349.252l678 ---|*         TIME HAS ELAPSED TO ALLOW *MTR* TO LOOP THROUGH THE PP
Line S00350 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00350.252l678 ---|*         FUNCTION REQUESTS AND COMPLETE THE *1DS* DOWN CHANNEL
Line S00351 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00440  M02S00351.252l678 ---|*         REQUEST.  OTHERWISE, A DEADLOCK BETWEEN *1HP* AND *1DS* WILL
Line S00352 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00352.252l678 ---|*         OCCUR IN WHICH *1DS* CANNOT COMPLETE BECAUSE THE GLOBAL DOWN
Line S00353 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00353.252l678 ---|*         BIT CANNOT BE SET WHILE A PP HAS AN OUTSTANDING REQUEST FOR
Line S00354 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00354.252l678 ---|*         THE CHANNEL AND *1HP* WILL NEVER GET THE CHANNEL.
Line S00355 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00444  M02S00355.252l678 ---|
Line S00356 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
00445  M02S00356.252l678 ---| CCR1     DELAY  8D*1000D    DELAY FOR ONE SECOND
00446  M01S00004.252l678 +++| CCR1     DELAY
00447  M01S00357.1hp     +++|          RJM    RCH         REQUEST CHANNEL
00448  M01S00358.1hp     +++|          ZJN    CCR1        IF CHANNEL NOT ASSIGNED
00449  M01S00359.1hp     +++|          UJN    CCRX        RETURN
00450  M01S00360.1hp     +++| CCS      SPACE  4,15
00451  M01S00361.1hp     +++|**        CCS - CHECK CONSECUTIVE SECTORS.
00452  M01S00362.1hp     +++|*
00453  M01S00363.1hp     +++|*         THIS ROUTINE CHECKS THE NEXT BUFFER IN THE I/O QUEUE TO
00454  M01S00364.1hp     +++|*         DETERMINE IF IT IS CONSECUTIVE WITH THE REQUEST CURRENTLY
00455  M01S00365.1hp     +++|*         BEING PROCESSED.
00456  M01S00366.1hp     +++|*
00457  M01S00367.1hp     +++|*         ENTRY  (CB) = CURRENT BUFFER ORDINAL.
00458  M01S00368.1hp     +++|*                (NB) = NEXT BUFFER ORDINAL IF CONSECUTIVE REQUEST
00459  M01S00369.1hp     +++|*                       ALREADY FOUND.
00460  M01S00370.1hp     +++|*                (TB) = TOTAL BUFFER COUNT.
00461  M01S00371.1hp     +++|*
00462  M01S00372.1hp     +++|*         EXIT   (NB) = NEXT BUFFER ORDINAL.
00463  M01S00373.1hp     +++|*                     = 0 IF CONSECUTIVE TRANSFER NOT POSSIBLE.
00464  M01S00374.1hp     +++|*                (TB) = TOTAL BUFFER COUNT.
00465  M01S00375.1hp     +++|*
00466  M01S00376.1hp     +++|*         USES   NB, TB, CM - CM+4, CN - CN+4, T0 - T4.
00467  M01S00377.1hp     +++|*
00468  M01S00378.1hp     +++|*         MACROS CCBA.
00469  M01S00379.1hp     +++|
00470  M01S00380.1hp     +++|
00471  M01S00381.1hp     +++| CCS3     LDN    0           INDICATE NO CONSECUTIVE REQUEST
00472  M01S00382.1hp     +++|          STD    NB
00473  M01S00383.1hp     +++|
00474  M01S00384.1hp     +++| CCS      SUBR               ENTRY/EXIT
00475  M01S00385.1hp     +++|          LDD    NB
00476  M01S00386.1hp     +++|          NJN    CCSX        IF NEXT REQUEST ALREADY FOUND
00477  M01S00387.1hp     +++|          CCBA   PAD4        READ CURRENT *CBT* ENTRY
00478  M01S00388.1hp     +++|          CRD    CM
00479  M01S00389.1hp     +++|          ADK    IOLK-PAD4
00480  M01S00390.1hp     +++|          CRD    CN
00481  M01S00391.1hp     +++|          LDD    CN+2        NEXT BUFFER ORDINAL
00482  M01S00392.1hp     +++|          ZJN    CCSX        IF NO BUFFER
00483  M01S00393.1hp     +++|          STD    NB          STORE BUFFER ORDINAL OF NEXT REQUEST
00484  M01S00394.1hp     +++|          CCBA   PAD1,A      GET DISK ADDRESS FOR THIS BUFFER
00485  M01S00395.1hp     +++|          CRD    CN
00486  M01S00396.1hp     +++|          ADK    IOLK-PAD1   GET WRITE FLAG
00487  M01S00397.1hp     +++|          CRD    T0
00488  M01S00398.1hp     +++|          LDD    T0
00489  M01S00399.1hp     +++|          SHN    0-11
00490  M01S00400.1hp     +++|          LPN    1
00491  M01S00401.1hp     +++|          LMD    RW
00492  M01S00402.1hp     +++|          NJN    CCS3        IF TRANSFER NOT IN SAME DIRECTION
00493  M01S00403.1hp     +++|          LDD    CM+1
00494  M01S00404.1hp     +++|          LMD    CN+1
00495  M01S00405.1hp     +++| CCS1     NJN    CCS3        IF NO CYLINDER MATCH
00496  M01S00406.1hp     +++|          LDD    CM+2
00497  M01S00407.1hp     +++|          ADN    2
00498  M01S00408.1hp     +++|          LMD    CN+2
00499  M01S00409.1hp     +++|          ZJN    CCS2        IF CONSECTUTIVE SECTOR ON SAME TRACK
00500  M01S00410.1hp     +++|          LDD    CM+2
00501  M01S00411.1hp     +++|          ADD    HN
00502  M01S00412.1hp     +++|          SCN    77
00503  M01S00413.1hp     +++|          LMD    CN+2
00504  M01S00414.1hp     +++|          NJN    CCS1        IF NOT FIRST SECTOR ON CONSECUTIVE TRACK
00505  M01S00415.1hp     +++|          LDD    CM+2
00506  M01S00416.1hp     +++|          LPN    77
00507  M01S00417.1hp     +++|          SBN    PSPT-2
00508  M01S00418.1hp     +++|          NJN    CCS1        IF NOT CONSECUTIVE REQUEST
00509  M01S00419.1hp     +++| CCS2     AOD    TB          INCREMENT TOTAL BUFFER COUNT
00510  M01S00420.1hp     +++|          LJM    CCSX        RETURN
00511  M01S00421.1hp     +++| CDS      SPACE  4,25
00512  M01S00422.1hp     +++|**        CDS - CRACK DETAILED STATUS.
00513  M01S00423.1hp     +++|*
00514  M01S00424.1hp     +++|*         THIS ROUTINE DETERMINES WHAT ERROR CODE TO SET BY EXAMINING
00515  M01S00425.1hp     +++|*         DETAILED STATUS.  IT WILL ALSO ATTEMPT TO RECOVER BY ISSUING
00516  M01S00426.1hp     +++|*         A *CONTINUE* FUNCTION IF GENERAL STATUS INDICATES THE ERROR
00517  M01S00427.1hp     +++|*         IS RECOVERABLE BY THE CONTROLLER.
00518  M01S00428.1hp     +++|*
00519  M01S00429.1hp     +++|*         ENTRY  (EC) = ERROR CODE.
00520  M01S00430.1hp     +++|*                (GS) = GENERAL STATUS.
00521  M01S00431.1hp     +++|*                (RW) = READ/WRITE FLAG.
00522  M01S00432.1hp     +++|*                (T7) = SECTOR COUNT.
00523  M01S00433.1hp     +++|*
00524  M01S00434.1hp     +++|*         EXIT   (A) .EQ. 0 IF ERROR WAS RECOVERED BY CONTROLLER.
00525  M01S00435.1hp     +++|*                    .LT. 0 IF A FUNCTION TIMEOUT, CHANNEL PARITY
00526  M01S00436.1hp     +++|*                           ERROR, OR DATA TRANSFER ERROR OCCURRED
00527  M01S00437.1hp     +++|*                           WHILE TRYING TO OBTAIN STATUS.
00528  M01S00438.1hp     +++|*                    .GT. 0 OTHERWISE.
00529  M01S00439.1hp     +++|*                (EC) = ERROR CODE.
00530  M01S00440.1hp     +++|*
00531  M01S00441.1hp     +++|*         USES   CB, EC, PB, RS.
00532  M01S00442.1hp     +++|*
00533  M01S00443.1hp     +++|*         CALLS  GDS, GGS, PCH.
00534  M01S00444.1hp     +++|
00535  M01S00445.1hp     +++|
00536  M01S00446.1hp     +++| CDS      SUBR               ENTRY/EXIT
00537  M01S00447.1hp     +++| CDS1     RJM    GDS         GET DETAILED STATUS
00538  M01S00448.1hp     +++|          MJN    CDSX        IF ERROR
Line S00449 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2509
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00449.ns2509  ---|          LDM    DST+21
Line S00450 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2509
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00450.ns2509  ---|          LPN    20
Line S00451 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2509
Seq #  *Modification Id* Act 
----------------------------+
00541  M02S00451.ns2509  ---|          NJN    CDS2        IF INVALID STATUS
00542  M01S00452.1hp     +++|          LDD    GS
00543  M01S00453.1hp     +++|          SHN    21-13
Line S00454 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2509
Seq #  *Modification Id* Act 
----------------------------+
00544  M02S00454.ns2509  ---| CDS2     PJP    CDS6        IF NOT ABNORMAL TERMINATION
00545  M01S00001.ns2509  +++|          PJP    CDS6        IF NOT ABNORMAL TERMINATION
00546  M01S00455.1hp     +++|          SHN    13-10
00547  M01S00456.1hp     +++|          PJN    CDS3        IF ERROR NOT RECOVERABLE BY CONTROLLER
00548  M01S00457.1hp     +++|
00549  M01S00458.1hp     +++|*         ATTEMPT CONTROLLER RECOVERY.
00550  M01S00459.1hp     +++|
00551  M01S00460.1hp     +++|          LDK    FCCO        ISSUE *CONTINUE* FUNCTION
00552  M01S00461.1hp     +++|          RJM    PCH
00553  M01S00462.1hp     +++|          MJN    CDSX        IF TIMEOUT/DATA TRANSFER ERROR
00554  M01S00463.1hp     +++|          RJM    GGS         GET GENERAL STATUS
00555  M01S00464.1hp     +++|          MJN    CDSX        IF STATUS NOT OBTAINED
00556  M01S00465.1hp     +++|          NJN    CDS1        IF NOT YET RECOVERED
00557  M01S00466.1hp     +++|          LCN    1           INDICATE CONTROLLER RECOVERY
00558  M01S00467.1hp     +++|          STD    RS
00559  M01S00468.1hp     +++|          LDN    0
00560  M01S00469.1hp     +++|          UJN    CDSX        RETURN
00561  M01S00470.1hp     +++|
00562  M01S00471.1hp     +++|*         CHECK FOR *NOT READY* CONDITION.
00563  M01S00472.1hp     +++|
00564  M01S00473.1hp     +++| CDS3     SHN    10-4
00565  M01S00474.1hp     +++|          PJN    CDS4        IF NOT *NOT READY*
00566  M01S00475.1hp     +++|          LDM    DST+7
00567  M01S00476.1hp     +++|          LPN    1
00568  M01S00477.1hp     +++|          NJN    CDS4        IF NOT *NOT READY*
00569  M01S00478.1hp     +++|          LDM    DST+10
00570  M01S00479.1hp     +++|          SHN    0-7
00571  M01S00480.1hp     +++|          LPN    1
00572  M01S00481.1hp     +++|          ZJP    CDS8        IF DRIVE *NOT READY*
00573  M01S00482.1hp     +++|
00574  M01S00483.1hp     +++|*         DURING SPINUP, THE STATUS OF THE DRIVE CHANGES SO AS TO
00575  M01S00484.1hp     +++|*         APPEAR NOT TO BE A *NOT READY* CONDITION.  TO AVOID
00576  M01S00485.1hp     +++|*         MISHANDLING THIS SITUATION THE ERROR PROCESSOR CHECKS FOR
00577  M01S00486.1hp     +++|*         PRIOR DETECTION OF *NOT READY* AND ASSUMES NO CHANGE IN
00578  M01S00487.1hp     +++|*         THE SITUATION UNTIL GENERAL STATUS BECOMES ZERO.
00579  M01S00488.1hp     +++|
00580  M01S00489.1hp     +++| CDS4     LDD    EC
00581  M01S00490.1hp     +++|          LMK    NRDE
00582  M01S00491.1hp     +++|          ZJP    CDS8        IF *NOT READY* ALREADY DETECTED
00583  M01S00492.1hp     +++|
00584  M01S00493.1hp     +++|*         CHECK FOR *BUFFER TO DISK* ERROR.
00585  M01S00494.1hp     +++|
00586  M01S00495.1hp     +++|          LDD    RW
00587  M01S00496.1hp     +++|          ZJN    CDS5        IF READ OPERATION
00588  M01S00497.1hp     +++|          LDM    DST+14
00589  M01S00498.1hp     +++|          SHN    21-13
00590  M01S00499.1hp     +++|          PJN    CDS5        IF NOT ERROR ON PREVIOUS SECTOR
00591  M01S00500.1hp     +++|          LDD    T7
00592  M01S00501.1hp     +++|          LMK    PPSLB-1
00593  M01S00502.1hp     +++|          NJN    CDS5        IF NOT AT BUFFER BOUNDARY
00594  M01S00503.1hp     +++|          LDD    PB          BACKUP TO PREVIOUS BUFFER
00595  M01S00504.1hp     +++|          STD    CB
00596  M01S00505.1hp     +++|          LDN    0
00597  M01S00506.1hp     +++|          STD    PB
00598  M01S00507.1hp     +++|          UJN    CDS6        SET ERROR CODE
00599  M01S00508.1hp     +++|
00600  M01S00509.1hp     +++|*         CHECK FOR MEDIA ERROR.
00601  M01S00510.1hp     +++|
00602  M01S00511.1hp     +++| CDS5     LDM    DST+17
00603  M01S00512.1hp     +++|          LPN    40
00604  M01S00513.1hp     +++|          NJN    CDS6        IF PROCESSOR INSTRUCTION TIMEOUT
00605  M01S00514.1hp     +++|          LDM    DST
00606  M01S00515.1hp     +++|          LPN    17
00607  M01S00516.1hp     +++|          LMN    10
00608  M01S00517.1hp     +++|          ZJN    CDS7        IF MEDIA ERROR
00609  M01S00518.1hp     +++|          LDM    DST+1
00610  M01S00519.1hp     +++|          SHN    21-13
00611  M01S00520.1hp     +++|          MJN    CDS7        IF MEDIA ERROR
00612  M01S00521.1hp     +++|          SHN    13-11
00613  M01S00522.1hp     +++|          MJN    CDS7        IF MEDIA ERROR
00614  M01S00523.1hp     +++|          LDM    DST+20
00615  M01S00524.1hp     +++|          SHN    21-10
00616  M01S00525.1hp     +++|          MJN    CDS7        IF MEDIA ERROR
00617  M01S00526.1hp     +++|          LDM    DST+17
00618  M01S00527.1hp     +++|          SHN    21-6
00619  M01S00528.1hp     +++|          MJN    CDS9        IF CHANNEL PARITY ERROR ON OUTPUT
00620  M01S00529.1hp     +++| CDS6     LDN    DSTE
00621  M01S00530.1hp     +++|          UJN    CDS10       SET ERROR CODE
00622  M01S00531.1hp     +++|
00623  M01S00532.1hp     +++| CDS7     LDK    PARE&NRDE
00624  M01S00533.1hp     +++| CDS8     LMK    NRDE
00625  M01S00534.1hp     +++|          UJN    CDS10       SET ERROR CODE
00626  M01S00535.1hp     +++|
00627  M01S00536.1hp     +++| CDS9     LDN    CHPE        SET ERROR CODE
00628  M01S00537.1hp     +++| CDS10    STD    EC
00629  M01S00538.1hp     +++|          LJM    CDSX        RETURN
Line S00539 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00539.ns2769  ---| CMD      SPACE  4,10
Line S00540 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00540.ns2769  ---|**        CMD - CALL *1MD*.
Line S00541 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00541.ns2769  ---|*
Line S00542 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00542.ns2769  ---|*         ENTRY  (CN - CN+4) = *EMB* HEADER WORD.
Line S00543 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00543.ns2769  ---|*
Line S00544 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00544.ns2769  ---|*         EXIT   (A) .EQ. 0 IF UNABLE TO CALL *1MD*.
Line S00545 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00545.ns2769  ---|*                    .NE. 0 IF *1MD* HAS BEEN CALLED.
Line S00546 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00546.ns2769  ---|*                *1MD* CALLED FLAG IS SET IN CELL *SR+4* IF *1MD* WAS
Line S00547 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00547.ns2769  ---|*                CALLED.
Line S00548 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00548.ns2769  ---|*
Line S00549 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00640  M02S00549.ns2769  ---|*         USES   SR+4, S2, CM - CM+4.
Line S00550 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00641  M02S00550.ns2769  ---|*
Line S00551 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00642  M02S00551.ns2769  ---|*         CALLS  1MD.
Line S00552 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00643  M02S00552.ns2769  ---|*
Line S00553 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00644  M02S00553.ns2769  ---|*         MACROS DELAY, EXECUTE, MONITOR.
Line S00554 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00645  M02S00554.ns2769  ---|
Line S00555 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00646  M02S00555.ns2769  ---|
Line S00556 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00556.ns2769  ---| CMD2     LDN    2           SET *1MD* CALLED FLAG
Line S00557 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00648  M02S00557.ns2769  ---|          RAD    SR+4
Line S00558 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00649  M02S00558.ns2769  ---|
Line S00559 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00650  M02S00559.ns2769  ---| CMD      SUBR               ENTRY/EXIT
Line S00560 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00651  M02S00560.ns2769  ---|          LDD    SR+4
Line S00561 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00652  M02S00561.ns2769  ---|          LPN    2
Line S00562 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00653  M02S00562.ns2769  ---|          NJN    CMDX        IF *1MD* ALREADY CALLED
Line S00563 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00654  M02S00563.ns2769  ---|          STD    S2          CLEAR *RPPM* RETRY COUNT
Line S00564 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00655  M02S00564.ns2769  ---|          LDD    MA
Line S00565 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00656  M02S00565.ns2769  ---|          CWM    CMDA,ON
Line S00566 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00657  M02S00566.ns2769  ---| CMD1     LDK    ZERL
Line S00567 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00658  M02S00567.ns2769  ---|          CRD    CM
Line S00568 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00568.ns2769  ---|          EXECUTE  1MD,=
Line S00569 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00660  M02S00569.ns2769  ---|          MONITOR  RPPM
Line S00570 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00661  M02S00570.ns2769  ---|          LDD    CM+1
Line S00571 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00662  M02S00571.ns2769  ---|          NJN    CMD2        IF PP ASSIGNED
Line S00572 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00663  M02S00572.ns2769  ---|          AOD    S2          INCREMENT *RPPM* RETRY COUNT
Line S00573 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00664  M02S00573.ns2769  ---|          LMN    MFRL
Line S00574 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00665  M02S00574.ns2769  ---|          ZJN    CMDX        IF RETRY LIMIT
Line S00575 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00575.ns2769  ---|          DELAY  10D*8D      DELAY FOR 10 MILLISECONDS
Line S00576 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00667  M02S00576.ns2769  ---|          UJN    CMD1        RETRY *RPPM*
Line S00577 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00577.ns2769  ---|
Line S00578 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00578.ns2769  ---| CMDA     VFD    18/3L1MD,42/1
00670  M01S00579.1hp     +++| CRL      SPACE  4,10
00671  M01S00580.1hp     +++|**        CRL - CHECK FOR ERROR RETRY LIMIT REACHED.
00672  M01S00581.1hp     +++|*
00673  M01S00582.1hp     +++|*         ENTRY  (EC) = ERROR CODE.
00674  M01S00583.1hp     +++|*                (ER) = *RECOVERY IN PROGRESS* FLAG.
00675  M01S00584.1hp     +++|*                (RC) = RETRY COUNT.
00676  M01S00078.ns2769  +++|*                (T5) = EST ORDINAL.
00677  M01S00585.1hp     +++|*
00678  M01S00586.1hp     +++|*         EXIT   (A) .GE. 0 IF RETRY LIMIT REACHED.
00679  M01S00587.1hp     +++|*                    .LT. 0 IF NOT AT RETRY LIMIT.
Line S00001 Modification History
M01 (Added by) ns2732a
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00680  M02S00001.ns2732b ---|*                (RC) INCREMENTED IF NOT AT LIMIT.
00681  M01S00001.ns2732b +++|*                (RC) INCREMENTED.
00682  M01S00079.ns2769  +++|*                MESSAGE ISSUED TO *MS2W* OF SYSTEM CONTROL POINT FOR
00683  M01S00080.ns2769  +++|*                B-DISPLAY PRESENTATION IF HALF WAY TO RETRY LIMIT.
00684  M01S00002.ns2732a +++|*
00685  M01S00003.ns2732a +++|*         USES   RC.
Line S00588 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00686  M02S00588.ns2732  ---|*                (RC) = (RC) + 1.
Line S00589 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00687  M02S00589.ns2732  ---|*
Line S00590 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00590.ns2732  ---|*         USES   RC.
00689  M01S00591.1hp     +++|
00690  M01S00592.1hp     +++|
00691  M01S00593.1hp     +++| CRL      SUBR               ENTRY/EXIT
00692  M01S00594.1hp     +++|          LDD    ER
00693  M01S00595.1hp     +++|          LMC    SHNI+1
00694  M01S00596.1hp     +++|          STM    CRLA
Line S00597 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00597.ns2732  ---|          AOD    RC          INCREMENT RETRY COUNT
Line S00001 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00001.ns2732b ---|          LDD    RC          RETRY COUNT
00697  M01S00002.ns2732b +++|          AOD    RC          INCREMENT RETRY COUNT
00698  M01S00081.ns2769  +++|          LDM    TREC,EC
00699  M01S00082.ns2769  +++|          SHN    -1
00700  M01S00083.ns2769  +++|          SBD    RC
00701  M01S00084.ns2769  +++|          PJN    CRL1        IF TOO EARLY TO NOTIFY OPERATOR
00702  M01S00085.ns2769  +++|          LDD    T5          STORE EST ORDINAL IN MESSAGE
00703  M01S00086.ns2769  +++|          SHN    -3
00704  M01S00087.ns2769  +++|          RJM    C2D
00705  M01S00088.ns2769  +++|          STM    CRLB+1
00706  M01S00089.ns2769  +++|          LDD    T5
00707  M01S00090.ns2769  +++|          LPN    7
00708  M01S00091.ns2769  +++|          SHN    6
00709  M01S00092.ns2769  +++|          ADC    2R0
00710  M01S00093.ns2769  +++|          STM    CRLB+2
00711  M01S00094.ns2769  +++|          LDM    TMNE,EC     STORE ERROR MNEMONIC IN MESSAGE
00712  M01S00095.ns2769  +++|          STM    CRLB+3
00713  M01S00096.ns2769  +++|          LDD    CP
00714  M01S00097.ns2769  +++|          ADK    MS2W
00715  M01S00098.ns2769  +++|          CWM    CRLB,TR
00716  M01S00099.ns2769  +++| CRL1     LDD    RC
00717  M01S00598.1hp     +++|
00718  M01S00599.1hp     +++|*         IF *RECOVERY IN PROGRESS* IS NOT SET, THE RETRY COUNT IS
00719  M01S00600.1hp     +++|*         SHIFTED SO THAT THE LIMIT CHECK IS MADE AGAINST N/2 (WHERE N
00720  M01S00601.1hp     +++|*         IS THE RETRY LIMIT FOR THE ERROR TYPE IN CELL *EC*).  THIS
00721  M01S00602.1hp     +++|*         CAUSES HALF OF THE RETRY ATTEMPTS TO BE PERFORMED ON EACH
00722  M01S00603.1hp     +++|*         CHANNEL, IF AN ALTERNATE ACCESS IS AVAILABLE.  IF NO
00723  M01S00604.1hp     +++|*         ALTERNATE ACCESS IS AVAILABLE, ALL RETRIES WILL BE PERFORMED
00724  M01S00605.1hp     +++|*         ON THIS CHANNEL.
00725  M01S00606.1hp     +++|
00726  M01S00607.1hp     +++|          SHN    0
00727  M01S00608.1hp     +++|*         SHN    1           (RECOVERY NOT IN PROGRESS)
00728  M01S00609.1hp     +++| CRLA     EQU    *-1
00729  M01S00610.1hp     +++|          SBM    TREC,EC
Line S00004 Modification History
M01 (Added by) ns2732a
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00730  M02S00004.ns2732b ---|          PJN    CRLX        IF RETRY LIMIT REACHED
Line S00005 Modification History
M01 (Added by) ns2732a
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00731  M02S00005.ns2732b ---|          AOD    RC          INCREMENT RETRY COUNT
00732  M01S00003.ns2732b +++|          SBN    1
Line S00611 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00733  M02S00611.ns2769  ---|          UJN    CRLX        RETURN
00734  M01S00100.ns2769  +++|          UJP    CRLX        RETURN
00735  M01S00101.ns2769  +++|
00736  M01S00102.ns2769  +++|
00737  M01S00103.ns2769  +++| CRLB     DATA   C*EQ000 XX ERROR RETRY UNDERWAY.*
00738  M01S00612.1hp     +++| CRQ      SPACE  4,20
00739  M01S00613.1hp     +++|**        CRQ - CHECK REQUEST QUEUE.
00740  M01S00614.1hp     +++|*
00741  M01S00615.1hp     +++|*         THIS ROUTINE ATTEMPTS TO CALL *CPUMTR* TO COMPLETE REQUESTS
00742  M01S00616.1hp     +++|*         IN THE UNIT QUEUE THAT HAVE ALREADY BEEN PROCESSED.
00743  M01S00617.1hp     +++|*
00744  M01S00618.1hp     +++|*         ENTRY  (CC) = COMPLETION REQUEST COUNT.
00745  M01S00619.1hp     +++|*                (PO) = *PUT* ORDINAL.
00746  M01S00620.1hp     +++|*
00747  M01S00621.1hp     +++|*         EXIT   (A) .EQ. 0 IF NO REQUESTS PRESENT.
00748  M01S00622.1hp     +++|*                    .NE. 0 IF *CPUMTR* IS STILL BUSY WITH PREVIOUS
00749  M01S00623.1hp     +++|*                           FUNCTION OR AN EXCHANGE WAS JUST ISSUED
00750  M01S00624.1hp     +++|*                           FOR THE CURRENT FUNCTION.
00751  M01S00625.1hp     +++|*
00752  M01S00626.1hp     +++|*         USES   CC, CN - CN+4, T0 - T4.
00753  M01S00627.1hp     +++|
00754  M01S00628.1hp     +++|
00755  M01S00629.1hp     +++| CRQ      SUBR               ENTRY/EXIT
00756  M01S00630.1hp     +++|          LDC    **          READ XP
00757  M01S00631.1hp     +++| CRQA     EQU    *-1         FWA OF XP
00758  M01S00632.1hp     +++|          CRD    T0
00759  M01S00633.1hp     +++|          LDD    OA          READ OUTPUT REGISTER
00760  M01S00634.1hp     +++|          CRD    CN
00761  M01S00635.1hp     +++|          LDD    T0+4        (B0)
00762  M01S00636.1hp     +++|          NJN    CRQ1        IF MISSED EXCHANGE
00763  M01S00637.1hp     +++|          STD    CN+3
00764  M01S00638.1hp     +++|          LDD    CN
00765  M01S00001.ns2454  +++|          SHN    21-13
00766  M01S00002.ns2454  +++|          MJN    CRQ1        IF REISSUE REQUIRED
00767  M01S00639.1hp     +++|          NJN    CRQX        IF FUNCTION NOW BEING PROCESSED
00768  M01S00640.1hp     +++|          LDD    CC
00769  M01S00641.1hp     +++|          ZJN    CRQX        IF NO PENDING COMPLETION REQUESTS
00770  M01S00642.1hp     +++|          LDC    **
00771  M01S00643.1hp     +++| CRQE     EQU    *-1
00772  M01S00644.1hp     +++|          CRD    T0
00773  M01S00645.1hp     +++|          LDD    T0
00774  M01S00646.1hp     +++|          ADD    T0+1
00775  M01S00647.1hp     +++|          NJN    CRQX        IF FUNCTION IN PROGRESS
00776  M01S00648.1hp     +++|          LDN    DCBS        SET *BIOM* SUBFUNCTION
00777  M01S00649.1hp     +++|          STD    CN+1
00778  M01S00650.1hp     +++|          LDD    PO
00779  M01S00651.1hp     +++|          STD    CN+2
00780  M01S00652.1hp     +++| CRQ1     LDD    CC
00781  M01S00653.1hp     +++|          RAD    CN+3
00782  M01S00654.1hp     +++|          LDN    0
00783  M01S00655.1hp     +++|          STD    CC
00784  M01S00656.1hp     +++|          LDK    BIOM
00785  M01S00657.1hp     +++|          STD    CN
00786  M01S00658.1hp     +++|          LDD    OA
00787  M01S00659.1hp     +++|          CWD    CN
00788  M01S00660.1hp     +++|          LDC    **
00789  M01S00661.1hp     +++| CRQB     EQU    *-1         ADDRESS OF EXCHANGE PACKAGE
00790  M01S00662.1hp     +++|          CWM    CRQD,ON     WRITE FIRST WORD
00791  M01S00663.1hp     +++|          SBN    1           SET EXCHANGE ADDRESS
00792  M01S00664.1hp     +++|          MXN    0           EXCHANGE CPU
00793  M01S00665.1hp     +++| CRQC     EQU    *-1         CPU NUMBER
00794  M01S00666.1hp     +++|          UJP    CRQX        RETURN
00795  M01S00667.1hp     +++|
00796  M01S00668.1hp     +++| CRQD     VFD    24/0        (P)
00797  M01S00669.1hp     +++|          VFD    18/0        (A0)
00798  M01S00670.1hp     +++|          VFD    18/0        (B0)
Line S00671 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00671.ns2769  ---| C4D      SPACE  4,15
Line S00672 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00672.ns2769  ---|**        C4D - CONVERT ONE PP WORD TO FOUR DISPLAY CODE CHARACTERS.
Line S00673 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00673.ns2769  ---|*
Line S00674 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00674.ns2769  ---|*         ENTRY  (A) = PP WORD TO CONVERT.
Line S00675 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00675.ns2769  ---|*                (T1) = ADDRESS OF FIRST OF TWO CONSECUTIVE PP WORDS IN
Line S00676 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00676.ns2769  ---|*                       WHICH TO STORE THE DISPLAY CODE CHARACTERS.
Line S00677 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00677.ns2769  ---|*
Line S00678 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00678.ns2769  ---|*         EXIT   (A) = ADDRESS OF NEXT DISPLAY BUFFER WORD.
Line S00679 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00807  M02S00679.ns2769  ---|*                (T1) = (T1) + 2.
Line S00680 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00680.ns2769  ---|*
Line S00681 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00681.ns2769  ---|*         USES   CM, T1.
Line S00682 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00682.ns2769  ---|*
Line S00683 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00683.ns2769  ---|*         CALLS  C2D.
Line S00684 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00684.ns2769  ---|
Line S00685 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00685.ns2769  ---|
Line S00686 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00686.ns2769  ---| C4D      SUBR               ENTRY/EXIT
Line S00687 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00687.ns2769  ---|          STD    CM          SAVE BINARY WORD
Line S00688 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00688.ns2769  ---|          SHN    -6          CONVERT UPPER 6 BITS
Line S00689 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00689.ns2769  ---|          RJM    C2D
Line S00690 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00690.ns2769  ---|          STI    T1          STORE RESULT IN DISPLAY BUFFER
Line S00691 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00691.ns2769  ---|          AOD    T1          ADVANCE TO NEXT DISPLAY BUFFER WORD
Line S00692 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00692.ns2769  ---|          LDD    CM          CONVERT LOWER 6 BITS
Line S00693 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00693.ns2769  ---|          LPN    77
Line S00694 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00694.ns2769  ---|          RJM    C2D
Line S00695 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00695.ns2769  ---|          STI    T1          STORE RESULT IN DISPLAY BUFFER
Line S00696 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00696.ns2769  ---|          AOD    T1          ADVANCE TO NEXT DISPLAY BUFFER WORD
Line S00697 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00697.ns2769  ---|          UJN    C4DX        RETURN
00826  M01S00698.1hp     +++| DCH      SPACE  4,15
00827  M01S00699.1hp     +++|**        DCH - RELEASE CHANNEL.
00828  M01S00700.1hp     +++|*
00829  M01S00701.1hp     +++|*         THIS ROUTINE RELEASES THE CHANNEL IF IT IS CURRENTLY
00830  M01S00702.1hp     +++|*         RESERVED.
00831  M01S00703.1hp     +++|*
00832  M01S00704.1hp     +++|*         ENTRY  (IR+4) = CHANNEL NUMBER.
00833  M01S00705.1hp     +++|*                (CS) = CHANNEL RESERVATION STATUS.
00834  M01S00706.1hp     +++|*
00835  M01S00707.1hp     +++|*         EXIT   (A) = (CS) = 0.
00836  M01S00708.1hp     +++|*
00837  M01S00709.1hp     +++|*         USES   CM+1, CS.
00838  M01S00710.1hp     +++|*
00839  M01S00711.1hp     +++|*         MACROS MONITOR.
00840  M01S00712.1hp     +++|
00841  M01S00713.1hp     +++|
00842  M01S00714.1hp     +++| DCH      SUBR               ENTRY/EXIT
00843  M01S00715.1hp     +++|          LDD    CS
00844  M01S00716.1hp     +++|          LPN    1
00845  M01S00717.1hp     +++|          ZJN    DCHX        IF CHANNEL NOT RESERVED
00846  M01S00718.1hp     +++|          LDD    IR+4        RELEASE CHANNEL
00847  M01S00719.1hp     +++|          STD    CM+1
00848  M01S00720.1hp     +++|          MONITOR  DCHM
00849  M01S00721.1hp     +++|          SOD    CS
00850  M01S00722.1hp     +++|          UJN    DCHX        RETURN
00851  M01S00723.1hp     +++| ERR      SPACE  4,30
00852  M01S00724.1hp     +++|**        ERR - PROCESS ERROR.
00853  M01S00725.1hp     +++|*
00854  M01S00726.1hp     +++|*         THIS ROUTINE IS CALLED TO PERFORM ERROR PROCESSING.
00855  M01S00727.1hp     +++|*
00856  M01S00728.1hp     +++|*         ENTRY  (EC) = 0 IF THIS IS THE FIRST RETRY OF A RECOVERY
00857  M01S00729.1hp     +++|*                       SEQUENCE AND THE CALLER DID NOT SET THE ERROR
00858  M01S00730.1hp     +++|*                       CODE.
00859  M01S00731.1hp     +++|*                     = ERROR CODE IF NOT THE FIRST RETRY OF A RECOVERY
00860  M01S00732.1hp     +++|*                       SEQUENCE AND NOT A CALLER SPECIFIED ERROR CODE.
00861  M01S00733.1hp     +++|*                     = COMPLEMENT OF ERROR CODE IF SPECIFIED BY THE
00862  M01S00734.1hp     +++|*                       CALLER.
00863  M01S00735.1hp     +++|*                (RC) = RETRY COUNT.
00864  M01S00736.1hp     +++|*
00865  M01S00737.1hp     +++|*         EXIT   (EC) = 0.
00866  M01S00738.1hp     +++|*                (RC) = 0.
00867  M01S00739.1hp     +++|*                TO THE POINT OF CALL IF THE ERROR WAS RECOVERED BY THE
00868  M01S00740.1hp     +++|*                CONTROLLER.
00869  M01S00741.1hp     +++|*                TO *MST* IN ALL OTHER CASES.
00870  M01S00742.1hp     +++|*
00871  M01S00743.1hp     +++|*         USES   EC, RC, RS, T1.
00872  M01S00744.1hp     +++|*
Line S00745 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00745.ns2769  ---|*         CALLS  CDS, CRL, CRQ, GGS, IBM, IBD, ISF, PDT, PFR, PRE,
00874  M01S00104.ns2769  +++|*         CALLS  CDS, CRL, CRQ, GGS, IBM, ISF, PDT, PFR, PRE,
Line S00746 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00746.ns2507  ---|*                RCS, RLC, SSF, TEP.
00876  M01S00001.ns2507  +++|*                RLC, SSF, TEP.
00877  M01S00747.1hp     +++|
00878  M01S00748.1hp     +++|
00879  M01S00749.1hp     +++| ERR      SUBR               ENTRY/EXIT
00880  M01S00750.1hp     +++|          RJM    PRE         PRESET ERROR PROCESSOR
00881  M01S00751.1hp     +++|          NJP    ERR11       IF INTERLOCK/VERIFICATION FAILURE
00882  M01S00752.1hp     +++|          LDD    EC
00883  M01S00753.1hp     +++|          SHN    21-13
00884  M01S00754.1hp     +++|          PJN    ERR3        IF ERROR CODE NOT SET BY CALLER
00885  M01S00755.1hp     +++| ERR2     LCN    0           STORE ERROR CODE
00886  M01S00756.1hp     +++|          LMD    EC
00887  M01S00757.1hp     +++|          STD    EC
Line S00758 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp13
Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00758.1hp13   ---|          UJN    ERR4        CHECK FOR RETRY LIMIT
00889  M01S00001.1hp13   +++|          UJN    ERR3.1      CHECK FOR RETRY LIMIT
00890  M01S00759.1hp     +++|
00891  M01S00760.1hp     +++| ERR3     RJM    GGS         GET GENERAL STATUS
00892  M01S00761.1hp     +++|          MJN    ERR2        IF STATUS NOT OBTAINED
Line S00762 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp13
Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00762.1hp13   ---|          LDD    RC
Line S00763 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp13
Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00763.1hp13   ---|          NJN    ERR3.1      IF NOT FIRST RETRY
Line S00764 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp13
Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00764.1hp13   ---|          LDD    GS          SAVE INITIAL GENERAL STATUS
Line S00765 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp13
Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00765.1hp13   ---|          STM    BMLGS
Line S00766 Modification History
M01 (Added by) 1hp
M02 (Updated by) 1hp13
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00766.1hp13   ---| ERR3.1   RJM    CDS         CRACK DETAILED STATUS
00898  M01S00002.1hp13   +++|          RJM    CDS         CRACK DETAILED STATUS
00899  M01S00767.1hp     +++|          MJN    ERR2        IF STATUS NOT OBTAINED
00900  M01S00003.1hp13   +++| ERR3.1   LDD    RC
00901  M01S00004.1hp13   +++|          NJN    ERR4        IF NOT FIRST RETRY
00902  M01S00005.1hp13   +++|          LDD    GS          SAVE INITIAL GENERAL STATUS
00903  M01S00006.1hp13   +++|          STM    BMLGS
00904  M01S00768.1hp     +++| ERR4     LDD    TH          FORCE IMMEDIATE COMPLETION
00905  M01S00769.1hp     +++|          ERRNZ  SHNI-1000   CODE DEPENDS ON VALUE
00906  M01S00770.1hp     +++|          STM    IICA
00907  M01S00771.1hp     +++|          RJM    IIC         ISSUE I/O COMPLETION REQUEST
00908  M01S00772.1hp     +++| ERR4.1   RJM    CRQ         ENSURE NO PENDING MONITOR FUNCTION
00909  M01S00773.1hp     +++|          NJN    ERR4.1      IF FUNCTION STILL PENDING
00910  M01S00774.1hp     +++|          RJM    IBM         ISSUE BML MESSAGE IF FIRST RETRY
00911  M01S00775.1hp     +++|          AOD    RS
00912  M01S00776.1hp     +++|          SHN    21-13
00913  M01S00777.1hp     +++|          MJN    ERR6.1      IF ERROR RECOVERED BY CONTROLLER
00914  M01S00778.1hp     +++|          RJM    CRL         CHECK FOR RETRY LIMIT REACHED
00915  M01S00779.1hp     +++|          MJN    ERR7        IF RETRY LIMIT NOT REACHED
Line S00780 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00780.ns2769  ---|          RJM    IBD         ISSUE B-DISPLAY MESSAGE
00917  M01S00781.1hp     +++|
00918  M01S00782.1hp     +++|*         ATTEMPT TO RELOAD THE CONTROLLER IF THE ERROR TYPE IS
00919  M01S00783.1hp     +++|*         APPROPRIATE FOR SUCH AN ACTION.
00920  M01S00784.1hp     +++|
00921  M01S00785.1hp     +++|          LDM    TEPF,EC
00922  M01S00786.1hp     +++|          SHN    21-5
00923  M01S00787.1hp     +++|          PJN    ERR5        IF RELOAD INAPPROPRIATE FOR ERROR TYPE
00924  M01S00788.1hp     +++|          RJM    RLC         RELOAD CONTROLLER
Line S00789 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00789.ns2507  ---|          NJN    ERR5        IF RELOAD ATTEMPT FAILED
Line S00790 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00926  M02S00790.ns2507  ---|          STD    RC          CLEAR RETRY COUNT
Line S00791 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00927  M02S00791.ns2507  ---|          UJN    ERR9        RETRY WITH RELOADED CONTROLWARE
Line S00792 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00792.ns2507  ---|
Line S00793 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00929  M02S00793.ns2507  ---|*         DOWN THE CHANNEL IF APPROPRIATE FOR THIS ERROR TYPE.
Line S00794 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
00930  M02S00794.ns2507  ---|
Line S00795 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2497
Seq #  *Modification Id* Act 
----------------------------+
00931  M02S00795.ns2497  ---| ERR5     LDM    TEPF,EC
Line S00001 Modification History
M01 (Added by) ns2497
M02 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
00932  M02S00001.ns2732a ---| ERR5     SOD    RC          ALIGN RETRY COUNT FOR FINAL MESSAGE
Line S00002 Modification History
M01 (Added by) ns2497
M02 (Updated by) ns2507
M03 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
00933  M03S00002.ns2732a ---|          LDM    TEPF,EC
Line S00796 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
M03 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
00934  M03S00796.ns2732a ---|          SHN    21-6
Line S00797 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
M03 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
00935  M03S00797.ns2732a ---|          PJN    ERR6        IF DOWNING CHANNEL INAPPROPRIATE
Line S00798 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
M03 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
00936  M03S00798.ns2732a ---|          RJM    RCS         REMOVE CHANNEL FROM SYSTEM USE
Line S00799 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2507
M03 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
00937  M03S00799.ns2732a ---| ERR6     AOD    RS          SET RECOVERY STATUS
Line S00002 Modification History
M01 (Added by) ns2507
M02 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
00938  M02S00002.ns2732a ---|          AOD    RS          SET RECOVERY STATUS
Line S00006 Modification History
M01 (Added by) ns2732a
M02 (Updated by) ns2732b
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00006.ns2732b ---| ERR5     AOD    RS          SET RECOVERY STATUS
00940  M01S00004.ns2732b +++| ERR5     SOD    RC          ADJUST FINAL RETRY COUNT
00941  M01S00005.ns2732b +++|          AOD    RS          SET RECOVERY STATUS
00942  M01S00800.1hp     +++| ERR6.1   UJN    ERR11       TERMINATE ERROR PROCESSING
00943  M01S00801.1hp     +++|
00944  M01S00802.1hp     +++|*         SET THE SUSPECT FLAG IF APPROPRIATE FOR THIS ERROR TYPE.
00945  M01S00803.1hp     +++|
00946  M01S00804.1hp     +++| ERR7     RJM    SSF         SET SUSPECT FLAG (IF APPROPRIATE)
Line S00805 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00805.ns2769  ---|          RJM    IBD         ISSUE B-DISPLAY MESSAGE
00948  M01S00806.1hp     +++|
00949  M01S00807.1hp     +++|*         RETRY I/O SEQUENCE.
00950  M01S00808.1hp     +++|
00951  M01S00809.1hp     +++| ERR9     RJM    ISF         ISSUE SEEK FUNCTION
00952  M01S00810.1hp     +++|          ZJN    ERR10       IF ON CYLINDER AND NO ERROR
00953  M01S00811.1hp     +++|          LDD    GS
00954  M01S00812.1hp     +++|          LMN    2
00955  M01S00813.1hp     +++|          ZJN    ERR9        IF POSITIONER BUSY
00956  M01S00814.1hp     +++|          LMN    10&2
Line S00815 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2446
Seq #  *Modification Id* Act 
----------------------------+
00957  M02S00815.ns2446  ---|          ZJN    ERR11       IF DRIVE RESERVED ON OTHER ACCESS
Line S00816 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2446
Seq #  *Modification Id* Act 
----------------------------+
00958  M02S00816.ns2446  ---|          LDD    CS
00959  M01S00002.ns2446  +++|          NJN    ERR9.1      IF DRIVE NOT RESERVED ON OTHER CHANNEL
00960  M01S00003.ns2446  +++|          LDC    4000        CAUSE PRIORITY OVERRIDE ON SEEK
00961  M01S00004.ns2446  +++|          RAM    ISFA
00962  M01S00005.ns2446  +++|          UJN    ERR9        REISSUE SEEK
00963  M01S00006.ns2446  +++|
00964  M01S00007.ns2446  +++| ERR9.1   LDD    CS
00965  M01S00817.1hp     +++|          LPN    10
00966  M01S00818.1hp     +++|          ZJN    ERR11       IF CONTROLLER WAS NOT CONNECTED
00967  M01S00819.1hp     +++|          LDK    DSTE        SET ERROR CODE FOR LOST CONTROLLER RESERVE
00968  M01S00820.1hp     +++|          STD    EC
00969  M01S00821.1hp     +++|          UJP    ERR4        RETRY OPERATION
00970  M01S00822.1hp     +++|
00971  M01S00823.1hp     +++| ERR10    RJM    PFR         PREPARE FOR RETRY ATTEMPT
00972  M01S00824.1hp     +++|          RJM    PDT         PERFORM READ/WRITE OPERATION
00973  M01S00825.1hp     +++|
00974  M01S00826.1hp     +++|*         CONTROL RETURNS TO THIS POINT ONLY IF THE ERROR WAS
00975  M01S00827.1hp     +++|*         RECOVERED.
00976  M01S00828.1hp     +++|
00977  M01S00829.1hp     +++| ERR11    AOD    RS          SET RECOVERY STATUS
00978  M01S00007.ns2732a +++|          SHN    6
00979  M01S00008.ns2732a +++|          RAD    RC          ADJUST FOR CONTROLLER RECOVERY
00980  M01S00830.1hp     +++|
00981  M01S00831.1hp     +++|*         TERMINATE ERROR PROCESSING.  INSTRUCTIONS MODIFIED FOR ERROR
00982  M01S00832.1hp     +++|*         PROCESSING WILL BE RESTORED TO THEIR ORIGINAL VALUES, VARIOUS
00983  M01S00833.1hp     +++|*         DATA CELLS WILL BE RESTORED TO THEIR INITIAL STATES, ETC.
00984  M01S00834.1hp     +++|
00985  M01S00835.1hp     +++|          RJM    TEP         TERMINATE ERROR PROCESSING
00986  M01S00836.1hp     +++|          LDM    ERRA,RS
00987  M01S00837.1hp     +++|          STD    T1
00988  M01S00838.1hp     +++|          LJM    0,T1        EXIT ERROR PROCESSOR
00989  M01S00839.1hp     +++|
00990  M01S00840.1hp     +++| ERRA     INDEX              TABLE OF EXIT ADDRESSES
00991  M01S00841.1hp     +++|          INDEX  0,ERRX
00992  M01S00842.1hp     +++|          INDEX  1,MST
00993  M01S00843.1hp     +++|          INDEX  2,MST
00994  M01S00844.1hp     +++|          INDEX  3,MST
00995  M01S00845.1hp     +++|          INDEX  4
00996  M01S00846.1hp     +++| TEPF     SPACE  4,25
00997  M01S00847.1hp     +++|**        TEPF - TABLE OF ERROR PROCESSING FLAGS.
00998  M01S00848.1hp     +++|*
00999  M01S00849.1hp     +++|*         THIS TABLE CONTAINS INFORMATION RELATED TO EACH ERROR TYPE.
01000  M01S00850.1hp     +++|*         EACH ENTRY HAS THE FOLLOWING FORMAT -
01001  M01S00851.1hp     +++|*                VFD    2/ERROR COUNT INCREMENT, BML MESSAGE INDICATOR
01002  M01S00852.1hp     +++|*                            0   DO NOT INCREMENT ERROR COUNTS AND DO
01003  M01S00853.1hp     +++|*                                NOT ISSUE BML MESSAGE.
01004  M01S00854.1hp     +++|*                            1   INCREMENT ERROR COUNTS AND ISSUE BML
01005  M01S00855.1hp     +++|*                                MESSAGE.
01006  M01S00856.1hp     +++|*                            2   INCREMENT ERROR COUNTS AND ISSUE BML
01007  M01S00857.1hp     +++|*                                MESSAGE IF UNRECOVERED ERROR.
01008  M01S00858.1hp     +++|*                VFD    2/ERROR LOG MESSAGE INDICATOR
01009  M01S00859.1hp     +++|*                            0   DO NOT ISSUE ERROR LOG MESSAGE.
01010  M01S00860.1hp     +++|*                            1   ISSUE ERROR LOG MESSAGE WITH DETAILED
01011  M01S00861.1hp     +++|*                                STATUS.
01012  M01S00862.1hp     +++|*                            2   ISSUE ERROR LOG MESSAGE WITHOUT
01013  M01S00863.1hp     +++|*                                DETAILED STATUS.
01014  M01S00864.1hp     +++|*                VFD    1/SUSPECT FLAG
01015  M01S00865.1hp     +++|*                            0   DO NOT SET SUSPECT FLAG.
01016  M01S00866.1hp     +++|*                            1   SET SUSPECT FLAG.
01017  M01S00867.1hp     +++|*                VFD    1/DOWN CHANNEL FLAG
01018  M01S00868.1hp     +++|*                            0   DO NOT DOWN CHANNEL.
01019  M01S00869.1hp     +++|*                            1   DOWN CHANNEL.
01020  M01S00870.1hp     +++|*                VFD    1/CONTROLLER RELOAD FLAG
01021  M01S00871.1hp     +++|*                            0   DO NOT RELOAD CONTROLLER.
01022  M01S00872.1hp     +++|*                            1   RELOAD CONTROLLER.
01023  M01S00873.1hp     +++|*                VFD    5/UNUSED (ZERO)
01024  M01S00874.1hp     +++|
01025  M01S00875.1hp     +++|          LIST   G
01026  M01S00876.1hp     +++| TEPF     EQU    *-1
01027  M01S00877.1hp     +++|          ECHO   1,EC=("DREC")
01028  M01S00878.1hp     +++|          VFD    2/IEC._EC,2/IEM._EC,1/SUS._EC,1/IDC._EC,1/CWR._EC,5/0
01029  M01S00879.1hp     +++|          LIST   *
01030  M01S00880.1hp     +++| TEPO     SPACE  4,10
01031  M01S00881.1hp     +++|**        TEPO - TABLE OF IMMEDIATE RETURN ERROR PROCESSING OPTIONS.
01032  M01S00882.1hp     +++|
01033  M01S00883.1hp     +++|          LIST   G
01034  M01S00884.1hp     +++| TEPO     EQU    *-1
01035  M01S00885.1hp     +++|          ECHO   1,ERRCODE=("DREC")
01036  M01S00886.1hp     +++|          CON    EPO._ERRCODE          "TXT._ERRCODE" ERROR
01037  M01S00887.1hp     +++|          LIST   *
01038  M01S00888.1hp     +++| TMNE     SPACE  4,10
01039  M01S00889.1hp     +++|**        TMNE - TABLE OF ERROR CODE MNEMONICS.
01040  M01S00890.1hp     +++|
01041  M01S00891.1hp     +++|          LIST   G
01042  M01S00892.1hp     +++| TMNE     EQU    *-1
01043  M01S00893.1hp     +++|          ECHO   1,ERRCODE=("DREC")
01044  M01S00894.1hp     +++|          CON    EMN._ERRCODE          "TXT._ERRCODE" ERROR
01045  M01S00895.1hp     +++|          LIST   *
01046  M01S00896.1hp     +++| TREC     SPACE  4,10
01047  M01S00897.1hp     +++|**        TREC - TABLE OF RETRY COUNTS.
01048  M01S00898.1hp     +++|
01049  M01S00899.1hp     +++|          LIST   G
01050  M01S00900.1hp     +++| TREC     EQU    *-1
01051  M01S00901.1hp     +++|          ECHO   1,ERRCODE=("DREC")
01052  M01S00902.1hp     +++|          CON    RTC._ERRCODE          "TXT._ERRCODE" ERROR
01053  M01S00903.1hp     +++|          LIST   *
01054  M01S00904.1hp     +++| TSYM     SPACE  4,10
01055  M01S00905.1hp     +++|**        TSYM - TABLE OF BML SYMPTOM CODES.
01056  M01S00906.1hp     +++|
01057  M01S00907.1hp     +++|          LIST   G
01058  M01S00908.1hp     +++| TSYM     EQU    *-1
01059  M01S00909.1hp     +++|          ECHO   1,ERRCODE=("DREC")
01060  M01S00910.1hp     +++|          CON    SYM._ERRCODE          "TXT._ERRCODE" ERROR
01061  M01S00911.1hp     +++|          LIST   *
01062  M01S00912.1hp     +++| FNC      SPACE  4,10
01063  M01S00913.1hp     +++|**        FNC - FUNCTION CHANNEL.
01064  M01S00914.1hp     +++|*
01065  M01S00915.1hp     +++|*         ENTRY  (A) = FUNCTION CODE.
01066  M01S00916.1hp     +++|*
01067  M01S00917.1hp     +++|*         EXIT   (A) .LT. 0 IF CHANNEL ACTIVE UPON ENTRY OR FUNCTION
01068  M01S00918.1hp     +++|*                           TIMEOUT.  (EC) = COMPLEMENT OF ERROR CODE.
01069  M01S00919.1hp     +++|*                    .GE. 0 IF NO ERROR.
01070  M01S00920.1hp     +++|*
01071  M01S00921.1hp     +++|*         USES   EC.
01072  M01S00922.1hp     +++|
01073  M01S00923.1hp     +++|
01074  M01S00924.1hp     +++| FNC6     ACN    CH          ACTIVATE CHANNEL
01075  M01S00925.1hp     +++|          LDN    0           SET REPLY STATUS
01076  M01S00926.1hp     +++|
01077  M01S00927.1hp     +++| FNC      SUBR               ENTRY/EXIT
01078  M01S00928.1hp     +++|          STM    FNCA        SAVE FUNCTION CODE
01079  M01S00929.1hp     +++|          AJM    FNC5,CH     IF CHANNEL IS STILL ACTIVE
01080  M01S00930.1hp     +++|          FAN    CH          FUNCTION CHANNEL
01081  M01S00931.1hp     +++|
01082  M01S00932.1hp     +++|*         THE DRIVER MUST WAIT AT LEAST 300 MS BEFORE TIMING OUT THE
01083  M01S00933.1hp     +++|*         FUNCTION.
01084  M01S00934.1hp     +++|
01085  M01S00935.1hp     +++| FNC1     ADD    ON
01086  M01S00936.1hp     +++|          IJM    FNC6,CH     IF FUNCTION ACCEPTED
01087  M01S00937.1hp     +++|          NJN    FNC1        IF NOT TIMEOUT YET
01088  M01S00938.1hp     +++| FNC2     LCN    FTOE        SET COMPLEMENT OF *FTOE* ERROR CODE
01089  M01S00939.1hp     +++| FNC3     STD    EC
01090  M01S00940.1hp     +++|          EJM    FNC4,CH     IF CHANNEL IS EMPTY
01091  M01S00941.1hp     +++|          LDN    1           SAVE LAST FUNCTION ISSUED
01092  M01S00942.1hp     +++|          IAM    FNCA,CH
01093  M01S00943.1hp     +++| FNC4     LCN    0           SET ERROR REPLY STATUS
01094  M01S00944.1hp     +++|          DCN    CH+40
01095  M01S00945.1hp     +++|          UJN    FNCX        RETURN
01096  M01S00946.1hp     +++|
01097  M01S00947.1hp     +++| FNC5     LCN    CHFE        SET *CHANNEL FAILURE* ERROR CODE
01098  M01S00948.1hp     +++|          UJN    FNC3        INPUT DATA/FUNCTION FROM CHANNEL
01099  M01S00949.1hp     +++|
01100  M01S00950.1hp     +++|
01101  M01S00951.1hp     +++| FNCA     CON    -0          CURRENT FUNCTION
01102  M01S00952.1hp     +++| GDS      SPACE  4,15
01103  M01S00953.1hp     +++|**        GDS - GET DETAILED STATUS.
01104  M01S00954.1hp     +++|*
01105  M01S00955.1hp     +++|*         THIS ROUTINE OBTAINS THE DETAILED STATUS FROM THE CONTROLLER.
01106  M01S00956.1hp     +++|*
01107  M01S00957.1hp     +++|*         EXIT   (A) .EQ. 0 IF STATUS OBTAINED.
01108  M01S00958.1hp     +++|*                    .LT. 0 IF STATUS NOT OBTAINED.
01109  M01S00959.1hp     +++|*                (EC) = COMPLEMENT OF *IDTE* ERROR CODE IF INCOMPLETE
01110  M01S00960.1hp     +++|*                       TRANSFER OCCURS.
01111  M01S00961.1hp     +++|*
01112  M01S00962.1hp     +++|*         USES   EC, T1.
01113  M01S00963.1hp     +++|*
01114  M01S00964.1hp     +++|*         CALLS  CCP, FNC.
01115  M01S00965.1hp     +++|
01116  M01S00966.1hp     +++|
01117  M01S00967.1hp     +++| GDS1     LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01118  M01S00968.1hp     +++| GDS2     STD    EC
01119  M01S00969.1hp     +++| GDS3     LDN    MXSL-1      INVALIDATE DETAILED STATUS
01120  M01S00970.1hp     +++|          STD    T1
01121  M01S00971.1hp     +++| GDS4     LCN    0
01122  M01S00972.1hp     +++|          STM    DST,T1
01123  M01S00973.1hp     +++|          SOD    T1
01124  M01S00974.1hp     +++|          PJN    GDS4        IF MORE BYTES
01125  M01S00975.1hp     +++|
01126  M01S00976.1hp     +++| GDS      SUBR               ENTRY/EXIT
01127  M01S00977.1hp     +++|          LDN    FCDS        ISSUE DETAILED STATUS FUNCTION
01128  M01S00978.1hp     +++|          RJM    FNC
01129  M01S00979.1hp     +++|          MJN    GDS3        IF ERROR
01130  M01S00980.1hp     +++|          LDN    MXSL
01131  M01S00981.1hp     +++|          IAM    DST,CH      INPUT DETAILED STATUS
01132  M01S00982.1hp     +++|          NJN    GDS1        IF INCOMPLETE DATA TRANSFER
01133  M01S00983.1hp     +++|          RJM    CCP         CHECK FOR CHANNEL PARITY ERROR
01134  M01S00984.1hp     +++|          ZJN    GDSX        IF NO CHANNEL PARITY ERROR
01135  M01S00985.1hp     +++|          UJN    GDS2        INVALIDATE STATUS AND RETURN
01136  M01S00986.1hp     +++| GGS      SPACE  4,15
01137  M01S00987.1hp     +++|**        GGS - GET GENERAL STATUS.
01138  M01S00988.1hp     +++|*
01139  M01S00989.1hp     +++|*         THIS ROUTINE OBTAINS THE EXTENDED GENERAL STATUS FROM THE
01140  M01S00990.1hp     +++|*         CONTROLLER.
01141  M01S00991.1hp     +++|*
01142  M01S00992.1hp     +++|*         EXIT   (A) .GE. 0 IF GENERAL STATUS OBTAINED.  (GS) = STATUS.
01143  M01S00993.1hp     +++|*                    .LT. 0 IF STATUS NOT OBTAINED.  (GS) = 7777.
01144  M01S00994.1hp     +++|*                (EC) = COMPLEMENT OF *IDTE* ERROR CODE IF INCOMPLETE
01145  M01S00995.1hp     +++|*                       TRANSFER OCCURRED.
01146  M01S00996.1hp     +++|*                     = COMPLEMENT OF *CHPE* ERROR CODE IF CHANNEL
01147  M01S00997.1hp     +++|*                       ERROR OCCURRED.
01148  M01S00998.1hp     +++|*
01149  M01S00999.1hp     +++|*         USES   EC, GS, T1.
01150  M01S01000.1hp     +++|*
01151  M01S01001.1hp     +++|*         CALLS  CCP, FNC.
01152  M01S01002.1hp     +++|
01153  M01S01003.1hp     +++|
01154  M01S01004.1hp     +++| GGS1     LCN    IDTE        SET *INCOMPLETE DATA TRANSFER* ERROR CODE
01155  M01S01005.1hp     +++| GGS2     STD    EC
01156  M01S01006.1hp     +++| GGS3     LDN    FCESL-1     INVALIDATE EXTENDED GENERAL STATUS
01157  M01S01007.1hp     +++|          STD    T1
01158  M01S01008.1hp     +++| GGS4     LCN    0
01159  M01S01009.1hp     +++|          STM    GGSA,T1
01160  M01S01010.1hp     +++|          SOD    T1
01161  M01S01011.1hp     +++|          PJN    GGS4        IF MORE BYTES
01162  M01S01012.1hp     +++|          LCN    0           INVALIDATE GENERAL STATUS
01163  M01S01013.1hp     +++| GGS5     STD    GS
01164  M01S01014.1hp     +++|
01165  M01S01015.1hp     +++| GGS      SUBR               ENTRY/EXIT
01166  M01S01016.1hp     +++|          LDM    FNCA        SAVE FUNCTION BEFORE GENERAL STATUS
01167  M01S01017.1hp     +++|          STM    GGSB
01168  M01S01018.1hp     +++|          LDN    FCES        ISSUE EXTENDED GENERAL STATUS FUNCTION
01169  M01S01019.1hp     +++|          RJM    FNC
01170  M01S01020.1hp     +++|          MJN    GGS3        IF ERROR
01171  M01S01021.1hp     +++|          LDN    FCESL
01172  M01S01022.1hp     +++|          IAM    GGSA,CH
01173  M01S01023.1hp     +++|          NJN    GGS1        IF INCOMPLETE TRANSFER
01174  M01S01024.1hp     +++|          RJM    CCP         CHECK FOR CHANNEL PARITY ERROR
01175  M01S01025.1hp     +++|          MJN    GGS2        IF CHANNEL PARITY ERROR
01176  M01S01026.1hp     +++|          LDM    GGSB        RESTORE LAST FUNCTION FOR ERROR PROCESSOR
01177  M01S01027.1hp     +++|          STM    FNCA
01178  M01S01028.1hp     +++|          LDM    GGSA
01179  M01S01029.1hp     +++|          UJN    GGS5        SAVE FIRST STATUS BYTE
01180  M01S01030.1hp     +++|
01181  M01S01031.1hp     +++| GGSA     BSS    FCESL       EXTENDED GENERAL STATUS BUFFER
01182  M01S01032.1hp     +++| GGSB     BSS    1           LAST FUNCTION BEFORE GENERAL STATUS
Line S01033 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01183  M02S01033.ns2769  ---| IBD      SPACE  4,10
Line S01034 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01184  M02S01034.ns2769  ---|**        IBD - ISSUE B-DISPLAY MESSAGE.
Line S01035 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01185  M02S01035.ns2769  ---|*
Line S01036 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01186  M02S01036.ns2769  ---|*         THIS ROUTINE ISSUES A MESSAGE TO *MS2W* OF THE SYSTEM CONTROL
Line S01037 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01187  M02S01037.ns2769  ---|*         POINT FOR PRESENTATION ON B-DISPLAY.
Line S01038 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01188  M02S01038.ns2769  ---|*
Line S01039 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01189  M02S01039.ns2769  ---|*         ENTRY  (EC) = ERROR CODE.
Line S01040 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01190  M02S01040.ns2769  ---|*                (RC) = RETRY COUNT.
Line S01041 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01191  M02S01041.ns2769  ---|*                (T5) = EST ORDINAL.
Line S01042 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01192  M02S01042.ns2769  ---|*
Line S01043 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01193  M02S01043.ns2769  ---|*         CALLS  C2D.
Line S01044 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01194  M02S01044.ns2769  ---|*
Line S01045 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01195  M02S01045.ns2769  ---|*         MACROS DELAY.
Line S01046 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01196  M02S01046.ns2769  ---|
Line S01047 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01197  M02S01047.ns2769  ---|
Line S01048 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01198  M02S01048.ns2769  ---| IBD      SUBR               ENTRY/EXIT
Line S01049 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01199  M02S01049.ns2769  ---|          LDM    TREC,EC
Line S01050 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01200  M02S01050.ns2769  ---|          SHN    -2
Line S01051 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01201  M02S01051.ns2769  ---|          SBD    RC
Line S01052 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01202  M02S01052.ns2769  ---|          PJN    IBDX        IF TOO EARLY TO NOTIFY OPERATOR
Line S01053 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01203  M02S01053.ns2769  ---|          LDD    T5          STORE EST ORDINAL IN MESSAGE
Line S01054 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01204  M02S01054.ns2769  ---|          SHN    -3
Line S01055 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01205  M02S01055.ns2769  ---|          RJM    C2D
Line S01056 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01206  M02S01056.ns2769  ---|          STM    IBDA+1
Line S01057 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01207  M02S01057.ns2769  ---|          LDD    T5
Line S01058 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01208  M02S01058.ns2769  ---|          LPN    7
Line S01059 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01209  M02S01059.ns2769  ---|          SHN    6
Line S01060 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01210  M02S01060.ns2769  ---|          ADC    2R0
Line S01061 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01211  M02S01061.ns2769  ---|          STM    IBDA+2
Line S01062 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01212  M02S01062.ns2769  ---|          LDM    TMNE,EC     STORE ERROR MNEMONIC IN MESSAGE
Line S01063 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01213  M02S01063.ns2769  ---|          STM    IBDA+3
Line S01064 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01214  M02S01064.ns2769  ---|          LDD    CP
Line S01065 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01215  M02S01065.ns2769  ---|          ADK    MS2W
Line S01066 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01216  M02S01066.ns2769  ---|          CWM    IBDA,TR
Line S01067 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
M03 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01217  M03S01067.ns2769  ---|          DELAY  100D*8D     DELAY FOR 100 MILLISECONDS
Line S00005 Modification History
M01 (Added by) 252l678
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01218  M02S00005.ns2769  ---|          DELAY  200D*8D     DELAY FOR 200 MILLISECONDS
Line S01068 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01219  M02S01068.ns2769  ---|          UJP    IBDX        RETURN
Line S01069 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01220  M02S01069.ns2769  ---|
Line S01070 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01221  M02S01070.ns2769  ---| IBDA     DATA   C*EQ000 XX ERROR RETRY UNDERWAY.*
01222  M01S01071.1hp     +++| IBM      SPACE  4,25
01223  M01S01072.1hp     +++|**        IBM - ISSUE BML MESSAGE.
01224  M01S01073.1hp     +++|*
Line S01074 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01225  M02S01074.ns2769  ---|*         THIS ROUTINE BUILDS A BML MESSAGE AND CALLS ROUTINE *IMS* TO
01226  M01S00105.ns2769  +++|*         THIS ROUTINE BUILDS A BML MESSAGE AND CALLS ROUTINE *IMB* TO
01227  M01S01075.1hp     +++|*         ISSUE THE MESSAGE TO THE BML.
01228  M01S01076.1hp     +++|*
Line S01077 Modification History
M01 (Added by) 1hp
M02 (Updated by) 252l678
Seq #  *Modification Id* Act 
----------------------------+
01229  M02S01077.252l678 ---|*         ENTRY  (CA) = UNIT NUMBER.
01230  M01S00006.252l678 +++|*         ENTRY  (CA - CA+3) = SEEK PARAMETERS.
01231  M01S01078.1hp     +++|*                (EC) = ERROR CODE.
01232  M01S01079.1hp     +++|*                (ER) = RECOVERY IN PROGRESS FLAG.
01233  M01S01080.1hp     +++|*                (RC) = RETRY COUNT.
01234  M01S01081.1hp     +++|*                (RS) = RECOVERY STATUS.
01235  M01S01082.1hp     +++|*                       777X INITIAL RETRY.
01236  M01S01083.1hp     +++|*                       0    RECOVERED BY CONTROLLER.
01237  M01S01084.1hp     +++|*                       1    RECOVERED BY DRIVER.
01238  M01S01085.1hp     +++|*                       2    UNRESOLVED.
01239  M01S01086.1hp     +++|*                       3    UNRECOVERED.
01240  M01S01087.1hp     +++|*                (RW) = READ/WRITE FLAG.
01241  M01S01088.1hp     +++|*                (T5) = EST ORDINAL.
01242  M01S01089.1hp     +++|*                (BMLGS) = GENERAL STATUS.
01243  M01S01090.1hp     +++|*                (DST - DST+23) = DETAILED STATUS IF APPLICABLE.
01244  M01S01091.1hp     +++|*
Line S01092 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2475
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S01092.ns2475  ---|*         USES   T1.
Line S00001 Modification History
M01 (Added by) ns2475
M02 (Updated by) ns2507
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S00001.ns2507  ---|*         USES   T1, T2.
Line S00003 Modification History
M01 (Added by) ns2507
M02 (Updated by) ns2519
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S00003.ns2519  ---|*         USES   T1.
Line S00001 Modification History
M01 (Added by) ns2519
M02 (Updated by) ns2732
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S00001.ns2732  ---|*         USES   S2, T1.
Line S00002 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
01249  M02S00002.ns2732a ---|*         EXIT   (RC) INCREMENTED.
01250  M01S00009.ns2732a +++|*         EXIT   (RC) INCREMENTED IF FIRST RETRY.
01251  M01S00003.ns2732  +++|*
Line S00004 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S00004.ns2769  ---|*         USES   RC, T1.
01253  M01S00106.ns2769  +++|*         USES   RC, T1, CM+1 - CM+3.
01254  M01S01093.1hp     +++|*
Line S01094 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2769
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S01094.ns2769  ---|*         CALLS  IEC, IMS.
01256  M01S00107.ns2769  +++|*         CALLS  IMB.
01257  M01S00108.ns2769  +++|*
01258  M01S00109.ns2769  +++|*         MACROS MONITOR.
01259  M01S01095.1hp     +++|
01260  M01S01096.1hp     +++|
01261  M01S01097.1hp     +++| IBM      SUBR               ENTRY/EXIT
Line S00005 Modification History
M01 (Added by) ns2732
M02 (Updated by) ns2732a
Seq #  *Modification Id* Act 
----------------------------+
01262  M02S00005.ns2732a ---|          AOD    RC          INCREMENT RETRY COUNT
01263  M01S01098.1hp     +++|          LDM    TEPF,EC
01264  M01S01099.1hp     +++|          SHN    0-12
01265  M01S01100.1hp     +++|          ZJN    IBMX        IF NO BML MESSAGE/ERROR COUNT INCREMENT
Line S01101 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2562
Seq #  *Modification Id* Act 
----------------------------+
01266  M02S01101.ns2562  ---|          SHN    12-13
Line S01102 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2562
Seq #  *Modification Id* Act 
----------------------------+
01267  M02S01102.ns2562  ---|          ZJN    IBM1        IF BML MESSAGE MAY BE ISSUED
Line S01103 Modification History
M01 (Added by) 1hp
M02 (Updated by) ns2562
Seq #  *Modification Id* Act 
----------------------------+
01268  M02S01103.ns2562  ---|          LDD    RS
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1hp.txt ยท Last modified: by 127.0.0.1