home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / twosprdemo.s < prev    next >
Text File  |  1995-03-17  |  9KB  |  314 lines
  1. org $40000
  2. load $40000
  3. s:
  4. move.l    #$50000,$dff0a0    
  5. move.w    #25000,$dff0a4 
  6. move.w    #300,$dff0a6    
  7. move.w    #65,$dff0a8    
  8. move.w    #$83a1,$dff096    
  9. move.l    $04,a6
  10. lea    gfxname,a1
  11. jsr    -408(a6)
  12. move.l    d0,gfxbase
  13. move.l    d0,a0
  14. move.l    50(a0),oldclist
  15. move.l    #newclist,50(a0)
  16. move.l    gfxbase,a6
  17. lea    bitmap,a0
  18. move.l    #$01,d0
  19. move.l    #336,d1
  20. move.l    #256,d2
  21. jsr    -390(a6)
  22. move.l    #$4c800,plane1
  23. lea    rastport,a1
  24. jsr    -198(a6)
  25. move.l    #bitmap,r_bitmap
  26. lea    rastport,a1
  27. jsr    -48(a6)
  28. move.l    #text,taller
  29. move.l    $6c,oldirq+2
  30. move.l    #newirq,$6c
  31. wait:
  32. move.l #$60000,a0
  33. move.w $dff012,d1
  34. l1: cmpi.b #$a0,$dff006
  35. bne l1
  36. move.l (a0)+,$44500
  37. move.l 20(a0),$44548
  38. move.l 40(a0),$44590
  39. move.l 60(a0),$445d8
  40. move.l 80(a0),$44620
  41. move.l 100(a0),$44668
  42. ; next spr
  43. move.l 5632(a0),$45500
  44. move.l 5652(a0),$45548
  45. move.l 5672(a0),$45590
  46. move.l 5692(a0),$455d8
  47. move.l 5712(a0),$45620
  48. move.l 5732(a0),$45668
  49. cmp.w $dff012,d1
  50. bne end1
  51. cmpi.l #$61500,a0
  52. beq wait 
  53. l2:cmpi.b #$00,$dff006
  54. bne l2
  55. jmp l1
  56. end1:
  57. jmp slut
  58. newirq:
  59. movem.l    d0-d7/a0-a6,-(sp)
  60. move.l    gfxbase,a6
  61. lea rastport,a1
  62. move.l #2,d0
  63. move.l #0,d1
  64. move.l #0,d2
  65. move.l #1,d3 
  66. move.l #336,d4
  67. move.l #20,d5
  68. jsr -396(a6)
  69. sub.b    #1,rows
  70. bne.s    exit
  71. move.b    #4,rows
  72. lea    rastport,a1
  73. move.l    #320,d0
  74. move.l    #16,d1
  75. jsr    -240(a6)
  76. lea    rastport,a1
  77. move.l    taller,a0
  78. move.l    #1,d0
  79. jsr    -60(a6)
  80. addq.l    #1,taller
  81. cmp.l    #end,taller
  82. blt.s    exit
  83. move.l    #text,taller
  84. exit:
  85. movem.l    (sp)+,d0-d7/a0-a6
  86. oldirq:
  87. jmp    $00000000
  88. slut:
  89. move.w #3,$dff096
  90. move.l oldirq+2,$6c
  91. move.l gfxbase,a0
  92. move.l oldclist,50(a0)
  93. move.l $04,a6
  94. jmp -414(a6)
  95. newclist:
  96. dc.w    $008e,$2c91,$0090,$41f0,$0092,$0038,$0094,$00d0
  97. dc.w    $0120,$0004,$0122,$4500,$0124,$0004,$0126,$4548
  98. dc.w    $0128,$0004,$012a,$4590,$012c,$0004,$012e,$45d8
  99. dc.w    $0130,$0004,$0132,$4620,$0134,$0004,$0136,$4668
  100. dc.w    $0102,$0000,$0104,$0024,$0108,$0002,$010a,$0002
  101. dc.w    $0100,$1200,$0180,$0000
  102. dc.w    $00e0,$0004,$00e2,$c800
  103. dc.w    $2a11,$fffe,$0180,$000    
  104. dc.w    $2b11,$fffe,$0180,$111
  105. dc.w    $2c11,$fffe,$0180,$222
  106. dc.w    $2d11,$fffe,$0180,$333
  107. dc.w    $2e11,$fffe,$0180,$444
  108. dc.w    $2f11,$fffe,$0180,$555
  109. dc.w    $3011,$fffe,$0180,$666
  110. dc.w    $3111,$fffe,$0180,$777
  111. dc.w    $3211,$fffe,$0180,$888
  112. dc.w    $3311,$fffe,$0180,$999
  113. dc.w    $3411,$fffe,$0180,$aaa
  114. dc.w    $3511,$fffe,$0180,$bbb
  115. dc.w    $3611,$fffe,$0182,$888,$0180,$ccc
  116. dc.w    $3711,$fffe,$0182,$666,$0180,$ddd
  117. dc.w    $3811,$fffe,$0182,$444,$0180,$eee
  118. dc.w    $3911,$fffe,$0182,$222,$0180,$fff
  119. dc.w    $3a11,$fffe,$0182,$444,$0180,$ddd
  120. dc.w    $3b11,$fffe,$0182,$666,$0180,$ccc
  121. dc.w    $3c11,$fffe,$0182,$888,$0180,$bbb
  122. dc.w    $3d11,$fffe,$0180,$aaa
  123. dc.w    $3e11,$fffe,$0180,$999
  124. dc.w    $3f11,$fffe,$0180,$888
  125. dc.w    $4011,$fffe,$0180,$777
  126. dc.w    $4111,$fffe,$0180,$666
  127. dc.w    $4211,$fffe,$0180,$555
  128. dc.w    $4311,$fffe,$0180,$444
  129. dc.w    $4411,$fffe,$0180,$333
  130. dc.w    $4511,$fffe,$0180,$222
  131. dc.w    $4611,$fffe,$0180,$111
  132. dc.w    $4711,$fffe,$0180,$000
  133. dc.w    $4a11,$fffe,$0180,$fff
  134. dc.w    $4b11,$fffe,$0180,$000
  135. dc.w    $4c1f,$fffe,$0180,$000
  136. c1:dc.w    $01a2,$0777,$01a4,$0999,$01a6,$0555
  137. c2:dc.w    $01aa,$0777,$01ac,$0999,$01ae,$0555
  138. c3:dc.w    $01b2,$0777,$01b4,$0999,$01b6,$0555   
  139. dc.w      $a001,$ff00
  140. dc.w    $0120,$0004,$0122,$5500,$0124,$0004,$0126,$5548
  141. dc.w    $0128,$0004,$012a,$5590,$012c,$0004,$012e,$55d8
  142. dc.w    $0130,$0004,$0132,$5620,$0134,$0004,$0136,$5668
  143. dc.w    $0182,$0
  144. dc.w    $ffff,$fffe
  145. text:
  146. dc.b    " HELLO FREAK, this is the DANISH DEMO DUO ! We are proud to"
  147. dc.b    " present this little message to HQC ! We are very glad, that"
  148. dc.b    " you (R.....) wants to swap routines with us. This not the "
  149. dc.b    "final version of the intro, but we hope you like it anyway."
  150. dc.b    "HELLOS goes to HQC, PCT (where is our disk, send it back), "
  151. dc.b    "2000 AD, C64CG, LCC, ANCOR. bye bye R..... !  "
  152. end:
  153. even
  154. taller:
  155. dc.l    0
  156. oldclist:
  157. dc.l    0
  158. gfxbase:
  159. dc.l    0
  160. gfxname:
  161. dc.b    "graphics.library",0
  162. even
  163. bitmap:
  164. blk.w    4,0
  165. plane1:
  166. blk.l    20,0
  167. rastport:
  168. dc.l    0
  169. r_bitmap:
  170. blk.l    30,0
  171. rows:
  172. dc.b    3
  173. even
  174. slu:
  175. org $44500
  176. load $44500
  177. Spr4a:
  178. dc.w $70a0,$8000
  179. dc.w $0002FBF8,$0002FBF8
  180. dc.w $0002FBFC,$00028A04,$0002DB06,$0002AAFA
  181. dc.w $0002DBFF,$0002AA01,$0002DBFF,$0002ABFF
  182. dc.w $0002D800,$0002A800,$0002D81F,$0002A81F
  183. dc.w $0002D81F,$0002A811,$0002D81B,$0002A815
  184. dc.w $0002D81F,$0002A81F,$0002D800,$0002A800
  185. dc.w $0002DBFF,$0002ABFF,$0002DBFF,$0002AA01
  186. dc.w $0002DB06,$0002AAFA,$0002FBFC,$00028A04
  187. dc.w $0002FBF8,$0002FBF8
  188. dc.w $0000,$0000
  189. spr4b:
  190. dc.w $7090,$8100
  191. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  192. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  193. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  194. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  195. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  196. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  197. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  198. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  199. dc.w $0000,$0000
  200. spr4:
  201. dc.w $7080,$8100
  202. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  203. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  204. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  205. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  206. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  207. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  208. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  209. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  210. dc.w $0000,$0000
  211. Spr3:
  212. dc.w $7060,$8100
  213. dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
  214. dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
  215. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  216. dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
  217. dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
  218. dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
  219. dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
  220. dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
  221. dc.w $0000,$0000
  222. spr2:
  223. dc.w $7050,$8100
  224. dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
  225. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  226. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  227. dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
  228. dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
  229. dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
  230. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  231. dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
  232. dc.w $0000,$0000
  233. spr1:
  234. dc.w $7040,$8100
  235. dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
  236. dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
  237. dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
  238. dc.w $000207C0,$000207C0,$000207C0,$00020440
  239. dc.w $000206C0,$00020540,$000206C0,$00020540
  240. dc.w $000206C0,$00020540,$000206C0,$00020540
  241. dc.w $000206C0,$00020540,$000206C0,$00020540
  242. dc.w $000207C0,$00020440,$000207C0,$000207C0
  243. dc.w $0000,$0000
  244. even
  245. org $45500
  246. load $45500
  247. Spr4aa:
  248. dc.w $b0a0,$8000
  249. dc.w $0002FBF8,$0002FBF8
  250. dc.w $0002FBFC,$00028A04,$0002DB06,$0002AAFA
  251. dc.w $0002DBFF,$0002AA01,$0002DBFF,$0002ABFF
  252. dc.w $0002D800,$0002A800,$0002D81F,$0002A81F
  253. dc.w $0002D81F,$0002A811,$0002D81B,$0002A815
  254. dc.w $0002D81F,$0002A81F,$0002D800,$0002A800
  255. dc.w $0002DBFF,$0002ABFF,$0002DBFF,$0002AA01
  256. dc.w $0002DB06,$0002AAFA,$0002FBFC,$00028A04
  257. dc.w $0002FBF8,$0002FBF8
  258. dc.w $0000,$0000
  259. spr4ba:
  260. dc.w $b090,$8100
  261. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  262. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  263. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  264. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  265. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  266. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  267. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  268. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  269. dc.w $0000,$0000
  270. spr4a1:
  271. dc.w $b080,$8100
  272. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  273. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  274. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  275. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  276. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  277. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  278. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  279. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  280. dc.w $0000,$0000
  281. Spr3a:
  282. dc.w $b060,$8100
  283. dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
  284. dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
  285. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  286. dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
  287. dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
  288. dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
  289. dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
  290. dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
  291. dc.w $0000,$0000
  292. spr2a:
  293. dc.w $b050,$8100
  294. dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
  295. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  296. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  297. dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
  298. dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
  299. dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
  300. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  301. dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
  302. dc.w $0000,$0000
  303. spr1a:
  304. dc.w $b040,$8100
  305. dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
  306. dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
  307. dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
  308. dc.w $000207C0,$000207C0,$000207C0,$00020440
  309. dc.w $000206C0,$00020540,$000206C0,$00020540
  310. dc.w $000206C0,$00020540,$000206C0,$00020540
  311. dc.w $000206C0,$00020540,$000206C0,$00020540
  312. dc.w $000207C0,$00020440,$000207C0,$000207C0
  313. dc.w $0000,$0000
  314.