Lexical operator for obtaining the floating-point register number
    associated with a symbol.

    Format

      %FREG  (symbol)

1  –  Argument

 symbol

    The single argument, of type string, specifies a symbol that
    may or may not be currently defined as a floating-point register
    symbol.

2  –  Description

    %FREG returns the decimal number of the floating-point register
    when the specified symbol is defined as a floating-point register
    symbol. Otherwise, %FREG returns 32.

3  –  Example

            ; Is TARG_REG the same as F31?
            .IF EQ, <%FREG(TARG_REG)>, <%FREG(31)>

      If TARG_REG has been defined as floating-point register F5, the
      statements appear as follows after lexical processing:

            ; Is TARG_REG the same as F31?
            .IF EQ, <5>, <31>