|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Erreur, seg_027b9f, seg_027d94, seg_027e6b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Z80, Ihm;
package body Erreur is
-- CONSTANTES -----------------------------------------------------------
type T_Pt_String is access String;
type T_Messages_Erreurs is array (Numero_Erreur range <>) of T_Pt_String;
Messages_Erreurs : constant T_Messages_Erreurs (0 .. 100) :=
(0 => new String'("NO ERROR !"),
1 => new String'("INTERRUPT ERROR : Incorrect code op vector !!!"),
2 => new String'("INPUT ERROR : Invalid value !!!"),
3 .. 4 => new String'("UNKNOWN ERROR..."),
5 => new String'("OPEN ERROR : Unknow Hexa File !!!"),
6 => new String'("OPEN ERROR : In reading Hexa File !!!"),
7 .. 9 => new String'("UNKNOWN ERROR..."),
10 => new String'("MEMORY ERROR : Read at non defined address !!!"),
11 => new String'("MEMORY ERROR : Write at non defined address !!!"),
12 => new String'("MEMORY ERROR : Write in ROM !!!"),
13 => new String'("PERIPH ERROR : Io port acces error !!!"),
14 => new String'("PERIPH ERROR : Memory mapped acces error !!!"),
15 => new String'("CONFIG ERROR : File not found !!!"),
16 => new String'("CONFIG ERROR : Syntax file !!!"),
17 .. 19 => new String'("UNKNOWN ERROR..."),
20 => new String'("PERIPH ERROR : Too more peripherals !!!"),
21 => new String'("PERIPH ERROR : Unknown peripheral name !!!"),
22 => new String'("PERIPH ERROR : Unknown peripheral identifier !!!"),
23 .. 29 => new String'("UNKNOWN ERROR..."),
30 => new String'("ACIA ERROR : Too more ACIAs !!!"),
31 => new String'("ACIA ERROR : Unknown ACIA identifier !!!"),
32 => new String'("ACIA ERROR : I receive a unknown window event !!!"),
33 =>
new String'
("ACIA ERROR : I already opened a window for this ACIA !!!"),
34 => new String'("ACIA ERROR : You enter a bad value !!!"),
35 .. 39 => new String'("UNKNOWN ERROR..."),
40 => new String'("PPI ERROR : Too more PPIs !!!"),
41 => new String'("PPI ERROR : Unknown PPI identifier !!!"),
42 => new String'("PPI ERROR : I can't force this bit !!!"),
43 =>
new
String'
("PPI ERROR : The peripheral can't do this (Bad configuration) !!!"),
44 => new String'("PPI ERROR : I can't write (Bad configuration) !!!"),
45 => new String'("PPI ERROR : I can't read (Bad configuration) !!!"),
46 => new String'("PPI ERROR : I receive a Unknown window event !!!"),
47 =>
new String'
("PPI ERROR : I already opened a window for this PPI !!!"),
48 => new String'("PPI ERROR : You enter a bad value !!!"),
49 => new String'("UNKNOWN ERROR..."),
50 => new String'("PTM ERROR : Too more Timers !!!"),
51 => new String'("PTM ERROR : Unknown Timer identifier !!!"),
52 =>
new String'
("PTM ERROR : I can't take this configuration (unknown) !!!"),
53 => new String'("PTM ERROR : I receive a Unknown window event !!!"),
54 =>
new String'
("PTM ERROR : I already opened a window for this Timer !!!"),
55 => new String'("PTM ERROR : You enter a bad value !!!"),
56 .. 59 => new String'("UNKNOWN ERROR..."),
60 => new String'("MEMORY ERROR : Bad Value Input !!!"),
61 .. 100 => new String'("UNKNOWN ERROR..."));
-- VARIABLES ------------------------------------------------------------
Erreur_Detectee : Natural := 0;
-- PROCEDURES -----------------------------------------------------------
procedure Detectee (Num : Numero_Erreur) is
begin
Erreur_Detectee := Num;
Ihm.Window.Put_Field (Z80.Main_Win, "MW.BB.Message",
Messages_Erreurs (Num).all);
Z80.Etat_Z80 := Z80.Endormi;
end Detectee;
function Presente return Boolean is
Present : Boolean := Erreur_Detectee /= 0;
begin
Erreur_Detectee := 0;
return Present;
end Presente;
function Enregistree return String is
Err : Numero_Erreur := Erreur_Detectee;
begin
Erreur_Detectee := 0;
return Messages_Erreurs (Err).all;
end Enregistree;
end Erreur;
nblk1=6
nid=0
hdr6=c
[0x00] rec0=16 rec1=00 rec2=01 rec3=05c
[0x01] rec0=00 rec1=00 rec2=02 rec3=028
[0x02] rec0=10 rec1=00 rec2=04 rec3=06c
[0x03] rec0=14 rec1=00 rec2=05 rec3=008
[0x04] rec0=16 rec1=00 rec2=03 rec3=01e
[0x05] rec0=11 rec1=00 rec2=06 rec3=000
tail 0x21721dee683ad4a8b4345 0x42a00088462060003