Google
 
Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - build/pltprm.unv
There are 3 other files named pltprm.unv in the archive. Click here to see a list.
x,5@P C2}i P C@@ CJ>0 P!]
	ARG.L=1PA5
	CNT.=0
	IRP P`A,<
	A=ARG.L-CQNT.
	CNT.=CNT.+1Q >
	IRP A,<
	MOQ@VE	ARG.L,-15-CNT.Q`(P)
	ARG.L=ARG.LR-1
	CNT.=CNT.-1>
	CNT.=CNT.-1>G>t90P GC(P GWMYP I]YP I]YP Ii9P KK|@ e^8
IFE CONCe!EA,<
	XCT	0,FOREe@R.##	;PROCESS A e`ERROR
>
IFN CONfCEA,<
	XCT	ER%Af ,FORER%##	;PROCESf@S A ERROR
>
	Cf`AI	B,D(C)	;SEVgERITY CODE AND ERROR D
	AND ERLEJ1P LQJ1P M?}A  M?}MVt= gA^P
	SALL
	gaC.....=0
	IRP Bh,<C.....=C.....+1h >
	IF2,<IFNDEF h@A,<EXTERNAL A>>
	IFNB <B>,<
	PiUSH	P,L
	MOVEI	Li ,[XWD -C.....,0
i@		IRP B,<B>]+1>i`
	PUSHJ	P,A
	IjFNB <B>,<
	POP	P,L>B>,<
	POP	MVt=	 TA]|
;	SALL
Ta	T.....=0
	ST...U.=1
	IF2,<IFNDEFU  A,<EXTERNAL A>U@>
	IFNB <B>,<
U`	PUSH	P,AP
	IRP	VB,<IFIDN <B> <$V 1>, <ST....=0>
	V@	   IFIDN <B> <$V`2>, <ST....=-1>
W		   IFDIF <B> <W $1>,<
			IFDIF <W@B> <$2>,<
			  W` IFG ST....,<PUSHX	P,B
			   T...X ..=T.....+1
>
	X@		   ST....=1>>>
	R.....=0
	   IYRP  B,<IFIDN <BY > <$1>, <ST....=0Y@>
		   IFIDN <BY`> <$2>, <ST....=-Z1>
		   IFDIF <Z B> <$1>,<
			IFDZ@IF <B> <$2>,<
	Z`		   IFE ST....,<......=T......+1[ 
				    PUSH	P,[@B>
			   IFL ST[`....,<T.....=T...\..+1
				    PUS\ H	P,[B]>
			   \@IFG ST....,<T....\`..=T......+1
			]		R.....=R.....+1] 
					HRRZI	AP,-]@T.....+R.....+1(P]`)
					PUSH	P,AP^
>
			   ST....^ =1>>>>
	MOVEI	AP^@,-T.....+R.....+1^`(P)
	PUSHJ	P,A
	IFNB <B>,<
	S_ UB	P,[T.....,,T.._@...]
	POP	P,AP>..]
	POP	P,AP>O>|H\ n!^r
	POPJ	P,A
	POPJ	P,QeK` jA^n
	SALL
	jaIFNB <B>,<IFIDN k<B>,<.>,<SIXBIT k /A/
				 ENTRY k@A.
				 A.:>
k`		  IFDIF <B>,<.l>,<SIXBIT /B/
	l 			 ENTRY A
			l@	 A:>
		 >
	IFl`B  <B>,<SIXBIT /mA/
		  ENTRY	Am 
		  A:>
IFN Fm@40LIB,<
	CAIA
	m`PUSH	P,CEXIT.##
>
P,CEXIT.##
Q&e}`P W
P W%
P X@ Y>=1 RA] 
	C.....=Ra0
	IFNB <B>,< ISRP B,<C.....=C..S ...+1
			 PUSH	PS@,B>>
	PUSHJ	P,S`A 
	IFN C.....,<T SUB	P,[C.....,,C.....]>
...,,CYC P `@ a`P a+= +a? ba^
	SUB	P,[c15,,15]
	HRLZ	APc ,P
	ADD	AP,[1,,2]
	BLT	AP,16,2d@@ dD@ eKy `A^
	IRP A,<	POP	P,A> A,e&\W b!^
	JRST	RAX$##
	JRST	RAg4 a^
	HRRZ	R0a!,P
	ADD	R0,[2,,1a@]
	BLT	R0,16(P)
	ADD	P,[15,,15]	ADD	P,[15,,15]g4P `^
	IRP A,<	PUSH	P,A>A,ggI;A ggh@@ hD@ S@P *D A  *D *i@A  *i@*

VA  *

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