|
DataMuseum.dkPresents historical artifacts from the history of: DANOSI |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DANOSI Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2300 (0x8fc)
Types: TextFile
Names: »DOUBLE.ENV«
└─⟦5bf9983c6⟧ Bits:30010496 DANOSI SW50070 Disk 2/2 MegaSwitch Development Toolset Rel. 1.1 PN: 798-66-79 DVBS1.SW50070.rel.1.1.2/2
└─⟦this⟧ »PAXENV\DOUBLE.ENV«
doubleenv;\r \r -- definitions of constants and routines\r -- for double precision arithmetics \r \r -- 860909 BB First version \r -- 860915 BB Double_mod declared \r -- double_max and double_min \r -- 860926 BB double_madd double_msub \r -- 871120 BB the constant double_two inserted\r -- 890209 PM double_uint, int_double and uint_double inserted\r -- 901217 BB conditional declaration of double, caused by\r -- RTP DOS compiler, common dialect.\r -- 910126 BB The condition on the declaration of double changed from\r -- language = rtp to language <> rtp3502\r -- to avoid double declaration from the rtp3502 and rtp35022\r -- compilers\r -- 920131 BB The above chnaged back, caused by the new switches in the\r -- compilers (language,rtp2111)\r -- 930916 BB Declaration of double and double constants now also\r -- controlled by target\r \r $if language = rtp\r type\r double =\r record\r $if target = ta\r d: integer;\r $else\r msp, lsp : integer;\r $endif\r end;\r $endif\r \r const\r \r $if target = ta\r double_min = double (: 1 shift 31 :);\r double_zero = double (: 0 :);\r double_one = double (: 1 :);\r double_two = double (: 2 :);\r double_max = double (: (1 shift 30) -1 + (1 shift 30) :);\r $else\r double_min = double (:minint, 0:);\r double_zero = double (:0, 0:);\r double_one = double (:0, 1:);\r double_two = double (:0, 2:);\r double_max = double (:maxint, -1:);\r $endif\r \r function double_add (d1, d2 : double) : double;\r external;\r \r procedure double_dec (var d : double);\r external;\r \r function double_div (d1, d2 : double) : double;\r external;\r \r procedure double_inc (var d : double);\r external;\r \r function double_int (i : integer) : double;\r external;\r \r function double_lt (d1, d2 : double) : boolean;\r external;\r \r function double_madd (d1, d2 : double) : double;\r external;\r \r function double_mod (d1, d2 : double) : double;\r external;\r \r function double_msub (d1, d2 : double) : double;\r external;\r \r function double_mul (d1, d2 : double) : double;\r external;\r \r function double_sub (d1, d2 : double) : double;\r external;\r \r function double_uint (i : integer) : double;\r external;\r \r function int_double (i : double) : integer;\r external;\r \r function uint_double (i : double) : integer;\r external;\r \r .\r