File REAL.RA

Directory of image this file is from
This file as a plain text file

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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search