home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / DISK2.ASM < prev    next >
Assembly Source File  |  1994-11-15  |  2KB  |  83 lines
  1.     page    66,132
  2. ;******************************** DISK2.ASM  *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.  
  14. comment 
  15. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  16. FILE_SIZE1 - find an open file's size
  17. ;
  18. ; inputs:    BX = file handle
  19. ; 
  20. ; output:    if CF = 0, DX:AX = file size (low word in AX)
  21. ;            if CF = 1, AX = DOS error code
  22. ;            
  23. ;* * * * * * * * * * * * * *
  24. 
  25.     public    FILE_SIZE1
  26. FILE_SIZE1    PROC    FAR
  27.    APUSH   BX,CX,SI,DI
  28.    MOV       AX,4201h        ;set ds:ax to file posn (save)
  29.    XOR     CX,CX
  30.    MOV     DX,CX
  31.    INT     21h
  32.    JB      FSIZE_1
  33.    MOV     DI,DX
  34.    MOV     SI,AX
  35.    MOV       AX,4202h        ;seek to end of file, size -> dx:ax
  36.    XOR     CX,CX
  37.    MOV     DX,CX
  38.    INT     21h
  39.    PUSH    DX
  40.    PUSH    AX
  41.    MOV       AX,4200h         ;restore orig. file posn
  42.    MOV     CX,DI
  43.    MOV     DX,SI
  44.    INT     21h
  45.    POP       AX            ;put file size in dx:ax
  46.    POP     DX
  47. FSIZE_1:
  48.    APOP    DI,SI,CX,BX
  49.    RETF
  50. FILE_SIZE1    ENDP
  51. comment 
  52. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -(  DISK   )
  53. FILE_SIZE2 - find a closed file's size
  54. ;
  55. ; inputs:    DS:DX = pointer to file name asciiz string
  56. ; 
  57. ; output:    if CF = 0, DX:AX = file size (low word in AX)
  58. ;            if CF = 1, AX = DOS error code
  59. ;            
  60. ;* * * * * * * * * * * * * *
  61. 
  62.     public    FILE_SIZE2
  63. FILE_SIZE2    PROC    FAR
  64.     apush    bx,cx,si,di
  65.     mov    ax,3d00h
  66.     int    21h            ;open file
  67.     jc    fs_err2            ;jmp if error
  68.     mov    bx,ax            ;get file handle
  69.     call    file_size1
  70.     pushf
  71.     push    ax
  72.     mov    ah,3eh
  73.     int    21h            ;close file
  74.     pop    ax
  75.     popf
  76. fs_err2:
  77.     apop    di,si,cx,bx    
  78.     ret    
  79. FILE_SIZE2    ENDP
  80.  
  81. LIBSEG    ENDS
  82.     end
  83.