home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / PTRINLN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-13  |  367 b   |  22 lines
  1. PROGRAM PointerINLINE;
  2.  
  3. USES Crt;
  4.  
  5. TYPE
  6.   IntPtr = ^Integer;
  7.  
  8. VAR
  9.   MyPtr : IntPtr;
  10.  
  11.  
  12. BEGIN
  13.   ClrScr;
  14.   New(MyPtr);
  15.   MyPtr^ := 42;
  16.   Writeln('Before: ',MyPtr^);
  17.   INLINE($C4/$3E/MyPtr/        { LES DI,MyPtr }
  18.          $26/$80/$05/$03);     { ADD WORD PTR ES:[DI],03H }
  19.   Writeln('After:  ',MyPtr^);  { '45' should be new value. }
  20.   Readln
  21. END.
  22.