|
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: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Const_Scn68681, seg_04ec23
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with System;
with General_Defs;
package Const_Scn68681 is
package G_Defs renames General_Defs;
--##########################
--
-- Adresses des registres
--
--##########################
package Index is
Registre_Mode : constant Integer := 0;
Registre_Statut : constant Integer := 1;
Registre_Commande : constant Integer := 2;
Registre_Donnees : constant Integer := 3;
Registre_Auxiliaire : constant Integer := 4;
Registre_Statut_Masque_Interruption : constant Integer := 5;
Vecteur_Interruption : constant Integer := 12;
-- Port_Entree_Sortie : constant Integer := 13;
Registre_R1_68115 : constant Integer := 1;
end Index;
--########################################
-- Masques de programmation des registres
--########################################
package Masque is
type Objet is array (1 .. 2) of G_Defs.Byte;
Caractere_5_Bit : constant Objet := (2#1111_1100#, 0);
Caractere_6_Bit : constant Objet := (2#1111_1100#, 1);
Caractere_7_Bit : constant Objet := (2#1111_1100#, 2);
Caractere_8_Bit : constant Objet := (2#1111_1100#, 3);
Parite_Paire : constant Objet := (2#1110_0011#, 0);
Parite_Impair : constant Objet := (2#111_00011#, 2#0000_0100#);
Sans_Parite : constant Objet := (2#1110_0011#, 2#0001_0000#);
Un_Stop_Bit : constant Objet := (2#0011_0000#, 2#0000_0111#);
Deux_Stop_Bit : constant Objet := (2#0011_0000#, 2#0000_1111#);
R_Int_Select : constant Objet := (2#1011_1111#, 2#0100_0000#);
Validation_Reception : constant G_Defs.Byte := 2#0100_1001#;
Validation_Emission : constant G_Defs.Byte := 2#0100_0110#;
Validation_Emission_Reception : constant G_Defs.Byte := 2#0100_0101#;
Aucune_Emission_Reception : constant G_Defs.Byte := 2#0100_1010#;
Reset_Pointeur_Mr : constant G_Defs.Byte := 2#0001_1010#;
Acr7_1 : constant G_Defs.Byte := 2#1000_0000#;
Vitesse_300 : constant G_Defs.Byte := 2#01000100#;
Vitesse_600 : constant G_Defs.Byte := 2#01010101#;
Vitesse_1200 : constant G_Defs.Byte := 2#01100110#;
Vitesse_2400 : constant G_Defs.Byte := 2#10001000#;
Vitesse_4800 : constant G_Defs.Byte := 2#10011001#;
Vitesse_9600 : constant G_Defs.Byte := 2#10111011#;
Vitesse_19200 : constant G_Defs.Byte := 2#11001100#;
Pas_Interruption : constant Objet := (0, 0);
Reset_Erreur : constant Objet := (2#10111111#, 2#01000000#);
Validation_Interruption_Reception :
constant G_Defs.Byte := 2#0010_0010#;
Validation_Interruption_Emission : constant G_Defs.Byte := 2#0001_0001#;
Validation_Interruption_Emission_Reception :
constant G_Defs.Byte := 2#0011_0011#;
Sans_It : constant G_Defs.Byte := 0;
Inhibition_Interruption_Reception_A :
constant Objet := (2#11111101#, 0);
Inhibition_Interruption_Reception_B :
constant Objet := (2#11011111#, 0);
Inhibition_Interruption_Emission_B : constant Objet := (2#11101111#, 0);
Inhibition_Interruption_Emission_A : constant Objet := (2#11111110#, 0);
Masquage_Total_It : constant Objet := (0, 0);
Est_Ce_Reception_A : constant G_Defs.Byte := 2#00000010#;
Est_Ce_Emission_A : constant G_Defs.Byte := 2#00000001#;
Est_Ce_Reception_B : constant G_Defs.Byte := 2#00100000#;
Est_Ce_Emission_B : constant G_Defs.Byte := 2#00010000#;
Emetteur_Pret : constant G_Defs.Byte := 2#00000100#;
Recepteur_Pret : constant G_Defs.Byte := 2#00000001#;
Parity_Error : constant G_Defs.Byte := 2#00100000#;
Framing_Error : constant G_Defs.Byte := 2#01000000#;
Overrun_Error : constant G_Defs.Byte := 2#00010000#;
Invalide_Vecteur_Interruption_68115 :
constant Objet := (2#11111011#, 0);
Acces_Registre_Cr1_68115 : constant Objet := (2#11111000#, 1);
Acces_Registre_Cr2_68115 : constant Objet := (2#11111000#, 2);
Acces_Registre_Cr3_68115 : constant Objet := (2#11111000#, 3);
Acces_Registre_Cr4_68115 : constant Objet := (2#11111000#, 4);
Acces_Registre_Cr5_68115 : constant Objet := (2#11111000#, 5);
Acces_Registre_Cr6_68115 : constant Objet := (2#11111000#, 6);
end Masque;
end Const_Scn68681;
nblk1=7
nid=7
hdr6=a
[0x00] rec0=22 rec1=00 rec2=01 rec3=002
[0x01] rec0=13 rec1=00 rec2=05 rec3=022
[0x02] rec0=15 rec1=00 rec2=02 rec3=00a
[0x03] rec0=14 rec1=00 rec2=06 rec3=00e
[0x04] rec0=0d rec1=00 rec2=03 rec3=000
[0x05] rec0=07 rec1=00 rec2=07 rec3=000
[0x06] rec0=07 rec1=00 rec2=07 rec3=000
tail 0x217564b5287707b26c675 0x42a00088462060003
Free Block Chain:
0x7: 0000 00 04 00 87 80 07 30 23 2c 20 35 29 3b 07 00 46 ┆ 0#, 5); F┆
0x4: 0000 00 00 00 ab 80 03 30 29 3b 03 00 2d 20 20 20 20 ┆ 0); - ┆