home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scrolliac.s < prev    next >
Text File  |  1995-03-17  |  4KB  |  166 lines
  1. s:
  2. move.l        #$50000,$dff0a0    
  3. move.w        #36000,$dff0a4 
  4. move.w        #300,$dff0a6    
  5. move.w        #64,$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    #4,d0
  38. move.l    #1,d1
  39. move.l  #120,d2
  40. move.l    #10,d3
  41. move.l    #336,d4
  42. move.l    #200,d5
  43. jsr    -396(a6)
  44. sub.b    #1,rows
  45. bne.s    exit
  46. move.b    #2,rows
  47. lea    rastport,a1
  48. move.l    #320,d0
  49. move.l    #100,d1
  50. jsr    -240(a6)
  51. lea    rastport,a1
  52. move.l    taller,a0
  53. move.l    #1,d0
  54. jsr    -60(a6)
  55. addq.l    #1,taller
  56. cmp.l    #end,taller
  57. blt.s    exit
  58. move.l    #text,taller
  59. exit:
  60. movem.l    (sp)+,d0-d7/a0-a6
  61. oldirq:
  62. jmp    $00000000
  63. slut:
  64. move.w #3,$dff096
  65. move.l oldirq+2,$6c
  66. move.l gfxbase,a0
  67. move.l oldclist,50(a0)
  68. move.l $04,a6
  69. jmp -414(a6)
  70. newclist:
  71. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  72. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  73. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  74. dc.w    $00e0,$0004,$00e2,$ff00,$2e01,$ff00
  75. dc.w    $0182,$0000,$0180,$0666,$3001,$ff00
  76. dc.w    $0182,$0f00,$0180,$0333,$3601,$ff00
  77. dc.w    $0182,$0f80,$3c01,$ff00,$0182,$0000 
  78. dc.w    $0180,$0888,$3e01,$ff00,$0182,$0000
  79. dc.w    $0180,$0000,$3f01,$ff00,$0182,$0333
  80. dc.w    $0180,$0f01,$00e0,$0004,$00e2,$ff00
  81. dc.w    $4201,$ff00,$0182,$0000,$0180,$0c00
  82. dc.w    $4901,$ff00,$0182,$0bbb 
  83. dc.w    $4f01,$ff00,$0182,$0000,$0180,$0410
  84. dc.w    $5201,$ff00,$0100,$1200,$0180,$0000
  85. dc.w    $5a01,$ff00,$0182,$0000,$0180,$023a
  86. dc.w    $5b01,$ff00,$0182,$0000,$0180,$0239
  87. dc.w    $5c01,$ff00,$0182,$0000,$0180,$0238
  88. dc.w    $5e01,$ff00,$0182,$0000,$0180,$0237
  89. dc.w    $5f01,$ff00,$0182,$0000,$0180,$0236
  90. dc.w    $6001,$ff00,$0182,$0000,$0180,$0235 
  91. dc.w    $6101,$ff00,$0182,$0000,$0180,$0234
  92. dc.w    $6201,$ff00,$0182,$0000,$0180,$0233
  93. dc.w    $6301,$ff00,$0182,$0000,$0180,$0234
  94. dc.w    $6401,$ff00,$0182,$0000,$0180,$0235
  95. dc.w    $6501,$ff00,$0182,$0000,$0180,$0236
  96. dc.w    $6601,$ff00,$0182,$0000,$0180,$0237
  97. dc.w    $6701,$ff00,$0182,$0000,$0180,$0238
  98. dc.w    $6801,$ff00,$0182,$0000,$0180,$0239
  99. dc.w    $6901,$ff00,$0182,$0000,$0180,$023a
  100. dc.w    $6a01,$ff00,$0182,$0000,$0180,$0000
  101. dc.w    $7001,$ff00,$0182,$0000,$0180,$0100
  102. dc.w    $7101,$ff00,$0182,$0000,$0180,$0111
  103. dc.w    $7201,$ff00,$0182,$0000,$0180,$0222
  104. dc.w    $7301,$ff00,$0182,$0000,$0180,$0333
  105. dc.w    $7401,$ff00,$0182,$0000,$0180,$0444
  106. dc.w    $7501,$ff00,$0182,$0000,$0180,$0555
  107. dc.w    $7601,$ff00,$0182,$0000,$0180,$0666
  108. dc.w    $7701,$ff00,$0182,$0000,$0180,$0777
  109. dc.w    $7801,$ff00,$0182,$0000,$0180,$0888
  110. dc.w    $7901,$ff00,$0182,$0000,$0180,$0999
  111. dc.w    $7a01,$ff00,$0182,$0000,$0180,$0aaa
  112. dc.w    $7b01,$ff00,$0182,$0000,$0180,$0bbb
  113. dc.w    $7c01,$ff00,$0182,$0000,$0180,$0ccc
  114. dc.w    $7d01,$ff00,$0182,$0000,$0180,$0ddd
  115. dc.w    $7e01,$ff00,$0182,$0000,$0180,$0eee
  116. dc.w    $9001,$ff00,$0182,$0000,$0180,$0ddd
  117. dc.w    $9101,$ff00,$0182,$0000,$0180,$0ccc
  118. dc.w    $9201,$ff00,$0182,$0000,$0180,$0bbb
  119. dc.w    $9301,$ff00,$0182,$0000,$0180,$0aaa
  120. dc.w    $9401,$ff00,$0182,$0000,$0180,$0999
  121. dc.w    $9501,$ff00,$0182,$0000,$0180,$0888
  122. dc.w    $9601,$ff00,$0182,$0000,$0180,$0777
  123. dc.w    $9701,$ff00,$0182,$0000,$0180,$0666
  124. dc.w    $9801,$ff00,$0182,$0000,$0180,$0555
  125. dc.w    $9901,$ff00,$0182,$0000,$0180,$0444
  126. dc.w    $9a01,$ff00,$0182,$0000,$0180,$0333
  127. dc.w    $9b01,$ff00,$0182,$0000,$0180,$0222
  128. dc.w    $9c01,$ff00,$0182,$0000,$0180,$0111
  129. dc.w    $9d01,$ff00,$0182,$0000,$0180,$0000
  130. dc.w    $ae01,$ff00,$0182,$0000,$0180,$0666
  131. dc.w    $b001,$ff00,$0182,$0000,$0180,$0444
  132. dc.w    $b501,$ff00,$00e0,$0004,$00e2,$ff00
  133. dc.w    $c501,$ff00,$0182,$0888
  134. dc.w    $00e0,$0004,$00e2,$ff00
  135. dc.w    $d501,$ff00,$0182,$0666
  136. dc.w    $00e0,$0004,$00e2,$ff00
  137. dc.w    $e501,$ff00,$0182,$0222
  138. dc.w    $00e0,$0004,$00e2,$ff00
  139. dc.w    $fd01,$ff00,$0182,$0000,$0180,$0333
  140. dc.w    $ff01,$ff00,$0182,$0000,$0180,$0000
  141. dc.w    $ffff,$fffe
  142. text:
  143. dc.b    "THE DANISH DEMO DUO ARE VERY GOOD JUST LOOK AT THIS ISN'T "
  144. dc.b    "IT THEREFORE PET GOT THIS GREAT AMIGA !!!!  EHH TOX !     "
  145. end:
  146. even
  147. taller:
  148. dc.l    0
  149. oldclist:
  150. dc.l    0
  151. gfxbase:
  152. dc.l    0
  153. gfxname:
  154. dc.b    "graphics.library",0
  155. even
  156. bitmap:
  157. blk.w    4,0
  158. plane1:
  159. blk.l    20,0
  160. rastport:
  161. dc.l    0
  162. r_bitmap:
  163. blk.l    30,0
  164. rows:
  165. dc.b    3
  166.