Google
 
Trailing-Edge - PDP-10 Archives - k20v7d - unsupported/zsubs.unv
There are 4 other files named zsubs.unv in the archive. Click here to see a list.
x
,5!@P C <yCq		
IFB	<=C>,<
	XWD	[ASCIZ=8/A/],B
>
IFNB=X	<C>,<
	XWD	[EX=xP	CM%FW!<C>
		 >ASCIZ/A/],B
>
IZ/A/],B
>3Z G>tlV  G`@ I}' @I}: 79C?	
	IFB <7YB>,<	DECOU.	0,A>7x
	IFNB <B>,<	DECOU.	B,A>
DEI6= VP%C
	A==<-1VpB<C>+1B<C-D>> W
	IF1,<IFDEF %AW0,<PRINTX ?A ALREWPADY DEFINED>>
	DWpEFINE %A (OP,AC,XY,MSK)<
	$A==<ZX0 B>		
	OP (<AC>,B'Y,MSK)><AC>KK|@ 59C+ERROR.	[ASCIZ\A\]OR.	[ASKK|G L@ S;$:P Y+g  Y+y 5yC/LERRO.	[ASCIZ\A\]RO.	[AS]>N9  <9CcNOISE.	[ASCIZ\A\]SE.	[AS]>N9' _%}'  _%}: 69C7	
	IFB <6YB>,<	OCTOU.	0,A>6x
	IFNB <B>,<	OCTOU.	B,A>
OC`@ `D@ `H@ `L@ `P@ `T@ `X@ a9  `af:=P  aJMm 0QCPRINT.	[ASCIZ\A\]NT.	[ASaJMm  aK%)G @aK%)W :9CW	
	IFB <:YB>,<	PRTJF.	0,A>:x
	IFNB <B>,<	PRTJF.	1,A>
	PRaOr @bD@ bH@ bL@ e`P g$Z `gR$g 1P3
F=:0
T11p=:1
T2=:2
T3=:32
T4=:4
Q1=:5
Q202=:6
Q3=:7
P1=:2P10
P2=:11
P3=:12p2
P4=:13
P5=:143
P6=:15
CX=:16
P=:17
CX=:16hH@ hL@ hP@ i,0 99CO	
	IFB <9YB>,<	TDEC.	0,A>
	IFNB <B>,<	TDEC.	B,A>
	TDEi,3@ iF@ >YCw		
	XLIST>y
	ASCIZ\A\
	LIST
IZ\A\
	LIi>@ 89CG	
	IFB <8YB>,<	TOCT.	0,A>
	IFNB <B>,<	TOCT.	B,A>
	TOCi>C@ `iOr  ic%I7P pigP 1C	TYPE.	[ASCIZ\A\]PE.	[ASCigS@ @ig)G `ig)W ;9C_	
	IFB <;YB>,<	TYPJF.	0,A>;x
	IFNB <B>,<	TYPJF.	1,A>
	TYkV|`QPkV}m6Qo`m%Pm:7	@m6\A\]RN.	[ASCoc@ `	&u ?9D		
	.REQU?YIRE ZSUBS		
	EXT?xERN	$INIT.		
	EX@TERN	CMDBLK,JFNBL@8K,TXTBUF,ATMBUF 
	EXTERN	.EXIT,.P@xUSH,.TAKE	
	EXTEARN	LEVTAB,CHNTAB,A8SAVPSI	
	EXTERN	AXLOSE		
	EXTERN	OAxJFN		
	EXTERN	JFBNTMP		
	EXTERN	PB8DL		
	EXTERN	DOFBXORK		
	EXTERN	COBxMMND		

	JSP	CX,$INIT.	
SP	CXW-x1 2aC
	$UUOAC=3=<Z .JBUUO>		
	3 A (<B>,.JBUUOC,D)B>,.JBUUOC,W-{Z 1YC
	$UUONUM1y==<Z .JBUUO>		
	2A (<B>,.JBUUOC,D)B>,.JBUUOCS@P >}{woP