home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / U-V / ULTCHPDK.ZIP / SOURCES.ZIP / ASM68000.ZIP / NEWLINE.S < prev    next >
Text File  |  1996-06-07  |  2KB  |  104 lines
  1. ;
  2. ; 'Newline' Music Driver
  3. ;
  4. ; Music hacked by: MUG U.K™ (from: 'The Year After Demo')
  5. ;
  6. ; Released on "Makin' Sweet Music Volume II' - 24/10/1992
  7. ;
  8.  
  9.     opt    o+,d+,s-
  10.  
  11. super    clr.l    -(a7)        ; set TAB to 8
  12.     move.w    #$20,-(a7)
  13.     trap    #1
  14.     addq.l    #6,a7
  15.     move.l    d0,old_sp
  16.  
  17.     move.l    $70.w,old_70
  18.     move.w    $ffff8240.w,old8240
  19.     
  20.     lea    text(pc),a0    
  21.     bsr    print
  22.     move.b    #12,$fffffc02.w
  23.  
  24. start    moveq    #1,d0    ;1 tune (0)
  25.     bsr.s    play
  26.  
  27. wait    move.b    $fffc02,d0
  28. try_sp    cmpi.b    #$39,d0
  29.     bne.s    wait
  30.  
  31.     bsr.s    stop
  32.     move.b    #8,$fffffc02.w
  33.  
  34. exit    move.l    old_70,$70.w
  35.     move.w    old8240,$ffff8240.w
  36.     move.l    #old_sp,-(sp)
  37.     move.w    #$20,-(sp)
  38.     trap    #1
  39.     addq.l    #6,sp
  40.  
  41.     clr.l    -(sp)
  42.     trap    #1
  43.  
  44. play    cmp.l    #2,d0
  45.     bge.s    exitpl
  46.     bclr    #0,$484.w
  47.     jsr    music
  48.     move.l    #new_70,$70.w
  49. exitpl    rts
  50.  
  51. stop    jsr    music+4
  52.     bset    #0,$484.w
  53.     rts
  54.  
  55. new_70    movem.l    d0-d7/a0-a6,-(sp)
  56.     move.w    #$fff,d0
  57. loop    dbf    d0,loop
  58.  
  59.      move.w    #$700,$ffff8240.w
  60.     jsr    music+8
  61.     move.w    #$777,$ffff8240.w
  62.     movem.l    (sp)+,d0-d7/a0-a6
  63.     rte
  64.  
  65. print    move.l    a0,-(sp)
  66.     move.w    #9,-(sp)
  67.     trap    #1
  68.     addq.l    #6,sp
  69.     rts
  70.  
  71. text    dc.b    $1b,"E"
  72.     dc.b    "+--------------------------------+",13,10
  73.     dc.b    "|    Some music by 'Newline'     |",13,10
  74.     dc.b    "|    -----------------------     |",13,10
  75.     dc.b    "|                                |",13,10
  76.     dc.b    "| From the: Year After Demo      |",13,10
  77.     dc.b    "|                                |",13,10
  78.     dc.b    "| Music by: Dolby                |",13,10
  79.     dc.b    "| Player by: Ti Eystch           |",13,10
  80.     dc.b    "|                                |",13,10
  81.     dc.b    "+--------------------------------+",13,10,10
  82.     dc.b    "Music ripped by MUG U.K™",13,10,10
  83.     dc.b    "Space to exit.",13,10
  84.     dc.b    0
  85.  
  86. old_sp    ds.l    1
  87. old_70    ds.l    1
  88. old8240    ds.w    1
  89.  
  90. music    incbin "newline1.mus"
  91. m_end
  92.  
  93. ; "Newline" Music Rips by MUG U.K™
  94. ; --------------------------------
  95. ;
  96. ; NEWLINE1.MUS  \  
  97. ;                > Both pieces hacked from The Year After Demo (Newline Screen)
  98. ; NEWLINE2.MUS  / 
  99. ;
  100. ; If you use these music rips in your intros, demos, programs or whatever -
  101. ; please credit me and not yourself (believe me, I've seen it !!) !!
  102.  
  103. ; MUG U.K™
  104.