home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / sprite+scroll.s < prev    next >
Encoding:
Text File  |  1995-03-17  |  4.2 KB  |  170 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    #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    $0120,$0002,$0122,$5160,$0124,$0002,$0126,$5118
  75. dc.w    $0128,$0002,$012a,$50d0,$012c,$0002,$012e,$5088
  76. dc.w    $0130,$0002,$0132,$5000,$0134,$0002,$0136,$5160
  77. dc.w    $0138,$0002,$013a,$5160,$013c,$0002,$013e,$5160
  78. dc.w    $0102,$0000,$0104,$0004,$0108,$0002,$010a,$0002
  79. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  80. ;dc.w    $0140,$9040,$0148,$7040,$0150,$7060,$0158,$7080
  81. ;dc.w    $0160,$70a0,$0168,$70c0
  82. dc.w    $00e0,$0004,$00e2,$ff00,$2e01,$ff00
  83. dc.w    $0182,$0000,$0180,$0666,$3001,$ff00
  84. dc.w    $0182,$0f00,$0180,$0333,$3601,$ff00
  85. dc.w    $0182,$0f80,$3c01,$ff00
  86. dc.w    $0182,$0000,$0180,$0888,$3e01,$ff00,$0100,$1200
  87. dc.w    $0180,$023a,$0182,$0fff,$0184,$0fff
  88. dc.w    $0186,$0fff,$0188,$0fff,$018a,$0fff
  89. dc.w    $018c,$0fff,$018e,$0fff,$0190,$0fff
  90. dc.w    $0192,$0fff,$0194,$0fff,$0196,$0fff
  91. dc.w    $0198,$0fff,$019a,$0fff,$019c,$0fff
  92. dc.w    $019e,$0fff,$01a0,$0fff,$01a2,$0fff
  93. dc.w    $01a4,$0fff,$01a6,$0fff,$01a8,$0fff
  94. dc.w    $0180,$023a,$a301,$ff00,$0180,$023a
  95. dc.w    $0180,$0888,$a501,$ff00,$0182,$0000
  96. dc.w    $0180,$0555
  97. poke1:
  98. dc.w    $00e0,$0004,$00e2,$f000
  99. dc.w    $fc01,$ff00,$0182,$0000,$0180,$0333
  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 $7040,$8000
  131. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  132. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  133. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  134. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  135. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  136. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  137. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  138. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  139. Spr3:
  140. dc.w $70a0,$8000
  141. dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
  142. dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
  143. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  144. dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
  145. dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
  146. dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
  147. dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
  148. dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
  149. spr2:
  150. dc.w $7060,$8000
  151. dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
  152. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  153. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  154. dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
  155. dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
  156. dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
  157. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  158. dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
  159. spr1:
  160. dc.w $7080,$8000
  161. dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
  162. dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
  163. dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
  164. dc.w $000207C0,$000207C0,$000207C0,$00020440
  165. dc.w $000206C0,$00020540,$000206C0,$00020540
  166. dc.w $000206C0,$00020540,$000206C0,$00020540
  167. dc.w $000206C0,$00020540,$000206C0,$00020540
  168. dc.w $000207C0,$00020440,$000207C0,$000207C0
  169. dc.w $0000,$0000
  170.