*COMDECK SWAPIN 
 COMMON SWAPIN; 
   BEGIN
   ARRAY SWPN P(1);             # MARKS POSITION OF COMDECK IN DUMP    #
     BEGIN
     ITEM SWPNM  C(0,0,6)=["SWAPIN"]; 
     ITEM SWPNZ  U(0,36,6)=[0]; 
     ITEM SWPN7  U(0,42,18)=[O"777777"];
     END
   ITEM SWAPINFP = 0; 
   ITEM SWAPINBP = 0; 
   END
# 
 TEMPLATE FOR ENTRIES IN (NO PCB) SWAPIN TABLE
# 
 BASED ARRAY  SWPIE  P(4);
   BEGIN
   ITEM SWPIID      U(0,0,6);   # SWP BLOCK ID                         #
   ITEM SWPIBS      I(0,6,AL);  # BLOCK SIZE                           #
   ITEM SWPINBP     I(0,24,AL); # SWAPIN RING FORWARD POINTER          #
   ITEM SWPINFP     I(0,42,AL); # SWAPIN RING BACKWARD POINTER         #
   ITEM SWPIWD0     U(0,0,WL);  # WORD 0                               #
   ITEM SWPIWR      I(1,24,AL); # SCP WRITE BUFFER ADDRESS             #
   ITEM SWPIFL      I(1,42,AL); # FUNCTION LIST ADDRESS                #
   ITEM SWPIWD1     U(1,0,WL);  # WORD 1                               #
   ITEM SWPIRC      U(2,0,6);   # REPLY CODE                           #
   ITEM SWPIFP      U(2,6,12);  # FUNCTION PARAMETER                   #
   ITEM SWPIUCPA    I(2,18,AL); # ADDRESS IN UCP FL                    #
   ITEM SWPISCPA    I(2,36,AL); # ADDRESS IN NIP FL                    #
   ITEM SWPIFC      U(2,54,6);  # SCP FUNCTION WORD                    #
   ITEM SWPICB      U(2,59,1);  # SCP COMPLETION BIT                   #
   ITEM SWPIFW      U(2,0,WL);  # FUNCTION WORD                        #
   ITEM SWPINAME    C(3,0,NC);  # JOB NAME                             #
   ITEM SWPIJDT     U(3,42,18); # JDT ORDINAL                          #
   ITEM SWPIJOBID   U(3,0,WL);  # JOB ID                               #
   END
# 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
# 
