Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!Require file containing system-dependant DAP macros, structure defs,etc.
MACRO	CHAR8[C1,C2,C3,C4]=(C1^28)+((C2+0)^20)+((C3+0)^12)+((C4+0)^4) %;
				!Pack 4 8-bit bytes per word

STRUCTURE EX[BT;SIZE]=		!DAP extensible field
	[(SIZE+3)/4]		!Note that size is in bytes
	(EX+(BT/32))<(BT MOD 8)+27-(((BT MOD 32)/8)*9),1,0>;
	!This is to reconcile the fact that on both the -11 and the -10
	!number bits from right to left (in the hardware, at least)
	!but the -10 numbers and stores bytes from left to right.
	!The bits in a word are numbered by this structure as follows:
	!X 07 06 05 04 03 02 01 00 X 15 14 13 12 11 10 09 08	(left half)
	!X 23 22 21 20 19 18 17 16 X 31 30 29 28 27 26 25 24	(right half)

MACRO ANYSET[EXF]=(.EXF<27,9> NEQ 0)%;
	!This macro returns 1 if any bits in an extensible field are set
	!assuming that extension bits are set correctly (see SET_EX_BITS,SETEXB)


STRUCTURE BYTE8VECTOR[I;SIZE]=
	[(SIZE+3)/4]
	(BYTE8VECTOR+(I/4))<28-((I MOD 4)*8),8,0>;
	!4 8-bit bytes per word, left justified, just as ILDB would want

!Default protections (in TOPS-10 format)

LITERAL	DEF_PRO_SYS=0,
	DEF_PRO_OWN=0,
	DEF_PRO_GRP=%O'312003000000',
	DEF_PRO_WLD=%O'337003000000';

%(	!Included here for documentation purposes only

	XB$RDV=0,		! DENY READ ACCESS
	XB$WRV=1,		! DENY WRITE ACCESS
	XB$EXE=2,		! DENY EXECUTE ACCESS
	XB$DLE=3,		! DENY DELETE ACCESS
	XB$APP=4,		! DENY APPEND ACCESS
	XB$LST=5,		! DENY LIST (directory) ACCESS
	XB$UPD=6,		! DENY UPDATE ACCESS
	XB$CNG=8,		! DENY CHANGE PROTECTION ACCESS
	XB$EXT=9;		! DENY EXTEND ACCESS
)%