File: CABS.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/R=CABS(C) MODULUS OF COMPLEX NUMBER / / / VERSION 40A 23-MAY-80 WVDM / / /ENTER IN COMPLEX, EXIT IN REAL / /CABS(X+IY)=SQRT(X^2+Y^2) / DPCHK SECT CABS JA #CABS TEXT +CABS + CABSXR, SETX XRCABS SETB BPCABS JA .+3 BPCABS, F 0.0 XRCABS, F 0.0 ARG, F 0.0 F 0.0 ORG 10*3+BPCABS FNOP JA CABSXR 0 CABSRT, JA . BASE 0 #CABS, STARTD FLDA 10*3 FSTA CABSRT FLDA 0 SETB BPCABS SETX XRCABS BASE BPCABS LDX 1,1 FSTA BPCABS FLDA% BPCABS,1 FSTA BPCABS STARTE FLDA% BPCABS FSTA ARG STARTF FLDA ARG FMUL ARG /X^2 FSTA ARG FLDA ARG+3 /Y FMUL ARG+3 /Y^2 FADD ARG /X^2+Y^2 FSTA ARG EXTERN SQRT JSR SQRT JA RT1 JA ARG RT1, JA CABSRT