Google
 

Trailing-Edge - PDP-10 Archives - red405a2 - rel/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,rO@P C' w8OP%%IA	(A,B,ADD,SUB)(AC2L{G V(6<^D35-<^L<VHRGHBT.(A)>>+<^D3Vh7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' /H"|TXZ	A,-1-<B>TXZ	A,-1-ES| W(<
	REPEAT	WH3,<
	TXCE	A,1B<B>!1B<C>
>B<G@ phOP%%CA (A,B,)OP%%CA (AGD t("OP%%CA (A,B,A)P%%CA (AGDP r(OP%%CA (A,B,E)P%%CA (AGDp rhOP%%CA (A,B,G)P%%CA (AGDy  s(OP%%CA (A,B,GE)%%CA (AGE@ q(
OP%%CA (A,B,L)P%%CA (AGEI  qhOP%%CA (A,B,LE)%%CA (AGE` shOP%%CA (A,B,N)P%%CA (AG&tkg XHH
	DEFINE	XhINFO.(OPCODE,NEWAYRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ MhvLALL

		N	   PAGE	;(CONTINN(UED ON NEXT PAGE)NH
			   SALL	;(CONhNTINUED FROM PREVIOUS PAGE)
REVI6= ^h
	..OLD==_10
	..TYP==3
IF_(E <C>+1,..TYP==0_H
IFE <C>-^O7777_h77,..TYP==1
IFE `<C>-^O777777B17,`(..TYP==2
..POS==`HPOS(<C>)
..WID=`h=WID(<C>)
	RADIaX	10
	DF%%ST (\.a(.TYP,A,<B>,\..PaHOS,\..WID)
	PURGahE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z b(&

	RADIX	.bH.OLD
DEFINE	B (bhOPS,AC,E),<
	..Cc==0
	IRP OPS,<
c(		IFE A-..C,<
	cH		STOPI
			IFN 3ch-..C, OPS <AC>,Cd'E
			IFE 3-..C,d( OPS <AC>,[POINT dHE,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 yHOP%%IN	(A,B,DIV)%IN	(AKc  K(^
	IRP	A,KH<
	IF2,<	IFNDEF	KhA,<EXTERN A> >>,<EXTERN A> >>M&. ~(rOP%%FA	(A,B,FADR,FSBR)AM6. h~OP%%FP	(A,B,FDVR)FP	(AM&eG UH.<<A>!<<LFUhTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. (zOP%%FP	(A,B,FMPR)FP	(AMH(X6 ^(r
	DEFINE	A,<-^OB(P)>
MJ ZHn
	OLD%%%=Zh=10	
	RADIX	8
	[N%%%==0		
IRP A[(,<
	FR%%AM (A,\[H<N%%%+1>)	
	N%%%[h==N%%%+1		
>
	A\DD	P,[N%%%,,N%%%]\(	
	PUSHJ	P,b		
	  SKIPA
	AOS	-\hN%%%(P)	
	SUB	P,][N%%%,,N%%%]	
	P](OPJ	P,		
b:
	R]HADIX	OLD%%%
	PUR]hGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. ~hvOP%%FA	(A,B,FSBR,FADR)AM\u|RQ O2|  L(j
	IRP	A,LH<
	IF2,<	IFDEF	LhA,<INTERN A>
		MIFNDEF	A,<EXTERNM( A>
		SUPPRE	A>>
		SUPPRE	ASNn yHLOP%%IN	(A,B,IDIV)IN	(AS7-N xHDOP%%IN	(A,B,IMUL)IN	(AS;k X@<<<A>B<POS(<B>)>>&<B>>S? /"xTXO	A,<B>TXO	A,<BUVn	 Ah$*IFE <<B>_B1>,<
IFE <B>,<
	JUMP	A,D
>
BHIFN <B>,<
IFE <Bh<C>&<B>>,<
	JUCMPL	A,D
>
IFNC( <<C>&<B>>,<
	CHJUMPGE	A,D
>>>Ch
IFN <<B>1>,<
	TXCA	A,<<C>&<D(B>>
	JRST	.+5
DH	TXCE	A,<<C>&<DhB>>
	JRST	D
	TEXNE	A,<<-<C>-1>E(&<B>>
	JRST	D
>>>
	JRST	D
' =h$

IFE <<B>>_1>,<
IFE <B>,>(<
	JUMPA	A,D
>H>
IFN <B>,<
IF>hE <<C>&<B>>,<
?	JUMPGE	A,D
>?(
IFN <<C>&<B>>,?H<
	JUMPL	A,D
?h>>>
IFN <<B>_1>@,<
	TXCA	A,<<C@(>&<B>>
	JRST	.+@H5
	TXCE	A,<<C>@h&<B>>
	JRST	.+3A
	TXNN	A,<<-<CA(>-1>&<B>>
	JRST	D
>>>
	JRSTUVn
 Eh$p
IFDIF <FB><C>,<
	JFCL	1F(,.+1		
	JRST	.+1FH		
IFNB <B>,<	JFhFCL	1,B
GIFNB G<C>,<IFIDN <C><G(D>,<IFIDN <D><GHE>,< JRST	C>>>>
IFB <B>,<	JFCL	H1,i
  IFIDN <CH(><D>,<IFIDN <D>HH<E>,< JRST	C>>>Hh
>

IFDIF <C>I<D>,<
	HRLOI	AI(,-2		
IFNB <C>,IH<	AOBJP	A,C
  IhIFNB <D>,<IFIDN J<D><E>,<JRST	DJ(>>>
IFB <C>,<IFJHDIF <D><E>,<AOBJhJP A,i>
	    IKFIDN <D><E>,<AOK(BJN A,D>>
>
KH
IFDIF <D><E>,<Kh
	IF2,<IFE A,<PLRINTX ? A MUST BL(E NON-ZERO IN JUMLHPPT>>
	MOVEI	A,Lh0		
	BLT	A,0		
IFNB <D>,<	JUMPM(E	A,D
  IFNB <MHE>,<	JRST	E>>
MhIFB <D>,<	JUMPN	NA,E>
>

i:A,E>
>

i:Y$- U(<1B<^L<A>>><1B<^L<A>Y tQ xY>
C@ e(, B (<MOVEeH,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG O(
	IFNDEF	OHLSTIN.,	LSTIN.==0Oh
IFE LSTIN.,<
	PIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G Ph

IFG LSTIQN., LSTIN.==LSTINQ(.-1
IFLE LSTIN.,QH<	.CREF
		LIST>
CREF
		LIST> T <<<1<A>>-1>B<B>><A>>[?7 hn
	.XCREF
	TEST%%=0
IFE	<hH<B>_-^D18>,<
	ThhEST%%=1
	.CREF
i	MOVEI	A,<B>
	i(.XCREF
>
IFN	<iHB>,<
IFE	<<B>_^ihD18>,<
	TEST%%=1j
	.CREF
	MOVSI	j(A,(B)
	.XCREF
>
IFE	<<<B>-^jhD18>-^O777777>,<
	TEST%%=1
	.CREk(F
	HRROI	A,<B>kH
	.XCREF
>
IFEkh	TEST%%,<
IFE	<<l<B>_^D18>-^O7777l(77B17>,<
	TEST%%lH=1
	.CREF
	HRLOlhI	A,(<B>-^O7777m77)
	.XCREF
>
m(IFE	TEST%%,<
	.CmHREF
	MOVE	A,[Bmh]
>>>
	PURGE	TEST%%
	.CREF	TE[Vg x@OP%%IN	(A,B,MUL)%IN	(A] H(B
	IFNDEF	A,<A==B>
F	]` IHN
	IFNDEF	IhA,<A==B>
	SHOW.	(A)

	SHO_@(Xp th4
	.XCREF
IFE	<<B>_-^D18>u(,<
	.CREF
	CAIuHC	A,<B>
	.XCREuhF
>
IFN	<<B>_-v^D18>,<
	.CREF
v(	CAMC	A,[B]
	vH.XCREF
>
	.CREFCREF
>
	.CREF_@(YP ( 
	.XCREF
IFE	<<<B>_^D18>h-^O777777B17>,<
	.CREF
	DI	A,((-<B>)
	.XCREF
H>
IFN	<<<B>_^D1h8>-^O777777B17>,<
	OP%%FP	A,<B>(,C
>
	.CREF
C
>
	.CREF
_@(YX h "
	.XCREF
IFE	<<B>_^D18>,(<
	.CREF
	CI	HA,(B)
	.XCREF
h>
IFN	<<B>_^D18>,<
	.CREF
	C	(A,[B]
	.XCREF
>
	.CREFCREF^
	.XCREF
IFE	<<<B>_-^D18zH>-^O777777>,<
	.zhCREF
	DI	A,-<{B>
	.XCREF
>
I{(FN	<<<B>_-^D18>-{H^O777777>,<
	OP%{h%IN	A,<B>,C
>
	.CREF>,C
>_@(Z7 |(n
	.XCREF
IFE	<<B>_-^D18>|h,<
	.CREF
	CI	}A,<B>
	.XCREF
>
IFN	<<B>_-^D}H18>,<
	.CREF
	}hC	A,[B]
	.XCREF
>
	.CREFCRE_@(] *H"t

	.XCREF
IFN <<A>&^O7777+77777760>, PRINTX+( ? A IS NOT AN A+HCCUMULATOR

	TE+hMP%%=0
IFE	<<B>,_^D18>,<
IFN	<B,(>,<
	TEMP%%=1
	,H.CREF
	C	A,(B,h)
	.XCREF
>>
I-FE	<<B>_-^D18>,<-(
	TEMP%%=1
	.CR-HEF
	D	A,<B>
-h	.XCREF
>
IFE	T.EMP%%,<
	.CREF
.(	E	A,[B]
>
	.HPURGE	TEMP%%
	.CREF	TEMP%%
	.Ca
tTQ  a
tQ a
t*9Q a
t>(Q  a
t>(Q a
tk{Q a
tm3Q a
uJ8Q @a
uiQ a
u}SQ @a
vZ7Q a
v\yQ a*n	r 5 a*n 4`a+= +a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a>Mm S(<POINT	WIDSH(B),A,POS(B)>B),A,POS(B)>a?H6 +a? RH<^L<A>+^LRh<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG YHP
	DEFINE	YhINFO.(OPCODE,NEWAZRG)<
	OPCODE	<A
	NEWARG>>	<AeD- TH$<<A>&-<A>><<A>&-<Ae tP'g"~s@ HhH	.XCREF
	IEXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ f2 B (<MOVEf(M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  n(
IFE <D>nH,<	SETZM	B>	
IFnhE <D>+1,<	SETOM	oB>	
IFN <D>*<<o(D>+1>,<MOVX	A,<oHD>	
		   MOVEM ohA,B>	
IFNB <Cp>,<			
	MOVE	A,p([B,,B+1]
	BLT	A,C		
>	BLT	gV wH<OP%%IA	(A,B,SUB,ADD)(Aib ("P
	.XCREF
IFB <B>, TXC	(<&h^O37777777&A>,1B'<A_-^D30>)
IFNB'( <B>,<
IFN <<A'H>&^O777777777760>'h, PRINTX ? A IS (NOT AN ACCUMULATO((R
IFE	<<<B>_-^D(H18>-^O777777>,<
(h	.CREF
	EQVI	A,)<,,-1-<B>>
	.XC)(REF>
IFN	<<<B>_)H-^D18>-^O777777>,)h<
	OP%%TX	A,<B*>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib $H"0
	.XCREF
IFB  <B>,	OP%%T%X	<^O37777777&A>%(,1B<A_-^D30>,TLC%HA,TRCA,TDCA
IFNB%h <B>,	OP%%TX	A,&<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP  H"
	.XCREF
IFB  <B>,	OP%%T!X	<^O37777777&A>!(,1B<A_-^D30>,TLC!HE,TRCE,TDCE
IFNB!h <B>,	OP%%TX	A,"<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` "H" 
	.XCREF
IFB  <B>,	OP%%T#X	<^O37777777&A>#(,1B<A_-^D30>,TLC#HN,TRCN,TDCN
IFNB#h <B>,	OP%%TX	A,$<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp h *
IFB <B>, JFCL	0
IFNB <(B>, TRN	A,<,,<B>>
N	A,<,,<Bibt H! 
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLNHA,TRNA,TDNA
IFNBh <B>,	OP%%TX	A,<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ :(#j
IFE <<B:H>_<1+^L<B>>>,<
:hIFE <<B>&<C>>,<;
	TXNN	A,<B>
;(>
IFN <<B>&<C>;H>,<
	TXNE	A,<B;h>
>>
IFN <<B>_<<1+^L<B>>>,<
	T<(XCA	A,<<C>&<B><H>
	JRST	.+4
	TX<hCE	A,<<C>&<B>>=
	JRST	.+3
	TXN=(N	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP H!
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLNHE,TRNE,TDNE
IFNBh <B>,	OP%%TX	A,<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ 6h#N
IFE <<B7>_<1+^L<B>>>,<
7(IFE <<B>&<C>>,<7H
	TXNE	A,<B>
7h>
IFN <<B>&<C>8>,<
	TXNN	A,<B8(>
>>
IFN <<B>_8H<1+^L<B>>>,<
	T8hXCA	A,<<C>&<B>9>
	JRST	.+4
	TX9(CE	A,<<C>&<B>>9H
	JRST	.+2
	TXN9hE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` H!
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLNHN,TRNN,TDNN
IFNBh <B>,	OP%%TX	A,<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx 
 n
	.XCREF
(
IFB <B>, TXO	(<
H^O37777777&A>,1B
h<A_-^D30>)
IFNB <B>,<
IFN <<A(>&^O777777777760>H, PRINTX ? A IS hNOT AN ACCUMULATO
R
IFE	<<<B>_-^D
(18>-^O777777>,<

H	.CREF
	ORCMI	A
h,<,,-1-<B>>
	.XF>
IFN	<<<B>777777>
	OP%%TX	A,<O
>>	.CREFO,TDO
>ib| H"
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLOHA,TROA,TDOA
IFNBh <B>,	OP%%TX	A, <B>,TLOA,TROA,TDOA
	.CREF
,TDib|P H!`
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLOHE,TROE,TDOE
IFNBh <B>,	OP%%TX	A,<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` H!p
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLOHN,TRON,TDON
IFNBh <B>,	OP%%TX	A,<B>,TLON,TRON,TDON
	.CREF
,TDicP h L
	.XCREF
IFB <B>, TXZ	(<(^O37777777&A>,1BH<A_-^D30>)
IFNBh <B>,<
IFN <<A>&^O777777777760>(, PRINTX ? A IS HNOT AN ACCUMULATOR
IFE	<<<B>_-^Dh18>-^O777777>,<
(	.CREF
	ANDI	A,H<,,-1-<B>>
	.XChREF>
IFN	<<<B>_	-^D18>-^O777777>,	(<
	OP%%TX	A,<B	H>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT H!P
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLZHA,TRZA,TDZA
IFNBh <B>,	OP%%TX	A,<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP H!0
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLZHE,TRZE,TDZE
IFNBh <B>,	OP%%TX	A,<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` H!@
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>(,1B<A_-^D30>,TLZHN,TRZN,TDZN
IFNBh <B>,	OP%%TX	A,<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` 5H#2
	MOVX	A5h,1B<B_-^D30>
	.6XCREF
	<XORM	A,6(>!<37777777&B>
	.CREF
7&B>
iftS@ 0H#

	MOVX	A0h,1B<B_-^D30>
	.1XCREF
	<TDNE	A,1(>!<37777777&B>
	.CREF
7&B>
ifuc@ 1h#
	MOVX	A2,1B<B_-^D30>
	.2(XCREF
	<TDNN	A,2H>!<37777777&B>
	.CREF
7&B>
ify` 3#
	MOVX	A3(,1B<B_-^D30>
	.3HXCREF
	<IORM	A,3h>!<37777777&B>
	.CREF
7&B>
igQ` 4(#(
	MOVX	A4H,1B<B_-^D30>
	.4hXCREF
	<ANDCAM	5A,>!<37777777&B>
	.CREF
7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ G(<BYTE (3)AGHWHO (9)AVER (6)AMIN (18)AEDTo&  R<^L<-<<A>_<^L<A>>>-1>>>q? 0#TXC	A,<B>TXC	A,<Bq@ J(V
	INTERN	JHA
	IFB  <C>,<JhA==B>
	IFNB <C>,<A=B>
 <Cus@ fh< B (<SETZgM,HLLZS,HRRZS,<PRg(INTX ?CAN'T ZERO gHBYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ 
D	P ?DP >D)6P D8YP D8sP D;PP D;QP D;QP D;RP D;RP D;SP D;TP D;WP D;WP D;XP D;XP D;YP 	D;YP 	D;ZP 
D;ZP 
D;[P D;[P D;\P 
D;\P 
D;]P D<ZP D=7P DI6P ?D\qP S@P &tj7Q ?6MiTQ @O,pP O,tP O,vP O,P j.+jP >}{woP