|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Conv, seg_04eb5c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Conversion;
with General_Defs;
with Text_Io;
procedure Test_Conv is
S : constant String := "la chaine a passer a la moulinette";
begin
Text_Io.Put_Line (S);
declare
Bs : constant General_Defs.Byte_String := Conversion.String_To_Bs (S);
begin
declare
S2 : constant String := Conversion.Bs_To_String (Bs);
begin
Text_Io.Put_Line (S2);
declare
Bs2 : constant General_Defs.Byte_String :=
Conversion.String_To_Bs (S2);
begin
declare
S3 : constant String := Conversion.Bs_To_String (Bs2);
S4 : constant String := Conversion.Image (Bs2);
begin
Text_Io.Put_Line (S3);
Text_Io.Put (S4);
end;
end;
end;
end;
declare
N : Natural := 23;
N1, N2 : Natural := 0;
B1, B2 : General_Defs.Byte;
begin
B1 := Conversion.Nat_To_Byte (N);
N2 := Conversion.Byte_To_Nat (B1);
B2 := Conversion.Nat_To_Byte (N2);
Text_Io.Put_Line (Natural'Image (Conversion.Byte_To_Nat (B2)));
declare
S : constant String := Conversion.Image (B1);
begin
Text_Io.Put_Line (S);
end;
end;
end Test_Conv;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=21 rec1=00 rec2=01 rec3=028
[0x01] rec0=0e rec1=00 rec2=02 rec3=001
tail 0x2154a37308770674421ba 0x42a00088462060003