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

/
/ VERSION 5A 4-27-77  PT
/
	SECT	SIGN
	ENTRY	ISIGN
	JA	#ST
#XR,	ORG	.+10
	TEXT	'SIGN  '
#BASE,	ORG	.+3
A,	ORG	.+3
B,	ORG	.+3
	ORG	#BASE+31
	JA	#BASE
GOBACK,	0;0;0
	BASE	#BASE
ISIGN,
#ST,	STARTD
	0210
	FSTA	GOBACK+1,0
	0200
	SETX	#XR
	SETB	#BASE
	LDX	0,1
	FSTA	#BASE
	FLDA%	#BASE,1+
	FSTA	A
	FLDA%	#BASE,1+
	FSTA	B
	STARTF
	FLDA%	B
	JLT	#50
	FLDA%	A
	JLT	#100
	JA	GOBACK+1
#50,	FLDA%	A
	JLT	GOBACK+1
#100,	FNEG
	JA	GOBACK+1
	END
\f
Commit	Line	Data
81e70d48 PH	1	/
	2	/ VERSION 5A 4-27-77 PT
	3	/
	4	SECT SIGN
	5	ENTRY ISIGN
	6	JA #ST
	7	#XR, ORG .+10
	8	TEXT 'SIGN '
	9	#BASE, ORG .+3
	10	A, ORG .+3
	11	B, ORG .+3
	12	ORG #BASE+31
	13	JA #BASE
	14	GOBACK, 0;0;0
	15	BASE #BASE
	16	ISIGN,
	17	#ST, STARTD
	18	0210
	19	FSTA GOBACK+1,0
	20	0200
	21	SETX #XR
	22	SETB #BASE
	23	LDX 0,1
	24	FSTA #BASE
	25	FLDA% #BASE,1+
	26	FSTA A
	27	FLDA% #BASE,1+
	28	FSTA B
	29	STARTF
	30	FLDA% B
	31	JLT #50
	32	FLDA% A
	33	JLT #100
	34	JA GOBACK+1
	35	#50, FLDA% A
	36	JLT GOBACK+1
	37	#100, FNEG
	38	JA GOBACK+1
	39	END
	40	\f