***************************************************************
*                                                             *
*      Module Name: mountdsk.lib         Rev. 1.00            *
*      Function: Prompt user to mount    Last rev. 03 May 85  *
*                source and destination  By: glh/w6bsk        *
*                disks.                                       *
*                                                             *
*    Requires SORCDISK.LIB, DESTDISK.LIB, CPMIO.LIB           *
*                                                             *
***************************************************************

   
mountdsk:
          call ccrlf          ; Move down one line 
          call spmsg          ; Display the message
          db ' Mount the source disk in drive '
          lda  ascdrv         ; Get the drive id (Ascii)
          call co             ; Display it
          call spmsg
          db ' and the destination disk in drive '
          lda  asddrv         ; Get dest id
          call co
          call spmsg
          db '.',0
          call ccrlf
          call spmsg
          db ' Do you wish to continue? '
          call getyn
          ret                  ; Return to calling routine with
                               ; zero set if Yes.