home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / scripts / xswi < prev   
Text File  |  1998-07-14  |  480b  |  29 lines
  1. #! perl -w
  2.  
  3. use RISCOS::SWI;
  4.  
  5. $t = "Hello world\n\r";
  6. $non_x = swix( 'OS_Write0', regmask([0]), $t );
  7.  
  8. print "Result is $non_x\n";
  9.  
  10. $x = swix( 'XOS_Write0', regmask([0]), $t );
  11.  
  12. print "Result is $x\n";
  13.  
  14. $x = swix( 'XOS_GenerateError', regmask([0]), $t );
  15.  
  16. if( defined $x )
  17. {
  18.   print "Result is $x\n";
  19. }
  20. else
  21. {
  22.   printf "Result is undefined! Error is %X:$^E\n", $^E;
  23. }
  24.  
  25. $x = swi( 'XOS_GenerateError', regmask([0]), $t );
  26.  
  27. # We're never going to get here...
  28. print "Result is $x\n";
  29.