Advertisement
antiquekid3

Fabritek BIN Loader

Dec 4th, 2015
394
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.95 KB | None | 0 0
  1. /BIN LOADER FOR FABRITEK
  2. /KYLE OWEN - 4 DEC 2015
  3. *7652
  4. SWITCH, 0
  5. CHAR, 0
  6. CHKSUM, 0
  7. ORIGIN, 0
  8.  
  9. BEGG, 0
  10. DCA SWITCH
  11. JMS READ /GET CHAR
  12. TAD M376 /TEST FOR 377, SUBTRACT 376
  13. SPA SNA CLA /DON'T SKIP IF BIT 0 IS SET
  14. JMP .+4
  15. ISZ SWITCH /YES, COMPLEMENT SWITCH
  16. CMA
  17. JMP BEGG+1
  18. TAD SWITCH /NOT 377
  19. SZA CLA /IS SWITCH SET?
  20. JMP BEGG+2 /YES, IGNORE
  21. TAD CHAR /NO, TEST FOR CODE
  22. AND MASK /TYPES
  23. TAD M200
  24. SPA
  25. ISZ BEGG /DATA OR ORIGIN
  26. SPA SNA CLA
  27. JMP I BEGG /DATA, ORIGIN OR L/T
  28. HLT /IF FIELD SETTING, HALT!
  29. JMP BEGIN
  30.  
  31. READ, 0
  32. 6012
  33. 6015
  34. JMP .-1
  35. DCA CHAR
  36. TAD CHAR
  37. JMP I READ
  38. MASK, 300
  39.  
  40. BEND, JMS ASSEMB
  41. CIA
  42. TAD CHKSUM
  43. M376, HLT
  44. BEGIN, NOP
  45. JMS BEGG
  46. JMP .-1
  47.  
  48. GO, DCA CHKSUM
  49. TAD CHAR
  50. DCA WORD1
  51. JMS READ
  52. DCA WORD2
  53. JMS BEGG
  54. JMP BEND
  55. JMS ASSEMB
  56. SNL
  57. JMP MEMFLD
  58.  
  59. DCA ORIGIN
  60. CHEX, TAD WORD1
  61. TAD WORD2
  62. TAD CHKSUM
  63. JMP GO
  64.  
  65. MEMFLD, DCA I ORIGIN
  66. ISZ ORIGIN
  67. M200, 7600
  68. JMP CHEX
  69. ASSEMB, 0
  70. TAD WORD1
  71. CLL RTL
  72. RTL
  73. RTL
  74. TAD WORD2
  75. JMP I ASSEMB
  76.  
  77. WORD1=7776
  78. WORD2, 0
  79.  
  80. *7755
  81. JMP BEGIN-1
  82.  
  83. $
  84.  
  85. /RAW OCTAL DUMP FOR FABRITEK RIM FORMAT (STRIPPED LEADER AND TRAILER)
  86. /153
  87. /063
  88. /176
  89. /051
  90. /100
  91. /000
  92. /100
  93. /000
  94. /100
  95. /000
  96. /100
  97. /000
  98. /100
  99. /000
  100. /132
  101. /052
  102. /143
  103. /003
  104. /113
  105. /016
  106. /177
  107. /050
  108. /152
  109. /067
  110. /122
  111. /052
  112. /170
  113. /040
  114. /152
  115. /057
  116. /112
  117. /052
  118. /176
  119. /040
  120. /152
  121. /060
  122. /112
  123. /053
  124. /103
  125. /012
  126. /113
  127. /043
  128. /175
  129. /010
  130. /122
  131. /056
  132. /177
  133. /050
  134. /156
  135. /056
  136. /174
  137. /002
  138. /153
  139. /017
  140. /100
  141. /000
  142. /160
  143. /012
  144. /160
  145. /015
  146. /153
  147. /005
  148. /132
  149. /053
  150. /112
  151. /053
  152. /157
  153. /003
  154. /103
  155. /000
  156. /143
  157. /045
  158. /170
  159. /041
  160. /112
  161. /054
  162. /174
  163. /002
  164. /170
  165. /000
  166. /142
  167. /056
  168. /153
  169. /020
  170. /132
  171. /054
  172. /112
  173. /053
  174. /133
  175. /076
  176. /143
  177. /003
  178. /133
  179. /054
  180. /142
  181. /056
  182. /153
  183. /013
  184. /143
  185. /045
  186. /174
  187. /020
  188. /153
  189. /041
  190. /132
  191. /055
  192. /113
  193. /076
  194. /113
  195. /054
  196. /112
  197. /054
  198. /153
  199. /022
  200. /136
  201. /055
  202. /122
  203. /055
  204. /176
  205. /000
  206. /153
  207. /035
  208. /100
  209. /000
  210. /113
  211. /076
  212. /171
  213. /006
  214. /170
  215. /006
  216. /170
  217. /006
  218. /113
  219. /054
  220. /157
  221. /045
  222. /100
  223. /000
  224. /153
  225. /016
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement