User Tools

Site Tools


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

Common COMPPDI

8 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comppdi +++|          CTEXT  COMPPDI - PROCESS DISK INFORMATION.
00002  M01S00002.comppdi +++| COMPPDI  SPACE  4,10
00003  M01S00003.comppdi +++| QUAL$    IF     -DEF,QUAL$,1
00004  M01S00004.comppdi +++|          QUAL   COMPPDI
Line S00005 Modification History
M01 (Added by) comppdi
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00005  M02S00005.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1983.
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M01S00006.comppdi +++| COMPPDI  SPACE  4,10
00008  M01S00007.comppdi +++|***       PDI - PROCESS DISK INFORMATION.
00009  M01S00008.comppdi +++|*         T. J. CALLAGHAN.   83/03/09.
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 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00021  M02S00012.272l774 ---|**        CCH - CHECK FOR CONCURRENT CHANNEL.
00022  M01S00001.272l774 +++|**        CCH - CHECK FOR AND PROCESS CONCURRENT CHANNEL.
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 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00030  M02S00020.272l774 ---|*         USES   T2, T4, UL.
00031  M01S00002.272l774 +++|*         USES   T2, T4.
00032  M01S00021.271l716 +++|*
Line S00022 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00033  M02S00022.272l774 ---|*         CALLS  CCM, FDC, RSE, SDR.
00034  M01S00003.272l774 +++|*         CALLS  CCC, FDC, RSE, SDR.
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 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00045  M02S00033.272l774 ---|          SBN    1           CLEAR CONTROL MODULE TABLE
00046  M01S00004.272l774 +++|          SBN    1           CLEAR CONTROLLER TABLE
00047  M01S00034.271l716 +++|          CRM    TCMD+3,ON
Line S00035 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00035.272l774 ---| CCH1     RJM    CCM         CHECK CONTROL MODULE TABLE
Line S00036 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00049  M02S00036.272l774 ---|          NJN    CCH2        IF MODULE ALREADY PROCESSED
00050  M01S00005.272l774 +++| CCH1     RJM    CCC         CHECK CONCURRENT CHANNEL CONTROLLER
00051  M01S00006.272l774 +++|          NJN    CCH3        IF CONTROLLER ALREADY PROCESSED
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 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00056  M02S00041.272l774 ---| CCH2     SOD    UL
Line S00042 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00042.272l774 ---|          PJN    CCH1        IF MORE UNITS TO CHECK
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
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  M01S00009.comppdi +++| CCM      SPACE  4,10
00087  M01S00010.comppdi +++|**        CCM - CHECK IF CONTROL MODULE MESSAGE ALREADY ISSUED.
00088  M01S00011.comppdi +++|*
Line S00012 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00089  M02S00012.271l716 ---|*         ENTRY  (A) = LOGICAL UNIT NUMBER WHOSE CONTROL MODULE IS
Line S00013 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00090  M02S00013.271l716 ---|*                      TO BE CHECKED.
Line S00014 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00091  M02S00014.271l716 ---|*                (CCMA- CCMA+4) = MST WORD *DDLL*.
Line S00015 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00015.271l716 ---|*
Line S00016 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00093  M02S00016.271l716 ---|*         EXIT   (A) = 0, IF CONTROL MODULE REVISION NUMBER MESSAGE NOT
Line S00017 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00094  M02S00017.271l716 ---|*                      YET ISSUED.
00095  M01S00050.271l716 +++|*         ENTRY  (UL - UL+4) = *DDLL* WORD FROM MST.
00096  M01S00018.comppdi +++|*
00097  M01S00028.272l774 +++|*         EXIT   (A) = 0, IF MESSAGE NOT YET ISSUED.
00098  M01S00029.272l774 +++|*
00099  M01S00019.comppdi +++|*         USES   T1.
00100  M01S00020.comppdi +++|
00101  M01S00021.comppdi +++|
00102  M01S00022.comppdi +++| CCM      SUBR               ENTRY/EXIT
Line S00023 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00023.271l716 ---|          SHN    21-0
Line S00024 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00024.271l716 ---|          LMN    3
Line S00025 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00025.271l716 ---|          ADK    CCMA+1
Line S00026 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00026.271l716 ---|          STD    T1
Line S00027 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00027.271l716 ---|          MJN    CCM1        IF UNIT NUMBER IN UPPER HALF OF BYTE
Line S00028 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00028.271l716 ---|          LDI    T1
Line S00029 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00029.271l716 ---|          SHN    -3
Line S00030 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00030.271l716 ---|          LPN    7
Line S00031 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00031.271l716 ---|          UJN    CCM2        LOOK UP CM EQUIPMENT NUMBER IN TABLE
Line S00032 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00032.271l716 ---|
Line S00033 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00033.271l716 ---| CCM1     LDI    T1          EXTRACT CM EQUIPMENT NUMBER
Line S00034 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00034.271l716 ---|          SHN    -11
Line S00035 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00035.271l716 ---| CCM2     ADC    TCMD
Line S00036 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00036.271l716 ---|          STD    T1
Line S00037 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00037.271l716 ---|          LDI    T1
Line S00038 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00038.271l716 ---|          NJN    CCM3        IF REVISION NUMBER MESSAGE ALREADY ISSUED
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  M01S00039.comppdi +++|          AOI    T1
00138  M01S00040.comppdi +++|          LDN    0
Line S00041 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00041.271l716 ---| CCM3     UJN    CCMX        EXIT
Line S00042 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00042.271l716 ---|
Line S00043 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00043.271l716 ---| CCMA     BSS    5           MST WORD *DDLL*
00142  M01S00069.271l716 +++|          UJN    CCMX        RETURN
00143  M01S00044.comppdi +++| TCMD     SPACE  4,10
00144  M01S00045.comppdi +++|**        TCMD - TABLE OF CONTROL MODULE ENTRIES.
00145  M01S00046.comppdi +++|*
00146  M01S00047.comppdi +++|*         A ONE BYTE ENTRY EXISTS FOR EACH POSSIBLE CONTROL MODULE.  IT
00147  M01S00048.comppdi +++|*         IS NON-ZERO IF A FIRMWARE REVISION NUMBER MESSAGE HAS ALREADY
00148  M01S00049.comppdi +++|*         BEEN ISSUED FOR THE CORRESPONDING CONTROL MODULE.
00149  M01S00050.comppdi +++|
00150  M01S00051.comppdi +++| TCMD     BSSZ   10
00151  M01S00052.comppdi +++| ECD      SPACE  4,10
00152  M01S00053.comppdi +++|***       ECD - ENTER CHANNEL DESCRIPTION IN TABLE.
00153  M01S00054.comppdi +++|*
00154  M01S00055.comppdi +++|*         ENTRY  (A) = CHANNEL DESCRIPTION WORD.
00155  M01S00056.comppdi +++|*
Line S00057 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00057.271l716 ---|*         EXIT   (A) .NE. 0 IF ENTRY PUT IN TABLE.
Line S00058 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00058.271l716 ---|*                    = 0 IF ENTRY ALREADY IN TABLE.
Line S00059 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00059.271l716 ---|*                ENTRY PUT IN TABLE IF NOT ALREADY THERE.
00159  M01S00070.271l716 +++|*         EXIT   (A) = CHANNEL STATE + CHANNEL NUMBER.
00160  M01S00071.271l716 +++|*                    = 0 IF CHANNEL DESCRIPTOR IN TABLE.
00161  M01S00060.comppdi +++|*
00162  M01S00061.comppdi +++|*         USES   T1, T2.
00163  M01S00062.comppdi +++|
00164  M01S00063.comppdi +++|
Line S00064 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00064.271l716 ---| ECD2     LDI    T2          TEST FOR ENTRY IN TABLE
Line S00065 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00065.271l716 ---|          LMD    T1
Line S00066 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00066.271l716 ---|          ZJN    ECDX        IF ENTRY IN TABLE
Line S00067 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00067.271l716 ---| ECD3     AOD    T2
Line S00068 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00068.271l716 ---|          ADC    -TCHD       CHECK TABLE FULL
Line S00069 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00069.271l716 ---| ECDA     EQU    *-1
Line S00070 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00070.271l716 ---|          NJN    ECD2        IF NOT END OF TABLE
Line S00071 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00071.271l716 ---|          SOM    ECDA
Line S00072 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00072.271l716 ---|          LDD    T1          PUT ENTRY IN TABLE
Line S00073 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00073.271l716 ---|          STI    T2
Line S00074 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00074.271l716 ---|          LDN    1           FLAG ENTRY INTO TABLE
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  M01S00075.comppdi +++|
00181  M01S00076.comppdi +++| ECD      SUBR               ENTRY/EXIT
Line S00077 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00077.271l716 ---|          STD    T0
Line S00078 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00078.271l716 ---|          LPN    77
Line S00079 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00079.271l716 ---|          STD    T1
Line S00080 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00080.271l716 ---|          LDC    TCHD-1      SET TABLE ADDRESS
Line S00081 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00081.271l716 ---|          STD    T2
Line S00082 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00082.271l716 ---|          LDD    T0          CHECK CHANNEL ATTRIBUTES
Line S00083 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00083.271l716 ---|          LPC    7000
Line S00084 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00084.271l716 ---|          LMC    4000
Line S00085 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00085.271l716 ---|          ZJN    ECD3        IF AVAILABLE CHANNEL
Line S00086 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00086.271l716 ---|          LDN    0
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  M01S00087.comppdi +++|          UJN    ECDX        RETURN
00200  M01S00088.comppdi +++| TCHD     SPACE  4,10
00201  M01S00089.comppdi +++|**        TCHD - TABLE OF CHANNEL DESCRIPTIONS.
Line S00090 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00090.271l716 ---|*
Line S00091 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00091.271l716 ---|*         ONE WORD ENTRY FOR EACH CHANNEL FOR WHICH A FIRMWARE
Line S00092 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00092.271l716 ---|*         REVISION NUMBER MESSAGE HAS BEEN ISSUED.
Line S00093 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00093.271l716 ---|*
Line S00094 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00094.271l716 ---|*
Line S00095 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00095.271l716 ---|*T TCHD   6/, 6/ CHANNEL
Figure TCHD

