%include "I:UTIL.INC"

%include "CONFIG.INC"
%include "SCHEDULE.INC"

%begin
   %integer i
      printstring("Packet arrived    ")
      phex(1 << packet arrived   );  spaces(2)
      write(packet arrived   , 0);  newline
      printstring("Ether ack wait    ")
      phex(1 << ether ack wait   );  spaces(2)
      write(ether ack wait   , 0);  newline
      printstring("Ether RX request  ")
      phex(1 << ether RX request );  spaces(2)
      write(ether RX request , 0);  newline
      printstring("Disc  transfer    ")
      phex(1 << disc  transfer   );  spaces(2)
      write(disc  transfer   , 0);  newline
      printstring("Disc  completion  ")
      phex(1 << disc  completion );  spaces(2)
      write(disc  completion , 0);  newline
      printstring("Disc  sema wait   ")
      phex(1 << disc  sema wait  );  spaces(2)
      write(disc  sema wait  , 0);  newline
      printstring("Ether TX request  ")
      phex(1 << ether TX request );  spaces(2)
      write(ether TX request , 0);  newline
      printstring("Proc  request     ")
      phex(1 << proc  request    );  spaces(2)
      write(proc  request    , 0);  newline
      printstring("Stamp flag        ")
      phex(1 << stamp flag       );  spaces(2)
      write(stamp flag       , 0);  newline

      %if despoolers # 0 %start
         %for i = 1, 1, despoolers %cycle
            printstring("Despooler ");  write(i, 0)
            spaces(7)
            phex(1 << (despooler base + i));  spaces(2)
            write(despooler base + i, 0);  newline
         %repeat
      %finish

      newline

      printstring("Inhibit limit     ")
      write(inhibit limit    , 0);  newline
      printstring("Last event        ")
      write(last event       , 0);  newline

%end %of %program