EDSMASH [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: EDSMASH)}}
====== EDSMASH ======
(GIN Macro)

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

**Used in:** [[george:source:GEND|GEND]]

<code - EDSMASH.mac.txt>
 4JGL    [??? EDSMASH SECT DIAG FGN 4 DOC
 4K2=    #MAC  EDSMASH                      [M.C.D. MANN 
 4KFW    [   
 4K^G    [   
 4LF6    [     ************* 
 4LYQ    [     *  EDSMASH  * 
 4MDB    [     ************* 
 4MY2    [   
 4NCL    [   
 4NX=          FSDESC
 4PBW    #STR  EDS30,%A  
 4PWG    #SKI
 4QB6    (   
 4QTQ          FSFILE   3,6,DASTORE30
 4R*B          FSFILE   4,6,DASWAP30,,SWAP   
 4RT2    )   
 4S#L    #STR  EDS30,%A  
 4SS=    (   
 4T?W          FSFILE   3,6,DASTORE  
 4TRG          FSFILE   4,6,DASWAP,,SWAP 
 4W?6    )   
 4WQQ          ENDESC
 4X=B    #NOR
</code>