File: FLOAT.RA of Tape: OS8/OS8-V3D/al-5596d-ba-fr4-v3d-2
(Source file text)
/ / VERSION 5A 4-27-77 PT / 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