|
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: 8192 (0x2000) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Const_Scn68681, seg_05a2c7
└─⟦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#0000_0000#, 2#0000_0111#); Deux_Stop_Bit : constant Objet := (2#0000_0000#, 2#0000_1111#); R_Int_Select : constant Objet := (2#1011_1111#, 2#0000_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#; Validation_Interruption_Emission_A_Reception : constant G_Defs.Byte := 2#0010_0011#; Validation_Interruption_Emission_B_Reception : constant G_Defs.Byte := 2#0011_0010#; 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=3 hdr6=a [0x00] rec0=22 rec1=00 rec2=01 rec3=002 [0x01] rec0=13 rec1=00 rec2=05 rec3=022 [0x02] rec0=13 rec1=00 rec2=02 rec3=06c [0x03] rec0=15 rec1=00 rec2=07 rec3=060 [0x04] rec0=13 rec1=00 rec2=06 rec3=000 [0x05] rec0=0d rec1=00 rec2=03 rec3=000 [0x06] rec0=07 rec1=00 rec2=07 rec3=000 tail 0x21769bf4689249062f9c0 0x42a00088462060003 Free Block Chain: 0x3: 0000 00 04 02 44 80 26 20 49 6e 76 61 6c 69 64 65 5f ┆ D & Invalide_┆ 0x4: 0000 00 00 00 55 80 3b 5f 45 6d 69 73 73 69 6f 6e 5f ┆ U ;_Emission_┆