home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / DEMOS / CHIP_MSX / CRISPY.ARJ / crispy / SAPIENS.S < prev    next >
Encoding:
Text File  |  1997-08-27  |  492 b   |  35 lines
  1. ;
  2. ; Sapiens - 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    jsr data
  19.     move.l #data+$A8,$4d6
  20. rt    rts
  21.  
  22. stop    clr.l $4d6
  23.     move.w #2,d0
  24.     move.l #8,d1
  25. stop1    move.b d1,$ff8800
  26.     clr.b $ff8802
  27.     addq.l #1,d1
  28.     dbf d0,stop1
  29.     rts
  30.  
  31. data    incbin "sapiens1.img"  ; or use "sapiens2.img"
  32.  
  33. ; SAPIENS1.IMG - Main theme
  34. ; SAPIENS2.IMG - Alternative theme
  35.