Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1377 → Rev 1376

/svarlang.lib/trunk/svarlang.c
105,9 → 105,13
 
static void FCLOSE(unsigned short handle) {
_asm {
push bx
 
mov ah, 0x3e
mov bx, handle
int 0x21
 
pop bx
}
}
 
147,11 → 151,19
 
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