|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »kkss«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦508e019d6⟧ »kkfiler«
└─⟦this⟧
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦8748ba386⟧ »kkfiler«
└─⟦this⟧
begin
integer i,j,k,saddr,ch;
integer array bsclaims(1:8),
tableaddr(1:1),
slicetableaddr(1:6),
slicetablehead(1:18),
newslice(1:4);
long array field dname;
long array devname(1:2),
an(1:5);
dname:=18;
saddr:=description(<:s:>);
write(out,<:devicename = :>); setposition(out,0,0);
j:=1; devname(2):=extend 0;
readstring(in,devname,j);
system(5,92,tableaddr);
system(5,tableaddr(1),slicetableaddr);
for i:=1 step 1 until 6 do
begin
system(5,slicetableaddr(i)-36,slicetablehead);
if slicetablehead.dname(1)=devname(1) and
slicetablehead.dname(2)=devname(2) then
begin i:=7;
system(5,slicetablehead(1)+saddr,bsclaims);
write(out,<:old slice: temp login user= :>,<< dddd>,
bsclaims(2),bsclaims(6),bsclaims(8));
for k:=2 step 2 until 8 do
if bsclaims(k)<2048 then bsclaims(k):=bsclaims(k)+2048;
wordstore(saddr+slicetablehead(1)+2,bsclaims(2));
wordstore(saddr+slicetablehead(1)+6,bsclaims(4));
wordstore(saddr+slicetablehead(1)+10,bsclaims(6));
wordstore(saddr+slicetablehead(1)+14,bsclaims(8));
end;
end;
end;
▶EOF◀