|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Serial, seg_021fe8
└─⟦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