home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLDOS.ZIP / DISK.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-10-28  |  854 b   |  65 lines
  1.  
  2. ; *******************************************************
  3. ; *                            *
  4. ; *    Turbo Pascal Runtime Library Version 5.5    *
  5. ; *    Disk Status Routines                *
  6. ; *                            *
  7. ; *    Copyright (C) 1988,89 Borland International    *
  8. ; *                            *
  9. ; *******************************************************
  10.  
  11.     TITLE    DISK
  12.  
  13.     LOCALS    @@
  14.  
  15. CODE    SEGMENT    BYTE PUBLIC
  16.  
  17.     ASSUME    CS:CODE
  18.  
  19.     PUBLIC    DiskFree
  20.  
  21. DiskFree    PROC    FAR
  22.  
  23. Drive        EQU    (BYTE PTR [BP+6])
  24.  
  25.     PUSH    BP
  26.     MOV    BP,SP
  27.     MOV    DL,Drive
  28.     MOV    AH,36H
  29.     INT    21H
  30.     MOV    DX,AX
  31.     CMP    AX,0FFFFH
  32.     JE    @@1
  33.     MUL    CX
  34.     MUL    BX
  35. @@1:    POP    BP
  36.     RET    2
  37.  
  38. DiskFree    ENDP
  39.  
  40.     PUBLIC    DiskSize
  41.  
  42. DiskSize    PROC    FAR
  43.  
  44. Drive        EQU    (BYTE PTR [BP+6])
  45.  
  46.     PUSH    BP
  47.     MOV    BP,SP
  48.     MOV    DL,Drive
  49.     MOV    AH,36H
  50.     INT    21H
  51.     MOV    BX,DX
  52.     MOV    DX,AX
  53.     CMP    AX,0FFFFH
  54.     JE    @@1
  55.     MUL    CX
  56.     MUL    BX
  57. @@1:    POP    BP
  58.     RET    2
  59.  
  60. DiskSize    ENDP
  61.  
  62. CODE    ENDS
  63.  
  64.     END
  65.