home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / exdemo1.s < prev    next >
Text File  |  1995-03-17  |  6KB  |  264 lines
  1. org $60000
  2. load $60000
  3. s:
  4. move.l    #$50000,$dff0a0    
  5. move.w    #36000,$dff0a4 
  6. move.w    #300,$dff0a6    
  7. move.w    #65,$dff0a8    
  8. move.w    #$83a0,$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    #$4ff00,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 #$646b0,a0
  33. move.w $dff012,d1
  34. l1: cmpi.b #$ff,$dff006
  35. bne l1
  36. move.l (a0)+,$64500
  37. move.l 20(a0),$64548
  38. move.l 40(a0),$64590
  39. move.l 60(a0),$645d8
  40. move.l 80(a0),$64620
  41. move.l 100(a0),$64668
  42. cmp.w $dff012,d1
  43. bne end1
  44. cmpi.l #$696b0,a0
  45. beq wait 
  46. l2:cmpi.b #$00,$dff006
  47. bne l2
  48. jmp l1
  49. end1:
  50. jmp slut
  51. newirq:
  52. movem.l    d0-d7/a0-a6,-(sp)
  53. move.l    gfxbase,a6
  54. lea rastport,a1
  55. move.l #0,d0
  56. move.l #1,d1
  57. move.l #0,d2
  58. move.l #$b0,d3 
  59. move.l #336,d4
  60. move.l #200,d5
  61. jsr -396(a6)
  62. lea rastport,a1
  63. move.l #1,d0
  64. clr.l d1
  65. clr.l d2
  66. move.l #0,d3
  67. move.l #9,d4
  68. move.l #30,d5
  69. jsr -396(a6)
  70. lea    rastport,a1
  71. move.l    #2,d0
  72. clr.l    d1
  73. move.l    #8,d2
  74. move.l    #0,d3
  75. move.l    #310,d4
  76. move.l    #30,d5
  77. jsr    -396(a6)
  78. lea rastport,a1
  79. move.l #1,d0
  80. clr.l d1
  81. move.l #310,d2
  82. move.l #0,d3
  83. move.l #336,d4
  84. move.l #30,d5
  85. jsr -396(a6)
  86. sub.b    #1,rows
  87. bne.s    exit
  88. move.b    #8,rows
  89. lea    rastport,a1
  90. move.l    #320,d0
  91. move.l    #13,d1
  92. jsr    -240(a6)
  93. lea    rastport,a1
  94. move.l    taller,a0
  95. move.l    #1,d0
  96. jsr    -60(a6)
  97. addq.l    #1,taller
  98. cmp.l    #end,taller
  99. blt.s    exit
  100. move.l    #text,taller
  101. exit:
  102. movem.l    (sp)+,d0-d7/a0-a6
  103. oldirq:
  104. jmp    $00000000
  105. slut:
  106. move.w #3,$dff096
  107. move.l oldirq+2,$6c
  108. move.l gfxbase,a0
  109. move.l oldclist,50(a0)
  110. move.l $04,a6
  111. jmp -414(a6)
  112. newclist:
  113. dc.w    $008e,$2c91,$0090,$41f0,$0092,$0038,$0094,$00d0
  114. dc.w    $0120,$0006,$0122,$4500,$0124,$0006,$0126,$4548
  115. dc.w    $0128,$0006,$012a,$4590,$012c,$0006,$012e,$45d8
  116. dc.w    $0130,$0006,$0132,$4620,$0134,$0006,$0136,$4668
  117. dc.w    $0102,$0000,$0104,$0024,$0108,$0002,$010a,$0002
  118. dc.w    $0100,$1200,$0180,$0000
  119. dc.w    $00e0,$0004,$00e2,$ff00,$2f11,$fffe
  120. dc.w    $0180,$0666,$3101,$ff00
  121. dc.w    $0182,$0f55,$0180,$0333,$3701,$ff00
  122. dc.w    $0182,$0f85,$3d11,$fffe
  123. dc.w    $0180,$0888,$3f11,$fffe,$0180,$0000
  124. c1:dc.w    $01a2,$0777,$01a4,$0999,$01a6,$0555
  125. c2:dc.w    $01aa,$0777,$01ac,$0999,$01ae,$0555
  126. c3:dc.w    $01b2,$0777,$01b4,$0999,$01b6,$0555   
  127. dc.w    $5011,$fffe,$0180,$0100
  128. dc.w    $5111,$fffe,$0180,$0111
  129. dc.w    $5211,$fffe,$0180,$0222
  130. dc.w    $5311,$fffe,$0180,$0333
  131. dc.w    $5411,$fffe,$0180,$0444
  132. dc.w    $5511,$fffe,$0180,$0555
  133. dc.w    $5611,$fffe,$0180,$0666
  134. dc.w    $5711,$fffe,$0180,$0777
  135. dc.w    $5811,$fffe,$0180,$0888
  136. dc.w    $5911,$fffe,$0180,$0999
  137. dc.w    $5a11,$fffe,$0180,$0aaa
  138. dc.w    $5b11,$fffe,$0180,$0bbb
  139. dc.w    $5c11,$fffe,$0180,$0ccc
  140. dc.w    $5d11,$fffe,$0180,$0ddd
  141. dc.w    $5e11,$fffe,$0180,$0eee
  142. dc.w    $5f11,$fffe,$0180,$0fff
  143. dc.w    $9011,$fffe,$0180,$0ddd
  144. dc.w    $9111,$fffe,$0180,$0ccc
  145. dc.w    $9211,$fffe,$0180,$0bbb
  146. dc.w    $9311,$fffe,$0180,$0aaa
  147. dc.w    $9411,$fffe,$0180,$0999
  148. dc.w    $9511,$fffe,$0180,$0888
  149. dc.w    $9611,$fffe,$0180,$0777
  150. dc.w    $9711,$fffe,$0180,$0666
  151. dc.w    $9811,$fffe,$0180,$0555
  152. dc.w    $9911,$fffe,$0180,$0444
  153. dc.w    $9a11,$fffe,$0180,$0333
  154. dc.w    $9b11,$fffe,$0180,$0222
  155. dc.w    $9c11,$fffe,$0180,$0111
  156. dc.w    $9d11,$fffe,$0180,$0000
  157. dc.w    $b011,$fffe,$0180,$0fff
  158. dc.w    $b111,$fffe,$0180,$0000
  159. dc.w    $b211,$fffe,$0096,$83c0
  160. dc.w    $0100,$9500
  161. scr1:
  162. dc.w    $00e0,$0002,$00e2,$5200
  163. scr2:
  164. dc.w    $00e4,$0002,$00e6,$5200
  165. dc.w    $0182,$0fff,$0184,$0eee,$0186,$0ddd
  166. dc.w    $ffff,$fffe
  167. text:
  168. dc.b    "THE DANISH DEMO DUO ARE VERY  GOOD"
  169. dc.b    " FRIENDS SO THEREFORE PET GOT THIS GREAT SCROLL !!!!        "
  170. end:
  171. even
  172. taller:
  173. dc.l    0
  174. oldclist:
  175. dc.l    0
  176. gfxbase:
  177. dc.l    0
  178. gfxname:
  179. dc.b    "graphics.library",0
  180. even
  181. bitmap:
  182. blk.w    4,0
  183. plane1:
  184. blk.l    20,0
  185. rastport:
  186. dc.l    0
  187. r_bitmap:
  188. blk.l    30,0
  189. rows:
  190. dc.b    3
  191. even
  192. slu:
  193. org $64500
  194. load $64500
  195. Spr4a:
  196. da4:
  197. dc.w $70a0,$8000
  198. dc.w $0002FBF8,$0002FBF8
  199. dc.w $0002FBFC,$00028A04,$0002DB06,$0002AAFA
  200. dc.w $0002DBFF,$0002AA01,$0002DBFF,$0002ABFF
  201. dc.w $0002D800,$0002A800,$0002D81F,$0002A81F
  202. dc.w $0002D81F,$0002A811,$0002D81B,$0002A815
  203. dc.w $0002D81F,$0002A81F,$0002D800,$0002A800
  204. dc.w $0002DBFF,$0002ABFF,$0002DBFF,$0002AA01
  205. dc.w $0002DB06,$0002AAFA,$0002FBFC,$00028A04
  206. dc.w $0002FBF8,$0002FBF8
  207. dc.w $0000,$0000
  208. spr4b:
  209. dc.w $7090,$8100
  210. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  211. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  212. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  213. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  214. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  215. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  216. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  217. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  218. dc.w $0000,$0000
  219. spr4:
  220. dc.w $7080,$8100
  221. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  222. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  223. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  224. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  225. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  226. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  227. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  228. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  229. dc.w $0000,$0000
  230. Spr3:
  231. dc.w $7060,$8100
  232. dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
  233. dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
  234. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  235. dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
  236. dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
  237. dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
  238. dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
  239. dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
  240. dc.w $0000,$0000
  241. spr2:
  242. dc.w $7050,$8100
  243. dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
  244. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  245. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  246. dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
  247. dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
  248. dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
  249. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  250. dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
  251. dc.w $0000,$0000
  252. spr1:
  253. dc.w $7040,$8100
  254. dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
  255. dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
  256. dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
  257. dc.w $000207C0,$000207C0,$000207C0,$00020440
  258. dc.w $000206C0,$00020540,$000206C0,$00020540
  259. dc.w $000206C0,$00020540,$000206C0,$00020540
  260. dc.w $000206C0,$00020540,$000206C0,$00020540
  261. dc.w $000207C0,$00020440,$000207C0,$000207C0
  262. dc.w $0000,$0000
  263. d:
  264.