head	1.1;
access;
symbols
	dws_pl15i:1.1
	cluster_15h:1.1
	dws_pl15h_ibcs:1.1;
locks; strict;
comment	@# @;


1.1
date	94.02.26.22.09.26;	author dws;	state Exp;
branches;
next	;


desc
@@


1.1
log
@Added iBCS emulation support.
@
text
@#!/usr/bin/perl

%t = (
	"XLOCKING",		0x0128,
	"CREATSEM",		0x0228,
	"OPENSEM",		0x0328,
	"SIGSEM",		0x0428,
	"WAITSEM",		0x0528,
	"NBWAITSEM",		0x0628,
	"RDCHK",		0x0728,
	"CHSIZE",		0x0a28,
	"FTIME",		0x0b28,
	"NAP",			0x0c28,
	"SDGET",		0x0d28,
	"SDFREE",		0x0e28,
	"SDENTER",		0x0f28,
	"SDLEAVE",		0x1028,
	"SDGETV",		0x1128,
	"SDWAITV",		0x1228,
	"PROCTL",		0x2028,
	"EXECSEG",		0x2128,
	"UNEXECSEG",		0x2228,
	"SELECT",		0x2428,
	"EACCESS",		0x2528,
	"PACCESS",		0x2628,
	"SIGACTION",		0x2728,
	"SIGPROCMASK",		0x2828,
	"SIGPENDING",		0x2928,
	"SIGSUSPEND",		0x2a28,
	"GETGROUPS",		0x2b28,
	"SETGROUPS",		0x2c28,
	"SYSCONF",		0x2d28,
	"PATHCONF",		0x2e28,
	"FPATHCONF",		0x2f28,
	"RENAME",		0x3028,
);

%r = reverse %t;

foreach $n (sort bynum keys %r) {
	$k = $r{$n};
	printf "%-15s %3d\n",  "\L$k", int($n/256);
}

sub bynum {
	$a <=> $b
}
@
