home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / DEMOS / CHIP_MSX / ALEX_HER.ARJ / alex_her / TWIST.S < prev   
Text File  |  1997-08-27  |  544b  |  40 lines
  1. ;
  2. ; Music From The 'Twist Demo'
  3. ;
  4. ; #0 = Bomz
  5. ; #1 - #4 = Guardian Moons
  6. ; #5 - #8 = Turbo 
  7. ;
  8.     clr.l -(a7)
  9.     move.w #$20,-(a7)
  10.     trap #1
  11.     add.l #6,a7
  12.  
  13.     move.l    #0,d0    ;2 tunes (0-1)
  14.     jsr     play
  15. wait    move.w #7,-(sp)
  16.     trap #1
  17.     lea 2(sp),sp
  18.     jsr     stop
  19.  
  20.     move.w #$4c,-(a7)
  21.     trap #1
  22.  
  23. play    cmp.l    #9,d0
  24.     bge    rt
  25.     clr.b    $484
  26.     JSR data+46
  27.     move.l #data+$c,$4d6
  28. rt    rts
  29.  
  30. stop    clr.l $4d6
  31.     move.w #2,d0
  32.     move.l #8,d1
  33. stop1    move.b d1,$ff8800
  34.     clr.b $ff8802
  35.     addq.l #1,d1
  36.     dbf d0,stop1
  37.     rts
  38.  
  39. data    incbin "\aherbert\twist.dat"
  40.