File: CMPLX.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/C=CMPLX(R,R) MAKE COMPLEX FROM 2 REALS
/
/
/ VERSION 50A 23-MAY-80 WVDM
/
/
/ENTER IN REAL,EXIT IN COMPLEX
/CMPLX(X,Y) Z=X+IY
/
SECT CMPLX
00000 1030 JA #CMPLX
00001 0047
DPCHK
00002 0315 TEXT +CMPLX +
00003 2014
00004 3040
00005 1100 CMPXR, SETX XR
00006 0014
00007 1110 SETB BP
00010 0011
00011 0000 BP, F 0.0
00012 0000
00013 0000
00014 0000 XR, F 0.0
00015 0000
00016 0000
00017 0000 PTR1, F 0.0
00020 0000
00021 0000
00022 0000 ARG, F 0.0
00023 0000
00024 0000
00025 0000 F 0.0
00026 0000
00027 0000
ORG 10*3+BP
00041 0040 FNOP
00042 1030 JA CMPXR
00043 0005
00044 0000 0
00045 1030 RT, JA .
00046 0045
BASE 0
00047 0006 #CMPLX, STARTD
00050 0210 FLDA 10*3
00051 6400 FSTA RT
00052 0045
00053 0200 FLDA 0
00054 1110 SETB BP
00055 0011
00056 1100 SETX XR
00057 0014
BASE BP
00060 0101 LDX 1,1
00061 0001
00062 6200 FSTA BP
RALF V50A 8-APR-92 PAGE 1-1
00063 0610 FLDA% BP,1
00064 6202 FSTA PTR1 /ADDR OF X
00065 0710 FLDA% BP,1+
00066 6200 FSTA BP /ADDR OF Y
00067 0005 STARTF
00070 0602 FLDA% PTR1
00071 6203 FSTA ARG /X
00072 0600 FLDA% BP
00073 6204 FSTA ARG+3 /Y
00074 0050 STARTE
00075 0203 FLDA ARG /X+IY
00076 6400 FSTA #CAC /SAVE IN CMPLX AC
00077 0000
00100 1030 JA RT
00101 0045
EXTERN #CAC
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #CAC X 00000 #CMPLX 00047 #MAIN S 00000
ARG 00022 BP 00011 CMPLX S 00102 CMPXR 00005
PTR1 00017 RT 00045 XR 00014