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