Google
 
Trailing-Edge - PDP-10 Archives - ap-c796e-sb - pltprm.unv
There are 3 other files named pltprm.unv in the archive. Click here to see a list.
x
,@P C2}i P C@@ CJ>0 ah
	ARG.L=1b5
	CNT.=0
	IRP b(A,<
	A=ARG.L-CbHNT.
	CNT.=CNT.+1bh>
	IRP A,<
	MOcVE	ARG.L,-15-CNT.c((P)
	ARG.L=ARG.LcH-1
	CNT.=CNT.-1>G>t90P GC(P KK|@ vPE
IFE CONCvpEA,<
	XCT	0,FOREwR.##	;PROCESS A w0ERROR
>
IFN CONwPCEA,<
	XCT	ER%Awp,FORER%##	;PROCESxS A ERROR
>
	Cx0AI	B,D(C)	;SEVxPERITY CODE AND ERROR D
	LEJ1P LQJ1P M?}A  M?}MVt= y]
	SALL
	y0C.....=0
	IRP ByP,<C.....=C.....+1yp>
	IF2,<IFNDEF zA,<EXTERNAL A>>
	IFNB <B>,<
	PzPUSH	P,L
	MOVEI	Lzp,[XWD -C.....,0
{		IRP B,<B>]+1>{0
	PUSHJ	P,A
	I{PFNB <B>,<
	POP	P,L>MVt=	 f
;	SALL
f(	T.....=0
	ST...fH.=1
	IF2,<IFNDEFfh A,<EXTERNAL A>g>
	IFNB <B>,<
g(	PUSH	P,AP
	IRP	gHB,<IFIDN <B> <$gh1>, <ST....=0>
	h	   IFIDN <B> <$h(2>, <ST....=-1>
hH		   IFDIF <B> <hh$1>,<
			IFDIF <iB> <$2>,<
			  i( IFG ST....,<PUSHiH	P,B
			   T...ih..=T.....+1
>
	j		   ST....=1>>>
	R.....=0
	   IjHRP  B,<IFIDN <Bjh> <$1>, <ST....=0k>
		   IFIDN <Bk(> <$2>, <ST....=-kH1>
		   IFDIF <khB> <$1>,<
			IFDlIF <B> <$2>,<
	l(		   IFE ST....,<lHT......=T......+1lh
				    PUSH	P,mB>
			   IFL STm(....,<T.....=T...mH..+1
				    PUSmhH	P,[B]>
			   nIFG ST....,<T....n(..=T......+1
			nH		R.....=R.....+1nh
					HRRZI	AP,-oT.....+R.....+1(Po()
					PUSH	P,APoH
>
			   ST....oh=1>>>>
	MOVEI	APp,-T.....+R.....+1p((P)
	PUSHJ	P,A
	IFNB <B>,<
	SphUB	P,[T.....,,T..q...]
	POP	P,AP>O>|H\ p
	POPJ	P,AQeK` |{
	SALL
	|0IFNB <B>,<IFIDN |P<B>,<.>,<SIXBIT |p/A/
				 ENTRY }A.
				 A.:>
}0		  IFDIF <B>,<.}P>,<SIXBIT /B/
	}p			 ENTRY A
			~	 A:>
		 >
	IF~0B  <B>,<SIXBIT /~PA/
		  ENTRY	A~p
		  A:>
IFN F40LIB,<
	CAIA
	0PUSH	P,CEXIT.##
>
Q&e}`P W
P W%
P X@ Y>=1 d,
	C.....=d(0
	IFNB <B>,< IdHRP B,<C.....=C..dh...+1
			 PUSH	Pe,B>>
	PUSHJ	P,e(A 
	IFN C.....,<eH SUB	P,[C.....,,C.....]>
YC P `@ a`P a+= +a? t(&
	SUB	P,[tH15,,15]
	HRLZ	APth,P
	ADD	AP,[1,,2]
	BLT	AP,16d@@ dD@ eKy r
	IRP A,<	POP	P,A>e&\W sh
	JRST	RAX$##g4 rH
	HRRZ	R0rh,P
	ADD	R0,[2,,1s]
	BLT	R0,16(P)
	ADD	P,[15,,15]g4P qH


	IRP A,<	PUSH	P,A>ggI;A ggh@@ hD@ m%P Xmk`P m

VQ Xm~+zP m6MkyP m^EpP S@P *D A  *D *i@A  *i@*

VA  *

V*|A  *|*|A  *|*)6A  *)6*8 A  *8 *LA  *L>}{woP