home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / UNITS / OpCodes.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-06-27  |  1.1 KB  |  57 lines
  1. {Opcodes constants}
  2. unit OpCodes;
  3. {Opcodes constants}
  4. interface
  5. type TOpCode=integer;
  6. {Positive numbers are reserved for procedure }
  7. { calls use negative for OpCodes             }
  8. const
  9. { Arithmetic operations    }
  10. ocAdd    =-1;
  11. ocSub    =-2;
  12. ocMul    =-3;
  13. ocDiv    =-4;
  14. ocNegate =-5;
  15. { Boolean operations       }
  16. ocAnd    =-11;
  17. ocOr     =-12;
  18. ocNot    =-13;
  19. {Comparison ops}
  20. ocEqu    =-14;
  21. ocNE     =-15;
  22. ocG      =-16;
  23. ocL      =-17;
  24. ocLE     =-18;
  25. ocGE     =-19;
  26. {Value operations          }
  27. ocGet    =-21;
  28. ocSet    =-22;
  29. ocExec   =-23;
  30. ocEval   =-24;
  31. ocGetElem=-25;
  32. ocRoot   =-26;
  33. {Constant operations       }
  34. ocStr    =-31;
  35. ocFloat  =-32;
  36. ocInt    =-33;
  37. ocBool   =-34;
  38. {Execution flow operations }
  39. ocNop    =-40;
  40. ocHalt   =-41;
  41. ocJZ     =-42;
  42. ocJNZ    =-43;
  43. ocJMP    =-44;
  44.   {Jump if top of Return stack is Zero}
  45. ocJRZ    =-45;
  46.   {DeCRement top of return stack}
  47. ocDcrR   =-46;
  48.   {Moves value to return stack}
  49. ocToR    =-47;
  50.   {Moves value from return stack to data stack}
  51. ocFromR  =-48;
  52.   {Drops value from reaturn stack}
  53. ocRDrop  =-49;
  54. implementation
  55.  
  56. end.
  57.