Retro1.org codex

*DECK     TEXTOV
      PROC TEXTOV;
#     TITLE TEXTOV - SYMPL TEXT FOR CS OVERLAYS.                       #
 
      BEGIN    # TEXTOV # 
# 
**    TEXTOV - SYMPL TEXT FOR CS OVERLAYS.
* 
*     A. LIM.    82/06/30.
* 
*     THIS PROC GENERATES A SYMPL TEXT FOR COMPILING CS OVERLAY 
*     ROUTINES.  IT CONTAINS A COMMON BLOCK OF BASED ARRAY
*     POINTER WORD AND LENGTH FOR THE CS CROSS REFERENCE TABLES.
# 
 
 
      CONTROL STEXT;
 
# 
**    CSXRF - CS CROSS REFERENCE TABLES.
* 
*     THIS COMMON BLOCK CONTAINS A BASED ARRAY POINTER WORD AND 
*     LENGTH FOR CS CROSS REFERENCE TABLES.  THIS LABELLED COMMON 
*     HAS TO BE THE VERY FIRST BLOCK IN ANY CS OVERLAY THAT 
*     REFERENCE THESE TABLES.  IT IS SO BECAUSE AT INITIALIZATION 
*     TIME *CSIBOF* ASSUMES ITS THERE AND INITIALIZE THE POINTER
*     ADDRESS AND LENGTH ACCORDINGLY.  THE ORDER OF THE TABLES
*     DEFINED IN THIS BLOCK MUST MATCH THE TABLES DEFINED IN
*     *XRF* IN PROC *CSIBOF*.  ANY CHANGE TO THIS BLOCK OR *XRF*
*     MUST CAUSE A COMPARABLE CHANGE TO THE OTHER.  SERIOUS 
*     CIRCUMSTANCES MAY OCCUR OTHERWISE.
# 
 
 
      COMMON CSXRF; 
 
      BEGIN    # CSXRF #
 
 
 
# 
**    DEX - DEVICE CROSS REFERENCE TABLE. 
* 
*     THE DEVICE CROSS REFERENCE TABLE CONTAINS AN ENTRY FOR EACH 
*     DEVICE OR TERMDEV STATEMENT IN THE NDL SOURCE. THIS TABLE IS
*     BUILT BY PROC CSIBXT AT INITIALIZATION TIME.
# 
 
      BASED ARRAY DEX [00:00] S(1); 
        BEGIN 
        ITEM DEX$WORD   U(00,00,60);      # FULL WORD REFERENCE # 
        ITEM DEX$SVCF   B(00,00,01);      #  SVC ROOT NAME FLAG # 
        ITEM DEX$NSVC   U(00,30,12);      # NUMBER OF SVCS #
        ITEM DEX$CNAME  C(00,00,05);      # SVC NAME #
        ITEM DEX$NAME   C(00,00,07);      # DEVICE NAME # 
        ITEM DEX$NID    U(00,44,08);      #DEVICE NODE ID # 
        ITEM DEX$PORT   U(00,52,08);      # DEVICE PORT NUMBER #
        END 
 
      ITEM DEXL;                          # LENGTH OF DEX TABLE # 
 
 
# 
**    LIX - LINE CROSS REFERENCE TABLE .
* 
*     THE LINE CROSS REFERENCE TABLE CONTAINS INFORMATION ABOUT EACH
*     LINE DEFINED IN THE NCF. THIS TABLE IS BUILT AT INITIALIZATION
*     TIME BY THE CSIBXT PROC.
# 
 
      BASED ARRAY LIX [00:00] S(1); 
        BEGIN 
        ITEM LIX$WORD   U(00,00,60);      # FULL WORD REFERENCE # 
        ITEM LIX$NAME   C(00,00,07);      # LINE NAME # 
        ITEM LIX$NID    U(00,44,08);      # NODE ID OF LINE   # 
        ITEM LIX$PORT   U(00,52,08);      # PORT NUMBER OF LINE # 
        END 
 
      ITEM LIXL;                          #LENGTH OF LIX TABLE #
 
 
