*COMDECK  NWLHEAD 
# 
                    DEFS FOR WORK LIST OP-CODES 
# 
DEF WLOPPUT      #1#;        #   NET PUT         #
DEF WLOPGET      #2#;        #   NET GET         #
DEF WLOPGETL     #3#;        #   NET GET LIST    #
DEF WLOPGETS     #4#;        #   NET GET SUPERVISORY       #
DEF WLOPWAIT     #5#;        #   NET WAIT        #
DEF WLOPNON      #6#;        #   NET ON          #
DEF WLOPNOFF     #7#;        #   NET OFF         #
DEF WLOPGETF     #8#;        #   NETGETF         #
DEF WLOPPUTF     #9#;        #   NETPUTF         #
DEF WLOPGTFL     #10#;       #   NETGETFL        #
 DEF  WLOPXFR  #11# ;      # OPCODE FOR VALIDATE XFR   CALL            #
DEF WLOPRSET    #12# ;            # RESET WORKLIST PROCESSING WL       #
DEF WLOPGMM      #14#;       # GET MULTIPLE DATA MESSAGES OPCODE       #
DEF WLOPMIN      #1#;        #   MIN OPCODE IN WORKLIST    #
DEF WLOPPUTQ     #18# ;                # NETPUTQ WORKLIST              #
DEF WLOPMAX      #18# ;                # HIGHEST OPCODE VALUE          #
# 
                    DEFS FOR NWL HEADER EDITING 
# 
# 
 TEMPLATE FOR NWL HEAD
# 
 BASED ARRAY  NWLHEADER  P(5);
   BEGIN
   ITEM NWLID       U(0,0,6);   # NWL HEAD BLOCK ID                    #
   ITEM NWLBS       I(0,6,AL);  # BLOCK SIZE                           #
   ITEM NWLWD0      U(0,0,WL);  # WORD 0                               #
   ITEM NWLSTAT     U(1,36,6);  # APPLICATION STATUS                   #
   ITEM NWLHADDR    I(1,42,AL); # UCP COMPLETION BIT ADDR              #
   ITEM NWLWD1      U(1,0,WL);  # WORD 1                               #
   ITEM NWLNAME     C(2,0,NC);  # JOB NAME                             #
   ITEM NWLJDT      U(2,42,18); # JDT ORDINAL                          #
   ITEM NWLJOBID    U(2,0,WL);  # JOB ID WORD                          #
   ITEM NWLPN       U(4,9,12);  # APPLICATION PROCESS NUMBER           #
   ITEM NWLNE       U(4,22,8);  # NUMBER OF ENTRIES                    #
   ITEM NWLWC       U(4,30,12); # WORD COUNT                           #
   ITEM NWLAWLADDR  I(4,42,AL); # APPLICATION WORKLIST ADDRESS         #
   ITEM NWLWD4      U(4,0,WL);  # WORD 4                               #
   END
  
 COMMON NWLCOM; 
   BEGIN
   ARRAY NWLC P(1);          # MARKS POSITION OF COMDECK IN DUMP       #
    BEGIN 
    ITEM NWLCM  C(0,0,6)=["NWLCOM"];
    ITEM NWLCZ  U(0,36,6)=[0];
    ITEM NWLC7  U(0,42,18)=[O"777777"]; 
    END 
   ITEM NWLADDR = 0;         # ADDR OF NETWORK WORKLIST BUFFER         #
   END
# 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
# 
