Google
 
Trailing-Edge - PDP-10 Archives - QT020_T20_4.1_6.1_SWSKIT_851021 - swskit-tools/zsubs.unv
There are 4 other files named zsubs.unv in the archive. Click here to see a list.
x
,Q!@P C *)J\		
IFB	<*IC>,<
	XWD	[ASCIZ*h/A/],B
>
IFNB+	<C>,<
	XWD	[EX+(P	CM%FW!<C>
		 +HASCIZ/A/],B
>
IZ/A/],B
>3Z G>tlV  G`@ I}' @I}: $iJ*	
	IFB <%	B>,<	DECOU.	0,A>%(
	IFNB <B>,<	DECOU.	B,A>
DEI6= `&
	A==<-1` B<C>+1B<C-D>> `@
	IF1,<IFDEF %A``,<PRINTX ?A ALREaADY DEFINED>>
	Da EFINE %A (OP,AC,a@Y,MSK)<
	$A==<Za` B>		
	OP (<AC>,B'Y,MSK)><AC>KK|@ "iJERROR.	[ASCIZ\A\]OR.	[ASKK|G L@ S;$:P Y+g  Y+y #)JLERRO.	[ASCIZ\A\]RO.	[AS]>N9  )iJNNOISE.	[ASCIZ\A\]SE.	[AS]>N9' _%}'  _%}: #iJ"	
	IFB <$	B>,<	OCTOU.	0,A>$(
	IFNB <B>,<	OCTOU.	B,A>
OC`@ `D@ `H@ `L@ `P@ `T@ `X@ a9  `af:=P  aJMm IpPRINT.	[ASCIZ\A\]NT.	[ASaJMm  aK%)G @aK%)W 'iJB	
	IFB <(	B>,<	PRTJF.	0,A>((
	IFNB <B>,<	PRTJF.	1,A>
	PRaOr @bD@ bH@ bL@ e`P g$Z `gR$g ;3d
F=:0
T1; =:1
T2=:2
T3=:3;@
T4=:4
Q1=:5
Q;`2=:6
Q3=:7
P1=:<10
P2=:11
P3=:1< 2
P4=:13
P5=:14<@
P6=:15
CX=:16
P=:17
CX=:16hH@ hL@ hP@ i,0 &iJ:	
	IFB <'	B>,<	TDEC.	0,A>
	IFNB <B>,<	TDEC.	B,A>
	TDEi,3@ iF@ ,	Jb		
	XLIST,)
	ASCIZ\A\
	LIST
IZ\A\
	LIi>@ %iJ2	
	IFB <&	B>,<	TOCT.	0,A>
	IFNB <B>,<	TOCT.	B,A>
	TOCi>C@ `iOr  ic%I7P pigP AItTYPE.	[ASCIZ\A\]PE.	[ASCigS@ @ig)G `ig)W (iJJ	
	IFB <)	B>,<	TYPJF.	0,A>)(
	IFNB <B>,<	TYPJF.	1,A>
	TYkV|`QPkV}m6Qo`m%Pm:7	@m6\A\]RN.	[ASCoc@ `	&u ,iK		
	.REQU-	IRE ZSUBS		
	EXT-(ERN	$INIT.		
	EX-HTERN	CMDBLK,JFNBL-hK,TXTBUF,ATMBUF 
	EXTERN	.EXIT,.P.(USH,.TAKE	
	EXTE.HRN	LEVTAB,CHNTAB,.hSAVPSI	
	EXTERN	/LOSE		
	EXTERN	O/(JFN		
	EXTERN	JF/HNTMP		
	EXTERN	P/hDL		
	EXTERN	DOF0ORK		
	EXTERN	CO0(MMND		
	EXTERN	T0HAKINI		
	EXTERN	0hTAKJFN		

	JSP	CX,$INIT.	
SP	W-x1  J
	$UUOAC= 1=<Z .JBUUO>		
	 PA (<B>,.JBUUOC,D)B>,.JBUUOC,W-{Z 	I|
	$UUONUM)==<Z .JBUUO>		
	HA (<B>,.JBUUOC,D)B>,.JBUUOCS@P >}{woP