|
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: 6144 (0x1800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Mot, seg_00f4e9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Octet; package Mot is -- CONSTANTES ----------------------------------------------------------- Val_Max_Mot : constant Integer := 65535; -- TYPES ----------------------------------------------------------------- subtype T_Mot is Natural range 0 .. Val_Max_Mot; -- PROCEDURES ----------------------------------------------------------- -- affichage, lecture procedure Afficher_Mot_Hexa (Mot : T_Mot); function Lire_Mot_Hexa return T_Mot; --------------------------------- function Construire (Octet_1, Octet_2 : Octet.T_Octet) return T_Mot; function Poids_Fort (Mot : T_Mot) return Octet.T_Octet; function Poids_Faible (Mot : T_Mot) return Octet.T_Octet; function Add (Mot_1, Mot_2 : T_Mot) return T_Mot; function Neg (Mot : T_Mot) return T_Mot; function Sub (Mot_1, Mot_2 : T_Mot) return T_Mot; function "not" (Mot : T_Mot) return T_Mot; ---------------------------------------------------------------------------- end Mot;
nblk1=5 nid=3 hdr6=4 [0x00] rec0=2b rec1=00 rec2=01 rec3=004 [0x01] rec0=04 rec1=00 rec2=02 rec3=000 [0x02] rec0=1e rec1=00 rec2=03 rec3=02c [0x03] rec0=04 rec1=00 rec2=02 rec3=000 [0x04] rec0=01 rec1=00 rec2=04 rec3=001 tail 0x2150b568c822b50038abf 0x42a00088462060003 Free Block Chain: 0x3: 0000 00 05 03 fc 80 03 65 74 3b 03 00 27 20 20 20 20 ┆ et; ' ┆ 0x5: 0000 00 04 00 d1 80 10 69 6e 20 6f 75 74 20 54 5f 4f ┆ in out T_O┆ 0x4: 0000 00 00 00 04 80 01 74 01 02 03 74 3b 06 00 00 00 ┆ t t; ┆