home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 10 / tricks / turboptr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-12  |  1.3 KB  |  50 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   TURBOPTR.PAS                         *)
  3. (*  Prozeduren zum direkten Speicherzugriff mit Hilfe von *)
  4. (*  POINTERn.                                             *)
  5. (*          (c) 1989  H.Zorba  &  TOOLBOX                 *)
  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; VAR Destination : WORD );
  20.  
  21. PROCEDURE GetBPtr( P : POINTER; VAR Destination : BYTE );
  22.  
  23.    { Wort bzw. Byte in von P adressierte Speicherstelle
  24.      schreiben }
  25.  
  26. PROCEDURE PutWPtr( P : POINTER; NewValue : WORD );
  27.  
  28. PROCEDURE PutBPtr( P : POINTER; NewValue : BYTE );
  29.  
  30.  
  31. IMPLEMENTATION
  32.  
  33. PROCEDURE IncPtr; EXTERNAL;
  34.  
  35. PROCEDURE DecPtr; EXTERNAL;
  36.  
  37. PROCEDURE GetWPtr; EXTERNAL;
  38.  
  39. PROCEDURE GetBPtr; EXTERNAL;
  40.  
  41. PROCEDURE PutWPtr; EXTERNAL;
  42.  
  43. PROCEDURE PutBPtr; EXTERNAL;
  44.  
  45. {$L TURBOPTR.OBJ}
  46.  
  47. BEGIN
  48. END.
  49. (* ------------------------------------------------------ *)
  50. (*               Ende von TURBOPTR.PAS                    *)