|
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 Raw_Dump, seg_04b962
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Raw_Dump_W_Addr;
with Unchecked_Conversion;
with System;
with Unsigned_Types;
procedure Raw_Dump (Addr : System.Address; Count : Integer) is
function A_To_U is new Unchecked_Conversion
(Source => System.Address,
Target => Unsigned_Types.Unsigned_Integer);
begin
Raw_Dump_W_Addr (Addr, Count, A_To_U (Addr));
end Raw_Dump;
-- The following test program calls both raw_dump and raw_dump_w_addr
-- and provides the listing shown on a machine with big-endian byte
-- order (Sun3, Sun4, HP300). On a little-endian machine, some of
-- the bytes will be reversed (VAX, PS/2, Symmetry, DECstation 3100)
--
-- Note that the last 3 lines should be the same on any machine!
--
-- EFFFC20: 11 00 EE FF 33 22 CC DD 55 44 AA BB 77 66 88 99 "....3"..UD..wf.."
-- 3788: 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 "abcdefghijklmnop"
-- 3798: 71 72 73 74 75 76 77 78 79 7A 41 42 43 44 45 46 "qrstuvwxyzABCDEF"
-- 37A8: 31 32 33 34 35 "12345"
-- AAABBB: 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 "abcdefghijklmnop"
-- AAABCB: 71 72 73 74 75 76 77 78 79 7A 41 42 43 44 45 46 "qrstuvwxyzABCDEF"
-- AAABDB: 31 32 33 34 35 "12345"
--
--with raw_dump;
--with raw_dump_w_addr;
--with unsigned_types;
--procedure test is
--\x09type int4 is array(1..4) of integer;
--\x09mem: int4 := (16#1100eeff#, 16#3322ccdd#, 16#5544aabb#, 16#77668899#);
--\x09ccc: constant string := "abcdefghijklmnopqrstuvwxyzABCDEF12345";
--begin
--\x09raw_dump(mem(1)'address, 16);
--\x09raw_dump(ccc'address, ccc'last);
--
--\x09raw_dump_w_addr(ccc'address, ccc'last,
--\x09\x09\x09unsigned_types.unsigned_integer(16#aaabbb#));
--end;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=17 rec1=00 rec2=01 rec3=090
[0x01] rec0=14 rec1=00 rec2=02 rec3=001
tail 0x21750ba56868435e332e5 0x42a00088462060003