--- /dev/null
+/
+/ 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
+\f