Google
 
Trailing-Edge - PDP-10 Archives - AP-4171F-BM - new-subsys/macsym.unv
There are 97 other files named macsym.unv in the archive. Click here to see a list.
x
,i@P C4@ `)"
	..NAC==0		
	IRP A,<
	   .ACV1 (A)>		
	.ACV3 (\..NAC)C:' q
	TXZ A,<^-<B>>TXZ A,CO,,@ 0)
	..TRR==P10		
	RADIX 8
	p..NV==1			
	IRP A,<
	  .TRV1 (0A)>		
	IFG ..NV-P5,<PRINTX ?TOO MApNY ARGUMENTS: A>
	JSP .A16,.ASSE0T		
	RADIX ..TRRP		
	PURGE ..TRR,..NVURGE ..TRR,Ge@ ,GeLR +I  V%2
	..STR0 V (.DECR0,,<A>,B)DECR0,,<A>,B)I6= *@"`
	A==<-1*`B<C>+1B<C-D>> +
	IF1,<IFDEF %A+ ,<PRINTX ?A ALRE+@ADY DEFINED>>
	D+`EFINE %A (OP,AC,,Y,MSK)<
	OP (<AC>,B'Y,MSK)><ACKJn9` x(	
	ERJMP	[TMSG <? A>
		 JSHLT]
A>
		 JKc  X(
   IF2,<x
	IRP A,<
	IFNDEF A,<EXTERN A
	SUPPRE A>>>M2  a`<A>B<POS(B)><A>B<POS(M7p q '
	HRROI .q@AC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	S:  S`% 
	..STR0 T(.INCR0,,<A>,B)INCR0,,<A>,B)S? p@
	TXO A,<B>
	TXO A,Ut@ i &N
	..STR1 i@(..JAN,<d,<C>>,i`<A>,B,..STR5)
d:B,..STR5)
U ]%j
	..STR1 ] (..JE,<C>,<A>,B,..STR3)<A>,U8 a@&
	..STR1a`(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 g(..JNA3,<C>,<A>,B,..STR4)<A>U:~  l@&h
	..STR1 l`(..JNO,<d,<C>>,m<A>,B,..STR5)
d:B,..STR5)
U? f&2
	..STR1 f (..JN,<C>,<A>,B,..STR4)<A>,UN.,@ s '
	CALL JSERR0
	CALL JSUN.,HA  UN.,HUNEM s`'
	CALL JSHLT0
	CALL JSUNEMA  UNEMUb(  d
	..JX1== B		
IFDEF .PSEC@T,<
	.IFN ..JX1,`ABSOLUTE,<PRINTX B NOT ABSOLUTE
 		..JX1==0>
	.IF@ ..JX1,ABSOLUTE,<`
	.IF0 <<..JX1>-	1B0>,<	
		JUMPGE	  A,C>,<
	.IF0 	@<<..JX1>+1>,<	
		`  JUMPE A,C>,<	

		TXNN (A,..JX
 1)
		JRST C>>>
@
	PURGE ..JX1>
I
`FNDEF .PSECT,<
	.IF0 <<..JX1>-1B0 >,<	
		JUMPGE A@,C>,<
	.IF0 <<.`.JX1>+1>,<	
	  J

UMPE A,C>,<	
	

	TXNN (A,..JX1)

@
		JRST C>>>
	PURGE ..JX1>
	PUb0  "
	..JX1==@B		
IFDEF .PSEC`T,<
	.IFN ..JX1,ABSOLUTE,<PRINTX  B NOT ABSOLUTE
@		..JX1==0>
	.IF` ..JX1,ABSOLUTE,<
	.IF0 <<..JX1>- 1B0>,<
		JUMPGE @A,C>,<
	..ONEB` (..BT,B)	
	.IF0 ..BT,<
	  SETC M .SAC,A		
	  J@XN (.SAC,..JX1,C`)>,< 
	    TXNN A,..JX1	
	    J RST C>>>
	PURGE@ ..JX1>
IFNDEF .`PSECT,<
	.IF0 <<..JX1>-1B0>,<
		 JUMPGE A,C>,<
@	..ONEB (..BT,B)`	
	.IF0 ..BT,<
 	  SETCM .SAC,A	  	
	  JXN (.SAC,. @.JX1,C)>,< 
	! `  TXNN A,..JX1	
	  JRST C>>>
	PURGE..JX1>
	..JX1==
IFDEF .PSEC
	.IFNL..JX1,INTX B NOT ABSOLUTE
 		..JX1==0>
	.IF@ ..JX1,ABSOLUTE,<`
	.IF0 <<..JX1>-1B0>,<	
		JUMPL  A,C>,<
	.IF0 <@<..JX1>+1>,<	
	` JUMPN A,C>,<	
		TXNE (A,..JX1 )
		JRST C>>>
@	PURGE ..JX1>
IF`NDEF .PSECT,<
	.IF0 <<..JX1>-1B0> ,<	
		JUMPL A,@C>,<
	.IF0 <<..J`X1>+1>,<	
	  JUMPN A,C>,<	
		T XNE (A,..JX1)
	@	JRST C>>>
	PURGE ..JX1>
	PURUbx !N
	..JX1== B		
IFDEF .PSEC@T,<
	.IFN ..JX1,`ABSOLUTE,<PRINTX B NOT ABSOLUTE
 		..JX1==0>
	.IF@ ..JX1,ABSOLUTE,<`
	.IF0 <<..JX1>-1B0>,<
		JUMPL  A,C>,<
	..ONEB @(..BT,B)	
	.IF0` ..BT,<
	  SETCM .SAC,A		
	  JX E (.SAC,..JX1,C)@>,< 
	    TXNE `A,..JX1	
	    JRST C>>>
	PURGE  ..JX1>
IFNDEF .P@SECT,<
	.IF0 <<.`.JX1>-1B0>,<
		JUMPL A,C>,<
	. .ONEB (..BT,B)	
	.IF0 ..BT,<
	` SETCM .SAC,A		
	  JXE (.SAC,..J X1,C)>,< 
	    @TXNE A,..JX1	
	`    JRST C>>>
	PURGE ..JX1>
	Y>

@ C`$ 
	..STR0 D(..LDB,A,B,C)..LDB,A,B,C)[8@ b`1B<<A>-1>-1B<B><<A>-1>[>!` c <A-<A/B>*B><A-<A/B[?7 c`
   ..MX1d==B			
IFDEF .Pd SECT,<
   .IFN .d@.MX1,ABSOLUTE,<
d`	MOVE A,[B]>
 e  .IF ..MX1,ABSOLe UTE,<
	..MX2==0	e@	
	IFE <..MX1>B5e`3,<
	f..MX2==1
	  MOVEI A,..MXf 1>	
	IFE ..MX2,<f@		
	IFE <..MX1>Bf`17,<
	  ..MX2==1g
	  MOVSI A,(..g MX1)>>	
	IFE ..Mg@X2,<		
	IFE <<..g`MX1>B53-^O777777>h,<
	  ..MX2==1
h 	  HRROI A,<..MXh@1>>>	
	IFE ..MX2h`,<		
	IFE <<..MXi1>B17-^O777777B17i >,<
	i@..MX2==1
	  HRLOI A,(..Mi`X1-^O777777)>> 
j	IFE ..MX2,<		
	j   MOVE A,[..MX1]j@>	
	>>

IFNDEFj` .PSECT,<
	..MX2k==0		
	IFE <..MXk 1>B53,<
	  ..MX2k@==1
	  MOVEI A,k`..MX1>	
	IFE ..MlX2,<		
	IFE <..Ml X1>B17,<
	  ..MXl@2==1
	  MOVSI Al`,(..MX1)>>	
	IFEm ..MX2,<		
	IFE m <<..MX1>B53-^O777m@777>,<
	  ..MX2=m`=1
	  HRROI A,<n..MX1>>>	
	IFE .n .MX2,<		
	IFE <<n@..MX1>B17-^O77777n`7B17>,<
	  ..MX2o==1
	  HRLOI A,o (..MX1-^O777777)>o@> 
	IFE ..MX2,<	o`	
	  MOVE A,[..pMX1]>	
>
	PURGE ..MX1,..MX2RGE[N^= ,@"n
	A==C	,`	
	IF1,<IFDEF %-A,<PRINTX ?A ALR- EADY DEFINED>>
	-@DEFINE %A (OP,AC-`,Y,MSK)<
	OP (<AC>,B'Y,MSK)><A_CL@ X %D
	..STR0 X@(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV Z@%V
	..STR0 Z`(.OPST2,<A>,<B>,C)2,<A>,<B>`@ a

,TQ  a

,Q a

,*9Q a

,>(Q  a

,>(Q a

,k{Q a

,m3Q a

-J8Q @a

-iQ a

-}SQ @a

.Z7Q a

.\yQ a= r '
   IFNB r@<A>,<
	TMSG <Ar`>>
	CALL JSMSG0>
	CALL JSMSG0a4\G ](r
	..PGV0=]H=.		
	.JBVER=:13]h7		
	LOC	.JBVER	^	
	BYTE	(3)D(9)^(A(6)B(18)C
	.ORG	..PGV0		
.a>Mm a
<POINT WIDa (B),A,POS(B)>B),A,POS(B)>a? `@<^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x p'
	JRST RSKP
	JRST RSeN^A  eN^g4X1 @)Z
	.NAC==0`
	IRP A,<
	  PUSH P,A		
	  .N AC=.NAC+1>		
	.N@1==.NAC
	SETMI .`A16,[CAIA	
		AOS -.N1(P)	
	  IRP  A,<
		.N1=.N1-@1
		MOVE A,-.N1`(P)>  
		SUB P,[.NAC,,.NAC]  
		 POPJ P,]	
	PUSH P,.A16	
	PUSH g$;8 P@%
	..STR1 P`(..TQC,,<A>,B,..STR4)<A>,B,.g%{R M$j
	..STR1 M (..TQO,,<A>,B,..STR4)<A>,B,.g',W I $L
	..STR1 I@(..TQZ,,<A>,B,..STR4)<A>,B,.gR^h9 P(-
	..STKR=p=10		
	RADIX 8
	..STKN==0
	IRP 0A,<
	  .STKV1 (PA)>
	JSP .A16,.pSTKST
	 ..STKN,,..STKN
	RADIX ..0STKR
	PURGE ..STPKN,..STKR,..STKQ
gR~TKR,..STKQ
	..STR0 F`(..DPB,A,B,C)..DPB,A,B,C)i7p p '
	HRROI .p`AC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..S} TR1 (..TY,C,<A>,B,..STR3)<A>,iF  '|
	    ..S@TR1 (..TY,CA,<A>,B,..STR3)<A>iFP }`'p
	    ..S~TR1 (..TY,CE,<A>,B,..STR3)<A>iF` ~@'v
	    ..S~`TR1 (..TY,CN,<A>,B,..STR3)<A>iFp t'"
	    ..St TR1 (..TY,N,<A>,B,..STR3)<A>,iFt v '4
	    ..Sv@TR1 (..TY,NA,<A>,B,..STR3)<A>iFtP t`'(
	    ..SuTR1 (..TY,NE,<A>,B,..STR3)<A>iFu` u@'.
	    ..Su`TR1 (..TY,NN,<A>,B,..STR3)<A>iFx w':
	    ..Sw TR1 (..TY,O,<A>,B,..STR3)<A>,iF| y 'L
	    ..Sy@TR1 (..TY,OA,<A>,B,..STR3)<A>iF|P w`'@
	    ..SxTR1 (..TY,OE,<A>,B,..STR3)<A>iF}` x@'F
	    ..Sx`TR1 (..TY,ON,<A>,B,..STR3)<A>iGP z'R
	    ..Sz TR1 (..TY,Z,<A>,B,..STR3)<A>,iGT | 'd
	    ..S|@TR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP z`'X
	    ..S{TR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` {@'^
	    ..S{`TR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ 
P(c
	..TRR==
p10		
	RADIX 8
	..NV==1			
	IRP 0A,<
	  .TRV1 (PA)>		
	JSP .A16,p.TRSET		
	 ..NV-

1,,..NV-1
	RADIX

0 ..TRR		
	PURGE ..TRR,..NVURGE ib |@d
		..TX(C,A,<B>)..TX(Cib ~p
		..TX(CA,A,<B>).TX(CibP }h
		..TX(CE,A,<B>).TX(Cib` }@l
		..TX(CN,A,<B>).TX(Cibp v@4
		..TX(N,A,<B>)..TX(Nibt x@
		..TX(NA,A,<B>).TX(NibtP w8
		..TX(NE,A,<B>).TX(Nibu` w@<
		..TX(NN,A,<B>).TX(Nibx x@D
		..TX(O,A,<B>)..TX(Oib| zP
		..TX(OA,A,<B>).TX(Oib|P yH
		..TX(OE,A,<B>).TX(Oib}` y@L
		..TX(ON,A,<B>).TX(OicP z@T
		..TX(Z,A,<B>)..TX(ZicT |`
		..TX(ZA,A,<B>).TX(ZicTP {X
		..TX(ZE,A,<B>).TX(ZicU` {@\
		..TX(ZN,A,<B>).TX(Zm$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  `<^L<-<<A>_<^L<A>>>-1>>>q
f@ p(
	EXTEND A,[020000,,0] q+= +
q6~i4 C q? q@


	TXC A,<B>
	TXC A,qN5P +:h ""
	A:&@ G $F
	..TSIZ G@(..PST,C)
	.CASG`E ..PST,<<
		MOVHEM A,B>,<
		HRH RM A,B>,<
		HRH@LM A,B>,<
		DPH`B A,[POINTR (B,C)]>>INTR (B,:<;Y B`$
   DEFINCE ..CNS2 (NEW,OLDC )<
	  OLD>			
	..CNS ()>			
	:L;Y @@$
   DEFIN@`E ..CNS (ARG)<
	A..CNS2 <ARG>,>
A 
   DEFINE ..CNS2A@ (NEW,OLD)<
	DEFA`INE ..CNS (ARG)<
	  ..CNS2 <ARG>,B <OLD'NEW>>>
   OLD'NEW>>>
   :TH j &R
	..JNA3 (A,C,D)JNA3 :TI j`&`
	..TSAC k(..ACT,C)
	.IF0k  ..ACT,<
	  SETCk@M .SAC,C	
	  JXk`E (.SAC,D,<B>)>l,<	
	  JXO (C,D,<B>)>O (C,:TP ]`&
	..TSAC ^(..ACT,B)	
	.IF^ 0 ..ACT,<
	  ..T^@SIZ (..PST,C)	
^`	  .CASE ..PST,<<_
		SKIPN B	
		_ JRST A>,<
		HRR_@Z .SAC,B	
		JUM_`PE .SAC,A>,<
		`HLRZ .SAC,B	
		` JUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<aA>)>>>,<
	  JXE (B,C,<A>)>E:U` b &,
	..TSAC b@(..ACT,B)	
	.IFb`0 ..ACT,<
	  ..TcSIZ (..PST,C)
	c   .CASE ..PST,<<
		SKIPE B	
		Jc`RST A>,<
		HRRZd .SAC,B	
		JUMPd N .SAC,A>,<
		Hd@LRZ .SAC,B	
		Jd`UMPN .SAC,A>,<
e		MOVE .SAC,B	
e 		JXN (.SAC,C,<e@A>)>>>,<
	  JXN (B,C,<A>)>N :Uh) g@&F
	..TSAC g`(..ACT,B)
	.IF0h ..ACT,<
	  SETCh M .SAC,B	
	  JXh@N (.SAC,C,<A>)>h`,<	
	  JXF (B,C,<A>)>F (B,:Ukh m@&l
	..JN (A,C,D)..JN (:Uki n&p
	..JE (<B>,C,D)JE (<:dH@ D@$0
	..TSIZ D`(..PST,C)
	.CASEE ..PST,<<
		MOVE E A,B>,<
		HRRE@Z A,B>,<
		HLRE`Z A,B>,<
		LDBF A,[POINTR (B,C)]>>INTR (B,:}i1 )`"P
	A==<<<*-<B>>&<B>>&<1B<^L<B>>>>>&<1B<;LH . #
	IFNDEF .@C,<PRINTX C IS .`NOT DEFINED
	  /A (<B>,D,.FWORD/ )>	
	IFDEF C,<
	IFNDEF %C,<
	/`  A (<B>,D,C)0>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH 0`#@

	..NS==01			
	IRP C,<..N1 S=..NS+1>	
	IFE 1@..NS,<PRINTX ?EMP1`TY STRUCTURE LIST2, A>
	IFE ..NS-2 1,<		
	  ..STR0 2@(A,<B>,<C>,D)2`>
	IFG ..NS-1,<	3	
	..ICNS			
	.3 .CNS (<E (A,<B3@>,,>) 
	IRP C,<3`		
	  IFNDEF C,4<PRINTX C NOT DE4 FINED>
	  IFDEF 4@C,<
	  IFNDEF %4`C,<
	  ..CNS (<5,C,D>)>	
	  IF5 DEF %C,<
	  %C5@ (..STR2,,D,C)>5` 
	  ..CNS (<)>)6		
	  ..GCNS		
6 	  ..ICNS		
	  .6@.CNS (<E (A,<B6`>>) 
	  IFNDEF %7C,<
	  ..CNS (<7 ,C,D>)>	
	  IF7@DEF %C,<
	  %C7` (..STR2,,D,C)>8>> 
	..CNS (<,,)>)		
	..GCNS>);LI 8@#D
	..CNS (<,C,B>).CNS (;LI 9#Z


	IFDIF <9 D><F>,<
	  IFN9@B <D>,<
	    A9` (<B>,D,..MSK)	:
	    IFNB <F>,: <PRINTX C AND E:@ ARE IN DIFFERENT:` WORDS>>
	  ..MS;K==0>		
	IFNB <; F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ ;`#j


	IFDIF <<D><F>,<	
	  IF< NB <D>,<
	    <@A (<B>,D,..MSK)<`>	
	  ..MSK==0>	=	
	IFNB <F>,<
= 	  ..MSK=..MSK!<E>>MSK=..MSK!<;LJ =`$


	IFDIF <>D><F>,<	
	  IF> NB <D>,<
	    I>@FNB <F>,<		
		>`A1 (B,D,..MSK)>? 
	    IFB <F>,? <		
		A2 (B,D?@,..MSK)>> 
	  ..?`MSK==0>		
	IFNB @<F>,<
	  ..MSK=..MSK!<E>>MSK=;&` Q %
	..TSIZ Q@(..PST,C)
	.IF0Q` ..PST,<		
		SETRCMM B>,<	
	R@..R TSAC (..ACT,B)	
	R`.IF0 ..ACT,<
		MOVX .SAC,C
S		XORM .SAC,B>,<S 
		..TX(C,B,C)>>..TX(C,B,C);&` M`%
	..TSIZ N(..PST,C)
	.CASN E ..PST,<<
		SETN@OM B>,<
		HLLOSN` B>,<
		HRROS OB>,<
	  ..TSAC (O ..ACT,B)
	  .IFO@0 ..ACT,<
		MOVXO` .SAC,C
		IORM P.SAC,B>,<
		..TX (O,B,C)>>>T;&@ J$d
	..TSIZ J (..PST,C)	
	.CAJ@SE ..PST,<<
		SEJ`TZM B>,<	
		HLLKZS B>,<	
		HRRZK S B>,<	
	  ..TSK@AC (..ACT,B)	
	K`  .IF0 ..ACT,<
	L	MOVX .SAC,C	
	L 	ANDCAM .SAC,B>,L@<
		..TX (Z,B,C)>>>TX (Z,B,;&81 & "J
	IFNDEF &@.PSECT,<
	A==0	&`		
	..TSA1==<Z 'B>		
	  IFE ..TS' A1&^O777777777760'@,<A==1> 
	>
	I'`FDEF .PSECT,<
	(A==0			
	..TSA1=( =<Z B>		
	.IF .(@.TSA1,ABSOLUTE,<	(`
	  IFE ..TSA1&^)O777777777760,<A) ==1>> 
	PURGE ..TSA1>
	PURGE ..;&:= $`".
	A==3		%	
	IFE <B>+1,<% A=0>	
	IFE <B>-%@^O777777,<A==1> %`
	IFE <B>-^O777777B17,<A==2>7;' r 
   ..TX1r ==C			
IFDEF .Pr@SECT,<
   .IFN .r`.TX1,ABSOLUTE,<
s	TDA B,[C]>
 s@  .IF ..TX1,ABSOLs UTE,<		
	..TX2==s`0		
	IFE <..TX1&t^O777777B17>,<
	t   ..TX2==1		
	  t@TRA B,..TX1>
	t`IFE ..TX2,<		
	IuFE <..TX1&^O77777u 7>,<
	  ..TX2==1u@		
	  TLA B,(.u`.TX1)>>
	IFE ..TvX2,<		
	  IFE <<v ..TX1>B53-^O77777~@7>,< 
	    ..TX3~` (A,B)>>	
	IFE ..TX2,<		
	  TD A B,[..TX1]>	
@	PURGE ..TX1,..TX`2>>
IFNDEF .PSECT,<
	..TX2==0		
	IFE <..TX1&^O77@7777B17>,<
	  ..`TX2==1		
	  TRA B,..TX1>
	IFE  ..TX2,<		
	IFE <@..TX1&^O777777>,<`
	  ..TX2==1		
	  TLA B,(..TX1 )>>
	IFE ..TX2,<@		
	  IFE <<..TX`1>B53-^O777777>,< 
	    ..TX3 (A ,B)>>	
	IFE ..T@X2,<		
	  TDA `B,[..TX1]>	
	PURGE ..TX1,..TX2>;'`   4
	IFIDN <@A><Z>,<		
	  ..`TX2==1
	  ANDI B,^-..TX1>	
	IFI DN <A><O>,<		
	@  ..TX2==1
	OR`CMI B,^-..TX1>	
	IFIDN <A><C>,< 		
	  ..TX2==1
@	  EQVI B,^-..TX1>QVI B,^-..TX;' n@&|
	..TSAC n`(..ACT,B)	
	.IFo0 ..ACT,<
		PRINo TX ?TQA - B NOTo@ IN AC>,<
		TXA B,C>
		TXA
`P P