File: DSIGN.RA of Tape: Original/Originals/AL-5596D-BA

(Source file text) 

---

/
/ 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

---