User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comppdi

Common COMPPDI

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comppdi +++|          CTEXT  COMPPDI - PROCESS DISK INFORMATION.
00002  M00S00002.comppdi +++| COMPPDI  SPACE  4,10
00003  M00S00003.comppdi +++| QUAL$    IF     -DEF,QUAL$,1
00004  M00S00004.comppdi +++|          QUAL   COMPPDI
Line S00005 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1983.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.comppdi +++| COMPPDI  SPACE  4,10
00008  M00S00007.comppdi +++|***       PDI - PROCESS DISK INFORMATION.
00009  M00S00008.comppdi +++|*         T. J. CALLAGHAN.   83/03/09.
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00010  M01S00001.271l716 +++|          SPACE  4,10
00011  M01S00002.271l716 +++|**        DIRECT LOCATION ASSIGNMENTS.
00012  M01S00003.271l716 +++|
00013  M01S00004.271l716 +++|
00014  M01S00005.271l716 +++| DF       EQU    FN          DAYFILE FLAGS
00015  M01S00006.271l716 +++| TA       EQU    FN+1        DAYFILE MESSAGE TABLE ADDRESS
00016  M01S00007.271l716 +++| CD       EQU    FN+2        CHANNEL DESCRIPTOR ADDRESS
00017  M01S00008.271l716 +++| PA       EQU    FN+3        PROCESSOR ADDRESS
00018  M01S00009.271l716 +++| UL       EQU    62 - 66     UNIT LIST (*DDLL* WORD)
00019  M01S00010.271l716 +++| AI       EQU    67          ALGORITHM INDEX
00020  M01S00011.271l716 +++| CCH      SPACE  4,10
Line S00012 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00012.272l774 ---|**        CCH - CHECK FOR CONCURRENT CHANNEL.
Line S00001 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00022  M01S00001.272l774 +++|**        CCH - CHECK FOR AND PROCESS CONCURRENT CHANNEL.
Line S00013 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00013.271l716 +++|*
00024  M01S00014.271l716 +++|*         ENTRY  (A) = CHANNEL STATE + CHANNEL NUMBER.
00025  M01S00015.271l716 +++|*                (CN - CN+4) = *EQDE* WORD FROM EST.
00026  M01S00016.271l716 +++|*                (UL - UL+4) = *DDLL* WORD FROM MST.
00027  M01S00017.271l716 +++|*
00028  M01S00018.271l716 +++|*         EXIT   (A) = 0 IF NOT CONCURRENT CHANNEL.
00029  M01S00019.271l716 +++|*
Line S00020 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00020.272l774 ---|*         USES   T2, T4, UL.
Line S00002 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00031  M01S00002.272l774 +++|*         USES   T2, T4.
Line S00021 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00021.271l716 +++|*
Line S00022 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00022.272l774 ---|*         CALLS  CCM, FDC, RSE, SDR.
Line S00003 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00003.272l774 +++|*         CALLS  CCC, FDC, RSE, SDR.
Line S00023 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00023.271l716 +++|
00036  M01S00024.271l716 +++|
00037  M01S00025.271l716 +++| CCH      SUBR               ENTRY/EXIT
00038  M01S00026.271l716 +++|          STD    T4
00039  M01S00027.271l716 +++|          LPN    77
00040  M01S00028.271l716 +++|          STM    /COMPSDR/SDRC+2*5+4  SET CHANNEL IN *UTEM* REQUEST
00041  M01S00029.271l716 +++|          LPN    40
00042  M01S00030.271l716 +++|          ZJN    CCHX        IF NOT CONCURRENT CHANNEL
00043  M01S00031.271l716 +++|          LDN    ZERL
00044  M01S00032.271l716 +++|          CRM    TCMD,ON
Line S00033 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00033.272l774 ---|          SBN    1           CLEAR CONTROL MODULE TABLE
Line S00004 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00046  M01S00004.272l774 +++|          SBN    1           CLEAR CONTROLLER TABLE
Line S00034 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00034.271l716 +++|          CRM    TCMD+3,ON
Line S00035 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00035.272l774 ---| CCH1     RJM    CCM         CHECK CONTROL MODULE TABLE
00049  M02S00036.272l774 ---|          NJN    CCH2        IF MODULE ALREADY PROCESSED
Line S00005 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00050  M01S00005.272l774 +++| CCH1     RJM    CCC         CHECK CONCURRENT CHANNEL CONTROLLER
00051  M01S00006.272l774 +++|          NJN    CCH3        IF CONTROLLER ALREADY PROCESSED
Line S00037 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00052  M01S00037.271l716 +++|*         LDN    0
00053  M01S00038.271l716 +++|          STD    T2          SET UNIT COUNT
00054  M01S00039.271l716 +++|          LDC    LFMI+4000
00055  M01S00040.271l716 +++|          RJM    SDR         ISSUE LIST FIRMWARE REQUEST
Line S00041 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00041.272l774 ---| CCH2     SOD    UL
00057  M02S00042.272l774 ---|          PJN    CCH1        IF MORE UNITS TO CHECK
Line S00043 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00043.271l716 +++| CCH3     RJM    FDC         FIND NEXT DEVICE ON CHANNEL
00059  M01S00044.271l716 +++|          ZJN    CCH1        IF ANOTHER DEVICE FOUND
00060  M01S00045.271l716 +++|          LDM    -1,LA       RESTORE ORIGINAL EST ORDINAL
00061  M01S00046.271l716 +++|          STD    T5
00062  M01S00047.271l716 +++|          RJM    RSE         RESTORE OTHER DIRECT CELLS
00063  M01S00048.271l716 +++|          LDN    1
00064  M01S00049.271l716 +++|          UJP    CCHX        RETURN
Line S00007 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00065  M01S00007.272l774 +++| CCC      SPACE  4,10
00066  M01S00008.272l774 +++|**        CCC - CHECK IF CONCURRENT CHANNEL CONTROLLER MESSAGE ISSUED.
00067  M01S00009.272l774 +++|*
00068  M01S00010.272l774 +++|*         ENTRY  (UL - UL+4) = *DDLL* WORD FROM MST.
00069  M01S00011.272l774 +++|*
00070  M01S00012.272l774 +++|*         EXIT   (A) = 0, IF MESSAGE NOT YET ISSUED.
00071  M01S00013.272l774 +++|*
00072  M01S00014.272l774 +++|*         USES   T1.
00073  M01S00015.272l774 +++|
00074  M01S00016.272l774 +++|
00075  M01S00017.272l774 +++| CCC      SUBR               ENTRY/EXIT
00076  M01S00018.272l774 +++|          LDD    UL          GET CONTROLLER NUMBER
00077  M01S00019.272l774 +++|          SHN    -6
00078  M01S00020.272l774 +++|          LPN    7
00079  M01S00021.272l774 +++|          ADC    TCMD
00080  M01S00022.272l774 +++|          STD    T1          FORM TABLE ADDRESS
00081  M01S00023.272l774 +++|          LDI    T1
00082  M01S00024.272l774 +++|          NJN    CCCX        IF CONTROLLER ALREADY PROCESSED
00083  M01S00025.272l774 +++|          AOI    T1
00084  M01S00026.272l774 +++|          LDN    0
00085  M01S00027.272l774 +++|          UJN    CCCX        RETURN
00086  M00S00009.comppdi +++| CCM      SPACE  4,10
00087  M00S00010.comppdi +++|**        CCM - CHECK IF CONTROL MODULE MESSAGE ALREADY ISSUED.
00088  M00S00011.comppdi +++|*
Line S00012 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00089  M01S00012.271l716 ---|*         ENTRY  (A) = LOGICAL UNIT NUMBER WHOSE CONTROL MODULE IS
00090  M01S00013.271l716 ---|*                      TO BE CHECKED.
00091  M01S00014.271l716 ---|*                (CCMA- CCMA+4) = MST WORD *DDLL*.
00092  M01S00015.271l716 ---|*
00093  M01S00016.271l716 ---|*         EXIT   (A) = 0, IF CONTROL MODULE REVISION NUMBER MESSAGE NOT
00094  M01S00017.271l716 ---|*                      YET ISSUED.
Line S00050 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00095  M01S00050.271l716 +++|*         ENTRY  (UL - UL+4) = *DDLL* WORD FROM MST.
00096  M00S00018.comppdi +++|*
Line S00028 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00097  M01S00028.272l774 +++|*         EXIT   (A) = 0, IF MESSAGE NOT YET ISSUED.
00098  M01S00029.272l774 +++|*
00099  M00S00019.comppdi +++|*         USES   T1.
00100  M00S00020.comppdi +++|
00101  M00S00021.comppdi +++|
00102  M00S00022.comppdi +++| CCM      SUBR               ENTRY/EXIT
Line S00023 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00103  M01S00023.271l716 ---|          SHN    21-0
00104  M01S00024.271l716 ---|          LMN    3
00105  M01S00025.271l716 ---|          ADK    CCMA+1
00106  M01S00026.271l716 ---|          STD    T1
00107  M01S00027.271l716 ---|          MJN    CCM1        IF UNIT NUMBER IN UPPER HALF OF BYTE
00108  M01S00028.271l716 ---|          LDI    T1
00109  M01S00029.271l716 ---|          SHN    -3
00110  M01S00030.271l716 ---|          LPN    7
00111  M01S00031.271l716 ---|          UJN    CCM2        LOOK UP CM EQUIPMENT NUMBER IN TABLE
00112  M01S00032.271l716 ---|
00113  M01S00033.271l716 ---| CCM1     LDI    T1          EXTRACT CM EQUIPMENT NUMBER
00114  M01S00034.271l716 ---|          SHN    -11
00115  M01S00035.271l716 ---| CCM2     ADC    TCMD
00116  M01S00036.271l716 ---|          STD    T1
00117  M01S00037.271l716 ---|          LDI    T1
00118  M01S00038.271l716 ---|          NJN    CCM3        IF REVISION NUMBER MESSAGE ALREADY ISSUED
Line S00051 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00119  M01S00051.271l716 +++|          LDD    UL
00120  M01S00052.271l716 +++|          SHN    21-0        UNIT LOCATION TO SIGN POSITION
00121  M01S00053.271l716 +++|          LMN    3
00122  M01S00054.271l716 +++|          ADN    UL+1        BYTE CONTAINING UNIT NUMBER
00123  M01S00055.271l716 +++|          STD    T1
00124  M01S00056.271l716 +++|          SHN    0-21
00125  M01S00057.271l716 +++|          ZJN    CCM1        IF UNIT NUMBER IN LOWER HALF OF BYTE
00126  M01S00058.271l716 +++|          LDI    T1
00127  M01S00059.271l716 +++|          SHN    -11
00128  M01S00060.271l716 +++|          UJN    CCM2        CHECK CONTROL MODULE NUMBER IN TABLE
00129  M01S00061.271l716 +++|
00130  M01S00062.271l716 +++| CCM1     LDI    T1          FETCH UNIT NUMBER
00131  M01S00063.271l716 +++|          SHN    -3
00132  M01S00064.271l716 +++|          LPN    7           EXTRACT CONTROL MODULE NUMBER
00133  M01S00065.271l716 +++| CCM2     ADC    TCMD
00134  M01S00066.271l716 +++|          STD    T1          FORM TABLE ADDRESS
00135  M01S00067.271l716 +++|          LDI    T1
00136  M01S00068.271l716 +++|          NJN    CCMX        IF CONTROL MODULE ALREADY PROCESSED
00137  M00S00039.comppdi +++|          AOI    T1
00138  M00S00040.comppdi +++|          LDN    0
Line S00041 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00139  M01S00041.271l716 ---| CCM3     UJN    CCMX        EXIT
00140  M01S00042.271l716 ---|
00141  M01S00043.271l716 ---| CCMA     BSS    5           MST WORD *DDLL*
Line S00069 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00142  M01S00069.271l716 +++|          UJN    CCMX        RETURN
00143  M00S00044.comppdi +++| TCMD     SPACE  4,10
00144  M00S00045.comppdi +++|**        TCMD - TABLE OF CONTROL MODULE ENTRIES.
00145  M00S00046.comppdi +++|*
00146  M00S00047.comppdi +++|*         A ONE BYTE ENTRY EXISTS FOR EACH POSSIBLE CONTROL MODULE.  IT
00147  M00S00048.comppdi +++|*         IS NON-ZERO IF A FIRMWARE REVISION NUMBER MESSAGE HAS ALREADY
00148  M00S00049.comppdi +++|*         BEEN ISSUED FOR THE CORRESPONDING CONTROL MODULE.
00149  M00S00050.comppdi +++|
00150  M00S00051.comppdi +++| TCMD     BSSZ   10
00151  M00S00052.comppdi +++| ECD      SPACE  4,10
00152  M00S00053.comppdi +++|***       ECD - ENTER CHANNEL DESCRIPTION IN TABLE.
00153  M00S00054.comppdi +++|*
00154  M00S00055.comppdi +++|*         ENTRY  (A) = CHANNEL DESCRIPTION WORD.
00155  M00S00056.comppdi +++|*
Line S00057 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00156  M01S00057.271l716 ---|*         EXIT   (A) .NE. 0 IF ENTRY PUT IN TABLE.
00157  M01S00058.271l716 ---|*                    = 0 IF ENTRY ALREADY IN TABLE.
00158  M01S00059.271l716 ---|*                ENTRY PUT IN TABLE IF NOT ALREADY THERE.
Line S00070 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00159  M01S00070.271l716 +++|*         EXIT   (A) = CHANNEL STATE + CHANNEL NUMBER.
00160  M01S00071.271l716 +++|*                    = 0 IF CHANNEL DESCRIPTOR IN TABLE.
00161  M00S00060.comppdi +++|*
00162  M00S00061.comppdi +++|*         USES   T1, T2.
00163  M00S00062.comppdi +++|
00164  M00S00063.comppdi +++|
Line S00064 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00165  M01S00064.271l716 ---| ECD2     LDI    T2          TEST FOR ENTRY IN TABLE
00166  M01S00065.271l716 ---|          LMD    T1
00167  M01S00066.271l716 ---|          ZJN    ECDX        IF ENTRY IN TABLE
00168  M01S00067.271l716 ---| ECD3     AOD    T2
00169  M01S00068.271l716 ---|          ADC    -TCHD       CHECK TABLE FULL
00170  M01S00069.271l716 ---| ECDA     EQU    *-1
00171  M01S00070.271l716 ---|          NJN    ECD2        IF NOT END OF TABLE
00172  M01S00071.271l716 ---|          SOM    ECDA
00173  M01S00072.271l716 ---|          LDD    T1          PUT ENTRY IN TABLE
00174  M01S00073.271l716 ---|          STI    T2
00175  M01S00074.271l716 ---|          LDN    1           FLAG ENTRY INTO TABLE
Line S00072 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00176  M01S00072.271l716 +++| ECD2     LDM    TCHD,T1
00177  M01S00073.271l716 +++|          NJN    ECD1        IF CHANNEL ALREADY IN TABLE
00178  M01S00074.271l716 +++|          LDD    T2
00179  M01S00075.271l716 +++|          STM    TCHD,T1     ENTER DESCRIPTOR IN TABLE
00180  M00S00075.comppdi +++|
00181  M00S00076.comppdi +++| ECD      SUBR               ENTRY/EXIT
Line S00077 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00182  M01S00077.271l716 ---|          STD    T0
00183  M01S00078.271l716 ---|          LPN    77
00184  M01S00079.271l716 ---|          STD    T1
00185  M01S00080.271l716 ---|          LDC    TCHD-1      SET TABLE ADDRESS
00186  M01S00081.271l716 ---|          STD    T2
00187  M01S00082.271l716 ---|          LDD    T0          CHECK CHANNEL ATTRIBUTES
00188  M01S00083.271l716 ---|          LPC    7000
00189  M01S00084.271l716 ---|          LMC    4000
00190  M01S00085.271l716 ---|          ZJN    ECD3        IF AVAILABLE CHANNEL
00191  M01S00086.271l716 ---|          LDN    0
Line S00076 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00192  M01S00076.271l716 +++|          LPC    7077
00193  M01S00077.271l716 +++|          STD    T2          SAVE CHANNEL STATE AND NUMBER
00194  M01S00078.271l716 +++|          LMC    4000
00195  M01S00079.271l716 +++|          STD    T1          EXTRACT CHANNEL NUMBER
00196  M01S00080.271l716 +++|          SHN    -11
00197  M01S00081.271l716 +++|          ZJN    ECD2        IF AVAILABLE CHANNEL
00198  M01S00082.271l716 +++| ECD1     LDN    0
00199  M00S00087.comppdi +++|          UJN    ECDX        RETURN
00200  M00S00088.comppdi +++| TCHD     SPACE  4,10
00201  M00S00089.comppdi +++|**        TCHD - TABLE OF CHANNEL DESCRIPTIONS.
Line S00090 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00202  M01S00090.271l716 ---|*
00203  M01S00091.271l716 ---|*         ONE WORD ENTRY FOR EACH CHANNEL FOR WHICH A FIRMWARE
00204  M01S00092.271l716 ---|*         REVISION NUMBER MESSAGE HAS BEEN ISSUED.
00205  M01S00093.271l716 ---|*
00206  M01S00094.271l716 ---|*
00207  M01S00095.271l716 ---|*T TCHD   6/, 6/ CHANNEL
Figure TCHD

