home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / up_scroll2.s < prev    next >
Encoding:
Text File  |  1995-03-17  |  7.2 KB  |  292 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    #textx,tallerx
  28. move.l    $6c,oldirq+2
  29. move.l    #newirq,$6c
  30. wait:
  31. btst    #6,$bfe001
  32. bne    wait
  33. jmp     slut
  34. newirq:
  35. movem.l    d0-d7/a0-a6,-(sp)
  36. move.l    gfxbase,a6
  37. lea    rastport,a1
  38. clr.l    d0
  39. move.l    #1,d1
  40. clr.l    d2
  41. move.l    #1,d3
  42. move.l    #336,d4
  43. move.l    #95,d5
  44. jsr    -396(a6)
  45. sub.b    #1,rows
  46. bne.s    exit
  47. move.b    #20,rows
  48. lea    rastport,a1
  49. move.l    #8,d0
  50. move.l    #95,d1
  51. jsr    -240(a6)
  52. lea    rastport,a1
  53. move.l    taller,a0
  54. move.l    #38,d0
  55. jsr    -60(a6)
  56. add.l #38,taller
  57. cmp.l    #textx,taller
  58. blt.s    exit
  59. move.l    #text,taller
  60. exit:
  61. move.w #$0000,d0
  62. cmp.w #0,d0
  63. beq ikkpause
  64. subq.w #$0001,exit+2
  65. jmp exit1
  66.  
  67. ;
  68. ikkpause:
  69. lea    rastport,a1
  70. speed:
  71. move.l    #2,d0
  72. clr.l    d1
  73. clr.l    d2
  74. move.l    #190,d3
  75. move.l    #336,d4
  76. move.l    #204,d5
  77. jsr    -396(a6)
  78. sub.b    #1,rowsx
  79. bne.s    exit1
  80. speed1:
  81. move.b    #4,rowsx
  82. lea    rastport,a1
  83. move.l    #320,d0
  84. move.l    #198,d1
  85. jsr    -240(a6)
  86. lea    rastport,a1
  87. move.l tallerx,a0
  88. cmp.b #$f0,(a0)
  89. bpl vidre
  90. bsr temposkift
  91. vidre:
  92. move.l    tallerx,a0
  93. move.l    #1,d0
  94. jsr    -60(a6)
  95. addq.l #1,tallerx
  96. cmp.l    #endx,tallerx
  97. blt.s    exit1
  98. move.l #textx,tallerx
  99. exit1:
  100. movem.l    (sp)+,d0-d7/a0-a6
  101. oldirq:
  102. jmp    $00000000
  103. slut:
  104. move.w #$0001,$dff096
  105. move.l oldirq+2,$6c
  106. move.l gfxbase,a0
  107. move.l oldclist,50(a0)
  108. move.l $04,a6
  109. jmp -414(a6)
  110. rts
  111. ;
  112. ;
  113. temposkift:
  114. move.b (a0),d0
  115. sub.b #$f0,d0
  116. beq pause
  117. move.b d0,speed+5
  118. move.b d0,devide+3
  119. move.l #8,d0
  120. devide:
  121. divu #1,d0
  122.  
  123. move.b d0,speed1+3
  124. rts
  125. pause:
  126. rts
  127. newclist:
  128. dc.w    $008e,$1c11,$0090,$41f0,$0092,$0038,$0094,$00d0
  129. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  130. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  131. dc.w    $00e0,$0006,$00e2,$0000
  132. dc.w    $1511,$fffe,$182,$000
  133. dc.w    $2011,$fffe,$182,$111
  134. dc.w    $2211,$fffe,$182,$222
  135. dc.w    $2411,$fffe,$182,$333
  136. dc.w    $2611,$fffe,$182,$444
  137. dc.w    $2811,$fffe,$182,$555
  138. dc.w    $2a11,$fffe,$182,$666
  139. dc.w    $2c11,$fffe,$182,$777
  140. dc.w    $2e11,$fffe,$182,$888
  141. dc.w    $3011,$fffe,$182,$999
  142. dc.w    $3211,$fffe,$182,$aaa
  143. dc.w    $3411,$fffe,$182,$bbb
  144. dc.w    $3611,$fffe,$182,$ccc
  145. dc.w    $3811,$fffe,$182,$ddd
  146. dc.w    $5611,$fffe,$182,$ddd
  147. dc.w    $5811,$fffe,$182,$ccc
  148. dc.w    $5a11,$fffe,$182,$bbb
  149. dc.w    $5c11,$fffe,$182,$aaa
  150. dc.w    $5e11,$fffe,$182,$999
  151. dc.w    $6011,$fffe,$182,$888
  152. dc.w    $6211,$fffe,$182,$777
  153. dc.w    $6411,$fffe,$182,$666
  154. dc.w    $6611,$fffe,$182,$555
  155. dc.w    $6811,$fffe,$182,$444
  156. dc.w    $6a11,$fffe,$182,$333
  157. dc.w    $6c11,$fffe,$182,$222
  158. dc.w    $6e11,$fffe,$182,$111
  159. dc.w    $7011,$fffe,$180,$111
  160. dc.w    $7111,$fffe,$180,$222,$182,$222
  161. dc.w    $7211,$fffe,$180,$333,$182,$333
  162. dc.w    $7311,$fffe,$180,$444,$182,$444
  163. dc.w    $7411,$fffe,$180,$555,$182,$555
  164. dc.w    $7511,$fffe,$180,$666,$182,$666
  165. dc.w    $7611,$fffe,$180,$777,$182,$777
  166. dc.w    $7711,$fffe,$180,$888,$182,$888
  167. dc.w    $7811,$fffe,$180,$999,$182,$999
  168. dc.w    $7911,$fffe,$180,$aaa,$182,$aaa
  169. dc.w    $7a11,$fffe,$180,$999,$182,$999
  170. dc.w    $7b11,$fffe,$180,$888,$182,$888
  171. dc.w    $7c11,$fffe,$180,$777,$182,$777
  172. dc.w    $7d11,$fffe,$180,$666,$182,$666
  173. dc.w    $7e11,$fffe,$180,$555,$182,$555
  174. dc.w    $7f11,$fffe,$180,$444,$182,$444
  175. dc.w    $8011,$fffe,$180,$333,$182,$333
  176. dc.w    $8111,$fffe,$180,$222,$182,$222
  177. dc.w    $8211,$fffe,$180,$111,$182,$111
  178. dc.w    $8311,$fffe,$180,$000,$182,$fff
  179. dc.w    $180,$200,$182,$300,$184,$444
  180. dc.w    $186,$200,$188,$300,$18a,$444
  181. dc.w    $18c,$200,$18e,$300,$190,$444
  182. dc.w    $192,$200,$194,$300,$196,$444
  183. ;
  184. dc.w    $100,$5200
  185. dc.w    $00e0,$0005,$00e2,$0000
  186. dc.w    $00e4,$0005,$00e6,$1000
  187. dc.w    $00e8,$0005,$00ea,$2000
  188. dc.w    $00ec,$0005,$00ee,$3000
  189. dc.w    $00f0,$0005,$00f2,$4000
  190. dc.w    $d311,$fffe,$100,$200
  191. dc.w    $d411,$fffe,$180,$300
  192. dc.w    $d511,$fffe,$180,$400
  193. dc.w    $d611,$fffe,$180,$500
  194. dc.w    $d711,$fffe,$180,$600
  195. dc.w    $d811,$fffe,$180,$700
  196. dc.w    $d911,$fffe,$180,$800
  197. dc.w    $da11,$fffe,$180,$900,$100,$1200
  198. dc.w    $00e0,$6,$00e2,$1f2c
  199. dc.w    $db11,$fffe,$180,$a00,$182,$7
  200. dc.w    $e411,$fffe,$100,$200,$180,$900
  201. dc.w    $e511,$fffe,$180,$800
  202. dc.w    $e611,$fffe,$180,$700
  203. dc.w    $e711,$fffe,$180,$600
  204. dc.w    $e811,$fffe,$180,$500
  205. dc.w    $e911,$fffe,$180,$400
  206. dc.w    $ea11,$fffe,$180,$300
  207. dc.w    $eb11,$fffe,$180,$000
  208. dc.w    $ffff,$fffe
  209.  
  210. text:
  211. dc.b "       THE DANISH DEMO DUO 1987       "
  212. dc.b "         ARE PROUD TO PRESENT         "       
  213. dc.b "    THE FIRST REAL DDD AMIGA DEMO     "       
  214. dc.b " IF YOU THINK THIS IS GREAT THEN JUST "       
  215. dc.b " WAIT TO WE WILL PRESENT OUR 2ND DEMO "       
  216. dc.b "--------------------------------------"
  217. dc.b "                                      "       
  218. dc.b "                                      "       
  219. dc.b "                                      "       
  220. dc.b "                                      "       
  221. dc.b "                                      "       
  222. dc.b "                                      "
  223. dc.b "                                      "
  224. dc.b "                                      "
  225. dc.b "                                      "
  226. dc.b "                                      "
  227. dc.b "                                      "
  228. dc.b "                                      "
  229. dc.b "                                      "
  230. dc.b "                                      "
  231. dc.b "                                      "
  232. dc.b "                                      "
  233. dc.b "                                      "
  234. dc.b "                                      "
  235. dc.b "                                      "
  236. dc.b "                                      "
  237. dc.b "                                      "
  238. dc.b "                                      "
  239. dc.b "                                      "
  240. dc.b "                                      "
  241. dc.b "                                      "
  242. dc.b "                                      "
  243. dc.b "                                      "
  244. dc.b "                                      "
  245. dc.b "                                      "
  246. dc.b "                                      "
  247. dc.b "                                      "
  248. textx: 
  249. dc.b "THE DANISH DEMO DUO 1987 ARE PET & TOX ..........  "
  250. dc.b " THE BEST THING WITH THIS DEMO IS THAT WE ARE AMONG "       
  251. dc.b "FEW IN DENMARK THERE KNOW HOW TO PROGRAM THIS 68000"       
  252. dc.b $f8
  253. dc.b " M. CODE IN A GOOD WAY .............. "       
  254. dc.b "HEY AMIGA FREAK, DON'T YOU THINK THIS DEMO IS GREAT "       
  255. dc.b "IF YOU WANTS TO SWAP DEMOS & ROUTINES WITH US THEN "
  256. dc.b "CONTACT ME : PETER OLSEN         MØLLEAGER 14       "
  257. dc.b " 2640 HEDEHUSENE           DENMARK               "
  258. dc.b " GREETINGS IN THIS SCROLL MUST GO TO : HQC, TOM(on the ST), "
  259. dc.b "PCT, 2000 AD, DEXION, C64CG, LCC and ANCOR ........"
  260. dc.b " THE SPECIAL GREETS ARE TO REFLEX CRACKING SQUAD (HEY MY "
  261. dc.b "DEAR FREIND : BAD BOY, YOU A VERY GOOD FREIND)     "
  262. dc.b " THE NORMAL HELLOS WILL BE IN THE SCROLL ABOVE ........... "
  263. dc.b "       Bye .. Bye .. scroll restarts ..               "
  264.  
  265. endx:
  266. even
  267. taller:
  268. dc.l    0
  269. tallerx:
  270. dc.l    0
  271. oldclist:
  272. dc.l    0
  273. gfxbase:
  274. dc.l    0
  275. gfxname:
  276. dc.b    "graphics.library",0
  277. even
  278. bitmap:
  279. blk.w    4,0
  280. plane1:
  281. blk.l    20,0
  282. rastport:
  283. dc.l    0
  284. r_bitmap:
  285. blk.l    30,0
  286. rows:
  287. dc.b    2
  288. even
  289. rowsx:
  290. dc.b    2
  291.  
  292.