[pdp8.git] / sw / os8 / v3d / sources / fortran / dectapes / dectape2 / expid.ra

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