home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 02 / hitech / utility.dcl < prev    next >
Encoding:
Text File  |  1988-11-10  |  2.6 KB  |  55 lines
  1. (**********************************************************)
  2. (*                                                        *)
  3. (*             Filename UTILITY.DCL                       *)
  4. (*                                                        *)
  5. (*      TOOLBOX-Spezial III  Echtzeitverarbeitung         *)
  6. (*                                                        *)
  7. (*      (C) TOOLBOX und Thomas Lang 1988                  *)                                             *)
  8. (*                                                        *)
  9. (*   Dieses File enthält die für die Utilities not-       *)
  10. (*   wendigen Deklarationen. Sie können auch von jeder    *)
  11. (*   sonstigen Aufgabe benutzt werden, es ist aber darauf *)
  12. (*   zu achten, daß alle Variablen, die von den Utilities *)
  13. (*   mehrfach benötigt werden, nicht verändert werden.    *)
  14. (*   Die Verwendung von Konstanten und Typen ergibt       *)
  15. (*   aber natürlich keinerlei Probleme.                   *)
  16. (*                                                        *)
  17. (**********************************************************)
  18.  
  19. Const
  20.    MaxDWNiedrig=9999;         (* maximale Zahl für DW *)
  21.                               (* AnteilNiedrig *)
  22.  
  23. Type
  24.    Register8086=Record        (* die Register des 8086 *)
  25.                    Case Integer Of (* so nur in Turbo-Pas *)
  26.                       1:      (* als 16 Bit Register *)
  27.                          (AX,BX,CX,DX,BP,
  28.                           SI,DI,DS,ES,Flags:Integer);
  29.                       2:      (* als 8 Bit Register *)
  30.                               (* wobei aber nicht alle *)
  31.                               (* deklariert sind *)
  32.                          (AL,AH,BL,BH,CL,CH,DL,DH:Byte);
  33.                    End;       (* zu Record Register8086 *)
  34.  
  35.    FileName=String[80];       (* evtl. anpassen *)
  36.  
  37.    Str40=String[40];
  38.    Str255=String[255];
  39.  
  40.                               (* Deklaration aller Pro- *)
  41.                               (* zeduren und Funktionen *)
  42.                               (* als sogenannte Forwards *)
  43.  
  44. Procedure PIncrDW(Var DW:DoppelWort); Forward;
  45. Function DWinReal(DW:DoppelWort):Real; Forward;
  46. Procedure RealinDW(R:Real;Var DW:DoppelWort); Forward;
  47. Function TimeNow:REAL; Forward;
  48. Procedure PutHoch(HochNr:Byte); Forward;
  49. Procedure PutFifo(FifoNr:Byte;Param:Integer); Forward;
  50. Procedure PutPerAbs(PerNr:Byte;AbsZeit:Real); Forward;
  51. Procedure PutPerDelta(PerNr:Byte;DeltaZeit:Real); Forward;
  52. Function FrageJN(S:Str255):Boolean; Forward;
  53. Function FrageInteger(S:Str255;Von,Bis:Integer):Integer;
  54.                                                   Forward;
  55.