Retro1.org codex

*DECK NCF$NS
PROC NCF$NS;
# TITLE NCF$NS - NCF DEFS AND FORMAT.                                  #
 
      BEGIN    # NCF$NS # 
# 
**    NCF$NS - NCF DEFS AND FORMAT. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS DEFS AND FORMATS FOR NPU 
*     CROSS REFERENCE AND PHYSICAL LINK CROSS REFERENCE 
*     TABLES. 
* 
# 
      CONTROL STEXT;
      DEF NXR$IDENT       # "NPUXREF" #; # NPU CROSS REF. TABLE ID     #
      DEF NXR$HDRL        # 2 #;       # NPU XREF TABLE HEADER LENGTH  #
      DEF NXR$ENTRYL      # 2 #;       # NPU XREF TABLE ENTRY LENGTH   #
      DEF PHL$IDENT       # "PHYLINK" #; # PHYSICAL LINK XREF TABLE ID #
      DEF PHL$HDRL        # 2 #;       # PHYLINK TABLE HEADER LENGTH   #
      DEF PHL$ENTRYL      # 2 #;       # PHYLINK TABLE ENTRY LENGTH    #
      BASED ARRAY NXR$NCF [0:0] S(NXR$HDRL);
        BEGIN                # NPU CROSS REFERENCE TABLE               #
        ITEM NXR$ID       C(00,00,07); # TABLE IDENTIFIER              #
        ITEM NXR$WC       U(01,48,12); # NUMBER OF WORDS IN THIS TABLE #
        ITEM NXR$ENTW1    U(00,00,60); # TABLE ENTRY WORD 1            #
        ITEM NXR$NPNAME   C(00,00,07); # NPU NAME                      #
        ITEM NXR$F$OPGO   B(00,42,01); # OPERATOR GO REQUIRED FLAG     #
        ITEM NXR$F$F2     B(00,43,01); # DEFAULT DUMP FLAG             #
        ITEM NXR$NPNID    U(00,52,08); # NPU NODE NUMBER               #
        ITEM NXR$ENTW2    U(01,00,60); # TABLE ENTRY WORD 2            #
        ITEM NXR$NPUVAR   C(01,00,06); # NPU VARIANT NAME              #
        END 
      BASED ARRAY PHL$NCF [0:0] S(PHL$HDRL);
        BEGIN                # PHYSICAL LINK CROSS REFERENCE TABLE     #
        ITEM PHL$ID       C(00,00,07); # TABLE IDENTIFIER              #
        ITEM PHL$WC       U(01,48,12); # NUMBER OF WORDS IN THIS TABLE #
        ITEM PHL$ENTW1    U(00,00,60); # TABLE ENTRY WORD 1            #
        ITEM PHL$PLNAME   C(00,00,07); # COUPLER OR TRUNK NAME         #
        ITEM PHL$F$LTRK   B(00,42,01); # 0 = COUPLER, 1 = TRUNK        #
        ITEM PHL$F$NL1    B(00,43,01); # 1 = NOLOAD1 SPECIFIED         #
        ITEM PHL$PLP1     U(00,44,08); # COUPLER: HOST NODE NUMBER     #
                                       # TRUNK: PORT NUMBER            #
        ITEM PHL$PLNID1   U(00,52,08); # NPU NODE NUMBER               #
        ITEM PHL$ENTW2    U(01,00,60); # TABLE ENTRY WORD 2            #
        ITEM PHL$HNAME    C(01,00,07); # IF COUPLER, HOST NAME         #
        ITEM PHL$F$STAT   B(01,42,01); # 0 = ENABLED, 1 = DISABLED     #
        ITEM PHL$F$NL2    B(01,43,01); # 1 = NOLOAD2 SPECIFIED         #
        ITEM PHL$PLP2     U(01,44,08); # P2 PORT NUMBER                #
        ITEM PHL$PLNID2   U(01,52,08); # N2 NODE NUMBER                #
        END 
      END TERM