DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦e06b2915f⟧ TextFile

    Length: 1029 (0x405)
    Types: TextFile
    Names: »DOUBLE.ENV«

Derivation

└─⟦623820077⟧ Bits:30010493 DVBS1.SW50070.rel.1.0-2 SW500700 MegaSwitch Development Toolset Rel 1.0 DISK 2/2
    └─⟦this⟧ »PAXENV\DOUBLE.ENV«

TextFile

-- porteret by:  port vers 1.0 890810
-- table used:   rtp022 to rtp02    v.2 890810
doubleenv;
type
  double = record d: integer end;
const
double_min=  double(: 1 shift 31 :);
double_zero= double(: 0 :);
double_one=  double(: 1 :);
double_two=  double(: 2 :);
double_max=  double(: (1 shift 30) -1 + (1 shift 30) :);
function double_add(d1,d2:double):double;
external;
function double_div(d1,d2:double):double;
external;
function double_lt(d1,d2:double):boolean;
external;
function double_int(i:integer):double;
external;
function double_uint(i:integer):double;
external;
function int_double(i:double):integer;
external;
function uint_double(i:double):integer;
external;
function double_madd(d1,d2:double):double;
external;
function double_mod(d1,d2:double):double;
external;
function double_msub(d1,d2:double):double;
external;
function double_mul(d1,d2:double):double;
external;
function double_sub(d1,d2:double):double;
external;
procedure double_dec(var d:double);
external;
procedure double_inc(var d:double);
external;
.