|
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_027509
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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;
end Detectee;
function Presente return Boolean is
begin
return (Erreur_Detectee /= 0);
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=2
hdr6=a
[0x00] rec0=14 rec1=00 rec2=01 rec3=084
[0x01] rec0=10 rec1=00 rec2=04 rec3=06c
[0x02] rec0=14 rec1=00 rec2=05 rec3=008
[0x03] rec0=1a rec1=00 rec2=03 rec3=04a
[0x04] rec0=08 rec1=00 rec2=06 rec3=000
[0x05] rec0=11 rec1=00 rec2=06 rec3=000
tail 0x21720bbbc83a48d336300 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 03 fc 80 15 20 20 20 20 20 20 20 20 20 20 ┆ ┆