PROCEDURE TIMER;

{ Aus der Systemuhr wird eine auswertbare und anzeigbare Stopuhr gewonnen }
{ und in den Variablem TIS, TIM und TIH uebergeben }
{ Diese Variablen muessen im rufenden Programm vereinbart werden }

{ Durch Uebergabe von STI  =   0 wird die Stopuhr auf 0 gestellt }
{ Waehrend des Betriebes gibt STI die Summe der Sekunden an      }
{ Die Variable wird vom rufenden Programm bereitgestellt         }

VAR   SEK         :INTEGER ABSOLUTE $42;
      SEK1,SEK2   :INTEGER;

BEGIN
SEK2:=(SEK DIV 16)*10+(SEK MOD 16);
   IF (STI=0) THEN
      BEGIN
          SEK1:=SEK2;
          STI:=1;
          TIS:=0;
          TIM:=0;
          TIH:=0;
      END
   ELSE
      BEGIN
          IF (SEK1<SEK2) OR ((SEK2=0) AND (SEK1<>0)) THEN
             BEGIN
                 SEK1:=SEK2;
                 TIS:=TIS+1;
                 STI:=STI+1;
                 IF TIS>59 THEN
                    BEGIN
                        TIM:=TIM+1;
                        TIS:=0;
                        IF TIM>59 THEN
                           BEGIN
                               TIH:=TIH+1;
                               TIM:=0;
                               IF TIH>23 THEN TIH:=0;
                           END;
                    END;
             END;
      END;
END;