; master library module
;
; Description:
;	ファイルポインタの移動
;
; Functions/Procedures:
;	long dos_seek( int fh, long offs, int mode ) ;
;
; Parameters:
;	
;	mode	0=先頭から  1=現在位置から  2=ファイル末尾から
;
; Returns:
;	long	InvalidData  (cy=1)	失敗,modeが0,1,2のどれでもない
;		InvalidHandle(cy=1)	失敗,ファイルハンドルが無効
;		else	     (cy=0)	成功,新しい先頭からのオフセット
;
; Binding Target:
;	Microsoft-C / Turbo-C / Turbo Pascal
;
; Running Target:
;	PC-9801
;
; Requiring Resources:
;	CPU: 8086
;
; Notes:
;	
;
; Compiler/Assembler:
;	TASM 3.0
;	OPTASM 1.6
;
; Author:
;	恋塚(恋塚昭彦)
;
; Revision History:
;	93/ 3/17 Initial: master.lib
;	93/10/15 [M0.21] bugfix(^^;
;

func DOS_SEEK
	push	BP
	mov	BP,SP
	@@fh	= (RETSIZE+4)*2
	@@offs	= (RETSIZE+2)*2
	@@mode	= (RETSIZE+1)*2

	mov	BX,[BP+@@fh]
	mov	DX,[BP+@@offs]
	mov	CX,[BP+@@offs+2]
	mov	AL,[BP+@@mode]
	mov	AH,42h
	int	21h
	jnc	short SUCCESS
	neg	AX	; cy=1
	cwd
SUCCESS:
	pop	BP
	ret	8
endfunc