Common COMPVID

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compvid +++|          CTEXT  COMPVID - VALIDATE LOGICAL ID.
00002  M00S00002.compvid +++|          SPACE  4,10
00003  M00S00003.compvid +++|          IF -DEF,QUAL$,1
00004  M00S00004.compvid +++|          QUAL   COMPVID
00005  M00S00005.compvid +++|          BASE   MIXED

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP.  1982.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compvid +++| VID      SPACE  4,10
00009  M00S00008.compvid +++|***       VID - VALIDATE LOGICAL ID.
00010  M00S00009.compvid +++|*         C. R. LUND.        81/10/23.
00011  M00S00010.compvid +++|*         J. HOLLISTER.      83/12/20.
00012  M00S00011.compvid +++| VID      SPACE  4,10
00013  M00S00012.compvid +++|***       *VID* VALIDATES A LOGICAL ID AND RETURNS THE ATTRIBUTES.
00014  M00S00013.compvid +++|*
00015  M00S00014.compvid +++|*         ENTRY  (A) = LID.
00016  M00S00015.compvid +++|*
00017  M00S00016.compvid +++|*         EXIT   (A) = 0, IF LID NOT FOUND.
00018  M00S00017.compvid +++|*                (A) = 6/0,1/H,1/E,1/V,1/B,1/F,7/0 IF LID FOUND.
00019  M00S00018.compvid +++|*                      H = HOST BIT FROM LIDS PID ENTRY.
00020  M00S00019.compvid +++|*                      E = ENABLE BIT.
00021  M00S00020.compvid +++|*                      V = VALIDATION BIT.
00022  M00S00021.compvid +++|*                      B = LOOPBACK BIT.
00023  M00S00022.compvid +++|*                      F = LID FOUND FLAG.
00024  M00S00023.compvid +++|*
00025  M00S00024.compvid +++|*         USES   T0 - T7, T8, CM - CM+4, UN - UN+4.
00026  M00S00025.compvid +++|
00027  M00S00026.compvid +++|
00028  M00S00027.compvid +++| VID      SUBR               ENTRY/EXIT
00029  M00S00028.compvid +++|          SHN    14          SAVE LID
00030  M00S00029.compvid +++|          STD    T7
00031  M00S00030.compvid +++|          SHN    -6
00032  M00S00031.compvid +++|          SCN    77
00033  M00S00032.compvid +++|          STD    T8
00034  M00S00033.compvid +++|          LDN    1           PRESET NEXT PID OFFSET
00035  M00S00034.compvid +++|          STD    T5
00036  M00S00035.compvid +++|          STD    T6          PRESET LID TABLE POINTER OFFSET
00037  M00S00036.compvid +++|          LDK    LIDP        GET FWA LID TABLE
00038  M00S00037.compvid +++|          CRD    T0
00039  M00S00038.compvid +++|          LDN    0           CLEAR LID ATTRIBUTES
00040  M00S00039.compvid +++|          STD    T4
00041  M00S00040.compvid +++|          SOD    T2          SUBTRACT HEADER WORD FROM TABLE LENGTH
00042  M00S00041.compvid +++|
00043  M00S00042.compvid +++|*         GET NEXT TABLE ENTRY.
00044  M00S00043.compvid +++|
00045  M00S00044.compvid +++| VID1     LDD    T0          GET NEXT TABLE ENTRY
00046  M00S00045.compvid +++|          SHN    14
00047  M00S00046.compvid +++|          LMD    T1
00048  M00S00047.compvid +++|          ADD    T6
00049  M00S00048.compvid +++|          CRD    CM
00050  M00S00049.compvid +++|          ADN    1
00051  M00S00050.compvid +++|          CRD    UN
00052  M00S00051.compvid +++|          LDD    T6          CHECK IF PID ENTRY
00053  M00S00052.compvid +++|          SBD    T5
00054  M00S00053.compvid +++|          ZJN    VID4        IF PID ENTRY
00055  M00S00054.compvid +++|
00056  M00S00055.compvid +++|*         PROCESS LID.
00057  M00S00056.compvid +++|
00058  M00S00057.compvid +++| VID2     LDD    CM+1        CHECK LID
00059  M00S00058.compvid +++|          LMD    T8
00060  M00S00059.compvid +++|          SHN    6
00061  M00S00060.compvid +++|          LMD    CM
00062  M00S00061.compvid +++|          LMD    T7
00063  M00S00062.compvid +++|          ZJN    VID6        IF LID FOUND
00064  M00S00063.compvid +++|
00065  M00S00064.compvid +++|*         GET NEXT LID.
00066  M00S00065.compvid +++|
00067  M00S00066.compvid +++| VID3     AOD    T6          INCREMENT LID TABLE POINTER OFFSET
00068  M00S00067.compvid +++|          SOD    T2          DECREMENT COUNT OF WORDS LEFT IN TABLE
00069  M00S00068.compvid +++|          NJN    VID1        IF NOT END OF TABLE
00070  M00S00069.compvid +++| VID3.1   LDD    T4          GET ATTRIBUTES
00071  M00S00070.compvid +++|          SHN    6
00072  M00S00071.compvid +++|          LJM    VIDX        RETURN
00073  M00S00072.compvid +++|
00074  M00S00073.compvid +++|*         PROCESS PID.
00075  M00S00074.compvid +++|
00076  M00S00075.compvid +++| VID4     LDD    T6          GET POINTER TO NEXT PID
00077  M00S00076.compvid +++|          ADD    UN+4
00078  M00S00077.compvid +++|          STD    T5
00079  M00S00078.compvid +++|          LDD    CM+1        GET PID ATTRIBUTES
00080  M00S00079.compvid +++|          LPN    50          IGNORE PID ENABLE BIT
00081  M00S00080.compvid +++|          STD    T3
00082  M00S00081.compvid +++|          LDN    2           SKIP TO END OF PID ENTRY
00083  M00S00082.compvid +++|          RAD    T6
00084  M00S00083.compvid +++|          LCN    2           DECREMENT COUNT OF WORDS LEFT IN TABLE
00085  M00S00084.compvid +++|          RAD    T2
00086  M00S00085.compvid +++| VID5     UJN    VID3        CONTINUE
00087  M00S00086.compvid +++|
00088  M00S00087.compvid +++|*         MERGE LID ATTRIBUTES WITH PID ATTRIBUTES AND
00089  M00S00088.compvid +++|*         PREVIOUSLY FOUND ATTRIBUTES.
00090  M00S00089.compvid +++|
00091  M00S00090.compvid +++| VID6     LDD    CM+2        CHECK LID ENABLE ATTRIBUTE
00092  M00S00091.compvid +++|          SHN    21-12
00093  M00S00092.compvid +++|          PJN    VID7        IF STORE AND FORWARD BIT NOT SET
00094  M00S00093.compvid +++|          LDN    0           IGNORE PID HOST AND VALIDATION BITS
00095  M00S00094.compvid +++|          STD    T3
00096  M00S00095.compvid +++|          LDD    CM+2        GET LID ATTRIBUTES
00097  M00S00096.compvid +++|          SHN    -6
00098  M00S00097.compvid +++|          LPN    14
00099  M00S00098.compvid +++|          UJN    VID8        MERGE WITH PID ATTRIBUTES
00100  M00S00099.compvid +++|
00101  M00S00100.compvid +++| VID7     SHN    -6-21+12+22 GET LID ATTRIBUTES
00102  M00S00101.compvid +++|          LPN    4
00103  M00S00102.compvid +++| VID8     RAD    T3          MERGE WITH PID ATTRIBUTES
00104  M00S00103.compvid +++|          LDD    CM+2        MERGE LID ENABLE BIT WITH ATTRIBUTES
00105  M00S00104.compvid +++|          SHN    -7
00106  M00S00105.compvid +++|          LPN    20
00107  M00S00106.compvid +++|          RAD    T3
00108  M00S00107.compvid +++|          ADC    SCNI        MERGE ATTRIBUTES WITH PREVIOUS ATTRIBUTES
00109  M00S00108.compvid +++|          STM    VIDA
00110  M00S00109.compvid +++|          LDD    T4
00111  M00S00110.compvid +++| VIDA     SCN    **
00112  M00S00111.compvid +++|          LMD    T3
00113  M00S00112.compvid +++|          SCN    2           SET LID FOUND FLAG
00114  M00S00113.compvid +++|          LMN    2
00115  M00S00114.compvid +++|          STD    T4
00116  M00S00115.compvid +++|          UJP    VID5        PROCESS NEXT TABLE WORD
00117  M00S00116.compvid +++|          SPACE  4,10
00118  M00S00117.compvid +++|          BASE   *
00119  M00S00118.compvid +++| QUAL$    IF     -DEF,QUAL$
00120  M00S00119.compvid +++|          QUAL   *
00121  M00S00120.compvid +++| VID      EQU    /COMPVID/VID
00122  M00S00121.compvid +++| QUAL$    ENDIF
00123  M00S00122.compvid +++|          ENDX