X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fexpid2.ra;fp=sw%2Fos8%2Fv3d%2Fsources%2Ffortran%2Fall%2Fexpid2.ra;h=80f39a436c45abc7f037e566d0c9adc5909f6569;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git diff --git a/sw/os8/v3d/sources/fortran/all/expid2.ra b/sw/os8/v3d/sources/fortran/all/expid2.ra new file mode 100644 index 0000000..80f39a4 --- /dev/null +++ b/sw/os8/v3d/sources/fortran/all/expid2.ra @@ -0,0 +1,71 @@ +/ +/ +/ +/ E X P I D 2 +/ - - - - - - +/ +/SUBROUTINE EXPID2(B,E) +/WHERE B IS INTEGER AND E IS DOUBLE +/ +/ VERSION 5A 4-26-77 MH +/ + SECT EXPID2 + JA #EXID2 + EXTERN #ARGER +EXP3ER, TRAP4 #ARGER + TEXT +EXPID2+ +EXP3XR, SETX XREXP3 + SETB BPEXP3 +BPEXP3, FNOP + 0 + 0 +XREXP3, F 0.0 +EXP31, F 0.0 + F 0.0 +EXP32, F 0.0 +FP1XP3, F 1. + F 0.0 + ORG 10*3+BPEXP3 + FNOP + JA EXP3XR + 0 +XP3RTN, JA . + BASE 0 +#EXID2, STARTD + FLDA 10*3 + FSTA XP3RTN + FLDA 0 + SETX XREXP3 + SETB BPEXP3 + BASE BPEXP3 + LDX 1,1 + FSTA BPEXP3 + FLDA% BPEXP3,1 /ADDR OF B + FSTA EXP31 + FLDA% BPEXP3,1+ /ADDR OF E + FSTA EXP32 + STARTF + FLDA% EXP31 /GET B + JEQ XP3RTN /0 ^ X = 0 + JLT EXP3ER + FSTA EXP31 /SAVE BASE + FCLA + FSTA EXP31+3 + STARTE + LDX 73,1 + EXTERN DLOG + JSR DLOG /CALL LOG + JA .+4 /TAKE LOG (B) + JA EXP31 + FSTA EXP31 + FLDA% EXP32 /GET EXPONENT + JEQ EXP3ON /X^0=1 + FMULM EXP31 + EXTERN DEXP + JSR DEXP /CALL EXP. + JA XP3RTN + JA EXP31 +EXP3ON, STARTE + FLDA FP1XP3 + JA XP3RTN +