|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 8476 (0x211c)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Z80_Defs;
with Z80;
with Memoire;
with Text_Io;
with Adresse;
with Mot;
with Octet;
with Z_Debug;
use Z_Debug;
package body Bus is
-- CONSTANTES -----------------------------------------------------------
Taille_Bloc_Mem : constant Positive := 2048;
Nb_De_Blocs : constant Natural := 32;
Nb_Periph_Max : constant Integer := 20;
-- TYPES -----------------------------------------------------------------
type T_It_Connectee is (Int, Nmi, Busrq, Rien);
type T_Descripteur_Periph is
record
Ad_Debut : Adresse.T_Adresse;
Ad_Fin : Adresse.T_Adresse;
Id_Periph : Integer;
It_Connectee : T_It_Connectee;
It_Demandee : Boolean;
end record;
type T_Mem is (Rien, Ram, Rom);
subtype Num_Bloc is Natural range 0 .. (Nb_De_Blocs - 1);
type T_Descripteur_Memoire is
record
Bloc_Physique : Num_Bloc := 0;
Type_De_Mem : T_Mem := Rien;
end record;
-- VARIABLES -------------------------------------------------------------
Adresse_Donnee : Adresse.T_Adresse;
Donnee : Octet.T_Octet;
Operation : Z80.T_Operation;
Descr_Memoire : array (Num_Bloc) of T_Descripteur_Memoire;
Descr_Periph : array (1 .. Nb_Periph_Max) of T_Descripteur_Periph;
La_Fin : Boolean := False;
-- PAQUETAGES ------------------------------------------------------------
package Init is
procedure Initialisation (Nom_De_Fichier : String);
end Init;
package body Init is separate;
-- PROCEDURES ------------------------------------------------------------
procedure Lecture_Donnee (Ad : Adresse.T_Adresse;
Un_Octet : in out Octet.T_Octet);
procedure Ecriture_Donnee (Ad : Adresse.T_Adresse; Donnee : Octet.T_Octet);
-- TACHES ----------------------------------------------------------------
task body T_Bus is
use Z80;
begin
while (not La_Fin) loop
select
---------------------------------
accept Reset do
Init.Initialisation ("Toto");
end Reset;
---------------------------------
or
accept Afficher do
[statement]
end Afficher;
---------------------------------
or
accept Acces_Octet (Quelle_Operation : T_Operation;
Ad : Adresse.T_Adresse;
Donnee : in out Octet.T_Octet) do
Operation := Quelle_Operation;
case Quelle_Operation is
when Fetch | Memory_Read =>
--Text_Io.Put_Line
-- ("debut acces_octet en lecture de bus");
-- Tache_Memoire.Acces_Octet
-- (Memoire.Lire, Ad, Donnee);
Lecture_Donnee (Ad, Donnee); -- MY
-- Text_Io.Put_Line
-- ("fin acces_octet en lecture de bus");
when Memory_Write =>
-- Text_Io.Put_Line
-- ("debut acces_octet en ecriture de bus");
-- Tache_Memoire.Acces_Octet
-- (Memoire.Ecrire, Ad, Donnee);
Ecriture_Donnee (Ad, Donnee); -- MY
-- Text_Io.Put_Line
-- ("fin acces_octet en ecriture de bus");
when Io_Read =>
[statement]
when Io_Write =>
[statement]
end case;
end Acces_Octet;
---------------------------------
or
accept Acces_Mot (Quelle_Operation : Z80.T_Operation;
Ad : Adresse.T_Adresse;
Donnee : in out Mot.T_Mot) do
Operation := Quelle_Operation;
case Quelle_Operation is
when Fetch | Memory_Read =>
Text_Io.Put_Line
("debut acces_mot en lecture de bus");
Tache_Memoire.Acces_Mot (Memoire.Lire, Ad, Donnee);
Text_Io.Put_Line
("fin acces_mot en lecture de bus");
when Memory_Write =>
Text_Io.Put_Line
("debut acces_mot en ecriture de bus");
Tache_Memoire.Acces_Mot
(Memoire.Ecrire, Ad, Donnee);
Text_Io.Put_Line
("fin acces_mot en ecriture de bus");
when Io_Read =>
[statement]
when Io_Write =>
[statement]
end case;
end Acces_Mot;
---------------------------------
or
accept Signal_Periph (Periph_Id : Integer;
Signal : Z80_Defs.Signaux_Periph) do
[statement]
end Signal_Periph;
---------------------------------
or
accept Signal_Z80 (Signal : Z80_Defs.Signaux_Z80) do
[statement]
end Signal_Z80;
---------------------------------
or
accept
Deposer_Vecteur_It (Vecteur : Octet.T_Octet) do
[statement]
end Deposer_Vecteur_It;
---------------------------------
or
accept Lire_Vecteur_It (Vecteur : in out Octet.T_Octet) do
[statement]
end Lire_Vecteur_It;
---------------------------------
or
accept Fin do
La_Fin := True;
end Fin;
end select;
end loop;
end T_Bus;
-- PROCEDURES ---------------------------------------------
-- PROCEDURES POUR LECTURE ECRITURE MEMOIRE ---------------
procedure Decode_Adresse (Ad : in out Adresse.T_Adresse; Mem : out T_Mem) is
Bloc_Log, Bloc_Phy : Num_Bloc := 0;
Offset : Adresse.T_Adresse := 0;
begin
Bloc_Log := Ad / Taille_Bloc_Mem;
Bloc_Phy := Descr_Memoire (Bloc_Log).Bloc_Physique;
Mem := Descr_Memoire (Bloc_Phy).Type_De_Mem;
Offset := Ad mod Taille_Bloc_Mem;
Ad := Bloc_Phy * Taille_Bloc_Mem + Offset;
end Decode_Adresse;
-----------------------------------------------------------
procedure Lecture_Donnee (Ad : Adresse.T_Adresse;
Un_Octet : in out Octet.T_Octet) is
Ad_Donnee : Adresse.T_Adresse := Ad;
Mem : T_Mem := Rien;
begin
Decode_Adresse (Ad_Donnee, Mem);
case Mem is
when Ram | Rom =>
Tache_Memoire.Acces_Octet (Memoire.Lire, Ad_Donnee, Un_Octet);
when Rien =>
Un_Octet := 255;
-- Lecture a un emplacement vide !!!!
Text_Io.Put_Line ("LECTURE A UN EMPLACEMENT NON DECLARE");
end case;
end Lecture_Donnee;
-----------------------------------------------------------
procedure Ecriture_Donnee (Ad : Adresse.T_Adresse;
Donnee : Octet.T_Octet) is
Un_Octet : Octet.T_Octet := Donnee;
Ad_Donnee : Adresse.T_Adresse := Ad;
Mem : T_Mem := Rien;
begin
Decode_Adresse (Ad_Donnee, Mem);
case Mem is
when Ram =>
Tache_Memoire.Acces_Octet (Memoire.Ecrire, Ad_Donnee, Un_Octet);
when Rom =>
-- Ecriture en ROM !!!
Text_Io.Put_Line (" ECRITURE EN ROM !!!!");
null;
when Rien =>
-- Ecriture a un emplacement vide !!!!
Text_Io.Put_Line ("ECRITURE A UN EMPLACEMENT VIDE");
null;
end case;
end Ecriture_Donnee;
end Bus;