home *** CD-ROM | disk | FTP | other *** search
/ Atari ST Collection - 1997 CD-R of Menu Disks / ATARI_ST.ISO / menus / medway / med_099b.msa / JAMBALA.S < prev    next >
Encoding:
Text File  |  1987-04-22  |  921 b   |  43 lines
  1. ; This source code and music ripping by Zippy (TMB)
  2. ; This source plays back the Jambala Sample/Soundchip music
  3. ; Change the 'moveq #2,d0' to 'moveq #1,d0' for the other tune !!
  4. ;
  5. ; Zippy
  6. ;
  7.     opt s-
  8. super    clr.l -(sp)
  9.     move.w #$20,-(sp)
  10.     trap #1
  11.     lea 6(sp),sp
  12.     move.l d0,oldstk
  13. click    bclr #0,$484.w
  14. reloc    move.l #(music+$1af0),(music+$1e)
  15.     move.l #(music+$34e0),(music+$a4)
  16.     move.l #(music+$8b0),(music+$202)
  17.     move.l #(music+$8b0),(music+$87c)
  18.     move.l $70.w,oldint
  19. num    moveq #2,d0
  20. init    bsr music    
  21. ints    bsr (music+8)
  22.     move.l #int,$70.w
  23. wait    move.w #7,-(sp)
  24.     trap #1
  25.     lea 2(sp),sp
  26. off    bsr (music+12)
  27.     move.l oldint,$70.w
  28.     bset #0,$484
  29. user    move.l oldstk,-(sp)
  30.     move.w #$20,-(sp)
  31.     trap #1
  32.     addq.l #6,sp  
  33. term    clr.w -(sp)
  34.     trap #1
  35. int    movem.l d0-d7/a0-a6,-(sp)
  36.     bsr (music+4)
  37.     movem.l (sp)+,d0-d7/a0-a6
  38.     move.l oldint,-(sp)
  39.     rts
  40. oldstk    dc.l 0
  41. oldint    dc.l 0
  42. music    incbin "jambala.mus"
  43.