! Some machine specific utilities for ILAP

%external %integer %fn %spec out stream

! A monitoring routine for ILAP, which uses system dependent timings -

%external %routine ILAP monitor (%string (255) S)
   %integer I
   I = out stream
   select output (0)
   print string ("Monitor:  CPU =?")
!   print (deltacpu/1000,1,2)
!   print string ("s  PF =")
!   write (delta page,2)
   space;   space
   print string (s)
   newline
%end

%external %byte %integer %fn default technology
   %result = 'N'
%end

%external %routine ILAP (%string (255) parm)
   %external %routine %spec IMP80 (%string (255) PARM)
   %external %routine %spec RUN   (%string (255) PARM)
   IMP80 (parm.",T#OBJ")
   RUN ("T#OBJ")
%end

%end %of %file