DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFile
    Names: »taccount«

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦0b92c64d5⟧ »ctb« 
            └─⟦this⟧ 

TextFile

; rc 5.5.72                    boss 2, taccount   ...1...

; 76 12 16, 8 ;version id:
\f


; rc 5.5.72                    boss 2, taccount   ...3...

accountjob = edit
i&
job account 51 time 6 0 0 output 200000
writeacc = set 20 disc
writeacc=algol
begin
 integer array dummy(1:1);
 integer i,date,clock;
 real t,k;
 zone z (128*2,2,stderror);
 boolean field mounts,loads,tempdrum,tempdisc,stations,size,waitingtime, onlinelines;
 integer field kind,project,param1,param2,param3,cputime,papertype,
               deviceword1;
 long field time; array field user;

 project:=2;
 user:=2;
 kind:=12;
 time:=16;
 param1:=18;
 param2:=20;
 param3:=22;
 mounts:=19;
 loads:=20;
 cputime:=22;
 papertype:=22;
 tempdrum:=23;
 tempdisc:=24;
 stations:=25;
 size:=26;
 deviceword1:=28;
waitingtime:=31;
onlinelines:=32;

 open(z,4,<:accountfile:>,0);
 write(out,<:<12>account file log<10>:>);

rep:
 inrec(z,8);
 if z.kind=99 then goto slut;
 k:=z.time // 10000;
 i:=1; date:=systime(2,k,t); clock:=t;
 if z.kind>3 then write(out,false add 32,9-write(out,<<d>,z.kind))
 else
 write(out,case z.kind of (<:job      :>,<:logout   :>,<:print    :>));
 write(out,false add 32,16-write(out,string z.user(increase(i))),
 <<dddddd>,z.project,<:   :>,<< dd dd dd>,date,clock,<< -ddddddd>,
 z.param1);
 if z.kind=1 then begin
  write(out,<< -ddddddd>,entier(z.cputime*0.8192),(z.size extract 12)*512,<:<10>:>,
  false add 32,7,(z.tempdrum extract 12)*4,(z.tempdisc extract 12)*8,z.loads extract 12,
  z.stations extract 12,z.mounts extract 12, z.waitingtime extract 12, z.onlinelines extract 12,<:    :>);
  if z.deviceword1 shift (-22) extract 1 = 1 then write(out,<:  read:>);
  if z.deviceword1 shift (-21) extract 1 = 1 then write(out,<:  print:>);
  if z.deviceword1 shift (-20) extract 1 = 1 then write(out,<:  card:>);
  if z.deviceword1 shift (-19) extract 1 = 1 then write(out,<:  punch:>);
  if z.deviceword1 shift (-18) extract 1 = 1 then write(out,<:  plot:>);
 end else
 begin
  write(out,<< -ddddddd>,z.param2);
  if z.kind > 99 then write(out,<< -ddddddd>,z.param3);
  if z.kind=3 then write(out,<< -ddddddd>,z.papertype);
 end;
 write(out,<:<10>:>);
 goto rep;
slut:
 write(out,<:<10>end account log<12>:>);
 monitor(48,z,1,dummy);
end

writeacc
finis
&,f
scope user accountjob
base
▶EOF◀