File: FLOAT.RA of Tape: OS8/OS8-Latest/new-10
(Source file text)
/R=FLOAT(I) INTEGER TO REAL CONVERSION / / / VERSION 40A 23-MAY-80 WVDM / / SECT FLOAT BASE 0 FLDA 0 STARTD FSTA RETRN /SAVE RETURN FADD TWO /ADDR OF ARG POINTER FSTA 3 FLDA% 3 /ADDR OF ARG FSTA 3 STARTF FLDA% 3 /GET ARG RETRN, 0;0 /FLOAT IS A NOP TWO, 0;2 END