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

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