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