PDP-10 Archive: macten.unv from AP-D483B-SB

Trailing-Edge - PDP-10 Archives - AP-D483B-SB_1978 - macten.unv

There are 93 other files named macten.unv in the archive. Click here to see a list.

xO@P C' A

	OP%%IA	(A,B,ADD,SUB)(AC2L{G  
<^D35-<^L< 8RGHBT.(A)>>+<^D3 X7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' yXMTXZ	A,-1-<B>TXZ	A,-1-ES| !

	REPEAT	!83,<
	TXCE	A,1B<B>!1B<C>
>B<G@ :xWOP%%CA (A,B,)OP%%CA (AGD >8sOP%%CA (A,B,A)P%%CA (AGDP <8cOP%%CA (A,B,E)P%%CA (AGDp <xgOP%%CA (A,B,G)P%%CA (AGDy  =8kOP%%CA (A,B,GE)%%CA (AGE@ ;8[OP%%CA (A,B,L)P%%CA (AGEI  ;x_OP%%CA (A,B,LE)%%CA (AGE` =xoOP%%CA (A,B,N)P%%CA (AG&tkg "8

	DEFINE	"XINFO.(OPCODE,NEWA"xRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ X	ELALL

		x	   PAGE	;(CONTINUED ON NEXT PAGE)8
			   SALL	;(COXNTINUED FROM PREVIOUS PAGE)
REVI6= (X
]
	..OLD==(x10
	..TYP==3
IF)E <C>+1,..TYP==0)8
IFE <C>-^O7777)X77,..TYP==1
IFE )x<C>-^O777777B17,*..TYP==2
..POS==*8POS(<C>)
..WID=*X=WID(<C>)
	RADI*xX	10
	DF%%ST (\.+.TYP,A,<B>,\..P+8OS,\..WID)
	PURG+XE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z ,
u

	RADIX	.,8.OLD
DEFINE	B (,XOPS,AC,E),<
	..C,x==0
	IRP OPS,<
-		IFE A-..C,<
	-8		STOPI
			IFN 3-X-..C, OPS <AC>,C-x'E
			IFE 3-..C,. OPS <AC>,[POINT .8E,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 C

OP%%IN	(A,B,DIV)%IN	(AKc  	-
	IRP	A,8<
	IF2,<	IFNDEF	XA,<EXTERN A> >>,<EXTERN A> >>M&. H8

COP%%FA	(A,B,FADR,FSBR)AM6. Ix

OOP%%FP	(A,B,FDVR)FP	(AM&eG 8	}<<A>!<<LFXTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. I8

KOP%%FP	(A,B,FMPR)FP	(AMH(X6 (
A
	DEFINE	A,<-^OB(P)>
MJ $8
=
	OLD%%%=$X=10	;
	RADIX	8
$x	N%%%==0		;
IRP %A,<
	FR%%AM (A%8,\<N%%%+1>)	;
	N%X%%%==N%%%+1		;
>%x
	ADD	P,[N%%%,,N&%%%]	;
	PUSHJ	P,&8b		;
	  SKIPA
&X	AOS	-N%%%(P)	;
&x	SUB	P,[N%%%,,N%%'%]	;
	POPJ	P,		;'8
b:
	RADIX	OLD'X%%%
	PURGE	N%%%,OLD%%%
E	N%%%,MN. Hx

GOP%%FA	(A,B,FSBR,FADR)AM\u|RQ O2|  	9
	IRP	A,8<
	IF2,<	IFDEF	XA,<INTERN A>
		xIFNDEF	A,<EXTERN A>
		SUPPRE	A>>
		SUPPRE	ASNn CX

OP%%IN	(A,B,IDIV)IN	(AS7-N BX

OP%%IN	(A,B,IMUL)IN	(AS;k !x
<<<A>B<POS(<B>)>>&<B>>S? yITXO	A,<B>TXO	A,<BUVn	 x{IFE <<B>_

1>,<
IFE <B>,<

8
	JUMP	A,D
>

XIFN <B>,<
IFE <

x<C>&<B>>,<
	JU	A,D
>
IFNC>&<B>>,<
	UMPGE	A,D
>>>
IFN <<B>1>,<
	TXCA	A,<<C>&<8B>>
	JRST	.+5
X	TXCE	A,<<C>&<xB>>
	JRST	D
	TXNE	A,<<-<C>-1>8&<B>>
	JRST	D
>>>
	JRST	D
' x[
IFE <<B>_1>,<
IFE <B>,8<
	JUMPA	A,D
X>
IFN <B>,<
IFxE <<C>&<B>>,<
		JUMPGE	A,D
>	8
IFN <<C>&<B>>,	X<
	JUMPL	A,D
	x>>>
IFN <<B>_1>
,<
	TXCA	A,<<C
8>&<B>>
	JRST	.+
X5
	TXCE	A,<<C>
x&<B>>
	JRST	.+3
	TXNN	A,<<-<C8>-1>&<B>>
	JRST	D
>>>
	JRSTUVn

 xC
IFDIF <B><C>,<
	JFCL	18,.+1		;
	JRST	.+X1		;
IFNB <B>,<x	JFCL	1,B
  IFNB <C>,<IFIDN <C8><D>,<IFIDN <D>X<E>,< JRST	C>>>x>
IFB <B>,<	JFCL	1,i
  IFIDN <8C><D>,<IFIDN <XD><E>,< JRST	C>x>>
>;<><>

IFDIF <C><D>,<
	H8RLOI	A,-2		;
IFXNB <C>,<	AOBJP	xA,C
  IFNB <D>,<IFIDN <D><E>,8<JRST	D>>>
IFB X<C>,<IFDIF <D><xE>,<AOBJP A,i>
	    IFIDN <D>8<E>,<AOBJN A,DX>>
>;<><>

IFDxIF <D><E>,<
	IF2,<IFE A,<PRINT8X ? A MUST BE NOXN-ZERO IN JUMPPT>x>
	MOVEI	A,0		;
	BLT	A,0		;
I8FNB <D>,<	JUMPE	XA,D
  IFNB <Ex>,<	JRST	E>>
IFB <D>,<	JUMPN	A8,E>
>;<><>

i:
>;<><>

Y$- x	w<1B<^L<A>>><1B<^L<A>Y tQ xY>

C@ /
{ B (<MOVE/8,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG 	Q
	IFNDEF	8LSTIN.,	LSTIN.==0X
IFE LSTIN.,<
	xIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G X	[
IFG LSTIxN., LSTIN.==LSTIN.-1
IFLE LSTIN.,8<	.CREF
		LIST>
CREF
		LIST> x	o<<<1<A>>-1>B<B>><A>>[?7 1x=
	.XCREF
	TEST%%=0
IFE	<28<B>_-^D18>,<
	T2XEST%%=1
	.CREF
2x	MOVEI	A,<B>
	3.XCREF
>
IFN	<38B>,<
IFE	<<B>_^3XD18>,<
	TEST%%=13x
	.CREF
	MOVSI	4A,(B)
	.XCREF
>
IFE	<<<B>-^4XD18>-^O777777>,<
	TEST%%=1
	.CRE5F
	HRROI	A,<B>58
	.XCREF
>
IFE5X	TEST%%,<
IFE	<<5x<B>_^D18>-^O7777677B17>,<
	TEST%%68=1
	.CREF
	HRLO6XI	A,(<B>-^O77776x77)
	.XCREF
>
7IFE	TEST%%,<
	.C78REF
	MOVE	A,[B7X]
>>>
	PURGE	TEST%%
	.CREF	TE[Vg B

OP%%IN	(A,B,MUL)%IN	(A] 	
	IFNDEF	A,<A==B>
F	]` 8	
	IFNDEF	XA,<A==B>
	SHOW.	(A)

	SHO_@(Xp >x


	.XCREF
IFE	<<B>_-^D18>?8,<
	.CREF
	CAI?XC	A,<B>
	.XCRE?xF
>
IFN	<<B>_-@^D18>,<
	.CREF
@8	CAMC	A,[B]
	@X.XCREF
>
	.CREFCREF
>
	.CREF_@(YP J8

c
	.XCREF
IFE	<<<B>_^D18>Jx-^O777777B17>,<
K	.CREF
	DI	A,(K8-<B>)
	.XCREF
KX>
IFN	<<<B>_^D1Kx8>-^O777777B17>,<L
	OP%%FP	A,<B>L8,C
>
	.CREF
C
>
	.CREF
_@(YX Lx

s
	.XCREF
IFE	<<B>_^D18>,M8<
	.CREF
	CI	MXA,(B)
	.XCREF
Mx>
IFN	<<B>_^D18N>,<
	.CREF
	C	N8A,[B]
	.XCREF
>
	.CREFCREF

/
	.XCREF
IFE	<<<B>_-^D18DX>-^O777777>,<
	.DxCREF
	DI	A,-<EB>
	.XCREF
>
IE8FN	<<<B>_-^D18>-EX^O777777>,<
	OP%Ex%IN	A,<B>,C
>
	.CREF>,C
>_@(Z7 F8

?
	.XCREF
IFE	<<B>_-^D18>Fx,<
	.CREF
	CI	GA,<B>
	.XCREF
>
IFN	<<B>_-^DGX18>,<
	.CREF
	GxC	A,[B]
	.XCREF
>
	.CREFCRE_@(] tXE

	.XCREF
IFN <<A>&^O7777u77777760>, PRINTXu8 ? A IS NOT AN AuXCCUMULATOR

	TEuxMP%%=0
IFE	<<B>v_^D18>,<
IFN	<Bv8>,<
	TEMP%%=1
	vX.CREF
	C	A,(Bvx)
	.XCREF
>>
IwFE	<<B>_-^D18>,<w8
	TEMP%%=1
	.CRwXEF
	D	A,<B>
wx	.XCREF
>
IFE	TxEMP%%,<
	.CREF
x8	E	A,[B]
>
	xXPURGE	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 	k<POINT	WID8(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 8	e<^L<A>+^LX<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG #8

	DEFINE	#XINFO.(OPCODE,NEWA#xRG)<
	OPCODE	<A
	NEWARG>>	<AeD- 8	s<<A>&-<A>><<A>&-<Ae tP'g"~s@ X		.XCREF
	xEXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ /x B (<MOVE0M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  8S
IFE <D>88,<	SETZM	B>	;
I8XFE <D>+1,<	SETOM8x	B>	;
IFN <D>*9<<D>+1>,<MOVX	A98,<D>	;
		   MOV9XEM A,B>	;
IFNB9x <C>,<			;
	MOV:E	A,[B,,B+1]
:8	BLT	A,C		;
>BLT	A,C		;
>gV AX

OP%%IA	(A,B,SUB,ADD)(Aib X8!
	.XCREF
IFB <B>, TXC	(<px^O37777777&A>,1Bq<A_-^D30>)
IFNBq8 <B>,<
IFN <<AqX>&^O777777777760>qx, PRINTX ? A IS rNOT AN ACCUMULATOr8R
IFE	<<<B>_-^DrX18>-^O777777>,<
rx	.CREF
	EQVI	A,s<,,-1-<B>>
	.XCs8REF>
IFN	<<<B>_sX-^D18>-^O777777>,sx<
	OP%%TX	A,<Bt>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib nX
	.XCREF
IFB  <B>,	OP%%ToX	<^O37777777&A>o8,1B<A_-^D30>,TLCoXA,TRCA,TDCA
IFNBox <B>,	OP%%TX	A,p<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP jXa
	.XCREF
IFB  <B>,	OP%%TkX	<^O37777777&A>k8,1B<A_-^D30>,TLCkXE,TRCE,TDCE
IFNBkx <B>,	OP%%TX	A,l<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` lXq
	.XCREF
IFB  <B>,	OP%%TmX	<^O37777777&A>m8,1B<A_-^D30>,TLCmXN,TRCN,TDCN
IFNBmx <B>,	OP%%TX	A,n<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp Nx

{
IFB <B>O, JFCL	0
IFNB <O8B>, TRN	A,<,,<B>>
N	A,<,,<Bibt \X
	.XCREF
IFB  <B>,	OP%%T]X	<^O37777777&A>]8,1B<A_-^D30>,TLN]XA,TRNA,TDNA
IFNB]x <B>,	OP%%TX	A,^<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ 8;
IFE <<BX>_<1+^L<B>>>,<
xIFE <<B>&<C>>,<
	TXNN	A,<B>
8>
IFN <<B>&<C>X>,<
	TXNE	A,<Bx>
>>
IFN <<B>_<1+^L<B>>>,<
	T8XCA	A,<<C>&<B>X>
	JRST	.+4
	TXxCE	A,<<C>&<B>>
	JRST	.+3
	TXN8N	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP XX
	.XCREF
IFB  <B>,	OP%%TYX	<^O37777777&A>Y8,1B<A_-^D30>,TLNYXE,TRNE,TDNE
IFNBYx <B>,	OP%%TX	A,Z<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ x
IFE <<B>_<1+^L<B>>>,<
8IFE <<B>&<C>>,<X
	TXNE	A,<B>
x>
IFN <<B>&<C>>,<
	TXNN	A,<B8>
>>
IFN <<B>_X<1+^L<B>>>,<
	TxXCA	A,<<C>&<B>>
	JRST	.+4
	TX8CE	A,<<C>&<B>>X
	JRST	.+2
	TXNxE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` ZX
	.XCREF
IFB  <B>,	OP%%T[X	<^O37777777&A>[8,1B<A_-^D30>,TLN[XN,TRNN,TDNN
IFNB[x <B>,	OP%%TX	A,\<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx T
	.XCREF
IFB <B>, TXO	(<TX^O37777777&A>,1BTx<A_-^D30>)
IFNBU <B>,<
IFN <<AU8>&^O777777777760>UX, PRINTX ? A IS UxNOT AN ACCUMULATOVR
IFE	<<<B>_-^DV818>-^O777777>,<
VX	.CREF
	ORCMI	AVx,<,,-1-<B>>
	.XWCREF>
IFN	<<<B>W8_-^D18>-^O777777>WX,<
	OP%%TX	A,<WxB>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| hXQ
	.XCREF
IFB  <B>,	OP%%TiX	<^O37777777&A>i8,1B<A_-^D30>,TLOiXA,TROA,TDOA
IFNBix <B>,	OP%%TX	A,j<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P dX1
	.XCREF
IFB  <B>,	OP%%TeX	<^O37777777&A>e8,1B<A_-^D30>,TLOeXE,TROE,TDOE
IFNBex <B>,	OP%%TX	A,f<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` fXA
	.XCREF
IFB  <B>,	OP%%TgX	<^O37777777&A>g8,1B<A_-^D30>,TLOgXN,TRON,TDON
IFNBgx <B>,	OP%%TX	A,h<B>,TLON,TRON,TDON
	.CREF
,TDicP Ox
	.XCREF
IFB <B>, TXZ	(<P8^O37777777&A>,1BPX<A_-^D30>)
IFNBPx <B>,<
IFN <<AQ>&^O777777777760>Q8, PRINTX ? A IS QXNOT AN ACCUMULATORR
IFE	<<<B>_-^DQx18>-^O777777>,<
R8	.CREF
	ANDI	A,RX<,,-1-<B>>
	.XCRxREF>
IFN	<<<B>_S-^D18>-^O777777>,S8<
	OP%%TX	A,<BSX>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT bX!
	.XCREF
IFB  <B>,	OP%%TcX	<^O37777777&A>c8,1B<A_-^D30>,TLZcXA,TRZA,TDZA
IFNBcx <B>,	OP%%TX	A,d<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP ^X
	.XCREF
IFB  <B>,	OP%%T_X	<^O37777777&A>_8,1B<A_-^D30>,TLZ_XE,TRZE,TDZE
IFNB_x <B>,	OP%%TX	A,`<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` `X
	.XCREF
IFB  <B>,	OP%%TaX	<^O37777777&A>a8,1B<A_-^D30>,TLZaXN,TRZN,TDZN
IFNBax <B>,	OP%%TX	A,b<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` X
	MOVX	Ax,1B<B_-^D30>
	.XCREF
	<XORM	A,8>!<37777777&B>
	.CREF
7&B>
iftS@ zX[
	MOVX	Azx,1B<B_-^D30>
	.{XCREF
	<TDNE	A,{8>!<37777777&B>
	.CREF
7&B>
ifuc@ {xe
	MOVX	A|,1B<B_-^D30>
	.|8XCREF
	<TDNN	A,|X>!<37777777&B>
	.CREF
7&B>
ify` }o
	MOVX	A}8,1B<B_-^D30>
	.}XXCREF
	<IORM	A,}x>!<37777777&B>
	.CREF
7&B>
igQ` ~8y
	MOVX	A~X,1B<B_-^D30>
	.~xXCREF
	<ANDCAM	A,>!<37777777&B>
	.CREF
7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ 	BYTE (3)A8WHO (9)AVER (6)AMIN (18)AEDTo&  x	_<^L<-<<A>_<^L<A>>>-1>>>q? zQTXC	A,<B>TXC	A,<Bq@ 	%
	INTERN	8A
	IFB  <C>,<XA==B>
	IFNB <C>,<A=B>
 <Cus@ 0X B (<SETZ0xM,HLLZS,HRRZS,<PR1INTX ?CAN'T ZERO 18BYTE>>,<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