[pdp8.git] / sw / f4 / FRTSRC / abs.ra

/
/ VERSION 5A 4-27-77  PT
/
	SECT	IABS
	ENTRY	ABS
	BASE	0
ABS,	FLDA	0		/GET RETURN ADDRESS
	STARTD
	FSTA	RETRN
	FADD	TWO		/GET ADDRESS OF ARG POINTER
	FSTA	3
	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
\f
Commit	Line	Data
7af5ad59 PH	1	/
	2	/ VERSION 5A 4-27-77 PT
	3	/
	4	SECT IABS
	5	ENTRY ABS
	6	BASE 0
	7	ABS, FLDA 0 /GET RETURN ADDRESS
	8	STARTD
	9	FSTA RETRN
	10	FADD TWO /GET ADDRESS OF ARG POINTER
	11	FSTA 3
	12	FLDA% 3 /GET ARG ADDRESS
	13	FSTA 3
	14	STARTF
	15	FLDA% 3 /GET ARG
	16	JGE RETRN /POSITIVE, SKIP NEGATE
	17	FNEG
	18	RETRN, 0;0
	19	TWO, 0;2
	20	END
	21	\f