Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1659 → Rev 1660

/wmincrt/tags/20231113/tests/hello/build.bat
0,0 → 1,3
wasm -q -DNOSTACKCHECK ..\..\startup.asm
wcc -q -os -s hello.c
wlink system dos com option quiet option map name hello file startup,hello
/wmincrt/tags/20231113/tests/hello/hello.c
0,0 → 1,28
typedef unsigned size_t;
 
size_t strlen( const char *text )
{
size_t len = 0;
while (text[len]) len++;
return len;
}
 
/* pragma aus generates more efficient machine code than _asm {} blocks */
extern unsigned dos_f40h(unsigned handle, const char* data, size_t len);
#pragma aux dos_f40h = \
"mov ah,40h" \
"int 21h" \
parm [bx] [dx] [cx] \
modify [ax]
 
 
void puts( const char *text )
{
dos_f40h(1, text, strlen( text ));
}
 
int main( void )
{
puts( "Hello, World\n" );
return 0;
}
/wmincrt/tags/20231113/tests/stkchk/build.bat
0,0 → 1,3
wasm -q -d1 -DSTACKSTAT ..\..\startup.asm
wcc -q -os -d2 stkchk.c
wlink system dos com debug all option quiet option map name stkchk file startup,stkchk
/wmincrt/tags/20231113/tests/stkchk/stkchk.c
0,0 → 1,7
/* This should trigger a stack overflow */
 
int main( void )
{
main();
return 0;
}