Google
 
Trailing-Edge - PDP-10 Archives - bb-4157h-bm_fortran20_v10_16mt9 - link/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 Xi]T
	ARG.L=1Y	5
	CNT.=0
	IRP Y(A,<
	A=ARG.L-CYHNT.
	CNT.=CNT.+1Yh>
	IRP A,<
	MOZVE	ARG.L,-15-CNT.Z((P)
	ARG.L=ARG.LZH-1
	CNT.=CNT.-1>
	CNT.=CNT.-1>G>t90P GC(P GWMYP I]YP I]YP Ii9P KK|@ mI^|
IFE CONCmiEA,<
	XCT	0,FOREnR.##	;PROCESS A n(ERROR
>
IFN CONnHCEA,<
	XCT	ER%Anh,FORER%##	;PROCESoS A ERROR
>
	Co(AI	B,D(C)	;SEVoHERITY CODE AND ERROR D
	AND ERLEJ1P LQJ1P M?}A  M?}MVt= p	_
	SALL
	p)C.....=0
	IRP BpH,<C.....=C.....+1ph>
	IF2,<IFNDEF qA,<EXTERNAL A>>
	IFNB <B>,<
	PqHUSH	P,L
	MOVEI	Lqh,[XWD -C.....,0
r		IRP B,<B>]+1>r(
	PUSHJ	P,A
	IrHFNB <B>,<
	POP	P,L>B>,<
	POP	MVt=	 ]	^@
;	SALL
])	T.....=0
	ST...]H.=1
	IF2,<IFNDEF]h A,<EXTERNAL A>^>
	IFNB <B>,<
^(	PUSH	P,AP
	IRP	^HB,<IFIDN <B> <$^h1>, <ST....=0>
	_	   IFIDN <B> <$_(2>, <ST....=-1>
_H		   IFDIF <B> <_h$1>,<
			IFDIF <`B> <$2>,<
			  `( IFG ST....,<PUSH`H	P,B
			   T...`h..=T.....+1
>
	a		   ST....=1>>>
	R.....=0
	   IaHRP  B,<IFIDN <Bah> <$1>, <ST....=0b>
		   IFIDN <Bb(> <$2>, <ST....=-bH1>
		   IFDIF <bhB> <$1>,<
			IFDcIF <B> <$2>,<
	c(		   IFE ST....,<cHT......=T......+1ch
				    PUSH	P,dB>
			   IFL STd(....,<T.....=T...dH..+1
				    PUSdhH	P,[B]>
			   eIFG ST....,<T....e(..=T......+1
			eH		R.....=R.....+1eh
					HRRZI	AP,-fT.....+R.....+1(Pf()
					PUSH	P,APfH
>
			   ST....fh=1>>>>
	MOVEI	APg,-T.....+R.....+1g((P)
	PUSHJ	P,A
	IFNB <B>,<
	SghUB	P,[T.....,,T..h...]
	POP	P,AP>..]
	POP	P,AP>O>|H\ vi_6
	POPJ	P,A
	POPJ	P,QeK` s	_2
	SALL
	s)IFNB <B>,<IFIDN sH<B>,<.>,<SIXBIT sh/A/
				 ENTRY tA.
				 A.:>
t(		  IFDIF <B>,<.tH>,<SIXBIT /B/
	th			 ENTRY A
			u	 A:>
		 >
	IFu(B  <B>,<SIXBIT /uHA/
		  ENTRY	Auh
		  A:>
IFN Fv40LIB,<
	CAIA
	v(PUSH	P,CEXIT.##
>
P,CEXIT.##
Q&e}`P W
P W%
P X@ Y>=1 [	]d
	C.....=[)0
	IFNB <B>,< IRP B,<C.....=C.....+1
			 PUSH	P\,B>>
	PUSHJ	P,\(A 
	IFN C.....,<\H SUB	P,[C.....,,C.....]>
...,,CYC P `@ a`P a+= +a? k)^^
	SUB	P,[kI15,,15]
	HRLZ	APkh,P
	ADD	AP,[1,,2]
	BLT	AP,16,2d@@ dD@ eKy i	^H
	IRP A,<	POP	P,A> A,e&\W ji^V
	JRST	RAX$##
	JRST	RAg4 iI^R
	HRRZ	R0ii,P
	ADD	R0,[2,,1j]
	BLT	R0,16(P)
	ADD	P,[15,,15]	ADD	P,[15,,15]g4P hI^D
	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