05611 CHANNEL

00208  M00S00096.comppdi +++|
00209  M00S00097.comppdi +++|
00210  M00S00098.comppdi +++| TCHD     BSS    5*CTALL     CHANNEL DESCRIPTORS
Line S00083 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00211  M01S00083.271l716 +++| FDC      SPACE  4,10
00212  M01S00084.271l716 +++|**        FDC - FIND NEXT DEVICE ON CHANNEL.
00213  M01S00085.271l716 +++|*
00214  M01S00086.271l716 +++|*         ENTRY  (T4) = CHANNEL STATE + CHANNEL NUMBER.
00215  M01S00087.271l716 +++|*                (T5) = EST ORDINAL OF CURRENT DEVICE.
00216  M01S00088.271l716 +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
00217  M01S00089.271l716 +++|*
00218  M01S00090.271l716 +++|*         EXIT   (A) = 0 IF ANOTHER DEVICE FOUND.
00219  M01S00091.271l716 +++|*                (T5) = EST ORDINAL OF NEXT DEVICE.
00220  M01S00092.271l716 +++|*
00221  M01S00093.271l716 +++|*         CALLS  RSE.
00222  M01S00094.271l716 +++|
00223  M01S00095.271l716 +++|
00224  M01S00096.271l716 +++| FDC2     RJM    RSE         READ EST ENTRY
00225  M01S00097.271l716 +++|          NJN    FDC1        IF DEVICE NOT SELECTED
00226  M01S00098.271l716 +++|          LDN    CN
00227  M01S00099.271l716 +++|          STD    T0
00228  M01S00100.271l716 +++| FDC3     AOD    T0          ADVANCE CHANNEL BYTE INDEX
00229  M01S00101.271l716 +++|          LMN    CN+3
00230  M01S00102.271l716 +++|          ZJN    FDC1        IF BOTH CHANNELS CHECKED
00231  M01S00103.271l716 +++|          LDI    T0
00232  M01S00104.271l716 +++|          LPC    7077        CHECK CHANNEL + STATE FLAGS
00233  M01S00105.271l716 +++|          LMD    T4
00234  M01S00106.271l716 +++|          NJN    FDC3        IF NOT SPECIFIED CHANNEL
00235  M01S00107.271l716 +++|
00236  M01S00108.271l716 +++| FDC      SUBR               ENTRY/EXIT
00237  M01S00109.271l716 +++| FDC1     AOD    T5
00238  M01S00110.271l716 +++|          LMD    LO
00239  M01S00111.271l716 +++|          NJN    FDC2        IF MORE MASS STORAGE
00240  M01S00112.271l716 +++|          LDN    1
00241  M01S00113.271l716 +++|          UJN    FDCX        RETURN (DEVICE NOT FOUND)
00242  M00S00099.comppdi +++| IME      SPACE  4,20
00243  M00S00100.comppdi +++|**        IME - IDENTIFY MASS STORAGE EQUIPMENT.
00244  M00S00101.comppdi +++|*
00245  M00S00102.comppdi +++|*         ENTRY  (A) = DAYFILE FLAG.
00246  M00S00103.comppdi +++|*                (LA) = MASS STORAGE IDENT LOAD ADDRESS.
00247  M00S00104.comppdi +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
Line S00105 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00248  M01S00105.271l716 ---|*                DAYFILES INITIALIZED.
00249  M00S00106.comppdi +++|*
00250  M00S00107.comppdi +++|*         EXIT   PACK SERIAL NUMBER IDENTIFICATION MESSAGES ISSUED TO
00251  M00S00108.comppdi +++|*                THE ERROR LOG AND/OR BML FOR ALL *LDAM* TYPE MASS
00252  M00S00109.comppdi +++|*                STORAGE EQUIPMENTS THAT ARE ON AND AVAILABLE.
00253  M00S00110.comppdi +++|*                FIRMWARE REVISION NUMBER IDENTIFICATION MESSAGES
00254  M00S00111.comppdi +++|*                ISSUED TO THE ERROR LOG AND/OR BML FOR ALL CHANNELS
00255  M00S00112.comppdi +++|*                ASSOCIATED WITH *LDAM* EQUIPMENTS.
00256  M00S00113.comppdi +++|*
Line S00114 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00257  M01S00114.271l716 ---|*         USES   FN.
00258  M01S00115.271l716 ---|*
00259  M01S00116.271l716 ---|*         CALLS  LFR, LPS, PME.
Line S00114 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00260  M01S00114.271l716 +++|*         USES   DF.
00261  M01S00115.271l716 +++|*
00262  M01S00116.271l716 +++|*         CALLS  PME.
00263  M00S00117.comppdi +++|
00264  M00S00118.comppdi +++|
00265  M00S00119.comppdi +++| IME      SUBR               ENTRY/EXIT
Line S00120 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00266  M01S00120.271l716 ---|          STD    FN          SAVE DAYFILE FLAGS
Line S00117 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00267  M01S00117.271l716 +++|          STD    DF
00268  M00S00121.comppdi +++|          LDC    LFR         LIST FIRMWARE REVISION NUMBERS
00269  M00S00122.comppdi +++|          RJM    PME
Line S00123 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00270  M01S00123.271l716 ---|          LDN    PSNI        ENABLE BUFFERED DEVICE PROCESSING
00271  M01S00124.271l716 ---|          STM    PMEA
00272  M00S00125.comppdi +++|          LDC    LPS         LIST PACK SERIAL NUMBERS
00273  M00S00126.comppdi +++|          RJM    PME
00274  M00S00127.comppdi +++|          UJN    IMEX        EXIT
00275  M00S00128.comppdi +++| LFR      SPACE  4,25
00276  M00S00129.comppdi +++|**        LFR - LIST FIRMWARE REVISION NUMBERS.
00277  M00S00130.comppdi +++|*
Line S00131 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00278  M01S00131.271l716 ---|*         ENTRY  (A) = 0.
00279  M01S00132.271l716 ---|*                (T5) = ((LA)-1) = EST ORDINAL TO PROCESS.
00280  M01S00133.271l716 ---|*                (LA) = PROCESSOR LOAD ADDRESS.
00281  M01S00134.271l716 ---|*                (CN - CN+4) = EST ENTRY FOR EQUIPMENT.
00282  M01S00135.271l716 ---|*                DAYFILES INITIALIZED.
00283  M01S00136.271l716 ---|*
00284  M01S00137.271l716 ---|*         EXIT   (T5) = EST ORDINAL RESTORED FROM ((LA)-1).
00285  M01S00138.271l716 ---|*                FIRMWARE REVISION NUMBER IDENTIFICATION MESSAGES
00286  M01S00139.271l716 ---|*                ISSUED TO THE ERROR LOG AND/OR BML FOR THOSE CHANNELS
00287  M01S00140.271l716 ---|*                ASSOCIATED WITH THE EQUIPMENT WHICH HAVE NOT BEEN
00288  M01S00141.271l716 ---|*                PREVIOUSLY IDENTIFIED.
00289  M01S00142.271l716 ---|*                CHANNEL DESCRIPTIONS ENTERED IN CHANNEL DESCRIPTION
00290  M01S00143.271l716 ---|*                TABLE (*TCHD*) TO ALLOW SUPPRESSION OF DUPLICATE
00291  M01S00144.271l716 ---|*                MESSAGES.
00292  M01S00145.271l716 ---|*
00293  M01S00146.271l716 ---|*         USES   T2, T4, CM - CM+4, CN - CN+4.
00294  M01S00147.271l716 ---|*
00295  M01S00148.271l716 ---|*         CALLS  ECD, *0CI*, PDM, SDR.
Line S00118 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00296  M01S00118.271l716 +++|*         ENTRY  (T5) = ((LA)-1) = EST ORDINAL.
00297  M01S00119.271l716 +++|*                (LA) = PROCESSOR LOAD ADDRESS.
00298  M01S00120.271l716 +++|*                (AI) = ALGORITHM INDEX BYTE FROM *DILL*.
00299  M01S00121.271l716 +++|*                (CN - CN+4) = *EQDE* WORD OF EST ENTRY.
00300  M01S00122.271l716 +++|*                (UL - UL+4) = *DDLL* WORD FROM MST.
00301  M01S00123.271l716 +++|*
00302  M01S00124.271l716 +++|*         USES   CD, PA, T4.
00303  M01S00125.271l716 +++|*
00304  M01S00126.271l716 +++|*         CALLS  CCH, ECD, PDM, *0CI*.
00305  M00S00149.comppdi +++|*
00306  M00S00150.comppdi +++|*         MACROS EXECUTE.
00307  M00S00151.comppdi +++|
Line S00152 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00308  M01S00152.271l716 ---| LFR10    LDN    0           SET UNIT COUNT
00309  M01S00153.271l716 ---|          STD    T2
00310  M01S00154.271l716 ---|          LDD    T1          SET CHANNEL IN *UTEM* REQUEST
Line S00155 Modification History
M01 (Removed by) ns2527
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00311  M02S00155.271l716 ---|          SHN    6
00312  M02S00156.271l716 ---|          LMN    10
00313  M02S00157.271l716 ---|          STM    /COMPSDR/SDRF+4
00314  M02S00158.271l716 ---|          LDC    /COMPSDR/SDRF  SET LIST FIRMWARE REQUEST
00315  M02S00159.271l716 ---|          STM    /COMPSDR/SDRE
00316  M02S00160.271l716 ---|          LDN    0
Line S00001 Modification History
M01 (Added by) ns2527
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00317  M02S00001.271l716 ---|          STM    /COMPSDR/SDRC+4+2*5
00318  M02S00002.271l716 ---|          LDC    LFMI+4000B  SELECT LIST FIRMWARE REQUEST
Line S00161 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00319  M01S00161.271l716 ---|          RJM    SDR
00320  M01S00162.271l716 ---|          UJN    LFR3        PROCESS NEXT CHANNEL
00321  M00S00163.comppdi +++|
00322  M00S00164.comppdi +++| LFR      SUBR               ENTRY/EXIT
Line S00165 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00165.271l716 ---|          STD    CN
00324  M01S00166.271l716 ---|          LDN    CN+1        SET CHANNEL DESCRIPTOR ADDRESS
00325  M01S00167.271l716 ---|          STD    CN+3
00326  M01S00168.271l716 ---| LFR1     LDI    CN+3        ENTER CHANNEL IN TABLE
00327  M01S00169.271l716 ---|          RJM    ECD
00328  M01S00170.271l716 ---|          ZJN    LFR3        IF CHANNEL ALREADY IN TABLE
00329  M01S00171.271l716 ---|          LDD    T1
00330  M01S00172.271l716 ---|          LPN    40
00331  M01S00173.271l716 ---|          NJN    LFR10       IF CONCURRENT CHANNEL
00332  M01S00174.271l716 ---|          LDD    CN
00333  M01S00175.271l716 ---|          NJN    LFR2        IF *0CI* ALREADY LOADED
Line S00127 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00334  M01S00127.271l716 +++|          LDD    CN
00335  M01S00128.271l716 +++|          SHN    21-7
00336  M01S00129.271l716 +++|          MJN    LFR1        IF *LDAM* DEVICE
Line S00130 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00130.272l774 ---|          LDD    CN+3
00338  M02S00131.272l774 ---|          LMC    2RDN
00339  M02S00132.272l774 ---|          NJN    LFRX        IF NOT XMD (CM3)
Line S00030 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00340  M01S00030.272l774 +++|          LDN    TLFRL       CHECK DEVICE TYPE FOR NON-*LDAM* DEVICE
00341  M01S00031.272l774 +++|          STD    T1
00342  M01S00032.272l774 +++| LFR0     SOD    T1
00343  M01S00033.272l774 +++|          MJN    LFRX        IF FIRMWARE REVISION SHOULD NOT BE LOGGED
00344  M01S00034.272l774 +++|          LDD    CN+3
00345  M01S00035.272l774 +++|          LMM    TLFR,T1
00346  M01S00036.272l774 +++|          NJN    LFR0        IF DEVICE TYPE DOES NOT MATCH
Line S00133 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00347  M01S00133.271l716 +++| LFR1     LDN    CN+1
00348  M01S00134.271l716 +++|          STD    CD          SET CHANNEL DESCRIPTOR ADDRESS
00349  M01S00135.271l716 +++|          LDN    0
00350  M01S00136.271l716 +++|          STD    PA
00351  M01S00137.271l716 +++| LFR2     LDI    CD          ENTER CHANNEL IN TABLE
00352  M01S00138.271l716 +++|          RJM    ECD
Line S00139 Modification History
M01 (Added by) 271l716
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00139.ppdi4   ---|          ZJN    LFR4        IF CHANNEL ALREADY IN TABLE
Line S00001 Modification History
M01 (Added by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00354  M01S00001.ppdi4   +++|          ZJN    LFR4        IF CHANNEL DOWN, IDLE OR ALREADY IN TABLE
Line S00140 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00140.272l774 ---|          RJM    CCH
Line S00037 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00356  M01S00037.272l774 +++|          RJM    CCH         CHECK FOR AND PROCESS CONCURRENT CHANNEL
Line S00141 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00357  M01S00141.271l716 +++|          NJN    LFR4        IF CONCURRENT CHANNEL
00358  M01S00142.271l716 +++|          LDD    PA
00359  M01S00143.271l716 +++|          NJN    LFR3        IF *0CI* LOADED
00360  M00S00176.comppdi +++|          EXECUTE  0CI,*
00361  M00S00177.comppdi +++|          RJM    EXR         LOAD AND INITIALIZE PROCESSOR
Line S00178 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00362  M01S00178.271l716 ---|          STD    CN          SAVE MAIN PROCESSOR ADDRESS
00363  M01S00179.271l716 ---| LFR2     LDI    CN+3
Line S00144 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00364  M01S00144.271l716 +++|          STD    PA
00365  M01S00145.271l716 +++| LFR3     LDI    CD          EXTRACT CHANNEL NUMBER
00366  M00S00180.comppdi +++|          LPN    37
00367  M00S00181.comppdi +++|          STD    T4
Line S00182 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00368  M01S00182.271l716 ---|          RJM    0,CN        GET MESSAGE FOR CHANNEL
00369  M01S00183.271l716 ---|          MJN    LFR3        IF MASS STORAGE ERROR
00370  M01S00184.271l716 ---|          RJM    PDM         ISSUE DAYFILE MESSAGE
00371  M01S00185.271l716 ---| LFR3     AOD    CN+3
00372  M01S00186.271l716 ---|          LMN    CN+3
00373  M01S00187.271l716 ---|          NJN    LFR1        IF ANOTHER CHANNEL TO PROCESS
Line S00146 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00374  M01S00146.271l716 +++|          RJM    0,PA        GENERATE MESSAGE
00375  M01S00147.271l716 +++|          MJN    LFR4        IF MASS STORAGE ERROR
00376  M01S00148.271l716 +++|          RJM    PDM         ISSUE DAYFILE MESSAGE
00377  M01S00149.271l716 +++| LFR4     AOD    CD
00378  M01S00150.271l716 +++|          LMN    CN+3
00379  M01S00151.271l716 +++|          NJN    LFR2        IF POSSIBLY ANOTHER CHANNEL
Line S00188 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00380  M01S00188.271l716 ---|          LDD    CN+4
00381  M01S00189.271l716 ---|          SHN    3
00382  M01S00190.271l716 ---|          ADK    DILL
00383  M01S00191.271l716 ---|          CRD    CM
00384  M01S00192.271l716 ---|          ADK    DDLL-DILL
00385  M01S00193.271l716 ---|          CRM    CCMA,ON
00386  M01S00194.271l716 ---|          LDD    CM+4
Line S00152 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00387  M01S00152.271l716 +++|          LDD    AI
00388  M00S00195.comppdi +++|          LPN    77
00389  M00S00196.comppdi +++|          SBN    AIIB
Line S00197 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00390  M01S00197.271l716 ---|          MJN    LFR4        IF NOT ISMD DEVICE
00391  M01S00198.271l716 ---|          SBN    AIIE-AIIB
00392  M01S00199.271l716 ---|          MJN    LFR5        IF ISMD DEVICE
00393  M01S00200.271l716 ---| LFR4     LJM    LFRX        EXIT
00394  M01S00201.271l716 ---|
00395  M01S00202.271l716 ---| LFR5     LDM    CCMA
Line S00153 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00396  M01S00153.271l716 +++|          MJN    LFR5        IF NOT ISMD DEVICE
00397  M01S00154.271l716 +++|          SBN    AIIE-AIIB
00398  M01S00155.271l716 +++|          MJN    LFR6        IF ISMD DEVICE
00399  M01S00156.271l716 +++| LFR5     LJM    LFRX        EXIT
00400  M01S00157.271l716 +++|
Line S00203 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00401  M01S00203.271l716 ---|          LPC    2007
00402  M01S00204.271l716 ---|          STD    CN+3        SAVE UNIT COUNT
00403  M01S00205.271l716 ---|          SHN    -3
00404  M01S00206.271l716 ---|          NJN    LFR4        IF A NULL EQUIPMENT
00405  M01S00207.271l716 ---|          LDD    TH
Line S00158 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00158.271l716 +++| LFR6     LDD    TH          SELECT CONTROL MODULE IDENTIFICATION
00407  M00S00208.comppdi +++|          RAM    -1,LA
00408  M00S00209.comppdi +++|          EXECUTE  0CI,*
00409  M00S00210.comppdi +++|          RJM    EXR         LOAD AND INITIALIZE PROCESSOR
Line S00211 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00410  M01S00211.271l716 ---|          STD    CN
Line S00159 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00411  M01S00159.271l716 +++|          STD    PA
00412  M00S00212.comppdi +++|          LDD    T5          CLEAR FUNCTION CODE
00413  M00S00213.comppdi +++|          STM    -1,LA
Line S00214 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00414  M01S00214.271l716 ---|          LDD    CN+3        ISSUE CONTROL MODULE MESSAGE
00415  M01S00215.271l716 ---| LFR6     RJM    CCM
00416  M01S00216.271l716 ---|          NJN    LFR9        IF MESSAGE ALREADY ISSUED
00417  M01S00217.271l716 ---|          LDN    CN+1
00418  M01S00218.271l716 ---|          STD    CN+4
00419  M01S00219.271l716 ---| LFR7     LDI    CN+4        SELECT CHANNEL
Line S00160 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00420  M01S00160.271l716 +++| LFR7     RJM    CCM
00421  M01S00161.271l716 +++|          NJN    LFR10       IF MESSAGE ALREADY ISSUED
00422  M01S00162.271l716 +++|          LDN    CN+1
00423  M01S00163.271l716 +++|          STD    CD
00424  M01S00164.271l716 +++| LFR8     LDI    CD          SELECT CHANNEL
00425  M00S00220.comppdi +++|          LPN    37
00426  M00S00221.comppdi +++|          STD    T4
Line S00222 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00427  M01S00222.271l716 ---|          RJM    0,CN
00428  M01S00223.271l716 ---|          PJN    LFR8        IF NO MASS STORAGE ERROR
00429  M01S00224.271l716 ---|          AOD    CN+4
00430  M01S00225.271l716 ---|          LMN    CN+3
00431  M01S00226.271l716 ---|          NJN    LFR7        IF ANOTHER CHANNEL EXISTS TO TRY
00432  M01S00227.271l716 ---|          UJN    LFR9        MOVE TO NEXT UNIT
00433  M01S00228.271l716 ---|
00434  M01S00229.271l716 ---| LFR8     RJM    PDM         ISSUE DAYFILE MESSAGE
00435  M01S00230.271l716 ---| LFR9     SOD    CN+3
00436  M01S00231.271l716 ---|          PJN    LFR6        IF MORE UNITS
00437  M01S00232.271l716 ---|          LJM    LFRX        EXIT
Line S00165 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00438  M01S00165.271l716 +++|          RJM    0,PA
00439  M01S00166.271l716 +++|          PJN    LFR9        IF NO MASS STORAGE ERROR
00440  M01S00167.271l716 +++|          AOD    CD
00441  M01S00168.271l716 +++|          LMN    CN+3
00442  M01S00169.271l716 +++|          NJN    LFR8        IF POSSIBLY ANOTHER CHANNEL
00443  M01S00170.271l716 +++|          UJN    LFR10       MOVE TO NEXT UNIT
00444  M01S00171.271l716 +++|
00445  M01S00172.271l716 +++| LFR9     RJM    PDM         ISSUE DAYFILE MESSAGE
00446  M01S00173.271l716 +++| LFR10    SOD    UL
00447  M01S00174.271l716 +++|          PJN    LFR7        IF MORE UNITS
00448  M01S00175.271l716 +++|          LJM    LFRX        RETURN
Line S00038 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00449  M01S00038.272l774 +++|
00450  M01S00039.272l774 +++|
00451  M01S00040.272l774 +++|*         TLFR - NON-*LDAM* DEVICES FOR WHICH TO LIST FIRMWARE REVISION.
00452  M01S00041.272l774 +++|
00453  M01S00042.272l774 +++| TLFR     BSS    0
00454  M01S00043.272l774 +++|          CON    2RDN        9853 (XMD)
00455  M01S00044.272l774 +++|          CON    2REA        5832 (1X SSD)
00456  M01S00045.272l774 +++|          CON    2REB        5832 (2X SSD)
00457  M01S00046.272l774 +++|          CON    2REC        5833 (1X SABRE)
00458  M01S00047.272l774 +++|          CON    2RED        5833 (1XP SABRE)
00459  M01S00048.272l774 +++|          CON    2REE        5833 (2X SABRE)
00460  M01S00049.272l774 +++|          CON    2REF        5833 (2XP SABRE)
Line S00001 Modification History
M01 (Added by) ns2768
Seq #  *Modification Id* Act 
----------------------------+
00461  M01S00001.ns2768  +++|          CON    2REG        5838 (1X ELITE)
00462  M01S00002.ns2768  +++|          CON    2REH        5838 (1XP ELITE)
Line S00001 Modification History
M01 (Added by) 284l847
Seq #  *Modification Id* Act 
----------------------------+
00463  M01S00001.284l847 +++|          CON    2REI        5838 (2X ELITE)
00464  M01S00002.284l847 +++|          CON    2REJ        5838 (2XP ELITE)
00465  M01S00003.284l847 +++|          CON    2REK        5838 (3XP ELITE)
00466  M01S00004.284l847 +++|          CON    2REL        5838 (4X ELITE)
00467  M01S00005.284l847 +++|          CON    2REM        5833 (3XP SABRE)
00468  M01S00006.284l847 +++|          CON    2REN        5833 (4X SABRE)
00469  M01S00007.284l847 +++|          CON    2REO        47444 (1X 3.5IN)
00470  M01S00008.284l847 +++|          CON    2REP        47444 (1XP 3.5IN)
00471  M01S00009.284l847 +++|          CON    2RES        47444 (2X 3.5IN)
00472  M01S00010.284l847 +++|          CON    2REU        47444 (2XP 3.5IN)
00473  M01S00011.284l847 +++|          CON    2REV        47444 (3XP 3.5IN)
00474  M01S00012.284l847 +++|          CON    2REW        47444 (4X 3.5IN)
Line S00050 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00475  M01S00050.272l774 +++|
00476  M01S00051.272l774 +++| TLFRL    EQU    *-TLFR      LENGTH OF TABLE
00477  M00S00233.comppdi +++| LPS      SPACE  4,20
00478  M00S00234.comppdi +++|**        LPS - LIST PACK SERIAL NUMBERS.
00479  M00S00235.comppdi +++|*
Line S00236 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00480  M01S00236.271l716 ---|*         ENTRY  (A) = 0.
00481  M01S00237.271l716 ---|*                (T5) = ((LA)-1) = EST ORDINAL TO PROCESS.
00482  M01S00238.271l716 ---|*                (LA) = PROCESSOR LOAD ADDRESS.
00483  M01S00239.271l716 ---|*                (CN - CN+4) = EST ENTRY FOR EQUIPMENT.
00484  M01S00240.271l716 ---|*                DAYFILES INITIALIZED.
00485  M01S00241.271l716 ---|*
00486  M01S00242.271l716 ---|*         EXIT   (T5) = EST ORDINAL RESTORED FROM ((LA)-1).
00487  M01S00243.271l716 ---|*                PACK SERIAL NUMBER IDENTIFICATION MESSAGES ISSUED TO
00488  M01S00244.271l716 ---|*                THE ERROR LOG AND/OR BML FOR ALL UNITS OF THE
00489  M01S00245.271l716 ---|*                EQUIPMENT.
00490  M01S00246.271l716 ---|*
Line S00247 Modification History
M01 (Removed by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00491  M02S00247.271l716 ---|*         USES   T2, CM - CM+4, CN+2 - CN+4.
Line S00001 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00001.271l716 ---|*         USES   T2, CM - CM+4, CN - CN+4.
Line S00176 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00493  M01S00176.271l716 +++|*         ENTRY  (T5) = ((LA)-1) = EST ORDINAL.
00494  M01S00177.271l716 +++|*                (LA) = PROCESSOR LOAD ADDRESS.
00495  M01S00178.271l716 +++|*                (CN - CN+4) = *EQDE* WORD OF EST ENTRY.
00496  M01S00179.271l716 +++|*                (UL - UL+4) = *DDLL* WORD FROM MST.
00497  M01S00180.271l716 +++|*
00498  M01S00181.271l716 +++|*         USES   CD, PA, T2, UL, CN+2.
00499  M00S00248.comppdi +++|*
00500  M00S00249.comppdi +++|*         CALLS  PDM, SDR, *0PI*.
00501  M00S00250.comppdi +++|*
00502  M00S00251.comppdi +++|*         MARCOS EXECUTE.
00503  M00S00252.comppdi +++|
00504  M00S00253.comppdi +++|
Line S00254 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00505  M01S00254.271l716 ---| LPS3     LDD    CN+3        CHECK DEVICE TYPE
00506  M01S00255.271l716 ---|          LMC    2RDF
00507  M01S00256.271l716 ---|          ZJN    LPS4        IF 887 (HYDRA) DEVICE
00508  M01S00257.271l716 ---|          LMN    2RDH&2RDF
00509  M01S00258.271l716 ---|          NJN    LPSX        IF NOT HYDRA DEVICE
Line S00259 Modification History
M01 (Removed by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00510  M02S00259.271l716 ---| LPS4     LDD    CN+2
Line S00002 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00002.271l716 ---| LPS4     LDD    CN+4
Line S00260 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00512  M01S00260.271l716 ---|          STD    T2
00513  M01S00261.271l716 ---|          LDN    LPSN        SELECT LIST PACK SERIAL NUMBER
Line S00182 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00514  M01S00182.271l716 +++| LPS5     LDD    UL          SET UNIT COUNT
Line S00052 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00515  M01S00052.272l774 +++|          LPN    7
Line S00183 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00516  M01S00183.271l716 +++|          STD    T2
00517  M01S00184.271l716 +++|          LDN    LDIF        SET LIST UNIQUE ID FLAG
00518  M00S00262.comppdi +++|          RJM    SDR
00519  M00S00263.comppdi +++|
00520  M00S00264.comppdi +++| LPS      SUBR               ENTRY/EXIT
00521  M00S00265.comppdi +++|          LDD    CN
00522  M00S00266.comppdi +++|          LPC    102
00523  M00S00267.comppdi +++|          NJN    LPSX        IF UNAVAILABLE, OFF OR DOWN
Line S00002 Modification History
M01 (Added by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00524  M01S00002.ppdi4   +++|          LDN    CN
00525  M01S00003.ppdi4   +++|          STD    CD
00526  M01S00004.ppdi4   +++| LPS1     AOD    CD          ADVANCE CHANNEL BYTE ADDRESS
00527  M01S00005.ppdi4   +++|          LMN    CN+3
00528  M01S00006.ppdi4   +++|          ZJN    LPSX        IF END OF CHANNELS
00529  M01S00007.ppdi4   +++|          LDI    CD
00530  M01S00008.ppdi4   +++|          SHN    21-13
00531  M01S00009.ppdi4   +++|          PJN    LPS1        IF NO CHANNEL
00532  M01S00010.ppdi4   +++|          SHN    21-11-21+13
00533  M01S00011.ppdi4   +++|          MJN    LPS1        IF CHANNEL IS DOWN OR IDLE
00534  M01S00012.ppdi4   +++|          SHN    21-5-21+11
00535  M01S00013.ppdi4   +++|          MJN    LPS5        IF CONCURRENT CHANNEL
Line S00268 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00536  M01S00268.271l716 ---|          LDD    CN+4
00537  M01S00269.271l716 ---|          SHN    3
00538  M01S00270.271l716 ---|          ADN    DDLL
00539  M01S00271.271l716 ---|          CRD    CM
00540  M01S00272.271l716 ---|          LDD    CM          SET UNIT COUNT
00541  M01S00273.271l716 ---|          LPN    7
Line S00274 Modification History
M01 (Removed by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00542  M02S00274.271l716 ---|          STD    CN+2
Line S00003 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00003.271l716 ---|          STD    CN+4
00544  M00S00275.comppdi +++|          LDD    CN
00545  M00S00276.comppdi +++|          SHN    21-7
Line S00277 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00546  M01S00277.271l716 ---|          PJN    LPS3        IF NOT *LDAM* DEVICE
Line S00278 Modification History
M01 (Removed by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00547  M02S00278.271l716 ---|          LDD    CN+1
Line S00004 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00548  M02S00004.271l716 ---|          LDN    CN          CHECK CHANNELS
00549  M02S00005.271l716 ---|          STD    CN
00550  M02S00006.271l716 ---| LPS0     AOD    CN          ADVANCE CHANNELS
Line S00185 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00551  M01S00185.271l716 +++|          PJN    LPS5        IF NOT *LDAM* DEVICE
Line S00186 Modification History
M01 (Added by) 271l716
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00186.ppdi4   ---|          LDN    CN
00553  M02S00187.ppdi4   ---|          STD    CD
00554  M02S00188.ppdi4   ---| LPS1     AOD    CD          ADVANCE CHANNEL BYTE ADDRESS
Line S00007 Modification History
M01 (Added by) ppdi3
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00007.ppdi4   ---|          LMN    CN+3
00556  M02S00008.ppdi4   ---|          ZJN    LPSX        IF END OF CHANNELS
Line S00009 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
M03 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00557  M03S00009.ppdi4   ---|          LDI    CN          CHECK CHANNEL
Line S00279 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00558  M02S00279.ppdi4   ---|          SHN    21-5
00559  M02S00280.ppdi4   ---|          MJN    LPS4        IF CONCURRENT CHANNEL
Line S00189 Modification History
M01 (Added by) 271l716
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00189.ppdi4   ---|          LDI    CD
00561  M02S00190.ppdi4   ---|          SHN    21-5
00562  M02S00191.ppdi4   ---|          MJN    LPS5        IF CONCURRENT CHANNEL
Line S00010 Modification History
M01 (Added by) ppdi3
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00010.ppdi4   ---|          LPN    70
00564  M02S00011.ppdi4   ---|          LMN    40
Line S00012 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
M03 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00565  M03S00012.ppdi4   ---|          NJN    LPS0        IF UNAVAILABLE CHANNEL
Line S00281 Modification History
M01 (Removed by) 271l716
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00566  M02S00281.ppdi4   ---|          LDN    0
Line S00192 Modification History
M01 (Added by) 271l716
M02 (Removed by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00192.ppdi4   ---|          NJN    LPS1        IF UNAVAILABLE CHANNEL
00568  M02S00193.ppdi4   ---|*         LDN    0
Line S00014 Modification History
M01 (Added by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00014.ppdi4   +++|          LDN    0
Line S00282 Modification History
M01 (Removed by) ppdi3
Seq #  *Modification Id* Act 
----------------------------+
00570  M01S00282.ppdi3   ---|          STD    CN+4
Line S00013 Modification History
M01 (Added by) ppdi3
Seq #  *Modification Id* Act 
----------------------------+
00571  M01S00013.ppdi3   +++|          STD    CN+2
00572  M00S00283.comppdi +++|          EXECUTE  0PI,*
00573  M00S00284.comppdi +++|          RJM    EXR         LOAD AND INITIALIZE PROCESSOR
Line S00285 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00574  M01S00285.271l716 ---|          STD    CN+3        SAVE MAIN PROCESSOR ADDRESS
Line S00286 Modification History
M01 (Removed by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00575  M02S00286.271l716 ---| LPS1     LDD    CN+4        GET MESSAGE FOR A LOGICAL UNIT
Line S00014 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00014.271l716 ---| LPS1     LDD    CN+2        GET MESSAGE FOR A LOGICAL UNIT
Line S00287 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00577  M01S00287.271l716 ---|          RJM    0,CN+3
00578  M01S00288.271l716 ---|          ZJN    LPS2        IF MASS STORAGE ERROR
00579  M01S00289.271l716 ---|          RJM    PDM         PROCESS DAYFILE MESSAGE
Line S00290 Modification History
M01 (Removed by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00290.271l716 ---| LPS2     AOD    CN+4        ADVANCE LOGICAL UNIT
00581  M02S00291.271l716 ---|          SOD    CN+2        DECREMENT LOGICAL UNIT COUNT
Line S00015 Modification History
M01 (Added by) ppdi3
M02 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00015.271l716 ---| LPS2     AOD    CN+2        ADVANCE LOGICAL UNIT
00583  M02S00016.271l716 ---|          SOD    CN+4        DECREMENT LOGICAL UNIT COUNT
Line S00292 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00584  M01S00292.271l716 ---|          PJN    LPS1        IF MORE LOGICAL UNITS
Line S00194 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00585  M01S00194.271l716 +++|          STD    PA
00586  M01S00195.271l716 +++| LPS2     LDD    CN+2        GET MESSAGE FOR A LOGICAL UNIT
00587  M01S00196.271l716 +++|          RJM    0,PA
00588  M01S00197.271l716 +++|          ZJN    LPS3        IF MASS STORAGE ERROR
00589  M01S00198.271l716 +++|          RJM    PDM         PROCESS DAYFILE MESSAGE
00590  M01S00199.271l716 +++| LPS3     AOD    CN+2        ADVANCE LOGICAL UNIT
00591  M01S00200.271l716 +++|          SOD    UL          DECREMENT LOGICAL UNIT COUNT
00592  M01S00201.271l716 +++|          PJN    LPS2        IF MORE LOGICAL UNITS
00593  M00S00293.comppdi +++|          LJM    LPSX        RETURN
00594  M00S00294.comppdi +++| PME      SPACE  4,15
00595  M00S00295.comppdi +++|**        PME - PROCESS MASS STORAGE EQUIPMENT.
00596  M00S00296.comppdi +++|*
00597  M00S00297.comppdi +++|*         ENTRY  (A) = PROCESSOR ADDRESS.
00598  M00S00298.comppdi +++|*                (LA) = MASS STORAGE IDENT LOAD ADDRESS.
00599  M00S00299.comppdi +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
Line S00300 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00600  M01S00300.271l716 ---|*
00601  M01S00301.271l716 ---|*         EXIT   PROCESSOR CALLED FOR EACH *LDAM* TYPE MASS STORAGE
00602  M01S00302.271l716 ---|*                EQUIPMENT THAT IS AVAILABLE AND NOT DOWN.
00603  M00S00303.comppdi +++|*
Line S00304 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00604  M01S00304.271l716 ---|*         USES   T5, CN - CN+4.
00605  M01S00305.271l716 ---|*
00606  M01S00306.271l716 ---|*         CALLS  LFR, LPS.
Line S00202 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00607  M01S00202.271l716 +++|*         USES   T1, T5.
00608  M01S00203.271l716 +++|*
00609  M01S00204.271l716 +++|*         CALLS  LFR, LPS, RSE.
00610  M00S00307.comppdi +++|*
00611  M00S00308.comppdi +++|*         MACROS SFA.
00612  M00S00309.comppdi +++|
00613  M00S00310.comppdi +++|
00614  M00S00311.comppdi +++| PME4     AOM    -1,LA       ADVANCE EQUIPMENT NUMBER
00615  M00S00312.comppdi +++|          STD    T5
00616  M00S00313.comppdi +++|          LMD    LO
00617  M00S00314.comppdi +++|          NJN    PME1        IF MORE EQUIPMENT TO CHECK
00618  M00S00315.comppdi +++|
00619  M00S00316.comppdi +++| PME      SUBR               ENTRY/EXIT
00620  M00S00317.comppdi +++|          STM    PMEB
00621  M00S00318.comppdi +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
00622  M00S00319.comppdi +++|          STD    T5
00623  M00S00320.comppdi +++|          STM    -1,LA
Line S00321 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00624  M01S00321.271l716 ---| PME1     SFA    EST,T5      READ EST ENTRY
00625  M01S00322.271l716 ---|          ADK    EQDE
00626  M01S00323.271l716 ---|          CRD    CN
00627  M01S00324.271l716 ---|          LDD    CN          CHECK EQUIPMENT STATUS
00628  M01S00325.271l716 ---|          SHN    21-13
00629  M01S00326.271l716 ---|          PJN    PME4        IF NOT MASS STORAGE
00630  M01S00327.271l716 ---|          SHN    13-7        CHECK TYPE
00631  M01S00328.271l716 ---| PMEA     PJN    PME4        IF NOT *LDAM* DEVICE
00632  M01S00329.271l716 ---|*         PSN                (PROCESSING PACK SERIAL NUMBERS)
00633  M01S00330.271l716 ---|          SHN    7-21
00634  M01S00331.271l716 ---|          LPN    3
00635  M01S00332.271l716 ---|          LMN    3
00636  M01S00333.271l716 ---|          ZJN    PME4        IF DEVICE IS DOWN
Line S00205 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00637  M01S00205.271l716 +++| PME1     RJM    RSE         READ EST ENTRY
00638  M01S00206.271l716 +++|          STD    T1
00639  M01S00207.271l716 +++|          NJN    PME4        IF DEVICE NOT SELECTED
00640  M01S00208.271l716 +++| PME2     LDM    PMEC,T1
00641  M01S00209.271l716 +++|          LMD    CN+3
00642  M01S00210.271l716 +++|          ZJN    PME4        IF EXCLUDED DEVICE TYPE
00643  M01S00211.271l716 +++|          AOD    T1
00644  M01S00212.271l716 +++|          LMN    PMECL
00645  M01S00213.271l716 +++|          NJN    PME2        IF NOT END OF LIST
00646  M01S00214.271l716 +++|
Line S00334 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00647  M01S00334.271l716 ---|          LDN    0           SET ENTRY CONDITION
00648  M00S00335.comppdi +++|          RJM    *           EXECUTE PROCESSOR
00649  M00S00336.comppdi +++| PMEB     EQU    *-1
00650  M00S00337.comppdi +++|          UJN    PME4        PROCESS NEXT EQUIPMENT
Line S00215 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00651  M01S00215.271l716 +++|
00652  M01S00216.271l716 +++|
00653  M01S00217.271l716 +++| PMEC     BSS    0           LIST OF EXCLUDED DEVICE TYPES
00654  M01S00218.271l716 +++|          CON    2RDE
00655  M01S00219.271l716 +++|          CON    2RDP
00656  M01S00220.271l716 +++|          CON    2RDV
00657  M01S00221.271l716 +++|          CON    2RDW
00658  M01S00222.271l716 +++| PMECL    EQU    *-PMEC      LENGTH OF LIST
Line S00338 Modification History
M01 (Removed by) ppdi3
Seq #  *Modification Id* Act 
----------------------------+
00659  M01S00338.ppdi3   ---|PDM       SPACE  4,15
Line S00017 Modification History
M01 (Added by) ppdi3
Seq #  *Modification Id* Act 
----------------------------+
00660  M01S00017.ppdi3   +++| PDM      SPACE  4,15
00661  M00S00339.comppdi +++|**        PDM - PROCESS DAYFILE MESSAGE.
00662  M00S00340.comppdi +++|*
00663  M00S00341.comppdi +++|*         ENTRY  (A) = 6/BL, 12/TA.
00664  M00S00342.comppdi +++|*                      BL = BML MESSAGE LENGTH.
00665  M00S00343.comppdi +++|*                      TA = DAYFILE MESSAGE TABLE ADDRESS.
Line S00344 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00666  M01S00344.271l716 ---|*                (FN) BIT 0 SET IF ISSUE MESSAGE TO ERRLOG.
Line S00223 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00667  M01S00223.271l716 +++|*                (DF) BIT 0 SET IF ISSUE MESSAGE TO ERRLOG.
00668  M00S00345.comppdi +++|*                     BIT 1 SET IF ISSUE MESSAGE TO BML.
00669  M00S00346.comppdi +++|*
00670  M00S00347.comppdi +++|*         EXIT   MESSAGE ISSUED TO ERRLOG AND/OR BML.
00671  M00S00348.comppdi +++|*
Line S00349 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00672  M01S00349.271l716 ---|*         USES   CM+1, FN+1.
Line S00224 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00673  M01S00224.271l716 +++|*         USES   TA, CM - CM+4.
00674  M00S00350.comppdi +++|*
00675  M00S00351.comppdi +++|*         CALLS  DFM.
00676  M00S00352.comppdi +++|
00677  M00S00353.comppdi +++|
00678  M00S00354.comppdi +++| PDM      SUBR               ENTRY/EXIT
Line S00355 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00679  M01S00355.271l716 ---|          STD    FN+1        SAVE DAYFILE MESSAGE TABLE ADDRESS
Line S00225 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00680  M01S00225.271l716 +++|          STD    TA
00681  M00S00356.comppdi +++|          SHN    -14
00682  M00S00357.comppdi +++|          STD    CM+1        SET BML MESSAGE LENGTH
Line S00358 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00683  M01S00358.271l716 ---|          LDD    FN
Line S00226 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00684  M01S00226.271l716 +++|          LDD    DF
00685  M00S00359.comppdi +++|          SHN    21-1
00686  M00S00360.comppdi +++|          PJN    PDM1        IF BML MESSAGE NOT WANTED
00687  M00S00361.comppdi +++|          LDC    BMLN
Line S00362 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00688  M01S00362.271l716 ---|          ADM    1,FN+1
00689  M01S00363.271l716 ---|          RJM    DFM
00690  M01S00364.271l716 ---| PDM1     LDD    FN
Line S00227 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00691  M01S00227.271l716 +++|          LMM    1,TA
00692  M01S00228.271l716 +++|          RJM    DFM
00693  M01S00229.271l716 +++| PDM1     LDD    DF
Line S00365 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00694  M01S00365.271l716 ---|          SHN    21-0
00695  M01S00366.271l716 ---|          PJN    PDMX        IF ERRLOG MESSAGE NOT WANTED
00696  M01S00367.271l716 ---|          LDC    ERLN
Line S00230 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00697  M01S00230.271l716 +++|          LPN    1
00698  M01S00231.271l716 +++|          ZJN    PDMX        IF ERRLOG MESSAGE NOT WANTED
00699  M01S00232.271l716 +++|          SHN    16-0
00700  M01S00233.271l716 +++|          ERRNZ  ERLN-40000  CODE DEPENDS ON VALUE
Line S00368 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00701  M01S00368.271l716 ---|          ADI    FN+1
Line S00234 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00702  M01S00234.271l716 +++|          LMI    TA
00703  M00S00369.comppdi +++|          RJM    DFM
00704  M00S00370.comppdi +++|          UJN    PDMX        RETURN
Line S00235 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00705  M01S00235.271l716 +++| RSE      SPACE  4,10
00706  M01S00236.271l716 +++|**        RSE - READ SELECT EST ENTRY.
00707  M01S00237.271l716 +++|*
00708  M01S00238.271l716 +++|*         ENTRY  (T5) = EST ORDINAL.
00709  M01S00239.271l716 +++|*
00710  M01S00240.271l716 +++|*         EXIT   (A) = 0 IF DEVICE SELECTED.
00711  M01S00241.271l716 +++|*                (AI) = ALGORITHM INDEX.
00712  M01S00242.271l716 +++|*                (CN - CN+4) = EST ENTRY.
00713  M01S00243.271l716 +++|*                (UL - UL+4) = *DDLL* WORD OF MST.
00714  M01S00244.271l716 +++|*
00715  M01S00245.271l716 +++|*         MACROS SFA.
00716  M01S00246.271l716 +++|
00717  M01S00247.271l716 +++|
00718  M01S00248.271l716 +++| RSE1     LDN    1           INDICATE DEVICE NOT SELECTED
00719  M01S00249.271l716 +++|
00720  M01S00250.271l716 +++| RSE      SUBR               ENTRY/EXIT
00721  M01S00251.271l716 +++|          SFA    EST,T5
00722  M01S00252.271l716 +++|          ADK    EQDE        FETCH EST ENTRY
00723  M01S00253.271l716 +++|          CRD    CN
00724  M01S00254.271l716 +++|          LDD    CN          CHECK DEVICE TYPE
00725  M01S00255.271l716 +++|          SHN    21-13
00726  M01S00256.271l716 +++|          PJN    RSE1        IF NOT MASS STORAGE
00727  M01S00257.271l716 +++|          SHN    13-21
00728  M01S00258.271l716 +++|          LPN    3           CHECK DEVICE STATE
00729  M01S00259.271l716 +++|          LMN    3
00730  M01S00260.271l716 +++|          ZJN    RSE1        IF DEVICE DOWN
00731  M01S00261.271l716 +++|          LDD    CN+4
00732  M01S00262.271l716 +++|          SHN    3
00733  M01S00263.271l716 +++|          ADN    DILL        GET ALGORITHM INDEX FROM MST
00734  M01S00264.271l716 +++|          CRD    AI-4
00735  M01S00265.271l716 +++|          ADN    DDLL-DILL   READ UNIT LIST
00736  M01S00266.271l716 +++|          CRD    UL
Line S00267 Modification History
M01 (Added by) 271l716
M02 (Removed by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00267.272l774 ---|          LDD    UL          SET UNIT COUNT
00738  M02S00268.272l774 ---|          LPC    2007
00739  M02S00269.272l774 ---|          STD    UL          INCLUDE NULL EQUIPMENT INDICATOR
00740  M02S00270.272l774 ---|          SHN    -3
Line S00053 Modification History
M01 (Added by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00741  M01S00053.272l774 +++|          LDD    UL          SET UNIT COUNT AND CONTROLLER NUMBER
00742  M01S00054.272l774 +++|          SCN    70
00743  M01S00055.272l774 +++|          STD    UL
00744  M01S00056.272l774 +++|          LPC    2000        CHECK FOR *NULL EQUIPMENT* BIT
Line S00271 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00745  M01S00271.271l716 +++|          UJP    RSEX        RETURN
Line S00371 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00746  M01S00371.271l716 ---|
Line S00272 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00747  M01S00272.271l716 +++|          SPACE  4,10
00748  M00S00372.comppdi +++|*         COMMON DECKS.
00749  M00S00373.comppdi +++|
00750  M00S00374.comppdi +++|*CALL     COMPSDR
00751  M00S00375.comppdi +++| COMPPDI  SPACE  4,10
00752  M00S00376.comppdi +++|          IF     -DEF,QUAL$
00753  M00S00377.comppdi +++|          QUAL   *
00754  M00S00378.comppdi +++| IME      EQU    /COMPPDI/IME
00755  M00S00379.comppdi +++|          ENDIF
00756  M00S00380.comppdi +++|          ENDX
cdc/nos2.source/opl.opl871/common/comppdi.txt ยท Last modified: by 127.0.0.1