mirror of https://github.com/nmlgc/ReC98.git
62 lines
1.0 KiB
NASM
62 lines
1.0 KiB
NASM
|
; 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
|