home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / roderop.s < prev    next >
Text File  |  1995-03-17  |  6KB  |  348 lines
  1. s:
  2. move.l    #$60000,$dff0a0    
  3. move.w    #[41112/2],$dff0a4 
  4. move.w    #358,$dff0a6    
  5. move.w    #65,$dff0a8    
  6. move.w    #$83a1,$dff096    
  7. move.l    $04,a6
  8. jsr -132(a6)
  9. move.l   #size,d0
  10. moveq   #2,d1
  11. jsr     -198(a6)
  12. move.l  d0,cladr
  13. beq.L   error
  14. lea    gfxname,a1
  15. jsr    -408(a6)
  16. move.l    d0,gfxbase
  17. lea    diskfontname,a1
  18. jsr    -408(a6)    
  19. beq.L    error
  20. move.l    d0,fontlbase    
  21. move.l    fontlbase,a6    
  22. lea    textattr,a0
  23. jsr    -30(a6)        
  24. beq.L    error        
  25. move.l    d0,fontbase    
  26. move.l    $2230,oldclist
  27. move.l    #newclist,$2230
  28. move.l    gfxbase,a6
  29. lea    bitmap,a0
  30. move.l    #$01,d0
  31. move.l    #336,d1
  32. move.l    #200,d2
  33. jsr    -390(a6)
  34. move.l    #$60000,plane1
  35. lea    rastport,a1
  36. jsr    -198(a6)
  37. lea    rastport,a1
  38. move.l    fontbase,a0
  39. jsr    -66(a6)
  40. move.l    #bitmap,r_bitmap
  41. lea    rastport,a1
  42. jsr    -48(a6)
  43. lea    rastport,a1
  44. move.l    #215,d0
  45. move.l    #122,d1
  46. jsr    -240(a6)
  47. lea    rastport,a1
  48. lea     hoptext,a0
  49. move.l    #14,d0
  50. jsr    -60(a6)
  51. move.l    #text,taller
  52. move.l  #flimstart,flimtal
  53. lea     sint,a6
  54. move.l    $6c,oldirq+2
  55. move.l    #newirq,$6c
  56. wait:
  57. cmpi.b #$ff,$dff006
  58. bne wait
  59. btst #6,$bfe001
  60. beq slut
  61. add.w #$111,f1+6
  62. add.w #$111,f2+6
  63. add.w #$111,f3+6
  64. add.w #$111,f4+6
  65. add.w #$111,f5+6
  66. add.w #$111,f6+6
  67. add.w #$111,f7+6
  68. add.w #$111,f8+6
  69. add.w #$111,f9+6
  70. add.w #$111,fa+6
  71. add.w #$111,fb+6
  72. add.w #$111,fc+6
  73. add.w #$111,fd+6
  74. add.w #$111,fe+6
  75. add.w #$111,ff+6
  76. add.w #$111,fg+6
  77. add.w #$111,fh+6
  78. move.b (a6)+,l1
  79. move.b l1,get
  80. add.b #$01,get
  81. move.b get,l2
  82. add.b #$01,get
  83. move.b get,l3
  84. add.b #$01,get
  85. move.b get,l4
  86. add.b #$01,get
  87. move.b get,l5
  88. add.b #$01,get
  89. move.b get,l6
  90. add.b #$01,get
  91. move.b get,l7
  92. add.b #$01,get
  93. move.b get,l8
  94. add.b #$01,get
  95. move.b get,l9
  96. add.b #$01,get
  97. move.b get,la
  98. add.b #$01,get
  99. move.b get,lb
  100. add.b #$01,get
  101. move.b get,lc
  102. add.b #$01,get
  103. move.b get,ld
  104. add.b #$01,get
  105. move.b get,le
  106. cmp.l #endsin,a6
  107. bne wait
  108. lea   sint,a6
  109. bra wait
  110. newirq:
  111. movem.l    d0-d7/a0-a6,-(sp)
  112. move.l    gfxbase,a6
  113. move.l flimtal,a4
  114. move.w (a4)+,hopflim
  115. move.l a4,flimtal
  116. cmp.l #endflim,a4
  117. bne tilb
  118. move.l #flimstart,flimtal
  119. tilb:
  120. add.w #$0002,label1
  121. add.w #$0002,label5
  122. cmp.b #$cf,label1+1
  123. beq norstreg
  124. bra wait2
  125. norstreg:
  126. move.w #$8d05,label1
  127. move.w #$a305,label5
  128. wait2:
  129. lea rastport,a1
  130. move.l #4,d0
  131. clr.l d1
  132. clr.l d2
  133. move.l #100,d3
  134. move.l #336,d4
  135. move.l #116,d5
  136. jsr -396(a6)
  137. sub.b    #1,rows
  138. bne.s    exit
  139. move.b    #6,rows
  140. lea    rastport,a1
  141. move.l    #312,d0
  142. move.l    #100,d1
  143. jsr    -240(a6)
  144. lea    rastport,a1
  145. move.l    taller,a0
  146. move.l    #1,d0
  147. jsr    -60(a6)
  148. addq.l    #1,taller
  149. cmp.l    #end,taller
  150. blt.s    exit
  151. move.l    #text,taller
  152. exit:
  153. movem.l    (sp)+,d0-d7/a0-a6
  154. oldirq:
  155. jmp    $00000000
  156. slut:
  157. move.w #3,$dff096
  158. move.l 4,a6
  159. move.l cladr,a1
  160. move.l #size,d0
  161. jsr    -210(a6)
  162. jsr    -138(a6)
  163. move.l oldirq+2,$6c
  164. move.l gfxbase,a0
  165. move.l oldclist,50(a0)
  166. move.l $04,a6
  167. jsr -414(a6)
  168. move.l        gfxbase,a6    
  169. move.l        fontbase,a1    
  170. jsr        -78(a6)    
  171. move.l        $04,a6    
  172. move.l        fontlbase,a1    
  173. jsr        -414(a6)
  174. move.l        gfxbase,a1
  175. jsr        -414(a6)
  176. error:
  177. rts    
  178. newclist:
  179. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  180. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  181. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  182. dc.w    $00e0,$0006,$00e2,$0000
  183. label1:
  184. dc.w    $8d01,$fffe,$180,$000,$180,$100,$180,$200,$180,$300,$180,$400
  185. dc.w    $180,$500,$180,$600,$180,$700,$180,$800,$180,$900
  186. dc.w    $180,$a00,$180,$b00,$180,$c00,$180,$d00,$180,$e00
  187. dc.w    $180,$f00,$180,$0
  188. f1:
  189. dc.w    $9011,$fffe,$182,$111
  190. f2:
  191. dc.w    $9111,$fffe,$182,$222
  192. f3:
  193. dc.w    $9211,$fffe,$182,$333
  194. f4:
  195. dc.w    $9311,$fffe,$182,$444
  196. f5:
  197. dc.w    $9411,$fffe,$182,$555
  198. f6:
  199. dc.w    $9511,$fffe,$182,$666
  200. f7:
  201. dc.w    $9611,$fffe,$182,$777
  202. f8:
  203. dc.w    $9711,$fffe,$182,$888
  204. f9:
  205. dc.w    $9811,$fffe,$182,$999
  206. fa:
  207. dc.w    $9911,$fffe,$182,$aaa
  208. fb:
  209. dc.w    $9a11,$fffe,$182,$bbb
  210. fc:
  211. dc.w    $9b11,$fffe,$182,$ccc
  212. fd:
  213. dc.w    $9c11,$fffe,$182,$ddd
  214. fe:
  215. dc.w    $9d11,$fffe,$182,$eee
  216. ff:
  217. dc.w    $9e11,$fffe,$182,$fff
  218. fg:
  219. dc.w    $9f11,$fffe,$182,$111
  220. fh:
  221. dc.w    $a011,$fffe,$182,$222
  222. label5:
  223. dc.w    $a301,$fffe,$180,$000,$180,$01,$180,$02,$180,$03,$180,$04
  224. dc.w    $180,$05,$180,$06,$180,$07,$180,$08,$180,$09
  225. dc.w    $180,$0a,$180,$0b,$180,$0c,$180,$0d,$180,$0e
  226. dc.w    $180,$0f,$180,$000
  227. dc.w    $a511,$fffe
  228. dc.w    $0100,$1200,$e0,$6,$e2,$1350,$108,$2,$10a,$2,$102,$0,$104,$0
  229. l1:
  230. dc.w    $b011,$fffe,$180,$005,$0100,$0200
  231. l2:
  232. dc.w    $b111,$fffe,$180,$006
  233. l3:
  234. dc.w    $b211,$fffe,$180,$007
  235. l4:
  236. dc.w    $b311,$fffe,$180,$008
  237. l5:
  238. dc.w    $b411,$fffe,$180,$009
  239. l6:
  240. dc.w    $b511,$fffe,$180,$00a
  241. l7:
  242. dc.w    $b611,$fffe,$180,$00b
  243. l8:
  244. dc.w    $b711,$fffe,$180,$00a
  245. l9:
  246. dc.w    $b811,$fffe,$180,$009
  247. la:
  248. dc.w    $b911,$fffe,$180,$008
  249. lb:
  250. dc.w    $ba11,$fffe,$180,$007
  251. lc:
  252. dc.w    $bb11,$fffe,$180,$006
  253. ld:
  254. dc.w    $bc11,$fffe,$180,$005
  255. le:
  256. dc.w    $bd11,$fffe,$180,$000
  257. dc.w    $92,$38,$94,$d0
  258. dc.w    $102,$24,$104,24,$108,$2,$10a,$2
  259. dc.w    $100,$1200,$182
  260. hopflim:
  261. dc.w    $fff
  262. dc.w    $e0,$6,$e2,$1350
  263. dc.w    $fe11,$fffe
  264. dc.w    $ffff,$fffe
  265. endl:
  266. even
  267. size=endl-newclist
  268. even
  269. cladr:
  270. dc.l  0
  271. even
  272. text:
  273. dc.b    "DANISH DEMO DUO INTRO II !!!"
  274. dc.b    "!!!!!                         "
  275. end:
  276. hoptext:
  277. dc.b    "   INTRO II   "
  278. even
  279. flimstart:
  280. dc.w    $1,$2,$3,$4,$5,$6,$7,$8,$9,$a,$b,$c,$d,$e,$f
  281. dc.w    $1f,$2e,$3d,$4c,$5b,$6a,$79,$88,$97,$a6,$b5,$c4,$d3,$e2,$f1
  282. dc.w    $1e2,$2d3,$3c4,$4b5,$5a6,$697,$788,$879
  283. dc.w    $96a,$a5b,$b4c,$c3d,$d2e,$e1f,$f0e
  284. dc.w    $e1f,$d2e,$c3d,$b4c,$a5b,$96a,$879,$788
  285. dc.w    $697,$5a6,$4b5,$3c4,$2d3,$1e2
  286. dc.w    $f1,$e2,$d3,$c4,$b5,$a6,$97,$88,$79,$6a,$5b,$4c,$3d,$2e,$1f
  287. dc.w    $f,$e,$d,$c,$b,$a,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
  288. endflim:
  289. even
  290. flimtal:
  291. dc.l 0
  292. even
  293. sint:
  294. dc.b   197,195,193,191,189,187,185,183,181,179,178,176,174,173,171,170
  295. dc.b   169,168,167,166,165,165,164,164,164,164,164,164,164,165,165,166
  296. dc.b   167,168,169,170,171,173,174,176,178,179,181,183,185,187,189,191
  297. dc.b   193,195,197,200,202,204,206,208,210,212,214,216,217,219,221,222
  298. dc.b   224,225,226,227,228,229,230,231,231,231,231,231,231,231,230,230
  299. dc.b   229,228,227,226,225,224,222,221,219,217,216,214,212,210,208,206
  300. dc.b   204,202,200
  301. endsin:
  302. even
  303. taller:
  304. dc.l    0
  305. even
  306. get:
  307. dc.b $0
  308. even
  309. oldclist:
  310. dc.l    0
  311. gfxbase:
  312. dc.l    0
  313. gfxname:
  314. dc.b    "graphics.library",0
  315. even
  316. bitmap:
  317. blk.w    4,0
  318. plane1:
  319. blk.l    20,0
  320. rastport:
  321. dc.l    0
  322. r_bitmap:
  323. blk.l    30,0
  324. rows:
  325. dc.b    3
  326. even
  327. kurt:
  328. dc.l     0
  329. even        
  330. diskfontname:    
  331. dc.b     "diskfont.library",0
  332. even
  333. ; -------------------
  334. fontname:    
  335. dc.b     "high.font",0
  336. even
  337. textattr:
  338. dc.l    fontname
  339. dc.w    17
  340. dc.w    0
  341. ; -------------------
  342. fontlbase:
  343. dc.l    0        
  344. ; -------------------
  345. fontbase:
  346. dc.l    0
  347.  
  348.