Retro1.org codex

*DECK NCT$NS
PROC NCT$NS;                 # NODE CONNECTION TABLE                   #
      BEGIN # NCT$NS #
      CONTROL STEXT;
      DEF NCT$IDENT       # 4 #;       # NCT TABLE IDENTIFIER          #
      DEF NCT$HDRL        # 1 #;       # NCT HEADER LENGTH             #
      DEF NCT$ENTRYL      # 1 #;       # NCT ENTRY LENGTH              #
      COMMON NCT$COM; 
      BEGIN # NCT$COM # 
      BASED ARRAY NCT$NS [0:0] S(NCT$HDRL); 
        BEGIN                # NODE CONNECTION TABLE                   #
        ITEM NCT$HDRWD    U(00,00,60); # NCT HEADER WORD               #
        ITEM NCT$ID       U(00,00,06); # NCT IDENTIFIER IN HEADER      #
        ITEM NCT$EC       U(00,06,12); # NCT ENTRY COUNT IN HEADER     #
        ITEM NCT$ZERO1    U(00,18,18); # NOT USED                      #
        ITEM NCT$LISTTP   U(00,36,12); # LIST TAIL POINTER             #
        ITEM NCT$LISTHP   U(00,48,12); # LIST HEAD POINTER             #
        ITEM NCT$ENTRY    U(00,00,60); # NCT ENTRY WORD                #
        ITEM NCT$NODE     U(00,00,08); # NETWORK NODE NUMBER           #
        ITEM NCT$PN       U(00,08,08); # PORT NUMBER                   #
        ITEM NCT$NNN      U(00,16,08); # NODE NUMBER OF NEIGHBOR NPU   #
        ITEM NCT$NTORD    U(00,24,08); # NPU TABLE ORDINAL OF NEIGHBOR #
        ITEM NCT$ZERO2    U(00,32,03); # NOT USED                      #
        ITEM NCT$F$ACT    B(00,35,01); # NEIGHBOR NPU ACTIVE           #
        ITEM NCT$LISTBP   U(00,36,12); # BACKWARD POINTER OF NODE LIST #
        ITEM NCT$LISTFP   U(00,48,12); # FORWARD POINTER OF NODE LIST  #
        END 
      END   # NCT$COM # 
      END   # NCT$NS #
      TERM