Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,O@P C' |pgOP%%IA	(A,B,ADD,SUB)(AC2L{G \e<^D35-<^L<\0RGHBT.(A)>>+<^D3\P7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' 50#+TXZ	A,-1-<B>TXZ	A,-1-ES| ]k
	REPEAT	]03,<
	TXCE	A,1B<B>!1B<C>
>B<G@ vP5OP%%CA (A,B,)OP%%CA (AGD zQOP%%CA (A,B,A)P%%CA (AGDP xAOP%%CA (A,B,E)P%%CA (AGDp xPEOP%%CA (A,B,G)P%%CA (AGDy  yIOP%%CA (A,B,GE)%%CA (AGE@ w9OP%%CA (A,B,L)P%%CA (AGEI  wP=OP%%CA (A,B,LE)%%CA (AGE` yPMOP%%CA (A,B,N)P%%CA (AG&tkg ^0w
	DEFINE	^PINFO.(OPCODE,NEWA^pRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ SP%LALL

		Sp	   PAGE	;(CONTINTUED ON NEXT PAGE)T0
			   SALL	;(COTPNTINUED FROM PREVIOUS PAGE)
REVI6= dP=
	..OLD==dp10
	..TYP==3
IFeE <C>+1,..TYP==0e0
IFE <C>-^O7777eP77,..TYP==1
IFE ep<C>-^O777777B17,f..TYP==2
..POS==f0POS(<C>)
..WID=fP=WID(<C>)
	RADIfpX	10
	DF%%ST (\.g.TYP,A,<B>,\..Pg0OS,\..WID)
	PURGgPE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z hU

	RADIX	.h0.OLD
DEFINE	B (hPOPS,AC,E),<
	..Chp==0
	IRP OPS,<
i		IFE A-..C,<
	i0		STOPI
			IFN 3iP-..C, OPS <AC>,Cip'E
			IFE 3-..C,j OPS <AC>,[POINT j0E,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 ~pwOP%%IN	(A,B,DIV)%IN	(AKc  Q
	IRP	A,Q0<
	IF2,<	IFNDEF	QPA,<EXTERN A> >>,<EXTERN A> >>M&.  !OP%%FA	(A,B,FADR,FSBR)AM6. P -OP%%FP	(A,B,FDVR)FP	(AM&eG [0]<<A>!<<LF[PTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7.  )OP%%FP	(A,B,FMPR)FP	(AMH(X6 d!
	DEFINE	A,<-^OB(P)>
MJ `0
	OLD%%%=`P=10	
	RADIX	8
	`pN%%%==0		
IRP Aa,<
	FR%%AM (A,\a0<N%%%+1>)	
	N%%%aP==N%%%+1		
>
	AapDD	P,[N%%%,,N%%%]b	
	PUSHJ	P,b		
	  SKIPA
	AOS	-bPN%%%(P)	
	SUB	P,bp[N%%%,,N%%%]	
	PcOPJ	P,		
b:
	Rc0ADIX	OLD%%%
	PURcPGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. P %OP%%FA	(A,B,FSBR,FADR)AM\u|RQ O2|  R
	IRP	A,R0<
	IF2,<	IFDEF	RPA,<INTERN A>
		RpIFNDEF	A,<EXTERNS A>
		SUPPRE	A>>
		SUPPRE	ASNn 0{OP%%IN	(A,B,IDIV)IN	(AS7-N ~0sOP%%IN	(A,B,IMUL)IN	(AS;k ]po<<<A>B<POS(<B>)>>&<B>>S? 4p#'TXO	A,<B>TXO	A,<BUVn	 GP$YIFE <<B>_Gp1>,<
IFE <B>,<
	JUMP	A,D
>
H0IFN <B>,<
IFE <HP<C>&<B>>,<
	JUHpMPL	A,D
>
IFNI <<C>&<B>>,<
	I0JUMPGE	A,D
>>>IP
IFN <<B>1>,<
	TXCA	A,<<C>&<JB>>
	JRST	.+5
J0	TXCE	A,<<C>&<JPB>>
	JRST	D
	TJpXNE	A,<<-<C>-1>K&<B>>
	JRST	D
>>>
	JRST	D
' CP$9
IFE <<BCp>_1>,<
IFE <B>,D<
	JUMPA	A,D
D0>
IFN <B>,<
IFDPE <<C>&<B>>,<
Dp	JUMPGE	A,D
>E
IFN <<C>&<B>>,E0<
	JUMPL	A,D
EP>>>
IFN <<B>_1>Ep,<
	TXCA	A,<<CF>&<B>>
	JRST	.+F05
	TXCE	A,<<C>FP&<B>>
	JRST	.+3Fp
	TXNN	A,<<-<CG>-1>&<B>>
	JRST	D
>>>
	JRSTUVn

 KP%
IFDIF <KpB><C>,<
	JFCL	1L,.+1		
	JRST	.+1L0		
IFNB <B>,<	JLPFCL	1,B
MIFNB Lp<C>,<IFIDN <C><MD>,<IFIDN <D><M0E>,< JRST	C>>>>
IFB <B>,<	JFCL	Mp1,i
  IFIDN <CN><D>,<IFIDN <D>N0<E>,< JRST	C>>>NP
>

IFDIF <C>Np<D>,<
	HRLOI	AO,-2		
IFNB <C>,O0<	AOBJP	A,C
  OPIFNB <D>,<IFIDN Op<D><E>,<JRST	DP>>>
IFB <C>,<IFP0DIF <D><E>,<AOBPPJP A,i>
	    IPpFIDN <D><E>,<AOQBJN A,D>>
>
Q0
IFDIF <D><E>,<QP
	IF2,<IFE A,<PQpRINTX ? A MUST BRE NON-ZERO IN JUMR0PPT>>
	MOVEI	A,RP0		
	BLT	A,0		
IFNB <D>,<	JUMPSE	A,D
  IFNB <S0E>,<	JRST	E>>
SPIFB <D>,<	JUMPN	SpA,E>
>

i:A,E>
>

i:Y$- ZpW<1B<^L<A>>><1B<^L<A>Y tQ xY>

C@ k[ B (<MOVEk0,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG U1
	IFNDEF	U0LSTIN.,	LSTIN.==0UP
IFE LSTIN.,<
	UpIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G VP;
IFG LSTIVpN., LSTIN.==LSTINW.-1
IFLE LSTIN.,W0<	.CREF
		LIST>
CREF
		LIST> YpO<<<1<A>>-1>B<B>><A>>[?7 mp
	.XCREF
	TEST%%=0
IFE	<n0<B>_-^D18>,<
	TnPEST%%=1
	.CREF
np	MOVEI	A,<B>
	o.XCREF
>
IFN	<o0B>,<
IFE	<<B>_^oPD18>,<
	TEST%%=1op
	.CREF
	MOVSI	pA,(B)
	.XCREF
>
IFE	<<<B>-^pPD18>-^O777777>,<
	TEST%%=1
	.CREqF
	HRROI	A,<B>q0
	.XCREF
>
IFEqP	TEST%%,<
IFE	<<qp<B>_^D18>-^O7777r77B17>,<
	TEST%%r0=1
	.CREF
	HRLOrPI	A,(<B>-^O7777rp77)
	.XCREF
>
sIFE	TEST%%,<
	.Cs0REF
	MOVE	A,[BsP]
>>>
	PURGE	TEST%%
	.CREF	TE[Vg }poOP%%IN	(A,B,MUL)%IN	(A] Nq
	IFNDEF	A,<A==B>
F	]` O0}
	IFNDEF	OPA,<A==B>
	SHOW.	(A)

	SHO_@(Xp zPc
	.XCREF
IFE	<<B>_-^D18>{,<
	.CREF
	CAI{0C	A,<B>
	.XCRE{PF
>
IFN	<<B>_-{p^D18>,<
	.CREF
|	CAMC	A,[B]
	|0.XCREF
>
	.CREFCREF
>
	.CREF_@(YP  A
	.XCREF
IFE	<<<B>_^D18>P-^O777777B17>,<
p	.CREF
	DI	A,(-<B>)
	.XCREF
0>
IFN	<<<B>_^D1P8>-^O777777B17>,<p
	OP%%FP	A,<B>,C
>
	.CREF
C
>
	.CREF
_@(YX P Q
	.XCREF
IFE	<<B>_^D18>,	<
	.CREF
	CI		0A,(B)
	.XCREF
	P>
IFN	<<B>_^D18	p>,<
	.CREF
	C	
A,[B]
	.XCREF
>
	.CREFCREFp 
	.XCREF
IFE	<<<B>_-^D180>-^O777777>,<
	.PCREF
	DI	A,-<pB>
	.XCREF
>
IFN	<<<B>_-^D18>-0^O777777>,<
	OP%P%IN	A,<B>,C
>
	.CREF>,C
>_@(Z7  
	.XCREF
IFE	<<B>_-^D18>P,<
	.CREF
	CI	pA,<B>
	.XCREF
>
IFN	<<B>_-^D018>,<
	.CREF
	PC	A,[B]
	.XCREF
>
	.CREFCRE_@(] 00##

	.XCREF
IFN <<A>&^O77770p77777760>, PRINTX1 ? A IS NOT AN A10CCUMULATOR

	TE1PMP%%=0
IFE	<<B>1p_^D18>,<
IFN	<B2>,<
	TEMP%%=1
	20.CREF
	C	A,(B2P)
	.XCREF
>>
I2pFE	<<B>_-^D18>,<3
	TEMP%%=1
	.CR30EF
	D	A,<B>
3P	.XCREF
>
IFE	T3pEMP%%,<
	.CREF
4	E	A,[B]
>
	40PURGE	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 YK<POINT	WIDY0(B),A,POS(B)>B),A,POS(B)>a?H6 +a? X0E<^L<A>+^LXP<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG _0
	DEFINE	_PINFO.(OPCODE,NEWA_pRG)<
	OPCODE	<A
	NEWARG>>	<AeD- Z0S<<A>&-<A>><<A>&-<Ae tP'g"~s@ NPw	.XCREF
	NpEXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ kpa B (<MOVElM,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  t1
IFE <D>t0,<	SETZM	B>	
IFtPE <D>+1,<	SETOM	tpB>	
IFN <D>*<<uD>+1>,<MOVX	A,<u0D>	
		   MOVEM uPA,B>	
IFNB <Cup>,<			
	MOVE	A,v[B,,B+1]
	BLT	A,C		
>	BLT	gV }0kOP%%IA	(A,B,SUB,ADD)(Aib "
	.XCREF
IFB <B>, TXC	(<,P^O37777777&A>,1B,p<A_-^D30>)
IFNB- <B>,<
IFN <<A-0>&^O777777777760>-P, PRINTX ? A IS -pNOT AN ACCUMULATO.R
IFE	<<<B>_-^D.018>-^O777777>,<
.P	.CREF
	EQVI	A,.p<,,-1-<B>>
	.XC/REF>
IFN	<<<B>_/0-^D18>-^O777777>,/P<
	OP%%TX	A,<B/p>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib *0"_
	.XCREF
IFB  <B>,	OP%%T*pX	<^O37777777&A>+,1B<A_-^D30>,TLC+0A,TRCA,TDCA
IFNB+P <B>,	OP%%TX	A,+p<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP &0"?
	.XCREF
IFB  <B>,	OP%%T&pX	<^O37777777&A>',1B<A_-^D30>,TLC'0E,TRCE,TDCE
IFNB'P <B>,	OP%%TX	A,'p<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` (0"O
	.XCREF
IFB  <B>,	OP%%T(pX	<^O37777777&A>),1B<A_-^D30>,TLC)0N,TRCN,TDCN
IFNB)P <B>,	OP%%TX	A,)p<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp 
P Y
IFB <B>
p, JFCL	0
IFNB <B>, TRN	A,<,,<B>>
N	A,<,,<Bibt 0!O
	.XCREF
IFB  <B>,	OP%%TpX	<^O37777777&A>,1B<A_-^D30>,TLN0A,TRNA,TDNA
IFNBP <B>,	OP%%TX	A,p<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ @$
IFE <<B@0>_<1+^L<B>>>,<
@PIFE <<B>&<C>>,<@p
	TXNN	A,<B>
A>
IFN <<B>&<C>A0>,<
	TXNE	A,<BAP>
>>
IFN <<B>_Ap<1+^L<B>>>,<
	TBXCA	A,<<C>&<B>B0>
	JRST	.+4
	TXBPCE	A,<<C>&<B>>Bp
	JRST	.+3
	TXNCN	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP 0!/
	.XCREF
IFB  <B>,	OP%%TpX	<^O37777777&A>,1B<A_-^D30>,TLN0E,TRNE,TDNE
IFNBP <B>,	OP%%TX	A,p<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ <P#}
IFE <<B<p>_<1+^L<B>>>,<
=IFE <<B>&<C>>,<=0
	TXNE	A,<B>
=P>
IFN <<B>&<C>=p>,<
	TXNN	A,<B>>
>>
IFN <<B>_>0<1+^L<B>>>,<
	T>PXCA	A,<<C>&<B>>p>
	JRST	.+4
	TX?CE	A,<<C>&<B>>?0
	JRST	.+2
	TXN?PE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` 0!?
	.XCREF
IFB  <B>,	OP%%TpX	<^O37777777&A>,1B<A_-^D30>,TLN0N,TRNN,TDNN
IFNBP <B>,	OP%%TX	A,p<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx p!
	.XCREF
IFB <B>, TXO	(<0^O37777777&A>,1BP<A_-^D30>)
IFNBp <B>,<
IFN <<A>&^O777777777760>0, PRINTX ? A IS PNOT AN ACCUMULATOpR
IFE	<<<B>_-^D18>-^O777777>,<
0	.CREF
	ORCMI	AP,<,,-1-<B>>
	.XpCREF>
IFN	<<<B>_-^D18>-^O777777>0,<
	OP%%TX	A,<PB>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| $0"/
	.XCREF
IFB  <B>,	OP%%T$pX	<^O37777777&A>%,1B<A_-^D30>,TLO%0A,TROA,TDOA
IFNB%P <B>,	OP%%TX	A,%p<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P  0"
	.XCREF
IFB  <B>,	OP%%T pX	<^O37777777&A>!,1B<A_-^D30>,TLO!0E,TROE,TDOE
IFNB!P <B>,	OP%%TX	A,!p<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` "0"
	.XCREF
IFB  <B>,	OP%%T"pX	<^O37777777&A>#,1B<A_-^D30>,TLO#0N,TRON,TDON
IFNB#P <B>,	OP%%TX	A,#p<B>,TLON,TRON,TDON
	.CREF
,TDicP P {
	.XCREF
IFB <B>, TXZ	(<

^O37777777&A>,1B

0<A_-^D30>)
IFNB

P <B>,<
IFN <<A

p>&^O777777777760>
IFE	<<<B>7-^D<
	.CREF
	ANDI	A,0<,,-1-<B>>
	.XCPREF>
IFN	<<<B>_p-^D18>-^O777777>,<
	OP%%TX	A,<B0>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT 0!
	.XCREF
IFB  <B>,	OP%%TpX	<^O37777777&A>,1B<A_-^D30>,TLZ0A,TRZA,TDZA
IFNBP <B>,	OP%%TX	A,p<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP 0!_
	.XCREF
IFB  <B>,	OP%%TpX	<^O37777777&A>,1B<A_-^D30>,TLZ0E,TRZE,TDZE
IFNBP <B>,	OP%%TX	A,p<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` 0!o
	.XCREF
IFB  <B>,	OP%%TpX	<^O37777777&A>,1B<A_-^D30>,TLZ0N,TRZN,TDZN
IFNBP <B>,	OP%%TX	A,p<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` ;0#a
	MOVX	A;P,1B<B_-^D30>
	.;pXCREF
	<XORM	A,<>!<37777777&B>
	.CREF
7&B>
iftS@ 60#9
	MOVX	A6P,1B<B_-^D30>
	.6pXCREF
	<TDNE	A,7>!<37777777&B>
	.CREF
7&B>
ifuc@ 7P#C
	MOVX	A7p,1B<B_-^D30>
	.8XCREF
	<TDNN	A,80>!<37777777&B>
	.CREF
7&B>
ify` 8p#M
	MOVX	A9,1B<B_-^D30>
	.90XCREF
	<IORM	A,9P>!<37777777&B>
	.CREF
7&B>
igQ` :#W
	MOVX	A:0,1B<B_-^D30>
	.:PXCREF
	<ANDCAM	:pA,>!<37777777&B>
	.CREF
7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ MkBYTE (3)AM0WHO (9)AVER (6)AMIN (18)AEDTo&  Wp?<^L<-<<A>_<^L<A>>>-1>>>q? 5p#/TXC	A,<B>TXC	A,<Bq@ P
	INTERN	P0A
	IFB  <C>,<PPA==B>
	IFNB <C>,<A=B>
 <Cus@ lPk B (<SETZlpM,HLLZS,HRRZS,<PRmINTX ?CAN'T ZERO m0BYTE>>,<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