home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / DEMOS / CHIP_MSX / CRISPY.ARJ / crispy / COMMANDO.S < prev    next >
Text File  |  1997-08-27  |  424b  |  33 lines
  1. ;
  2. ; Commando main theme - Chrispy Noodle 
  3. ;
  4.     clr.l -(a7)
  5.     move.w #$20,-(a7)
  6.     trap #1
  7.     add.l #6,a7
  8.  
  9.     jsr play
  10. wait    move.w #7,-(sp)
  11.     trap #1
  12.     lea 2(sp),sp
  13.     jsr stop
  14.  
  15.     move.w #$4c,-(a7)
  16.     trap #1
  17.  
  18. play    bsr stop
  19.     jsr data
  20.     move.l #data+$a8,$4d6
  21. rt    rts
  22.  
  23. stop    clr.l $4d6
  24.     move.w #2,d0
  25.     move.l #8,d1
  26. stop1    move.b d1,$ff8800
  27.     clr.b $ff8802
  28.     addq.l #1,d1
  29.     dbf d0,stop1
  30.     rts
  31.  
  32. data    incbin "commando.img"
  33.