|
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: »tsletsendte «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦this⟧ »tsletsendte «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »tsletsendte «
procedure sletsendte;
begin
zone z(128,1,stderror), zpool,zlog(1,1,stderror);
integer array pooltail,tail,ia(1:10);
integer i,res;
open(zpool,0,<:vtlogpool:>,0); close(zpool,true);
res:=monitor(42,zpool,0,pooltail);
open(z,4,<:vtlogslet:>,0);
if monitor(42,z,0,tail)=0 and tail(10)>0 then
begin
if monitor(52,z,0,tail)=0 then
begin
if monitor(8,z,0,tail)=0 then
begin
for i:=1 step 1 until tail(10) do
begin
inrec6(z,8);
open(zlog,0,z,0); close(zlog,true);
if monitor(42,zlog,0,ia)=0 then
begin
if monitor(48,zlog,0,ia)=0 then
begin
pooltail(1):=pooltail(1)+ia(1);
end;
end;
end;
tail(10):=0;
monitor(44,z,0,tail);
end
else
monitor(64,z,0,tail);
end;
if res=0 then monitor(44,zpool,0,pooltail);
end;
close(z,true);
end;
▶EOF◀