;GetUnitID.Written by Kamran Karimi.To be Assembled with Cape Assembler
 ;and linked with blink to produce SofTrack

DR_GetUnitID equ -30

 XDEF _GetUnitID
 XREF _DiskBase

_GetUnitID:
 move.l  a6,-(a7)
 move.l  8(a7),d0
 move.l  _DiskBase,a6
 jsr     DR_GetUnitID(a6)
 move.l  (a7)+,a6
 rts