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

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

ssave:
          sta  srcdrv    ; Save the requested drive
          mov  c,a       ; Ready for SETDRIVE
          adi  41h       ; Convert back to ASCII
          sta  ascdrv    ; and save if letter needed.
          ret

srcdrv    db   1         ; Binary value of source drive
ascdrv    db   1         ; Ascii  value of source drive