|
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 - metrics - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Visual_System_3, seg_04bc1e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Visual_System_3 is
type Marker is private;
type Marker_Ids is (Model_Marker_Id, Selected_Block_Marker_Id,
Top_Block_Marker_Id, Top_Copied_Model_Marker_Id,
On_Table_Marker_Id);
type Directions is (Right, Left, Up, Down);
type Labels is new Character;
Null_Label : constant Labels := ' ';
procedure Put_Block (Block_Marked_With_Id : in Marker_Ids;
On_Marked_Place_With_Id : in Marker_Ids);
function Get_Label (The_Marker_Id : in Marker_Ids) return Labels;
function Is_Same
(One_Marker_Id : in Marker_Ids; Other_Marker_Id : in Marker_Ids)
return Boolean;
function Find (What_Label : in Labels; The_Marker_Id : in Marker_Ids)
return Boolean;
procedure Make_Coincided (What_Id : in Marker_Ids;
With_What_Id : in Marker_Ids);
function Move (What_Id : in Marker_Ids; In_Direction : in Directions)
return Boolean;
procedure Protect_Column (Marker_Id_In_Column : in Marker_Ids);
procedure Unprotect_Column (Marker_Id_In_Column : in Marker_Ids);
private
type Positions is
record
X : Integer;
Y : Integer;
end record;
Null_Position : Integer := -1;
type Marker is
record
Position : Positions := (X => Null_Position, Y => Null_Position);
end record;
end Visual_System_3;
nblk1=3
nid=3
hdr6=4
[0x00] rec0=24 rec1=00 rec2=01 rec3=002
[0x01] rec0=1a rec1=00 rec2=02 rec3=001
[0x02] rec0=0b rec1=00 rec2=00 rec3=004
tail 0x21750f1dc86895b8e2042 0x42a00088462063c03
Free Block Chain:
0x3: 0000 00 00 00 0e 80 05 73 74 65 6d 3b 05 00 00 00 00 ┆ stem; ┆