home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / utils / rippers / sources / dwreplayer.s next >
Text File  |  1995-03-17  |  1KB  |  69 lines
  1. ; **************************
  2. ; * DAVID WHITTAKER PLAYER *
  3. ; * ---------------------- *
  4. ; *       (C)1989-90       *
  5. ; *    ZENIX of DIRECT!    *
  6. ; * ---------------------- *
  7. ; * Right shiftkey toggles *
  8. ; * different tunes!       *
  9. ; *               *
  10. ; * RI tune into MUSICBASE *
  11. ; **************************
  12.  
  13. MusicBase=    $30000            ; Tune mem-location
  14.  
  15. Tunes=        3            ; Number of tunes
  16.  
  17. play=    Musicbase+$0e
  18. kill=    Musicbase+$1c
  19.  
  20.     move.l    #0,d0            ; Init
  21.     move.l    #0,nowplaying
  22.     jsr    musicbase
  23.  
  24. start:    move.l    $6c.w,irqsave+2
  25.     move.l    #irq,$6c.w
  26.  
  27. main:    btst    #6,$bfe001        ; Test left button
  28.     beq.s    end
  29.     cmp.b    #$3d,$bfec01        ; Test right SHIFT key
  30.     bne.s    main
  31. slip:    cmp.b    #$3d,$bfec01        ; Is it still pressed?
  32.     beq.s    slip
  33.     add.l    #1,nowplaying
  34.     cmp.l    #tunes,nowplaying
  35.     beq.s    restartcount
  36.     move.l    nowplaying,d0
  37.     jsr    musicbase
  38.     bra    main
  39.  
  40. restartcount:
  41.     move.l    #0,nowplaying
  42.     move.l    #0,d0
  43.     jsr    musicbase
  44.     bra    main
  45.  
  46. end:    jsr    kill            ; Turn off music
  47.     move.l    irqsave+2,$6c.w
  48.     move.w    #$f,$dff096
  49.     moveq    #0,d0
  50.     rts
  51.  
  52. irq:    cmp.b    #183,$dff006
  53.     bne.s    irq
  54.     move.w    #$0fff,$dff180
  55.     jsr    play
  56.     move.w    #$0000,$dff180
  57.  
  58. irqsave:
  59.     jmp    $0
  60.  
  61. nowplaying:
  62.     dc.l    0
  63.  
  64. org musicbase
  65. load musicbase
  66.  
  67. music:    blk.l    0,0
  68.  
  69.