home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / toolbox / turboptr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-21  |  1.3 KB  |  53 lines
  1. (* ------------------------------------------------- *)
  2. (*                TURBOPTR.PAS                       *)
  3. (* Prozeduren zum direkten Speicherzugriff mit Hilfe *)
  4. (* von Pointern.                                     *)
  5. (*     (c) 1989, 1992 H.Zorba & DMV-Verlag           *)
  6. (* ------------------------------------------------- *)
  7. UNIT TurboPtr;
  8.  
  9. INTERFACE
  10.  
  11.    { Pointer P inkrementieren bzw. dekrementieren }
  12.  
  13. PROCEDURE IncPtr( VAR P : POINTER; Increment : WORD );
  14.  
  15. PROCEDURE DecPtr( VAR P : POINTER; Decrement : WORD );
  16.  
  17.    { Von P adressiertes Wort bzw. Byte holen }
  18.  
  19. PROCEDURE GetWPtr( P : POINTER;
  20.                   VAR Destination : WORD );
  21.  
  22. PROCEDURE GetBPtr( P : POINTER;
  23.                   VAR Destination : BYTE );
  24.  
  25.    { Wort bzw. Byte in von P adressierte Speicherstelle
  26.      schreiben }
  27.  
  28. PROCEDURE PutWPtr( P : POINTER; NewValue : WORD );
  29.  
  30. PROCEDURE PutBPtr( P : POINTER; NewValue : BYTE );
  31.  
  32.  
  33. IMPLEMENTATION
  34.  
  35. PROCEDURE IncPtr; EXTERNAL;
  36.  
  37. PROCEDURE DecPtr; EXTERNAL;
  38.  
  39. PROCEDURE GetWPtr; EXTERNAL;
  40.  
  41. PROCEDURE GetBPtr; EXTERNAL;
  42.  
  43. PROCEDURE PutWPtr; EXTERNAL;
  44.  
  45. PROCEDURE PutBPtr; EXTERNAL;
  46.  
  47. {$L TURBOPTR.OBJ}
  48.  
  49. BEGIN
  50. END.
  51. (* ------------------------------------------------- *)
  52. (*               Ende von TURBOPTR.PAS               *)
  53.