File: SIGN.RA of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
/R=SIGN(R1,R2) SINGLE PREC. SIGN TRANSFER / / / VERSION 50A 23-MAY-80 WVDM / / R:=SIGN(R2)*ABS(R1) / SECT SIGN ENTRY ISIGN JA #ST #XR, ORG .+10 TEXT 'SIGN ' #BASE, ORG .+3 A, ORG .+3 B, ORG .+3 ORG #BASE+31 JA #BASE GOBACK, 0;0;0 BASE #BASE ISIGN, #ST, STARTD 0210 FSTA GOBACK+1,0 0200 SETX #XR SETB #BASE LDX 0,1 FSTA #BASE FLDA% #BASE,1+ FSTA A FLDA% #BASE,1+ FSTA B STARTF FLDA% B JLT #50 FLDA% A JLT #100 JA GOBACK+1 #50, FLDA% A JLT GOBACK+1 #100, FNEG JA GOBACK+1 END