***************************************************************
*                                                             *
*      Module Name: SETDRIVE.LIB         Rev. 1.00            *
*      Function: Enter with desired      Last rev. 06 May 85  *
*       drive in C and set it up.        By: glh/w6bsk        *
*                                                             *
***************************************************************



*         Equ table

djdriv    equ  0d31bh    ; Morrow DJ2B BIOS setdrive entry
djfunc    equ  0e3fah    ; Morrow DJ2B drive function port 

setdrv:                                                    
          mov  a,c       ; Save desired disk (in C on entry)
          ani  07h       ; Make binary if not already
          sta  curdsk    ; and save it for possible use
          push psw
          call djdrv     ; Bring up the drive
          pop  psw
          ora  40h       ; Convert to ascii value
          sta  ascdsk    ; and save for possible use
          ret

curdsk    db   1
ascdsk    db   1