       .TITLE FLOAT  FLOAT AN INTEGER TO REAL FORMAT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
       .GLOBL FLOAT,.DA,.AW
/             CALLING SEQUENCE
/      JMS*   (FLOAT)         SUBR CALL
/      JMP    .+2             SUBR RETURN
/      CAL/XCTADDR            ADDR OF ARGUMENT (XCT IF INDIRECT)
/
FLOAT  CAL    0              /ENTRY-EXIT
       JMS*   .DA            /GET ARGUMENT (.DA)
       JMP    FLT02
FLT01  CAL    0              /ARGUMENT
FLT02  LAC*   FLT01          /ARG TO @A@ REG
       JMS*   .AW            /FLOAT ARG TO FLOATING ACC (.AW)
       JMP*   FLOAT          /EXIT
       .END
