Google
 
Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,U_@P C' u8+OP%%IA	(A,B,ADD,SUB)(AC2L{G R0<^D35-<^L<RPRGHBT.(A)>>+<^D3Rp7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' ?P}TXZ	A,-1-<B>TXZ	A,-1-EJMj' fx@I`
W0.==A
W1.==B				;INITg`IALIZE BREAK MASKh
W2.==C
W3.==D
==C
W3.==$P-00,<
DEF0	(AC,FL}0CREF
IEJZ aX!	..V22==aax
	..V1==a
	IFNbB <B>,<..V22==Bb8>
REPEAT ..V22-<bXa>+1,<	
	%%W==.bx.V1/^D32	
	%%X==c..V1-%%W*^D32	
	c8IFE C,BRKC1 \"<%cX%W+"0">	
	IFN Ccx,BRKC2 \"<%%W+"0"d>
	..V1==..V1+1
		   >
.V1+1 dX%	WA.==WA.!<1B<%%X>>
AEJ\4@ e+	WA.==WAe8.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: `
%%FOO==`8a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g h@N

	BRINI. Ah`,B,C,D	
	IRPCi E,<	UNBRK. "E"i >	
	IRPC F,<	BRi@KCH. "F">	
	EXPi` W0.,W1.,W2.,W3.		
W1.,W2.,W3.	ES| S0
	REPEAT	SP3,<
	TXCE	A,1B<B>!1B<C>
>B<EVMI 
l==-1
8IRP E,<l==l+1
IFE D-l, <l==x-1
IRP G,<l==l+1
IFE F-l, <8

;+.PARA -8
;XXXXTTL	MACRO TO GxENERATE A TITLE STATEMENT OF THE F8ORM:
;.BREAK
;-XTITLE A COMMENT xVERSION
	DEFINE KTTL,<IFG I,<
8	TITLE	A - J  %XBEG(H)-I
>IxFE I,<
	TITLE	A - J  %BEG(8H)
>>

;+.PARAX -8
;XXX137	MACRxO TO SETUP LOCATION 137 WITH THE S8PECIFIED
;-VERSIXON NUMBER. NOTE: xTHE MACRO DOES ITS OWN "LOC" AND "8RELOC".
	DEFINE XK137,<IFG I,<
x	IF2,<LALL>
	LOC	137
	BYTE (3)K8WHO(9)KVER(6)KMXIN(18)KEDT	; A x%BEG(H)-I
	RELOC
	SALL
>	I8FE I,<
	IF2,<LAXLL>
	LOC	137
	BxYTE (3)KWHO(9)KVER(6)KMIN(18)K8EDT	; A %BEG(XH)
	RELOC
	SALxL
>>

; MACRO TO DEFINE VERSION8 # AT CURRENT LOCXATION
;+.PARA -8x
;XXXVRS	MACRO TO DEFINE THE VERS8ION NUMBER AT AN
;-ARBITRARY USERx LOCATION.
	DEFI NE KVRS,<IFG I, 8<
	IF2,<LALL>
	 XBYTE (3)KWHO(9) xKVER(6)KMIN(18)!KEDT	; A %BEG!8(H)-I
	SALL
>!X	IFE I,<
	IF2,<!xLALL>
	BYTE (3)"KWHO(9)KVER(6)K"8MIN(18)KEDT	; A"X %BEG(H)
	SA"xLL
>>

; GENERA#TE A PASS2 PRINTX#8 STATEMENT
;+.PA#XRA -8
;-XXXPTX	G#xENERATES A PASS2 $PRINTX STATEMENT.$8
	DEFINE KPTX,<$X
	IF2,<
	IFG I$x,<PRINTX A %BE%G(H)-I	J
>	I%8FE I,<PRINTX A %X%BEG(H)	J
>%x>>

;+.PARA -8
;XXXSTL	THE XXXS&8TL MACRO GENERATE&XS A NEW PAGE
;VI&xA THE MACRO PAGE 'PSEUDO-OP AND OPT'8IONALLY
;DEFINES'X A NEW SUBTTL COM'xMAND. THE CALL IS( "XXXSTL (COMMENT(8)".
;IF THE XXXS(XTL MACRO IS CALLE(xD WITH A NULL ARG)UMENT A COMMENT
)8; LINE IS GENERAT)XED AT THE BOTTOM )xOF THE CURRENT PA*GE
; AND AT THE *8TOP OF THE NEXT P*XAGE INDICATING TH*xAT THE PAGE
;-HA+S BEEN CONTINUED.+8
	DEFINE KSTL (+XTEXT),<IFNB <TEXT+x>,<
	SUBTTL	TEXT,
	PAGE
>	IFB <T,8EXT>,<
	LALL
	P,XAGE		; CONTINUED ,xTO NEXT PAGE
	SA-LL		; CONTINUED F-8ROM PREVIOUS PAGE-X
>>
;+.PARA -8
;XXXUNV	MACRO TO. GENERATE A UNIVE.8RSAL STATEMENT. T.XHE MACRO IN
;EFF.xECT IS AN EXACT C/OPY OF THE XXXTTL/8 MACRO EXCEPT THA/XT THE
;-WORD "UN/xIVERSAL" REPLACES0 THE WORD "TITLE"08.
	DEFINE KUNV,0X<IFG I,<
	LALL
	UNIVERSAL A - 1J  %BEG(H)-18I
	SALL
>IFE I1X,<
	LALL
	UNIVE1xRSAL A - J  %B2EG(H)
	SALL
28>>

;+.PARA -8
2X;XXXERR	MACRO TO 2xTYPE A FATAL ERRO3R MESSAGE ON THE
;USER'S TERMINAL3X. THE CALL IS OF 3xTHE FORM:
;.BREA4K
;XXXERR (ZZZ,E48RROR MESSAGE,<PDP4X-10 INSTRUCTION>)4x
;.BREAK
;ZZZ I5S THE 3-CHARACTER58 ERROR CODE, ERRO5XR MESSAGE IS THE 5xASCIZ
;STRING TO6 BE TYPED ON THE 68TERMINAL AND PDP-6X10 INSTRUCTION IS6x
;AN OPTIONAL AR7GUMENT INDICATING78 WHAT THE USER WA7XNTS TO DO
;ABOUT7x THE ERROR JUST T8YPED. IF THE ARGU88MENT IS NULL AN
8X;-EXIT IS EXECUTE8xD.
	DEFINE KERR9 (COD,MSG,INSTR),98<
...'COD:	JRST	9X[
	OUTSTR	[ASCIZ9x \
? K'COD MSG\:]
	IFNB <INSTR>,:8<INSTR>
	IFB <IN:XSTR>,<EXIT>
]>
:x
;+.PARA -8
;XX;XWRN	MACRO SIMILA;8R TO THE XXXERR M;XACRO EXCEPT THAT ;xA
;WARNING MESSA<GE IS ISSUED RATH<8ER THAN A FATAL A<XND
;-THE DEFAULT<x PDP-10 INSTRUCTI=ON TO BE EXECUTED=8 IS "JRST .+1".
=X	DEFINE KWRN (CO=xD,MSG,INSTR),<
.>..'COD:	JRST	[
	>8OUTSTR	[ASCIZ \
>X% K'COD MSG\]
	>xIFNB <INSTR>,<INS?TR>
	IFB <INSTR>?8,<JRST .+1>
]>
?X

STOPI>>STOPI>?x>
	PURGE l,m,n
URGEPl,m,G@,oyOP%%CA(A,B,)OP%%CAA(AGD,rPOP%%CA(A,B,A)P%%CAA(AGDP,pPOP%%CA(A,B,E)P%%CAA(AGDp,q	OP%%CA(A,B,G)P%%CA (AGDy  qP
	DEFINE	TpINFO.(OPCODE,NEWAURG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ IpWLALL

		J	   PAGE	;(CONTINJ0UED ON NEXT PAGE)JP
			   SALL	;(COJpNTINUED FROM PREVIOUS PAGE)
REVG?T 1ASCIZ \
COPYRIGHT Z \
CI6= Zpo
	..OLD==[10
	..TYP==3
IF[0E <C>+1,..TYP==0[P
IFE <C>-^O7777[p77,..TYP==1
IFE \<C>-^O777777B17,\0..TYP==2
..POS==\PPOS(<C>)
..WID=\p=WID(<C>)
	RADI]X	10
	DF%%ST (\.]0.TYP,A,<B>,\..P]POS,\..WID)
	PURG]pE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z ^0

	RADIX	.^P.OLD
DEFINE	B (^pOPS,AC,E),<
	..C_==0
	IRP OPS,<
_0		IFE A-..C,<
	_P		STOPI
			IFN 3_p-..C, OPS <AC>,C`'E
			IFE 3-..C,`0 OPS <AC>,[POINT `PE,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 w8;OP%%IN	(A,B,DIV)%IN	(AKc  E IRP A,<IFD2,<IFNDEF A,<EXTERN A>>>A,<EXTM&. }8kOP%%FP	(A,B,FADR)FP	(AM6. ~xwOP%%FP	(A,B,FDVR)FP	(AM&eG QP<<A>!<<LFQpTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. ~8sOP%%FP	(A,B,FMPR)FP	(AMH(X6 Z0S
	DEFINE	A,<-^OB(P)>
MJ VPO
	OLD%%%=Vp=10	
	RADIX	8
	WN%%%==0		
IRP AW0,<
	FR%%AM (A,\WP<N%%%+1>)	
	N%%%Wp==N%%%+1		
>
	AXDD	P,[N%%%,,N%%%]X0	
	PUSHJ	P,b		
	  SKIPA
	AOS	-XpN%%%(P)	
	SUB	P,Y[N%%%,,N%%%]	
	PY0OPJ	P,		
b:
	RYPADIX	OLD%%%
	PURYpGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. }xoOP%%FP	(A,B,FSBR)FP	(AM\u|RQ O2|  DHK
	IRP	A,Dh<
	IF2,<
		.IF ChA,OPCODE,<.IFN CHA,LOCAL,<EXTERN C(A>>
		.IF A,NEECDED,<EXTERN A>
HP		.IF A,OPDEF ,<Hp.IFN A,LOCAL,<EXITERN A>>
		.IF I0A,LOCAL ,<INTERN A>
	>>
TERNQf@ +SNn wx?OP%%IN	(A,B,IDIV)IN	(AS7-N vx7OP%%IN	(A,B,IMUL)IN	(AS;k T!<<<A>B<POS(<B>)>>&<B>>S? ?yTXO	A,<B>TXO	A,<BU +,U +(U  +$Up +U~` +"U?0 +0UKI@ +UVn	 Qp+IFE <<B>_R1>,<
IFE <B>,<
	JUMP	A,D
>
RPIFN <B>,<
IFE <Rp<C>&<B>>,<
	JUSMPL	A,D
>
IFNS0 <<C>&<B>>,<
	SPJUMPGE	A,D
>>>Sp
IFN <<B>1>,<
	TXCA	A,<<C>&<T0B>>
	JRST	.+5
TP	TXCE	A,<<C>&<TpB>>
	JRST	D
	TUXNE	A,<<-<C>-1>U0&<B>>
	JRST	D
>>>
	JRST	D
' Mp
IFE <<BN>_1>,<
IFE <B>,N0<
	JUMPA	A,D
NP>
IFN <B>,<
IFNpE <<C>&<B>>,<
O	JUMPGE	A,D
>O0
IFN <<C>&<B>>,OP<
	JUMPL	A,D
Op>>>
IFN <<B>_1>P,<
	TXCA	A,<<CP0>&<B>>
	JRST	.+PP5
	TXCE	A,<<C>Pp&<B>>
	JRST	.+3Q
	TXNN	A,<<-<CQ0>-1>&<B>>
	JRST	D
>>>
	JRSTUVn

 Upq
IFDIF <VB><C>,<
	JFCL	1V0,.+1		
	JRST	.+1VP		
IFNB <B>,<	JVpFCL	1,B
WIFNB W<C>,<IFIDN <C><W0D>,<IFIDN <D><WPE>,< JRST	C>>>>
IFB <B>,<	JFCL	X1,i
  IFIDN <CX0><D>,<IFIDN <D>XP<E>,< JRST	C>>>Xp
>

IFDIF <C>Y<D>,<
	HRLOI	AY0,-2		
IFNB <C>,YP<	AOBJP	A,C
  YpIFNB <D>,<IFIDN Z<D><E>,<JRST	DZ0>>>
IFB <C>,<IFZPDIF <D><E>,<AOBZpJP A,i>
	    I[FIDN <D><E>,<AO[0BJN A,D>>
>
[P
IFDIF <D><E>,<[p
	IF2,<IFE A,<P\RINTX ? A MUST B\0E NON-ZERO IN JUM\PPPT>>
	MOVEI	A,\p0		
	BLT	A,0		
IFNB <D>,<	JUMP]0E	A,D
  IFNB <]PE>,<	JRST	E>>
]pIFB <D>,<	JUMPN	^A,E>
>

i:A,E>
>

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

C@a0MOVEaP,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG K0c
	IFNDEF	KPLSTIN.,	LSTIN.==0Kp
IFE LSTIN.,<
	LIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G Lpm
IFG LSTIMN., LSTIN.==LSTINM0.-1
IFLE LSTIN.,MP<	.CREF
		LIST>
CREF
		LIST> %=IFG 0,<
	%8IF2,<LALL>
	BYTE%X (3)MACWHO(9)MACV%xER(6)MACMIN(18)MA&CEDT	; MACTEN %5(&846)-0
	SALL
>	I&XFE 0,<
	IF2,<LAL&xL>
	BYTE (3)MACW'HO(9)MACVER(6)MAC'8MIN(18)MACEDT	; M'XACTEN %5(46)
	SALL
>5(46)
	SA[3@ P<<<1_<A>>-1>B<B>>_<A>>[>&: @8	
	LALL
	@X%%A==BYTE (3)AW@xHO(9)AVER(6)AMIAN(18)AEDT
	SALL
)AEDT
	SALL[?7 da
	.XCREF
	TEST%%=B
.IFNdP <TEST%%>,ABSOLUTdpE,<
	.CREF
	MOVeE	A,[B]
	.XCREe0F
>
.IF <TEST%%eP>,ABSOLUTE,<
	TEepST%%=0
IFE	<<B>f_-^D18>,<
	TEST%f0%=1
	.CREF
	MOVfPEI	A,<B>
	.XCRfpEF
>
IFE	TEST%%g,<IFE	<<B>_^D18>g0,<
	TEST%%=1
	.gPCREF
	MOVSI	A,(gpB)
	.XCREF
>>
IFE	TEST%%,<IFE	h0<<<B>_-^D18>-^O7hP77777>,<
	TEST%%hp=1
	.CREF
	HRROiI	A,<B>
	.XCREi0F
>>
IFE	TEST%%iP,<IFE	<<<B>^D18ip>-^O777777B17>,<
	TEST%%=1
	.CREj0F
	HRLOI	A,(<BjP>-^O777777)
	.XCjpREF
>>
IFE	TESTk%%,<
	.CREF
	MOk0VE	A,[B]
	.XCRkPEF
>
>	;[35][32kp] END OF .IF <B>l,ABSOLUTE
	PURGE	TEST%%
	.CREF[Vg v83OP%%IN	(A,B,MUL)%IN	(A] AxCIF2,<IFDEFAX A,<A==A>> IFNH0DEF A,<A==<B>>F A,<A==<B>>]` Gh8ND (A,<BGH>)
PRINTX %PLEASFhE USE ND MACRO, NGDS. MACRO IS NOW OBSOLETE
 NOW _@(Xp s'
	.XCREF
IFE	<<B>_-^D18>sP,<
	.CREF
	CAIspC	A,<B>
	.XCREtF
>
IFN	<<B>_-t8^D18>,<
	.CREF
tX	CAMC	A,[B]
	tx.XCREF
>
	.CREFCREF
>
	.CREF_@(YX 8
	.XCREF
IFE	<<B>_^D18>,x<
	.CREF
	CI	A,(B)
	.XCREF
8>
IFN	<<B>_^D18X>,<
	.CREF
	C	xA,[B]
	.XCREF
>
	.CREFCREF8W
	.XCREF
	TEST%%=0
IFE	<xx<<B>_-^D18>-^O77y7777>,<
IFN	<<By8>&^O777777>,<
	TyXEST%%=1
	.CREF
yx	DI	A,-<B>
	.zXCREF
>>
IFE	TEz8ST%%,<
	OP%%IN	zXA,<B>,C
>
	PUzxRGE	TEST%%
	.CREF	TEST%%
	.CRE_@(Z7 {8g
	.XCREF
IFE	<<B>_-^D18>{x,<
	.CREF
	CI	|A,<B>
	.XCREF
>
IFN	<<B>_-^D|X18>,<
	.CREF
	|xC	A,[B]
	.XCREF
>
	.CREFCRE_@(] :Pu

	.XCREF
IFN <<A>&^O7777;77777760>, PRINTX;0 ? A IS NOT AN A;PCCUMULATOR

	TE;pMP%%=0
IFE	<<B><_^D18>,<
IFN	<B<0>,<
	TEMP%%=1
	<P.CREF
	C	A,(B<p)
	.XCREF
>>
I=FE	<<B>_-^D18>,<=0
	TEMP%%=1
	.CR=PEF
	D	A,<B>
=p	.XCREF
>
IFE	T>EMP%%,<
	.CREF
>0	E	A,[B]
>
	>PPURGE	TEMP%%
	.CREF	TEMP%%
	.Ca

tTQ  a

tTP a

tQ a

t*9Q a

t>(Q  a

t>(Q a

tk{Q a

tm3Q a

uJ8Q @a

uiQ a

u}SQ @a

v	P a

vM	P a

vZ7Q a

v\yQ a*n	r 5 a*n 4`a+= 5a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a>Mm O0}<POINT	WIDOP(B),A,POS(B)>B),A,POS(B)>a?H6 +a? NPw<^L<A>+^LNp<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG UP1
	DEFINE	UpINFO.(OPCODE,NEWAVRG)<
	OPCODE	<A
	NEWARG>>	<AeD- PP<<A>&-<A>><<A>&-<Ae tP'g"~s@ FH2	.XCREF
	F(EXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ b B (<MOVEb0M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  lPu
IFE <D>lp,<	SETZM	B>	
IFmE <D>+1,<	SETOM	m0B>	
IFN <D>*<<mPD>+1>,<MOVX	A,<mpD>	
		   MOVEM nA,B>	
IFNB <Cn0>,<			
	MOVE	A,nP[B,,B+1]
	BLT	A,C		
>	BLT	gV ux/OP%%IA	(A,B,SUB,ADD)(Ai'%I' 
	.XCREF
	Z==0
	IFNDEF XAVER,<Z==-1>
	IFxNDEF AMIN,<Z==-1	>
	IFNDEF AEDT,	8<Z==-1>
	IFNDEF 	XAWHO,<Z==-1>
	I	xFL Z,<PRINTX ?SYM
BOLS AWHO,AVER,
8AMIN AND AEDT N
XOT DEFINED
	PRIN
xTX ?VERSION SYMBOLS MUST BE DEFINE8D BEFORE CALLING XTITLE. MACRO
ENDx>
	.CREF
	IF2,<

LALL>
	ASIX==SI

8XBIT /A/	; B AB

XBREVIATION IN SIX

xBIT
	AASC==ASCIABBRE
	SALL
	.XCREF
%FIRST=AMIN/^D26
IFE %FIRST,<%SE8CON==AMIN
	%FIRXST==0>
IFG %FIRSxT,<%SECON=AMIN-<^D26*%FIRST>>
IF8E AMIN-^D26,<%SEXCON==AMIN
	%FIRxST=0>
IFE AMIN-^D52,<%SECON==^D286
	%FIRST=1>
; XDEFINE ALL THE MAxCROS
BUILD$ (B,\AVER,\AMIN,\%F8IRST,<,A,B,C,D,E,XF,G,H,I,J,K,L,M,Nx,O,P,Q,R,S,T,U,V,W,X,Y,Z>,\%SECON,8<,A,B,C,D,E,F,G,HX,I,J,K,L,M,N,O,P,xQ,R,S,T,U,V,W,X,Y,Z>,\AEDT,\AWHO8,C,A)

	IF2,<XPURGE %SECON,%FIRST,Z>
.CREFFIRib 
xQ
	.XCREF
IFB <B>, TXC	(<6p^O37777777&A>,1B7<A_-^D30>)
IFNB70 <B>,<
IFN <<A7P>&^O777777777760>7p, PRINTX ? A IS 8NOT AN ACCUMULATO80R
IFE	<<<B>_-^D8P18>-^O777777>,<
8p	.CREF
	EQVI	A,9<,,-1-<B>>
	.XC90REF>
IFN	<<<B>_9P-^D18>-^O777777>,9p<
	OP%%TX	A,<B:>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib 4P1
	.XCREF
IFB  <B>,	OP%%T5X	<^O37777777&A>50,1B<A_-^D30>,TLC5PA,TRCA,TDCA
IFNB5p <B>,	OP%%TX	A,6<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP u
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLCE,TRCE,TDCE
IFNB8 <B>,	OP%%TX	A,X<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` !
	.XCREF
IFB  <B>,	OP%%T3X	<^O37777777&A>30,1B<A_-^D30>,TLC3PN,TRCN,TDCN
IFNB3p <B>,	OP%%TX	A,4<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp 8
IFB <B>X, JFCL	0
IFNB <xB>, TRN	A,<,,<B>>
N	A,<,,<Bibt 
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLNA,TRNA,TDNA
IFNB8 <B>,	OP%%TX	A,X<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ J0k
IFE <<BJP>_<1+^L<B>>>,<
JpIFE <<B>&<C>>,<K
	TXNN	A,<B>
K0>
IFN <<B>&<C>KP>,<
	TXNE	A,<BKp>
>>
IFN <<B>_L<1+^L<B>>>,<
	TL0XCA	A,<<C>&<B>LP>
	JRST	.+4
	TXLpCE	A,<<C>&<B>>M
	JRST	.+3
	TXNM0N	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP e
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLN

E,TRNE,TDNE
IFNB

8 <B>,	OP%%TX	A,

X<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ FpO
IFE <<BG>_<1+^L<B>>>,<
G0IFE <<B>&<C>>,<GP
	TXNE	A,<B>
Gp>
IFN <<B>&<C>H>,<
	TXNN	A,<BH0>
>>
IFN <<B>_HP<1+^L<B>>>,<
	THpXCA	A,<<C>&<B>I>
	JRST	.+4
	TXI0CE	A,<<C>&<B>>IP
	JRST	.+2
	TXNIpE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` 
	.XCREF
IFB<^<B>,	OP%%T>N,TRNN,TDNN
IFNB8 <B>,	OP%%TX	A,X<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx XS
	.XCREF
IFB <B>, TXO	(<^O37777777&A>,1B8<A_-^D30>)
IFNBX <B>,<
IFN <<Ax>&^O777777777760>, PRINTX ? A IS 8NOT AN ACCUMULATOXR
IFE	<<<B>_-^Dx18>-^O777777>,<
		.CREF
	ORCMI	A	8,<,,-1-<B>>
	.X	XCREF>
IFN	<<<B>	x_-^D18>-^O777777>
,<
	OP%%TX	A,<
8B>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| e
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLOA,TROA,TDOA
IFNB8 <B>,	OP%%TX	A,X<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P E
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLOE,TROE,TDOE
IFNB8 <B>,	OP%%TX	A,X<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` U
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLON,TRON,TDON
IFNB8 <B>,	OP%%TX	A,X<B>,TLON,TRON,TDON
	.CREF
,TDicP 81
	.XCREF
IFB <B>, TXZ	(<x^O37777777&A>,1B<A_-^D30>)
IFNB8 <B>,<
IFN <<AX>&^O777777777760>x, PRINTX ? A IS NOT AN ACCUMULATOXR
IFE	<<<B>_-^D818>-^O777777>,<
x	.CREF
	ANDI	A,<,,-1-<B>>
	.XC8REF>
IFN	<<<B>_X-^D18>-^O777777>,x<
	OP%%TX	A,<B>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT 5
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLZA,TRZA,TDZA
IFNB8 <B>,	OP%%TX	A,X<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP 
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLZE,TRZE,TDZE
IFNB8 <B>,	OP%%TX	A,X<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` %
	.XCREF
IFB  <B>,	OP%%TXX	<^O37777777&A>x,1B<A_-^D30>,TLZN,TRZN,TDZN
IFNB8 <B>,	OP%%TX	A,X<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` EP3
	MOVX	AEp,1B<B_-^D30>
	.FXCREF
	<XORM	A,F0>!<37777777&B>
	.CREF
7&B>
iftS@ @P
	MOVX	A@p,1B<B_-^D30>
	.AXCREF
	<TDNE	A,A0>!<37777777&B>
	.CREF
7&B>
ifuc@ Ap
	MOVX	AB,1B<B_-^D30>
	.B0XCREF
	<TDNN	A,BP>!<37777777&B>
	.CREF
7&B>
ify` C
	MOVX	AC0,1B<B_-^D30>
	.CPXCREF
	<IORM	A,Cp>!<37777777&B>
	.CREF
7&B>
igQ` D0)
	MOVX	ADP,1B<B_-^D30>
	.DpXCREF
	<ANDCAM	EA,>!<37777777&B>
	.CREF
7&B>k:*g `x	
%%FOO==aa
	BRK0 (%%FOO,B,1)
 (%%FOO,mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ BBYTE (3)AB8WHO (9)AVER (6)AMIN (18)AEDTo&  Nq<^L<-<<A>_<^L<A>>>-1>>>q"eJ  P q*-` +

q+= +q+= +
q6~i4 C q? @TXC	A,<B>TXC	A,<Bq@ EH.IFB <C>,<EhA==:<B>> IFNB <C>,<A=:<B>><qBp +qN5P +us@ bp B (<SETZcM,HLLZS,HRRZS,<PRc0INTX ?CAN'T ZERO cPBYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ 
| 8-
	XLIST
X	.ORG 0
	LIST
.ORG 0
	LIST
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 | X=
	XLIST
x	.....X=.
	.ORG
	.ORG 0
	REPEAT8 .....X,<EXP 0>
X	PURGE .....X
	.ORG
	LIST

	.&tj7Q ?6MiTQ @O,pP O,tP O,vP O,P j.+jP >}{woP