PDP-10 Archive: 2-subsys/macsym.unv from DEC-20-OT20A-D-MC9

Trailing-Edge - PDP-10 Archives - DEC-20-OT20A-D-MC9 - 2-subsys/macsym.unv

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

x
(4g@P C4@ H((
	..NAC==h0		
	IRP A,<
	  .ACV1 (A)>		
	.ACV3 (\..NAC)C:' b@
	TXZ A,<^-<B>>TXZ A,CO,,@ (
	..TRR==810		
	RADIX 8
	X..NV==1			
	IRP xA,<
	  .TRV1 (A)>		
	IFG ..NV-85,<PRINTX ?TOO MAXNY ARGUMENTS: A>x
	JSP .A16,.ASSET		
	RADIX ..TRR8		
	PURGE ..TRR,..NVURGE ..TRR,Ge@ ,GeLR +I  G@$>
	..STR0 G`(.DECR0,,<A>,B)DECR0,,<A>,B)I6= !l
	A==<-1 B<C>+1B<C-D>> @
	IF1,<IFDEF %A`,<PRINTX ?A ALREADY DEFINED>>
	D EFINE %A (OP,AC,@Y,MSK)<
	OP (<AC>,B'Y,MSK)><ACKJn9` r8'
	ERJMP	[rXTMSG <? A>
		 JSHLT]
A>
		 JKc  s'
   IF2,<s8
	IRP A,<
	IFNsXDEF A,<EXTERN A
	SUPPRE A>>>M2  S <A>B<POS(B)><A>B<POS(M7p b`&
	HRROI .cAC2,[ASCIZ \A\]
	MOVEI .AC3,0
	SOUTI .AC3,0
	S:  E $,
	..STR0 E@(.INCR0,,<A>,B)INCR0,,<A>,B)S? b
	TXO A,<B>
	TXO A,Ut@ Z`%Z
	..STR1 [(..JAN,<d,<C>>,[ <A>,B,..STR5)
d:B,..STR5)
U N@$v
	..STR1 N`(..JE,<C>,<A>,B,..STR3)<A>,U8 S%
	..STR1S%(..JN,<C>,<A>,B,..STR3)<A>,U:
	..STR1 X@(..JNA3,<C>,<A>,B,..STR4)<A>U:~  ^%t
	..STR1 ^ (..JNO,<d,<C>>,^@<A>,B,..STR5)
d:B,..STR5)
U? W@%>
	..STR1 W`(..JN,<C>,<A>,B,..STR4)<A>,UN.,@ d`&&
	CALL JSERR0
	CALL JSUN.,HA  UN.,HUNEM e &*
	CALL JSHLT0
	CALL JSUNEMA  UNEMUb( x@p
	..JX1==x`B		
IFDEF .PSECyT,<
	.IFN ..JX1,y ABSOLUTE,<PRINTX y@B NOT ABSOLUTE
y`		..JX1==0>
	.IFz ..JX1,ABSOLUTE,<z 
	.IF0 <<..JX1>-z@1B0>,<	
		JUMPGEz` 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>
	.IFX1,ABSOLUTE,<
	.IF0,<<..JX1>-
		JUMPGE A,C>,<
	..ONEB  (..BT,B)	
	.IF@0 ..BT,<
	  SETC`M .SAC,A		
	  JXN (.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==~`B		
IFDEF .PSECT,<
	.IFN ..JX1, ABSOLUTE,<PRINTX @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>,<	
	  JUM@PN A,C>,<	
		T`XNE (A,..JX1)
		JRST C>>>
	PURGE ..JX1>
	PURUbx @ Z
	..JX1==`B		
IFDEF .PSECT,<
	.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	
	    JR@ST C>>>
	PURGE `..JX1>
IFNDEF .P	SECT,<
	.IF0 <<.	 .JX1>-1B0>,<
		J	@UMPL A,C>,<
	.	`.ONEB (..BT,B)	

	.IF0 ..BT,<
	 
 SETCM .SAC,A		
@
	  JXE (.SAC,..J
`X1,C)>,< 
	    TXNE A,..JX1	
	     JRST C>>>
	PURGE ..JX1>
	Y>

@ 5 #,
	..STR0 5@(..LDB,A,B,C)..LDB,A,B,C)[8@ T "1B<<A>-1>-1B<B><<A>-1>[>!` T`&<A-<A/B>*B><A-<A/B[?7 U


   ..MX1U@==B			
IFDEF .PU`SECT,<
   .IFN .V.MX1,ABSOLUTE,<
V 	MOVE A,[B]>
 V@  .IF ..MX1,ABSOLV`UTE,<
	..MX2==0	W	
	IFE <..MX1>B5W 3,<
	W@..MX2==1
	  MOVEI A,..MXW`1>	
	IFE ..MX2,<X		
	IFE <..MX1>BX 17,<
	  ..MX2==1X@
	  MOVSI A,(..X`MX1)>>	
	IFE ..MYX2,<		
	IFE <<..Y MX1>B53-^O777777>Y@,<
	  ..MX2==1
Y`	  HRROI A,<..MXZ1>>>	
	IFE ..MX2Z ,<		
	IFE <<..MXZ@1>B17-^O777777B17Z`>,<
	[..MX2==1
	  HRLOI A,(..M[ X1-^O777777)>> 
[@	IFE ..MX2,<		
	[`  MOVE A,[..MX1]\>	
	>>

IFNDEF\  .PSECT,<
	..MX2\@==0		
	IFE <..MX\`1>B53,<
	  ..MX2]==1
	  MOVEI A,] ..MX1>	
	IFE ..M]@X2,<		
	IFE <..M]`X1>B17,<
	  ..MX^2==1
	  MOVSI A^ ,(..MX1)>>	
	IFE^@ ..MX2,<		
	IFE ^`<<..MX1>B53-^O777_777>,<
	  ..MX2=_ =1
	  HRROI A,<_@..MX1>>>	
	IFE ._`.MX2,<		
	IFE <<`..MX1>B17-^O77777` 7B17>,<
	  ..MX2`@==1
	  HRLOI A,``(..MX1-^O777777)>a> 
	IFE ..MX2,<	a 	
	  MOVE A,[..a@MX1]>	
>
	PURGE ..MX1,..MX2RGE[N^= !z
	A==C	 	
	IF1,<IFDEF %@A,<PRINTX ?A ALR`EADY DEFINED>>
	DEFINE %A (OP,AC ,Y,MSK)<
	OP (<AC>,B'Y,MSK)><A_CL@ I`$P
	..STR0 J(.OPST1,<A>,<B>,C)1,<A>,<B>_CLV L$b
	..STR0 L (.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= c`&"
   IFNB d<A>,<
	TMSG <Ad >>
	CALL JSMSG0>
	CALL JSMSG0a4\G Nh~
	..PGV0=O=.		
	.JBVER=:13O(7		
	LOC	.JBVER	OH	
	BYTE	(3)D(9)OhA(6)B(18)C
	.ORG	..PGV0		
.a>Mm R@<POINT WIDR`(B),A,POS(B)>B),A,POS(B)>a? R<^L<<A>&<-<A>>>><<A>&<dA  de  ,~e&:x a@&


	JRST RSKP
	JRST RSeN^A  eN^g4X1 	((^
	.NAC==0	H
	IRP A,<
	  P	hUSH P,A		
	  .N
AC=.NAC+1>		
	.N
(1==.NAC
	PUSH P,
H[Z [CAIA		
		AOS
h -.N1(P)	
	  IRP A,<
		.N1=.N1-(1
		MOVE A,-.N1H(P)>  
		SUB P,[h.NAC,,.NAC]  
		POPJ P,]]  
		g$;8 B$
	..STR1 B (..TQC,,<A>,B,..STR4)<A>,B,.g%{R >@#v
	..STR1 >`(..TQO,,<A>,B,..STR4)<A>,B,.g',W :`#X
	..STR1 ;(..TQZ,,<A>,B,..STR4)<A>,B,.gR^h9 t8'3
	..STKR=tX=10		
	RADIX 8
tx	..STKN==0
	IRP uA,<
	  .STKV1 (u8A)>
	JSP .A16,.uXSTKST
	 ..STKN,,ux..STKN
	RADIX ..vSTKR
	PURGE ..STv8KN,..STKR,..STKQ
gR~TKR,..STKQ
	..STR0 8 (..DPB,A,B,C)..DPB,A,B,C)i7p a`&
	HRROI .b AC1,[ASCIZ \A\]
	PSOUTZ\A\]
	    ..Sn`TR1 (..TY,C,<A>,B,..STR3)<A>,iF p`'
	    ..SqTR1 (..TY,CA,<A>,B,..STR3)<A>iFP o &|
	    ..So@TR1 (..TY,CE,<A>,B,..STR3)<A>iF` p'
	    ..Sp TR1 (..TY,CN,<A>,B,..STR3)<A>iFp e@&.
	    ..Se`TR1 (..TY,N,<A>,B,..STR3)<A>,iFt g`&@
	    ..ShTR1 (..TY,NA,<A>,B,..STR3)<A>iFtP f &4
	    ..Sf@TR1 (..TY,NE,<A>,B,..STR3)<A>iFu` g&:
	    ..Sg TR1 (..TY,NN,<A>,B,..STR3)<A>iFx h@&F
	    ..Sh`TR1 (..TY,O,<A>,B,..STR3)<A>,iF| j`&X
	    ..SkTR1 (..TY,OA,<A>,B,..STR3)<A>iF|P i &L
	    ..Si@TR1 (..TY,OE,<A>,B,..STR3)<A>iF}` j&R
	    ..Sj TR1 (..TY,ON,<A>,B,..STR3)<A>iGP k@&^
	    ..Sk`TR1 (..TY,Z,<A>,B,..STR3)<A>,iGT m`&p
	    ..SnTR1 (..TY,ZA,<A>,B,..STR3)<A>iGTP l &d
	    ..Sl@TR1 (..TY,ZE,<A>,B,..STR3)<A>iGU` m&j
	    ..Sm TR1 (..TY,ZN,<A>,B,..STR3)<A>iK4@ {8'i
	..TRR=={X10		
	RADIX 8
	{x..NV==1			
	IRP |A,<
	  .TRV1 (|8A)>		
	JSP .A16,|X.TRSET		
	 ..NV-|x1,,..NV-1
	RADIX} ..TRR		
	PURGE ..TRR,..NVURGE ib np
		..TX(C,A,<B>)..TX(Cib o@|
		..TX(CA,A,<B>).TX(CibP n@t
		..TX(CE,A,<B>).TX(Cib` ox
		..TX(CN,A,<B>).TX(Cibp h@
		..TX(N,A,<B>)..TX(Nibt i@L
		..TX(NA,A,<B>).TX(NibtP h@D
		..TX(NE,A,<B>).TX(Nibu` iH
		..TX(NN,A,<B>).TX(Nibx jP
		..TX(O,A,<B>)..TX(Oib| k@\
		..TX(OA,A,<B>).TX(Oib|P j@T
		..TX(OE,A,<B>).TX(Oib}` kX
		..TX(ON,A,<B>).TX(OicP l`
		..TX(Z,A,<B>)..TX(ZicT m@l
		..TX(ZA,A,<B>).TX(ZicTP l@d
		..TX(ZE,A,<B>).TX(ZicU` mh
		..TX(ZN,A,<B>).TX(Zm$,YP'm$-X5Q |m$-Z7Q xm$.zQ po&  Q@

<^L<-<<A>_<^L<A>>>-1>>>q? c
	TXC A,<B>
	TXC A,:h !.
	A,>(:&@ 8`#R
	..TSIZ 9(..PST,C)
	.CAS9 E ..PST,<<
		MOV9@EM A,B>,<
		HR9`RM A,B>,<
		HR:LM A,B>,<
		DP: B A,[POINTR (B,C)]>>INTR (B,:<;Y 4 #&
   DEFIN4@E ..CNS2 (NEW,OLD4`)<
	  OLD>			
	..CNS ()>			
	:L;Y 2#
   DEFIN2 E ..CNS (ARG)<
	2@..CNS2 <ARG>,>
2`
   DEFINE ..CNS23 (NEW,OLD)<
	DEF3 INE ..CNS (ARG)<
	  ..CNS2 <ARG>,3`<OLD'NEW>>>
   OLD'NEW>>>
   :TH [`%^
	..JNA3 (A,C,D)JNA3 :TI \ %l
	..TSAC \@(..ACT,C)
	.IF0\` ..ACT,<
	  SETC]M .SAC,C	
	  JX] E (.SAC,D,<B>)>]@,<	
	  JXO (C,D,<B>)>O (C,:TP O %
	..TSAC O@(..ACT,B)	
	.IFO`0 ..ACT,<
	  ..TPSIZ (..PST,C)	
P 	  .CASE ..PST,<<P@
		SKIPN B	
		P`JRST A>,<
		HRRQZ .SAC,B	
		JUMQ PE .SAC,A>,<
		Q@HLRZ .SAC,B	
		Q`JUMPE .SAC,A>,<
		MOVE .SAC,B	
		JXE (.SAC,C,<R@A>)>>>,<
	  JXE (B,C,<A>)>E:U` S`%8
	..TSAC T(..ACT,B)	
	.IFT 0 ..ACT,<
	  ..TT@SIZ (..PST,C)
	T`  .CASE ..PST,<<
		SKIPE B	
		JU RST A>,<
		HRRZU@ .SAC,B	
		JUMPU`N .SAC,A>,<
		HVLRZ .SAC,B	
		JV UMPN .SAC,A>,<
V@		MOVE .SAC,B	
V`		JXN (.SAC,C,<WA>)>>>,<
	  JXN (B,C,<A>)>N :Uh) Y%R
	..TSAC Y (..ACT,B)
	.IF0Y@ ..ACT,<
	  SETCY`M .SAC,B	
	  JXZN (.SAC,C,<A>)>Z ,<	
	  JXF (B,C,<A>)>F (B,:Ukh _%x
	..JN (A,C,D)..JN (:Uki _@%|
	..JE (<B>,C,D)JE (<:dH@ 6#<
	..TSIZ 6 (..PST,C)
	.CAS6@E ..PST,<<
		MOV6`E A,B>,<
		HRR7Z A,B>,<
		HLR7 Z A,B>,<
		LDB7@ A,[POINTR (B,C)]>>INTR (B,:}i1  !\
	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)!@>	
	IFDEF %C,<
	  %C (A,<B>,D,C)>>A,<B>,;LH " "L

	..NS==0"@			
	IRP C,<..N"`S=..NS+1>	
	IFE #..NS,<PRINTX ?EMP# TY STRUCTURE LIST#@, A>
	IFE ..NS-#`1,<		
	  ..STR0 $(A,<B>,<C>,D)$ >
	IFG ..NS-1,<	$@	
	..ICNS			
	.$`.CNS (<E (A,<B%>,,>) 
	IRP C,<% 		
	  IFNDEF C,%@<PRINTX C NOT DE%`FINED>
	  IFDEF &C,<
	  IFNDEF %& C,<
	  ..CNS (<&@,C,D>)>	
	  IF&`DEF %C,<
	  %C' (..STR2,,D,C)>'  
	  ..CNS (<)>)'@		
	  ..GCNS		
'`	  ..ICNS		
	  .(.CNS (<E (A,<B( >>) 
	  IFNDEF %(@C,<
	  ..CNS (<(`,C,D>)>	
	  IF)DEF %C,<
	  %C)  (..STR2,,D,C)>)@>> 
	..CNS (<,,)>)		
	..GCNS>);LI *"P
	..CNS (<,C,B>).CNS (;LI *@"f


	IFDIF <*`D><F>,<
	  IFN+B <D>,<
	    A+  (<B>,D,..MSK)	+@
	    IFNB <F>,+`<PRINTX C AND E, ARE IN DIFFERENT,  WORDS>>
	  ..MS,@K==0>		
	IFNB <,`F>,<
	  ..MSK=..MSK!<E>>MSK=..;LJ - "v


	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>,<
	    I0FNB <F>,<		
		0 A1 (B,D,..MSK)>0@ 
	    IFB <F>,0`<		
		A2 (B,D1,..MSK)>> 
	  ..1 MSK==0>		
	IFNB 1@<F>,<
	  ..MSK=..MSK!<E>>MSK=;&` B`$&
	..TSIZ C(..PST,C)
	.IF0C  ..PST,<		
		SETC@CMM B>,<	
	D..C`TSAC (..ACT,B)	
	D .IF0 ..ACT,<
		MOVX .SAC,C
D@		XORM .SAC,B>,<D`
		..TX(C,B,C)>>..TX(C,B,C);&` ? $


	..TSIZ ?@(..PST,C)
	.CAS?`E ..PST,<<
		SET@OM B>,<
		HLLOS@  B>,<
		HRROS @@B>,<
	  ..TSAC (@`..ACT,B)
	  .IFA0 ..ACT,<
		MOVXA  .SAC,C
		IORM A@.SAC,B>,<
		..TX (O,B,C)>>>T;&@ ;@#p
	..TSIZ ;`(..PST,C)	
	.CA<SE ..PST,<<
		SE< TZM B>,<	
		HLL<@ZS B>,<	
		HRRZ<`S B>,<	
	  ..TS=AC (..ACT,B)	
	=   .IF0 ..ACT,<
	=@	MOVX .SAC,C	
	=`	ANDCAM .SAC,B>,><
		..TX (Z,B,C)>>>TX (Z,B,;&81 `!V
	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;' c@*
   ..TX1c`==C			
IFDEF .PdSECT,<
   .IFN .d .TX1,ABSOLUTE,<
d@	TDA B,[C]>
 e  .IF ..TX1,ABSOLd`UTE,<		
	..TX2==e 0		
	IFE <..TX1&e@^O777777B17>,<
	e`  ..TX2==1		
	  fTRA B,..TX1>
	f IFE ..TX2,<		
	If@FE <..TX1&^O77777f`7>,<
	  ..TX2==1g		
	  TLA B,(.g .TX1)>>
	IFE ..Tg@X2,<		
	  IFE <<g`..TX1>B53-^O77777p7>,< 
	    ..TX3p  (A,B)>>	
	IFEp@ ..TX2,<		
	  TDp`A B,[..TX1]>	
q	PURGE ..TX1,..TXq 2>>
IFNDEF .PSECq@T,<
	..TX2==0		
	IFE <..TX1&^O77r7777B17>,<
	  ..r TX2==1		
	  TRAr@ B,..TX1>
	IFE r`..TX2,<		
	IFE <s..TX1&^O777777>,<s 
	  ..TX2==1		
s@	  TLA B,(..TX1s`)>>
	IFE ..TX2,<t		
	  IFE <<..TXt 1>B53-^O777777>,<t@ 
	    ..TX3 (At`,B)>>	
	IFE ..TuX2,<		
	  TDA u B,[..TX1]>	
	PURGE ..TX1,..TX2>;'` u`@
	IFIDN <vA><Z>,<		
	  ..v TX2==1
	  ANDI v@B,^-..TX1>	
	IFIv`DN <A><O>,<		
	w  ..TX2==1
	w@ORw CMI B,^-..TX1>	
	IFIDN <A><C>,<w`		
	  ..TX2==1
x	  EQVI B,^-..TX1>QVI B,^-..TX;' `&
	..TSAC ` (..ACT,B)	
	.IF`@0 ..ACT,<
		PRIN``TX ?TQA - B NOTa IN AC>,<
		TXA B,C>
		TXA
`P P