home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / hitech / test02.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-11-10  |  2.7 KB  |  66 lines
  1. (**********************************************************)
  2. (*                                                        *)
  3. (*                Filename TEST02.PAS                     *)
  4. (*                                                        *)
  5. (*      TOOLBOX-Spezial III  Echtzeitverarbeitung         *)
  6. (*                                                        *)
  7. (*        (C) TOOLBOX und Thomas Lang 1988                *)
  8. (*                                                        *)
  9. (*   Dieses File enthält das Testprogramm Test02, das     *)
  10. (*   nur Periodic 1 als Aufgabe enthält. Der Zweck des    *)
  11. (*   Programms ist:                                       *)
  12. (*                                                        *)
  13. (*      1.) die Files Schedul, Utility und Debug          *)
  14. (*          (jeweils Deklarationen und Unterprogramme)    *)
  15. (*          werden insofern überprüft, daß ziemlich       *)
  16. (*          viele der gebotenen Prozeduren aufgerufen     *)
  17. (*          werden, wenn auch keine Aufgabe außer         *)
  18. (*          Periodic 1 und Debug etwas zu tun haben.      *)
  19. (*                                                        *)
  20. (*      2.) die Konstante für NullBelastung wird damit    *)
  21. (*          ziemlich genau ermittelt. Dazu muß sie aber   *)
  22. (*          zuerst einen willkürlichen Wert zugewiesen    *)
  23. (*          bekommen.                                     *)
  24. (*                                                        *)
  25. (**********************************************************)
  26.  
  27. Program Test02;
  28.  
  29. (*$I SCHEDUL.DCL *)
  30. (*$I UTILITY.DCL *)
  31. (*$I DEBUG.DCL *)
  32. (*$I AUFGABEN.DCL *)
  33. (*$I DEBUG.PAS *)
  34. (*$I UTILITY.PAS *)
  35. (*$I SCHEDUL.PAS *)
  36.  
  37. (*$I PERIOD1.PAS *)           (* Bearbeitung Periodic1 *)
  38. (*$I SONSTIGE.PAS *)          (* hier Periodic1 als *)
  39.                               (* Kommentar gekennzeichnet *)
  40.                               (* da diese in TestAufgabe *)
  41.                               (* definiert ist *)
  42.  
  43. Begin                         (* des Testprogramms *)
  44.  
  45.                               (* erste Aufgabe, alle Mög- *)
  46.                               (* lichkeiten des Schedulers*)
  47.                               (* einmal zu probieren *)
  48.    InitDebug(True,True,True,True,'Nix');
  49.    InitSchedul;
  50.    For IX:=1 To AnzahlHoch Do
  51.       PutHoch(IX);
  52.    For IX:=1 To AnzahlFifo Do
  53.       PutFifo((IX Mod 8)+1,21-IX);
  54.    For IX:=1 To AnzahlPeriodic Do
  55.       PutPerDelta(IX,500.0-50.0*IX);
  56.    Schedul;
  57.                               (* zweite Aufgabe, die Be- *)
  58.                               (* stimmung der Null- *)
  59.                               (* Belastung, über 10 Min. *)
  60.    InitDebug(True,True,True,True,'Nix');
  61.    InitSchedul;
  62.    PutPerDelta(1,60000.0);
  63.    Schedul;
  64.  
  65. End.
  66.