***************************************************************
*                                                             *
*      Module Name: DENSTSET.LIB         Rev. 1.00            *
*      Function: This routine sets       Last rev. 06 May 85  *
*         the selected drive to          By: glh/w6bsk        *
*         single or double density.                           *
***************************************************************


setden:
          call ccrlf 
          call spmsg
          db   ' (D)ouble or (S)ingle density? ',0
          call cimsg 
          mvi  inbuff+2  ; Get first entry only
          ani  5fh       ; Force upper case1
          cpi  'S'
          jz   single
          cpi  'D'
          jz   double
          call ccrlf
          call spmsg
          db   ' Illegal entry: ',0
          jmp  setden

single:
          mvi  a,09h     ; The locations DENST1 and DENST2
          sta  denst1    ; are in SELCTDRV.LIB routine.   
          mvi  a,0dh     
          sta  denst2
          ret

double:
          mvi  a,08h
          sta  denst1
          mvi  a,0ch
          sta  denst2
          ret