File: IDINT.LS of Disk: V50/Source/Source-Listing-RALF-1
(Source file text)
RALF V50A 8-APR-92 PAGE 1
/I=IDINT(D) TRUNCATE DOUBLE PREC. TO INTEGER
/
/
/ VERSION 50A 23-MAY-80 WVDM
/
/
SECT IDINT
00000 1030 JA #IDINT
00001 0047
DPCHK
00002 1104 TEXT +IDINT +
00003 1116
00004 2440
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
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 #IDINT, 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
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
RALF V50A 8-APR-92 PAGE 1-1
00071 0101 LDX 0,1 /REMEMBER SIGN
00072 0000
00073 0003 FNEG /NEGATIVE ARG
00074 1070 DINTPO, JAL #DINTR /TOO BIG
00075 0110
00076 0012 ALN 2 /FIX POSITIVE ARG
00077 2010 JXN DINTNN,1 /WAS NEG ?
00100 0102
00101 0003 FNEG
00102 0004 DINTNN, FNORM
00103 6200 FSTA BPDINT
00104 0005 STARTF /STARTF ROUNDS
00105 0200 FLDA BPDINT
00106 1030 JA #GOBAK /RETURN
00107 0045
EXTERN #ARGER
00110 4000 #DINTR, TRAP4 #ARGER
00111 0000
RALF V50A 8-APR-92 PAGE 1-2
NO ERRORS
10 SYMBOLS, NO ABS REFS
# C 00000 #ARGER X 00000 #DINTR 00110 #GOBAK 00045
#IDINT 00047 #MAIN S 00000 BPDINT 00011 DINTNN 00102
DINTPO 00074 DINTXR 00005 IDINT S 00112 XRDINT 00017