home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 1 / Supremacy-1.iso / DEMOS / U-V / ULTCHPDK.ZIP / SOURCES.ZIP / ASM68000.ZIP / LOGICAL.S < prev    next >
Text File  |  1996-06-07  |  2KB  |  95 lines
  1. ;
  2. ; 'Logical' Music Driver
  3. ;
  4. ; Music hacked by: MC of Animal Mine
  5. ;
  6. ; GFA BASIC & STOS routines made by MUG U.K
  7. ;
  8. ; Released on "Makin' Sweet Music Volume II' - 30/8/1992
  9. ;
  10.  
  11.     opt    o+,d+,s-
  12.  
  13. super    clr.l    -(a7)        ; set TAB to 8
  14.     move.w    #$20,-(a7)
  15.     trap    #1
  16.     addq.l    #6,a7
  17.     move.l    d0,old_sp
  18.  
  19.     move.l    $70.w,old_70
  20.  
  21.     lea    text(pc),a0    
  22.     bsr    print
  23.     move.b    #12,$fffffc02.w
  24.  
  25. start    moveq    #1,d0    ;1 tune (0)
  26.     bsr.s    play
  27.  
  28. wait    move.b    $fffc02,d0
  29. try_sp    cmpi.b    #$39,d0
  30.     bne.s    wait
  31.  
  32.     bsr.s    stop
  33.     move.b    #8,$fffffc02.w
  34.  
  35. exit    move.l    old_70,$70.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.     move.b    $484.w,old_key
  47.     bclr    #0,$484.w
  48.     jsr    music
  49.     move.l    #new_70,$70.w
  50. exitpl    rts
  51.  
  52. stop    moveq    #-1,d0
  53.     jsr    music
  54.     move.b    old_key,$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+8
  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. text    dc.b    $1b,"E"
  74.     dc.b    "+--------------------------------+",13,10
  75.     dc.b    "|      Music from 'Logical'      |",13,10
  76.     dc.b    "|      --------------------      |",13,10
  77.     dc.b    "|                                |",13,10
  78.     dc.b    "| Original Hack: MC/Animal Mine  |",13,10
  79.     dc.b    "|                                |",13,10
  80.     dc.b    "| GFA & STOS by: MUG U.K(tm)     |",13,10
  81.     dc.b    "|                                |",13,10
  82.     dc.b    "|     Released:  30/8/1992       |",13,10
  83.     dc.b    "|                                |",13,10
  84.     dc.b    "+--------------------------------+",13,10,10
  85.     dc.b    "Space to exit.",13,10
  86.     dc.b    0
  87.  
  88. old_sp    ds.l    1
  89. old_70    ds.l    1
  90. old_key    ds.b    1
  91.     even
  92.  
  93. music    incbin "logical.mus"
  94. m_end
  95.