|
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: 14336 (0x3800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Registres, seg_020ef4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Text_Io;
package body Registres is
use Z80_Defs;
-- TYPES --------------------------------------------------------------
type T_Reg_Prime is
record
Fort : Octet.T_Octet;
Faible : Octet.T_Octet;
end record;
-- VARIABLES -----------------------------------------------------------
Tab_Simple : array (Registre_Simple) of Octet.T_Octet;
Tab_Prime : array (Registre_Double range Af_Prime .. Hl_Prime) of
T_Reg_Prime;
Tab_Double : array (Registre_Double range Ix .. Pc) of Mot.T_Mot;
-- PROCEDURES ----------------------------------------------------------
function Lire_Simple (Le_Registre : Z80_Defs.Registre_Simple)
return Octet.T_Octet is
begin
return Tab_Simple (Le_Registre);
end Lire_Simple;
------------------------------------------------------------------------
procedure Reset is
begin
for I in Registre_Simple loop
Tab_Simple (I) := 0;
end loop;
for I in Registre_Double range Af_Prime .. Hl_Prime loop
Tab_Prime (I).Fort := 0;
Tab_Prime (I).Faible := 0;
end loop;
for I in Registre_Double range Ix .. Pc loop
Tab_Double (I) := 0;
end loop;
end Reset;
------------------------------------------------------------------------
function Lire_Double
(Le_Registre : Z80_Defs.Registre_Double) return Mot.T_Mot is
Resultat : Mot.T_Mot := 0;
begin
case Le_Registre is
when Ix .. Pc =>
Resultat := Tab_Double (Le_Registre);
when Af_Prime .. Hl_Prime =>
Resultat := Mot.Construire (Tab_Prime (Le_Registre).Fort,
Tab_Prime (Le_Registre).Faible);
when Af =>
Resultat := Mot.Construire (Tab_Simple (A), Tab_Simple (F));
when Bc =>
Resultat := Mot.Construire (Tab_Simple (B), Tab_Simple (C));
when De =>
Resultat := Mot.Construire (Tab_Simple (D), Tab_Simple (E));
when Hl =>
Resultat := Mot.Construire (Tab_Simple (H), Tab_Simple (L));
end case;
return Resultat;
end Lire_Double;
------------------------------------------------------------------------
procedure Ecrire_Simple (Le_Registre : Z80_Defs.Registre_Simple;
Un_Octet : Octet.T_Octet) is
begin
Tab_Simple (Le_Registre) := Un_Octet;
end Ecrire_Simple;
------------------------------------------------------------------------
procedure Ecrire_Double
(Le_Registre : Z80_Defs.Registre_Double; Un_Mot : Mot.T_Mot) is
begin
case Le_Registre is
when Ix .. Pc =>
Tab_Double (Le_Registre) := Un_Mot;
when Af_Prime .. Hl_Prime =>
Tab_Prime (Le_Registre).Fort := Mot.Poids_Fort (Un_Mot);
Tab_Prime (Le_Registre).Faible := Mot.Poids_Faible (Un_Mot);
when Af =>
Tab_Simple (A) := Mot.Poids_Fort (Un_Mot);
Tab_Simple (F) := Mot.Poids_Faible (Un_Mot);
when Bc =>
Tab_Simple (B) := Mot.Poids_Fort (Un_Mot);
Tab_Simple (C) := Mot.Poids_Faible (Un_Mot);
when De =>
Tab_Simple (D) := Mot.Poids_Fort (Un_Mot);
Tab_Simple (E) := Mot.Poids_Faible (Un_Mot);
when Hl =>
Tab_Simple (H) := Mot.Poids_Fort (Un_Mot);
Tab_Simple (L) := Mot.Poids_Faible (Un_Mot);
end case;
end Ecrire_Double;
------------------------------------------------------------------------
procedure Echange_Octet (Octet_1, Octet_2 : in out Octet.T_Octet) is
Un_Octet : Octet.T_Octet;
begin
Un_Octet := Octet_1;
Octet_1 := Octet_2;
Octet_2 := Un_Octet;
end Echange_Octet;
------------------------------------------------------------------------
procedure Echange_Af_Reg_Prime is
Reg_Fort, Reg_Faible : Octet.T_Octet;
begin
Echange_Octet (Tab_Prime (Af_Prime).Fort, Tab_Simple (A));
Echange_Octet (Tab_Prime (Af_Prime).Faible, Tab_Simple (F));
end Echange_Af_Reg_Prime;
------------------------------------------------------------------------
procedure Echange_De_Hl is
Reg_Fort, Reg_Faible : Octet.T_Octet;
begin
Echange_Octet (Tab_Simple (D), Tab_Simple (H));
Echange_Octet (Tab_Simple (E), Tab_Simple (L));
end Echange_De_Hl;
------------------------------------------------------------------------
procedure Echange_Bc_De_Hl_Reg_Prime is
Reg_Fort, Reg_Faible : Octet.T_Octet;
begin
Echange_Octet (Tab_Prime (Bc_Prime).Fort, Tab_Simple (B));
Echange_Octet (Tab_Prime (Bc_Prime).Faible, Tab_Simple (C));
Echange_Octet (Tab_Prime (De_Prime).Fort, Tab_Simple (D));
Echange_Octet (Tab_Prime (De_Prime).Faible, Tab_Simple (E));
Echange_Octet (Tab_Prime (Hl_Prime).Fort, Tab_Simple (H));
Echange_Octet (Tab_Prime (Hl_Prime).Faible, Tab_Simple (L));
end Echange_Bc_De_Hl_Reg_Prime;
-----------------------------------------------------------------------
procedure Afficher is
begin
Text_Io.Put_Line ("");
Text_Io.Put_Line ("-- REGISTRES -------------------------------");
Text_Io.Put_Line ("");
Text_Io.Put_Line (" A F ");
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (A));
Text_Io.Put (" ");
Octet.Afficher_Octet_Binaire (Tab_Simple (F));
Text_Io.Put_Line ("");
Text_Io.Put_Line ("");
Text_Io.Put_Line (" B C ");
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (B));
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (C));
Text_Io.Put_Line ("");
Text_Io.Put_Line ("");
Text_Io.Put_Line (" D E ");
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (D));
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (E));
Text_Io.Put_Line ("");
Text_Io.Put_Line ("");
Text_Io.Put_Line (" H L ");
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (H));
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (L));
Text_Io.Put_Line ("");
Text_Io.Put_Line ("");
Text_Io.Put_Line (" I R ");
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (I));
Text_Io.Put (" ");
Octet.Afficher_Octet_Hexa (Tab_Simple (R));
Text_Io.Put_Line ("");
Text_Io.Put_Line ("");
Text_Io.Put_Line (""); --------------------
Text_Io.Put (" AF' : ");
Octet.Afficher_Octet_Hexa (Tab_Prime (Af_Prime).Fort);
Octet.Afficher_Octet_Hexa (Tab_Prime (Af_Prime).Faible);
Text_Io.Put_Line ("");
Text_Io.Put (" BC' : ");
Octet.Afficher_Octet_Hexa (Tab_Prime (Bc_Prime).Fort);
Octet.Afficher_Octet_Hexa (Tab_Prime (Bc_Prime).Faible);
Text_Io.Put_Line ("");
Text_Io.Put (" DE' : ");
Octet.Afficher_Octet_Hexa (Tab_Prime (De_Prime).Fort);
Octet.Afficher_Octet_Hexa (Tab_Prime (De_Prime).Faible);
Text_Io.Put_Line ("");
Text_Io.Put (" HL' : ");
Octet.Afficher_Octet_Hexa (Tab_Prime (Hl_Prime).Fort);
Octet.Afficher_Octet_Hexa (Tab_Prime (Hl_Prime).Faible);
Text_Io.Put_Line ("");
Text_Io.Put_Line (""); ---------------------------
Text_Io.Put (" IX : ");
Mot.Afficher_Mot_Hexa (Tab_Double (Ix));
Text_Io.Put_Line ("");
Text_Io.Put (" IY : ");
Mot.Afficher_Mot_Hexa (Tab_Double (Iy));
Text_Io.Put_Line ("");
Text_Io.Put (" sp : ");
Mot.Afficher_Mot_Hexa (Tab_Double (Sp));
Text_Io.Put_Line ("");
Text_Io.Put (" pc : ");
Mot.Afficher_Mot_Hexa (Tab_Double (Pc));
Text_Io.Put_Line ("");
end Afficher;
end Registres;
nblk1=d
nid=a
hdr6=14
[0x00] rec0=25 rec1=00 rec2=01 rec3=01e
[0x01] rec0=24 rec1=00 rec2=05 rec3=026
[0x02] rec0=1f rec1=00 rec2=09 rec3=00e
[0x03] rec0=17 rec1=00 rec2=04 rec3=07c
[0x04] rec0=0e rec1=00 rec2=0b rec3=058
[0x05] rec0=1d rec1=00 rec2=08 rec3=030
[0x06] rec0=1c rec1=00 rec2=02 rec3=028
[0x07] rec0=1d rec1=00 rec2=0c rec3=01a
[0x08] rec0=1c rec1=00 rec2=03 rec3=020
[0x09] rec0=0f rec1=00 rec2=06 rec3=000
[0x0a] rec0=1a rec1=00 rec2=06 rec3=004
[0x0b] rec0=11 rec1=00 rec2=0a rec3=000
[0x0c] rec0=06 rec1=40 rec2=00 rec3=000
tail 0x2150b5a8a822b547a64e6 0x42a00088462060003
Free Block Chain:
0xa: 0000 00 07 02 69 80 4a 20 20 20 20 20 20 4f 63 74 65 ┆ i J Octe┆
0x7: 0000 00 0d 01 ae 80 09 2d 2d 2d 2d 2d 2d 2d 2d 2d 09 ┆ --------- ┆
0xd: 0000 00 00 00 04 80 01 20 01 02 00 00 00 04 94 0f 60 ┆ `┆