|
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: »townbs«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »townbs«
begin
algol copy.tcgproclib;
integer proc_dec_addrs,buffer_addrs,i,
result,param_result,param_no;
integer array claimbs(1:8);
long array processname(1:2);
long dev_name;
boolean anyclaim;
param_result := get_free_text(1,processname);
param_no := 1;
if param_result <> 0 then
proc_dec_addrs:=system(6,buffer_addrs,processname);
repeat
write(out,"sp",14-write(out,"nl",1,process_name),
<:temp:>,"sp",13-4,
<:perm-key1:>,"sp",13-9,
<:login:>,"sp",13-5,
<:user:>,"sp",13-4);
for dev_name := long <:drum:>,long <:drum1:>,
long <:disc:>, long <:disc1:>,
long <:disc2:>, long <:disc3:>,
long <:disc4:>, long <:disc5:> do
begin
result := lookbs(processname,string dev_name,claimbs);
anyclaim := false;
for i:=1 step 1 until 8 do
begin
if claimbs(i) <> 0 then anyclaim := true;
end;
if result = 0 and anyclaim then
begin
write(out,"sp",14-write(out,"nl",1,string dev_name));
for i:=1 step 2 until 7 do
begin
if claimbs(i+1) > 99999 and claimbs(i+1) < 999999 then
replace_char(7,'0' + claim_bs(i+1) mod 10)
else replace_char(7,'*');
write(out,<<d_____>,claimbs(i+1),",",1,
<<_d____>,claimbs(i));
end;
end
end;
outchar(out,10);
param_no:=param_no+1;
param_result := get_free_text(param_no,processname);
until param_result <> 0;
fpproc(7,0,0,0);
end program;
▶EOF◀