Google
 

Trailing-Edge - PDP-10 Archives - bb-l014w-bm_tops20_v7_0_atpch_23 - autopatch/acjsym.unv
There are no other files named acjsym.unv in the archive.
x
,UJ@P CJ=I7P EV8 A "
	IFIDN <aA>,<HLT>,<
		CALL [	JSR BUGHLT
 			ASCIZ/B/
			@ASCIZ/C/]
	>			`;End of IFIDN
	IFDIF <A>,<HLT>,< PRINTX ?Bad BUG macro>
ad BUG mEV=I7P @G.91Q  I,|{P K7p v2
	HRROI Tv!1,[ASCIZ |A|]
	ESOUT%
A|]
	KJu| xAD
	ERJMP a
a:!	ERJMP KK1P$KKP$KK< x@
	ERJMP a+1
a:!RJMP M.91P @M0,uQ M0,I7Q  M0,\YQ M0,h4Q M0-kQ @M0-k`Q @M0-ktQ  M0.:7Q M0.[ZQ MT,[PQ  MT,{uQ MT.vQ MT.9:Q @O%*1P OexY a!
	.XCREF

	DEFINE QEXT ( SYM)<
		IRP SYM,@<
		.IF SYM,NEED`ED,<EXTERN SYM> ;Symbol is extern  if not defined
	@	.IF SYM,LABEL,<I`NTERN SYM> ;Symbol is intern if a  label
		>		;End @of IRP SYM
	>			`;End of DEFINE QEXT

;Routines i n ACJDEC called g@lobally.

	QEXT` <GETINF,ISOUT,JS	ERR1,LOGTAR>
	QE	 XT <OCAPAB,OCRLF,	@OCOMMA,ODEC,ODEVS	`T,ODIRST,OGETJI>

	QEXT <OLDEC,OLO
 CT,OLPPN,ODEC,OOC
@T,OPPN,OODTIM,OSI
`XBI,OSPACE>
	QEXT <PRSBIT,PRSDEC, PTEXT,SECFIL,SHOB@IT,SHODEC,SENLOG,`SPYON>
	QEXT <WR
IBIT,WRIDEC,WTBLU
 K>

;Routines i
@n ACJUSR called g
`lobally.

	QEXTUNU,USRLOG,U

;DataJiR used glo

	QEXT <ENAAOB,ENADEF,ENA NOT,ENASHO,ENATBL@,ENAKEY>
	QEXT <`FUNAOB,FUNCTB,FUNCOD,FUNCTB,FUNKEY ,FUNLOG,FUNTBL,FU@NTMO,FUNTST>
	QE`XT <USEAOB,USEDEF,USEKEY,USENOT,US EPRS,USESHO,USETB@L,USEWRI>
	
;Da`ta in ACJDEC used globally.

	QE XT <ACRLF,ARGBLK,@CJBLK,CHNTAB,CTYL`NO,FUNCTB,JIBLK,LOGIDX,MAXPTY>
	Q EXT <OPRUNO,OURNA@M,PRIMEB,PRIMEE,T`EXTBP,TEXTBU,TJBLK,TTYPTY>
	QEXT  <USRNUM,USRPRO,US@RSTG,USRSTR,USRTBL>

STR,USRTBQ&=r q"
	IFE CODq!SEC,<
		XLIST		;q@Turn off listing q`of literals
		LIrT		;Dump literalsr  in low seg
		LIr@ST		;Turn on listr`ing
		RELOC		;Dos a reloc statemens t to get to high s@seg
	>			;End ofs` IFN CODSEC 
	COtDSEC==1		;We are t now in high section
 high sectiS:67Q ?xU'@P UN.,W yj
IFB <C>y!,<
	IFB <B>,<
y@	ERCAL [	JSP CX,Jy`SERR1
		ASCIZ/Az: /]
	>; End of z IFB <B>
	IFNB <z@B>,<
	ERCAL [	Mz`OVEI CX,[ASCIZ/A{: /]
		CALL JSER{ R1
		B
		RET]
	>; End of IFNB {`<B>
>;End of IF|B <C>
IFNB <C>| ,<
	ERJMP [	MOVE|@I CX,[ASCIZ/A: /|`]
		CALLJSERR1