[pdp8.git] / sw / os8 / v3d / sources / fortran / all / dim.ra

/
/ VERSION 5A 4-27-77  PT
/
	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
\f
Commit	Line	Data
81e70d48 PH	1	/
	2	/ VERSION 5A 4-27-77 PT
	3	/
	4	SECT DIM
	5	ENTRY IDIM
	6	JA #ST
	7	#XR, ORG .+10
	8	#BASE, ORG .+3
	9	A, ORG .+3
	10	B, ORG .+3
	11	BASE #BASE
	12	IDIM,
	13	#ST, STARTD
	14	0210
	15	FSTA #RTN,0
	16	0200
	17	SETX #XR
	18	SETB #BASE
	19	LDX 0,1
	20	FSTA #BASE
	21	FLDA% #BASE,1+
	22	FSTA A
	23	FLDA% #BASE,1+
	24	FSTA B
	25	STARTF
	26	FLDA% A
	27	FSUB% B
	28	JGE #RTN
	29	FCLA
	30	#RTN, JA .
	31	END
	32	\f