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

/
/ VERSION 5A 4-25-77 MH
/
	SECT	#EXPDD
	DPCHK
	BASE	0
	EXTERN	DEXP3
	JA	.
	FSTA	EXPON,0		/EXPONENT
	FLDA	0		/BASE
	FSTA	BASE,0
	JSR	DEXP3		/EXP3(BASE,EXPON)
	JA	.+6
	JA	BASE
	JA	EXPON
	JA	#EXPDD
BASE,	F	0.0
	F 0.0
EXPON,	F	0.0
	F 0.0
	END
\f
Commit	Line	Data
81e70d48 PH	1	/
	2	/ VERSION 5A 4-25-77 MH
	3	/
	4	SECT #EXPDD
	5	DPCHK
	6	BASE 0
	7	EXTERN DEXP3
	8	JA .
	9	FSTA EXPON,0 /EXPONENT
	10	FLDA 0 /BASE
	11	FSTA BASE,0
	12	JSR DEXP3 /EXP3(BASE,EXPON)
	13	JA .+6
	14	JA BASE
	15	JA EXPON
	16	JA #EXPDD
	17	BASE, F 0.0
	18	F 0.0
	19	EXPON, F 0.0
	20	F 0.0
	21	END
	22	\f