Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-03 - decus/20-0088/pilunv.unv
There is 1 other file named pilunv.unv in the archive. Click here to see a list.
x
,5;@PCl  **R
	JRST	[M*(OVEI	T1,A
	JRST	PUNT]A
	JRSTEV0@EV6GNc@ (G+-\  G6Mc@ $G7-M &G:
	C	*,TAG2h,EATAG
	C	T,TYPE3,TYPE2
	C	TY,TYP3HEY,TYPYN2
	C	Y,T3hYPEY,TYPYN2
	C	T4N,TYPEN,TYPYN2
	4(C	N,TYPEN,TYPYN2
	C	J,JMP,JMP2
	4hC	JY,JY,JYN2
	C	5JN,JN,JYN2
	C	U,5(GOSUB,GOSUB2
	C	5HUY,GOSBY,GOYN2
	5hC	UN,GOSBN,GOYN2
	C	L,LINK,WASTE26(
	C	LY,LINKY,LYN6H2
	C	LN,LINKN,LY6hN2
	C	S,ENTRYP,W7ASTE
	C	D,DIMENS7(,WASTE
	C	A,ACCE7HPT,ACEPT2
	C	AL,7hALINE,ALINE2
	C	8M,MATCH,MATCH2
	8(C	ME,ME,MATCH2
	8HC	MG,MG,MATCH2
	8hC	ML,ML,MATCH2
	9C	C,COMPUT,COMP2
	C	CY,CY,CYN2
	9HC	CN,CN,CYN2
	C	9hE,EX,EXIT2
	C	EY:,EY,EYN2
	C	EN,E:(N,EYN2
	C	EC,EC,:HEC2
	C	EL,EL,EXI:hT2
	C	EQ,EQ,EXIT;2
	C	OI,OPENIN,O;(PEN2
	C	OO,OPENO;HT,OPEN2
	C	G,GET;hIT,GET2
	C	GY,GY<,GYN2
	C	GN,GN,G<(YN2
	C	GC,GC,GET<H2
	C	GR,GR,GET2
	C	GD,GD,GET2
	=C	GT,GT,GET2
	C	=(GL,GL,GET2
	C	P,=HPUTIT,GET2
	C	PY=h,PY,GYN2
	C	PN,P>N,GYN2
	C	CS,STR>(,GET2
	C	BS,UNST>HR,GET2
	C	I,TRAP>hIT,TRAP2
	C	IY,T?RAPY,TRPYN2
	C	I?(N,TRAPN,TRPYN2
	?HC	NUM,NUMX,WASTE
	C	R,WASTE,WASTEC	R,WASTE,WASTEG>e{@P G>mX P G>n@  GBf\g "GC.: @GHP I>eH9P KbNC@ L@ L8qcBP L9H3P L:{8P L:%yP L:LKP L:t;yP L:vH3P L;87P L;QP L;{P L;-iP M$ -+
	FX	2TAG-(,MULTIPLY DEFINED-H TAG
	FX	DISS,FI-hLE DISSAPPEARED!
	FX	NTAG,NO TAG .(FOUND
	FX	SYOV,S.HYMBOL TABLE OVERF.hLOW -- COMPILER E/RROR
	FX	UNDF,UN/(DEFINED TAG
	FX	/HSYNC,MEMORY OUT O/hF SYNC -- COMPILE0R ERROR
	FX	NCOR0(,NOT ENOUGH CORE 0HFOR PROGRAM
	FX	0hIDLM,NO COMMA IN 1STRING
	FX	COMP,1(ILLEGAL COMPUTE S1HYNTAX
	FX	...$,$1h IN TAG
	FX	SCAN,BAD OPCODE
ANMP M0t8vP MHt+vP MHt[RP  MHt[sP @MHt{P MHuP MHuyP MHuLzP MHuX8P MHukP MHv@P MHv=8P MHvH6P @0MHvH:P @MHvKP MHvMP  MHvMP M` 2(+
	F.A==ZZ
	ZZ==ZZ+1==ZO!` O$3@ 
O$C@ O%C@ O&#@ 

O&C@ O2|,` %*L
GLOB <LI%(NE,LOC,IBUF,LOOKI%HT,PROGRM,SYMTAB,T%hAGSIZ>
GLOB <LST&BUF,PASS1B,EDLINE&(,LINCNT,PAGE,SUBP&HAGE,PAGSIZ>
GLOB&h <START,FSTLOC,LI'TLOC,ENDLOC,ERROR'(S,SYMAX>
GLOB <R'H50NAM,RDX51,STRTI'hM,OBUF,RELNAM,REL(EXT,COMND>
GLOB ((<FILNAM,FILEXT,DE(HVICE,LSTNAM,LSTEX(hT,LSTDEV,LASTOP>
GLOB <PPN,TBUF,T)(MPPTR,PDL,SVJBFF,)HLODREL,CHKCPU,ENDLOW,.HELPR>,ENDR@ S8P S8p  S:$^ @U3@ Y

@ YP Y>9` YO P [$: @[$s@ f[%C@ b['@ `[>uX1 ,(*d
	XALL
	,HIRP A,<ASCII /-A-/ >
	SALL/-] 7`#>
	IFNDEF	A,<A==B>
F	]6C@ `]6Ig h]6K d_W P _W!` @`@ `D@ `H@ `L@ `P@ a>:=P ad[@Q `a&dYP Aa&eZ7P a&fi9P a&fzP a+= +aW!` `cVNC@ gB

9 P gR~)  *h*X
	PUSHJ	P+,[MOVE	T1,[A]
	JRST	STOREX]
	gSc@ g\ +H*^
	XALL
	+hXWD	"A",B
	SALL	"A",B
	SALgflP dhD@ hH@ hL@ hP@ iP i>:=P i70P iJ@ k;LG mKc@ h((BYTE (3)AWHO (9)AVER (6)AMIN (18)AEDTmPP n@ o?0P 
uhP Bfi9Q A;&K !*$

TITLE !(A - PILOT B(C)!H * BRUCE TANNER -!h CERRITOS COLLEGE"

	SEARCH JOBDA"(T,MACTEN

	IFID"HN <A> <PILOT INI"hTIALIZATION>,<
	#LOC .JBVER
	EXP #(%PLVER
	.REQUEST#H HELPER
>
IF2, #h<PRINTX A ON PAS$S 2
>

	TWOSEG$(
	RELOC 400000
$H
	GLOBS
	SALL
	GLOBS
	SALL
S@P RNK )s
..TTL (0A,\PILVER,\PILEDT)
LVER,\PILEDTVu@ h)l
UNIVERSAL PILUNV -  PILOT( UNIVERSAL PARAMEHTER FILE - PILOT A(B) 

LOT >}{woP