|
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: »utilpred«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦baac87bee⟧ »gi«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦baac87bee⟧ »gi«
└─⟦this⟧
mode list.yes
lkj=lookup utilprtx
if ok.no
contract from.gi utilprtx
tutilpr=edit utilprtx
l./externalintegerproc/,l./nl,/,
g1/nl,/"nl",/,
l./,sp,/,r/sp/"sp"/,r/nl/"nl"/,f
qqqx=edit tutilpr
l./ureclaim_pr/,
l./ownintegerbsd/,r/;/, claim_size;/,l1,
r/;/,rel;/,
l./core(1:18)/,r/18/200/,
l./init:=true/,d,
l./system(5,firstbs,na/,l1,i#
if -,init then
begin
init:=true;
system(5,nametable(1)-36,core);
rel:=core(1);
system(5,78,core);
system(5,core(1),core);
claimsize:=(core(2)-core(1)-rel);
write(out,"nl",1,<:tot claim table :>,claimsize,rel);
claimsize:=claimsize//8//bsdevices;
if true then write(out,"nl",1,<:claimsize:>,claimsize);
end init claimsize;
#,
l./entries:=core(key/,i/
if claimsize<2 then
begin
/,
l./bsno/,i/
end
else
begin
entries:=core(2*keyno+1);
segm:=core(2*keyno+2)*slicelength;
end;
/,f
tutilpr=edit qqqx
f
i tutilpr
scope user,
utilpr changearea chngentrpr claimproc clearproc,
convertproc listtail lookupproc renameproc scopeproc,
setproc
mode list.no
▶EOF◀