DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

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

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦f285f62cf⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »doubleenv«

Derivation

└─⟦041268bb6⟧ Bits:30003098 SW2001/2/3.02 RC3502 Operating System
    └─⟦6fc3bf78b⟧ 
        └─⟦this⟧ »doubleenv«

TextFile

doubleenv;

(* definitions of constants and routines *)
(* for double precision arithmetics      *)

(* 860909 BB First version               *)
(* 860915 BB Double_mod declared         *)
(*           double_max and double_min   *)
(* 860926 BB double_madd double_msub     *)

const

double_one  = double (0, 1);
double_max  = double (maxint, -1);
double_min  = double (minint, 0);
double_zero = double (0, 0);

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_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;

(* routines for modulo increment and decrement *)

procedure double_dec (var d : double);
external;

procedure double_inc (var d : double);
external;

.
▶EOF◀