Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1779 → Rev 1780

/svarlang.lib/trunk/svarlang.c
95,15 → 95,15
value [ax];
 
 
static void FCLOSE(unsigned short handle) {
_asm {
mov ah, 0x3e
mov bx, handle
int 0x21
}
}
static void FCLOSE(unsigned short handle);
 
#pragma aux FCLOSE = \
"mov ah, 0x3E" \
"int 0x21" \
modify [ax] /* AX might contain an error code on failure */ \
parm [bx]
 
 
static unsigned short FREAD(unsigned short handle, void *buff, unsigned short bytes) {
unsigned short buff_seg = FP_SEG(buff);
unsigned short buff_off = FP_OFF(buff);