Common COMPVID

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compvid +++|          CTEXT  COMPVID - VALIDATE LOGICAL ID.
00002  M01S00002.compvid +++|          SPACE  4,10
00003  M01S00003.compvid +++|          IF -DEF,QUAL$,1
00004  M01S00004.compvid +++|          QUAL   COMPVID
00005  M01S00005.compvid +++|          BASE   MIXED

Line S00006 Modification History
`M01` (Added by)	`compvid`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP.  1982.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.compvid +++| VID      SPACE  4,10
00009  M01S00008.compvid +++|***       VID - VALIDATE LOGICAL ID.
00010  M01S00009.compvid +++|*         C. R. LUND.        81/10/23.
00011  M01S00010.compvid +++|*         J. HOLLISTER.      83/12/20.
00012  M01S00011.compvid +++| VID      SPACE  4,10
00013  M01S00012.compvid +++|***       *VID* VALIDATES A LOGICAL ID AND RETURNS THE ATTRIBUTES.
00014  M01S00013.compvid +++|*
00015  M01S00014.compvid +++|*         ENTRY  (A) = LID.
00016  M01S00015.compvid +++|*
00017  M01S00016.compvid +++|*         EXIT   (A) = 0, IF LID NOT FOUND.
00018  M01S00017.compvid +++|*                (A) = 6/0,1/H,1/E,1/V,1/B,1/F,7/0 IF LID FOUND.
00019  M01S00018.compvid +++|*                      H = HOST BIT FROM LIDS PID ENTRY.
00020  M01S00019.compvid +++|*                      E = ENABLE BIT.
00021  M01S00020.compvid +++|*                      V = VALIDATION BIT.
00022  M01S00021.compvid +++|*                      B = LOOPBACK BIT.
00023  M01S00022.compvid +++|*                      F = LID FOUND FLAG.
00024  M01S00023.compvid +++|*
00025  M01S00024.compvid +++|*         USES   T0 - T7, T8, CM - CM+4, UN - UN+4.
00026  M01S00025.compvid +++|
00027  M01S00026.compvid +++|
00028  M01S00027.compvid +++| VID      SUBR               ENTRY/EXIT
00029  M01S00028.compvid +++|          SHN    14          SAVE LID
00030  M01S00029.compvid +++|          STD    T7
00031  M01S00030.compvid +++|          SHN    -6
00032  M01S00031.compvid +++|          SCN    77
00033  M01S00032.compvid +++|          STD    T8
00034  M01S00033.compvid +++|          LDN    1           PRESET NEXT PID OFFSET
00035  M01S00034.compvid +++|          STD    T5
00036  M01S00035.compvid +++|          STD    T6          PRESET LID TABLE POINTER OFFSET
00037  M01S00036.compvid +++|          LDK    LIDP        GET FWA LID TABLE
00038  M01S00037.compvid +++|          CRD    T0
00039  M01S00038.compvid +++|          LDN    0           CLEAR LID ATTRIBUTES
00040  M01S00039.compvid +++|          STD    T4
00041  M01S00040.compvid +++|          SOD    T2          SUBTRACT HEADER WORD FROM TABLE LENGTH
00042  M01S00041.compvid +++|
00043  M01S00042.compvid +++|*         GET NEXT TABLE ENTRY.
00044  M01S00043.compvid +++|
00045  M01S00044.compvid +++| VID1     LDD    T0          GET NEXT TABLE ENTRY
00046  M01S00045.compvid +++|          SHN    14
00047  M01S00046.compvid +++|          LMD    T1
00048  M01S00047.compvid +++|          ADD    T6
00049  M01S00048.compvid +++|          CRD    CM
00050  M01S00049.compvid +++|          ADN    1
00051  M01S00050.compvid +++|          CRD    UN
00052  M01S00051.compvid +++|          LDD    T6          CHECK IF PID ENTRY
00053  M01S00052.compvid +++|          SBD    T5
00054  M01S00053.compvid +++|          ZJN    VID4        IF PID ENTRY
00055  M01S00054.compvid +++|
00056  M01S00055.compvid +++|*         PROCESS LID.
00057  M01S00056.compvid +++|
00058  M01S00057.compvid +++| VID2     LDD    CM+1        CHECK LID
00059  M01S00058.compvid +++|          LMD    T8
00060  M01S00059.compvid +++|          SHN    6
00061  M01S00060.compvid +++|          LMD    CM
00062  M01S00061.compvid +++|          LMD    T7
00063  M01S00062.compvid +++|          ZJN    VID6        IF LID FOUND
00064  M01S00063.compvid +++|
00065  M01S00064.compvid +++|*         GET NEXT LID.
00066  M01S00065.compvid +++|
00067  M01S00066.compvid +++| VID3     AOD    T6          INCREMENT LID TABLE POINTER OFFSET
00068  M01S00067.compvid +++|          SOD    T2          DECREMENT COUNT OF WORDS LEFT IN TABLE
00069  M01S00068.compvid +++|          NJN    VID1        IF NOT END OF TABLE
00070  M01S00069.compvid +++| VID3.1   LDD    T4          GET ATTRIBUTES
00071  M01S00070.compvid +++|          SHN    6
00072  M01S00071.compvid +++|          LJM    VIDX        RETURN
00073  M01S00072.compvid +++|
00074  M01S00073.compvid +++|*         PROCESS PID.
00075  M01S00074.compvid +++|
00076  M01S00075.compvid +++| VID4     LDD    T6          GET POINTER TO NEXT PID
00077  M01S00076.compvid +++|          ADD    UN+4
00078  M01S00077.compvid +++|          STD    T5
00079  M01S00078.compvid +++|          LDD    CM+1        GET PID ATTRIBUTES
00080  M01S00079.compvid +++|          LPN    50          IGNORE PID ENABLE BIT
00081  M01S00080.compvid +++|          STD    T3
00082  M01S00081.compvid +++|          LDN    2           SKIP TO END OF PID ENTRY
00083  M01S00082.compvid +++|          RAD    T6
00084  M01S00083.compvid +++|          LCN    2           DECREMENT COUNT OF WORDS LEFT IN TABLE
00085  M01S00084.compvid +++|          RAD    T2
00086  M01S00085.compvid +++| VID5     UJN    VID3        CONTINUE
00087  M01S00086.compvid +++|
00088  M01S00087.compvid +++|*         MERGE LID ATTRIBUTES WITH PID ATTRIBUTES AND
00089  M01S00088.compvid +++|*         PREVIOUSLY FOUND ATTRIBUTES.
00090  M01S00089.compvid +++|
00091  M01S00090.compvid +++| VID6     LDD    CM+2        CHECK LID ENABLE ATTRIBUTE
00092  M01S00091.compvid +++|          SHN    21-12
00093  M01S00092.compvid +++|          PJN    VID7        IF STORE AND FORWARD BIT NOT SET
00094  M01S00093.compvid +++|          LDN    0           IGNORE PID HOST AND VALIDATION BITS
00095  M01S00094.compvid +++|          STD    T3
00096  M01S00095.compvid +++|          LDD    CM+2        GET LID ATTRIBUTES
00097  M01S00096.compvid +++|          SHN    -6
00098  M01S00097.compvid +++|          LPN    14
00099  M01S00098.compvid +++|          UJN    VID8        MERGE WITH PID ATTRIBUTES
00100  M01S00099.compvid +++|
00101  M01S00100.compvid +++| VID7     SHN    -6-21+12+22 GET LID ATTRIBUTES
00102  M01S00101.compvid +++|          LPN    4
00103  M01S00102.compvid +++| VID8     RAD    T3          MERGE WITH PID ATTRIBUTES
00104  M01S00103.compvid +++|          LDD    CM+2        MERGE LID ENABLE BIT WITH ATTRIBUTES
00105  M01S00104.compvid +++|          SHN    -7
00106  M01S00105.compvid +++|          LPN    20
00107  M01S00106.compvid +++|          RAD    T3
00108  M01S00107.compvid +++|          ADC    SCNI        MERGE ATTRIBUTES WITH PREVIOUS ATTRIBUTES
00109  M01S00108.compvid +++|          STM    VIDA
00110  M01S00109.compvid +++|          LDD    T4
00111  M01S00110.compvid +++| VIDA     SCN    **
00112  M01S00111.compvid +++|          LMD    T3
00113  M01S00112.compvid +++|          SCN    2           SET LID FOUND FLAG
00114  M01S00113.compvid +++|          LMN    2
00115  M01S00114.compvid +++|          STD    T4
00116  M01S00115.compvid +++|          UJP    VID5        PROCESS NEXT TABLE WORD
00117  M01S00116.compvid +++|          SPACE  4,10
00118  M01S00117.compvid +++|          BASE   *
00119  M01S00118.compvid +++| QUAL$    IF     -DEF,QUAL$
00120  M01S00119.compvid +++|          QUAL   *
00121  M01S00120.compvid +++| VID      EQU    /COMPVID/VID
00122  M01S00121.compvid +++| QUAL$    ENDIF
00123  M01S00122.compvid +++|          ENDX