File: DIM.RA of Tape: OS8/OS8-Latest/new-10

(Source file text) 

---

/R=DIM(R1,R2) SINGLE PREC. POS. REAL DIFFERENCE
/
/
/ VERSION 40A 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

---