home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / MVPARMIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-13  |  361 b   |  25 lines
  1. PROGRAM VARParmINLINE;
  2.  
  3. USES Crt;
  4.  
  5. VAR
  6.   Flarf : Integer;
  7.  
  8.  
  9. PROCEDURE Foo(VAR Fum : Integer);
  10.  
  11. BEGIN
  12.   INLINE($C4/$BE/Fum);        {LES DI,[BP+<offset>]}
  13.   INLINE($BA/$71/$00);        {MOV DX,$71}
  14.   INLINE($26/$89/$15);        {MOV ES:[DI],DX}
  15. END;
  16.  
  17.  
  18. BEGIN
  19.   ClrScr;
  20.   Flarf := 0;
  21.   Foo(Flarf);
  22.   Writeln('Flarf=',Flarf);
  23.   Readln
  24. END.
  25.