|
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: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Termio, seg_05094a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Machine_Types;
use Machine_Types;
package Termio is
type Cc_Type is array (0 .. 7) of Byte;
type Termio_T is
record
C_Iflag : Word; -- input modes
C_Oflag : Word; -- output modes
C_Cflag : Word; -- control modes
C_Lflag : Word; -- line discipline modes
C_Line : Byte; -- line discipline
C_Cc : Cc_Type; -- control chars
end record;
-- control characters
Vintr : constant := 0;
Vquit : constant := 1;
Verase : constant := 2;
Vkill : constant := 3;
Veof : constant := 4;
Veol : constant := 5;
Veol2 : constant := 6;
Vstrt : constant := 7;
Vstop : constant := 8;
Vsusp : constant := 9;
Vdsusp : constant := 10;
Vreprint : constant := 11;
Vdiscrd : constant := 12;
Vwerse : constant := 13;
Vlnext : constant := 14;
Vmin : constant := 4;
Vtime : constant := 5;
-- input modes
Ignbrk : constant := 16#00000001#;
Brkint : constant := 16#00000002#;
Ignpar : constant := 16#00000004#;
Parmrk : constant := 16#00000008#;
Inpck : constant := 16#00000010#;
Istrip : constant := 16#00000020#;
Inlcr : constant := 16#00000040#;
Igncr : constant := 16#00000080#;
Icrnl : constant := 16#00000100#;
Ixon : constant := 16#00000200#;
Ixoff : constant := 16#00000400#;
Iuclc : constant := 16#00000800#;
Ixany : constant := 16#00001000#;
Imaxbel : constant := 16#00010000#;
-- output modes
Opost : constant := 16#00000001#;
Olcuc : constant := 16#00000002#;
Onlcr : constant := 16#00000004#;
Ocrnl : constant := 16#00000008#;
Onocr : constant := 16#00000010#;
Onlret : constant := 16#00000020#;
Ofill : constant := 16#00000040#;
Ofdel : constant := 16#00000080#;
Crdly : constant := 16#00000300#;
Bsdly : constant := 16#00001000#;
Bs0 : constant := 16#00000000#;
Bs1 : constant := 16#00001000#;
Ffdly : constant := 16#00002000#;
Ff0 : constant := 16#00000000#;
Ff1 : constant := 16#00002000#;
Nldly : constant := 16#00004000#;
Nl0 : constant := 16#00000000#;
Nl1 : constant := 16#00004000#;
Vtdly : constant := 16#00008000#;
Vt0 : constant := 16#00000000#;
Vt1 : constant := 16#00008000#;
Cr0 : constant := 16#00000000#;
Cr1 : constant := 16#00000100#;
Cr2 : constant := 16#00000200#;
Cr3 : constant := 16#00000300#;
Tabdly : constant := 16#00000C00#;
Tab0 : constant := 16#00000000#;
Tab1 : constant := 16#00000400#;
Tab2 : constant := 16#00000800#;
Tab3 : constant := 16#00000C00#;
-- baud rates
B0 : constant := 16#00000000#;
B50 : constant := 16#00000001#;
B75 : constant := 16#00000002#;
B110 : constant := 16#00000003#;
B134 : constant := 16#00000004#;
B150 : constant := 16#00000005#;
B200 : constant := 16#00000006#;
B300 : constant := 16#00000007#;
B600 : constant := 16#00000008#;
B1200 : constant := 16#00000009#;
B1800 : constant := 16#0000000A#;
B2400 : constant := 16#0000000B#;
B4800 : constant := 16#0000000C#;
B9600 : constant := 16#0000000D#;
B19200 : constant := 16#0000000E#;
B38400 : constant := 16#0000000F#;
Exta : constant := B19200;
Extb : constant := B38400;
-- control modes
Cbaud : constant := 16#000000F#;
Csize : constant := 16#00000030#;
Cs5 : constant := 16#00000000#;
Cs6 : constant := 16#00000010#;
Cs7 : constant := 16#00000020#;
Cs8 : constant := 16#00000030#;
Cstopb : constant := 16#00000040#;
Cread : constant := 16#00000080#;
Parenb : constant := 16#00000100#;
Parodd : constant := 16#00000200#;
Hupcl : constant := 16#00000400#;
Clocal : constant := 16#00000800#;
Cibaud : constant := 16#000F0000#;
Parext : constant := 16#00100000#;
-- line discipline 0 modes
Isig : constant := 16#00000001#;
Icanon : constant := 16#00000002#;
Xcase : constant := 16#00000004#;
Echo : constant := 16#00000008#;
Echoe : constant := 16#00000010#;
Echok : constant := 16#00000020#;
Echonl : constant := 16#00000040#;
Noflsh : constant := 16#00000080#;
Tostop : constant := 16#00010000#;
Echoctl : constant := 16#00020000#;
Echoprt : constant := 16#00040000#;
Echoke : constant := 16#00080000#;
Flusho : constant := 16#00100000#;
Iexten : constant := 16#00200000#;
Pending : constant := 16#20000000#;
Tioc : constant := Character'Pos ('T') * (2 ** 8);
Tcgets : constant := Tioc + 1;
Tcsets : constant := Tioc + 2;
Tcsetsw : constant := Tioc + 3;
Tcsetsf : constant := Tioc + 4;
Tcgeta : constant := Tioc + 5;
Tcseta : constant := Tioc + 6;
Tcsetaw : constant := Tioc + 7;
Tcsetaf : constant := Tioc + 8;
Tcsbrk : constant := Tioc + 9; -- SVID interface
Tcsbreak : constant := Tioc + 10; -- 0->.25 seconds else <arg>ms
Tcxonc : constant := Tioc + 11;
Tcflsh : constant := Tioc + 12;
Tcglen : constant := Tioc + 13;
Tcslen : constant := Tioc + 14;
Tcsak : constant := Tioc + 15;
Tcqsak : constant := Tioc + 16;
Tctrust : constant := Tioc + 17;
Tcqtrust : constant := Tioc + 18;
Tcsmap : constant := Tioc + 19;
Tcgmap : constant := Tioc + 20;
Tckep : constant := Tioc + 21;
Tcgsak : constant := Tioc + 22;
Tcloop : constant := Tioc + 23;
Tcvpd : constant := Tioc + 24;
Tcreg : constant := Tioc + 25;
Tcgstatus : constant := Tioc + 26;
Tcscontrol : constant := Tioc + 27;
Tcmgr : constant := Tcsak;
Tcqmgr : constant := Tcqsak;
Tcsakoff : constant := 0; -- used with TCSAK and TCQSAK
Tcsakon : constant := 1;
Tcuntrusted : constant := 0; -- used with TCTRUST and TCQTRUCT
Tctrusted : constant := 1;
end Termio;
nblk1=7
nid=0
hdr6=e
[0x00] rec0=26 rec1=00 rec2=01 rec3=008
[0x01] rec0=1b rec1=00 rec2=02 rec3=010
[0x02] rec0=1b rec1=00 rec2=03 rec3=048
[0x03] rec0=1c rec1=00 rec2=04 rec3=014
[0x04] rec0=1b rec1=00 rec2=05 rec3=022
[0x05] rec0=19 rec1=00 rec2=06 rec3=06a
[0x06] rec0=04 rec1=00 rec2=07 rec3=000
tail 0x21757fbda878e786ef81e 0x42a00088462060003