home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / twosounds.s < prev    next >
Text File  |  1995-03-17  |  7KB  |  267 lines
  1. org $40000
  2. load $40000
  3. s:
  4. move.l    #$43300,$dff0a0    
  5. move.l  #$43300,$dff0b0
  6. move.w    #$4000,$dff0a4
  7. move.w  #$4000,$dff0b4 
  8. move.w    #400,$dff0a6    
  9. move.w  #400,$dff0b6
  10. move.w    #64,$dff0a8
  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    #1,d0
  23. move.l    #336,d1
  24. move.l    #256,d2
  25. jsr    -390(a6)
  26. move.l    #$4c800,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    $6c,oldirq+2
  34. move.l    #newirq,$6c
  35. wait:
  36. move.l #$41200,a0
  37. move.w $dff012,d1
  38. l1: cmpi.b #$ff,$dff006
  39. bne l1
  40. move.l (a0)+,$41000
  41. move.l 20(a0),$41048
  42. move.l 40(a0),$41090
  43. move.l 60(a0),$410d8
  44. move.l 80(a0),$41120
  45. move.l 100(a0),$41168
  46. cmp.w $dff012,d1
  47. bne end1
  48. cmpi.l #$432f8,a0
  49. beq wait 
  50. l2:cmpi.b #$00,$dff006
  51. bne l2
  52. jmp l1
  53. end1:
  54. move.l    #$50000,$dff0a0
  55. move.l  #$50000,$dff0b0
  56. move.w  #$3A00,$dff0a4
  57. move.w  #$3a00,$dff0b4
  58. move.w  #250,$dff0a6
  59. move.w  #250,$dff0b6
  60. andi.b #64,$bfe001
  61. beq sou2
  62. jmp l2 
  63. sou2:
  64. move.l    #$43300,$dff0a0    
  65. move.l  #$43300,$dff0b0
  66. move.w    #$4000,$dff0a4
  67. move.w  #$4000,$dff0b4 
  68. move.w    #400,$dff0a6    
  69. move.w  #400,$dff0b6
  70. andi.b #64,$bfe001
  71. bne l2
  72. jmp slut
  73. newirq:
  74. movem.l    d0-d7/a0-a6,-(sp)
  75. move.l    gfxbase,a6
  76. lea rastport,a1
  77. move.l #2,d0
  78. move.l #0,d1
  79. move.l #0,d2
  80. move.l #1,d3 
  81. move.l #336,d4
  82. move.l #20,d5
  83. jsr -396(a6)
  84. sub.b    #1,rows
  85. bne.s    exit
  86. move.b    #4,rows
  87. lea    rastport,a1
  88. move.l    #320,d0
  89. move.l    #16,d1
  90. jsr    -240(a6)
  91. lea    rastport,a1
  92. move.l    taller,a0
  93. move.l    #1,d0
  94. jsr    -60(a6)
  95. addq.l    #1,taller
  96. cmp.l    #end,taller
  97. blt.s    exit
  98. move.l    #text,taller
  99. exit:
  100. movem.l    (sp)+,d0-d7/a0-a6
  101. oldirq:
  102. jmp    $00000000
  103. slut:
  104. move.w #3,$dff096
  105. move.l oldirq+2,$6c
  106. move.l gfxbase,a0
  107. move.l oldclist,50(a0)
  108. move.l $04,a6
  109. jmp -414(a6)
  110. newclist:
  111. dc.w    $008e,$2c91,$0090,$41f0,$0092,$0038,$0094,$00d0
  112. dc.w    $0120,$0004,$0122,$1000,$0124,$0004,$0126,$1048
  113. dc.w    $0128,$0004,$012a,$1090,$012c,$0004,$012e,$10d8
  114. dc.w    $0130,$0004,$0132,$1120,$0134,$0004,$0136,$1168
  115. dc.w    $0102,$0000,$0104,$0024,$0108,$0002,$010a,$0002
  116. dc.w    $0100,$1200,$0180,$0000
  117. dc.w    $00e0,$0004,$00e2,$c800
  118. dc.w    $2a11,$fffe,$0180,$000    
  119. dc.w    $2b11,$fffe,$0180,$111
  120. dc.w    $2c11,$fffe,$0180,$222
  121. dc.w    $2d11,$fffe,$0180,$333
  122. dc.w    $2e11,$fffe,$0180,$444
  123. dc.w    $2f11,$fffe,$0180,$555
  124. dc.w    $3011,$fffe,$0180,$666
  125. dc.w    $3111,$fffe,$0180,$777
  126. dc.w    $3211,$fffe,$0180,$888
  127. dc.w    $3311,$fffe,$0180,$999
  128. dc.w    $3411,$fffe,$0180,$aaa
  129. dc.w    $3511,$fffe,$0180,$bbb
  130. dc.w    $3611,$fffe,$0182,$888,$0180,$ccc
  131. dc.w    $3711,$fffe,$0182,$666,$0180,$ddd
  132. dc.w    $3811,$fffe,$0182,$444,$0180,$eee
  133. dc.w    $3911,$fffe,$0182,$222,$0180,$fff
  134. dc.w    $3a11,$fffe,$0182,$444,$0180,$ddd
  135. dc.w    $3b11,$fffe,$0182,$666,$0180,$ccc
  136. dc.w    $3c11,$fffe,$0182,$888,$0180,$bbb
  137. dc.w    $3d11,$fffe,$0180,$aaa
  138. dc.w    $3e11,$fffe,$0180,$999
  139. dc.w    $3f11,$fffe,$0180,$888
  140. dc.w    $4011,$fffe,$0180,$777
  141. dc.w    $4111,$fffe,$0180,$666
  142. dc.w    $4211,$fffe,$0180,$555
  143. dc.w    $4311,$fffe,$0180,$444
  144. dc.w    $4411,$fffe,$0180,$333
  145. dc.w    $4511,$fffe,$0180,$222
  146. dc.w    $4611,$fffe,$0180,$111
  147. dc.w    $4711,$fffe,$0180,$000
  148. dc.w    $4a11,$fffe,$0180,$fff
  149. dc.w    $4b11,$fffe,$0180,$000
  150. dc.w    $4c1f,$fffe,$0180,$000
  151. c1:dc.w    $01a2,$0777,$01a4,$0999,$01a6,$0555
  152. c2:dc.w    $01aa,$0777,$01ac,$0999,$01ae,$0555
  153. c3:dc.w    $01b2,$0777,$01b4,$0999,$01b6,$0555   
  154. dc.w    $0182,$0
  155. dc.w    $ffff,$fffe
  156. text:
  157. dc.b    " HELLO FREAK, this is pet from the DANISH DEMO DUO speaking."
  158. dc.b    " I'm lucky to among the few people from DENMARK there know "
  159. dc.b    "how to program a good 68000 Machine Code program ! And now "
  160. dc.b    "you are the lucky person to look at the first prerelease of"
  161. dc.b    " my first demo/intro. In a few days I and Bad Boy (from REFL"
  162. dc.b    "EX) will be able to present our first co-operation demo...."
  163. dc.b    "   AND now I'll send some greetings to my contacts:  Hello "
  164. dc.b    "to : HQC (you are doing great), 2000 AD (BLITZ please send "
  165. dc.b    "something to us), C64CG (hope you will send something soon)"
  166. dc.b    ", LCC, ANCOR...... and mega greetings to my friends BADBOY "
  167. dc.b    " and Tiger (of dexion).............. HELLO FREAK, this is p"
  168. dc.b    "et    write me if you will swap demos/routines..... games a"
  169. dc.b    "re not wanted !!           .. PETER OLSEN, M0LLEAGER 14, 26"
  170. dc.b    "40 HEDEHUSENE, DENMARK.... or call on (02) 16 36 72 (in DK)"
  171. dc.b    " SPRITES BY TOX OF DDD, THE REST BY ME (PET) (not the digi)"
  172. dc.b    " - RIGHT BUTTON -                             "
  173. end:
  174. even
  175. taller:
  176. dc.l    0
  177. oldclist:
  178. dc.l    0
  179. gfxbase:
  180. dc.l    0
  181. gfxname:
  182. dc.b    "graphics.library",0
  183. even
  184. bitmap:
  185. blk.w    4,0
  186. plane1:
  187. blk.l    20,0
  188. rastport:
  189. dc.l    0
  190. r_bitmap:
  191. blk.l    30,0
  192. rows:
  193. dc.b    3
  194. even
  195. slu:
  196. org $41000
  197. load $41000
  198. Spr4a:
  199. da4:
  200. dc.w $70a0,$8000
  201. dc.w $0002FBF8,$0002FBF8
  202. dc.w $0002FBFC,$00028A04,$0002DB06,$0002AAFA
  203. dc.w $0002DBFF,$0002AA01,$0002DBFF,$0002ABFF
  204. dc.w $0002D800,$0002A800,$0002D81F,$0002A81F
  205. dc.w $0002D81F,$0002A811,$0002D81B,$0002A815
  206. dc.w $0002D81F,$0002A81F,$0002D800,$0002A800
  207. dc.w $0002DBFF,$0002ABFF,$0002DBFF,$0002AA01
  208. dc.w $0002DB06,$0002AAFA,$0002FBFC,$00028A04
  209. dc.w $0002FBF8,$0002FBF8
  210. dc.w $0000,$0000
  211. spr4b:
  212. dc.w $7090,$8100
  213. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  214. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  215. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  216. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  217. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  218. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  219. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  220. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  221. dc.w $0000,$0000
  222. spr4:
  223. dc.w $7080,$8100
  224. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  225. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  226. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  227. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  228. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  229. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  230. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  231. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  232. dc.w $0000,$0000
  233. Spr3:
  234. dc.w $7060,$8100
  235. dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
  236. dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
  237. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  238. dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
  239. dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
  240. dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
  241. dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
  242. dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
  243. dc.w $0000,$0000
  244. spr2:
  245. dc.w $7050,$8100
  246. dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
  247. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  248. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  249. dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
  250. dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
  251. dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
  252. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  253. dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
  254. dc.w $0000,$0000
  255. spr1:
  256. dc.w $7040,$8100
  257. dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
  258. dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
  259. dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
  260. dc.w $000207C0,$000207C0,$000207C0,$00020440
  261. dc.w $000206C0,$00020540,$000206C0,$00020540
  262. dc.w $000206C0,$00020540,$000206C0,$00020540
  263. dc.w $000206C0,$00020540,$000206C0,$00020540
  264. dc.w $000207C0,$00020440,$000207C0,$000207C0
  265. dc.w $0000,$0000
  266. slutning:
  267.