DataMuseum.dk

top - metrics - download

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

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »qacttx      « 

TextFile

mode list.yes
q=algol survey.yes
begin
  procedure actproc (i);
  integer            i ;
  begin
    integer          hwds;
    long    array    la (1:2);

    disable
    begin
    zone    array       z (2, 128, 1, stderror);

    report (<:in disable in activity:>);

    open   (z (1), 4, <:pip:>, 0);
    open   (z (2), 4, <:pop:>, 0);
  
    writezone (z (1), 1);
    writezone (z (2), 2);

    for hwds := inrec6 (z (1), 0) while hwds > 2 do
    begin
      inrec6  (z (1), hwds);
      outrec6 (z (2), hwds);
      tofrom  (z (2), z (1), hwds);
    end;

    close (z (1), true);
    close (z (2), true);
    end disable;

    report(<:before passivate in activity:>);

    passivate;

  end actproc;

  procedure report (text);
  string            text ;
  begin
    integer             i;
    long    array       la (1:2);

    write (out,
    "nl", 2, text,
    "nl", 1, <:free core, low  : :>, system (15, i, la),
    "nl", 1, <:         , high : :>, i                 ,
    "nl", 1, <:program name    : :>, la               );

  end report;

  integer           act, cause, i, hwds;
  long              act__cause;
  long    array     la (1:2);
  zone              zz (18, 1, stderror);

  endaction := 0;

  report (<:before activity:>);

  activity (2);

  i := 1;

  actcause := newactivity (i, i, actproc, i);
  act      := actcause shift (-24) extract 24;
  cause    := actcause             extract 24;
  write (out,
  "nl", 1, <:newactivity = :>, act, <: shift 24 + :>, cause);

  report (<:before activate:>);

  actcause := activate (1);
  act      := actcause shift (-24) extract 24;
  cause    := actcause             extract 24;
  write (out,
  "nl", 1, <:activate    = :>, act, <: shift 24 + :>, cause);

end;
end
▶EOF◀