home *** CD-ROM | disk | FTP | other *** search
- package RiscosLib;
-
- require Exporter;
- @ISA = Exporter;
- @EXPORT = qw(regmask SWINumberFromString);
-
- for $i (0..7) { $in[$i] = 1<<$i; $out[$i] = 1<<(31-$i); }
-
- sub regmask {
- my $ir = shift;
- my $or = shift;
- my $mask = 0;
- while (@$ir) { $mask |= $in[ shift(@$ir) ]; };
- while (@$or) { $mask |= $out[ shift(@$or) ]; };
- $mask;
- }
-
- sub SWINumberFromString {
- my $str = shift()."\n";
- syscall(57,2,$str);
- }
-
-
- 1;
-
-