RNORM

(GIN Macro)

Defined in: MACROS SJ

Used in:

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