Advertisement
Guest User

Untitled

a guest
May 27th, 2016
175
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.27 KB | None | 0 0
  1. .db $83
  2. or a ; Which condition?
  3. ret z
  4. jp $
  5. ld a,2
  6. cp c
  7. jp nz,ReturnZ
  8.  
  9. push bc
  10. push hl
  11.  
  12. ld hl,LUT
  13. ld a,b
  14. ld bc,0
  15. ld c,a
  16. add hl,bc
  17. ld a,(hl)
  18. or a
  19. jp z,ReturnZRestore
  20. ld hl,JumpTable
  21. ld bc,0
  22. ld c,a
  23. add a,a
  24. add a,c
  25. ld c,a
  26. add hl,bc
  27. ld hl,(hl)
  28. jp (hl)
  29.  
  30. ReturnNZ:
  31. or 1 ; set NZ
  32. ret
  33.  
  34. ReturnZRestore:
  35. pop hl
  36. pop bc
  37. ReturnZ:
  38. cp a
  39. ret
  40.  
  41. CMD_LINE:
  42. pop hl
  43. pop bc
  44.  
  45. ld hl,0
  46. ld a,(numArguments)
  47. ld l,a
  48. call _DeallocFPS
  49.  
  50. push hl
  51.  
  52. ld hl,vRam
  53. ld a,0
  54. ld (hl),a
  55. ld de,vRam+1
  56. ld bc,320*10
  57. ldir
  58.  
  59.  
  60. pop hl
  61. ;res numOP1,(iy+ParsFlag2)
  62. call _Random
  63. pop hl
  64. dec hl
  65. dec hl
  66. dec hl
  67. dec hl
  68.  
  69. jp ReturnNZ
  70.  
  71. CMD_ClEAR_SCREEN:
  72. pop hl
  73. pop bc
  74. ld hl,vRam
  75. ld a,0
  76. ld (hl),a
  77. ld de,vRam+1
  78. ld bc,320*10
  79. ldir
  80.  
  81. jp ReturnZ
  82. JumpTable:
  83. .dl 0
  84. .dl CMD_ClEAR_SCREEN
  85. .dl CMD_LINE
  86.  
  87. LUT:
  88. .db 0 ;$0
  89. .db 0 ;$1
  90. .db 0 ;$2
  91. .db 0 ;$3
  92. .db 0 ;$4
  93. .db 0 ;$5
  94. .db 0 ;$6
  95. .db 0 ;$7
  96. .db 0 ;$8
  97. .db 0 ;$9
  98. .db 0 ;$A
  99. .db 0 ;$B
  100. .db 0 ;$C
  101. .db 0 ;$D
  102. .db 0 ;$E
  103. .db 0 ;$F
  104. .db 0 ;$10
  105. .db 0 ;$11
  106. .db 0 ;$12
  107. .db 0 ;$13
  108. .db 0 ;$14
  109. .db 0 ;$15
  110. .db 0 ;$16
  111. .db 0 ;$17
  112. .db 0 ;$18
  113. .db 0 ;$19
  114. .db 0 ;$1A
  115. .db 0 ;$1B
  116. .db 0 ;$1C
  117. .db 0 ;$1D
  118. .db 0 ;$1E
  119. .db 0 ;$1F
  120. .db 0 ;$20
  121. .db 0 ;$21
  122. .db 0 ;$22
  123. .db 0 ;$23
  124. .db 0 ;$24
  125. .db 0 ;$25
  126. .db 0 ;$26
  127. .db 0 ;$27
  128. .db 0 ;$28
  129. .db 0 ;$29
  130. .db 0 ;$2A
  131. .db 0 ;$2B
  132. .db 0 ;$2C
  133. .db 0 ;$2D
  134. .db 0 ;$2E
  135. .db 0 ;$2F
  136. .db 0 ;$30
  137. .db 0 ;$31
  138. .db 0 ;$32
  139. .db 0 ;$33
  140. .db 0 ;$34
  141. .db 0 ;$35
  142. .db 0 ;$36
  143. .db 0 ;$37
  144. .db 0 ;$38
  145. .db 0 ;$39
  146. .db 0 ;$3A
  147. .db 0 ;$3B
  148. .db 0 ;$3C
  149. .db 0 ;$3D
  150. .db 0 ;$3E
  151. .db 0 ;$3F
  152. .db 0 ;$40
  153. .db 0 ;$41
  154. .db 0 ;$42
  155. .db 0 ;$43
  156. .db 0 ;$44
  157. .db 0 ;$45
  158. .db 0 ;$46
  159. .db 0 ;$47
  160. .db 0 ;$48
  161. .db 0 ;$49
  162. .db 0 ;$4A
  163. .db 0 ;$4B
  164. .db 0 ;$4C
  165. .db 0 ;$4D
  166. .db 0 ;$4E
  167. .db 0 ;$4F
  168. .db 0 ;$50
  169. .db 0 ;$51
  170. .db 0 ;$52
  171. .db 0 ;$53
  172. .db 0 ;$54
  173. .db 0 ;$55
  174. .db 0 ;$56
  175. .db 0 ;$57
  176. .db 0 ;$58
  177. .db 0 ;$59
  178. .db 0 ;$5A
  179. .db 0 ;$5B
  180. .db 0 ;$5C
  181. .db 0 ;$5D
  182. .db 0 ;$5E
  183. .db 0 ;$5F
  184. .db 0 ;$60
  185. .db 0 ;$61
  186. .db 0 ;$62
  187. .db 0 ;$63
  188. .db 0 ;$64
  189. .db 0 ;$65
  190. .db 0 ;$66
  191. .db 0 ;$67
  192. .db 0 ;$68
  193. .db 0 ;$69
  194. .db 0 ;$6A
  195. .db 0 ;$6B
  196. .db 0 ;$6C
  197. .db 0 ;$6D
  198. .db 0 ;$6E
  199. .db 0 ;$6F
  200. .db 0 ;$70
  201. .db 0 ;$71
  202. .db 0 ;$72
  203. .db 0 ;$73
  204. .db 0 ;$74
  205. .db 0 ;$75
  206. .db 0 ;$76
  207. .db 0 ;$77
  208. .db 0 ;$78
  209. .db 0 ;$79
  210. .db 0 ;$7A
  211. .db 0 ;$7B
  212. .db 0 ;$7C
  213. .db 0 ;$7D
  214. .db 0 ;$7E
  215. .db 0 ;$7F
  216. .db 0 ;$80
  217. .db 0 ;$81
  218. .db 0 ;$82
  219. .db 0 ;$83
  220. .db 0 ;$84
  221. .db 01 ;$85 ;CLRDRAW
  222. .db 0 ;$86
  223. .db 0 ;$87
  224. .db 0 ;$88
  225. .db 0 ;$89
  226. .db 0 ;$8A
  227. .db 0 ;$8B
  228. .db 0 ;$8C
  229. .db 0 ;$8D
  230. .db 0 ;$8E
  231. .db 0 ;$8F
  232. .db 0 ;$90
  233. .db 0 ;$91
  234. .db 0 ;$92
  235. .db 0 ;$93
  236. .db 0 ;$94
  237. .db 0 ;$95
  238. .db 0 ;$96
  239. .db 0 ;$97
  240. .db 0 ;$98
  241. .db 0 ;$99
  242. .db 02 ;$9A ;LINE()
  243. .db 0 ;$9B
  244. .db 0 ;$9C
  245. .db 0 ;$9D
  246. .db 0 ;$9E
  247. .db 0 ;$9F
  248. .db 0 ;$A0
  249. .db 0 ;$A1
  250. .db 0 ;$A2
  251. .db 0 ;$A3
  252. .db 0 ;$A4
  253. .db 0 ;$A5
  254. .db 0 ;$A6
  255. .db 0 ;$A7
  256. .db 0 ;$A8
  257. .db 0 ;$A9
  258. .db 0 ;$AA
  259. .db 0 ;$AB
  260. .db 0 ;$AC
  261. .db 0 ;$AD
  262. .db 0 ;$AE
  263. .db 0 ;$AF
  264. .db 0 ;$B0
  265. .db 0 ;$B1
  266. .db 0 ;$B2
  267. .db 0 ;$B3
  268. .db 0 ;$B4
  269. .db 0 ;$B5
  270. .db 0 ;$B6
  271. .db 0 ;$B7
  272. .db 0 ;$B8
  273. .db 0 ;$B9
  274. .db 0 ;$BA
  275. .db 0 ;$BB
  276. .db 0 ;$BC
  277. .db 0 ;$BD
  278. .db 0 ;$BE
  279. .db 0 ;$BF
  280. .db 0 ;$C0
  281. .db 0 ;$C1
  282. .db 0 ;$C2
  283. .db 0 ;$C3
  284. .db 0 ;$C4
  285. .db 0 ;$C5
  286. .db 0 ;$C6
  287. .db 0 ;$C7
  288. .db 0 ;$C8
  289. .db 0 ;$C9
  290. .db 0 ;$CA
  291. .db 0 ;$CB
  292. .db 0 ;$CC
  293. .db 0 ;$CD
  294. .db 0 ;$CE
  295. .db 0 ;$CF
  296. .db 0 ;$D0
  297. .db 0 ;$D1
  298. .db 0 ;$D2
  299. .db 0 ;$D3
  300. .db 0 ;$D4
  301. .db 0 ;$D5
  302. .db 0 ;$D6
  303. .db 0 ;$D7
  304. .db 0 ;$D8
  305. .db 0 ;$D9
  306. .db 0 ;$DA
  307. .db 0 ;$DB
  308. .db 0 ;$DC
  309. .db 0 ;$DD
  310. .db 0 ;$DE
  311. .db 0 ;$DF
  312. .db 0 ;$E0
  313. .db 0 ;$E1
  314. .db 0 ;$E2
  315. .db 0 ;$E3
  316. .db 0 ;$E4
  317. .db 0 ;$E5
  318. .db 0 ;$E6
  319. .db 0 ;$E7
  320. .db 0 ;$E8
  321. .db 0 ;$E9
  322. .db 0 ;$EA
  323. .db 0 ;$EB
  324. .db 0 ;$EC
  325. .db 0 ;$ED
  326. .db 0 ;$EE
  327. .db 0 ;$EF
  328. .db 0 ;$F0
  329. .db 0 ;$F1
  330. .db 0 ;$F2
  331. .db 0 ;$F3
  332. .db 0 ;$F4
  333. .db 0 ;$F5
  334. .db 0 ;$F6
  335. .db 0 ;$F7
  336. .db 0 ;$F8
  337. .db 0 ;$F9
  338. .db 0 ;$FA
  339. .db 0 ;$FB
  340. .db 0 ;$FC
  341. .db 0 ;$FD
  342. .db 0 ;$FE
  343. .db 0 ;$FF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement