DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »townbs«, »tsclaim«

└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ.  Detaljer om "HC8000" projekt.
    └─⟦0364f57e3⟧ 
        └─⟦17ab955be⟧ »cgutil« 
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦17ab955be⟧ »cgutil« 
            └─⟦this⟧ 
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦this⟧ »tsclaim« 

TextFile

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◀