Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.89 KB | None | 0 0
  1. --displays a number from RAM
  2. --number RAM address: 0
  3. --return address location (first half): 4
  4. --return address location (second half): 5
  5.  
  6. --hundreds = num/100 - RAM address 1
  7. set rar
  8. 0
  9. 0
  10. move ram wrg
  11. move wrg arg
  12. set brg
  13. 100
  14. alu dev
  15. set rar
  16. 0
  17. 1
  18. move alu wrg
  19. move wrg ram
  20. --tens = (num/10)-(hundreds*10) - RAM address 2
  21. set rar
  22. 0
  23. 0
  24. move ram wrg
  25. move wrg arg
  26. set brg
  27. 10
  28. alu dev
  29. set rar
  30. 1
  31. 0
  32. move alu wrg
  33. move wrg ram
  34. set rar
  35. 0
  36. 3
  37. move ram wrg
  38. move wrg arg
  39. alu mul
  40. move alu wrg
  41. move wrg brg
  42. set rar
  43. 1
  44. 0
  45. move ram wrg
  46. move wrg arg
  47. alu sub
  48. set rar
  49. 0
  50. 2
  51. move alu wrg
  52. move wrg ram
  53. --ones = num-(tens+(hundreds*10) - RAM address 3
  54. set rar
  55. 0
  56. 3
  57. move ram wrg
  58. move wrg arg
  59. set brg
  60. 10
  61. alu mul
  62. move alu wrg
  63. move wrg brg
  64. set rar
  65. 0
  66. 4
  67. move ram wrg
  68. move wrg arg
  69. alu add
  70. move alu wrg
  71. move wrg brg
  72. set rar
  73. 0
  74. 0
  75. move ram wrg
  76. move wrg arg
  77. alu sub
  78. set rar
  79. 0
  80. 3
  81. move alu wrg
  82. move wrg ram
  83. --display
  84. --hundreds
  85. set rar
  86. 0
  87. 1
  88. move ram wrg
  89. move wrg arg
  90. set brg
  91. 48
  92. alu add
  93. move alu wrg
  94. move wrg bcr
  95. move barx wrg
  96. move wrg arg
  97. set brg
  98. 1
  99. move alu wrg
  100. move wrg barx
  101. --tens
  102. set rar
  103. 0
  104. 2
  105. move ram wrg
  106. move wrg arg
  107. set brg
  108. 48
  109. alu add
  110. move alu wrg
  111. move wrg bcr
  112. move barx wrg
  113. move wrg arg
  114. set brg
  115. 1
  116. move alu wrg
  117. move wrg barx
  118. --ones
  119. set rar
  120. 0
  121. 3
  122. move ram wrg
  123. move wrg arg
  124. set brg
  125. 48
  126. alu add
  127. move alu wrg
  128. move wrg bcr
  129. --return
  130. set rar --return address location (first half)
  131. 0
  132. 4
  133. move ram wrg
  134. set dar --location of first half of return jump (+13)
  135. #
  136. #
  137. move wrg dsk
  138. set rar --return address location (second half)
  139. 0
  140. 4
  141. move ram wrg
  142. set dar --location of second half of return jump (+6)
  143. #
  144. #
  145. move wrg dsk
  146. set pc --return jump, numbers overwritten during program
  147. #
  148. #
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement