Retro1.org codex

*DECK HOC$NS
PROC HOC$NS;                 # HOP COMMAND DEFINITIONS/DATA STRUCTURES #
 
# TITLE HOC$NS - HOP COMMAND DEFS/DATA STRUCTURES.                     #
 
      BEGIN    # HOC$NS # 
# 
**    HOC$NS - HOP COMMAND DEFS/DATA STRUCTURES.
* 
*     J.C. LEE    1981
* 
* 
*     THIS SYMPL TEXT CONTAINS ALL HOP COMMAND DEFS,
*     ORDINAL STATUS LIST, ERROR REASON CODE STATUS 
*     LIST AND COMMON BLOCK FOR THE ACTUAL
*     PARAMETERIZED COMMAND.
* 
# 
 
      CONTROL STEXT;
 
# 
      DEFINITIONS FOR HOP PARAMETER ORDINAL IN HOPCOMMAND ARRAY 
# 
      DEF PAR$CMD    # 00 #;           # INDEX TO HOP PARAMETER ORD    #
      DEF PAR$NPU    # 01 #;           # INDEX TO NPU VALUE            #
      DEF PAR$ALL    # 02 #;           # INDEX TO ALL INDICATOR        #
      DEF PAR$NLF    # 03 #;           # INDEX TO NLF VALUE            #
      DEF PAR$UN     # 04 #;           # INDEX TO UN VALUE             #
      DEF PAR$PW     # 05 #;           # INDEX TO PW VALUE             #
      DEF PAR$NPUS   # 06 #;           # INDEX TO NPUS INDICATOR       #
 
      STATUS HCT                       # VALID HOP COMMAND ORDINALS    #
        CMD$STATUS,                    # 0 NPU STATUS COMMAND          #
        CMD$HIST,                      # 1 HISTORY COMMAND             #
        CMD$FILE,                      # 2 ALTERNATE NLF COMMAND       #
        CMD$NOFILE,                    # 3 CANCEL ALTERNATE NLF COMMAND#
        ; 
      STATUS HOPCMDERR                 # HOP COMMAND ERROR REASON CODE #
        NOTUSED,                       # NOT USED                      #
        SYNTAX,                        # SYNTAX ERROR                  #
        CMDVERB,                       # UNRECOGNIZABLE COMMAND VERB   #
        PARAMETER,                     # ILLEGAL PARAMETER             #
        NPUNCNFG,                      # NPU NOT CONFIGURED            #
        NPUNSPEC,                      # NPU NOT SPECIFIED             #
        NLFNSPEC,                      # NLF NOT SPECIFIED             #
        NLFNAVAIL,                     # NLF NOT AVAILABLE             #
        NPUACTIVE,                     # NPU ACTIVE, NO ACTION         #
        NLFBAD,                        # BAD NLF FILE FORMAT           #
        ; 
      COMMON HOC$COM; 
      BEGIN # HOC$COM # 
 
      ARRAY HOPCOMMAND [PAR$CMD:PAR$NPUS]S(1);
        BEGIN                          # CURRENT HOP COMMAND           #
        ITEM CMD$ORD S:HCT(00,42,18);  # HOP COMMAND ORDINAL,WORD 0    #
        ITEM CMD$NPUNAM C(00,00,07);   # NPU NAME, WORD 1              #
        ITEM CMD$ALL    U(00,00,42);   # ALL INDICATOR, WORD 2         #
        ITEM CMD$NLFPFN C(00,00,07);   # PFN OF ALTERNATE NLF, WORD 3  #
        ITEM CMD$NLFUN  C(00,00,07);   # UN OF ALTERNATE NLF, WORD 4   #
        ITEM CMD$NLFPW  C(00,00,07);   # PW OF ALTERNATE NLF, WORD 5   #
        ITEM CMD$NPUS   U(00,00,42);   # NPUS INDICATOR, WORD 6        #
        ITEM CMD$WORD   U(00,00,60);   # WHOLE WORD                    #
        END 
 
      END # HOC$COM # 
      END # HOC$NS #
      TERM