home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 10
/
AU_CD10.iso
/
Updates
/
Perl
/
Non-RPC
/
!Perl
/
scripts
/
xswi
< prev
Wrap
Text File
|
1998-07-14
|
480b
|
29 lines
#! 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";