ld_test.ds 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249
  1. ; This test verifies LD
  2. incdir "tests"
  3. include "dsp_base.inc"
  4. test_main:
  5. lri $AR0, #0x001c
  6. lri $AR1, #0x001d
  7. lri $AR2, #0x001e
  8. lri $AR3, #0x001f
  9. lri $AX0.H, #0x111
  10. lri $AX1.H, #0x111
  11. lri $AX0.L, #0x77
  12. lri $AX1.L, #0x22
  13. nx'ld : $AX0.L, $AX1.L, @$AR3
  14. call send_back ; 1
  15. lri $AR0, #0x001c
  16. lri $AR1, #0x001d
  17. lri $AR2, #0x001e
  18. lri $AR3, #0x001f
  19. lri $AX0.H, #0x111
  20. lri $AX1.H, #0x111
  21. lri $AX0.L, #0x23
  22. lri $AX1.L, #0x64
  23. nx'ld : $AX0.L, $AX1.L, @$AR2
  24. call send_back ; 2
  25. lri $AR0, #0x001c
  26. lri $AR1, #0x001d
  27. lri $AR2, #0x001e
  28. lri $AR3, #0x001f
  29. lri $AX0.H, #0x111
  30. lri $AX1.H, #0x111
  31. lri $AX0.L, #0x43
  32. lri $AX1.L, #0x53
  33. nx'ld : $AX0.L, $AX1.L, @$AR1
  34. call send_back ; 3
  35. lri $AR0, #0x001c
  36. lri $AR1, #0x001d
  37. lri $AR2, #0x001e
  38. lri $AR3, #0x001f
  39. lri $AX0.H, #0x111
  40. lri $AX1.H, #0x111
  41. lri $AX0.L, #0xd3
  42. lri $AX1.L, #0x13
  43. nx'ld : $AX0.L, $AX1.L, @$AR0
  44. call send_back ; 4
  45. lri $AR0, #0x001c
  46. lri $AR1, #0x001d
  47. lri $AR2, #0x001e
  48. lri $AR3, #0x001f
  49. lri $AX0.H, #0x111
  50. lri $AX1.H, #0x111
  51. lri $AX0.L, #0x77
  52. lri $AX1.L, #0x22
  53. nx'ld : $AX1.L, $AX1.H, @$AR3
  54. call send_back ; 5
  55. lri $AR0, #0x001c
  56. lri $AR1, #0x001d
  57. lri $AR2, #0x001e
  58. lri $AR3, #0x001f
  59. lri $AX0.H, #0x111
  60. lri $AX1.H, #0x111
  61. lri $AX0.L, #0x23
  62. lri $AX1.L, #0x64
  63. nx'ld : $AX1.L, $AX1.H, @$AR2
  64. call send_back ; 6
  65. lri $AR0, #0x001c
  66. lri $AR1, #0x001d
  67. lri $AR2, #0x001e
  68. lri $AR3, #0x001f
  69. lri $AX0.H, #0x111
  70. lri $AX1.H, #0x111
  71. lri $AX0.L, #0x43
  72. lri $AX1.L, #0x53
  73. nx'ld : $AX1.L, $AX1.H, @$AR1
  74. call send_back ; 7
  75. lri $AR0, #0x001c
  76. lri $AR1, #0x001d
  77. lri $AR2, #0x001e
  78. lri $AR3, #0x001f
  79. lri $AX0.H, #0x111
  80. lri $AX1.H, #0x111
  81. lri $AX0.L, #0xd3
  82. lri $AX1.L, #0x13
  83. nx'ld : $AX1.L, $AX1.H, @$AR0
  84. call send_back ; 8
  85. lri $AR0, #0x001c
  86. lri $AR1, #0x001d
  87. lri $AR2, #0x001e
  88. lri $AR3, #0x001f
  89. lri $AX0.H, #0x111
  90. lri $AX1.H, #0x111
  91. lri $AX0.L, #0x77
  92. lri $AX1.L, #0x22
  93. nx'ldn : $AX0.L, $AX1.L, @$AR3
  94. call send_back ; 9
  95. lri $AR0, #0x001c
  96. lri $AR1, #0x001d
  97. lri $AR2, #0x001e
  98. lri $AR3, #0x001f
  99. lri $AX0.H, #0x111
  100. lri $AX1.H, #0x111
  101. lri $AX0.L, #0x23
  102. lri $AX1.L, #0x64
  103. nx'ldn : $AX0.L, $AX1.L, @$AR2
  104. call send_back ; 10
  105. lri $AR0, #0x001c
  106. lri $AR1, #0x001d
  107. lri $AR2, #0x001e
  108. lri $AR3, #0x001f
  109. lri $AX0.H, #0x111
  110. lri $AX1.H, #0x111
  111. lri $AX0.L, #0x43
  112. lri $AX1.L, #0x53
  113. nx'ldn : $AX0.L, $AX1.L, @$AR1
  114. call send_back ; 11
  115. lri $AR0, #0x001c
  116. lri $AR1, #0x001d
  117. lri $AR2, #0x001e
  118. lri $AR3, #0x001f
  119. lri $AX0.H, #0x111
  120. lri $AX1.H, #0x111
  121. lri $AX0.L, #0xd3
  122. lri $AX1.L, #0x13
  123. nx'ldn : $AX0.L, $AX1.L, @$AR0
  124. call send_back ; 12
  125. lri $AR0, #0x001c
  126. lri $AR1, #0x001d
  127. lri $AR2, #0x001e
  128. lri $AR3, #0x001f
  129. lri $AX0.H, #0x111
  130. lri $AX1.H, #0x111
  131. lri $AX0.L, #0x77
  132. lri $AX1.L, #0x22
  133. nx'ldm : $AX0.L, $AX1.L, @$AR3
  134. call send_back ; 13
  135. lri $AR0, #0x001c
  136. lri $AR1, #0x001d
  137. lri $AR2, #0x001e
  138. lri $AR3, #0x001f
  139. lri $AX0.H, #0x111
  140. lri $AX1.H, #0x111
  141. lri $AX0.L, #0x23
  142. lri $AX1.L, #0x64
  143. nx'ldm : $AX0.L, $AX1.L, @$AR2
  144. call send_back ; 14
  145. lri $AR0, #0x001c
  146. lri $AR1, #0x001d
  147. lri $AR2, #0x001e
  148. lri $AR3, #0x001f
  149. lri $AX0.H, #0x111
  150. lri $AX1.H, #0x111
  151. lri $AX0.L, #0x43
  152. lri $AX1.L, #0x53
  153. nx'ldm : $AX0.L, $AX1.L, @$AR1
  154. call send_back ; 15
  155. lri $AR0, #0x001c
  156. lri $AR1, #0x001d
  157. lri $AR2, #0x001e
  158. lri $AR3, #0x001f
  159. lri $AX0.H, #0x111
  160. lri $AX1.H, #0x111
  161. lri $AX0.L, #0xd3
  162. lri $AX1.L, #0x13
  163. nx'ldm : $AX0.L, $AX1.L, @$AR0
  164. call send_back ; 16
  165. lri $AR0, #0x001c
  166. lri $AR1, #0x001d
  167. lri $AR2, #0x001e
  168. lri $AR3, #0x001f
  169. lri $AX0.H, #0x111
  170. lri $AX1.H, #0x111
  171. lri $AX0.L, #0x77
  172. lri $AX1.L, #0x22
  173. nx'ldnm : $AX0.L, $AX1.L, @$AR3
  174. call send_back ; 17
  175. lri $AR0, #0x001c
  176. lri $AR1, #0x001d
  177. lri $AR2, #0x001e
  178. lri $AR3, #0x001f
  179. lri $AX0.H, #0x111
  180. lri $AX1.H, #0x111
  181. lri $AX0.L, #0x23
  182. lri $AX1.L, #0x64
  183. nx'ldnm : $AX0.L, $AX1.L, @$AR2
  184. call send_back ; 18
  185. lri $AR0, #0x001c
  186. lri $AR1, #0x001d
  187. lri $AR2, #0x001e
  188. lri $AR3, #0x001f
  189. lri $AX0.H, #0x111
  190. lri $AX1.H, #0x111
  191. lri $AX0.L, #0x43
  192. lri $AX1.L, #0x53
  193. nx'ldnm : $AX0.L, $AX1.L, @$AR1
  194. call send_back ; 19
  195. lri $AR0, #0x001c
  196. lri $AR1, #0x001d
  197. lri $AR2, #0x001e
  198. lri $AR3, #0x001f
  199. lri $AX0.H, #0x111
  200. lri $AX1.H, #0x111
  201. lri $AX0.L, #0xd3
  202. lri $AX1.L, #0x13
  203. nx'ldnm : $AX0.L, $AX1.L, @$AR0
  204. call send_back ; 20
  205. ; We're done, DO NOT DELETE THIS LINE
  206. jmp end_of_test