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

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

**Used in:** 

<code - RNORM.mac.txt>
 BY6K ...[   
 BY98 ...[   
 BY?S ...[??? RNORM SECT FILE FGN 24 DOC 
 BYHL    #MAC           RNORM               [F,A 
 B^3=    #DEF           20?=23-(%A&#37)     [NO OF BITS TO SHIFT RIGHT   
 B^GW    #EXI           20?                 [EXIT IF NO SHIFT
 C22G    #STR           %B   
 C2G6    (   
 C2^Q          SRL   %B 20?  
 C3FB    #EXI
 C3^2    )   
 C4DL          SRL   0  20?  
 C4Y=    #NOR
</code>