head     1.1;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


1.1
date     89.03.08.10.58.41;  author quist;  state Exp;
branches ;
next     ;


desc
@test file for timeing capability
@



1.1
log
@Initial revision
@
text
@$DEBUG ON$
PROGRAM PTEST(INPUT,OUTPUT);
IMPORT ASM;
  VAR
    I : INTEGER;
    T0: INTEGER;
  PROCEDURE PROCA;
   VAR I : INTEGER;
    BEGIN
      FOR I := 1 TO 2000 DO;
    END;
    
  PROCEDURE PROCB;
    VAR I : INTEGER;
    PROCEDURE PROCBB;
      VAR I : INTEGER;
      BEGIN
        FOR I := 1 TO 1000 DO;
      END;
    BEGIN
      FOR I := 1 TO 100 DO
        PROCBB;
    END;
    
BEGIN
  T0 := TICKER;
  FOR I := 1 TO 2 DO
  BEGIN
    WRITELN(I);
    PROCA;
    PROCB;
  END;
  WRITELN(ABS(T0-TICKER)/4);
END.
@
