home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_03_05 / 3n05050a < prev    next >
Text File  |  1992-02-07  |  743b  |  45 lines
  1. DOSSEG
  2. .Model Medium
  3. .Stack 100h
  4.  
  5. .Data
  6.  
  7. MSG$        DB    "Drive "
  8. DRIVENUM    DB    "? is type "
  9. DRIVETYPE    DB    "?"
  10.         DB    13,10,"$"
  11.  
  12. .Code
  13. EXTRN        DisketteType$FAR:FAR
  14.  
  15. MAIN        PROC
  16.  
  17.         MOV    BX,DGROUP        ;Point DS
  18.         MOV    DS,BX            ; to data segment
  19.  
  20.         SUB    DI,DI            ;Drive number
  21. MAIN_1:
  22.         MOV    AX,DI            ;Get drive number
  23.         MOV    DL,AL            ;(Save for call)
  24.         ADD    AL,"0"            ;Make ASCII
  25.         MOV    [DRIVENUM],AL        ;Store in string
  26.  
  27.         CALL    DisketteType$FAR    ;Get type
  28.  
  29.         ADD    AL,"0"            ;Convert to ASCII
  30.         MOV    [DRIVETYPE],AL        ;Store in string
  31.  
  32.         MOV    AH,9            ;Display string fn
  33.         MOV    DX,OFFSET MSG$        ; at DS:DX
  34.         INT    21H            ;Thru DOS
  35.  
  36.         INC    DI
  37.         CMP    DI,4
  38.         JBE    MAIN_1
  39.  
  40.         MOV    AX,4C00H        ;Terminate program
  41.         INT    21H            ;Thru DOS
  42.  
  43. MAIN        ENDP
  44.         END    MAIN
  45.