mirror of https://github.com/nmlgc/ReC98.git
48 lines
738 B
NASM
48 lines
738 B
NASM
; master library - DOS
|
|
;
|
|
; Description:
|
|
; ファイルのサイズを得る
|
|
;
|
|
; Function/Procedures:
|
|
; long file_size( void ) ;
|
|
;
|
|
; Parameters:
|
|
; none
|
|
;
|
|
; Returns:
|
|
; -1 開かれていない
|
|
; else 現在読み込みオープンされているファイルのサイズ(バイト数)
|
|
;
|
|
; Binding Target:
|
|
; Microsoft-C / Turbo-C / Turbo Pascal
|
|
;
|
|
; Running Target:
|
|
; MS-DOS
|
|
;
|
|
; Requiring Resources:
|
|
; CPU: 8086
|
|
;
|
|
; Notes:
|
|
;
|
|
;
|
|
; Compiler/Assembler:
|
|
; TASM 3.0
|
|
; OPTASM 1.6
|
|
;
|
|
; Author:
|
|
; 恋塚昭彦
|
|
;
|
|
; Revision History:
|
|
; 92/12/11 Initial
|
|
; 94/ 2/14 [M0.22a] dos_filesize呼び出しに変更
|
|
|
|
func FILE_SIZE ; file_size() {
|
|
push file_Handle
|
|
_call DOS_FILESIZE
|
|
jc short @@FAULT
|
|
ret
|
|
@@FAULT:
|
|
mov AX,DX ; -1にする
|
|
ret
|
|
endfunc ; }
|