***************************************************************
*                                                             *
*      Module Name: destdisk.lib         Rev. 1.0             *
*      Function: This module will ask    Last rev. 03 May 85  *
*                for destination disk    By: glh/w6bsk        *
*                and save it in DDISK.                        *
*                                                             *
*    Requires CPMIO.LIB                                       *
*                                                             *
***************************************************************

  
dstdsk:  
          call spmsg     ; Ask for source drive number
          db ' Input destination drive (a,b,c,d):  ',0
          call cimsg     ; Get the input
          ani  5fh       ; Then force upper case.
          sui  41h       ; Convert to binary
          jz   dsave     ; Was A drive, is ok.
          cpi  00        ; Greater than A?       
          jnc  upped     ; Yes, maybe ok.
errdrv:
          call spmsg     ; Print error message
          db ' Not legal drive: ',0
          call ccrlf
          jmp  dstdsk   
     
upped:
          cpi  4         ; Less than E?
          jc   ssave     ; Yes, is legal
          jmp  errdrv    ; No, try again

ssave:
          sta  dstdrv    ; Save the requested drive
          adi  41h       ; Convert back to ASCII
          sta  asddrv    ; and save if letter needed.

dstdrv    db   1         ; Binary value of dest drive.
asddrv    db   1         ; Ascii  value of dest drive.