API tools faq
paste
Advertisement
Guest User

without_asm

a guest
Nov 17th, 2012
49
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.91 KB | None | 0 0
raw download clone embed print report diff
  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 pfpixel current_col print_row on
  36. current_col = current_col + 1
  37. if current_byte & $40 then pfpixel current_col print_row on
  38. current_col = current_col + 1
  39. if current_byte & $20 then pfpixel current_col print_row on
  40. current_col = current_col + 1
  41. if current_byte & $10 then pfpixel current_col print_row on
  42. current_col = current_col + 1
  43. if current_byte & $08 then pfpixel current_col print_row on
  44. current_col = current_col + 1
  45. if current_byte & $04 then pfpixel current_col print_row on
  46. current_col = current_col + 1
  47. if current_byte & $02 then pfpixel current_col print_row on
  48. current_col = current_col + 1
  49. if current_byte & $01 then pfpixel current_col print_row on
  50. current_col = current_col + 1
  51.  
  52. goto BYTE_DONE
  53.  
  54.  
  55. data L4_0
  56. %00000111,%11111111,%11111110,%00000000
  57. %00000000,%10000000,%00010000,%00000000
  58. %00000000,%00000000,%00000000,%00000000
  59. %00000000,%10000000,%00010000,%00000000
  60. %00000000,%00000000,%00000000,%00000000
  61. %00000000,%10000000,%00010000,%00000000
  62. %00000000,%00000000,%00000000,%00000000
  63. %00000000,%10000000,%00010000,%00000000
  64. %00000000,%00000000,%00000000,%00000000
  65. %00000000,%10000000,%00010000,%00000000
  66. %00000000,%00000000,%00000000,%00000000
  67. %00000000,%10000000,%00010000,%00000000
  68. %00000000,%00000000,%00000000,%00000000
  69. %00000000,%10000000,%00010000,%00000000
  70. %00000000,%00000000,%00000000,%00000000
  71. %00000000,%10000000,%00010000,%00000000
  72. %00000000,%00000000,%00000000,%00000000
  73. %00000000,%10000000,%00010000,%00000000
  74. %00000000,%00000000,%00000000,%00000000
  75. %00000000,%10000000,%00010000,%00000000
  76. %00000000,%00000000,%00000000,%00000000
  77. %00000000,%10000000,%00010000,%00000000
  78. %00000000,%00000000,%00000000,%00000000
  79. %00000000,%10000000,%00010000,%00000000
  80. %00000000,%00000000,%00000000,%00000000
  81. %00000000,%10000000,%00010000,%00000000
  82. %00000000,%00000000,%00000000,%00000000
  83. %00000000,%10000000,%00010000,%00000000
  84. %00000000,%00000000,%00000000,%00000000
  85. %00000000,%10000000,%00010000,%00000000
  86. %00000010,%00000000,%00000100,%00000000
  87. %00001101,%11111111,%11111011,%00000000
  88. %00000000,%00100010,%00100010,%00000000
  89. %00000101,%01010101,%01010001,%00000000
  90. %00001000,%10001000,%10001000,%00000000
  91. %00001101,%11111111,%11111011,%00000000
  92. %00000000,%00000000,%00000000,%00000000
  93. %00000000,%00000000,%00000000,%00000000
  94. %00001001,%00000000,%00001001,%00000000
  95. %00000000,%00000000,%00000000,%00000000
  96. %00000000,%00000000,%00000000,%00000000
  97. %00000000,%00000000,%00000000,%00000000
  98. %00001001,%00000000,%00001001,%00000000
  99. %00000000,%00000000,%00000000,%00000000
  100. end
  101.  
  102. data L4_1
  103. %00000000,%00000000,%00000000,%00000000
  104. %00000000,%00000000,%00000000,%00000000
  105. %00001001,%00000000,%00001001,%00000000
  106. %00000000,%00000000,%00000000,%00000000
  107. %00000000,%00000000,%00000000,%00000000
  108. %00000000,%00000000,%00000000,%00000000
  109. %00001001,%00000000,%00001001,%00000000
  110. %00000000,%00000000,%00000000,%00000000
  111. %00000000,%00000000,%00000000,%00000000
  112. %00000000,%00000000,%00000000,%00000000
  113. %00001001,%00000000,%00001001,%00000000
  114. %00000000,%00000000,%00000000,%00000000
  115. %00000000,%00000000,%00000000,%00000000
  116. %00000000,%00000000,%00000000,%00000000
  117. %00001001,%00000000,%00001001,%00000000
  118. %00000000,%00000000,%00000000,%00000000
  119. %00000000,%00000000,%00000000,%00000000
  120. %00000000,%00000000,%00000000,%00000000
  121. %00001001,%00000000,%00001001,%00000000
  122. %00000000,%00000000,%00000000,%00000000
  123. %00000010,%00000000,%00000100,%00000000
  124. %00000000,%00000000,%00000000,%00000000
  125. %00011101,%11111111,%11111011,%10000000
  126. %00000000,%00100010,%00100010,%00000000
  127. %00010101,%01010101,%01010001,%00000000
  128. %00001000,%10001000,%10001000,%10000000
  129. %00011101,%11111111,%11111011,%10000000
  130. %00000000,%00000000,%00000000,%00000000
  131. %00000000,%00000000,%00000000,%00000000
  132. %00010000,%00000100,%00000000,%10000000
  133. %00000000,%00000000,%00000000,%00000000
  134. %00000000,%00000000,%00000000,%00000000
  135. %00000000,%00000000,%00000000,%00000000
  136. %00010000,%00000100,%00000000,%10000000
  137. %00000000,%00000000,%00000000,%00000000
  138. %00000000,%00000000,%00000000,%00000000
  139. %00000000,%00000000,%00000000,%00000000
  140. %00010000,%00000100,%00000000,%10000000
  141. %00000000,%00000000,%00000000,%00000000
  142. %00000000,%00000000,%00000000,%00000000
  143. %00000000,%00000000,%00000000,%00000000
  144. %00010000,%00000100,%00000000,%10000000
  145. %00000000,%00000000,%00000000,%00000000
  146. %00000000,%00000000,%00000000,%00000000
  147. end
  148.  
  149. data L4_2
  150. %00000000,%00000000,%00000000,%00000000
  151. %00010000,%00000100,%00000000,%10000000
  152. %00000000,%00000000,%00000000,%00000000
  153. %00000000,%00000000,%00000000,%00000000
  154. %00000000,%00000000,%00000000,%00000000
  155. %00010000,%00000100,%00000000,%10000000
  156. %00000000,%00000000,%00000000,%00000000
  157. %00000000,%00000000,%00000000,%00000000
  158. %00000000,%00000000,%00000000,%00000000
  159. %00010000,%00000100,%00000000,%10000000
  160. %00000000,%00000000,%00000000,%00000000
  161. %00000000,%00000000,%00000000,%00000000
  162. %00000010,%00000000,%00000100,%00000000
  163. %00111101,%11111111,%11111011,%11000000
  164. %00100000,%00100010,%00100010,%00000000
  165. %00010101,%01010101,%01010001,%01000000
  166. %00001000,%10001000,%10001000,%10000000
  167. %00111101,%11111111,%11111011,%11000000
  168. %00000000,%00000000,%00000000,%00000000
  169. %00000000,%00000000,%00000000,%00000000
  170. %00100000,%01000000,%00100000,%01000000
  171. %00000000,%00000000,%00000000,%00000000
  172. %00000000,%00000000,%00000000,%00000000
  173. %00000000,%00000000,%00000000,%00000000
  174. %00100000,%01000000,%00100000,%01000000
  175. %00000000,%00000000,%00000000,%00000000
  176. %00000000,%00000000,%00000000,%00000000
  177. %00000000,%00000000,%00000000,%00000000
  178. %00100000,%01000000,%00100000,%01000000
  179. %00000000,%00000000,%00000000,%00000000
  180. %00000000,%00000000,%00000000,%00000000
  181. %00000000,%00000000,%00000000,%00000000
  182. %00100000,%01000000,%00100000,%01000000
  183. %00000000,%00000000,%00000000,%00000000
  184. %00000000,%00000000,%00000000,%00000000
  185. %00000000,%00000000,%00000000,%00000000
  186. %00100000,%01000000,%00100000,%01000000
  187. %00000000,%00000000,%00000000,%00000000
  188. %00000000,%00000000,%00000000,%00000000
  189. %00000000,%00000000,%00000000,%00000000
  190. %00100000,%01000000,%00100000,%01000000
  191. %00000000,%00000000,%00000000,%00000000
  192. %00000000,%00000000,%00000000,%00000000
  193. %00000000,%00000000,%00000000,%00000000
  194. end
  195.  
  196. data L4_3
  197. %00100000,%01000000,%00100000,%01000000
  198. %00000000,%00000000,%00000000,%00000000
  199. %00000010,%00000000,%00000100,%00000000
  200. %00000000,%00000000,%00000000,%00000000
  201. %01111101,%11111111,%11111011,%11100000
  202. %00100000,%00100010,%00100010,%00100000
  203. %01010101,%01010101,%01010001,%01000000
  204. %00001000,%10001000,%10001000,%10000000
  205. %01111101,%11111111,%11111011,%11100000
  206. %00000000,%00000000,%00000000,%00000000
  207. %00000000,%00000000,%00000000,%00000000
  208. %01000000,%00000100,%00000000,%00100000
  209. %00000000,%00000000,%00000000,%00000000
  210. %00000000,%00000000,%00000000,%00000000
  211. %00000000,%00000000,%00000000,%00000000
  212. %01000000,%00000100,%00000000,%00100000
  213. %00000000,%00000000,%00000000,%00000000
  214. %00000000,%00000000,%00000000,%00000000
  215. %00000000,%00000000,%00000000,%00000000
  216. %01000000,%00000100,%00000000,%00100000
  217. %00000000,%00000000,%00000000,%00000000
  218. %00000000,%00000000,%00000000,%00000000
  219. %00000000,%00000000,%00000000,%00000000
  220. %01000000,%00000100,%00000000,%00100000
  221. %00000000,%00000000,%00000000,%00000000
  222. %00000000,%00000000,%00000000,%00000000
  223. %00000000,%00000000,%00000000,%00000000
  224. %01000000,%00000100,%00000000,%00100000
  225. %00000000,%00000000,%00000000,%00000000
  226. %00000000,%00000000,%00000000,%00000000
  227. %00000000,%00000000,%00000000,%00000000
  228. %01000000,%00000100,%00000000,%00100000
  229. %00000000,%00000000,%00000000,%00000000
  230. %00000000,%00000000,%00000000,%00000000
  231. %00000000,%00000000,%00000000,%00000000
  232. %01000000,%00000100,%00000000,%00100000
  233. %00000000,%00000000,%00000000,%00000000
  234. %00000000,%00000000,%00000000,%00000000
  235. %00000000,%00000000,%00000000,%00000000
  236. %11111111,%11111111,%11111111,%11110000
  237. %00100010,%00100010,%00100010,%00100000
  238. %01010101,%01010101,%01010101,%01010000
  239. %10001000,%10001000,%10001000,%10000000
  240. %11111111,%11111111,%11111111,%11110000
  241. %00000000,%00000000,%00000000,%00000000
  242. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!