home *** CD-ROM | disk | FTP | other *** search
- #! 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";
-