Google
 
Trailing-Edge - PDP-10 Archives - BB-H311C-RM - swskit-utilities/zsubs.unv
There are 4 other files named zsubs.unv in the archive. Click here to see a list.
x
,5!@P C h	J		
IFB	<h)C>,<
	XWD	[ASCIZhH/A/],B
>
IFNBhh	<C>,<
	XWD	[EXiP	CM%FW!<C>
		 i(ASCIZ/A/],B
>
IZ/A/],B
>3Z G>tlV  G`@ I}' @I}: bI	
	IFB <biB>,<	DECOU.	0,A>c
	IFNB <B>,<	DECOU.	B,A>
DEI6= `!d
	A==<-1B<C>+1B<C-D>>  
	IF1,<IFDEF %A@,<PRINTX ?A ALRE`ADY DEFINED>>
	DEFINE %A (OP,AC, Y,MSK)<
	$A==<Z@ B>		
	OP (<AC>,B'Y,MSK)><AC>KK|@ `IERROR.	[ASCIZ\A\]OR.	[ASKK|G L@ S;$:P Y+g  Y+y a	LERRO.	[ASCIZ\A\]RO.	[AS]>N9  gI<NOISE.	[ASCIZ\A\]SE.	[AS]>N9' _%}'  _%}: aI	
	IFB <aiB>,<	OCTOU.	0,A>b
	IFNB <B>,<	OCTOU.	B,A>
OC`@ `D@ `H@ `L@ `P@ `T@ `X@ a9  `af:=P  aJMm [a^PRINT.	[ASCIZ\A\]NT.	[ASaJMm  aK%)G @aK%)W eI0	
	IFB <eiB>,<	PRTJF.	0,A>f
	IFNB <B>,<	PRTJF.	1,A>
	PRaOr @bD@ bH@ bL@ e`P g$Z `gR$g N(,~
F=:0
T1NH=:1
T2=:2
T3=:3Nh
T4=:4
Q1=:5
QO2=:6
Q3=:7
P1=:O(10
P2=:11
P3=:1OH2
P4=:13
P5=:14Oh
P6=:15
CX=:16
P=:17
CX=:16hH@ hL@ hP@ i,0 dI(	
	IFB <diB>,<	TDEC.	0,A>
	IFNB <B>,<	TDEC.	B,A>
	TDEi,3@ iF@ iiP		
	XLISTj	
	ASCIZ\A\
	LIST
IZ\A\
	LIi>@ cI 	
	IFB <ciB>,<	TOCT.	0,A>
	IFNB <B>,<	TOCT.	B,A>
	TOCi>C@ `iOr  ic%I7P pigP \!bTYPE.	[ASCIZ\A\]PE.	[ASCigS@ @ig)G `ig)W fI8	
	IFB <fiB>,<	TYPJF.	0,A>g
	IFNB <B>,<	TYPJF.	1,A>
	TYkV|`QPkV}m6Qo`m%Pm:7	@m6\A\]RN.	[ASCoc@ `	&u jIp		
	.REQUjiIRE ZSUBS		
	EXTkERN	$INIT.		
	EXk(TERN	CMDBLK,JFNBLkHK,TXTBUF,ATMBUF 
	EXTERN	.EXIT,.PlUSH,.TAKE	
	EXTEl(RN	LEVTAB,CHNTAB,lHSAVPSI	
	EXTERN	lhLOSE		
	EXTERN	OmJFN		
	EXTERN	JFm(NTMP		
	EXTERN	PmHDL		
	EXTERN	DOFmhORK		
	EXTERN	COnMMND		

	JSP	CX,$INIT.	
SP	CXW-x1 ]qs
	$UUOAC=^=<Z .JBUUO>		
	^0A (<B>,.JBUUOC,D)B>,.JBUUOC,W-{Z \ij
	$UUONUM]	==<Z .JBUUO>		
	](A (<B>,.JBUUOC,D)B>,.JBUUOCS@P >}{woP