DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦105dc341f⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Serial, seg_021fe8

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

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

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=21 rec1=00 rec2=01 rec3=01c
        [0x01] rec0=24 rec1=00 rec2=02 rec3=04c
        [0x02] rec0=18 rec1=00 rec2=03 rec3=046
        [0x03] rec0=07 rec1=00 rec2=04 rec3=000
    tail 0x2171dcd1e83906e3dffa8 0x42a00088462060003