home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scroll_u'd.s < prev    next >
Encoding:
Text File  |  1995-03-17  |  2.8 KB  |  152 lines
  1. s:
  2. move.l        #$50000,$dff0a0    
  3. move.w        #36000,$dff0a4 
  4. move.w        #300,$dff0a6    
  5. move.w        #65,$dff0a8    
  6. move.w        #$8201,$dff096    
  7. move.l    $04,a6
  8. lea    gfxname,a1
  9. jsr    -408(a6)
  10. move.l    d0,gfxbase
  11. move.l    d0,a0
  12. move.l    50(a0),oldclist
  13. move.l    #newclist,50(a0)
  14. move.l    gfxbase,a6
  15. lea    bitmap,a0
  16. move.l    #$01,d0
  17. move.l    #336,d1
  18. move.l    #200,d2
  19. jsr    -390(a6)
  20. move.l    #$4ff00,plane1
  21. lea    rastport,a1
  22. jsr    -198(a6)
  23. move.l    #bitmap,r_bitmap
  24. lea    rastport,a1
  25. jsr    -48(a6)
  26. move.l    #text,taller
  27. move.l    $6c,oldirq+2
  28. move.l    #newirq,$6c
  29. wait:
  30. btst #6,$bfe001
  31. bne wait
  32. jmp slut
  33. newirq:
  34. movem.l    d0-d7/a0-a6,-(sp)
  35. move.l    gfxbase,a6
  36. lea rastport,a1
  37. move.l #1,d0
  38. move.l #0,d1
  39. move.l #0,d2
  40. move.l #1,d3
  41. move.l #30,d4
  42. move.l #200,d5
  43. jsr -396(a6)
  44. lea    rastport,a1
  45. move.l    #2,d0
  46. move.l #0,d1
  47. move.l #30,d2
  48. move.l    #1,d3
  49. move.l    #130,d4
  50. move.l    #200,d5
  51. jsr    -396(a6)
  52. lea rastport,a1
  53. move.l #6,d0
  54. move.l #0,d1
  55. move.l #130,d2
  56. move.l #1,d3
  57. move.l #190,d4
  58. move.l #200,d5
  59. jsr -396(a6)
  60. lea rastport,a1
  61. move.l #2,d0
  62. move.l #0,d1
  63. move.l #190,d2
  64. move.l #1,d3
  65. move.l #280,d4
  66. move.l #200,d5
  67. jsr -396(a6)
  68. lea rastport,a1
  69. move.l #1,d0
  70. move.l #0,d1
  71. move.l #280,d2
  72. move.l #1,d3
  73. move.l #336,d4
  74. move.l #200,d5
  75. jsr -396(a6)
  76. sub.b    #1,rows
  77. bne.s    exit
  78. move.b    #8,rows
  79. lea    rastport,a1
  80. move.l    #320,d0
  81. move.l    #12,d1
  82. jsr    -240(a6)
  83. lea    rastport,a1
  84. move.l    taller,a0
  85. move.l    #1,d0
  86. jsr    -60(a6)
  87. addq.l    #1,taller
  88. cmp.l    #end,taller
  89. blt.s    exit
  90. move.l    #text,taller
  91. exit:
  92. movem.l    (sp)+,d0-d7/a0-a6
  93. oldirq:
  94. jmp    $00000000
  95. slut:
  96. move.w #3,$dff096
  97. move.l oldirq+2,$6c
  98. move.l gfxbase,a0
  99. move.l oldclist,50(a0)
  100. move.l $04,a6
  101. jmp -414(a6)
  102. newclist:
  103. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  104. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  105. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  106. dc.w    $00e0,$0004,$00e2,$ff00,$2e01,$ff00
  107. dc.w    $0182,$0000,$0180,$0666,$3001,$ff00
  108. dc.w    $0182,$0f00,$0180,$0333,$3601,$ff00
  109. dc.w    $0182,$0f80,$3c01,$ff00
  110. dc.w    $0182,$0000,$0180,$0888,$3e01,$ff00,$0100,$4200
  111. dc.w    $0180,$023a,$0182,$0000,$0184,$0000
  112. dc.w    $0186,$0000,$0188,$0000,$018a,$0000
  113. dc.w    $018c,$0000,$018e,$0000,$0190,$0000
  114. dc.w    $0192,$0000,$0194,$0000,$0196,$0000
  115. dc.w    $0198,$0000,$019a,$0000,$019c,$0000
  116. dc.w    $0180,$023a,$a301,$ff00,$0180,$023a
  117. dc.w    $0180,$0fe1,$a501,$ff00,$0182,$0ff1
  118. dc.w    $0180,$0000
  119. poke1:
  120. dc.w    $00e0,$0006,$00e2,$0000
  121. dc.w    $00e4,$0006,$00e6,$0000
  122. dc.w    $00e8,$0006,$00ea,$0000
  123. dc.w    $00ec,$0006,$00ee,$0000 
  124. dc.w    $00f0,$0006,$00f2,$0000
  125. dc.w    $fc01,$ff00,$0180,$0000,$0180,$0133
  126. dc.w    $fe01,$ff00,$0182,$0000,$0180,$0000
  127. dc.w    $ffff,$fffe
  128. text:
  129. dc.b    "REFLEX CRACKING SQUAD AND THE DANISH DEMO DUO ARE VERY  GOOD"
  130. dc.b    " FRIENDS SO THEREFORE PET MADE THIS GREAT SCROLL !!!!        "
  131. end:
  132. even
  133. taller:
  134. dc.l    0
  135. oldclist:
  136. dc.l    0
  137. gfxbase:
  138. dc.l    0
  139. gfxname:
  140. dc.b    "graphics.library",0
  141. even
  142. bitmap:
  143. blk.w    4,0
  144. plane1:
  145. blk.l    20,0
  146. rastport:
  147. dc.l    0
  148. r_bitmap:
  149. blk.l    30,0
  150. rows:
  151. dc.b    3
  152.