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