File: CABS.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/R=CABS(C) MODULUS OF COMPLEX NUMBER
/
/
/ VERSION 50A 23-MAY-80 WVDM
/
/
/ENTER IN COMPLEX, EXIT IN REAL
/
/CABS(X+IY)=SQRT(X^2+Y^2)
/
DPCHK
SECT CABS
00000 1030 JA #CABS
00001 0051
00002 0301 TEXT +CABS +
00003 0223
00004 4040
00005 1100 CABSXR, SETX XRCABS
00006 0016
00007 1110 SETB BPCABS
00010 0013
00011 1030 JA .+3
00012 0014
00013 0000 BPCABS, F 0.0
00014 0000
00015 0000
00016 0000 XRCABS, F 0.0
00017 0000
00020 0000
00021 0000 ARG, F 0.0
00022 0000
00023 0000
00024 0000 F 0.0
00025 0000
00026 0000
ORG 10*3+BPCABS
00043 0040 FNOP
00044 1030 JA CABSXR
00045 0005
00046 0000 0
00047 1030 CABSRT, JA .
00050 0047
BASE 0
00051 0006 #CABS, STARTD
00052 0210 FLDA 10*3
00053 6400 FSTA CABSRT
00054 0047
00055 0200 FLDA 0
00056 1110 SETB BPCABS
00057 0013
00060 1100 SETX XRCABS
00061 0016
BASE BPCABS
00062 0101 LDX 1,1
00063 0001
00064 6200 FSTA BPCABS
RALF V50A 8-APR-92 PAGE 1-1
00065 0610 FLDA% BPCABS,1
00066 6200 FSTA BPCABS
00067 0050 STARTE
00070 0600 FLDA% BPCABS
00071 6202 FSTA ARG
00072 0005 STARTF
00073 0202 FLDA ARG
00074 4202 FMUL ARG /X^2
00075 6202 FSTA ARG
00076 0203 FLDA ARG+3 /Y
00077 4203 FMUL ARG+3 /Y^2
00100 1202 FADD ARG /X^2+Y^2
00101 6202 FSTA ARG
EXTERN SQRT
00102 1130 JSR SQRT
00103 0000
00104 1030 JA RT1
00105 0110
00106 1030 JA ARG
00107 0021
00110 1030 RT1, JA CABSRT
00111 0047
RALF V50A 8-APR-92 PAGE 2
RALF V50A 8-APR-92 PAGE 2-1
NO ERRORS
9 SYMBOLS, NO ABS REFS
# C 00000 #CABS 00051 #MAIN S 00000 ARG 00021
BPCABS 00013 CABS S 00112 CABSRT 00047 CABSXR 00005
RT1 00110 SQRT X 00000 XRCABS 00016