Google
 
Trailing-Edge - PDP-10 Archives - SRI_NIC_PERM_SRC_1_19910112 - 5-galaxy/mtrmac.unv
There are no other files named mtrmac.unv in the archive.
x
,5S@P C
~-P CKYP&C Z7Q  C [xQ @C&)8  |bi!9
	CALL AR }EQ		
	EXP A+B
	
	EXPHA+Bb0O$87C&):  }rr!9
	CALL AR ~"ET		
	EXP A+B
	
	EXPIA+Bk0

O$lVCP C@!}jC<ZP 	C<}P 

CIP CLxP CMQ |C]:P Cl@P ClUP 

@PXC+@Q xC=Q ~CK@P'CKUP CL`Q xCMQ |CX P'CX@Q xCXhP 

Ck`P Cm P'C

@P C8rP 
C:=P C<@P C=Q xC=P C=P 

C=ZP 
C=`P C\yP Cj2P 

C;@ !j	p
	IFNB <!zC>,<ADPTR==<<ADPT!*R+777>&777000>> 
	A=ADPTR		
	AD!PTR==ADPTR+B	
TR==ADPTR+B	
Ce}`P PCL@P"!|C;`P CC$V  uZ/
	APENT Q uzSR		
	APENT ORN		

	APENT ORN	CJ<`P CRl)Y@!CRn:=P  E%\s@ TG-i@P G'|ZP G6k Q G65IQ `G6\^ P G6uz Q @GQ -4(P)=x6GQ !-3(P)=}YGQ #-2(P)>3GQ  %-1(P)>

WG`P IN91P"Q@I`P I6

WP'I6= b0&!
	A==<-1bPB<C>+1B<C-D>> bp
	IF1,<IFDEF %Ac,<PRINTX ?A ALREc0ADY DEFINED>>
	DcPEFINE %A (OP,AC,cpY,MSK)<
	$A==<Zd B>		
	OP (<AC>,B'Y,MSK)><AC>IuLz !r
	0		
	^!D200		
	^D556		
	^D800		
	^D160!P0		
	^D6250		
		
	^D6250		
I?XiQ |I?ZiQ pI?])P INhuP VINi7P VINkRP VINlP VINmRP VINY@@ VINi9P IN0X;Q @IN0YQ IN0Y<Q IN0Z3Q IN0\Q  IN0\SQ IN4\}P IN4kP IN6	yP IN6ZP IN6<P IN6>@P IN6N8P INXP IN\:Q |IN\:zP IN\=Q pIN\L[P IN\kP IN]M7Q xIN]kzP'IN]l`P IN^ P IN^@P IN^ZP IN^<pQ xIN^=P IN^=@!nIN^=P IN^>@P IN^N8Q xI[$y7 !
IRP A,<!2
	XWD [ASCIZ/ TUA/],.MTTA
>ULP M2$I3  qz
	A==FLD rPTR		
	FLDPTR==FLDPTR+B	
R==FM2&

<`P PF) P PF/

P PG]P PK+`P SuI7P SvHV@!}bS3L@  w:?POINT 7,LB wZUF2+<A+3>/5-1,< wxA-<<A+3>/5-1>*5>*7-8+3>/5-1>*5>S:NI@P S?D=  ~ry
	CALL IO XCTR		
	 A			
	 XWD B,C	

