mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
799 B
50 lines
799 B
|
|
DOSSEG
|
|
.MODEL LARGE
|
|
|
|
.CODE
|
|
|
|
.286
|
|
|
|
Handle equ word ptr [bp+6]
|
|
Offsetl equ word ptr [bp+8]
|
|
Offseth equ word ptr [bp+10]
|
|
Origin equ byte ptr [bp+12]
|
|
|
|
public _DosSeek
|
|
_DosSeek proc far
|
|
|
|
push bp
|
|
mov bp,sp
|
|
|
|
push si
|
|
push di
|
|
push bx
|
|
push ds
|
|
push es
|
|
|
|
mov ah,42h
|
|
mov al,Origin
|
|
mov bx,Handle
|
|
mov cx,Offseth
|
|
mov dx,Offsetl
|
|
|
|
int 21h
|
|
jnc @f ; dx:ax already set for return
|
|
|
|
mov ax,0ffh
|
|
cwd ; -1 error return
|
|
|
|
@@:
|
|
pop es
|
|
pop ds
|
|
pop bx
|
|
pop di
|
|
pop si
|
|
|
|
leave
|
|
retf
|
|
|
|
_DosSeek endp
|
|
|
|
end
|