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 - download
Index: ┃ T V

⟦a8ef269a9⟧ TextFile

    Length: 3062 (0xbf6)
    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 Serial is

    Baud300 : constant := 380;
    Baud600 : constant := 189;
    Baud1200 : constant := 94;
    Baud1800 : constant := 62;
    Baud2400 : constant := 46;
    Baud3600 : constant := 30;
    Baud4800 : constant := 22;
    Baud7200 : constant := 14;
    Baud9600 : constant := 10;
    Baud19200 : constant := 4;
    Baud57600 : constant := 0;
    Stop10 : constant := 16384;
    Stop15 : constant := -32768;
    Stop20 : constant := -16384;
    Noparity : constant := 0;
    Oddparity : constant := 4096;
    Evenparity : constant := 12288;
    Data5 : constant := 0;
    Data6 : constant := 2048;
    Data7 : constant := 1024;
    Data8 : constant := 3072;
    Parityerr : constant := 16;
    Swoverrunerr : constant := 1;
    Hwoverrunerr : constant := 32;
    Framingerr : constant := 64;
    Ctsevent : constant := 32;
    Breakevent : constant := 128;
    Xoffwassent : constant := 128;
    Dtrnegated : constant := 64;
    Ainrefnum : constant := -6;
    Aoutrefnum : constant := -7;
    Binrefnum : constant := -8;
    Boutrefnum : constant := -9;

    type Sportsel is (Sporta, Sportb);

    type Sershk is
        record
            Fxon : Byte;
            Fcts : Byte;
            Xon : Char;
            Xoff : Char;
            Errs : Byte;
            Evts : Byte;
            Finx : Byte;
            Fdtr : Byte;
        end record;

    type Serstarec is
        record
            Cumerrs : Byte;
            Xoffsent : Byte;
            Rdpend : Byte;
            Wrpend : Byte;
            Ctshold : Byte;
            Xoffhold : Byte;
        end record;

    function Ramsdopen (Whichport : Sportsel) return Oserr;
    pragma Interface (Mpwpascal, Ramsdopen, "RAMSDOPEN");

    procedure Ramsdclose (Whichport : Sportsel);
    pragma Interface (Mpwpascal, Ramsdclose, "RAMSDCLOSE");

    function Serreset
                (Refnum : Mac_Types.Integer; Serconfig : Mac_Types.Integer)
                return Oserr;
    pragma Interface (Mpwpascal, Serreset, "SERRESET");

    function Sersetbuf (Refnum : Mac_Types.Integer;
                        Serbptr : Ptr;
                        Serblen : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Sersetbuf, "SERSETBUF");

    function Serhshake
                (Refnum : Mac_Types.Integer; Flags : Sershk) return Oserr;
    pragma Interface (Mpwpascal, Serhshake, "SERHSHAKE");

    function Sersetbrk (Refnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Sersetbrk, "SERSETBRK");

    function Serclrbrk (Refnum : Mac_Types.Integer) return Oserr;
    pragma Interface (Mpwpascal, Serclrbrk, "SERCLRBRK");

    function Sergetbuf
                (Refnum : Mac_Types.Integer; Count : Varlongint) return Oserr;
    pragma Interface (Mpwpascal, Sergetbuf, "SERGETBUF");

    function Serstatus
                (Refnum : Mac_Types.Integer; Sersta : Serstarec) return Oserr;
    pragma Interface (Mpwpascal, Serstatus, "SERSTATUS");

end Serial;