Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0105/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
xT@P C' D(
&
	LSTOF.	DHCREF
	OP%%IN	(ADh,B,ADD)
	LSTON.	CREF

	LSTON.C2L{G (	<^D35-<^L<HRGHBT.(A)>>+<^D3h7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' {XTXZ	A,-1-<B>TXZ	A,-1-ES| (	$
	REPEAT	H3,<
	TXCE	A,1B<B>!1B<C>
>B<G@ 3
	LSTOF.	3(CREF
	OP%%CA	(A3H,B,)
	LSTON.	CREF

	LSTON.	CRGD :T
	LSTOF.	:(CREF
	OP%%CA	(A:H,B,A)
	LSTON.	CREF

	LSTON.	CGDP 64
	LSTOF.	6(CREF
	OP%%CA	(A6H,B,E)
	LSTON.	CREF

	LSTON.	CGDp 7<
	LSTOF.	7(CREF
	OP%%CA	(A7H,B,G)
	LSTON.	CREF

	LSTON.	CGDy  8D
	LSTOF.	8(CREF
	OP%%CA	(A8H,B,GE)
	LSTON.	CREF

	LSTON.	GE@ 4$
	LSTOF.	4(CREF
	OP%%CA	(A4H,B,L)
	LSTON.	CREF

	LSTON.	CGEI  5,
	LSTOF.	5(CREF
	OP%%CA	(A5H,B,LE)
	LSTON.	CREF

	LSTON.	GE` 9L
	LSTOF.	9(CREF
	OP%%CA	(A9H,B,N)
	LSTON.	CREF

	LSTON.	CG&tkg H	0
	DEFINE	hINFO.(OPCODE,NEWARG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ hNLALL

				   PAGE	;(CONTIN	(UED ON NEXT PAGE)	H
			   SALL	;(CO	hNTINUED FROM PREVIOUS PAGE)
REVGJ5GP I6= h	v
	..OLD==10
	..TYP==3
IF(E <C>+1,..TYP==0H
IFE <C>-^O7777h77,..TYP==1
IFE <C>-^O777777B17,(..TYP==2
..POS==HPOS(<C>)
..WID=h=WID(<C>)
	RADIX	10
	DF%%ST (\.(.TYP,A,<B>,\..PHOS,\..WID)
	PURGhE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z (


	RADIX	.H.OLD
DEFINE	B (hOPS,AC,E),<
	..C ==0
	IRP OPS,<
 (		IFE A-..C,<
	 H		STOPI
			IFN 3 h-..C, OPS <AC>,C!'E
			IFE 3-..C,!( OPS <AC>,[POINT !HE,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 H(
F
	LSTOF.	HHCREF
	OP%%IN	(AHh,B,DIV)
	LSTON.	CREF

	LSTON.Kc  (6
	IRP	A,H<
	IF2,<	IFNDEF	hA,<EXTERN A> >>,<EXTERN A> >>M&. >tLSTOF.	CRE>(F
			OP%%FA	(A,>HB,FADR,FSBR)
			LSTON.	CREF
	M6. A
LSTOF.	CREA(F
			OP%%FP	(A,AHB,FDVR)
			LSTON.	CREF
		LSTOM&eG H	<<A>!<<LFhTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. @
LSTOF.	CRE@(F
			OP%%FP	(A,@HB,FMPR)
			LSTON.	CREF
		LSTOMH(X6 (	Z
	DEFINE	A,<-^OB(P)>
MJ H	V
	OLD%%%=h=10	;
	RADIX	8
	N%%%==0		;
IRP (A,<
	FR%%AM (AH,\<N%%%+1>)	;
	Nh%%%==N%%%+1		;
>
	ADD	P,[N%%%,,N(%%%]	;
	PUSHJ	P,Hb		;
	  SKIPA
h	AOS	-N%%%(P)	;
	SUB	P,[N%%%,,N%%(%]	;
	POPJ	P,		;H
b:
	RADIX	OLDh%%%
	PURGE	N%%%,OLD%%%
E	N%%%,MN. ?|LSTOF.	CRE?(F
			OP%%FA	(A,?HB,FSBR,FADR)
			LSTON.	CREF
	M\u|RQ O2|  (B
	IRP	A,H<
	IF2,<	IFDEF	hA,<INTERN A>
		IFNDEF	A,<EXTERN( A>
		SUPPRE	A>>
		SUPPRE	AS
tsQ S
uQ pS
uQ xS
uRQ S
uxQ pS
u|Q `S
wP'SNn I(
N
	LSTOF.	IHCREF
	OP%%IN	(AIh,B,IDIV)
	LSTON.	CREF

	LSTONS7-N G(
>
	LSTOF.	GHCREF
	OP%%IN	(AGh,B,IMUL)
	LSTON.	CREF

	LSTONS;k 	(<<<A>B<POS(<B>)>>&<B>>S? zHTTXO	A,<B>TXO	A,<BUVn	 HIFE <<B>_h1>,<
IFE <B>,<
	JUMP	A,D
>
(IFN <B>,<
IFE <H<C>&<B>>,<
	JUhMPL	A,D
>
IFN <<C>&<B>>,<
	(JUMPGE	A,D
>>>H
IFN <<B>1>,<
	TXCA	A,<<C>&<B>>
	JRST	.+5
(	TXCE	A,<<C>&<HB>>
	JRST	D
	ThXNE	A,<<-<C>-1>&<B>>
	JRST	D
>>>
	JRST	D
' 
Hp
IFE <<B
h>_1>,<
IFE <B>,<
	JUMPA	A,D
(>
IFN <B>,<
IFHE <<C>&<B>>,<
h	JUMPGE	A,D
>

IFN <<C>&<B>>,
(<
	JUMPL	A,D

H>>>
IFN <<B>_1>
h,<
	TXCA	A,<<C
	JRST	.+
	TXCE	A,<<C>
	JRST	.+3
	TXNN	A,<<-<C>-1>&<B>>
	JRST	D
>>>
	JRSTUVn
 HZ
IFDIF <hB><C>,<
	JFCL	1,.+1		;
	JRST	.+(1		;
IFNB <B>,<H	JFCL	1,B
  IFNhB <C>,<IFIDN <C><D>,<IFIDN <D>(<E>,< JRST	C>>>H>
IFB <B>,<	JFChL	1,i
  IFIDN <C><D>,<IFIDN <(D><E>,< JRST	C>H>>
>;<><>

IFDhIF <C><D>,<
	HRLOI	A,-2		;
IF(NB <C>,<	AOBJP	HA,C
  IFNB <D>h,<IFIDN <D><E>,<JRST	D>>>
IFB (<C>,<IFDIF <D><HE>,<AOBJP A,i>h
	    IFIDN <D><E>,<AOBJN A,D(>>
>;<><>

IFDHIF <D><E>,<
	IhF2,<IFE A,<PRINTX ? A MUST BE NO(N-ZERO IN JUMPPT>H>
	MOVEI	A,0		;h
	BLT	A,0		;
IFNB <D>,<	JUMPE	(A,D
  IFNB <EH>,<	JRST	E>>
IFhB <D>,<	JUMPN	A,E>
>;<><>

L(STOF.	CREF
i:
LSTON.	CREFi:
Y$- 	<1B<^L<A>>><1B<^L<A>Y tQ xY>
C@ "(
 B (<MOVE"H,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG 
(d
IFDIF <
HA><LIST>,<
	IFND
hEF CRFIN.,CRFIN.==0
	IFGE CRFIN.,(.XCREF
	CRFIN.==HCRFIN.+1>
IFDIF h<A><CREF><
	IFN
DEF LSTIN.,LSTIN.
(==0
	IFGE LSTIN.
H,XLIST
	LSTIN.==LSTIN.+1>
N.==YO%{G 
IFDIFR<,<
	LSTISTIN.-1
	IFLSTIN.,LIST>
IFDIF <A><LIST>,(<
	CRFIN.==CRFINH.-1
	IFLE CRFIN.,.CREF>
CRFIN.[3@ 	<<<1_<A>>-1>B<B>>_<A>>[?7 %
`
	LSTOF.	%(CREF
	TEST%%=0
%HIFE	<<B>_-^D18>,%h<
	TEST%%=1
	LS&TON.	CREF
	MOVEI&(	A,<B>
	LSTOF.&H	CREF
>
IFN	<B&h>,<
IFE	<<B>_^D'18>,<
	TEST%%=1
	LSTON.	CREF
	M'HOVSI	A,(B)
	LS'hTOF.	CREF
>
IFE(	<<<B>_-^D18>-^O((777777>,<
	TEST%(H%=1
	LSTON.	CREF(h
	HRROI	A,<B>
	LSTOF.	CREF
>)(
IFE	TEST%%,<
IF)HE	<<<B>_^D18>-^O)h777777B17>,<
	TE*ST%%=1
	LSTON.	C*(REF
	HRLOI	A,(<*HB>-^O777777)
	L*hSTOF.	CREF
>
IF+E	TEST%%,<
	LSTO+(N.	CREF
	MOVE	A+H,[B]
	LSTOF.	CR+hEF
>>>
	PURGE	T,EST%%
	LSTON.	CREF%
	LSTON.	CR[Vg F(
6
	LSTOF.	FHCREF
	OP%%IN	(AFh,B,MUL)
	LSTON.	CREF

	LSTON.] 
	IFNDEF	A,<A==B>
F	]` H&
	IFNDEF	hA,<A==B>
	SHOW.	(A)

	SHO_@(Xp /(
IFE	<<B/H>_-^D18>,<
	LSTO/hN.	CREF
	CAIC	0A,<B>
	LSTOF.	C0(REF
>
IFN	<<B>0H_-^D18>,<
	LSTON0h.	CREF
	CAMC	A1,[B]
	LSTOF.	CREF
>	LSTOF.	CR_@(YP B

IFE	<<<B(B>_^D18>-^O777777BHB17>,<
	LSTON.	CBhREF
	DI	A,(-<CB>)
	LSTOF.	CREFC(
>
IFN	<<<B>_^CHD18>-^O777777B17>Ch,<
	OP%%FP	A,<B>,C
>P	A,<_@(YX J(
^
IFE	<<BJH>_^D18>,<
	LSTONJh.	CREF
	CI	A,(KB)
	LSTOF.	CREFK(
>
IFN	<<B>_^DKH18>,<
	LSTON.	CRKhEF
	C	A,[B]
	LSTOF.	CREF
>_@(Z0 1HZ
IFE	<<<1hB>_-^D18>-^O7777727>,<
	LSTON.	CRE2(F
	DI	A,-<B>
	LSTOF.	CREF
>2h
IFN	<<<B>_-^D18;>-^O777777>,<
	O;(P%%IN	A,<B>,C
>N	A,<B>,C
IFE	<<B<>_-^D18>,<
	LSTO<(N.	CREF
	CI	A,<H<B>
	LSTOF.	CRE=(F
>
IFN	<<B>_-=H^D18>,<
	LSTON.	<hCREF
	C	A,[B]=
	LSTOF.	CREF
>	LSTOF.	CREF
>_@(] uhP

IFN <<Av>&^O777777777760>v(, PRINTX ? A IS vHNOT AN ACCUMULATOvhR

	TEMP%%=0
IwFE	<<B>^D18>,<
IFN	<B>,<
	TEMwHP%%=1
	LSTON.	CRwhEF
	C	A,(B)
x	LSTOF.	CREF
>>(
IFE	<<B>_-^D18>xH,<
	TEMP%%=1
	LxhSTON.	CREF
	D	yA,<B>
	LSTOF.	Cy(REF
>
IFE	TEMP%yH%,<
	LSTON.	CREFyh
	E	A,[B]
	LzSTOF.	CREF
>
	PURGE	TEMP%%
	Pa
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 (	<POINT	WIDH(B),A,POS(B)>B),A,POS(B)>a?H6 +a? H~<^L<A>+^Lh<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG H	8
	DEFINE	hINFO.(OPCODE,NEWARG)<
	OPCODE	<A
	NEWARG>>	<AeD- H	
<<A>&-<A>><<A>&-<Ae tP'g"~s@ H 	LSTOF.	CRhEF
	EXP	<A>
	.ORG	.-1
			LSTON.	CREF
			LSTONgR~#@ #
 B (<MOVE#(M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  ,H
v
IFE <D>,h,<	SETZM	B>	;
I-FE <D>+1,<	SETOM-(	B>	;
IFN <D>*-H<<D>+1>,<MOVX	A-h,<D>	;
		   MOV.EM A,B>	;
IFNB.( <C>,<			;
	MOV.HE	A,[B,,B+1]
.h	BLT	A,C		;
>BLT	A,C		;
>gV E(
.
	LSTOF.	EHCREF
	OP%%IN	(AEh,B,SUB)
	LSTON.	CREF

	LSTON.i'%I' H
	TITLE	hA %B -- C
IF2,	PRINTX	ASSEMBLIN(G A %B -- C
	H.TEXT	*/VERSION:B*
*/VERSION:ib V(*
	LSTOF.	qHCREF
IFB <B>, TqhXC	(<^O37777777&rA>,1B<A-^D30>)
IFNB <B>,<
IFNrH <<A>&^O77777777rh7760>, PRINTX ? sA IS NOT AN ACCUMs(ULATOR
IFE	<<<BsH>_-^D18>-^O777777sh>,<
	LSTON.	CREFt
	EQVI	A,<,,-1-t(<B>>
	LSTOF.	CRtHEF>
IFN	<<<B>_-th^D18>-^O777777>,<u
	OP%%TX	A,<B>u(,TLC,TRC,TDC
>>	LSTON.	CREF
>>	ib o(
	LSTOF.	oHCREF
IFB  <B>,	ohOP%%TX	<^O3777777p7&A>,1B<A-^D30p(>,TLCA,TRCA,TDCA
IFNB <B>,	OP%%TphX	A,<B>,TLCA,TRqCA,TDCA
	LSTON.	CREF

	LSTON.	ibP jhd
	LSTOF.	kCREF
IFB  <B>,	k(OP%%TX	<^O3777777kH7&A>,1B<A-^D30kh>,TLCE,TRCE,TDCE
IFNB <B>,	OP%%Tl(X	A,<B>,TLCE,TRlHCE,TDCE
	LSTON.	CREF

	LSTON.	ib` mv
	LSTOF.	m(CREF
IFB  <B>,	mHOP%%TX	<^O3777777mh7&A>,1B<A-^D30n>,TLCN,TRCN,TDCN
IFNB <B>,	OP%%TnHX	A,<B>,TLCN,TRnhCN,TDCN
	LSTON.	CREF

	LSTON.	ibp L(
f
IFB <B>LH, JFCL	0
IFNB <LhB>, TRN	A,<,,<B>>
N	A,<,,<Bibt [
	LSTOF.	[(CREF
IFB  <B>,	[HOP%%TX	<^O3777777[h7&A>,1B<A-^D30\>,TLNA,TRNA,TDNA
IFNB <B>,	OP%%T\HX	A,<B>,TLNA,TR\hNA,TDNA
	LSTON.	CREF

	LSTON.	ibtC@ P
IFE <<B(>_<1+^L<B>>>,<
HIFE <<B>&<C>>,<h
	TXNN	A,<B>
>
IFN <<B>&<C>(>,<
	TXNE	A,<BH>
>>
IFN <<B>_h<1+^L<B>>>,<
	T	XCA	A,<<C>&<B>	(>
	JRST	.+4
	TX	HCE	A,<<C>&<B>>	h
	JRST	.+3
	TXN
N	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP VH
	LSTOF.	VhCREF
IFB  <B>,	WOP%%TX	<^O3777777W(7&A>,1B<A-^D30WH>,TLNE,TRNE,TDNE
IFNB <B>,	OP%%TXX	A,<B>,TLNE,TRX(NE,TDNE
	LSTON.	CREF

	LSTON.	ibu@ H4
IFE <<Bh>_<1+^L<B>>>,<
IFE <<B>&<C>>,<(
	TXNE	A,<B>
H>
IFN <<B>&<C>h>,<
	TXNN	A,<B>
>>
IFN <<B>_(<1+^L<B>>>,<
	THXCA	A,<<C>&<B>h>
	JRST	.+4
	TXCE	A,<<C>&<B>>(
	JRST	.+2
	TXNHE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` Xh
	LSTOF.	YCREF
IFB  <B>,	Y(OP%%TX	<^O3777777YH7&A>,1B<A-^D30Yh>,TLNN,TRNN,TDNN
IFNB <B>,	OP%%TZ(X	A,<B>,TLNN,TRZHNN,TDNN
	LSTON.	CREF

	LSTON.	ibx Qh
	LSTOF.	RCREF
IFB <B>, TR(XO	(<^O37777777&RHA>,1B<A-^D30>)
IFNB <B>,<
IFNS <<A>&^O77777777S(7760>, PRINTX ? SHA IS NOT AN ACCUMShULATOR
IFE	<<<BT>_-^D18>-^O777777T(>,<
	LSTON.	CREFTH
	ORCMI	A,<,,-1Th-<B>>
	LSTOF.	CUREF>
IFN	<<<B>_U(-^D18>-^O777777>,UH<
	OP%%TX	A,<BUh>,TLO,TRO,TDO
>>	LSTON.	CREF
>>ib| hHR
	LSTOF.	hhCREF
IFB  <B>,	iOP%%TX	<^O3777777i(7&A>,1B<A-^D30iH>,TLOA,TROA,TDOA
IFNB <B>,	OP%%TjX	A,<B>,TLOA,TRj(OA,TDOA
	LSTON.	CREF

	LSTON.	ib|P d.
	LSTOF.	d(CREF
IFB  <B>,	dHOP%%TX	<^O3777777dh7&A>,1B<A-^D30e>,TLOE,TROE,TDOE
IFNB <B>,	OP%%TeHX	A,<B>,TLOE,TRehOE,TDOE
	LSTON.	CREF

	LSTON.	ib}` f(@
	LSTOF.	fHCREF
IFB  <B>,	fhOP%%TX	<^O3777777g7&A>,1B<A-^D30g(>,TLON,TRON,TDON
IFNB <B>,	OP%%TghX	A,<B>,TLON,TRhON,TDON
	LSTON.	CREF

	LSTON.	icP M(

	LSTOF.	MHCREF
IFB <B>, TMhXZ	(<^O37777777&NA>,1B<A-^D30>)
IFNB <B>,<
IFNNH <<A>&^O77777777Nh7760>, PRINTX ? OA IS NOT AN ACCUMO(ULATOR
IFE	<<<BOh>_-^D18>-^O777777OH>,<
	LSTON.	CREFP
	ANDI	A,<,,-1-P(<B>>
	LSTOF.	CRPHEF>
IFN	<<<B>_-Ph^D18>-^O777777>,<Q
	OP%%TX	A,<B>Q(,TLZ,TRZ,TDZ
>>	LSTON.	CREF
>>	icT ah
	LSTOF.	bCREF
IFB  <B>,	b(OP%%TX	<^O3777777bH7&A>,1B<A-^D30bh>,TLZA,TRZA,TDZA
IFNB <B>,	OP%%Tc(X	A,<B>,TLZA,TRcHZA,TDZA
	LSTON.	CREF

	LSTON.	icTP ](
	LSTOF.	]HCREF
IFB  <B>,	]hOP%%TX	<^O3777777^7&A>,1B<A-^D30^(>,TLZE,TRZE,TDZE
IFNB <B>,	OP%%T^hX	A,<B>,TLZE,TR_ZE,TDZE
	LSTON.	CREF

	LSTON.	icU` _H

	LSTOF.	_hCREF
IFB  <B>,	`OP%%TX	<^O3777777`(7&A>,1B<A-^D30`H>,TLZN,TRZN,TDZN
IFNB <B>,	OP%%TaX	A,<B>,TLZN,TRa(ZN,TDZN
	LSTON.	CREF

	LSTON.	if` 
	MOVX	A(,1B<B_-^D30>
	LHSTOF.	CREF
	<XORhM	A,>!<37777777&B>
	LSTON.	CREF

	LSTON.	CREFiftS@ |h
	MOVX	A|(,1B<B_-^D30>
	L|HSTOF.	CREF
	<TDN|hE	A,>!<37777777&}B>
	LSTON.	CREF

	LSTON.	CREFifuc@ }Ht
	MOVX	A}h,1B<B_-^D30>
	L~STOF.	CREF
	<TDN~(N	A,>!<37777777&~HB>
	LSTON.	CREF

	LSTON.	CREFify` 
	MOVX	A(,1B<B_-^D30>
	LHSTOF.	CREF
	<IORhM	A,>!<37777777&B>
	LSTON.	CREF

	LSTON.	CREFigQ` H

	MOVX	Ah,1B<B_-^D30>
	LSTOF.	CREF
	<AND(CAM	A,>!<3777777H7&B>
	LSTON.	CREF

	LSTON.	CRmHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ HBYTE (3)AhWHO (9)AVER (6)AMIN (18)AEDTo&  x<^L<-<<A>_<^L<A>>>-1>>>q? {H\TXC	A,<B>TXC	A,<Bq@ (.
	INTERN	HA
	IFB  <C>,<hA==B>
	IFNB <C>,<A=B>
 <Cus@ #h
$ B (<SETZ$M,HLLZS,HRRZS,<PR$(INTX ?CAN'T ZERO $HBYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ?P >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