home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / sprites+scroll.s < prev    next >
Text File  |  1995-03-17  |  5KB  |  184 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    #$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    #200,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. btst #6,$bfe001
  33. bne wait
  34. jmp slut
  35. newirq:
  36. movem.l    d0-d7/a0-a6,-(sp)
  37. move.l    gfxbase,a6
  38. lea    rastport,a1
  39. move.l    #$4,d0
  40. clr.l    d1
  41. clr.l    d2
  42. move.l    #01,d3
  43. move.l    #336,d4
  44. move.l    #200,d5
  45. jsr    -396(a6)
  46. sub.b    #1,rows
  47. bne.s    exit
  48. move.b    #2,rows
  49. lea    rastport,a1
  50. move.l    #320,d0
  51. move.l    #12,d1
  52. jsr    -240(a6)
  53. lea    rastport,a1
  54. move.l    taller,a0
  55. move.l    #1,d0
  56. jsr    -60(a6)
  57. addq.l    #1,taller
  58. cmp.l    #end,taller
  59. blt.s    exit
  60. move.l    #text,taller
  61. exit:
  62. movem.l    (sp)+,d0-d7/a0-a6
  63. oldirq:
  64. jmp    $00000000
  65. slut:
  66. move.w #3,$dff096
  67. move.l oldirq+2,$6c
  68. move.l gfxbase,a0
  69. move.l oldclist,50(a0)
  70. move.l $04,a6
  71. jmp -414(a6)
  72. newclist:
  73. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  74. dc.w    $0096,$83a0
  75. dc.w    $0120,$0002,$0122,$5160,$0124,$0002,$0126,$5118
  76. dc.w    $0128,$0002,$012a,$50d0,$012c,$0002,$012e,$5088
  77. dc.w    $0130,$0002,$0132,$5000
  78. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  79. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  80. dc.w    $00e0,$0004,$00e2,$ff00,$2e01,$ff00
  81. dc.w    $0182,$0000,$0180,$0666,$3001,$ff00
  82. dc.w    $0182,$0f00,$0180,$0333,$3601,$ff00
  83. dc.w    $0182,$0f80,$3c01,$ff00
  84. dc.w    $0182,$0000,$0180,$0888,$3e01,$ff00,$0100,$4200
  85. dc.w    $0180,$023a,$0182,$0000,$0184,$0000
  86. dc.w    $0186,$0000,$0188,$0000,$018a,$0000
  87. dc.w    $018c,$0000,$018e,$0000,$0190,$0000
  88. dc.w    $0192,$0000,$0194,$0000,$0196,$0000
  89. dc.w    $0198,$0000,$019a,$0000,$019c,$0000
  90. dc.w    $0180,$023a,$a301,$ff00,$0180,$023a
  91. dc.w    $0180,$0fe1,$a501,$ff00,$0182,$0ff1
  92. dc.w    $0180,$0000
  93. poke1:
  94. dc.w    $00e0,$0006,$00e2,$0000
  95. dc.w    $00e4,$0006,$00e6,$0000
  96. dc.w    $00e8,$0006,$00ea,$0000
  97. dc.w    $00ec,$0006,$00ee,$0000 
  98. dc.w    $00f0,$0006,$00f2,$0000
  99. dc.w    $fc01,$ff00,$0180,$0000,$0180,$0133
  100. dc.w    $fe01,$ff00,$0182,$0000,$0180,$0000
  101. dc.w    $ffff,$fffe
  102. text:
  103. dc.b    "REFLEX CRACKING SQUAD AND THE DANISH DEMO DUO ARE VERY  GOOD"
  104. dc.b    " FRIENDS SO THEREFORE PET GOT THIS GREAT SCROLL !!!!        "
  105. end:
  106. even
  107. taller:
  108. dc.l    0
  109. oldclist:
  110. dc.l    0
  111. gfxbase:
  112. dc.l    0
  113. gfxname:
  114. dc.b    "graphics.library",0
  115. even
  116. bitmap:
  117. blk.w    4,0
  118. plane1:
  119. blk.l    20,0
  120. rastport:
  121. dc.l    0
  122. r_bitmap:
  123. blk.l    30,0
  124. rows:
  125. dc.b    3
  126. even
  127. org $25000
  128. load $25000
  129. spr4:
  130. dc.w $5070,$7f00
  131. dc.w $0002,$FBF8,$0002,$FBF8,$0002,$FBFC,$0002,$8A04
  132. dc.w $0002,$DB06,$0002,$AAFA,$0002,$DBFF,$0002,$AA01
  133. dc.w $0002,$DBFF,$0002,$ABFF,$0002,$D800,$0002,$A800
  134. dc.w $0002,$D81F,$0002,$A81F,$0002,$D81F,$0002,$A811
  135. dc.w $0002,$D81B,$0002,$A815,$0002,$D81F,$0002,$A81F
  136. dc.w $0002,$D800,$0002,$A800,$0002,$DBFF,$0002,$ABFF
  137. dc.w $0002,$DBFF,$0002,$AA01,$0002,$DB06,$0002,$AAFA
  138. dc.w $0002,$FBFC,$0002,$8A04,$0002,$FBF8,$0002,$FBF8
  139. dc.w $0000,$0000
  140. Spr3:
  141. dc.w $7070,$7f00
  142. DC.W $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
  143. DC.W $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
  144. DC.W $0002DBFF,$0002ABFF,$0002D800,$0002A800
  145. DC.W $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
  146. DC.W $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
  147. DC.W $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
  148. DC.W $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
  149. DC.W $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
  150. DC.W $0000,$0000
  151. Spr2:
  152. dc.w $9070,$7f00
  153. DC.W $0002F81F,$0002F81F,$0002F81F,$00028811
  154. DC.W $0002D81B,$0002A815,$0002D81B,$0002A815
  155. DC.W $0002D81B,$0002A815,$0002D81B,$0002A815
  156. DC.W $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
  157. DC.W $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
  158. DC.W $0002DBFB,$0002ABF5,$0002D81B,$0002A815
  159. DC.W $0002D81B,$0002A815,$0002D81B,$0002A815
  160. DC.W $0002F81F,$00028811,$0002F81F,$0002F81F
  161. DC.W $0000,$0000
  162. spr1:
  163. dc.w $b070,$7f00
  164. DC.W $0002ffff,$0002ffff,$0002FFFF,$00028001
  165. DC.W $0002C003,$0002BFFD,$0002FFFF,$00028001
  166. DC.W $0002FFFF,$0002FFFF,$00020000,$00020000
  167. DC.W $0207C0,$0207C0,$0207C0,$020440
  168. DC.W $0206C0,$020540,$0206C0,$020540
  169. DC.W $0206C0,$020540,$0206C0,$020540
  170. DC.W $0206C0,$020540,$0206C0,$020540
  171. DC.W $0207C0,$020440,$0207C0,$0207C0
  172. DC.W $0000,$0000
  173. spr0:
  174. dc.w $d070,$7f00
  175. DC.W $00020000,$00020000,$00020000,$00020000
  176. DC.W $00020000,$00020000,$00020000,$00020000
  177. DC.W $00020000,$00020000,$00020000,$00020000
  178. DC.W $00020000,$00020000,$00020000,$00020000
  179. DC.W $00020000,$00020000,$00020000,$00020000
  180. DC.W $00020000,$00020000,$00020000,$00020000
  181. DC.W $00020000,$00020000,$00020000,$00020000
  182. DC.W $00020000,$00020000,$00020000,$00020000
  183. DC.W $0000,$0000
  184.