|
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: »gccleartxt«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »gccleartxt«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »gccleartxt«
begin
integer i,a,b,xx;
real array cname,cname1(1:2);
integer field permkey,l,u;
zone cat(128,1,stderror);
real array field name;
a:=wordload(wordload(66)+68);
b:=wordload(wordload(66)+70);
if readparam(cname1)=-1 then readparam(cname1);
readparam(cname1);
xx:=if( cname1(1)=2 or cname1(1)=real <:day:>) then 2 else 0;
cleararray(cname);
u:=6; l:=4;
permkey:=2; name:=6;
open(cat,4,<:catalog:>,0);
for i:=inrec(cat,0) while i<>0 do
begin
inrec6(cat,34);
if cat.permkey extract 3=xx or
cat.permkey extract 3=0 then
begin
cname1(1):=cat.name(1);cname1(2):=cat.name(2);
if cat.l=a and cat.u=b and
(cat.name(1)=real <:c:> or cat.name(1)=real <:v:>) then
else
if setcatbase(cname,cat.l,cat.u)=0 then
removeentry(cname1);
end;
end;
close(cat,true);
setcatbase(cname,a,b);
end;
▶EOF◀