*COMDECK FLIST
# 
 TEMPLATE FOR SCP FUNCTION LIST WHEN PCB EXISTS 
# 
 BASED ARRAY  FLHEAD P(4);
   BEGIN
   ITEM FLID      U(0,0,6);     # FUNCTION LIST ID                     #
   ITEM FLBS      I(0,6,AL);    # BLOCK SIZE 2 - 64 WORDS              #
   ITEM FLAN      I(0,48,12);   # APPLICATION NUMBER                   #
   ITEM FLWD0     U(0,0,WL);    # WORD 0                               #
   ITEM FLRC      U(1,0,6);     # REPLY CODE                           #
   ITEM FLFP      U(1,6,12);    # FUNCTION PARAMETER                   #
   ITEM FLUCPA    I(1,18,AL);   # RELATIVE ADDR WITHIN UCP             #
   ITEM FLSCPA    I(1,36,AL);   # RELATIVE ADDR WITHIN SCP             #
   ITEM FLFC      U(1,54,6);    # FUNCTION CODE                        #
   ITEM FLCB      U(1,59,1);    # SCP COMPLETION BIT                   #
   ITEM FLFW      U(1,0,WL);    # FUNCTION WORD                        #
   ITEM FLNAME    C(2,0,NC);    # 7-CHAR JOB NAME                      #
   ITEM FLJDT     U(2,42,18);   # JOB-S JDT ORDINAL                    #
   ITEM FLJOBID   U(2,0,WL);    # JOB NAME/42, JDT ORD/18              #
   ITEM FLU       B(3,0,1);     # ECS ADDRESS IN UCP FLAG              #
   ITEM FLS       B(3,1,1);     # ECS ADDRESS IN SCP FLAG              #
   ITEM FLXUCPA   U(3,12,24);   # EXTENDED READ/WRITE UCP ADDRESS      #
   ITEM FLXSCPA   U(3,36,24);   # EXTENDED READ/WRITE SCP ADDRESS      #
   ITEM FLXRW     U(3,0,WL);    # PARAMETER WORD FOR EXT READ/WRITE    #
   END
# 
 TEMPLATE FOR SF.LIST ENTRY 
# 
 BASED ARRAY  FLE P(2); 
   BEGIN
   ITEM FLERC    U(0,0,6);   # RETURN CODE                             #
   ITEM FLEFP    U(0,6,12);  # FUNCTION PARAMETER                      #
   ITEM FLEUCPA  I(0,18,AL); # UCP ADDRESS                             #
   ITEM FLESCPA  I(0,36,AL); # SCP ADDRESS                             #
   ITEM FLEFC    U(0,54,6);  # SCP FUNCTION CODE                       #
   ITEM FLECB    U(0,59,1);  # SCP COMPLETION BIT                      #
   ITEM FLEWD0   U(0,0,WL);  # WORD 0                                  #
   ITEM FLEU      B(1,0,1);     # ECS ADDRESS IN UCP FLAG              #
   ITEM FLES      B(1,1,1);     # ECS ADDRESS IN SCP FLAG              #
   ITEM FLEXUCPA  U(1,12,24);   # EXTENDED READ/WRITE UCP ADDRESS      #
   ITEM FLEXSCPA  U(1,36,24);   # EXTENDED READ/WRITE SCP ADDRESS      #
   ITEM FLEXWD1   U(1,0,WL);
   END
