home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / sound.s < prev    next >
Text File  |  1995-03-17  |  473b  |  36 lines
  1. tst.b $bfe001
  2. bpl run
  3. bmi still
  4. ctlw=$dff096
  5. adkon=$dff09e
  6. c0thi=$dff0a0
  7. c0tlo=c0thi+2
  8. c0tl=c0thi+4
  9. c0per=c0thi+6
  10. c0vol=c0thi+8
  11.  
  12. run:
  13. move.l #table,c0thi+16
  14. move #8,c0tl+16
  15. move #300,c0per
  16. move #40,c0vol+16
  17.  
  18. move.l #table2,c0thi
  19. move #,c0tl
  20. move #60000,c0per
  21. move #30,c0vol
  22.  
  23. move #$8010,adkon
  24. move #$8203,ctlw
  25. rts
  26.  
  27. still:
  28. move #$10,adkon
  29. move #3,ctlw
  30. rts
  31. table:
  32. dc.b -40,-70,-90,-100,-90,-70,-40,0
  33. dc.b 40,70,90,100,90,70,40,0
  34. table2:
  35. dc.w 400,430,470,500,530,500,470,430
  36.