Google
 

Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_FS_1_19910112 - c/kcc5/test.c
There are 14 other files named test.c in the archive. Click here to see a list.
#include <monsym.h>
#define FLDGET(wd,mask) (((unsigned)(wd)&(mask))/((mask)&(-(mask))))

int fdb[monsym(".FBSIZ")];
int a, b;
foo()
{
	a = FLDGET(07700,b);
	b = FLDGET(a, 070);
	return FLDGET(fdb[monsym(".FBBYV")],monsym("FB%BSZ"));
}