home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / MOVPARM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-13  |  460 b   |  29 lines
  1. PROGRAM MOVParameter;
  2.  
  3. USES Crt;
  4.  
  5. PROCEDURE Foo(Foe,Fum : Integer);
  6.  
  7. VAR
  8.   Fee,Fie : Integer;
  9.  
  10. BEGIN
  11.   Fee := 0; Fie := 0;
  12.   Writeln('Fum=',Fum);
  13.   INLINE($8B/$8E/Foe);         {MOV CX,Foe}
  14.   INLINE($89/$8E/Fee);         {MOV Fee,CX}
  15.   Writeln('Fee=',Fee);
  16.   Readln;
  17.   INLINE($8B/$96/Fee);         {MOV DX,Fee}
  18.   INLINE($89/$96/Fum);         {MOV Fum,DX}
  19.   Writeln('Fum=',Fum);
  20.   Readln;
  21. END;
  22.  
  23.  
  24.  
  25. BEGIN
  26.   ClrScr;
  27.   Foo(42,17);
  28. END.
  29.