{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: DFSET)}}
====== DFSET ======
(GIN Macro)

**Defined in:** [[george:source:DFMACROS|DFMACROS]]

**Used in:** [[george:source:DTSCAN860|DTSCAN860]], [[george:source:INCSTART865|INCSTART865]], [[george:source:IPCONE865|IPCONE865]], [[george:source:IPCSTART864|IPCSTART864]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:MODE866|MODE866]], [[george:source:MODEA65|MODEA65]], [[george:source:NEWPW867|NEWPW867]], [[george:source:OLMTB867|OLMTB867]], [[george:source:REDONMT867|REDONMT867]], [[george:source:RETURNIT867|RETURNIT867]], [[george:source:SETUPA867|SETUPA867]], [[george:source:TAPEWAIT65|TAPEWAIT65]], [[george:source:UNLOAD7|UNLOAD7]]

<code - DFSET.mac.txt>
 2S5Y ...[??? DFSET SECT FILE FGN 3 DOC  
 2S*Q    #   
 2STB    #MAC  DFSET 
 2T*2          DFLOCDEF %B   
 2TSL    #STR  %C
 2W#=    #SKI
 2WRW    (   
 2X?G    #SKI  23-MDF3%B^MDF2%B<1$1  
 2XR6          NGN   0  1
 2Y=Q    #SKI  23-MDF3%B^MDF2%B  
 2YQB    (   
 2^=2    #SKI  MDF2%B>11-11  
 2^PL    (   
 329=          LDN   0  0
 32NW    #FID  MDF2%B MDF3%B #7777   
 338G    )   
 33N6    #SKI  MDF2%B<12$12  
 347Q    (   
 34MB          BRN      M1   
 3572    M0    +0
 35LL    #FID  MDF2%B MDF3%B #77777777   
 366=    M1    SMO      FX1  
 36KW          LDX   0  M0   
 375G    )   
 37K6          STO   1  GEN0 
 384Q          LADDP    %A,1 
 38JB          ORS   0  MDF1%B(1)
 3942          LDX   1  GEN0 
 39HL    )   
 3=3=    )   
 3=GW    #STR  %C
 3?2G    (   
 3?G6    #SKI  MDF3%B-23^MDF2%B<1$1  
 3?^Q    (   
 3#FB    #SKI  %C
 3#^2    (   
 3*DL          LADDP    %A,0 
 3*Y=          SMO      0
 3BCW          STO   %C MDF1%B   
 3BXG    )   
 3CC6    #SKI  %C<1$1
 3CWQ    (   
 3DBB          STO   1  GEN0 
 3DW2          LADDP    %A,1 
 3F*L          STO   0  MDF1%B(1)
 3FT=          LDX   1  GEN0 
 3G#W    )   
 3GSG    )   
 3H#6    #SKI  MDF3%B-23^MDF2%B  
 3HRQ    (   
 3J?B    #SKI  %C<1$1
 3JR2          STO   0  GEN1 
 3K=L          DFLOCFRE %B   
 3KQ=          DFCLEAR  %A,%B
 3L9W          DFLOCDEF %B   
 3LPG    #SKI  %C<1$1
 3M96          LDX   0  GEN1 
 3MNQ    #SKI  MDF3%B-MDF2%B<12$12   
 3N8B    (   
 3NN2          ANDN  %C 0
 3P7L    #FID  MDF2%B+23-MDF3%B 23 #7777 
 3PM=    )   
 3Q6W    #SKI  MDF3%B-MDF2%B>11-11   
 3QLG    (   
 3R66          BRN      M1   
 3RKQ    M0    +0
 3S5B    #FID  MDF2%B+23-MDF3%B 23 #77777777 
 3SK2    M1    SMO      FX1  
 3T4L          ANDX  %C M0   
 3TJ=    )   
 3W3W    #SKI  23-MDF3%B 
 3WHG          SLL   %C 23-MDF3%B
 3X36    #SKI  %C
 3XGQ    (   
 3Y2B          LADDP    %A,0 
 3YG2          SMO      0
 3Y^L          ORS   %C MDF1%B   
 3^F=    )   
 3^YW    #SKI  %C<1$1
 42DG    (   
 42Y6          LADDP    %A,1 
 43CQ          ORS   %C MDF1%B(1)
 43XB          LDX   1  GEN0 
 44C2    )   
 44WL    )   
 45B=    )   
 45TW          DFLOCFRE %B   
 46*G    #NOR
</code>