File: DIM.RA of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
/R=DIM(R1,R2) SINGLE PREC. POS. REAL DIFFERENCE / / / VERSION 50A 23-MAY-80 WVDM / /IF R1.GT.R2 R=R1-R2; IF R1.LE.R2 R=0.0 / SECT DIM ENTRY IDIM JA #ST #XR, ORG .+10 #BASE, ORG .+3 A, ORG .+3 B, ORG .+3 BASE #BASE IDIM, #ST, STARTD 0210 FSTA #RTN,0 0200 SETX #XR SETB #BASE LDX 0,1 FSTA #BASE FLDA% #BASE,1+ FSTA A FLDA% #BASE,1+ FSTA B STARTF FLDA% A FSUB% B JGE #RTN FCLA #RTN, JA . END