|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Duart_2661, seg_05be1d, seg_05c299
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Duart_2661 is
type Byte is range 0 .. 255;
for Byte'Size use 8;
type Loc_Byte is array (1 .. 8) of Boolean;
for Loc_Byte'Size use 8;
type Objet is
record
Tx_Rx, Sr, Mr, Cr : Byte;
end record;
for Objet use
record
Tx_Rx at 1 range 0 .. 7;
Sr at 3 range 0 .. 7;
Mr at 5 range 0 .. 7;
Cr at 7 range 0 .. 7;
end record;
Taille : constant := 64;
for Objet'Size use Taille;
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 Mode is (Mode_Synch, Mode_Asynch_1, Mode_Asynch_16, Mode_Asynch_64);
function Get_Mr1 (S : in Stop_Bit := Stop_Bit_1;
P : in Parity := Parity_None;
C : in Car_Length := Car_Length_8_Bit;
M : in Mode := Mode_Asynch_1) return Byte;
type Clock_Source is (Clock_Source_None);
type Baud_Rate is (Baud_Rate_75, Baud_Rate_1200,
Baud_Rate_9600, Baud_Rate_19200);
function Get_Mr2 (C : in Clock_Source := Clock_Source_None;
B : in Baud_Rate := Baud_Rate_9600) return Byte;
type Operating is (Normal, Asynch_Auto, Local_Loopback, Remote_Loopback);
type Req_To_Send is (Active, Low);
type Error_Reset is (Normal, Active);
type Synch_Asynch is (Mode_1, Mode_2);
type Rxen is (Disable, Enable);
type Dtr is (Dtr_High, Dtr_Low);
type Txen is (Disable, Enable);
function Get_Cr (O : in Operating := Normal;
Rs : in Req_To_Send := Low;
E : in Error_Reset := Normal;
S : in Synch_Asynch := Mode_1;
R : in Rxen := Enable;
D : in Dtr := Dtr_Low;
T : in Txen := Disable) return Byte;
function Activer_It_Rx_Tx return Byte;
function Activer_It_Rx return Byte;
function Activer_It_Tx return Byte;
function Desactiver_It return Byte;
end Duart_2661;
nblk1=6
nid=6
hdr6=6
[0x00] rec0=1f rec1=00 rec2=01 rec3=018
[0x01] rec0=16 rec1=00 rec2=03 rec3=012
[0x02] rec0=09 rec1=00 rec2=05 rec3=000
[0x03] rec0=19 rec1=00 rec2=06 rec3=018
[0x04] rec0=0f rec1=00 rec2=05 rec3=000
[0x05] rec0=0e rec1=00 rec2=04 rec3=000
tail 0x2176b506489556cfd0290 0x42a00088462060003
Free Block Chain:
0x6: 0000 00 02 03 fc 80 15 6f 5f 53 65 6e 64 29 20 6f 66 ┆ o_Send) of┆
0x2: 0000 00 04 00 2f 00 2c 20 20 20 20 43 73 74 65 5f 52 ┆ / , Cste_R┆
0x4: 0000 00 00 01 0d 80 0b 30 31 30 30 5f 30 30 30 30 23 ┆ 0100_0000#┆