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

MACRO
	Lefthalf =	18,18 $,
	Righthalf =	00,18 $,
	Address(name) =	name<0,0> $,
	Print(z) =	TTCALL(3,PLIT ASCIZ Z) $,
	Cprint(z) = 	Otschn(Plit asciz z) $,
	Getab(ac) =	CALLI(ac,#41) $,
	Trmno(ac) =	CALLI(ac,#115) $,
	Trmop(ac) =	CALLI(ac,#116) $,
	Jobsts(ac) =	CALLI(ac,#61) $,
	Pjob(ac) =	CALLI(ac,#30) $,
	Clrbfi =	TTCALL(#11,0) $,
	Usern(p1,p2,pa1,pa2) = ((p1 EQL pa1) AND (p2 EQL pa2)) $,
	Auser(part1,part2) = Usern(.Acct[accnm1],.Acct[accnm2],part1,part2) $,
	Stop =		CALLI(0,#12) $,
	Monitor =	CALLI(1,#12) $,
	Reset =		Psires() $,
	Filop(ac) =	CALLI(ac,#155) $,
	Outs(addr) = 	TTCALL(3,addr) $,
	Devnam(ac) =	CALLI(ac,#64) $,
	Jobstr(ac) =	CALLI(ac,#47) $,
	Sleep(ac) =	CALLI(ac,#31) $,
	Enq(ac) =	CALLI(ac,#151) $,
	Run(ac) =	CALLI(ac,#35) $,
	Getppn(ac) =	CALLI(ac,#24) $,
	Tmpcor(ac) =	CALLI(ac,#44) $,
	Dskchr(ac) =	CALLI(ac,#45) $,
	Whereuuo(ac) =	CALLI(ac,#63) $,
	Nodeuuo(ac) =	CALLI(ac,#157) $,
	Resdv(ac) =	CALLI(ac,#117) $,
	Outc(z) =	(REGISTER q; q_z; TTCALL(1,q)) $,
	byteptr(addr)=	(addr)<36,7>$,
	Tab =		Outc("	") $,
	Crlf =		Print('?M?J') $,
	True =		1 $,
	False =		0 $,
	intty=		Begin
				register q;
				ttcall(0,q);
				if (.q geq #141) and (.q leq #172) then
					.q-#40
				else .q
			end$,
	Inchwl(addr) =	TTCALL(4,addr) $,
	Mailwd(wrd,value) = Msg[wrd] _ value $,
	Filblock(blknam,filnam,ext,prot,ppn)=
		blknam[0]_Sixbit filnam;
		blknam[1]_ext;
		blknam[2]_prot;
		blknam[3]_ppn; $,
	Bittst(adr,bit)=(adr<35-bit,1> NEQ 0) $,
	Bitset(adr,bt)=adr<35-bt,1> $,
	Proccmd(var,cmd,uni)=
		if unique(.var,sixbit cmd,uni) then var _ sixbit cmd $,
	Prvbt2(bit)=(.ACCT2[accprv]<35-bit,1> NEQ 0) $,
	Prvbit(bit)=(.ACCT[accprv]<35-bit,1> NEQ 0) $;