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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** 

<code - STFUN.mac.txt>
 CWW^ ...[   
 CW^J ...[   
 CX48 ...[??? STFUN SECT FILE FGN 24 DOC 
 CX#2    #MAC           STFUN               [P,F,A  A NOT = 0
 CXRL    #STR           %C   
 CY?=    #SKI           %C<1$1   
 CYQW    ! %C NOT SPECIFIED OR ZERO  
 C^=G    #SKI           %B&#37-23<1$1
 C^Q6    (   
 D29Q    [              RIGHT HAND BIT = 23  
 D2PB    #DEF           20?=%B@L-19+1
 D392    #SKI           20?-9<1$1
 D3NL    (   
 D48=          OP       %A,%B,DEX,%C 
 D4MW    #EXI
 D57G    )   
 D5M6    #SKI           20?-12<1$1   
 D66Q    (   
 D6LB          OP       %A,%B,DSA,%C 
 D762    #EXI
 D7KL    )   
 D85=    #SKI           20?-15<1$1   
 D8JW    (   
 D94G ...      OP       %A,%B,DLA,%C 
 D9J6    #EXI
 D=3Q    )   
 D=HB    #SKI           20?-24<1$1   
 D?32    (   
 D?GL          OP    %A,%B,STO,%C
 D#2=    #EXI
 D#FW    )   
 D#^G    )   
 D*F6          FC       %A,%B
 D*YQ    #STR            A!"#£&Q,%D  
 DBDB    #SKI
 DBY2    (   
 DCCL          LDX   0  %C   
 DCX=          LNORM    %B   
 DDBW          OP       %A,%B,ORS
 DDWG    #EXI
 DFB6    )   
 DFTQ          OP       %A,%B,ORS,%C 
 DG*B    #NOR
</code>