home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / portfoli / zxamples.lzh / DISKFREE.FN < prev    next >
Text File  |  1987-12-06  |  768b  |  21 lines
  1. 'Long Function to determine amount of free space on a drive
  2. 'Parameter to function is the drive specifier.
  3. '0 = default drive, 1 = A:, 2 = B:, etc.
  4. 'Returns # of bytes free as a double-precision #
  5. 'Returns -1 if drive specifier is invalid
  6. :
  7. LONG FN GetSpace#(DRIVE)
  8. MACHLG &B4, &36           : ' MOV AH,36H
  9. MACHLG &8A, &16, DRIVE    : ' MOV DL,[DRIVE]
  10. MACHLG &CD, &21           : ' INT 21H
  11. MACHLG &3D, &FFFF         : ' CMP AX,FFFFH
  12. MACHLG &75, &06           : ' JNE +6
  13. MACHLG &BB, &01, &00      : ' MOV BX,1
  14. MACHLG &B9, &01, &00      : ' MOV CX,1
  15. MACHLG &A3, AX            : ' MOV [AX],AX
  16. MACHLG &89, &1E, BX       : ' MOV [BX],BX
  17. MACHLG &89, &0E, CX       : ' MOV [CX],CX
  18. Free# = AX * BX * CX * 1.0
  19. END FN = Free#
  20. :
  21. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəə