Advertisement
Guest User

with_asm

a guest
Nov 17th, 2012
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. dim print_row = a
  2. dim current_col = b
  3. dim current_row = c
  4. dim byte_col = d
  5. dim current_byte = e
  6. dim ds_index = f
  7.  
  8.  
  9. WritePFChunk
  10.  
  11. print_row = 0
  12.  
  13. for ds_index = 0 to 3
  14.  
  15. for current_row = 0 to 172 step 4
  16. current_col = 0
  17.  
  18. for byte_col = 0 to 3
  19. current_byte = current_row | byte_col
  20. on ds_index goto DCASE0 DCASE1 DCASE2 DCASE3
  21.  
  22. BYTE_DONE
  23. next
  24. print_row = print_row + 1
  25. next
  26. next
  27. return
  28.  
  29. DCASE0 current_byte = L4_0[current_byte] : goto CONT_WRITE_PF
  30. DCASE1 current_byte = L4_1[current_byte] : goto CONT_WRITE_PF
  31. DCASE2 current_byte = L4_2[current_byte] : goto CONT_WRITE_PF
  32. DCASE3 current_byte = L4_3[current_byte]
  33.  
  34. CONT_WRITE_PF
  35. if current_byte & $80 then gosub PIXEL_ON
  36. current_col = current_col + 1
  37. if current_byte & $40 then gosub PIXEL_ON
  38. current_col = current_col + 1
  39. if current_byte & $20 then gosub PIXEL_ON
  40. current_col = current_col + 1
  41. if current_byte & $10 then gosub PIXEL_ON
  42. current_col = current_col + 1
  43. if current_byte & $08 then gosub PIXEL_ON
  44. current_col = current_col + 1
  45. if current_byte & $04 then gosub PIXEL_ON
  46. current_col = current_col + 1
  47. if current_byte & $02 then gosub PIXEL_ON
  48. current_col = current_col + 1
  49. if current_byte & $01 then gosub PIXEL_ON
  50. current_col = current_col + 1
  51.  
  52. goto BYTE_DONE
  53.  
  54.  
  55. PIXEL_ON
  56. asm
  57. LDA $D7
  58. LDY $D6
  59. LDX #0
  60. JMP pfpixel
  61. end
  62.  
  63.  
  64. data L4_0
  65. %00000111,%11111111,%11111110,%00000000
  66. %00000000,%10000000,%00010000,%00000000
  67. %00000000,%00000000,%00000000,%00000000
  68. %00000000,%10000000,%00010000,%00000000
  69. %00000000,%00000000,%00000000,%00000000
  70. %00000000,%10000000,%00010000,%00000000
  71. %00000000,%00000000,%00000000,%00000000
  72. %00000000,%10000000,%00010000,%00000000
  73. %00000000,%00000000,%00000000,%00000000
  74. %00000000,%10000000,%00010000,%00000000
  75. %00000000,%00000000,%00000000,%00000000
  76. %00000000,%10000000,%00010000,%00000000
  77. %00000000,%00000000,%00000000,%00000000
  78. %00000000,%10000000,%00010000,%00000000
  79. %00000000,%00000000,%00000000,%00000000
  80. %00000000,%10000000,%00010000,%00000000
  81. %00000000,%00000000,%00000000,%00000000
  82. %00000000,%10000000,%00010000,%00000000
  83. %00000000,%00000000,%00000000,%00000000
  84. %00000000,%10000000,%00010000,%00000000
  85. %00000000,%00000000,%00000000,%00000000
  86. %00000000,%10000000,%00010000,%00000000
  87. %00000000,%00000000,%00000000,%00000000
  88. %00000000,%10000000,%00010000,%00000000
  89. %00000000,%00000000,%00000000,%00000000
  90. %00000000,%10000000,%00010000,%00000000
  91. %00000000,%00000000,%00000000,%00000000
  92. %00000000,%10000000,%00010000,%00000000
  93. %00000000,%00000000,%00000000,%00000000
  94. %00000000,%10000000,%00010000,%00000000
  95. %00000010,%00000000,%00000100,%00000000
  96. %00001101,%11111111,%11111011,%00000000
  97. %00000000,%00100010,%00100010,%00000000
  98. %00000101,%01010101,%01010001,%00000000
  99. %00001000,%10001000,%10001000,%00000000
  100. %00001101,%11111111,%11111011,%00000000
  101. %00000000,%00000000,%00000000,%00000000
  102. %00000000,%00000000,%00000000,%00000000
  103. %00001001,%00000000,%00001001,%00000000
  104. %00000000,%00000000,%00000000,%00000000
  105. %00000000,%00000000,%00000000,%00000000
  106. %00000000,%00000000,%00000000,%00000000
  107. %00001001,%00000000,%00001001,%00000000
  108. %00000000,%00000000,%00000000,%00000000
  109. end
  110.  
  111. data L4_1
  112. %00000000,%00000000,%00000000,%00000000
  113. %00000000,%00000000,%00000000,%00000000
  114. %00001001,%00000000,%00001001,%00000000
  115. %00000000,%00000000,%00000000,%00000000
  116. %00000000,%00000000,%00000000,%00000000
  117. %00000000,%00000000,%00000000,%00000000
  118. %00001001,%00000000,%00001001,%00000000
  119. %00000000,%00000000,%00000000,%00000000
  120. %00000000,%00000000,%00000000,%00000000
  121. %00000000,%00000000,%00000000,%00000000
  122. %00001001,%00000000,%00001001,%00000000
  123. %00000000,%00000000,%00000000,%00000000
  124. %00000000,%00000000,%00000000,%00000000
  125. %00000000,%00000000,%00000000,%00000000
  126. %00001001,%00000000,%00001001,%00000000
  127. %00000000,%00000000,%00000000,%00000000
  128. %00000000,%00000000,%00000000,%00000000
  129. %00000000,%00000000,%00000000,%00000000
  130. %00001001,%00000000,%00001001,%00000000
  131. %00000000,%00000000,%00000000,%00000000
  132. %00000010,%00000000,%00000100,%00000000
  133. %00000000,%00000000,%00000000,%00000000
  134. %00011101,%11111111,%11111011,%10000000
  135. %00000000,%00100010,%00100010,%00000000
  136. %00010101,%01010101,%01010001,%00000000
  137. %00001000,%10001000,%10001000,%10000000
  138. %00011101,%11111111,%11111011,%10000000
  139. %00000000,%00000000,%00000000,%00000000
  140. %00000000,%00000000,%00000000,%00000000
  141. %00010000,%00000100,%00000000,%10000000
  142. %00000000,%00000000,%00000000,%00000000
  143. %00000000,%00000000,%00000000,%00000000
  144. %00000000,%00000000,%00000000,%00000000
  145. %00010000,%00000100,%00000000,%10000000
  146. %00000000,%00000000,%00000000,%00000000
  147. %00000000,%00000000,%00000000,%00000000
  148. %00000000,%00000000,%00000000,%00000000
  149. %00010000,%00000100,%00000000,%10000000
  150. %00000000,%00000000,%00000000,%00000000
  151. %00000000,%00000000,%00000000,%00000000
  152. %00000000,%00000000,%00000000,%00000000
  153. %00010000,%00000100,%00000000,%10000000
  154. %00000000,%00000000,%00000000,%00000000
  155. %00000000,%00000000,%00000000,%00000000
  156. end
  157.  
  158. data L4_2
  159. %00000000,%00000000,%00000000,%00000000
  160. %00010000,%00000100,%00000000,%10000000
  161. %00000000,%00000000,%00000000,%00000000
  162. %00000000,%00000000,%00000000,%00000000
  163. %00000000,%00000000,%00000000,%00000000
  164. %00010000,%00000100,%00000000,%10000000
  165. %00000000,%00000000,%00000000,%00000000
  166. %00000000,%00000000,%00000000,%00000000
  167. %00000000,%00000000,%00000000,%00000000
  168. %00010000,%00000100,%00000000,%10000000
  169. %00000000,%00000000,%00000000,%00000000
  170. %00000000,%00000000,%00000000,%00000000
  171. %00000010,%00000000,%00000100,%00000000
  172. %00111101,%11111111,%11111011,%11000000
  173. %00100000,%00100010,%00100010,%00000000
  174. %00010101,%01010101,%01010001,%01000000
  175. %00001000,%10001000,%10001000,%10000000
  176. %00111101,%11111111,%11111011,%11000000
  177. %00000000,%00000000,%00000000,%00000000
  178. %00000000,%00000000,%00000000,%00000000
  179. %00100000,%01000000,%00100000,%01000000
  180. %00000000,%00000000,%00000000,%00000000
  181. %00000000,%00000000,%00000000,%00000000
  182. %00000000,%00000000,%00000000,%00000000
  183. %00100000,%01000000,%00100000,%01000000
  184. %00000000,%00000000,%00000000,%00000000
  185. %00000000,%00000000,%00000000,%00000000
  186. %00000000,%00000000,%00000000,%00000000
  187. %00100000,%01000000,%00100000,%01000000
  188. %00000000,%00000000,%00000000,%00000000
  189. %00000000,%00000000,%00000000,%00000000
  190. %00000000,%00000000,%00000000,%00000000
  191. %00100000,%01000000,%00100000,%01000000
  192. %00000000,%00000000,%00000000,%00000000
  193. %00000000,%00000000,%00000000,%00000000
  194. %00000000,%00000000,%00000000,%00000000
  195. %00100000,%01000000,%00100000,%01000000
  196. %00000000,%00000000,%00000000,%00000000
  197. %00000000,%00000000,%00000000,%00000000
  198. %00000000,%00000000,%00000000,%00000000
  199. %00100000,%01000000,%00100000,%01000000
  200. %00000000,%00000000,%00000000,%00000000
  201. %00000000,%00000000,%00000000,%00000000
  202. %00000000,%00000000,%00000000,%00000000
  203. end
  204.  
  205. data L4_3
  206. %00100000,%01000000,%00100000,%01000000
  207. %00000000,%00000000,%00000000,%00000000
  208. %00000010,%00000000,%00000100,%00000000
  209. %00000000,%00000000,%00000000,%00000000
  210. %01111101,%11111111,%11111011,%11100000
  211. %00100000,%00100010,%00100010,%00100000
  212. %01010101,%01010101,%01010001,%01000000
  213. %00001000,%10001000,%10001000,%10000000
  214. %01111101,%11111111,%11111011,%11100000
  215. %00000000,%00000000,%00000000,%00000000
  216. %00000000,%00000000,%00000000,%00000000
  217. %01000000,%00000100,%00000000,%00100000
  218. %00000000,%00000000,%00000000,%00000000
  219. %00000000,%00000000,%00000000,%00000000
  220. %00000000,%00000000,%00000000,%00000000
  221. %01000000,%00000100,%00000000,%00100000
  222. %00000000,%00000000,%00000000,%00000000
  223. %00000000,%00000000,%00000000,%00000000
  224. %00000000,%00000000,%00000000,%00000000
  225. %01000000,%00000100,%00000000,%00100000
  226. %00000000,%00000000,%00000000,%00000000
  227. %00000000,%00000000,%00000000,%00000000
  228. %00000000,%00000000,%00000000,%00000000
  229. %01000000,%00000100,%00000000,%00100000
  230. %00000000,%00000000,%00000000,%00000000
  231. %00000000,%00000000,%00000000,%00000000
  232. %00000000,%00000000,%00000000,%00000000
  233. %01000000,%00000100,%00000000,%00100000
  234. %00000000,%00000000,%00000000,%00000000
  235. %00000000,%00000000,%00000000,%00000000
  236. %00000000,%00000000,%00000000,%00000000
  237. %01000000,%00000100,%00000000,%00100000
  238. %00000000,%00000000,%00000000,%00000000
  239. %00000000,%00000000,%00000000,%00000000
  240. %00000000,%00000000,%00000000,%00000000
  241. %01000000,%00000100,%00000000,%00100000
  242. %00000000,%00000000,%00000000,%00000000
  243. %00000000,%00000000,%00000000,%00000000
  244. %00000000,%00000000,%00000000,%00000000
  245. %11111111,%11111111,%11111111,%11110000
  246. %00100010,%00100010,%00100010,%00100000
  247. %01010101,%01010101,%01010101,%01010000
  248. %10001000,%10001000,%10001000,%10000000
  249. %11111111,%11111111,%11111111,%11110000
  250. %00000000,%00000000,%00000000,%00000000
  251. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement