File: ABS.RA of Tape: OS8/OS8-Latest/new-10
(Source file text)
/R=ABS(R) SINGLE PREC. ABSOLUTE VALUE / / / VERSION 40A 20-MAY-80 WVDM / / SECT IABS ENTRY ABS BASE 0 /NO BASE,XR CHANGE ABS, FLDA 0 /GET RETURN ADDRESS STARTD FSTA RETRN FADD TWO /GET ADDRESS OF ARG POINTER FSTA 3 /USE CALLER'S BASE PAGE VAR 1 FLDA% 3 /GET ARG ADDRESS FSTA 3 STARTF FLDA% 3 /GET ARG JGE RETRN /POSITIVE, SKIP NEGATE FNEG RETRN, 0;0 TWO, 0;2 END