05611 CHANNEL

00208  M01S00096.comppdi +++|
00209  M01S00097.comppdi +++|
00210  M01S00098.comppdi +++| TCHD     BSS    5*CTALL     CHANNEL DESCRIPTORS
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  M01S00099.comppdi +++| IME      SPACE  4,20
00243  M01S00100.comppdi +++|**        IME - IDENTIFY MASS STORAGE EQUIPMENT.
00244  M01S00101.comppdi +++|*
00245  M01S00102.comppdi +++|*         ENTRY  (A) = DAYFILE FLAG.
00246  M01S00103.comppdi +++|*                (LA) = MASS STORAGE IDENT LOAD ADDRESS.
00247  M01S00104.comppdi +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
Line S00105 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00105.271l716 ---|*                DAYFILES INITIALIZED.
00249  M01S00106.comppdi +++|*
00250  M01S00107.comppdi +++|*         EXIT   PACK SERIAL NUMBER IDENTIFICATION MESSAGES ISSUED TO
00251  M01S00108.comppdi +++|*                THE ERROR LOG AND/OR BML FOR ALL *LDAM* TYPE MASS
00252  M01S00109.comppdi +++|*                STORAGE EQUIPMENTS THAT ARE ON AND AVAILABLE.
00253  M01S00110.comppdi +++|*                FIRMWARE REVISION NUMBER IDENTIFICATION MESSAGES
00254  M01S00111.comppdi +++|*                ISSUED TO THE ERROR LOG AND/OR BML FOR ALL CHANNELS
00255  M01S00112.comppdi +++|*                ASSOCIATED WITH *LDAM* EQUIPMENTS.
00256  M01S00113.comppdi +++|*
Line S00114 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00114.271l716 ---|*         USES   FN.
Line S00115 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00115.271l716 ---|*
Line S00116 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00116.271l716 ---|*         CALLS  LFR, LPS, PME.
00260  M01S00114.271l716 +++|*         USES   DF.
00261  M01S00115.271l716 +++|*
00262  M01S00116.271l716 +++|*         CALLS  PME.
00263  M01S00117.comppdi +++|
00264  M01S00118.comppdi +++|
00265  M01S00119.comppdi +++| IME      SUBR               ENTRY/EXIT
Line S00120 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00120.271l716 ---|          STD    FN          SAVE DAYFILE FLAGS
00267  M01S00117.271l716 +++|          STD    DF
00268  M01S00121.comppdi +++|          LDC    LFR         LIST FIRMWARE REVISION NUMBERS
00269  M01S00122.comppdi +++|          RJM    PME
Line S00123 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00123.271l716 ---|          LDN    PSNI        ENABLE BUFFERED DEVICE PROCESSING
Line S00124 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00124.271l716 ---|          STM    PMEA
00272  M01S00125.comppdi +++|          LDC    LPS         LIST PACK SERIAL NUMBERS
00273  M01S00126.comppdi +++|          RJM    PME
00274  M01S00127.comppdi +++|          UJN    IMEX        EXIT
00275  M01S00128.comppdi +++| LFR      SPACE  4,25
00276  M01S00129.comppdi +++|**        LFR - LIST FIRMWARE REVISION NUMBERS.
00277  M01S00130.comppdi +++|*
Line S00131 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00131.271l716 ---|*         ENTRY  (A) = 0.
Line S00132 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00132.271l716 ---|*                (T5) = ((LA)-1) = EST ORDINAL TO PROCESS.
Line S00133 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00133.271l716 ---|*                (LA) = PROCESSOR LOAD ADDRESS.
Line S00134 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00134.271l716 ---|*                (CN - CN+4) = EST ENTRY FOR EQUIPMENT.
Line S00135 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00135.271l716 ---|*                DAYFILES INITIALIZED.
Line S00136 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00136.271l716 ---|*
Line S00137 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00137.271l716 ---|*         EXIT   (T5) = EST ORDINAL RESTORED FROM ((LA)-1).
Line S00138 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00138.271l716 ---|*                FIRMWARE REVISION NUMBER IDENTIFICATION MESSAGES
Line S00139 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00139.271l716 ---|*                ISSUED TO THE ERROR LOG AND/OR BML FOR THOSE CHANNELS
Line S00140 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00140.271l716 ---|*                ASSOCIATED WITH THE EQUIPMENT WHICH HAVE NOT BEEN
Line S00141 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00141.271l716 ---|*                PREVIOUSLY IDENTIFIED.
Line S00142 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00289  M02S00142.271l716 ---|*                CHANNEL DESCRIPTIONS ENTERED IN CHANNEL DESCRIPTION
Line S00143 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00143.271l716 ---|*                TABLE (*TCHD*) TO ALLOW SUPPRESSION OF DUPLICATE
Line S00144 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00144.271l716 ---|*                MESSAGES.
Line S00145 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00145.271l716 ---|*
Line S00146 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00146.271l716 ---|*         USES   T2, T4, CM - CM+4, CN - CN+4.
Line S00147 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00294  M02S00147.271l716 ---|*
Line S00148 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00295  M02S00148.271l716 ---|*         CALLS  ECD, *0CI*, PDM, SDR.
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  M01S00149.comppdi +++|*
00306  M01S00150.comppdi +++|*         MACROS EXECUTE.
00307  M01S00151.comppdi +++|
Line S00152 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00308  M02S00152.271l716 ---| LFR10    LDN    0           SET UNIT COUNT
Line S00153 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00309  M02S00153.271l716 ---|          STD    T2
Line S00154 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00310  M02S00154.271l716 ---|          LDD    T1          SET CHANNEL IN *UTEM* REQUEST
Line S00155 Modification History
M01 (Added by) comppdi
M02 (Updated by) ns2527
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00311  M03S00155.271l716 ---|          SHN    6
Line S00156 Modification History
M01 (Added by) comppdi
M02 (Updated by) ns2527
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00312  M03S00156.271l716 ---|          LMN    10
Line S00157 Modification History
M01 (Added by) comppdi
M02 (Updated by) ns2527
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00313  M03S00157.271l716 ---|          STM    /COMPSDR/SDRF+4
Line S00158 Modification History
M01 (Added by) comppdi
M02 (Updated by) ns2527
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00314  M03S00158.271l716 ---|          LDC    /COMPSDR/SDRF  SET LIST FIRMWARE REQUEST
Line S00159 Modification History
M01 (Added by) comppdi
M02 (Updated by) ns2527
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00315  M03S00159.271l716 ---|          STM    /COMPSDR/SDRE
Line S00160 Modification History
M01 (Added by) comppdi
M02 (Updated by) ns2527
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00316  M03S00160.271l716 ---|          LDN    0
Line S00001 Modification History
M01 (Added by) ns2527
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00317  M02S00001.271l716 ---|          STM    /COMPSDR/SDRC+4+2*5
Line S00002 Modification History
M01 (Added by) ns2527
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00318  M02S00002.271l716 ---|          LDC    LFMI+4000B  SELECT LIST FIRMWARE REQUEST
Line S00161 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00319  M02S00161.271l716 ---|          RJM    SDR
Line S00162 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00320  M02S00162.271l716 ---|          UJN    LFR3        PROCESS NEXT CHANNEL
00321  M01S00163.comppdi +++|
00322  M01S00164.comppdi +++| LFR      SUBR               ENTRY/EXIT
Line S00165 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00323  M02S00165.271l716 ---|          STD    CN
Line S00166 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00324  M02S00166.271l716 ---|          LDN    CN+1        SET CHANNEL DESCRIPTOR ADDRESS
Line S00167 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00325  M02S00167.271l716 ---|          STD    CN+3
Line S00168 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00168.271l716 ---| LFR1     LDI    CN+3        ENTER CHANNEL IN TABLE
Line S00169 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00327  M02S00169.271l716 ---|          RJM    ECD
Line S00170 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00328  M02S00170.271l716 ---|          ZJN    LFR3        IF CHANNEL ALREADY IN TABLE
Line S00171 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00329  M02S00171.271l716 ---|          LDD    T1
Line S00172 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00330  M02S00172.271l716 ---|          LPN    40
Line S00173 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00331  M02S00173.271l716 ---|          NJN    LFR10       IF CONCURRENT CHANNEL
Line S00174 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00332  M02S00174.271l716 ---|          LDD    CN
Line S00175 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00333  M02S00175.271l716 ---|          NJN    LFR2        IF *0CI* ALREADY LOADED
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 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00337  M02S00130.272l774 ---|          LDD    CN+3
Line S00131 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00338  M02S00131.272l774 ---|          LMC    2RDN
Line S00132 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00339  M02S00132.272l774 ---|          NJN    LFRX        IF NOT XMD (CM3)
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
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 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00139.ppdi4   ---|          ZJN    LFR4        IF CHANNEL ALREADY IN TABLE
00354  M01S00001.ppdi4   +++|          ZJN    LFR4        IF CHANNEL DOWN, IDLE OR ALREADY IN TABLE
Line S00140 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00140.272l774 ---|          RJM    CCH
00356  M01S00037.272l774 +++|          RJM    CCH         CHECK FOR AND PROCESS CONCURRENT CHANNEL
00357  M01S00141.271l716 +++|          NJN    LFR4        IF CONCURRENT CHANNEL
00358  M01S00142.271l716 +++|          LDD    PA
00359  M01S00143.271l716 +++|          NJN    LFR3        IF *0CI* LOADED
00360  M01S00176.comppdi +++|          EXECUTE  0CI,*
00361  M01S00177.comppdi +++|          RJM    EXR         LOAD AND INITIALIZE PROCESSOR
Line S00178 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00362  M02S00178.271l716 ---|          STD    CN          SAVE MAIN PROCESSOR ADDRESS
Line S00179 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00363  M02S00179.271l716 ---| LFR2     LDI    CN+3
00364  M01S00144.271l716 +++|          STD    PA
00365  M01S00145.271l716 +++| LFR3     LDI    CD          EXTRACT CHANNEL NUMBER
00366  M01S00180.comppdi +++|          LPN    37
00367  M01S00181.comppdi +++|          STD    T4
Line S00182 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00368  M02S00182.271l716 ---|          RJM    0,CN        GET MESSAGE FOR CHANNEL
Line S00183 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00369  M02S00183.271l716 ---|          MJN    LFR3        IF MASS STORAGE ERROR
Line S00184 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00370  M02S00184.271l716 ---|          RJM    PDM         ISSUE DAYFILE MESSAGE
Line S00185 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00371  M02S00185.271l716 ---| LFR3     AOD    CN+3
Line S00186 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00372  M02S00186.271l716 ---|          LMN    CN+3
Line S00187 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00373  M02S00187.271l716 ---|          NJN    LFR1        IF ANOTHER CHANNEL TO PROCESS
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 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00380  M02S00188.271l716 ---|          LDD    CN+4
Line S00189 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00381  M02S00189.271l716 ---|          SHN    3
Line S00190 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00382  M02S00190.271l716 ---|          ADK    DILL
Line S00191 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00383  M02S00191.271l716 ---|          CRD    CM
Line S00192 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00384  M02S00192.271l716 ---|          ADK    DDLL-DILL
Line S00193 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00193.271l716 ---|          CRM    CCMA,ON
Line S00194 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00386  M02S00194.271l716 ---|          LDD    CM+4
00387  M01S00152.271l716 +++|          LDD    AI
00388  M01S00195.comppdi +++|          LPN    77
00389  M01S00196.comppdi +++|          SBN    AIIB
Line S00197 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00197.271l716 ---|          MJN    LFR4        IF NOT ISMD DEVICE
Line S00198 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00198.271l716 ---|          SBN    AIIE-AIIB
Line S00199 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00199.271l716 ---|          MJN    LFR5        IF ISMD DEVICE
Line S00200 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00200.271l716 ---| LFR4     LJM    LFRX        EXIT
Line S00201 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00394  M02S00201.271l716 ---|
Line S00202 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00395  M02S00202.271l716 ---| LFR5     LDM    CCMA
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 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00401  M02S00203.271l716 ---|          LPC    2007
Line S00204 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00402  M02S00204.271l716 ---|          STD    CN+3        SAVE UNIT COUNT
Line S00205 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00205.271l716 ---|          SHN    -3
Line S00206 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00206.271l716 ---|          NJN    LFR4        IF A NULL EQUIPMENT
Line S00207 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00207.271l716 ---|          LDD    TH
00406  M01S00158.271l716 +++| LFR6     LDD    TH          SELECT CONTROL MODULE IDENTIFICATION
00407  M01S00208.comppdi +++|          RAM    -1,LA
00408  M01S00209.comppdi +++|          EXECUTE  0CI,*
00409  M01S00210.comppdi +++|          RJM    EXR         LOAD AND INITIALIZE PROCESSOR
Line S00211 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00211.271l716 ---|          STD    CN
00411  M01S00159.271l716 +++|          STD    PA
00412  M01S00212.comppdi +++|          LDD    T5          CLEAR FUNCTION CODE
00413  M01S00213.comppdi +++|          STM    -1,LA
Line S00214 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00214.271l716 ---|          LDD    CN+3        ISSUE CONTROL MODULE MESSAGE
Line S00215 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00215.271l716 ---| LFR6     RJM    CCM
Line S00216 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00216.271l716 ---|          NJN    LFR9        IF MESSAGE ALREADY ISSUED
Line S00217 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00217.271l716 ---|          LDN    CN+1
Line S00218 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00218.271l716 ---|          STD    CN+4
Line S00219 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00219.271l716 ---| LFR7     LDI    CN+4        SELECT CHANNEL
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  M01S00220.comppdi +++|          LPN    37
00426  M01S00221.comppdi +++|          STD    T4
Line S00222 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00222.271l716 ---|          RJM    0,CN
Line S00223 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00428  M02S00223.271l716 ---|          PJN    LFR8        IF NO MASS STORAGE ERROR
Line S00224 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00429  M02S00224.271l716 ---|          AOD    CN+4
Line S00225 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00430  M02S00225.271l716 ---|          LMN    CN+3
Line S00226 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00431  M02S00226.271l716 ---|          NJN    LFR7        IF ANOTHER CHANNEL EXISTS TO TRY
Line S00227 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00227.271l716 ---|          UJN    LFR9        MOVE TO NEXT UNIT
Line S00228 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00228.271l716 ---|
Line S00229 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00229.271l716 ---| LFR8     RJM    PDM         ISSUE DAYFILE MESSAGE
Line S00230 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00230.271l716 ---| LFR9     SOD    CN+3
Line S00231 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00436  M02S00231.271l716 ---|          PJN    LFR6        IF MORE UNITS
Line S00232 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00437  M02S00232.271l716 ---|          LJM    LFRX        EXIT
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
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)
00461  M01S00001.ns2768  +++|          CON    2REG        5838 (1X ELITE)
00462  M01S00002.ns2768  +++|          CON    2REH        5838 (1XP ELITE)
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)
00475  M01S00050.272l774 +++|
00476  M01S00051.272l774 +++| TLFRL    EQU    *-TLFR      LENGTH OF TABLE
00477  M01S00233.comppdi +++| LPS      SPACE  4,20
00478  M01S00234.comppdi +++|**        LPS - LIST PACK SERIAL NUMBERS.
00479  M01S00235.comppdi +++|*
Line S00236 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00236.271l716 ---|*         ENTRY  (A) = 0.
Line S00237 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00237.271l716 ---|*                (T5) = ((LA)-1) = EST ORDINAL TO PROCESS.
Line S00238 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00238.271l716 ---|*                (LA) = PROCESSOR LOAD ADDRESS.
Line S00239 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00239.271l716 ---|*                (CN - CN+4) = EST ENTRY FOR EQUIPMENT.
Line S00240 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00240.271l716 ---|*                DAYFILES INITIALIZED.
Line S00241 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00241.271l716 ---|*
Line S00242 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00242.271l716 ---|*         EXIT   (T5) = EST ORDINAL RESTORED FROM ((LA)-1).
Line S00243 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00487  M02S00243.271l716 ---|*                PACK SERIAL NUMBER IDENTIFICATION MESSAGES ISSUED TO
Line S00244 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00488  M02S00244.271l716 ---|*                THE ERROR LOG AND/OR BML FOR ALL UNITS OF THE
Line S00245 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00489  M02S00245.271l716 ---|*                EQUIPMENT.
Line S00246 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00490  M02S00246.271l716 ---|*
Line S00247 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00491  M03S00247.271l716 ---|*         USES   T2, CM - CM+4, CN+2 - CN+4.
Line S00001 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00492  M02S00001.271l716 ---|*         USES   T2, CM - CM+4, CN - CN+4.
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  M01S00248.comppdi +++|*
00500  M01S00249.comppdi +++|*         CALLS  PDM, SDR, *0PI*.
00501  M01S00250.comppdi +++|*
00502  M01S00251.comppdi +++|*         MARCOS EXECUTE.
00503  M01S00252.comppdi +++|
00504  M01S00253.comppdi +++|
Line S00254 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00505  M02S00254.271l716 ---| LPS3     LDD    CN+3        CHECK DEVICE TYPE
Line S00255 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00506  M02S00255.271l716 ---|          LMC    2RDF
Line S00256 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00507  M02S00256.271l716 ---|          ZJN    LPS4        IF 887 (HYDRA) DEVICE
Line S00257 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00508  M02S00257.271l716 ---|          LMN    2RDH&2RDF
Line S00258 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00509  M02S00258.271l716 ---|          NJN    LPSX        IF NOT HYDRA DEVICE
Line S00259 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00510  M03S00259.271l716 ---| LPS4     LDD    CN+2
Line S00002 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00511  M02S00002.271l716 ---| LPS4     LDD    CN+4
Line S00260 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00512  M02S00260.271l716 ---|          STD    T2
Line S00261 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00513  M02S00261.271l716 ---|          LDN    LPSN        SELECT LIST PACK SERIAL NUMBER
00514  M01S00182.271l716 +++| LPS5     LDD    UL          SET UNIT COUNT
00515  M01S00052.272l774 +++|          LPN    7
00516  M01S00183.271l716 +++|          STD    T2
00517  M01S00184.271l716 +++|          LDN    LDIF        SET LIST UNIQUE ID FLAG
00518  M01S00262.comppdi +++|          RJM    SDR
00519  M01S00263.comppdi +++|
00520  M01S00264.comppdi +++| LPS      SUBR               ENTRY/EXIT
00521  M01S00265.comppdi +++|          LDD    CN
00522  M01S00266.comppdi +++|          LPC    102
00523  M01S00267.comppdi +++|          NJN    LPSX        IF UNAVAILABLE, OFF OR DOWN
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 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00536  M02S00268.271l716 ---|          LDD    CN+4
Line S00269 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00537  M02S00269.271l716 ---|          SHN    3
Line S00270 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00538  M02S00270.271l716 ---|          ADN    DDLL
Line S00271 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00539  M02S00271.271l716 ---|          CRD    CM
Line S00272 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00540  M02S00272.271l716 ---|          LDD    CM          SET UNIT COUNT
Line S00273 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00541  M02S00273.271l716 ---|          LPN    7
Line S00274 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00542  M03S00274.271l716 ---|          STD    CN+2
Line S00003 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00543  M02S00003.271l716 ---|          STD    CN+4
00544  M01S00275.comppdi +++|          LDD    CN
00545  M01S00276.comppdi +++|          SHN    21-7
Line S00277 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00546  M02S00277.271l716 ---|          PJN    LPS3        IF NOT *LDAM* DEVICE
Line S00278 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00547  M03S00278.271l716 ---|          LDD    CN+1
Line S00004 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00548  M02S00004.271l716 ---|          LDN    CN          CHECK CHANNELS
Line S00005 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00549  M02S00005.271l716 ---|          STD    CN
Line S00006 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00550  M02S00006.271l716 ---| LPS0     AOD    CN          ADVANCE CHANNELS
00551  M01S00185.271l716 +++|          PJN    LPS5        IF NOT *LDAM* DEVICE
Line S00186 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00552  M02S00186.ppdi4   ---|          LDN    CN
Line S00187 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00553  M02S00187.ppdi4   ---|          STD    CD
Line S00188 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00554  M02S00188.ppdi4   ---| LPS1     AOD    CD          ADVANCE CHANNEL BYTE ADDRESS
Line S00007 Modification History
M01 (Added by) ppdi3
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00555  M02S00007.ppdi4   ---|          LMN    CN+3
Line S00008 Modification History
M01 (Added by) ppdi3
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00556  M02S00008.ppdi4   ---|          ZJN    LPSX        IF END OF CHANNELS
Line S00009 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
M03 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00557  M03S00009.ppdi4   ---|          LDI    CN          CHECK CHANNEL
Line S00279 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
M03 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00558  M03S00279.ppdi4   ---|          SHN    21-5
Line S00280 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
M03 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00559  M03S00280.ppdi4   ---|          MJN    LPS4        IF CONCURRENT CHANNEL
Line S00189 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00189.ppdi4   ---|          LDI    CD
Line S00190 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00561  M02S00190.ppdi4   ---|          SHN    21-5
Line S00191 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00562  M02S00191.ppdi4   ---|          MJN    LPS5        IF CONCURRENT CHANNEL
Line S00010 Modification History
M01 (Added by) ppdi3
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00563  M02S00010.ppdi4   ---|          LPN    70
Line S00011 Modification History
M01 (Added by) ppdi3
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00564  M02S00011.ppdi4   ---|          LMN    40
Line S00012 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
M03 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00565  M03S00012.ppdi4   ---|          NJN    LPS0        IF UNAVAILABLE CHANNEL
Line S00281 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
M03 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00566  M03S00281.ppdi4   ---|          LDN    0
Line S00192 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00192.ppdi4   ---|          NJN    LPS1        IF UNAVAILABLE CHANNEL
Line S00193 Modification History
M01 (Added by) 271l716
M02 (Updated by) ppdi4
Seq #  *Modification Id* Act 
----------------------------+
00568  M02S00193.ppdi4   ---|*         LDN    0
00569  M01S00014.ppdi4   +++|          LDN    0
Line S00282 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
Seq #  *Modification Id* Act 
----------------------------+
00570  M02S00282.ppdi3   ---|          STD    CN+4
00571  M01S00013.ppdi3   +++|          STD    CN+2
00572  M01S00283.comppdi +++|          EXECUTE  0PI,*
00573  M01S00284.comppdi +++|          RJM    EXR         LOAD AND INITIALIZE PROCESSOR
Line S00285 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00574  M02S00285.271l716 ---|          STD    CN+3        SAVE MAIN PROCESSOR ADDRESS
Line S00286 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00575  M03S00286.271l716 ---| LPS1     LDD    CN+4        GET MESSAGE FOR A LOGICAL UNIT
Line S00014 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00576  M02S00014.271l716 ---| LPS1     LDD    CN+2        GET MESSAGE FOR A LOGICAL UNIT
Line S00287 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00577  M02S00287.271l716 ---|          RJM    0,CN+3
Line S00288 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00578  M02S00288.271l716 ---|          ZJN    LPS2        IF MASS STORAGE ERROR
Line S00289 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00579  M02S00289.271l716 ---|          RJM    PDM         PROCESS DAYFILE MESSAGE
Line S00290 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00580  M03S00290.271l716 ---| LPS2     AOD    CN+4        ADVANCE LOGICAL UNIT
Line S00291 Modification History
M01 (Added by) comppdi
M02 (Updated by) ppdi3
M03 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00581  M03S00291.271l716 ---|          SOD    CN+2        DECREMENT LOGICAL UNIT COUNT
Line S00015 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00582  M02S00015.271l716 ---| LPS2     AOD    CN+2        ADVANCE LOGICAL UNIT
Line S00016 Modification History
M01 (Added by) ppdi3
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00583  M02S00016.271l716 ---|          SOD    CN+4        DECREMENT LOGICAL UNIT COUNT
Line S00292 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00584  M02S00292.271l716 ---|          PJN    LPS1        IF MORE LOGICAL UNITS
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  M01S00293.comppdi +++|          LJM    LPSX        RETURN
00594  M01S00294.comppdi +++| PME      SPACE  4,15
00595  M01S00295.comppdi +++|**        PME - PROCESS MASS STORAGE EQUIPMENT.
00596  M01S00296.comppdi +++|*
00597  M01S00297.comppdi +++|*         ENTRY  (A) = PROCESSOR ADDRESS.
00598  M01S00298.comppdi +++|*                (LA) = MASS STORAGE IDENT LOAD ADDRESS.
00599  M01S00299.comppdi +++|*                (LO) = LAST MASS STORAGE ORDINAL + 1.
Line S00300 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00600  M02S00300.271l716 ---|*
Line S00301 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00601  M02S00301.271l716 ---|*         EXIT   PROCESSOR CALLED FOR EACH *LDAM* TYPE MASS STORAGE
Line S00302 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00302.271l716 ---|*                EQUIPMENT THAT IS AVAILABLE AND NOT DOWN.
00603  M01S00303.comppdi +++|*
Line S00304 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00304.271l716 ---|*         USES   T5, CN - CN+4.
Line S00305 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00605  M02S00305.271l716 ---|*
Line S00306 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00606  M02S00306.271l716 ---|*         CALLS  LFR, LPS.
00607  M01S00202.271l716 +++|*         USES   T1, T5.
00608  M01S00203.271l716 +++|*
00609  M01S00204.271l716 +++|*         CALLS  LFR, LPS, RSE.
00610  M01S00307.comppdi +++|*
00611  M01S00308.comppdi +++|*         MACROS SFA.
00612  M01S00309.comppdi +++|
00613  M01S00310.comppdi +++|
00614  M01S00311.comppdi +++| PME4     AOM    -1,LA       ADVANCE EQUIPMENT NUMBER
00615  M01S00312.comppdi +++|          STD    T5
00616  M01S00313.comppdi +++|          LMD    LO
00617  M01S00314.comppdi +++|          NJN    PME1        IF MORE EQUIPMENT TO CHECK
00618  M01S00315.comppdi +++|
00619  M01S00316.comppdi +++| PME      SUBR               ENTRY/EXIT
00620  M01S00317.comppdi +++|          STM    PMEB
00621  M01S00318.comppdi +++|          LDN    NOPE        INITIALIZE EST ORDINAL FOR SEARCH
00622  M01S00319.comppdi +++|          STD    T5
00623  M01S00320.comppdi +++|          STM    -1,LA
Line S00321 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00624  M02S00321.271l716 ---| PME1     SFA    EST,T5      READ EST ENTRY
Line S00322 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00625  M02S00322.271l716 ---|          ADK    EQDE
Line S00323 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00626  M02S00323.271l716 ---|          CRD    CN
Line S00324 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00627  M02S00324.271l716 ---|          LDD    CN          CHECK EQUIPMENT STATUS
Line S00325 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00628  M02S00325.271l716 ---|          SHN    21-13
Line S00326 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00629  M02S00326.271l716 ---|          PJN    PME4        IF NOT MASS STORAGE
Line S00327 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00630  M02S00327.271l716 ---|          SHN    13-7        CHECK TYPE
Line S00328 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00631  M02S00328.271l716 ---| PMEA     PJN    PME4        IF NOT *LDAM* DEVICE
Line S00329 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00632  M02S00329.271l716 ---|*         PSN                (PROCESSING PACK SERIAL NUMBERS)
Line S00330 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00633  M02S00330.271l716 ---|          SHN    7-21
Line S00331 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00331.271l716 ---|          LPN    3
Line S00332 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00332.271l716 ---|          LMN    3
Line S00333 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00333.271l716 ---|          ZJN    PME4        IF DEVICE IS DOWN
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 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00647  M02S00334.271l716 ---|          LDN    0           SET ENTRY CONDITION
00648  M01S00335.comppdi +++|          RJM    *           EXECUTE PROCESSOR
00649  M01S00336.comppdi +++| PMEB     EQU    *-1
00650  M01S00337.comppdi +++|          UJN    PME4        PROCESS NEXT EQUIPMENT
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 (Added by) comppdi
M02 (Updated by) ppdi3
Seq #  *Modification Id* Act 
----------------------------+
00659  M02S00338.ppdi3   ---|PDM       SPACE  4,15
00660  M01S00017.ppdi3   +++| PDM      SPACE  4,15
00661  M01S00339.comppdi +++|**        PDM - PROCESS DAYFILE MESSAGE.
00662  M01S00340.comppdi +++|*
00663  M01S00341.comppdi +++|*         ENTRY  (A) = 6/BL, 12/TA.
00664  M01S00342.comppdi +++|*                      BL = BML MESSAGE LENGTH.
00665  M01S00343.comppdi +++|*                      TA = DAYFILE MESSAGE TABLE ADDRESS.
Line S00344 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00666  M02S00344.271l716 ---|*                (FN) BIT 0 SET IF ISSUE MESSAGE TO ERRLOG.
00667  M01S00223.271l716 +++|*                (DF) BIT 0 SET IF ISSUE MESSAGE TO ERRLOG.
00668  M01S00345.comppdi +++|*                     BIT 1 SET IF ISSUE MESSAGE TO BML.
00669  M01S00346.comppdi +++|*
00670  M01S00347.comppdi +++|*         EXIT   MESSAGE ISSUED TO ERRLOG AND/OR BML.
00671  M01S00348.comppdi +++|*
Line S00349 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00672  M02S00349.271l716 ---|*         USES   CM+1, FN+1.
00673  M01S00224.271l716 +++|*         USES   TA, CM - CM+4.
00674  M01S00350.comppdi +++|*
00675  M01S00351.comppdi +++|*         CALLS  DFM.
00676  M01S00352.comppdi +++|
00677  M01S00353.comppdi +++|
00678  M01S00354.comppdi +++| PDM      SUBR               ENTRY/EXIT
Line S00355 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00679  M02S00355.271l716 ---|          STD    FN+1        SAVE DAYFILE MESSAGE TABLE ADDRESS
00680  M01S00225.271l716 +++|          STD    TA
00681  M01S00356.comppdi +++|          SHN    -14
00682  M01S00357.comppdi +++|          STD    CM+1        SET BML MESSAGE LENGTH
Line S00358 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00683  M02S00358.271l716 ---|          LDD    FN
00684  M01S00226.271l716 +++|          LDD    DF
00685  M01S00359.comppdi +++|          SHN    21-1
00686  M01S00360.comppdi +++|          PJN    PDM1        IF BML MESSAGE NOT WANTED
00687  M01S00361.comppdi +++|          LDC    BMLN
Line S00362 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00688  M02S00362.271l716 ---|          ADM    1,FN+1
Line S00363 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00689  M02S00363.271l716 ---|          RJM    DFM
Line S00364 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00690  M02S00364.271l716 ---| PDM1     LDD    FN
00691  M01S00227.271l716 +++|          LMM    1,TA
00692  M01S00228.271l716 +++|          RJM    DFM
00693  M01S00229.271l716 +++| PDM1     LDD    DF
Line S00365 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00694  M02S00365.271l716 ---|          SHN    21-0
Line S00366 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00366.271l716 ---|          PJN    PDMX        IF ERRLOG MESSAGE NOT WANTED
Line S00367 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00367.271l716 ---|          LDC    ERLN
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 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00701  M02S00368.271l716 ---|          ADI    FN+1
00702  M01S00234.271l716 +++|          LMI    TA
00703  M01S00369.comppdi +++|          RJM    DFM
00704  M01S00370.comppdi +++|          UJN    PDMX        RETURN
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 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00737  M02S00267.272l774 ---|          LDD    UL          SET UNIT COUNT
Line S00268 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00738  M02S00268.272l774 ---|          LPC    2007
Line S00269 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00739  M02S00269.272l774 ---|          STD    UL          INCLUDE NULL EQUIPMENT INDICATOR
Line S00270 Modification History
M01 (Added by) 271l716
M02 (Updated by) 272l774
Seq #  *Modification Id* Act 
----------------------------+
00740  M02S00270.272l774 ---|          SHN    -3
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
00745  M01S00271.271l716 +++|          UJP    RSEX        RETURN
Line S00371 Modification History
M01 (Added by) comppdi
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00746  M02S00371.271l716 ---|
00747  M01S00272.271l716 +++|          SPACE  4,10
00748  M01S00372.comppdi +++|*         COMMON DECKS.
00749  M01S00373.comppdi +++|
00750  M01S00374.comppdi +++|*CALL     COMPSDR
00751  M01S00375.comppdi +++| COMPPDI  SPACE  4,10
00752  M01S00376.comppdi +++|          IF     -DEF,QUAL$
00753  M01S00377.comppdi +++|          QUAL   *
00754  M01S00378.comppdi +++| IME      EQU    /COMPPDI/IME
00755  M01S00379.comppdi +++|          ENDIF
00756  M01S00380.comppdi +++|          ENDX
cdc/nos2.source/opl.opl871/common/comppdi.txt ยท Last modified: by 127.0.0.1