Advertisement
Lixxxxx

Moire.RAM

Dec 23rd, 2011
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.69 KB | None | 0 0
  1. proc mul
  2. STORE [10]
  3. STORE [50]
  4. _5_. STORE [20]
  5. RSHIFT 1
  6. STORE [30]
  7. ADD [30]
  8. NEG
  9. ADD [20]
  10. JG _13_
  11. JUMP _16_
  12. _13_. LOAD [40]
  13. ADD [50]
  14. STORE [40]
  15. _16_. LOAD [50]
  16. ADD [50]
  17. STORE [50]
  18. LOAD [30]
  19. JG _5_
  20. LOAD [40]
  21. endp
  22.  
  23.  
  24. LOAD 5
  25. STORE [2]
  26. LOAD 1
  27. STORE [3]
  28. @SCALE 3
  29.  
  30. y. LOAD 5 : reset X
  31. STORE [1]
  32.  
  33. LOAD [2] : add (+1) to Y
  34. ADD 1
  35. STORE [2]
  36.  
  37. ::set color mode
  38. x.
  39.  
  40. LOAD 0
  41. STORE [40]
  42. LOAD [1]
  43. CALL mul
  44.  
  45. STORE [3]
  46.  
  47. LOAD 0
  48. STORE [40]
  49. LOAD [2]
  50. CALL mul
  51.  
  52. ADD [3]
  53. STORE [3]
  54.  
  55. LOAD [1] : add (+1) to X
  56. ADD 1
  57. STORE [1]
  58.  
  59. LOAD [3]
  60. ADD -10000
  61. JG SKIP
  62.  
  63. @PIXEL
  64.  
  65. SKIP.
  66.  
  67. LOAD [1]
  68.  
  69. ADD -115 : check X
  70. NEG
  71. JG x
  72.  
  73.  
  74. LOAD [2] : check Y
  75. ADD -115
  76. NEG
  77. JG y
  78.  
  79. HALT
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement