Advertisement
Guest User

satellite tracking 5.0

a guest
Mar 2nd, 2020
13,043
1
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.16 KB | None | 1 0
  1. alias dRadar d0
  2. alias dLight d1 #diode slide
  3. alias rVertDir r1
  4. alias rHorDir r2
  5. alias rHor r3
  6. alias rVert r4
  7. alias rStr r7
  8. alias rPrevStr r8
  9. alias rCurSig r10
  10. alias rPrevSig r11
  11. move rVertDir -1
  12. move rHorDir 1
  13. move rVert 80
  14. move rHor 0
  15. main:
  16. s dLight On 0
  17. s db Setting 1
  18. mul r0 20 rHorDir
  19. add rHor rHor r0
  20. brgt rVert 30 3
  21. move rVert 80
  22. move rVertDir -1
  23. jal _rangeCheck
  24. jal _alignDish
  25. l rCurSig dRadar SignalID
  26. beqz rCurSig main #no signal, we keep looking
  27. beq rCurSig rPrevSig main #already scanned, ignoring
  28. s dLight On 1
  29. push rVertDir
  30. push rHorDir
  31. push rVert
  32. push rHor
  33. search_loop:
  34. jal _vertSeek
  35. jal _horSeek
  36. s dLight Setting rStr
  37. wait_loop:
  38. l r0 dLight On
  39. beqz r0 exit_search
  40. l r0 dRadar SignalStrength
  41. bge r0 0.96 wait_loop
  42. j search_loop
  43. exit_search:
  44. l rCurSig dRadar SignalID
  45. move rPrevSig rCurSig
  46. pop rHor
  47. pop rVert
  48. pop rHorDir
  49. pop rVertDir
  50. jal _alignDish
  51. j main
  52.  
  53. _vertSeek:
  54. push ra
  55. s db Setting 2
  56. l rHor dRadar Horizontal
  57. l rVert dRadar Vertical
  58. l rPrevStr dRadar SignalStrength
  59. sub r0 1 rPrevStr
  60. mul r0 r0 30
  61. mul r0 r0 rVertDir
  62. add rVert rVert r0
  63. jal _rangeCheck
  64. jal _alignDish
  65. l rStr dRadar SignalStrength
  66. brge rStr rPrevStr 2
  67. mul rVertDir rVertDir -1
  68. pop ra
  69. j ra
  70.  
  71. _horSeek:
  72. push ra
  73. s db Setting 3
  74. l rHor dRadar Horizontal
  75. l rVert dRadar Vertical
  76. l rPrevStr dRadar SignalStrength
  77. sub r0 1 rPrevStr
  78. mul r0 r0 30
  79. mul r0 r0 rHorDir
  80. add rHor rHor r0
  81. jal _rangeCheck
  82. jal _alignDish
  83. l rStr dRadar SignalStrength
  84. brge rStr rPrevStr 2
  85. mul rHorDir rHorDir -1
  86. pop ra
  87. j ra
  88.  
  89. _rangeCheck:
  90. brgt rHor 0 5
  91. mul rHorDir rHorDir -1
  92. s dLight On 0
  93. move rHor 0
  94. sub rVert rVert 30
  95. brlt rHor 360 5
  96. mul rHorDir rHorDir -1
  97. s dLight On 0
  98. move rHor 360
  99. sub rVert rVert 30
  100. brgt rVert 0 4
  101. mul rVertDir rVertDir -1
  102. s dLight On 0
  103. move rVert 0
  104. brle rVert 90 3
  105. mul rVertDir rVertDir -1
  106. move rVert 90
  107. j ra
  108.  
  109. _alignDish:
  110. s db Setting 4
  111. round rVert rVert
  112. round rHor rHor
  113. s dRadar Vertical rVert
  114. s dRadar Horizontal rHor
  115. alignDishLoop:
  116. l r5 dRadar Vertical
  117. l r6 dRadar Horizontal
  118. round r5 r5
  119. round r6 r6
  120. bne r5 rVert alignDishLoop
  121. bne r6 rHor alignDishLoop
  122. aligned:
  123. l rVert dRadar Vertical
  124. l rHor dRadar Horizontal
  125. j ra
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement