home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / U-V / ULTCHPDK.ZIP / SOURCES.ZIP / ASM68000.ZIP / MISFIT.S < prev    next >
Text File  |  1996-06-07  |  2KB  |  110 lines
  1. ;
  2. ; Misfits Music by Epic
  3. ;
  4. ; Music hacked by: MUG U.K (on 12/8/1992)
  5. ;
  6. ; From: Another Illusion Demo by The Misfits
  7.  
  8.     opt    o+,d+,s-
  9.  
  10. super    clr.l    -(a7)        ; set TAB to 8
  11.     move.w    #$20,-(a7)
  12.     trap    #1
  13.     addq.l    #6,a7
  14.     move.l    d0,old_sp
  15.  
  16.     move.l    $70.w,old_70
  17.  
  18.     lea    text(pc),a0    
  19.     bsr    print
  20.     move.b    #12,$fffffc02.w
  21.  
  22. start    moveq    #1,d0    ;1 tune (0)
  23.     bsr.s    play
  24.  
  25. wait    move.b    $fffc02,d0
  26. try_sp    cmpi.b    #$39,d0
  27.     bne.s    wait
  28.  
  29.     bsr.s    stop
  30.     move.b    #8,$fffffc02.w
  31.  
  32. exit    move.l    old_70,$70.w
  33.     move.l    #old_sp,-(sp)
  34.     move.w    #$20,-(sp)
  35.     trap    #1
  36.     addq.l    #6,sp
  37.  
  38.     clr.l    -(sp)
  39.     trap    #1
  40.  
  41. play    cmp.l    #2,d0
  42.     bge.s    exitpl
  43.     bclr    #0,$484.w
  44.     jsr    music
  45.     move.l    #new_70,$70.w
  46. exitpl    rts
  47.  
  48. stop    move.w    #2,d0
  49.     moveq    #8,d1
  50. stop1    move.b    d1,$ff8800
  51.     clr.b    $ff8802
  52.     addq.l    #1,d1
  53.     dbf    d0,stop1
  54.     bset    #0,$484.w
  55.     rts
  56.  
  57. new_70    movem.l    d0-d7/a0-a6,-(sp)
  58.     move.w    #$fff,d0
  59. loop    dbf    d0,loop
  60.  
  61.      move.w    #$700,$ffff8240.w
  62.     jsr    music+4
  63.     move.w    #$777,$ffff8240.w
  64.     movem.l    (sp)+,d0-d7/a0-a6
  65.     rte
  66.  
  67. print    move.l    a0,-(sp)
  68.     move.w    #9,-(sp)
  69.     trap    #1
  70.     addq.l    #6,sp
  71.     rts
  72.  
  73.  
  74. text    dc.b    $1b,"E"
  75.     dc.b    "+----------------------------+",13,10
  76.     dc.b    "| Some music by Epic/Misfits |",13,10
  77.     dc.b    "+----------------------------+",13,10,10
  78.     dc.b    "Music ripped by MUG U.K",$bf,13,10,10
  79.     dc.b    "From the: Another Illusion Demo",13,10,10
  80.     dc.b    "Space to exit.",13,10
  81.     dc.b    0
  82.  
  83. old_sp    ds.l    1
  84. old_70    ds.l    1
  85.  
  86. music    incbin "misfit1.mus"
  87. m_end
  88.  
  89. ; MISFITS MUSIC ripped by MUG U.K(tm)
  90. ; -----------------------------------
  91. ;
  92. ; MISFIT1.MUS - That's About To Explode
  93. ; MISFIT2.MUS - Wonderful Scroll
  94. ; MISFIT3.MUS - Scrunge
  95. ; MISFIT4.MUS - Feed My Frankenstein
  96. ; MISFIT5.MUS - Lost in Universe
  97. ; MISFIT6.MUS - No Repsect
  98. ; MISFIT7.MUS - Through The Never
  99. ; MISFIT8.MUS - Toxic O Mania
  100. ; MISFIT9.MUS - Shoot All Coders
  101. ; MISFIT10.MUS - TMS' Dreams
  102. ; MISFIT11.MUS - Japanese Sunlight
  103. ; MISFIT12.MUS - 'Vixit' In His Bath
  104. ; MISFIT13.MUS - Stunt Priest
  105. ; MISFIT14.MUS - Another Illusion
  106. ; MISFIT15.MUS - Epilsons' Nightmare
  107.  
  108. ; All the above music was ripped and titled (in front of several witnesses)
  109. ; by MUG U.K(tm)
  110.