home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scroool.s < prev    next >
Text File  |  1995-03-17  |  12KB  |  410 lines
  1. org $35c00
  2. load $35c00
  3. start:
  4. move.l        #$40000,$dff0a0    
  5. move.w        #$d4da,$dff0a4 
  6. move.w        #280,$dff0a6    
  7. move.w        #64,$dff0a8    
  8. move.l        #$40000,$dff0b0    
  9. move.w        #$d4da,$dff0b4 
  10. move.w        #280,$dff0b6    
  11. move.w        #64,$dff0b8    
  12. move.w        #$83a3,$dff096    
  13. move.l    $04,a6
  14. lea    gfxname,a1
  15. jsr    -408(a6)
  16. move.l    d0,gfxbase
  17. move.l    d0,a0
  18. move.l    50(a0),oldclist
  19. move.l    #newclist,50(a0)
  20. move.l    gfxbase,a6
  21. lea    bitmap,a0
  22. move.l    #$01,d0
  23. move.l    #336,d1
  24. move.l    #200,d2
  25. jsr    -390(a6)
  26. move.l    #$38000,plane1
  27. lea    rastport,a1
  28. jsr    -198(a6)
  29. move.l    #bitmap,r_bitmap
  30. lea    rastport,a1
  31. jsr    -48(a6)
  32. move.l    #text,taller
  33. move.l    #textx,tallerx
  34. move.l    $6c,oldirq+2
  35. move.l    #newirq,$6c
  36. reset:
  37. move.l #$33500,a1
  38. wait:
  39. cmp.b #0,$dff006
  40. bne wait
  41. move.l (a1)+,ddd3
  42. move.l 20(a1),ddd2
  43. move.l 40(a1),ddd1
  44. move.l 60(a1),f
  45. move.l 80(a1),o
  46. move.l 100(a1),t
  47. move.l 120(a1),e
  48. move.l 140(a1),p
  49. cmp.l #$35bd8,a1
  50. beq reset
  51. l1:
  52. cmp.b #$ff,$dff006
  53. bne l1 
  54. btst    #6,$bfe001
  55. bne    wait
  56. jmp     slut
  57. newirq:
  58. movem.l    d0-d7/a0-a6,-(sp)
  59. move.l    gfxbase,a6
  60. lea    rastport,a1
  61. clr.l    d0
  62. move.l    #1,d1
  63. clr.l    d2
  64. move.l    #1,d3
  65. move.l    #336,d4
  66. move.l    #95,d5
  67. jsr    -396(a6)
  68. sub.b    #1,rows
  69. bne.s    exit
  70. move.b    #24,rows
  71. lea    rastport,a1
  72. move.l    #8,d0
  73. move.l    #95,d1
  74. jsr    -240(a6)
  75. lea    rastport,a1
  76. move.l    taller,a0
  77. move.l    #38,d0
  78. jsr    -60(a6)
  79. add.l #38,taller
  80. cmp.l    #textx,taller
  81. blt.s    exit
  82. move.l    #text,taller
  83. exit:
  84. lea    rastport,a1
  85. move.l    #2,d0
  86. clr.l    d1
  87. clr.l    d2
  88. move.l    #190,d3
  89. move.l    #336,d4
  90. move.l    #204,d5
  91. jsr    -396(a6)
  92. sub.b    #1,rowsx
  93. bne.s    exit1
  94. move.b    #4,rowsx
  95. lea    rastport,a1
  96. move.l    #320,d0
  97. move.l    #198,d1
  98. jsr    -240(a6)
  99. lea    rastport,a1
  100. move.l    tallerx,a0
  101. move.l    #1,d0
  102. jsr    -60(a6)
  103. addq.l #1,tallerx
  104. cmp.l    #endx,tallerx
  105. blt.s    exit1
  106. move.l #textx,tallerx
  107. exit1:
  108. movem.l    (sp)+,d0-d7/a0-a6
  109. oldirq:
  110. jmp    $00000000
  111. slut:
  112. move.w #3,$dff096
  113. move.l oldirq+2,$6c
  114. move.l gfxbase,a0
  115. move.l oldclist,50(a0)
  116. move.l $04,a6
  117. jmp -414(a6)
  118. rts
  119. newclist:
  120. dc.w    $8e,$1c91,$90,$41ff,$92,$0038,$94,$00d0,$96,$83c0
  121. dc.w    $102,$0,$104,$24,$108,$2,$010a,$0
  122. dc.w    $100,$1200,$180,$0,$182,$fff
  123. dc.w    $120,$3,$122,$7000
  124. dc.w    $124,$3,$126,$7048
  125. dc.w    $128,$3,$12a,$7090
  126. dc.w    $12c,$3,$12e,$70d8
  127. dc.w    $130,$3,$132,$7120
  128. dc.w    $134,$3,$136,$7168
  129. dc.w    $138,$3,$13a,$71b0
  130. dc.w    $13c,$3,$13e,$71f8
  131. dc.w    $00e0,$3,$00e2,$8000
  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,$0,$182,$fff,$184,$ddd
  180. dc.w    $186,$bbb,$188,$aaa,$18a,$888
  181. dc.w    $18c,$666,$18e,$444,$190,$0f0
  182. dc.w    $192,$0e0,$194,$0c0,$196,$0b0
  183. dc.w    $198,$0a0,$19a,$080,$19c,$070
  184. dc.w    $19e,$050
  185. dc.w    $1a2,$7,$1a4,$5,$1a6,$c
  186. dc.w    $1aa,$7,$1ac,$5,$1ae,$c
  187. dc.w    $1b2,$7,$1b4,$5,$1b6,$c
  188. dc.w    $1ba,$7,$1bc,$5,$1be,$c
  189. ;
  190. dc.w    $8401,$fffe
  191. dc.w    $100,$4200
  192. dc.w    $00e0,$3,$00e2,$0000
  193. dc.w    $00e4,$3,$00e6,$0d00
  194. dc.w    $00e8,$3,$00ea,$1a00
  195. dc.w    $00ec,$3,$00ee,$2700
  196. dc.w    $108,$0,$d111,$fffe,$100,$0200
  197. dc.w    $d311,$fffe,$180,$200
  198. dc.w    $d411,$fffe,$180,$300
  199. dc.w    $d511,$fffe,$180,$400
  200. dc.w    $d611,$fffe,$180,$500
  201. dc.w    $d711,$fffe,$180,$600
  202. dc.w    $d811,$fffe,$180,$700
  203. dc.w    $d911,$fffe,$180,$800
  204. dc.w    $da11,$fffe,$180,$900,$100,$1200
  205. dc.w    $00e0,$3,$00e2,$9f2c,$108,$2,$10a,$2
  206. dc.w    $db11,$fffe,$180,$a00,$182,$7
  207. dc.w    $e411,$fffe,$180,$900
  208. dc.w    $e511,$fffe,$180,$800
  209. dc.w    $e611,$fffe,$180,$700
  210. dc.w    $e711,$fffe,$180,$600
  211. dc.w    $e811,$fffe,$180,$500
  212. dc.w    $e911,$fffe,$180,$400
  213. dc.w    $ea11,$fffe,$180,$300
  214. dc.w    $eb11,$fffe,$180,$000
  215. dc.w    $ffff,$fffe
  216.  
  217. text:
  218. dc.b "       THE DANISH DEMO DUO 1987       "
  219. dc.b "         ARE PROUD TO PRESENT         "       
  220. dc.b "      OUR FIRST REAL AMIGA DEMO.      "       
  221. dc.b "--------------------------------------"   
  222. dc.b " THIS DEMO IS ONLY THE FIRST IN A ROW "       
  223. dc.b "--------------------------------------"
  224. dc.b "  HELLO FREAK I'M TALKING IN SCROLL   "
  225. dc.b "             UNDER THIS.              "
  226. dc.b "THIS IS THE HELLO SCROLL IN THIS DEMO."
  227. dc.b "--------------------------------------"
  228. dc.b "       THE HELLOS MUST GO TO :        "
  229. dc.b "REFLEX, TBC, SCC, WCC, ACE, ALPHA, FP," 
  230. dc.b "JUGDES, GI-JOE, USA-TEAM, YOMMY, TFG, "
  231. dc.b "1001 CREW, FCG, SYSTEM, DS.C, JAZZCAT,"
  232. dc.b "  TEK, TRIANON, CHOROID, SKUZZ, MIKE, "
  233. dc.b "MIGGES, TSS, WIZAX, NSC, CCT, RDI, WOM"
  234. dc.b "TEAM FLEXIBLE, GOFFY, ELECTRO, TG 1541"
  235. dc.b " STARLIGHT STRIKERS, YETI FACTORIES,  "
  236. dc.b "THE SQUONK SOCITY, NASA, TST, TPC, YIP"
  237. dc.b " THE DAKNESS, CONAN, FBR, NEW BENCOR, "
  238. dc.b "THE ARCADE TEAM, TAT, IMPACT, TSW, TFD"
  239. dc.b "SPD AND TRIANGLE......................"
  240. dc.b "                                      "
  241. dc.b "  AND NOW FOR THE SPECIAL GREETINGS.  "
  242. dc.b "      SPECIAL AMIGA GREETINGS TO:     "
  243. dc.b "                                      "
  244. dc.b "SODAN (YOU ARE GREAT AND DONIG GREAT) "
  245. dc.b "MAGICIAN 42 (YOU TOO, YOU ARE GREAT)  "
  246. dc.b "TRAZER (YOUR DEMO WAS OK, MAKE A NEW!)"
  247. dc.b "REFLEX (BB YOU ARE GREAT ALSO WITH US)"
  248. dc.b "DEXION (A GOOD FREIND, BUT NO WORK)   "
  249. dc.b "ANTITRAX (I'LL JOIN YOUR ANTI ACF. )  "
  250. dc.b "BAMIGA S. ONE (HEY TO LORD BLITTER.)  "
  251. dc.b "KENT TEAM (YOU AND BSO. AND GREAT)    "
  252. dc.b "THE CHAMPS (YOU INTRO ARE GOOD)       "
  253. dc.b "HQC (YOU ARE GREAT, BUT SEND MY DISKS)"
  254. dc.b "--------------------------------------" 
  255. dc.b "                                      "
  256. dc.b " THIS IS ALL FOLKS THE DDD IS SIGNING "
  257. dc.b "               OFFF !                 "
  258. dc.b "           BYE FROM PET !             "
  259. dc.b "                                      "
  260. dc.b "                                      "
  261. dc.b "                                      "
  262. dc.b "                                      "
  263. textx: 
  264. dc.b "                                                    "
  265. dc.b "THE DANISH DEMO DUO 1987 ARE PET & TOX              "
  266. dc.b " THE BEST THING WITH THIS DEMO IS THAT WE ARE AMONG "       
  267. dc.b "FEW IN DENMARK WHO KNOWS HOW TO PROGRAM 68000 M.CODE"       
  268. dc.b " IN A GOOD WAY.                                     "       
  269. dc.b "HEY AMIGA FREAK, DON'T YOU THINK THIS DEMO IS GREAT "       
  270. dc.b "IF YOU WANTS TO SWAP DEMOS & ROUTINES WITH US THEN W"
  271. dc.b "AIT !                                    GREETINGS I"
  272. dc.b "N THIS SCROLL MUST GO TO : HQC, TOM(on the ST), PCT,"
  273. dc.b " 2000 AD, DEXION, C64CG, LCC and ANCOR              "
  274. dc.b "THE SPECIAL GREETS ARE TO REFLEX CRACKING SQUAD (BAD"
  275. dc.b " BOY)                           THE NORMAL HELLOS WI"
  276. dc.b "LL BE IN THE SCROLL ABOVE !                HEY FREAK"
  277. dc.b " I'M WORKING ON A NEW DEMO ON THIS MACHINE IT'S CALL"
  278. dc.b "ED:'TEST DRIVER INTRO' AND THERE WILL BE SOME NICE R"
  279. dc.b "OUTINES IN THE DEMO/INTRO !........... THIS DEMO ARE"
  280. dc.b " A CREATION OF :   GRAPHICS BY PET, SPRITES BY PET, "
  281. dc.b "MUZAK RIPP FROM BALL RAIDER BY PET, TEXT WRITING AND"
  282. dc.b " PACKING BY PET AND THE PROGRAMMING WERE ALSO DONE B"
  283. dc.b "Y PET.               WATCH OUT FOR OUR OTHER DEMOS A"
  284. dc.b "LSO ON THE GOOD OLD 64'ER AND YOU BETTER LOOK FORWAR"
  285. dc.b "D FOR OUR GAMES ON BOTH THIS MACHINE AND THE 64'ER. "
  286. dc.b " YOU JUST WAIT AND SEE WHEN TOX ALSO GOT AN AMIGA ! "
  287. dc.b " BYE BYE AND SEE YOU AROUND ! >>> PET AND TOX, THE D"
  288. dc.b "ANISH DEMO DUO 1987 IN DENMARK <<<                  "
  289. dc.b "CONTACT ME : PETER OLSEN             MØLLEAGER 14   "
  290. dc.b "             2640 HEDEHUSENE         DENMARK        "
  291. dc.b "          FOR BUYING INTROS AND SWAPPING DEMOS !    "
  292. endx:
  293. even
  294. taller:
  295. dc.l    0
  296. tallerx:
  297. dc.l    0
  298. oldclist:
  299. dc.l    0
  300. gfxbase:
  301. dc.l    0
  302. gfxname:
  303. dc.b    "graphics.library",0
  304. even
  305. bitmap:
  306. blk.w    4,0
  307. plane1:
  308. blk.l    20,0
  309. rastport:
  310. dc.l    0
  311. r_bitmap:
  312. blk.l    30,0
  313. rows:
  314. dc.b    2
  315. even
  316. rowsx:
  317. dc.b    2
  318. even
  319. slutprut:
  320. org $37000
  321. load $37000
  322. p:
  323. dc.w $c040,$d100
  324. dc.w $00020000,$0002FFFF,$27FFE,$00028001
  325. dc.w $27FFE,$0002BFFD,$27FFE,$00028005
  326. dc.w $0002000E,$0002FFF5,$0002000E,$0020015
  327. dc.w $0002000E,$0002FBF5,$271FE,$00028A05
  328. dc.w $271FE,$0002AAFD,$271FE,$0002AA01,$27000
  329. dc.w $0002ABFF,$27000,$0002A800
  330. dc.w $27000,$0002A800,$27000,$0002A800,$27000
  331. dc.w $00028800,$00020000,$0002F800
  332. dc.w $0000,$0000
  333. e:
  334. dc.w $c050,$d100
  335. dc.w $00020000,$0002FFFF,$27FFE,$00028001
  336. dc.w $27FFE,$0002BFFD,$27FFE,$00028001
  337. dc.w $00020000,$0002FFFF,$00020000,$00020000
  338. dc.w $00020000,$0002FBF8,$271F0,$00028A08
  339. dc.w $271F0,$0002AAE8,$271F0,$0002AA08
  340. dc.w $27000,$0002ABF8,$27000,$0002AFFF
  341. dc.w $27FFE,$0002A001,$27FFE,$0002BFFD
  342. dc.w $27FFE,$00028001,$00020000,$0002FFFF
  343. dc.w $0000,$0000
  344. t:
  345. dc.w $c060,$d100
  346. dc.w $00020000,$0002FFFF,$27FFE,$00028001
  347. dc.w $27FFE,$0002BFFD,$27FFE,$00028001
  348. dc.w $00020000,$0002FFFF,$00020000
  349. dc.w $00020000,$00020000,$21F00,$020E00,$21100
  350. dc.w $020E00,$21500,$020E00,$21500
  351. dc.w $020F00,$21680,$020F80,$21278
  352. dc.w $020FF0,$21108,$0207F0,$0209F8
  353. dc.w $0203F0,$020408,$00020000,$0203F8
  354. dc.w $0000,$0000
  355. o:
  356. dc.w $c070,$d100
  357. dc.w $00020000,$00020000,$00020000,$020FE0
  358. dc.w $020FE0,$21010,$21FF0,$22FE8
  359. dc.w $23FF8,$25834,$23838,$257D4,$23838
  360. dc.w $25454,$23838,$25454
  361. dc.w $23838,$25454,$23838,$25454
  362. dc.w $23838,$257D4,$23FF8,$25834
  363. dc.w $21FF0,$22FE8,$020FE0,$21010
  364. dc.w $00020000,$020FE0,$00020000,$00020000
  365. dc.w $0000,$0000
  366. f:
  367. dc.w $c080,$d100
  368. dc.w $00020000,$0203FC,$0203F8,$020404
  369. dc.w $0207F8,$020BF4,$020FF8,$21404
  370. dc.w $020E00,$215FC,$020E00,$21500
  371. dc.w $020E00,$21500,$020E00,$215E0
  372. dc.w $020FC0,$21420,$020FC0,$217A0
  373. dc.w $020FC0,$21420,$020E00,$215E0
  374. dc.w $020E00,$21500,$020E00,$21500
  375. dc.w $020E00,$21100,$00020000,$21F00
  376. dc.w $0000,$0000
  377. ddd1:
  378. dc.w $c090,$d100
  379. dc.w $00020000,$0002FFE0,$27FE0,$00028018
  380. dc.w $27FF8,$0002BFE4,$27FFC,$0002A01A
  381. dc.w $2701C,$0002AFEA,$2700E,$0002A815
  382. dc.w $2700E,$0002A815,$2700E,$0002A815
  383. dc.w $2700E,$0002A815,$2700E,$0002A815
  384. dc.w $2700E,$0002A815,$2701C,$0002AFEA
  385. dc.w $27FFC,$0002A01A,$27FF8,$0002BFE4
  386. dc.w $27FE0,$00028018,$00020000,$0002FFE0
  387. dc.w $0000,$0000
  388. ddd2:
  389. dc.w $c0a0,$d100
  390. dc.w $00020000,$0002FFE0,$27FE0,$00028018
  391. dc.w $27FF8,$0002BFE4,$27FFC,$0002A01A
  392. dc.w $2701C,$0002AFEA,$2700E,$0002A815
  393. dc.w $2700E,$0002A815,$2700E,$0002A815
  394. dc.w $2700E,$0002A815,$2700E,$0002A815
  395. dc.w $2700E,$0002A815,$2701C,$0002AFEA
  396. dc.w $27FFC,$0002A01A,$27FF8,$0002BFE4
  397. dc.w $27FE0,$00028018,$00020000,$0002FFE0
  398. dc.w $0000,$0000
  399. ddd3:
  400. dc.w $c0b0,$d100
  401. dc.w $00020000,$0002FFE0,$27FE0,$00028018
  402. dc.w $27FF8,$0002BFE4,$27FFC,$0002A01A
  403. dc.w $2701C,$0002AFEA,$2700E,$0002A815
  404. dc.w $2700E,$0002A815,$2700E,$0002A815
  405. dc.w $2700E,$0002A815,$2700E,$0002A815
  406. dc.w $2700E,$0002A815,$2701C,$0002AFEA
  407. dc.w $27FFC,$0002A01A,$27FF8,$0002BFE4
  408. dc.w $27FE0,$00028018,$00020000,$0002FFE0
  409. dc.w $0000,$0000
  410.