|
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, package body Local, seg_057faa
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with System;
with V_Bits;
package body Local is
procedure Init is
Duart : Byte;
Cra : Byte;
Mra : Byte;
Csra : Byte;
Ivr : Byte;
Pic_R0 : Byte;
Pic_R1 : Byte;
Pic_R5 : Byte;
for Duart use at System.Address'Ref (16#03001000#);
for Cra use at System.Address'Ref (16#03001002#);
for Mra use at System.Address'Ref (16#03001000#);
for Csra use at System.Address'Ref (16#03001001#);
for Ivr use at System.Address'Ref (16#0300100C#);
for Pic_R0 use at System.Address'Ref (16#03010020#);
for Pic_R1 use at System.Address'Ref (16#03010022#);
for Pic_R5 use at System.Address'Ref (16#0301002A#);
begin
Cra := (2#00011010#);
Mra := (2#00010011#);
Mra := (2#00000111#);
Csra := (2#10111011#);
Ivr := 64;
Cra := (2#01000101#);
Pic_R0 := 1;
Pic_R1 := 0;
Pic_R5 := 0;
end Init;
procedure Put (B : Byte) is
Data : Byte;
Sra : Byte;
Recu : Byte;
for Data use at System.Address'Ref (16#03001003#);
for Sra use at System.Address'Ref (16#03001001#);
Trans : Boolean := True;
Verou : Integer := 0;
begin
while (Verou = 0) loop
Verou := V_Bits.Bit_And (Byte'Pos (2#00000100#), Byte'Pos (Sra));
end loop;
Data := B;
end Put;
procedure Get (B : out Byte; Got_Byte : out Boolean) is
begin
null;
end Get;
end Local;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1f rec1=00 rec2=01 rec3=018
[0x01] rec0=1a rec1=00 rec2=02 rec3=001
tail 0x217654da487db6978e748 0x42a00088462060003