home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / MIDICOM.LZH / MC_UTILS / MC_XFS / MCMEDIAC.S < prev    next >
Text File  |  1993-09-25  |  318b  |  17 lines
  1. media_vec    equ    $47E
  2.  
  3. .import    MCDRIVE
  4. .export    new_media,instmedia
  5.             dc.b    'XBRAMICO'
  6. oldmedia:    dc.l    0
  7. new_media:    move.w    4(sp),D0
  8.             cmp.w    MCDRIVE,d0
  9.             beq.s    my_drive
  10.             move.l    oldmedia,-(SP)
  11.             rts
  12. my_drive:    moveq    #0,d0
  13.             rts
  14.  
  15. instmedia:    move.l    media_vec,oldmedia
  16.             move.l    #new_media,media_vec
  17.             rts