SJ.I@P UR|@P Y	>yP Y	FyP 
Y
f:=P (Y,d @ XY,d;P 0YC&   v:7POINT 7,LB vZUF2+<A+4>/5-1,< vxA-<<A-1>/5*5>>*7-1A-1>/5*5>>*7[,RQ [,YQ [-KrQ @[-|Q [-|Q  [.8yQ [.[Q  [.^Q [.k3Q @[.y7Q [I;P 

[YP 

[X7P [DqP [DLuP  [EM !2IFN .LTMAX!R-4,<IF2 <PRINTX L!pABEL TYPE ADDED>>EL TYPE ADDED>>[E\XP [E]P  [E]P  [F<qP!s][?H6P [Jn9@P [Ky@P [L,sQ [L,<RQ [L,<\Q [L-Q [L-Q [L-TQ [L-9Q [L-J6Q [L-^Q [L-mQ N[L.

Q [L.

`Q @[L.-rQ  [L.-yQ @[N8X7Q [N8XtQ @[N8XwQ  [N8YQ [N=I7P 
[N^= >P4
	A==C	>p	
	IF1,<IFDEF %?A,<PRINTX ?A ALR?0EADY DEFINED>>
	?PDEFINE %A (OP,AC?p,Y,MSK)<
	$A==<@Z B>		
	OP (<AC>,B'Y,MSK)><AC[PP [Q@!V[RP [R
@!6[R

I7P [R

L[P'~[R

MZP [R

j6P [R

kP'[Rx[R P [R@P [RZP [R)0P'[R9P [R9:P [R=Q x[R>@P [Rd P [Rd@P [RkvP [RnH Q x[Rt@P [SP [S8@P'[S8YP '[S P ]F@  qNEXT$		
	q:NEXT$==NEXT$+1		
T$==NEXT$+1		P ]?
8  xBDIFE SHIPSWIFE SHIPSW`P a
lP Qad[@P 0a>eZP <a>eI@P @a?I@P aJL^P aJMm  u)IF1 <PRINTX A>IF1 <PRINTaJN7P aK!h1P aK!iP aK!iQP aK!j7P aK!k:P aK!mzP aK&8YP %bDP bHP bLP cNP cNT  R
	JSP CX, rQSCNIR 		
	SETZ A		
	
	SETZ d&; Q d/`Q  d}l@Q d}m@Q d~

@Q d~)9Q  d*;Q @d-Q @d\Q dl@Q d>kQ e,`@ Pe`P e6]I7P eNP eN@!veNqP'eNzP eNwP $eN:Q eN;rP eN<}P $eN=@Q xeNI7Q `eNL[Q xeNLuP $eNMP $eN^P'eNzP eNVP eN:P eNP eNTP eNVP eNWP eN+WQ xeNKUP eNMP'~eNXhP eNXiP eN\hP %eN]Q xeN]P %eN]	P &eN]	P &eN	@Q xeN
2P eN

ZP $eN+5P 
eN+VP eN:=P 'eN<`Q xeN<wP $eN=P $eN=Q xeN=P $eN=8P #eNN8P'eNYVP eN[WP eNkP %eNlP'eN}P eO!h1P eO!j7P eO!mvP eO!m{P f:`P f:Mj:P f;-h;P g4\   rZJSP CX,SAVEQRJSP CX,SAVg4]  sJSP CX,SAVETRJSP CX,SAVg"N

{QgK@!gR,STAKTRJSP CX,STAgSP gSYQ gSYQ  gSY8Q gS[:Q @gS]2Q gSP gSP gS;ZP gSkP gSkP gSXzQ xgSh6P gSZP gS,qP'gS8YP %gS=@!pgS>@P gS[TQ `gg

}P gg\}P hDP hHP hLP hPP id9@P  i,`@ Ri6\s@!	i6@  yJ
	MOVEI C y"X,[ASCIZ\A\]	
	CALL TMCT0		
	i6J   ybP
	MOVEI C zX,A		
	CALL TMCT0		
	CALL TMCi6K@  {Z
	MOVEI C {"X,[ASCIZ\A\]	
,[ASCIZ\A\]	
i6K`  zBT
	CALL TMCT0		
	CALL TMi6L@  {b`
	JSP CX, |TMCT0		
	ASCIZ\A\
	
	ASCIZ\iBu\}P iO P kOJP%lF

<`P lF$X{P lFMh6P lFMk2P lF~{@P lG9P 

lG5P lJ~{@P lJ~{VP lK@P lK+`P m:7 FAD:
	IFG  <F`AMAN-ADEV>,<AEDGT==:AMAN>
	IFLEG  <AMAN-ADEV>,<AEDT==:ADEV>
m>f@!s]m>f@P oR;rP oR[ZP oRKUP oR:=P oR}X<P a	O%| !2
	CALL ST!ROPNW
	JUMP [ASCIZ/A/]
P [ASCI9 !2
	$ACCDT=!22=<Z ACCMC2(ACC)>	!2P	
	A (<B>,ACCMC2(ACC)C,D)CM:W !,r
k
	$ACCJN=!-=<Z ACCNO(ACC)>		!-0
	A (<B>,ACCNO(ACC)C,D)CCNO:z !.z
{
	$ACCKT=!/=<Z ACCMC1(ACC)>	!/8	
	A (<B>,ACCMC1(ACC)C,D)CM; !-r
s
	$ACCLN=!.=<Z ACCNO(ACC)>		!.0
	A (<B>,ACCNO(ACC)C,D)CCNO; !1



	$ACCLS=!1*=<Z ACCMC1(ACC)>	!1H	
	A (<B>,ACCMC1(ACC)C,D)CM; !0
	$ACCLT=!0"=<Z ACCMC1(ACC)>	!0@	
	A (<B>,ACCMC1(ACC)C,D)CM;0 !6"6
	$ACCMA=!6B=<Z ACCMCT(ACC)>	!6`	
	A (<B>,ACCMCT(ACC)C,D)CM;1 !5".
	$ACCMB=!5B=<Z ACCMCT(ACC)>	!5`	
	A (<B>,ACCMCT(ACC)C,D)CM;Z !4%
	$ACCNU=!4:=<Z ACCMC2(ACC)>	!4X	
	A (<B>,ACCMC2(ACC)C,D)CM<z !3
	$ACCST=!3:=<Z ACCMC2(ACC)>	!3X	
	A (<B>,ACCMC2(ACC)C,D)CM8t !
	1
	$DSKCHN!r==<Z DSKCKU>		
	!A (<B>,DSKCKUC,D)B>,DSKCKUC8z !b	:
	$DSKCTR!==<Z DSKCKU>		
	! A (<B>,DSKCKUC,D)B>,DSKCKUC9 !b	B
	$DSKDRV!==<Z DSKCKU>		
	! A (<B>,DSKCKUC,D)B>,DSKCKUC; !Z	
	$DSKLUN!z==<Z DSKNS>		
	!A (<B>,DSKNSC,D)B>,DSKNSC,;W !Z	!
	$DSKNOU!z==<Z DSKNS>		
	!A (<B>,DSKNSC,D)B>,DSKNSC,<y !b	*
	$DSKSSA!==<Z DSKP2>		
	! A (<B>,DSKP2C,D)B>,DSKP2C,= !R	
	$DSKTYP!r==<Z DSKFLG>		
	!A (<B>,DSKFLGC,D)B>,DSKFLGC7$ !
ZY
	$MTADEN!
z==<Z MTAP1(MTA)>	!	
	A(<B>,MTAP1(MTA)C,D)TAP7$ !
	$MTADRV!==<Z MTASDN(MTA)>! 		
	A (<B>,MTASDN(MTA)C,D)A7$ !bz
	$MTADVT!==<Z MTASDN(MTA)>! 		
	A (<B>,MTASDN(MTA)C,D)A7$Q !RA
	$MTAJCT!r==<Z MTAFIL(MTA)>!		
	A (<B>,MTAFIL(MTA)C,D)A7$S !R9
	$MTAJFN!r==<Z MTAFIL(MTA)>!		
	A (<B>,MTAFIL(MTA)C,D)A7$ !	ZQ
	$MTALT=!	z=<Z MTAP1(MTA)>		!

	A (<B>,MTAP1(MTA)C,D)TAP17$: !bb
	$MTAMT=!

=<Z MTAP2(MTA)>		!

 
	A (<B>,MTAP2(MTA)C,D)TAP27$R !

bj
	$MTAREA!P2(MTA)>	!
	A (<B>,MTAP2(MTA)C,D)TAP7$z !ZI
	$MTASTE!z==<Z MTAP1(MTA)>	!		
	A (<B>,MTAP1(MTA)C,D)TAP7%] !z	
	$MTMTA=!j=<Z MTP1(MT)>		
!	A (<B>,MTP1(MT)C,D),MTP1(MT7&,q !J	
	$MTRSB=!j=<Z MTP1(MT)>		
!	A (<B>,MTP1(MT)C,D),MTP1(MTK(1 !!2

	$RSBACC!!R==<Z RSBMC2(RSB)>!!p		
	A (<B>,RSBMC2(RSB)C,D)BK(t !+j
b
	$RSBCH=!,
=<Z RSBPRT(RSB)>	!,(	
	A (<B>,RSBPRT(RSB)C,D)BPK({ !'R
A
	$RSBCV=!'r=<Z RSBMT3(RSB)>	!(	
	A (<B>,RSBMT3(RSB)C,D)BMK) !":

	$RSBDEN!"Z==<Z RSBMT1(RSB)>!"x		
	A (<B>,RSBMT1(RSB)C,D)BK) !#B
 
	$RSBDRV!#b==<Z RSBMT1(RSB)>!$		
	A (<B>,RSBMT1(RSB)C,D)BK)< !)Z
Q
	$RSBEX=!)z=<Z RSBMS1(RSB)>	!*	
	A (<B>,RSBMS1(RSB)C,D)BMK*W !*	v
	$RSBJNO!J==<Z RSBMC1(RSB)>!h		
	A (<B>,RSBMC1(RSB)C,D)BK+ !$B
(
	$RSBLT=!$b=<Z RSBMT1(RSB)>	!%	
	A (<B>,RSBMT1(RSB)C,D)BMK+: !%J
0
	$RSBMT=!%j=<Z RSBMT2(RSB)>	!&	
	A (<B>,RSBMT2(RSB)C,D)BMK, !*b
Z
	$RSBPF=!+=<Z RSBPRT(RSB)>	!+ 	
	A (<B>,RSBPRT(RSB)C,D)BPK,y !(Z
I
	$RSBSS=!(z=<Z RSBMS1(RSB)>	!)	
	A (<B>,RSBMS1(RSB)C,D)BMK,z ! 2

	$RSBSTE! R==<Z RSBMC2(RSB)>! p		
	A (<B>,RSBMC2(RSB)C,D)BK- !*	~
	$RSBTYP!J==<Z RSBMC1(RSB)>!h		
	A (<B>,RSBMC1(RSB)C,D)BK-X !&J
8
	$RSBVPR!&j==<Z RSBMT2(RSB)>!'		
	A (<B>,RSBMT2(RSB)C,D)BO&+1 !*	^
	$STRMCT!J==<Z STRCNT>		
	!hA (<B>,STRCNTC,D)B>,STRCNTCO&,Y !*	f
	$STRRSB!J==<Z STRCNT>		
	!hA (<B>,STRCNTC,D)B>,STRCNTCO&-7 !"	V
	$STRUNI!B==<Z STRCNT>		
	!`A (<B>,STRCNTC,D)B>,STRCNTCl9VP lkP m9<P mktP S@P 6

ZP 6=P (9P&6vIP 6|MZP >DLYp C&9:P >}{woP