Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1376 → Rev 1377

/svarlang.lib/trunk/svarlang.c
105,13 → 105,9
 
static void FCLOSE(unsigned short handle) {
_asm {
push bx
 
mov ah, 0x3e
mov bx, handle
int 0x21
 
pop bx
}
}
 
151,19 → 147,11
 
static void FSEEK(unsigned short handle, unsigned short bytes) {
_asm {
push bx
push cx
push dx
 
mov ax, 0x4201 /* move file pointer from cur pos + CX:DX */
mov bx, handle
xor cx, cx
mov dx, bytes
int 0x21
 
pop dx
pop cx
pop bx
}
}
#endif