File: DINT.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/D=DINT(D) TRUNCATE DOUBLE PRECISION
/
/
/ VERSION 50A 07-04-20 WVDM
/
/
SECT DINT
00000 1030 JA #DINT
00001 0047
DPCHK
00002 0411 TEXT +DINT +
00003 1624
00004 4040
00005 1100 DINTXR, SETX XRDINT
00006 0017
00007 1110 SETB BPDINT
00010 0011
00011 0000 BPDINT, F 0.0
00012 0000
00013 0000
00014 0000 F 0.0
00015 0000
00016 0000
00017 0000 XRDINT, F 0.0
00020 0000
00021 0000
00022 0000 F 0.0
00023 0000
00024 0000
00025 0073 DINTMX, E 576460752303423487. /2^59-1 FPP MAX
00026 3777
00027 7777
00030 7777
00031 7777
00032 7777
ORG 10*3+BPDINT
00041 0040 FNOP
00042 1030 JA DINTXR
00043 0005
00044 0000 0
00045 1030 #GOBAK, JA .
00046 0045
/
BASE 0
00047 0006 #DINT, STARTD
00050 1100 SETX XRDINT
00051 0017
00052 0210 FLDA 10*3
00053 6400 FSTA #GOBAK,0
00054 0045
00055 0101 LDX 1,1
00056 0001
00057 0610 FLDA% 0,1
00060 1110 SETB BPDINT
00061 0011
BASE BPDINT
RALF V50A 8-APR-92 PAGE 1-1
00062 6200 FSTA BPDINT
00063 0102 LDX 73,2 /SET SHIFT COUNT
00064 0073
00065 0050 STARTE
00066 0600 FLDA% BPDINT
00067 1010 JGE DINTPO
00070 0074
00071 0101 LDX 0,1 /REMEMBER SIGN
00072 0000
00073 0003 FNEG /NEGATIVE ARG
00074 6200 DINTPO, FSTA BPDINT /SAVE A WHILE
00075 2204 FSUB DINTMX /TOO BIG ?
00076 1060 JGT #DINTR /YES,SORRY
00077 0110
00100 0200 FLDA BPDINT /GET AFRESH
00101 0012 ALN 2 /FIX POSITIVE ARG
00102 2010 JXN DINTNN,1 /WAS NEG ?
00103 0105
00104 0003 FNEG
00105 0004 DINTNN, FNORM
00106 1030 JA #GOBAK /RETURN IN STRTE
00107 0045
EXTERN #ARGER
00110 4000 #DINTR, TRAP4 #ARGER
00111 0000
RALF V50A 8-APR-92 PAGE 1-2
NO ERRORS
11 SYMBOLS, NO ABS REFS
# C 00000 #ARGER X 00000 #DINT 00047 #DINTR 00110
#GOBAK 00045 #MAIN S 00000 BPDINT 00011 DINT S 00112
DINTMX 00025 DINTNN 00105 DINTPO 00074 DINTXR 00005
XRDINT 00017