Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 6-1/language-sources/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 4AS2
	ARG.L=14a5
	CNT.=0
	IRP 5A,<
	A=ARG.L-C5 NT.
	CNT.=CNT.+15@>
	IRP A,<
	MO5`VE	ARG.L,-15-CNT.6(P)
	ARG.L=ARG.L6 -1
	CNT.=CNT.-1>
	CNT.=CNT.-1>G>t90P GC(P GWMYP I]YP I]YP Ii9P KK|@ I!TZ
IFE CONCIAEA,<
	XCT	0,FOREI`R.##	;PROCESS A JERROR
>
IFN CONJ CEA,<
	XCT	ER%AJ@,FORER%##	;PROCESJ`S A ERROR
>
	CKAI	B,D(C)	;SEVK ERITY CODE AND ERROR D
	AND ERLEJ1P LQJ1P M?}A  M?}MVt= KaTr
	SALL
	LC.....=0
	IRP BL ,<C.....=C.....+1L@>
	IF2,<IFNDEF L`A,<EXTERNAL A>>
	IFNB <B>,<
	PM USH	P,L
	MOVEI	LM@,[XWD -C.....,0
M`		IRP B,<B>]+1>N
	PUSHJ	P,A
	IN FNB <B>,<
	POP	P,L>B>,<
	POP	MVt=	 8aT
;	SALL
9	T.....=0
	ST...9 .=1
	IF2,<IFNDEF9@ A,<EXTERNAL A>9`>
	IFNB <B>,<
:	PUSH	P,AP
	IRP	: B,<IFIDN <B> <$:@1>, <ST....=0>
	:`	   IFIDN <B> <$;2>, <ST....=-1>
; 		   IFDIF <B> <;@$1>,<
			IFDIF <;`B> <$2>,<
			  < IFG ST....,<PUSH< 	P,B
			   T...<@..=T.....+1
>
	<`		   ST....=1>>>
	R.....=0
	   I= RP  B,<IFIDN <B=@> <$1>, <ST....=0=`>
		   IFIDN <B>> <$2>, <ST....=-> 1>
		   IFDIF <>@B> <$1>,<
			IFD>`IF <B> <$2>,<
	?		   IFE ST....,<? T......=T......+1?@
				    PUSH	P,?`B>
			   IFL ST@....,<T.....=T...@ ..+1
				    PUS@@H	P,[B]>
			   @`IFG ST....,<T....A..=T......+1
			A 		R.....=R.....+1A@
					HRRZI	AP,-A`T.....+R.....+1(PB)
					PUSH	P,APB 
>
			   ST....B@=1>>>>
	MOVEI	APB`,-T.....+R.....+1C(P)
	PUSHJ	P,A
	IFNB <B>,<
	SC@UB	P,[T.....,,T..C`...]
	POP	P,AP>..]
	POP	P,AP>O>|H\ RAU
	POPJ	P,A
	POPJ	P,QeK` NaU
	SALL
	OIFNB <B>,<IFIDN O <B>,<.>,<SIXBIT O@/A/
				 ENTRY O`A.
				 A.:>
P		  IFDIF <B>,<.P >,<SIXBIT /B/
	P@			 ENTRY A
			P`	 A:>
		 >
	IFQB  <B>,<SIXBIT /Q A/
		  ENTRY	AQ@
		  A:>
IFN FQ`40LIB,<
	CAIA
	RPUSH	P,CEXIT.##
>
P,CEXIT.##
Q&e}`P W
P W%
P X@ Y>=1 6aSB
	C.....=70
	IFNB <B>,< I7 RP B,<C.....=C..7@...+1
			 PUSH	P7`,B>>
	PUSHJ	P,8A 
	IFN C.....,<8  SUB	P,[C.....,,C.....]>
...,,CYC P `@ a`P a+= +a? GT<
	SUB	P,[G!15,,15]
	HRLZ	APG@,P
	ADD	AP,[1,,2]
	BLT	AP,16,2d@@ dD@ eKy DaT&
	IRP A,<	POP	P,A> A,e&\W FAT4
	JRST	RAX$##
	JRST	RAg4 E!T0
	HRRZ	R0EA,P
	ADD	R0,[2,,1E`]
	BLT	R0,16(P)
	ADD	P,[15,,15]	ADD	P,[15,,15]g4P D!T"
	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