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

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