Advertisement
Guest User

spritecode_spritehighnolimit_disassembled_zxspectrum.asm

a guest
Nov 2nd, 2011
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.85 KB | None | 0 0
  1.  
  2. _pntr01:
  3. JP _DFE1
  4.  
  5. _DFB6:
  6. DEFB 010h,010h,006h,001h
  7. DEFB 000h,002h,000h,010h
  8. DEFB 040h,09Ch
  9. _DFC0:
  10. DEFB 088h,09Ch,0F0h,0D2h
  11. DEFB 087h,083h,099h,082h
  12. DEFB 098h,093h
  13. _DFCA:
  14. DEFB 014h
  15. _DFCB:
  16. DEFB 014h
  17. _DFCC:
  18. DEFB 006h
  19. _DFCD:
  20. DEFB 001h
  21. _DFCE:
  22. DEFB 000h
  23. _DFCF:
  24. DEFB 002h
  25. _DFD0:
  26. DEFB 000h
  27. _DFD1:
  28. DEFB 010h
  29. _DFD2:
  30. DEFB 040h,09Ch
  31. _DFD4:
  32. DEFB 0F0h,0D2h
  33. _DFD6:
  34. DEFB 000h,000h
  35. _DFD8:
  36. DEFB 014h,014h
  37. _DFDA:
  38. DEFB 058h
  39. _DFDB:
  40. DEFB 0FFh
  41. _DFDC:
  42. DEFB 058h,0FFh
  43. _DFDE:
  44. DEFB 001h
  45. _DFDF:
  46. DEFB 000h,000h
  47.  
  48. _DFE1:
  49. DI
  50. LD IX,_DFB6
  51. LD BC,(_DFDF)
  52. _DFEA:
  53. PUSH BC
  54. PUSH IX
  55. POP HL
  56. LD BC,000E
  57. ADD IX,BC
  58. LD DE,_DFCA
  59. LDIR
  60. LD A,(_DFCD)
  61. AND A
  62. JP Z,_E07F
  63. LD HL,(_DFD4)
  64. LD (_DFDE),HL
  65. LD HL,(_DFD2)
  66. LD (_DFDC),HL
  67. LD BC,(_DFDA)
  68. LD A,B
  69. CALL 22B1
  70. LD (_DFD8),HL
  71. LD (_DFCE),A
  72. EXX
  73. LD DE,(_DFD6)
  74. EXX
  75. LD BC,(_DFD0)
  76. _E029:
  77. PUSH BC
  78. LD BC,(_DFDA)
  79. LD A,B
  80. INC A
  81. LD (_DFDB),A
  82. DEC A
  83. AND 07
  84. JR Z,_E03E
  85. LD HL,(_DFD8)
  86. INC H
  87. JR E043
  88. _E03E:
  89. LD A,B
  90. CALL 22B1
  91. INC H
  92. _E043:
  93. LD (_DFD8),HL
  94. DEC H
  95. LD A,A5
  96. ADD A,H
  97. LD H,A
  98. PUSH HL
  99. CALL E10D
  100. LD A,(_DFD0)
  101. AND A
  102. JR NZ, E068
  103. LD (E15F),A
  104. LD HL,A62F
  105. LD (E166),HL
  106. LD DE,5B20
  107. POP HL
  108. PUSH HL
  109. CALL E159
  110. LD A,06
  111. _E068:
  112. DEC A
  113. LD (E15F),A
  114. LD HL,00B6
  115. LD (E166).HL
  116. LD DE,5B00
  117. POP HL
  118. CALL E159
  119. POP BC
  120. DJNZ E029
  121. CALL E183
  122. _E07F:
  123. POP BC
  124. DEC B
  125. JP NZ,_DFEA
  126. LD BC,1800
  127. LD DE,4000
  128. LD HL,_E500
  129. LDIR
  130. LD BC,0300
  131. LD DE,5800
  132. LD HL,_FD00
  133. LDIR
  134. LD BC,0300
  135. LD DE,_FD00
  136. LD HL,_E200
  137. LDIR
  138. LD BC,(_DFDF)
  139. _E0A9:
  140. PUSH BC
  141. PUSH IX
  142. POP HL
  143. LD BC,000E
  144. OR A
  145. SBC HL,BC
  146. PUSH HL
  147. POP IX
  148. LD DE, _DFCA
  149. LDIR
  150. LD A,(_DFCD)
  151. AND A
  152. JR Z,_E108
  153. LD BC,(_DFCA)
  154. LD (_DFCA),BC
  155. LD A,B
  156. CALL 22B1
  157. LD (_DFD8),HL
  158. LD BC,(_DFD0)
  159. LD DE,(_DFD6)
  160. _E0D8:
  161. PUSH BC
  162. LD BC,(_DFDA)
  163. LD A,B
  164. INC A
  165. LD (_DFDB),A
  166. DEC A
  167. AND 07
  168. JR Z,_E0ED
  169. LD HL,(_DFD8)
  170. INC H
  171. JR E0F2
  172. _E0ED:
  173. LD A,B
  174. CALL 22B1
  175. INC H
  176. _E0F2:
  177. LD (_DFD8),HL
  178. DEC H
  179. LD BC,(_DFCF)
  180. INC C
  181. LD B,00
  182. EX DE,HL
  183. LD A,A5
  184. ADD A,D
  185. LD D,A
  186. LDIR
  187. EX DE,HL
  188. POP BC
  189. DJNZ E0D8
  190. _E108:
  191. POP BC
  192. DJNZ E0A9
  193. EI
  194. RET
  195. XOR A
  196. LD BC,(_DFCF)
  197. LD B,A
  198. PUSH BC
  199. LD HL,(_DFDC)
  200. LD DE,5B00
  201. LDIR
  202. LD (DE),A
  203. LD (_DFDC),HL
  204. POP BC
  205. LD A,(_DFD0)
  206. AND A
  207. JR NZ,_E133
  208. LD HL,(_DFDE)
  209. LD DE,5B20
  210. LDIR
  211. LD (DE),A
  212. LD (_DFDE),HL
  213. _E133:
  214. LD A,(_DFCE)
  215. AND A
  216. RET Z
  217. LD HL,5B00
  218. CALL E146
  219. LD A,(_DFD0)
  220. AND A
  221. RET NZ
  222. LD HL,5B20
  223. LD BC,(_DFCE)
  224. INC B
  225. _E14B:
  226. PUSH HL
  227. PUSH BC
  228. AND A
  229. _E14E:
  230. RR (HL)
  231. INC HL
  232. DJNZ E14E
  233. POP BC
  234. DEC C
  235. POP HL
  236. _E15E:
  237. JR NZ,_E14B
  238. RET
  239. LD BC,(_DFCE)
  240. INC B
  241. JR E165
  242. LD A,(HL)
  243. EXX
  244. LD (DE),A
  245. INC DE
  246. EXX
  247. _E165:
  248. LD A,(DE)
  249. NOP
  250. NOP
  251. LD (HL),A
  252. INC DE
  253. INC HL
  254. DJNZ E15E
  255. RET
  256. SUB E
  257. SBC A,B
  258. ADD A,D
  259. SBC A,C
  260. ADD A,E
  261. ADD A,A
  262. CALL 22B1
  263. LD A,H
  264. RRCA
  265. RRCA
  266. RRCA
  267. AND 03
  268. OR 58
  269. ADD A,A5
  270. LD H,A
  271. RET
  272. LD A,(_DFCC)
  273. AND A
  274. RET Z
  275. LD BC,(_DFCA)
  276. LD A,B
  277. CALL E174
  278. LD BC,(_DFCE)
  279. LD A,(_DFCA)
  280. AND 07
  281. JR Z, E19C
  282. INC B
  283. _E19C:
  284. LD A,(_DFCB)
  285. AND 07
  286. LD E,A
  287. LD A,(_DFD1)
  288. ADD A,E
  289. RRA
  290. RRA
  291. RRA
  292. AND 1F
  293. LD C,A
  294. LD A,(_DFD1)
  295. AND 07
  296. JR Z,_E1B4
  297. INC C
  298. _E1B4:
  299. LD A,(_DFCB)
  300. AND 07
  301. JR Z,_E1BC
  302. INC C
  303. _E1BC:
  304. LD A,B
  305. LD (_DFCE),A
  306. LD DE,0020
  307. _E1C3:
  308. PUSH HL
  309. LD A,(_DFCE)
  310. LD B,A
  311. LD A,(_DFCC)
  312. _E1CB:
  313. LD (HL),A
  314. INC HL
  315. DJNZ E1CB
  316. POP HL
  317. ADD HL,DE
  318. DEC C
  319. JR NZ,_E1C3
  320. RET
  321. LD DE,_E500
  322. LD HL,4000
  323. LD BC,1B00
  324. LDIR
  325. LD DE,_E200
  326. LD HL,5800
  327. LD BC,0300
  328. LDIR
  329. LD BC,1B00
  330. LD DE,4000
  331. LD HL,_E500
  332. LDIR
  333. RET
  334.  
  335.  
  336.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement