DFCLEAR [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: DFCLEAR)}}
====== DFCLEAR ======
(GIN Macro)

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

**Used in:** [[george:source:DEAD867|DEAD867]], [[george:source:INCFIN864|INCFIN864]], [[george:source:IPCONE865|IPCONE865]], [[george:source:IPQUAKER865|IPQUAKER865]], [[george:source:LIBLOADB867|LIBLOADB867]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:MODE866|MODE866]], [[george:source:OLMTB867|OLMTB867]], [[george:source:REDONMT867|REDONMT867]], [[george:source:TAPEWAIT65|TAPEWAIT65]], [[george:source:UNLOADMT867|UNLOADMT867]]

<code - DFCLEAR.mac.txt>
 4?FJ ...[??? DFCLEAR SECT FILE FGN 3 DOC
 4?PB    #   
 4#92    #MAC  DFCLEAR   
 4#NL          DFLOCDEF %B   
 4*8=          STO   1  GEN0 
 4*MW          LADDP    %A,1 
 4B7G    #SKI  MDF3%B<12$12^MDF2%B   
 4BM6    (   
 4C6Q          BRN      M1   
 4CLB    M0    +0
 4D62    #SKI  MDF2%B
 4DKL    #FID  0 MDF2%B-1 #77777777  
 4F5=    #SKI  MDF3%B-23 
 4FJW    #FID  MDF3%B+1 23 #77777777 
 4G4G    M1    SMO      FX1  
 4GJ6          LDX   0  M0   
 4H3Q          ANDS  0  MDF1%B(1)
 4HHB    )   
 4J32    #SKI  MDF3%B<12$12^MDF2%B   
 4JGL    #SKI
 4K2=    (   
 4KFW    #SKI  MDF3%B-23 
 4K^G    (   
 4LF6          LDN   0  0
 4LYQ    #FID  MDF3%B+1 23 #7777 
 4MDB          ANDS  0  MDF1%B(1)
 4MY2    )   
 4NCL    #SKI  MDF3%B>22-22  
 4NX=          STOZ     MDF1%B(1)
 4PBW    )   
 4PWG          LDX   1  GEN0 
 4QB6          DFLOCFRE %B   
 4QTQ    #NOR
</code>