Retro1.org codex

*DECK NDF$NS
PROC NDF$NS;
 
# TITLE NDF$NS - NDF DEFS AND FORMATS.                                 #
 
      BEGIN    # NDF$NS # 
# 
**    NDF$NS - NDF DEFS AND FORMATS.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS THE NDF DEFS AND FORMATS.
* 
# 
 
      CONTROL STEXT;
 
      DEF L$DBHDR    # 1 #;            # DUMP BLOCK HEADER LENGTH      #
      DEF L$DPHDR    # 1 #;            # DUMP PACKET HEADER LENGTH     #
      DEF L$PRFNDF   # 17 #;           # NDF PREFIX TABLE SIZE         #
      DEF MAX$DPHWDS # 105 #;          # MAX NPU WORDS IN DUMP PACKET  #
      DEF MAX$DPSIZE # 28 #;           # MAX CM WORDS FOR DUMP DATA    #
      DEF MAX$DBC    # 64 #;           # MAX DUMP BATCH COUNT          #
      DEF NDF$UN     # 0 #;            # NDF USER NUMBER               #
      DEF NDF$PW     # 0 #;            # NDF PASSWORD                  #
      DEF NDF$MODE   # 1 #;            # FILE PERMISSION MODE = READ   #
      DEF NDF$AC     # 1 #;            # NDF ALTERNATE CATLIST = NO    #
 
      STATUS DBTYPE                    # DUMP BLOCK TYPE               #
        RESERVE1,                      # 0 NOT USED                    #
        DBT$MICRO1,                    # 1 MICROMEMORY-FILE REGISTERS  #
        DBT$MICRO2,                    # 2 MICROMEMORY-PAGE REGISTERS  #
        RESERVE2,                      # 3 NOT USED                    #
        DBT$MACRO,                     # 4 MACROMEMORY                 #
        ; 
 
      COMMON NDF$COM; 
      BEGIN # NDF$COM # 
 
      BASED ARRAY NDF$DBHDR [0:0] S(L$DBHDR); 
        BEGIN                # NPU DUMP BLOCK HEADER FORMAT            #
        ITEM DBH$BT     U(00,00,03);   # DUMP BLOCK TYPE               #
        ITEM DBH$BC     U(00,03,09);   # DUMP BATCH COUNT              #
        ITEM DBH$BA     U(00,12,24);   # FWA OF NPU MEMORY DUMP BLOCK  #
        ITEM DBH$EA     U(00,36,24);   # LWA OF NPU MEMORY DUMP BLOCK  #
        ITEM DBH$WORD   U(00,00,60);   # DUMP BLOCK HEADER WORD        #
        END 
 
      BASED ARRAY NDF$DPHDR [0:0] S(L$DPHDR); 
        BEGIN                # NPU DUMP PACKET HEADER FORMAT           #
        ITEM DPH$WC     U(00,00,12);   # PACKET ENTRY SIZE IN CM WORDS #
        ITEM DPH$NC     U(00,12,12);   # HEX WORDS IN DUMP PACKET      #
        ITEM DPH$BA     U(00,36,24);   # FWA OF NPU MEMORY IN PACKET   #
        ITEM DPH$BA1    U(00,36,04);
        ITEM DPH$BA2    U(00,40,20);
        ITEM DPH$WORD   U(00,00,60);   # DUMP PACKET HEADER WORD       #
        END 
 
      END   # NDF$COM # 
 
      END   # NDF$NS #
      TERM