Subversion Repositories SvarDOS

Rev

Rev 1567 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1567 bernd.boec 1 
typedef unsigned size_t;
2 
 
3 
size_t strlen( const char *text )
4 
{
5 
	size_t len = 0;
6 
	while (text[len]) len++;
7 
	return len;
8 
}
9 
 
10 
/* pragma aus generates more efficient machine code than _asm {} blocks */
11 
extern unsigned dos_f40h(unsigned handle, const char* data, size_t len);
12 
#pragma aux dos_f40h = \
13 
	"mov ah,40h" \
14 
	"int 21h" \
15 
	parm [bx] [dx] [cx] \
16 
	modify [ax]
17 
 
18 
 
19 
void puts( const char *text )
20 
{
21 
	dos_f40h(1, text, strlen( text ));
22 
}
23 
 
24 
int main( void )
25 
{
26 
	puts( "Hello, World\n" );
27 
	return 0;
28 
}