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

(Source file text) 

---

/
/   R E A L
/   - - - -
/
/   A I M A G
/   - - - - -
/
/   C O N J G
/   - - - - -
/
/ VERSION 5A 4-27-77  PT
/
/REAL,AIMAG - ENTER IN COMPLEX,EXIT IN REAL
/CONJG - ENTER + EXIT IN COMPLEX
/
	SECT	REAL
	JA	#REAL
	DPCHK
	TEXT	+REAL  +
REALXR,	SETX	XRREAL
	SETB	BPREAL
BPREAL,	F 0.0
XRREAL,	F 0.0
ARG,	F 0.0
	F 0.0
	ORG	10*3+BPREAL
	FNOP
	JA	REALXR
	0
REALRT,	JA	.
	BASE	0
#REAL,	SETX	XRREAL
	LDX	0,2
	LDX	1,0
COMM,	STARTD
	FLDA	10*3
	FSTA	REALRT
	FLDA	0
	SETB	BPREAL
	BASE	BPREAL
	LDX	1,1
	FSTA	BPREAL
	FLDA%	BPREAL,1
	FSTA	BPREAL
	STARTE
	FLDA%	BPREAL		/GET ARG
	FSTA	ARG
	JXN	REAM,0
	STARTF
	FLDA	ARG+3
	FNEG
	FSTA	ARG+3
	STARTE
	FLDA	ARG
	FSTA	#CAC
	JA	REALRT
REAM,	STARTF
CON,	FLDA	ARG,2
	JA	REALRT
	EXTERN	#CAC
/
	ENTRY	AIMAG
AIMAG,	SETX	XRREAL
	LDX	1,2
	LDX	1,0
	JA	COMM
/
	ENTRY	CONJG
CONJG,	SETX	XRREAL
	LDX	0,2
	LDX	0,0
	JA	COMM

---