Google
 

Trailing-Edge - PDP-10 Archives - bb-d868a-bm - 3-sources/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,O@P C' |hfOP%%IA	(A,B,ADD,SUB)(AC2L{G \d<^D35-<^L<\(RGHBT.(A)>>+<^D3\H7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' 5(#*TXZ	A,-1-<B>TXZ	A,-1-ES| ]j
	REPEAT	](3,<
	TXCE	A,1B<B>!1B<C>
>B<G@ vH4OP%%CA (A,B,)OP%%CA (AGD zPOP%%CA (A,B,A)P%%CA (AGDP x@OP%%CA (A,B,E)P%%CA (AGDp xHDOP%%CA (A,B,G)P%%CA (AGDy  yHOP%%CA (A,B,GE)%%CA (AGE@ w8OP%%CA (A,B,L)P%%CA (AGEI  wH<OP%%CA (A,B,LE)%%CA (AGE` yHLOP%%CA (A,B,N)P%%CA (AG&tkg ^(v
	DEFINE	^HINFO.(OPCODE,NEWA^hRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ SH$LALL

		Sh	   PAGE	;(CONTINTUED ON NEXT PAGE)T(
			   SALL	;(COTHNTINUED FROM PREVIOUS PAGE)
REVI6= dH<
	..OLD==dh10
	..TYP==3
IFeE <C>+1,..TYP==0e(
IFE <C>-^O7777eH77,..TYP==1
IFE eh<C>-^O777777B17,f..TYP==2
..POS==f(POS(<C>)
..WID=fH=WID(<C>)
	RADIfhX	10
	DF%%ST (\.g.TYP,A,<B>,\..Pg(OS,\..WID)
	PURGgHE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z hT

	RADIX	.h(.OLD
DEFINE	B (hHOPS,AC,E),<
	..Chh==0
	IRP OPS,<
i		IFE A-..C,<
	i(		STOPI
			IFN 3iH-..C, OPS <AC>,Cih'E
			IFE 3-..C,j OPS <AC>,[POINT j(E,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 ~hvOP%%IN	(A,B,DIV)%IN	(AKc  Q

	IRP	A,Q(<
	IF2,<	IFNDEF	QHA,<EXTERN A> >>,<EXTERN A> >>M&.   OP%%FA	(A,B,FADR,FSBR)AM6. H ,OP%%FP	(A,B,FDVR)FP	(AM&eG [(\<<A>!<<LF[HTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7.  (OP%%FP	(A,B,FMPR)FP	(AMH(X6 d 
	DEFINE	A,<-^OB(P)>
MJ `(
	OLD%%%=`H=10	
	RADIX	8
	`hN%%%==0		
IRP Aa,<
	FR%%AM (A,\a(<N%%%+1>)	
	N%%%aH==N%%%+1		
>
	AahDD	P,[N%%%,,N%%%]b	
	PUSHJ	P,b		
	  SKIPA
	AOS	-bHN%%%(P)	
	SUB	P,bh[N%%%,,N%%%]	
	PcOPJ	P,		
b:
	Rc(ADIX	OLD%%%
	PURcHGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. H $OP%%FA	(A,B,FSBR,FADR)AM\u|RQ O2|  R
	IRP	A,R(<
	IF2,<	IFDEF	RHA,<INTERN A>
		RhIFNDEF	A,<EXTERNS A>
		SUPPRE	A>>
		SUPPRE	ASNn (zOP%%IN	(A,B,IDIV)IN	(AS7-N ~(rOP%%IN	(A,B,IMUL)IN	(AS;k ]hn<<<A>B<POS(<B>)>>&<B>>S? 4h#&TXO	A,<B>TXO	A,<BUVn	 GH$XIFE <<B>_Gh1>,<
IFE <B>,<
	JUMP	A,D
>
H(IFN <B>,<
IFE <HH<C>&<B>>,<
	JUHhMPL	A,D
>
IFNI <<C>&<B>>,<
	I(JUMPGE	A,D
>>>IH
IFN <<B>1>,<
	TXCA	A,<<C>&<JB>>
	JRST	.+5
J(	TXCE	A,<<C>&<JHB>>
	JRST	D
	TJhXNE	A,<<-<C>-1>K&<B>>
	JRST	D
>>>
	JRST	D
' CH$8
IFE <<BCh>_1>,<
IFE <B>,D<
	JUMPA	A,D
D(>
IFN <B>,<
IFDHE <<C>&<B>>,<
Dh	JUMPGE	A,D
>E
IFN <<C>&<B>>,E(<
	JUMPL	A,D
EH>>>
IFN <<B>_1>Eh,<
	TXCA	A,<<CF>&<B>>
	JRST	.+F(5
	TXCE	A,<<C>FH&<B>>
	JRST	.+3Fh
	TXNN	A,<<-<CG>-1>&<B>>
	JRST	D
>>>
	JRSTUVn
 KH%
IFDIF <KhB><C>,<
	JFCL	1L,.+1		
	JRST	.+1L(		
IFNB <B>,<	JLHFCL	1,B
MIFNB Lh<C>,<IFIDN <C><MD>,<IFIDN <D><M(E>,< JRST	C>>>>
IFB <B>,<	JFCL	Mh1,i
  IFIDN <CN><D>,<IFIDN <D>N(<E>,< JRST	C>>>NH
>

IFDIF <C>Nh<D>,<
	HRLOI	AO,-2		
IFNB <C>,O(<	AOBJP	A,C
  OHIFNB <D>,<IFIDN Oh<D><E>,<JRST	DP>>>
IFB <C>,<IFP(DIF <D><E>,<AOBPHJP A,i>
	    IPhFIDN <D><E>,<AOQBJN A,D>>
>
Q(
IFDIF <D><E>,<QH
	IF2,<IFE A,<PQhRINTX ? A MUST BRE NON-ZERO IN JUMR(PPT>>
	MOVEI	A,RH0		
	BLT	A,0		
IFNB <D>,<	JUMPSE	A,D
  IFNB <S(E>,<	JRST	E>>
SHIFB <D>,<	JUMPN	ShA,E>
>

i:A,E>
>

i:Y$- ZhV<1B<^L<A>>><1B<^L<A>Y tQ xY>
C@ kZ B (<MOVEk(,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG U0
	IFNDEF	U(LSTIN.,	LSTIN.==0UH
IFE LSTIN.,<
	UhIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G VH:
IFG LSTIVhN., LSTIN.==LSTINW.-1
IFLE LSTIN.,W(<	.CREF
		LIST>
CREF
		LIST> YhN<<<1<A>>-1>B<B>><A>>[?7 mh
	.XCREF
	TEST%%=0
IFE	<n(<B>_-^D18>,<
	TnHEST%%=1
	.CREF
nh	MOVEI	A,<B>
	o.XCREF
>
IFN	<o(B>,<
IFE	<<B>_^oHD18>,<
	TEST%%=1oh
	.CREF
	MOVSI	pA,(B)
	.XCREF
>
IFE	<<<B>-^pHD18>-^O777777>,<
	TEST%%=1
	.CREqF
	HRROI	A,<B>q(
	.XCREF
>
IFEqH	TEST%%,<
IFE	<<qh<B>_^D18>-^O7777r77B17>,<
	TEST%%r(=1
	.CREF
	HRLOrHI	A,(<B>-^O7777rh77)
	.XCREF
>
sIFE	TEST%%,<
	.Cs(REF
	MOVE	A,[BsH]
>>>
	PURGE	TEST%%
	.CREF	TE[Vg }hnOP%%IN	(A,B,MUL)%IN	(A] Np
	IFNDEF	A,<A==B>
F	]` O(|
	IFNDEF	OHA,<A==B>
	SHOW.	(A)

	SHO_@(Xp zHb
	.XCREF
IFE	<<B>_-^D18>{,<
	.CREF
	CAI{(C	A,<B>
	.XCRE{HF
>
IFN	<<B>_-{h^D18>,<
	.CREF
|	CAMC	A,[B]
	|(.XCREF
>
	.CREFCREF
>
	.CREF_@(YP  @
	.XCREF
IFE	<<<B>_^D18>H-^O777777B17>,<
h	.CREF
	DI	A,(-<B>)
	.XCREF
(>
IFN	<<<B>_^D1H8>-^O777777B17>,<h
	OP%%FP	A,<B>,C
>
	.CREF
C
>
	.CREF
_@(YX H P
	.XCREF
IFE	<<B>_^D18>,	<
	.CREF
	CI		(A,(B)
	.XCREF
	H>
IFN	<<B>_^D18	h>,<
	.CREF
	C	
A,[B]
	.XCREF
>
	.CREFCREFh 

	.XCREF
IFE	<<<B>_-^D18(>-^O777777>,<
	.HCREF
	DI	A,-<hB>
	.XCREF
>
IFN	<<<B>_-^D18>-(^O777777>,<
	OP%H%IN	A,<B>,C
>
	.CREF>,C
>_@(Z7  
	.XCREF
IFE	<<B>_-^D18>H,<
	.CREF
	CI	hA,<B>
	.XCREF
>
IFN	<<B>_-^D(18>,<
	.CREF
	HC	A,[B]
	.XCREF
>
	.CREFCRE_@(] 0(#"

	.XCREF
IFN <<A>&^O77770h77777760>, PRINTX1 ? A IS NOT AN A1(CCUMULATOR

	TE1HMP%%=0
IFE	<<B>1h_^D18>,<
IFN	<B2>,<
	TEMP%%=1
	2(.CREF
	C	A,(B2H)
	.XCREF
>>
I2hFE	<<B>_-^D18>,<3
	TEMP%%=1
	.CR3(EF
	D	A,<B>
3H	.XCREF
>
IFE	T3hEMP%%,<
	.CREF
4	E	A,[B]
>
	4(PURGE	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 YJ<POINT	WIDY((B),A,POS(B)>B),A,POS(B)>a?H6 +a? X(D<^L<A>+^LXH<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG _(~
	DEFINE	_HINFO.(OPCODE,NEWA_hRG)<
	OPCODE	<A
	NEWARG>>	<AeD- Z(R<<A>&-<A>><<A>&-<Ae tP'g"~s@ NHv	.XCREF
	NhEXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ kh` B (<MOVElM,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  t0
IFE <D>t(,<	SETZM	B>	
IFtHE <D>+1,<	SETOM	thB>	
IFN <D>*<<uD>+1>,<MOVX	A,<u(D>	
		   MOVEM uHA,B>	
IFNB <Cuh>,<			
	MOVE	A,v[B,,B+1]
	BLT	A,C		
>	BLT	gV }(jOP%%IA	(A,B,SUB,ADD)(Aib "~
	.XCREF
IFB <B>, TXC	(<,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
	EQVI	A,.h<,,-1-<B>>
	.XC/REF>
IFN	<<<B>_/(-^D18>-^O777777>,/H<
	OP%%TX	A,<B/h>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib *("^
	.XCREF
IFB  <B>,	OP%%T*hX	<^O37777777&A>+,1B<A_-^D30>,TLC+(A,TRCA,TDCA
IFNB+H <B>,	OP%%TX	A,+h<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP &(">
	.XCREF
IFB  <B>,	OP%%T&hX	<^O37777777&A>',1B<A_-^D30>,TLC'(E,TRCE,TDCE
IFNB'H <B>,	OP%%TX	A,'h<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` (("N
	.XCREF
IFB  <B>,	OP%%T(hX	<^O37777777&A>),1B<A_-^D30>,TLC)(N,TRCN,TDCN
IFNB)H <B>,	OP%%TX	A,)h<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp 
H X
IFB <B>
h, JFCL	0
IFNB <B>, TRN	A,<,,<B>>
N	A,<,,<Bibt (!N
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLN(A,TRNA,TDNA
IFNBH <B>,	OP%%TX	A,h<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ @$
IFE <<B@(>_<1+^L<B>>>,<
@HIFE <<B>&<C>>,<@h
	TXNN	A,<B>
A>
IFN <<B>&<C>A(>,<
	TXNE	A,<BAH>
>>
IFN <<B>_Ah<1+^L<B>>>,<
	TBXCA	A,<<C>&<B>B(>
	JRST	.+4
	TXBHCE	A,<<C>&<B>>Bh
	JRST	.+3
	TXNCN	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP (!.
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLN(E,TRNE,TDNE
IFNBH <B>,	OP%%TX	A,h<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ <H#|
IFE <<B<h>_<1+^L<B>>>,<
=IFE <<B>&<C>>,<=(
	TXNE	A,<B>
=H>
IFN <<B>&<C>=h>,<
	TXNN	A,<B>>
>>
IFN <<B>_>(<1+^L<B>>>,<
	T>HXCA	A,<<C>&<B>>h>
	JRST	.+4
	TX?CE	A,<<C>&<B>>?(
	JRST	.+2
	TXN?HE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` (!>
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLN(N,TRNN,TDNN
IFNBH <B>,	OP%%TX	A,h<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx h!
	.XCREF
IFB <B>, TXO	(<(^O37777777&A>,1BH<A_-^D30>)
IFNBh <B>,<
IFN <<A>&^O777777777760>(, PRINTX ? A IS HNOT AN ACCUMULATOhR
IFE	<<<B>_-^D18>-^O777777>,<
(	.CREF
	ORCMI	AH,<,,-1-<B>>
	.XhCREF>
IFN	<<<B>_-^D18>-^O777777>(,<
	OP%%TX	A,<HB>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| $(".
	.XCREF
IFB  <B>,	OP%%T$hX	<^O37777777&A>%,1B<A_-^D30>,TLO%(A,TROA,TDOA
IFNB%H <B>,	OP%%TX	A,%h<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P  ("
	.XCREF
IFB  <B>,	OP%%T hX	<^O37777777&A>!,1B<A_-^D30>,TLO!(E,TROE,TDOE
IFNB!H <B>,	OP%%TX	A,!h<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` "("
	.XCREF
IFB  <B>,	OP%%T"hX	<^O37777777&A>#,1B<A_-^D30>,TLO#(N,TRON,TDON
IFNB#H <B>,	OP%%TX	A,#h<B>,TLON,TRON,TDON
	.CREF
,TDicP H z
	.XCREF
IFB <B>, TXZ	(<
^O37777777&A>,1B
(<A_-^D30>)
IFNB
H <B>,<
IFN <<A
h>&^O777777777760>
IFE	<<<B>7-^D<
	.CREF
	ANDI	A,(<,,-1-<B>>
	.XCHREF>
IFN	<<<B>_h-^D18>-^O777777>,<
	OP%%TX	A,<B(>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT (!~
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLZ(A,TRZA,TDZA
IFNBH <B>,	OP%%TX	A,h<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP (!^
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLZ(E,TRZE,TDZE
IFNBH <B>,	OP%%TX	A,h<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` (!n
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLZ(N,TRZN,TDZN
IFNBH <B>,	OP%%TX	A,h<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` ;(#`
	MOVX	A;H,1B<B_-^D30>
	.;hXCREF
	<XORM	A,<>!<37777777&B>
	.CREF
7&B>
iftS@ 6(#8
	MOVX	A6H,1B<B_-^D30>
	.6hXCREF
	<TDNE	A,7>!<37777777&B>
	.CREF
7&B>
ifuc@ 7H#B
	MOVX	A7h,1B<B_-^D30>
	.8XCREF
	<TDNN	A,8(>!<37777777&B>
	.CREF
7&B>
ify` 8h#L
	MOVX	A9,1B<B_-^D30>
	.9(XCREF
	<IORM	A,9H>!<37777777&B>
	.CREF
7&B>
igQ` :#V
	MOVX	A:(,1B<B_-^D30>
	.:HXCREF
	<ANDCAM	:hA,>!<37777777&B>
	.CREF
7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ MjBYTE (3)AM(WHO (9)AVER (6)AMIN (18)AEDTo&  Wh><^L<-<<A>_<^L<A>>>-1>>>q? 5h#.TXC	A,<B>TXC	A,<Bq@ P
	INTERN	P(A
	IFB  <C>,<PHA==B>
	IFNB <C>,<A=B>
 <Cus@ lHj B (<SETZlhM,HLLZS,HRRZS,<PRmINTX ?CAN'T ZERO m(BYTE>>,<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