DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦4cf866419⟧ TextFile

    Length: 8046 (0x1f6e)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

--      Copyright (c) 1990 Meridian Software Systems, Inc.      --
with Mac_Types;
use Mac_Types;
package Sane is

    Invalid : constant := 1;
    Underflow : constant := 2;
    Overflow : constant := 4;
    Divbyzero : constant := 8;
    Inexact : constant := 16;
    Ieeedefaultenv : constant := 0;

    Decstrlen : constant := 255;
    Sigdiglen : constant := 20;

    type Relop is (Greaterthan, Lessthan, Equalto, Unordered);

    type Numclass is (Snan, Qnan, Infinite, Zeronum, Normalnum, Denormalnum);

    type Rounddir is (Tonearest, Upward, Downward, Towardzero);

    type Roundpre is (Extprecision, Dblprecision, Realprecision);

    type Decimalkind is (Floatdecimal, Fixeddecimal);

    subtype Macexception is Mac_Types.Integer;
    subtype Environment is Mac_Types.Integer;
    type Extended is array (0 .. 4) of Mac_Types.Integer;
    type Extended96 is array (0 .. 5) of Mac_Types.Integer;

    type Decstr is array (0 .. Decstrlen) of Character;

    type Decform is
        record
            Style : Decimalkind;
            Dfdigits : Mac_Types.Integer;
        end record;

    type Range0_1 is range 0 .. 1;
    type Array0_Sigdiglencharacter is array (0 .. Sigdiglen) of Character;
    type Decimal is
        record
            Sgn : Range0_1;
            Exp : Mac_Types.Integer;
            Sig : Array0_Sigdiglencharacter;
        end record;

    type Cstrptr is access Char;

    type Mischaltinfo is
        record
            Haltexceptions : Mac_Types.Integer;
            Pendingccr : Mac_Types.Integer;
            Pendingd0 : Longint;
        end record;

    function Gethaltvector return Longint;
    pragma Interface (Mpwpascal, Gethaltvector, "GETHALTVECTOR");

    procedure Sethaltvector (V : Longint);
    pragma Interface (Mpwpascal, Sethaltvector, "SETHALTVECTOR");

    function X96tox80 (X : Extended96) return Extended;
    pragma Interface (Mpwpascal, X96tox80, "X96TOX80");

    function X80tox96 (X : Extended) return Extended96;
    pragma Interface (Mpwpascal, X80tox96, "X80TOX96");

    function Log2 (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Log2, "LOG2");

    function Ln1 (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Ln1, "LN1");

    function Exp2 (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Exp2, "EXP2");

    function Exp1 (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Exp1, "EXP1");

    function Tan (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Tan, "TAN");

    function Num2integer (X : Extended) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Num2integer, "NUM2INTEGER");

    function Num2longint (X : Extended) return Longint;
    pragma Interface (Mpwpascal, Num2longint, "NUM2LONGINT");

    function Num2real (X : Extended) return Real;
    pragma Interface (Mpwpascal, Num2real, "NUM2REAL");

    function Num2double (X : Extended) return Double;
    pragma Interface (Mpwpascal, Num2double, "NUM2DOUBLE");

    function Num2extended (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Num2extended, "NUM2EXTENDED");

    function Num2comp (X : Extended) return Comp;
    pragma Interface (Mpwpascal, Num2comp, "NUM2COMP");

    procedure Num2dec (F : Decform; X : Extended; D : in out Decimal);
    pragma Interface (Mpwpascal, Num2dec, "NUM2DEC");

    function Dec2num (D : Decimal) return Extended;
    pragma Interface (Mpwpascal, Dec2num, "DEC2NUM");

    procedure Num2str (F : Decform; X : Extended; S : in out Decstr);
    pragma Interface (Mpwpascal, Num2str, "NUM2STR");

    function Str2num (S : Decstr) return Extended;
    pragma Interface (Mpwpascal, Str2num, "STR2NUM");

    procedure Str2dec (S : Decstr;
                       Index : in out Mac_Types.Integer;
                       D : in out Decimal;
                       Validprefix : in out Boolean);
    pragma Interface (Mpwpascal, Str2dec, "STR2DEC");

    procedure Cstr2dec (S : Cstrptr;
                        Index : in out Mac_Types.Integer;
                        D : in out Decimal;
                        Validprefix : in out Boolean);
    pragma Interface (Mpwpascal, Cstr2dec, "CSTR2DEC");

    procedure Dec2str (F : Decform; D : Decimal; S : in out Decstr);
    pragma Interface (Mpwpascal, Dec2str, "DEC2STR");

    function Remainder
                (X : Extended; Y : Extended; Quo : Varinteger) return Extended;
    pragma Interface (Mpwpascal, Remainder, "REMAINDER");

    function Rint (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Rint, "RINT");

    function Scalb (N : Mac_Types.Integer; X : Extended) return Extended;
    pragma Interface (Mpwpascal, Scalb, "SCALB");

    function Logb (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Logb, "LOGB");

    function Copysign (X : Extended; Y : Extended) return Extended;
    pragma Interface (Mpwpascal, Copysign, "COPYSIGN");

    function Nextreal (X : Real; Y : Real) return Real;
    pragma Interface (Mpwpascal, Nextreal, "NEXTREAL");

    function Nextdouble (X : Double; Y : Double) return Double;
    pragma Interface (Mpwpascal, Nextdouble, "NEXTDOUBLE");

    function Nextextended (X : Extended; Y : Extended) return Extended;
    pragma Interface (Mpwpascal, Nextextended, "NEXTEXTENDED");

    function Xpwri (X : Extended; I : Mac_Types.Integer) return Extended;
    pragma Interface (Mpwpascal, Xpwri, "XPWRI");

    function Xpwry (X : Extended; Y : Extended) return Extended;
    pragma Interface (Mpwpascal, Xpwry, "XPWRY");

    function Compound (R : Extended; N : Extended) return Extended;
    pragma Interface (Mpwpascal, Compound, "COMPOUND");

    function Annuity (R : Extended; N : Extended) return Extended;
    pragma Interface (Mpwpascal, Annuity, "ANNUITY");

    function Randomx (X : Extended) return Extended;
    pragma Interface (Mpwpascal, Randomx, "RANDOMX");

    function Classreal (X : Real) return Numclass;
    pragma Interface (Mpwpascal, Classreal, "CLASSREAL");

    function Classdouble (X : Double) return Numclass;
    pragma Interface (Mpwpascal, Classdouble, "CLASSDOUBLE");

    function Classcomp (X : Comp) return Numclass;
    pragma Interface (Mpwpascal, Classcomp, "CLASSCOMP");

    function Classextended (X : Extended) return Numclass;
    pragma Interface (Mpwpascal, Classextended, "CLASSEXTENDED");

    function Signnum (X : Extended) return Mac_Types.Integer;
    pragma Interface (Mpwpascal, Signnum, "SIGNNUM");

    function Nan (I : Mac_Types.Integer) return Extended;
    pragma Interface (Mpwpascal, Nan, "NAN");

    procedure Setexception (E : Macexception; B : Boolean);
    pragma Interface (Mpwpascal, Setexception, "SETEXCEPTION");

    function Testexception (E : Macexception) return Boolean;
    pragma Interface (Mpwpascal, Testexception, "TESTEXCEPTION");

    procedure Sethalt (E : Macexception; B : Boolean);
    pragma Interface (Mpwpascal, Sethalt, "SETHALT");

    function Testhalt (E : Macexception) return Boolean;
    pragma Interface (Mpwpascal, Testhalt, "TESTHALT");

    procedure Setround (R : Rounddir);
    pragma Interface (Mpwpascal, Setround, "SETROUND");

    function Getround return Rounddir;
    pragma Interface (Mpwpascal, Getround, "GETROUND");

    procedure Setprecision (P : Roundpre);
    pragma Interface (Mpwpascal, Setprecision, "SETPRECISION");

    function Getprecision return Roundpre;
    pragma Interface (Mpwpascal, Getprecision, "GETPRECISION");

    procedure Setenvironment (E : Environment);
    pragma Interface (Mpwpascal, Setenvironment, "SETENVIRONMENT");

    procedure Getenvironment (E : in out Environment);
    pragma Interface (Mpwpascal, Getenvironment, "GETENVIRONMENT");

    procedure Procentry (E : in out Environment);
    pragma Interface (Mpwpascal, Procentry, "PROCENTRY");

    procedure Procexit (E : Environment);
    pragma Interface (Mpwpascal, Procexit, "PROCEXIT");

    function Relation (X : Extended; Y : Extended) return Relop;
    pragma Interface (Mpwpascal, Relation, "RELATION");

end Sane;