# 
**    LLXREF - LOGICAL LINK XREF TABLE. 
* 
*     THE LOGICAL LINK XREF TABLE WILL RESIDE INITIALLY IN A MANAGED
*     TABLE. IT CONTAINS A TWO WORD ENTRY FOR EACH LOGICAL LINK 
*     DEFINED IN THE NCF.  THIS TABLE IS BUILT AT INTIALIZATION TIME BY 
*     PROC *CSIBXT*.
# 
 
      BASED ARRAY LLXR [00:00] S(2);
        BEGIN 
        ITEM LLX$WORD      U(00,00,60);  #FULL WORD REFERENCE          #
        ITEM LLX$NAME      C(00,00,07);  #NAME OF LOG LINK             #
        ITEM LLX$STAT      B(00,42,01);  #INITIAL STATUS,0=EN,1=DIS    #
        ITEM LLX$TYPE      B(00,43,01);  #TYPE, 0=HOST/NPU,1=HOST/HOST #
        ITEM LLX$HID1      U(00,44,08);  #ORIGIN HOST NODE NUMBER      #
        ITEM LLX$NID1      U(00,52,08);  #ORIGIN NPU NODE NUMBER       #
        ITEM LLX$HNAM      C(01,00,07);  #HOST NAME                    #
        ITEM LLX$HID2      U(01,44,08);  #TERMINATING HOST/NPU NODE    #
        ITEM LLX$NID2      U(01,52,08);  #TERMINATING NPU NODE NUMBER  #
                                        #FOR HOST/NPU LL,HID2 = NID2  # 
        END 
 
      ITEM LLXREFL;                     #LENGTH OF LLXREF TABLE       # 
 
 
 
# 
**    PLXREF - PHYSICAL LINK CROSS REFERENCE TABLE. 
* 
*     THE PHYSICAL LINK XREF TABLE CONTAINS A TWO-WORD ENTRY FOR EACH 
*     COUPLER OR TRUNK DEFINED FOR THE NETWORK. THIS TABLE IS BUILT AT
*     INTIALIZATION TIME BY PROC *CSIBXT*.
# 
      BASED ARRAY PLXREF [00:00] S(2);
        BEGIN 
        ITEM PLX$WORD      U(00,00,60);    #FULL WORD REFERENCE        #
        ITEM PLX$NAME      C(00,00,07);    #COUPLER OR TRUNK NAME      #
        ITEM PLX$TYPE      B(00,42,01);    #TYPE OF LINK,0=COUP,1=TRU  #
        ITEM PLX$CPRI      B(00,43,01);    #COUPLER PRIORITY,0=PRIMARY #
                                          # 1=SECONDARY               # 
        ITEM PLX$TLD1      B(00,43,01);    #TRUNK LOAD ALLOWED FROM    #
                                          #NP1 TO NP2 FLAG. 0=YES     # 
        ITEM PLX$HNID      U(00,44,08);    #COUPLER HOST NODE NUMBER   #
        ITEM PLX$TP1       U(00,44,08);    #TRUNK PORT P1 NUMBER       #
        ITEM PLX$CNPU      U(00,52,08);    #NPU NODE NUMBER OF COUPLER #
        ITEM PLX$TN1       U(00,52,08);    #TRUNK NPU N1 NODE NUMBER   #
        ITEM PLX$CHNM      C(01,00,07);    #COUPLER HOST NAME          #
        ITEM PLX$TSTA      B(01,42,01);    #TRUNK INITIAL STATUS       #
        ITEM PLX$TLD2      B(01,43,01);    #TRUNK LOAD ALLOWED FROM    #
                                          #NP2 TO NP1 FLAG. 0=YES     # 
        ITEM PLX$TP2       U(01,44,08);    #TRUNK PORT P2 NUMBER       #
        ITEM PLX$TN2       U(01,52,08);    #TRUNK NPU N2 NODE NUMBER   #
        END 
 
      ITEM PLXREFL;                       #LENGTH OF PLXREF TABLE     # 
 
 
 
      END    # CSXRF #
 
      END    # TEXTOV # 
 
      TERM