#! perl -w

use RISCOS::SWI;

$t = "Hello world\n\r";
$non_x = swix( 'OS_Write0', regmask([0]), $t );

print "Result is $non_x\n";

$x = swix( 'XOS_Write0', regmask([0]), $t );

print "Result is $x\n";

$x = swix( 'XOS_GenerateError', regmask([0]), $t );

if( defined $x )
{
  print "Result is $x\n";
}
else
{
  printf "Result is undefined! Error is %X:$^E\n", $^E;
}

$x = swi( 'XOS_GenerateError', regmask([0]), $t );

# We're never going to get here...
print "Result is $x\n";
