home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / ro11.s < prev    next >
Text File  |  1995-03-17  |  8KB  |  456 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. writetext:
  44. lea    rastport,a1
  45. xcen:
  46. move.l    #270,d0
  47. ycen:
  48. move.l    #122,d1
  49. jsr    -240(a6)
  50. lea    rastport,a1
  51. hent:
  52. lea     hoptext,a0
  53. move.l    #11,d0
  54. jsr    -60(a6)
  55. labt1:
  56. move.l yctab,ycen+2
  57. labt2:
  58. move.l xctab,xcen+2
  59. add.l #4,labt1+2
  60. add.l #4,labt2+2
  61. add.l #11,hent+2
  62. cmp.l #hoptext+66,hent+2
  63. bne writetext
  64. move.l    #text,taller
  65. move.l  #flimstart,flimtal
  66. lea     sint,a6
  67. move.l    $6c,oldirq+2
  68. move.l    #newirq,$6c
  69. wait:
  70. cmpi.b #$ff,$dff006
  71. bne wait
  72. btst #6,$bfe001
  73. beq slut
  74. add.w #$111,f1+6
  75. add.w #$111,f2+6
  76. add.w #$111,f3+6
  77. add.w #$111,f4+6
  78. add.w #$111,f5+6
  79. add.w #$111,f6+6
  80. add.w #$111,f7+6
  81. add.w #$111,f8+6
  82. add.w #$111,f9+6
  83. add.w #$111,fa+6
  84. add.w #$111,fb+6
  85. add.w #$111,fc+6
  86. add.w #$111,fd+6
  87. add.w #$111,fe+6
  88. add.w #$111,ff+6
  89. add.w #$111,fg+6
  90. add.w #$111,fh+6
  91. move.b (a6)+,l1
  92. move.b l1,get
  93. add.b #$01,get
  94. move.b get,l2
  95. add.b #$01,get
  96. move.b get,l3
  97. add.b #$01,get
  98. move.b get,l4
  99. add.b #$01,get
  100. move.b get,l5
  101. add.b #$01,get
  102. move.b get,l6
  103. add.b #$01,get
  104. move.b get,l7
  105. add.b #$01,get
  106. move.b get,l8
  107. add.b #$01,get
  108. move.b get,l9
  109. add.b #$01,get
  110. move.b get,la
  111. add.b #$01,get
  112. move.b get,lb
  113. add.b #$01,get
  114. move.b get,lc
  115. add.b #$01,get
  116. move.b get,ld
  117. add.b #$01,get
  118. move.b get,le
  119. cmp.l #endsin,a6
  120. bne wait
  121. lea   sint,a6
  122. bra wait
  123. newirq:
  124. movem.l    d0-d7/a0-a6,-(sp)
  125. move.l    gfxbase,a6
  126. move.l flimtal,a4
  127. move.w (a4)+,hopflim
  128. move.l a4,flimtal
  129. cmp.l #endflim,a4
  130. bne tilb
  131. move.l #flimstart,flimtal
  132. tilb:
  133. add.w #$0002,label1
  134. add.w #$0002,label5
  135. cmp.b #$cf,label1+1
  136. beq norstreg
  137. bra wait2
  138. norstreg:
  139. move.w #$8d05,label1
  140. move.w #$a305,label5
  141. wait2:
  142. cmp.b #$01,tjek
  143. beq op
  144. add.b #$01,la1
  145. add.b #$01,la2
  146. add.b #$01,la3
  147. add.b #$01,la4
  148. add.b #$01,la5
  149. add.b #$01,la6
  150. add.w #$2a,skar
  151. cmp.b #$77,la6
  152. bne kajv
  153. move.b #$01,tjek
  154. move.b #$12,prio
  155. bra kajv
  156. op:
  157. sub.b #$01,la1
  158. sub.b #$01,la2
  159. sub.b #$01,la3
  160. sub.b #$01,la4
  161. sub.b #$01,la5
  162. sub.b #$01,la6
  163. sub.w #$2a,skar
  164. cmp.b #$42,la1
  165. bne kajv
  166. move.b #$00,tjek
  167. move.b #$02,prio
  168. kajv:
  169. lea rastport,a1
  170. move.l #4,d0
  171. clr.l d1
  172. clr.l d2
  173. move.l #100,d3
  174. move.l #336,d4
  175. move.l #116,d5
  176. jsr -396(a6)
  177. sub.b    #1,rows
  178. bne.s    exit
  179. move.b    #6,rows
  180. lea    rastport,a1
  181. move.l    #312,d0
  182. move.l    #100,d1
  183. jsr    -240(a6)
  184. lea    rastport,a1
  185. move.l    taller,a0
  186. move.l    #1,d0
  187. jsr    -60(a6)
  188. addq.l    #1,taller
  189. cmp.l    #end,taller
  190. blt.s    exit
  191. move.l    #text,taller
  192. exit:
  193. movem.l    (sp)+,d0-d7/a0-a6
  194. oldirq:
  195. jmp    $00000000
  196. slut:
  197. move.w #3,$dff096
  198. move.l 4,a6
  199. move.l cladr,a1
  200. move.l #size,d0
  201. jsr    -210(a6)
  202. jsr    -138(a6)
  203. move.l oldirq+2,$6c
  204. move.l gfxbase,a0
  205. move.l oldclist,50(a0)
  206. move.l $04,a6
  207. jsr -414(a6)
  208. move.l        gfxbase,a6    
  209. move.l        fontbase,a1    
  210. jsr        -78(a6)    
  211. move.l        $04,a6    
  212. move.l        fontlbase,a1    
  213. jsr        -414(a6)
  214. move.l        gfxbase,a1
  215. jsr        -414(a6)
  216. error:
  217. rts    
  218. newclist:
  219. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  220. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  221. dc.w    $0100,$1000,$0180,$0000,$0182,$0fff
  222. dc.w    $00e0,$0006,$00e2,$1000
  223. dc.w    $3011,$fffe,$180,$103
  224. dc.w    $3111,$fffe,$180,$204
  225. dc.w    $3211,$fffe,$180,$305
  226. dc.w    $3311,$fffe,$180,$406
  227. dc.w    $3411,$fffe,$180,$507
  228. dc.w    $3511,$fffe,$180,$608
  229. dc.w    $3611,$fffe,$180,$709
  230. dc.w    $3711,$fffe,$180,$80a
  231. dc.w    $3811,$fffe,$180,$90b
  232. dc.w    $3911,$fffe,$180,$a0c
  233. dc.w    $3a11,$fffe,$180,$b0d
  234. dc.w    $3b11,$fffe,$180,$c0e
  235. dc.w    $3c11,$fffe,$180,$d0f
  236. dc.w    $3d11,$fffe,$180,$90b
  237. dc.w    $3e11,$fffe,$180,$608
  238. dc.w    $3f11,$fffe,$180,$406
  239. dc.w    $4011,$fffe,$180,$204
  240. dc.w    $4111,$fffe,$180,$102
  241. la1:
  242. dc.w    $4211,$fffe,$180,$800,$100
  243. prio:
  244. dc.w    $0200
  245. la2:
  246. dc.w    $4311,$fffe,$180,$b00
  247. la3:
  248. dc.w    $4411,$fffe,$180,$d00
  249. la4:
  250. dc.w    $4511,$fffe,$180,$b00
  251. la5:
  252. dc.w    $4611,$fffe,$180,$800
  253. la6:
  254. dc.w    $4711,$fffe,$180,$102,$00e0,$0006,$00e2
  255. skar:
  256. dc.w    $2000,$0100,$1200
  257. dc.w    $7911,$fffe,$180,$204
  258. dc.w    $7a11,$fffe,$180,$406
  259. dc.w    $7b11,$fffe,$180,$608
  260. dc.w    $7c11,$fffe,$180,$90b
  261. dc.w    $7d11,$fffe,$180,$d0f
  262. dc.w    $7e11,$fffe,$180,$c0e
  263. dc.w    $7f11,$fffe,$180,$b0d
  264. dc.w    $8011,$fffe,$180,$a0c
  265. dc.w    $8111,$fffe,$180,$90b
  266. dc.w    $8211,$fffe,$180,$80a
  267. dc.w    $8311,$fffe,$180,$709
  268. dc.w    $8411,$fffe,$180,$608
  269. dc.w    $8511,$fffe,$180,$507
  270. dc.w    $8611,$fffe,$180,$406
  271. dc.w    $8711,$fffe,$180,$305
  272. dc.w    $8811,$fffe,$180,$204
  273. dc.w    $8911,$fffe,$180,$103
  274. dc.w    $8a11,$fffe,$180,$000
  275. dc.w    $00e0,$0006,$00e2,$0f6c 
  276. label1:
  277. dc.w    $8d01,$fffe,$180,$000,$180,$100,$180,$200,$180,$300,$180,$400
  278. dc.w    $180,$500,$180,$600,$180,$700,$180,$800,$180,$900
  279. dc.w    $180,$a00,$180,$b00,$180,$c00,$180,$d00,$180,$e00
  280. dc.w    $180,$f00,$180,$0
  281. f1:
  282. dc.w    $9011,$fffe,$182,$111
  283. f2:
  284. dc.w    $9111,$fffe,$182,$222
  285. f3:
  286. dc.w    $9211,$fffe,$182,$333
  287. f4:
  288. dc.w    $9311,$fffe,$182,$444
  289. f5:
  290. dc.w    $9411,$fffe,$182,$555
  291. f6:
  292. dc.w    $9511,$fffe,$182,$666
  293. f7:
  294. dc.w    $9611,$fffe,$182,$777
  295. f8:
  296. dc.w    $9711,$fffe,$182,$888
  297. f9:
  298. dc.w    $9811,$fffe,$182,$999
  299. fa:
  300. dc.w    $9911,$fffe,$182,$aaa
  301. fb:
  302. dc.w    $9a11,$fffe,$182,$bbb
  303. fc:
  304. dc.w    $9b11,$fffe,$182,$ccc
  305. fd:
  306. dc.w    $9c11,$fffe,$182,$ddd
  307. fe:
  308. dc.w    $9d11,$fffe,$182,$eee
  309. ff:
  310. dc.w    $9e11,$fffe,$182,$fff
  311. fg:
  312. dc.w    $9f11,$fffe,$182,$111
  313. fh:
  314. dc.w    $a011,$fffe,$182,$222
  315. label5:
  316. dc.w    $a301,$fffe,$180,$000,$180,$01,$180,$02,$180,$03,$180,$04
  317. dc.w    $180,$05,$180,$06,$180,$07,$180,$08,$180,$09
  318. dc.w    $180,$0a,$180,$0b,$180,$0c,$180,$0d,$180,$0e
  319. dc.w    $180,$0f,$180,$000
  320. dc.w    $a511,$fffe,$182
  321. hopflim:
  322. dc.w    $fff
  323. dc.w    $0100,$1200,$e0,$6,$e2,$1350,$108,$2,$10a,$2,$102,$0,$104,$0
  324. l1:
  325. dc.w    $b011,$fffe,$180,$003,$0100,$0200
  326. l2:
  327. dc.w    $b111,$fffe,$180,$004
  328. l3:
  329. dc.w    $b211,$fffe,$180,$005
  330. l4:
  331. dc.w    $b311,$fffe,$180,$006
  332. l5:
  333. dc.w    $b411,$fffe,$180,$007
  334. l6:
  335. dc.w    $b511,$fffe,$180,$008
  336. l7:
  337. dc.w    $b611,$fffe,$180,$009
  338. l8:
  339. dc.w    $b711,$fffe,$180,$008
  340. l9:
  341. dc.w    $b811,$fffe,$180,$007
  342. la:
  343. dc.w    $b911,$fffe,$180,$006
  344. lb:
  345. dc.w    $ba11,$fffe,$180,$005
  346. lc:
  347. dc.w    $bb11,$fffe,$180,$004
  348. ld:
  349. dc.w    $bc11,$fffe,$180,$003
  350. le:
  351. dc.w    $bd11,$fffe,$180,$000
  352. dc.w    $92,$38,$94,$d0
  353. dc.w    $102,$24,$104,24,$108,$2,$10a,$2
  354. dc.w    $100,$1200
  355. dc.w    $e0,$6,$e2,$1f00
  356. dc.w    $fe11,$fffe
  357. dc.w    $ffff,$fffe
  358. endl:
  359. even
  360. size=endl-newclist
  361. even
  362. cladr:
  363. dc.l  0
  364. even
  365. text:
  366. dc.b    "DANISH DEMO DUO INTRO II !!!"
  367. dc.b    "!!!!!                         "
  368. end:
  369. even
  370. hoptext:
  371. dc.b    "DANISH DEMO"
  372. dc.b    "    DUO    "
  373. dc.b    " PRESENTS  "
  374. dc.b    "EAGLES NEST"
  375. dc.b    "    AND    " 
  376. dc.b    " ARKANOID  "
  377. even
  378. xctab:
  379. dc.l    270,284,350,350,360,322
  380. even
  381. yctab:
  382. dc.l    143,164,191,213,235,270
  383. even
  384. flimstart:
  385. dc.w    $1,$2,$3,$4,$5,$6,$7,$8,$9,$a,$b,$c,$d,$e,$f
  386. dc.w    $1f,$2e,$3d,$4c,$5b,$6a,$79,$88,$97,$a6,$b5,$c4,$d3,$e2,$f1
  387. dc.w    $1e2,$2d3,$3c4,$4b5,$5a6,$697,$788,$879
  388. dc.w    $96a,$a5b,$b4c,$c3d,$d2e,$e1f,$f0e
  389. dc.w    $e1f,$d2e,$c3d,$b4c,$a5b,$96a,$879,$788
  390. dc.w    $697,$5a6,$4b5,$3c4,$2d3,$1e2
  391. dc.w    $f1,$e2,$d3,$c4,$b5,$a6,$97,$88,$79,$6a,$5b,$4c,$3d,$2e,$1f
  392. dc.w    $f,$e,$d,$c,$b,$a,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
  393. endflim:
  394. even
  395. flimtal:
  396. dc.l 0
  397. even
  398. sint:
  399. dc.b   197,195,193,191,189,187,185,183,181,179,178,176,174,173,171,170
  400. dc.b   169,168,167,166,165,165,164,164,164,164,164,164,164,165,165,166
  401. dc.b   167,168,169,170,171,173,174,176,178,179,181,183,185,187,189,191
  402. dc.b   193,195,197,200,202,204,206,208,210,212,214,216,217,219,221,222
  403. dc.b   224,225,226,227,228,229,230,231,231,231,231,231,231,231,230,230
  404. dc.b   229,228,227,226,225,224,222,221,219,217,216,214,212,210,208,206
  405. dc.b   204,202,200
  406. endsin:
  407. even
  408. taller:
  409. dc.l    0
  410. even
  411. get:
  412. dc.b $0
  413. even
  414. tjek:
  415. dc.b $00
  416. even
  417. oldclist:
  418. dc.l    0
  419. gfxbase:
  420. dc.l    0
  421. gfxname:
  422. dc.b    "graphics.library",0
  423. even
  424. bitmap:
  425. blk.w    4,0
  426. plane1:
  427. blk.l    20,0
  428. rastport:
  429. dc.l    0
  430. r_bitmap:
  431. blk.l    30,0
  432. rows:
  433. dc.b    3
  434. even
  435. kurt:
  436. dc.l     0
  437. even        
  438. diskfontname:    
  439. dc.b     "diskfont.library",0
  440. even
  441. ; -------------------
  442. fontname:    
  443. dc.b     "high.font",0
  444. even
  445. textattr:
  446. dc.l    fontname
  447. dc.w    17
  448. dc.w    0
  449. ; -------------------
  450. fontlbase:
  451. dc.l    0        
  452. ; -------------------
  453. fontbase:
  454. dc.l    0
  455.  
  456.