|
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 - metrics - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Parametres, seg_04cca7, seg_04cd5c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with My_Types;
package Parametres is
package Mt renames My_Types;
type Object is private;
type Apb is (Rien, Inactif, Actif);
type Veille is (Rien, En_Veille, En_Service);
type Entree_Tor is (Rien, Contact, Boucle, Bp);
type Evenement is (Rien, Anomalies, Tous);
function Set (Parm_Tempo : in Natural;
Parm_Apb : in Apb;
Parm_Veille : in Veille;
Parm_Entree_Tor : in Entree_Tor;
Parm_Evenements : in Evenement) return Object;
procedure Get (Les_Parametres : in Object;
Parm_Tempo : out Natural;
Parm_Apb : out Apb;
Parm_Veille : out Veille;
Parm_Entree_Tor : out Entree_Tor;
Parm_Evenements : out Evenement);
function Image (Les_Parametres : in Object) return String;
function Image (Les_Parametres : in Object) return Mt.Bs_Access;
function Value (The_Byte_String : in Mt.Byte_String) return Object;
function Zero return Object;
private
type Object is
record
P_Tempo : Natural;
P_Apb : Apb;
P_Veille : Veille;
P_Entree_Tor : Entree_Tor;
P_Evenements : Evenement;
end record;
end Parametres;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=17 rec1=00 rec2=01 rec3=03c
[0x01] rec0=0c rec1=00 rec2=02 rec3=000
tail 0x217540cea874f6e6c0636 0x42a00088462060003