PDP-10 Archive: tools/tell10/macros.unv from LCG_Integration_Tools_Clearinghouse_T20_v7

Trailing-Edge - PDP-10 Archives - LCG_Integration_Tools_Clearinghouse_T20_v7_30Apr86 - tools/tell10/macros.unv

There are 12 other files named macros.unv in the archive. Click here to see a list.

x
,!@P C@@ G@ G@ Kc  E0/
	IRP A,EP<
		IF2,<IFNDEF EpA,<EXTERN A>>
	>Q&=P$Y?8P [[[Q [&$[Z 1(CF)>[8 F05
	IFNDEF FPA,<DEFINE A,B>
	] Dp'
	IFNDEF A,<A==B>
	_@(P Ks

	.XCREF

IFE	B	<
	JFCK0L		;ZERO MASK IS KPA NO-OP.
>
IFN	KpB	<
IFE	777777&L<B>,<
	.CREF
	L0C	A,(B)
	.XCRLPEF
>
IFE	777777LpB17&<B>,<
	.CREMF
	D	A,B
	.XM0CREF
>
IFN	<777MP777B17&<B>>,<
IMpFN	<777777&<B>>,N<
	.CREF
	E	AN0,[B]
>>>
	.CREFB]
>>>
	.CREa G9
	ND B,C
	A==B
	a  GPA
	IFNDEF GpB,<PRINTA A,B,HC>
	PD A,B,C
	a@ a+= +aJMm HPI
	PRINTX	Hp%SPRMAC - AssigniIng A [B] = C
	d@@ dD@ dH@ dL@ dP@ dT@ dX@ d\@ eext I0Q
IFL .-HIIPGH,<
  RELOC HIGIpH
>DEFINE RELOCHJ <
IFL .-HIGH,<
   RELOC
>>< JP[
IFGE .-HZpIGH,<
 RELOC LOW[
>DEFINE RELOCL [0<
IFGE .-HIGH,<
   RELOC
>><@ g@@ hD@ hH@ ib WP?
	OP%%	AWp,B,TLC,TRC,TDC
B,TLC,TRC,TDC
ib YpQ
	OP%%	AZ,B,TLCA^,TRCA^,TDCA^
^,TRCA^,TibP X0E
	OP%%	AXP,B,TLCE,TRCE,TDCE
LCE,TRCE,TDCib` YK
	OP%%	AY0,B,TLCN,TRCN,TDCN
LCN,TRCN,TDCibp NPw
	OP%%	ANp,B,TLN,TRN,TDN
B,TLN,TRN,TDN
ibt Pp	
	OP%%	AQ,B,TLNA^,TRNA^,TDNA^
^,TRNA^,TibtP O0}
	OP%%	AOP,B,TLNE,TRNE,TDNE
LNE,TRNE,TDNibu` P
	OP%%	AP0,B,TLNN,TRNN,TDNN
LNN,TRNN,TDNibx TP'
	OP%%	ATp,B,TLO,TRO,TDO
B,TLO,TRO,TDO
ib| Vp9
	OP%%	AW,B,TLOA^,TROA^,TDOA^
^,TROA^,Tib|P U0-
	OP%%	AUP,B,TLOE,TROE,TDOE
LOE,TROE,TDOib}` V3
	OP%%	AV0,B,TLON,TRON,TDON
LON,TRON,TDOicP QP
	OP%%	AQp,B,TLZ,TRZ,TDZ
B,TLZ,TRZ,TDZ
icT Sp!
	OP%%	AT,B,TLZA^,TRZA^,TDZA^
^,TRZA^,TicTP R0
	OP%%	ARP,B,TLZE,TRZE,TDZE
LZE,TRZE,TDZicU` S
	OP%%	AS0,B,TLZN,TRZN,TDZN
LZN,TRZN,TDZ	exz H	$EXTRN
	hIFE A-1,<PUSH SP,[EXP 0]>
	IFE (A-2,<PUSH SP,[EXPH 0]
		    PUSH ShP,[EXP 0]>
	IFG A-2,<b==A
	MO(VEI	T1,b
	JSP	RS,$ALOC%>	JSP	R	X  =		IFLE C,=(
<PRINTX ?SPRMAC=H - Error: Illegal=h B size C
>
	>IFG C-20000,
<P>(RINTX ?SPRMAC - E>Hrror: Illegal B >hsize C
>
	IFID?N <A> <LOCAL>,
?(<	$$%%C1==$NTMP%+?H1
	$NTMP%=$NTMP%?h+C
	$GNRTM B,$@$%%C1,(CF)
	$ALO@(CT C>
	IFIDN <@HA> <GLOBAL>,
<	I@hFL $NSTT%,<MOVEI ACG,1(SP)>
	$$%%CA(1==$NSTT%+1
	$NSAHTT%=$NSTT%+C
	$AhGNRTM B,$$%%C1,(BCG)
	$ALOCT C>
IFDIF <A> <LOCABHL>,<
IFDIF <A> Bh<GLOBAL>,<
PRINTCX	?SPRMAC - UndefC(ined class (A) fCHor area B
	>
	>
	a B
	>
		
,z7

JOBEXT==-1(			;USE EXTERNS IHF TG.SW. IS USED
	RELOCL
c:	BLO CK	B
	RELOCH
 (d:	IOWD	B,c
A H:	TDZA	RS,RS
	SE hTOM	RS
	RESET
	!SETZ	R0,
	SKIPN	!(R1,.JBDDT##		;GET!H END,,BEG OF DDT
	HRLI	R1,.JBDA##"		;IF NONE USE .J"(BDA##,,0
	MOVEI	"HR2,.JBDA##		;GET "hEND OF JOBDATA AR#EA
	HRRZ	R3,R1		#(	;GET END OF FIRS#HT AREA TO CLEAR
#h	CAML	R2,R3			;SE$E IF ANYTHING TO $(CLEAR
	JRST	e		$H	;NONE GO CLEAR S$hECOND PART
	SETZ%M	(R2)			;CLEAR F%(IRST WORD
	HRLS	%HR2			;MAKE BOTH H%hAVES SAME
	AOS	R&2			;BUMP SECOND &(HALF
	CAIE	R3,(R&H2)			;DO WE ONLY &hWANT TO CLEAR A W'ORD
	BLT	R2,-1(R'(3)			;NO CLEAR RE'HST OF FIRST PART
e:	HLRZ	R2,R1		(	;GET START OF SE((COND AREA
	HRRZ	(HR3,.JBSYM##		;GET(h START OF SYMBOL )TABLE
	SOSG	R3		)(	;SKIP IF SYMBOL )HTABLE
	MOVE	R3,.)hJBREL##		;ELSE GE*T END OF CORE
	C*(AML	R2,R3			;SEE *HIF ANYTHING TO CL*hEAR
	JRST	f			;+NONE GO CLEAR AC'+(S
	SETZM	(R2)			+H;CLEAR FIRST WORD+h
	HRLS	R2			;MAK,E BOTH HAVES SAME,(
	AOS	R2			;BUMP,H SECOND HALF
	CA,hIE	R3,(R2)			;DO -WE ONLY WANT TO C-(LEAR A WORD
	BLT-H	R2,(R3)			;NO CL-hEAR REST OF FIRST. PART
f:	MOVEI	.(T2,1			;SET UP BL.HT TO CLEAR AC'S
.h	BLT	T2,T2		;CLEA/R ALL ACS
	MOVE	/(SP,d	;SET UP STA/HCK POINTER
	MOVE/h	CG,SP
	MOVE	PF,0SP
	MOVE	CF,SP
0($%deb1:	push	sp,[0Hsixbit "begin"]	;allow $area
	;	h~	$EXTRN
	PUSHJ	SP,[MOVEI	R(S,A
	$$%%C1==0
	IRP B<$$%%C1==h$$%%C1+1>
	IFG $$%%C1,<
	MOVEI	A(P,[EXP  $$%%C1
	HIRP B<$$%%C2==0
	%%INDR==0
	IFGE <<B> - 2000000(0>,<%%INDR==1>
	HIFN %%INDR,<%%ARGh==<B>-20000000>
	IFE %%INDR,<%%A(RG==<B>>
	IFE %H%ARG-R0,<$$%%C3==h-10
			$$%%C2==1>
	IFE %%ARG-R1,(<$$%%C3==-7
			$H$%%C2==1>
	IFE %h%ARG-R2,<$$%%C3==-6
			$$%%C2==1>(
	IFE %%ARG-R3,<H$$%%C3==-5
			$$h%%C2==1>
	IFE %%	ARG-R4,<$$%%C3==-	(4
			$$%%C2==1>
	IFE %%ARG-R5,<$	h$%%C3==-3
			$$%
%C2==1>
	IFE %%A
(RG-R6,<$$%%C3==-2
H
			$$%%C2==1>

h	IFE %%ARG-R7,<$$%%C3==-1
			$$%%(C2==1>
	IFN $$%%HC2,<
	IFE %%INDRh,<Z $$%%C3(CF)>

	IFN %%INDR,<Z @$

($%%C3(CF)>>
	IFE

H $$%%C2,<
	IFN <

h<%%ARG>B-^D18>-<C
	IFEA<>%-^D18>-<C
				  $$%%C3==<<$$%%C3>(_-^D18>
	IFE %%IHNDR,<Z $$%%C3(PF)h>
	IFN %%INDR,<Z @$$%%C3(PF)>>
>(>]>
	IFE $$%%C1,H<
	MOVEI	AP,[EXPh	0]>
	PJRST	$SAVE%]
	PJRST	$SAV	,; 8HdIFIDN <A>8h <LOCAL>,
<	$$%%9C1==$NTMP%
	IRP 9(B,<$NTMP%=$NTMP%9H+1
	$GNRTM	B,$N9hTMP%,(CF)>
	$$%%:C2==$NTMP%-$$%%C1:(
	$ALOCT	$$%%C2>:H

IFIDN <A> <G:hLOBAL>,
<	$$%%C1;==$NSTT%
	IFL $N;(STT%,<MOVEI CG,1(;HSP)>
	IRP B,<$N;hSTT%=$NSTT%+1
	$<GNRTM	B,$NSTT%,(<(CG)>
	$$%%C2==$N<HSTT%-$$%%C1
	$ALOCT	$$%%C2>
	L	vL\ (A:
IF2,<H
 DEFINE ..ENT
h    <PRINTX	[Processing subroutine( A]
>
..ENT
>H
	$NTMP%=1
	$NShTT%=-1
	PUSH	SP,[SIXBIT /A/]
	$($%%C1==0
	IRP BH<$$%%C1==$$%%C1+1h
	$GNRTM B,$$%%C1,(AP)>B,$$%%	h6 5H.(SIXBIT "5hA")
S..A==:.
")
S..A==:.
	+y D 
PUSHJ	SP,$EROR%PUSHJ	SP	FLW `HIFNDEF	$XT`hRN%,
<IFNDEF	%%LaBRY,
<	EXTERN	$Aa(LOC%
	EXTERN	$ERaHOR%
	EXTERN	$SAVahE%
	EXTERN	$RTRN%
	$XTRN%==1>>	v- 	d==B
	DEFINE A<dC>	2\Y ehl
%L.TB$:
	[ASCIZ	/(0) Filf(e was not found/]fH
	[ASCIZ	/(1) Nofh such directory egxists/]
	[ASCIZ	g(/(2) File is protgHected/]
	[ASCIZ	gh/(3) File is beinhg modified/]
	[Ah(SCIZ	/(4) File alhHready exists withhh that name/]
	[AiSCIZ	/(5) LOOKUP i(tried after an ENiHTER - illegal seqihuence/]
	[ASCIZ	j/(6) Directory rej(ad error or bad RjHIB/]
	[ASCIZ	/(7jh) Not a save filek/]
	[ASCIZ	/(10)k( Not enough core/kH]
	[ASCIZ	/(11) khDevice not availalble/]
	[ASCIZ	/(l(12) No such deviclHe/]
	[ASCIZ	/(13lh) Illegal UUO - Nmo 2-register hardm(ware/]
	[ASCIZ	/mH(14) No room on smhtructure or quotan exceeded/]
	[ASn(CIZ	/(15) StructunHre is write-lockenhd/]
	[ASCIZ	/(16o) Monitor free coo(re exhausted/]
	oH[ASCIZ	/(17) Alloohcation was partiapl only/]
	[ASCIZp(	/(20) Block not pHfree on allocatedph position/]
	[ASqCIZ	/(21) Cannot q(supersede an exisqHting directory/]
	[ASCIZ	/(22) Carnnot delete a nonr(-empty directory/rH]
	[ASCIZ	/(23) rhSub-File Directorsy was not found/]s(
	[ASCIZ	/(24) SsHearch list is empshty/]
	[ASCIZ	/(2t5) Cannot create t(another SFD leveltH/]
	[ASCIZ	/(26)th All structures iun search list areu( NOCREATE or NOWRuHITE/]
	[ASCIZ	/(uh27) Cannot GETSEGv from locked low v(segment to disk-rvHesident high segmvhent/]
	[ASCIZ	/(w30) File cannot bw(e updated/]
	[ASwHCIZ	/(31) Low segwhment overlaps higxh segment/]
	[ASx(CIZ	/(32) Not logxHged in/]
	[ASCIZxh	/(33) File stilly has outstanding y(locks set/]
	[ASyHCIZ	/(34) Bad .EXyhE file directory/z]
	[ASCIZ	/(35) z(Bad extension forzH .EXE file/]
	[AzhSCIZ	/(36) .EXE d{irectory too big/{(]
	[ASCIZ	/(37) {HNetwork capacity {hexceeded/]
	[ASC|IZ	/(40) Specifie|(d task is not ava|Hilable/]
	[ASCIZ|h	/(41) Specified }network node is u}(ndefined/]
%L.SZ}H$==.-%L.TB$-1

=.-%L.TB$-1

	2\[S bH*
	IFDEF	%bhL.TB$,<
	HRRZ	ac,b	
	CAIG	a,%Lc(.SZ$	
	SKIPA	a,cH%L.TB$(a)	
	MOVchEI	a,[0]		
	>
d	IFNDEF	%L.TB$,<
	PRINTX	<?SPRMACdH - Call to $LKENFdh without $LKEDF ceall>
	MOVEI	a,[e(0]		
	>;END IFNDEF %L.TB$
IFND	J.LW 6(@	$EXTRN
	6HIFNB	<A>,
<	IFD6hIF	<RS> <A>,
<	7JRST	[MOVE	RS,A
	JRST	$RTRN%+1]>7H>
	IFIDN	<RS> <7hA>,
<	JRST	$RTRN8%+1>
	IFB	<A>,
<	JRST	$RTRN%>	NYw ~|
	MOVE	SP~(,[IOWD b,a]	
	~HMOVE	CF,SP			
	M~hOVE	PF,SP			
	MOVE	CG,SP			
	$CA(LL	c			
	EXIT	1H,			
	EXIT				
		
	EXIT				
	N.M8 1	PUSH	SP,P1(F			;SAVE AC'S MA1HY BE NEEDED
	PUS1hH	SP,CF
	PUSH	SP2,AP
	PUSH	SP,CG
	PUSH	SP,RS
	PU2HSH	SP,T2
	PUSH	S2hP,T1
	MOVE	PF,SP3			;SET UP ENVIRO3(NMENT
	MOVE	CF,S3HP
	MOVE	CG,SP

	MOVE	CG,SP
	RNK (t	SALL
TMPH1==0	;NO UNV YET
TMP2==0	;NO LIB YET
TMP3==0	;NO (DEB
	IRP	C,<
IHFIDN	<C><UNV>,<ThMP1==1>
IFIDN	<C><LIB>,<TMP2==1>(
IFIDN	<C><DEB>H,<TMP3==1>
IFIDNh	<C><UNV >,<TMP1==1>
IFIDN	<C><(LIB >,<TMP2==1>
HIFIDN	<C><DEB >,h<TMP3==1>
>;END IRP
IFN TMP3,<LA(LL>
IFE TMP1,<
H	SEARCH	MACTEN,UUhOSYM
	TITLE	A - B
>;END IFE TM(P1
IFN TMP1,<
	HUNIVERSAL	A - Bh
>;END IFN TMP1
IFE TMP2,<
	.RE(QUEST	REL:LIBRRY
>;END IFE TMP2
h	HIGH==400000			;Default high segm(ent start
	IRP	HD,<
	HIGH==D			h;Make it this, if needs be
	>
	P(URGE	TMP1
	PURGEH	TMP2
	PURGE	TMPh3
	TWOSEG	HIGH
LOW==0
	RELOC	LO(W
	RELOC	HIGH
DHEFINE	RELOCH <
IhFL .-HIGH,<
	RELOC
>>
DEFINE	RE(LOCL <
IFGE .-HIHGH,<
	RELOC
>>h
IF2,<
 DEFINE ..ENT
    <PRINTX( [Assembling moduHle: C A B]
>
..ENT
>

>Vv9: 4(	POP	SP,T14(
	POP	SP,T2
	PO4HP	SP,RS
	POP	SP,4hCG
	POP	SP,AP
	5POP	SP,CF
	POP	SP,PF
F
	POP	S
l<YQ S@P >}{woP