Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Apr 5th, 2012  |  syntax: CoffeeScript  |  size: 1.52 KB  |  hits: 27  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1.  
  2. SET X, 0x3000  ;Object variable start
  3. SET Y, 0x4500  ;local variable start
  4. SET Z, 0x5000  ;current stack
  5.  
  6.  
  7. SET C, 0;
  8. SET [Z+C],0; INT CONSTANT
  9. SET B, 1;
  10. SET C, 0;
  11. SET [Y+B], [Z+C]; STORE LOCAL INT
  12. ; STORE LOCAL OBJECT
  13. SET C, 0;
  14. SET [Z+C],12; INT CONSTANT
  15. SET B, 3;
  16. SET C, 0;
  17. SET [Y+B], [Z+C]; STORE LOCAL INT
  18. SET C, 0;
  19. SET [Z+C],2; INT CONSTANT
  20. SET C, 1;
  21. SET [Z+C],4; INT CONSTANT
  22. SET B, 0;
  23. SET C, 1;
  24. MUL [Z+B],[Z+C]; MULTIPLY
  25. SET B, 1;
  26. SET C, 0;
  27. SET [Y+B], [Z+C]; STORE LOCAL INT
  28. SET C, 0;
  29. SET [Z+C],0; INT CONSTANT
  30. SET B, 4;
  31. SET C, 0;
  32. SET [Y+B], [Z+C]; STORE LOCAL INT
  33. SET B, 0;
  34. SET C, 0;
  35. SET [Z+B], [Y+C];
  36. SET B, 1;
  37. SET C, 1;
  38. SET [Z+B], [Y+C]; A
  39. SET C, 2;
  40. SET [Z+C],200; INT CONSTANT
  41. SET B, 1;
  42. SET C, 2;
  43. SET [Z+B], [Y+C]; MEM
  44. SET B, 2;
  45. SET C, 3;
  46. SET [Z+B], [Y+C]; Head
  47. ; WRITE MEMORY
  48. SET B, 0;
  49. SET C, 0;
  50. SET [Z+B], [Y+C];
  51. SET B, 1;
  52. SET C, 2;
  53. SET [Z+B], [Y+C]; MEM
  54. SET B, 2;
  55. SET C, 3;
  56. SET [Z+B], [Y+C]; Head
  57. ; ACCESS MEMORY
  58.  
  59. SET B, 0;
  60. SET C, 1;
  61. SET [Z+B], [Y+C]; dc
  62. SET C, 1;
  63. SET [Z+C],4; INT CONSTANT
  64. SET B, 0;
  65. SET C, 1;
  66. MUL [Z+B],[Z+C]; MULTIPLY
  67. SET B, 3;
  68. SET C, 0;
  69. SET [Y+B], [Z+C]; STORE LOCAL INT
  70. SET B, 0;
  71. SET C, 3;
  72. SET [Z+B], [Y+C]; J
  73. SET B, 1;
  74. SET C, 2;
  75. SET [Z+B], [Y+C]; de
  76. SET B, 0;
  77. SET C, 1;
  78. SET [Z+B],1; LESS
  79. IFG [Z+B],[Z+C]; LESS
  80. SET [Z+B],0; LESS
  81. SET C, -1;
  82. IFE [Z+C], 1; IF TRUE CONTINUE
  83. SET PC, ElseIf30; GOTO ElseIf30
  84. SET C, 0;
  85. SET [Z+C],12; INT CONSTANT
  86. SET PC, EndIf30; GOTO EndIf30
  87. ElseIf30:
  88. SET C, 0;
  89. SET [Z+C],15; INT CONSTANT
  90. EndIf30:
create a new version of this paste RAW Paste Data