File: REAL.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=REAL(C), R=AIMAG(C), C=CONJG(C) COMPLEX FUNCTIONS
/REAL PART, IMAG. PART, CONJUGATE
/
/
/ VERSION 50A 23-MAY-80 WVDM
/
/
/REAL,AIMAG - ENTER IN COMPLEX,EXIT IN REAL
/CONJG - ENTER + EXIT IN COMPLEX
/
SECT REAL
00000 1030 JA #REAL
00001 0047
DPCHK
00002 2205 TEXT +REAL +
00003 0114
00004 4040
00005 1100 REALXR, SETX XRREAL
00006 0014
00007 1110 SETB BPREAL
00010 0011
00011 0000 BPREAL, F 0.0
00012 0000
00013 0000
00014 0000 XRREAL, F 0.0
00015 0000
00016 0000
00017 0000 ARG, F 0.0
00020 0000
00021 0000
00022 0000 F 0.0
00023 0000
00024 0000
ORG 10*3+BPREAL
00041 0040 FNOP
00042 1030 JA REALXR
00043 0005
00044 0000 0
00045 1030 REALRT, JA .
00046 0045
BASE 0
00047 1100 #REAL, SETX XRREAL
00050 0014
00051 0102 LDX 0,2
00052 0000
00053 0100 LDX 1,0
00054 0001
00055 0006 COMM, STARTD
00056 0210 FLDA 10*3
00057 6400 FSTA REALRT
00060 0045
00061 0200 FLDA 0
00062 1110 SETB BPREAL
00063 0011
BASE BPREAL
00064 0101 LDX 1,1
RALF V50A 8-APR-92 PAGE 1-1
00065 0001
00066 6200 FSTA BPREAL
00067 0610 FLDA% BPREAL,1
00070 6200 FSTA BPREAL
00071 0050 STARTE
00072 0600 FLDA% BPREAL /GET ARG
00073 6202 FSTA ARG
00074 2000 JXN REAM,0
00075 0110
00076 0005 STARTF
00077 0203 FLDA ARG+3
00100 0003 FNEG
00101 6203 FSTA ARG+3
00102 0050 STARTE
00103 0202 FLDA ARG
00104 6400 FSTA #CAC
00105 0000
00106 1030 JA REALRT
00107 0045
00110 0005 REAM, STARTF
00111 0420 CON, FLDA ARG,2
00112 0017
00113 1030 JA REALRT
00114 0045
EXTERN #CAC
/
ENTRY AIMAG
00115 1100 AIMAG, SETX XRREAL
00116 0014
00117 0102 LDX 1,2
00120 0001
00121 0100 LDX 1,0
00122 0001
00123 1030 JA COMM
00124 0055
/
ENTRY CONJG
00125 1100 CONJG, SETX XRREAL
00126 0014
00127 0102 LDX 0,2
00130 0000
00131 0100 LDX 0,0
00132 0000
00133 1030 JA COMM
00134 0055
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
13 SYMBOLS, NO ABS REFS
# C 00000 #CAC X 00000 #MAIN S 00000 #REAL 00047
AIMAG 00115 ARG 00017 BPREAL 00011 COMM 00055
CON 00111 CONJG 00125 REAL S 00135 REALRT 00045
REALXR 00005 REAM 00110 XRREAL 00014