|
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 Duart_68681, seg_05c0ba, seg_05c29b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Duart_68681 is
type Port_Name is (Port_A, Port_B);
type Byte is range 0 .. 255;
for Byte'Size use 8;
type Byte_Index is range 1 .. 8;
type Loc_Byte is array (Byte_Index) of Boolean;
for Loc_Byte'Size use 8;
type Channel is
record
Mr, Sr, Cr, Tx_Rx : Byte;
end record;
for Channel use
record
Mr at 0 range 0 .. 7;
Sr at 1 range 0 .. 7;
Cr at 2 range 0 .. 7;
Tx_Rx at 3 range 0 .. 7;
end record;
for Channel'Size use 32;
type Acc_Channel is access Channel;
type Objet is
record
Port_A : Channel;
Acr, Int : Byte;
Port_B : Channel;
Ivr : Byte;
end record;
for Objet use
record
Port_A at 0 range 0 .. 31;
Acr at 4 range 0 .. 7;
Int at 5 range 0 .. 7;
Port_B at 8 range 0 .. 31;
Ivr at 12 range 0 .. 7;
end record;
for Objet'Size use 128;
type Stop_Bit is (Stop_Bit_0, Stop_Bit_1, Stop_Bit_1_5, Stop_Bit_2);
type Parity is (Parity_None, Parity_Odd, Parity_Even);
type Car_Length is (Car_Length_5_Bit, Car_Length_6_Bit,
Car_Length_7_Bit, Car_Length_8_Bit);
type Baud_Rate is (Baud_Rate_75, Baud_Rate_1200,
Baud_Rate_9600, Baud_Rate_19200);
function Get_Int (Name : in Port_Name; Tx : in Boolean; Rx : in Boolean)
return Byte;
Duart_Simple : constant Byte := 2#1000_0000#;
Vitesse_9600 : constant Byte := 2#1011_1011#;
Reset_Pointeur_Mr : constant Byte := 2#0001_1010#;
Sans_Parite_8_Bits : constant Byte := 2#0001_0111#;
Un_Stop_Bit : constant Byte := 2#0000_0111#;
Valider_It_Rx : constant Byte := 2#0010_0010#;
Valider_It_Rx_Tx : constant Byte := 2#0010_0011#;
Valider_Rx_Tx : constant Byte := 2#0100_0101#;
end Duart_68681;
nblk1=4
nid=3
hdr6=6
[0x00] rec0=25 rec1=00 rec2=01 rec3=044
[0x01] rec0=16 rec1=00 rec2=04 rec3=054
[0x02] rec0=02 rec1=00 rec2=02 rec3=000
[0x03] rec0=01 rec1=00 rec2=03 rec3=000
tail 0x2176b785c895a4ce8881f 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 00 00 0f 80 09 72 74 5f 36 38 36 38 31 3b 09 ┆ rt_68681; ┆