home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / up_scroll.s < prev    next >
Text File  |  1995-03-17  |  4KB  |  158 lines
  1. start:
  2. move.l        #$50100,$dff0a0    
  3. move.w        #[37560/2],$dff0a4 
  4. move.w        #360,$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    #$60000,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. clr.l    d0
  38. move.l    #1,d1
  39. clr.l    d2
  40. move.l    #1,d3
  41. move.l    #336,d4
  42. move.l    #210,d5
  43. jsr    -396(a6)
  44. sub.b    #$01,rows
  45. bne.s    exit
  46. move.b    #10,rows
  47. lea    rastport,a1
  48. move.l    #8,d0
  49. move.l    #95,d1
  50. jsr    -240(a6)
  51. lea    rastport,a1
  52. move.l    taller,a0
  53. move.l    #38,d0
  54. jsr    -60(a6)
  55. add.l #38,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 #$0001,$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,$1c11,$0090,$41f0,$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,$0006,$00e2,$0000
  75. dc.w    $1511,$fffe,$182,$000
  76. dc.w    $2011,$fffe,$182,$111
  77. dc.w    $2211,$fffe,$182,$222
  78. dc.w    $2411,$fffe,$182,$333
  79. dc.w    $2611,$fffe,$182,$444
  80. dc.w    $2811,$fffe,$182,$555
  81. dc.w    $2a11,$fffe,$182,$666
  82. dc.w    $2c11,$fffe,$182,$777
  83. dc.w    $2e11,$fffe,$182,$888
  84. dc.w    $3011,$fffe,$182,$999
  85. dc.w    $3211,$fffe,$182,$aaa
  86. dc.w    $3411,$fffe,$182,$bbb
  87. dc.w    $3611,$fffe,$182,$ccc
  88. dc.w    $3811,$fffe,$182,$ddd
  89. dc.w    $5611,$fffe,$182,$ddd
  90. dc.w    $5811,$fffe,$182,$ccc
  91. dc.w    $5a11,$fffe,$182,$bbb
  92. dc.w    $5c11,$fffe,$182,$aaa
  93. dc.w    $5e11,$fffe,$182,$999
  94. dc.w    $6011,$fffe,$182,$888
  95. dc.w    $6211,$fffe,$182,$777
  96. dc.w    $6411,$fffe,$182,$666
  97. dc.w    $6611,$fffe,$182,$555
  98. dc.w    $6811,$fffe,$182,$444
  99. dc.w    $6a11,$fffe,$182,$333
  100. dc.w    $6c11,$fffe,$182,$222
  101. dc.w    $6e11,$fffe,$182,$111
  102. dc.w    $7011,$fffe,$180,$111
  103. dc.w    $7111,$fffe,$180,$222,$182,$222
  104. dc.w    $7211,$fffe,$180,$333,$182,$333
  105. dc.w    $7311,$fffe,$180,$444,$182,$444
  106. dc.w    $7411,$fffe,$180,$555,$182,$555
  107. dc.w    $7511,$fffe,$180,$666,$182,$666
  108. dc.w    $7611,$fffe,$180,$777,$182,$777
  109. dc.w    $7711,$fffe,$180,$888,$182,$888
  110. dc.w    $7811,$fffe,$180,$999,$182,$999
  111. dc.w    $7911,$fffe,$180,$aaa,$182,$aaa
  112. dc.w    $7a11,$fffe,$180,$999,$182,$999
  113. dc.w    $7b11,$fffe,$180,$888,$182,$888
  114. dc.w    $7c11,$fffe,$180,$777,$182,$777
  115. dc.w    $7d11,$fffe,$180,$666,$182,$666
  116. dc.w    $7e11,$fffe,$180,$555,$182,$555
  117. dc.w    $7f11,$fffe,$180,$444,$182,$444
  118. dc.w    $8011,$fffe,$180,$333,$182,$333
  119. dc.w    $8111,$fffe,$180,$222,$182,$222
  120. dc.w    $8211,$fffe,$180,$111,$182,$111
  121. dc.w    $8311,$fffe,$180,$000
  122. dc.w    $ffff,$fffe
  123. text:
  124. dc.b "       THE DANISH DEMO DUO 1987       "
  125. dc.b "                                      "       
  126. dc.b "THE DANISH DEMO sadfssafsfdsdafsdaND T"       
  127. dc.b "                                      "       
  128. dc.b "THE DANISH DsadfdsafsdafsadsafsdffND T"       
  129. dc.b "                                      "       
  130. dc.b "                                      "       
  131. dc.b "                                      "       
  132. dc.b "                                      "       
  133. dc.b "                                      "       
  134. dc.b "                                      "       
  135. end:
  136. even
  137. taller:
  138. dc.l    0
  139. taller1:
  140. dc.l    0
  141. oldclist:
  142. dc.l    0
  143. gfxbase:
  144. dc.l    0
  145. gfxname:
  146. dc.b    "graphics.library",0
  147. even
  148. bitmap:
  149. blk.w    4,0
  150. plane1:
  151. blk.l    20,0
  152. rastport:
  153. dc.l    0
  154. r_bitmap:
  155. blk.l    30,0
  156. rows:
  157. dc.b    2
  158.