Google
 

Trailing-Edge - PDP-10 Archives - bb-l014q-bm_tops20_v6_1_atpch17 - autopatch/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,S_@P C' nH&tOP%%IA	(A,B,ADD,SUB)(AC2L{G K@$`<^D35-<^L<K`RGHBT.(A)>>+<^D3L7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' 8`+FTXZ	A,-1-<B>TXZ	A,-1-EJMj' `.	Bp
W0.==A
W1.==B				;INIT`pIALIZE BREAK MASKa
W2.==C
W3.==D
==C
W3.==4-v0*J0,<
DEF*L0	(AC,FL*F0CREF
IEJZ Zh-j	..V22==a[
	..V1==a
	IFN[(B <B>,<..V22==B[H>
REPEAT ..V22-<[ha>+1,<	
	%%W==.\.V1/^D32	
	%%X==\(..V1-%%W*^D32	
	\HIFE C,BRKC1 \"<%\h%W+"0">	
	IFN C],BRKC2 \"<%%W+"0"](>
	..V1==..V1+1
		   >
.V1+1 ]h-n	WA.==WA.!<1B<%%X>>
AEJ\4@ ^(-t	WA.==WA^H.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: Y(-L
%%FOO==YHa
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g aP.
	BRINI. Aap,B,C,D	
	IRPCb E,<	UNBRK. "E"b0>	
	IRPC F,<	BRbPKCH. "F">	
	EXPbp W0.,W1.,W2.,W3.		
W1.,W2.,W3.	ES| L@$f
	REPEAT	L`3,<
	TXCE	A,1B<B>!1B<C>
>B<EVMI 
l==-1
IRP E,<l==l+1
IFE D-l, <l==-1
IRP G,<l==(l+1
IFE F-l, <H

;+.PARA -8
;hXXXTTL	MACRO TO GENERATE A TITLE S(TATEMENT OF THE FHORM:
;.BREAK
;-hTITLE A COMMENT VERSION
	DEFINE (KTTL,<IFG I,<
H	TITLE	A - J  %hBEG(H)-I
>IFE I,<
	TITLE	(A - J  %BEG(HH)
>>

;+.PARAh -8
;XXX137	MACRO TO SETUP LOCATI(ON 137 WITH THE SHPECIFIED
;-VERSIhON NUMBER. NOTE: THE MACRO DOES IT(S OWN "LOC" AND "HRELOC".
	DEFINE hK137,<IFG I,<
	IF2,<LALL>
	LOC(	137
	BYTE (3)KHWHO(9)KVER(6)KMhIN(18)KEDT	; A %BEG(H)-I
	(RELOC
	SALL
>	IHFE I,<
	IF2,<LAhLL>
	LOC	137
	BYTE (3)KWHO(9)K(VER(6)KMIN(18)KHEDT	; A %BEG(hH)
	RELOC
	SALL
>>

; MACRO (TO DEFINE VERSIONH # AT CURRENT LOChATION
;+.PARA -8
;XXXVRS	MACRO T(O DEFINE THE VERSHION NUMBER AT AN
;-ARBITRARY USER LOCATION.
	DEFI(NE KVRS,<IFG I,H<
	IF2,<LALL>
	hBYTE (3)KWHO(9)KVER(6)KMIN(18)(KEDT	; A %BEGH(H)-I
	SALL
>h	IFE I,<
	IF2,<LALL>
	BYTE (3)(KWHO(9)KVER(6)KHMIN(18)KEDT	; Ah %BEG(H)
	SALL
>>
; GENERA(TE A PASS2 PRINTXH STATEMENT
;+.PAhRA -8
;-XXXPTX	GENERATES A PASS2 (PRINTX STATEMENT.H
	DEFINE KPTX,<h
	IF2,<
	IFG I,<PRINTX A %BE(G(H)-I	J
>	IHFE I,<PRINTX A h%BEG(H)	J
>>>

;+.PARA -8
;XXXSTL	THE XXXSHTL MACRO GENERATEhS A NEW PAGE
;VI A THE MACRO PAGE  (PSEUDO-OP AND OPT HIONALLY
;DEFINES h A NEW SUBTTL COM!MAND. THE CALL IS!( "XXXSTL (COMMENT!H)".
;IF THE XXXS!hTL MACRO IS CALLE"D WITH A NULL ARG"(UMENT A COMMENT
"H; LINE IS GENERAT"hED AT THE BOTTOM #OF THE CURRENT PA#(GE
; AND AT THE #HTOP OF THE NEXT P#hAGE INDICATING TH$AT THE PAGE
;-HA$(S BEEN CONTINUED.$H
	DEFINE KSTL ($hTEXT),<IFNB <TEXT%>,<
	SUBTTL	TEXT%(
	PAGE
>	IFB <T%HEXT>,<
	LALL
	P%hAGE		; CONTINUED &TO NEXT PAGE
	SA&(LL		; CONTINUED F&HROM PREVIOUS PAGE&h
>>
;+.PARA -8
;XXXUNV	MACRO TO'( GENERATE A UNIVE'HRSAL STATEMENT. T'hHE MACRO IN
;EFF(ECT IS AN EXACT C((OPY OF THE XXXTTL(H MACRO EXCEPT THA(hT THE
;-WORD "UN)IVERSAL" REPLACES)( THE WORD "TITLE")H.
	DEFINE KUNV,)h<IFG I,<
	LALL
	UNIVERSAL A - *(J  %BEG(H)-*HI
	SALL
>IFE I*h,<
	LALL
	UNIVE+RSAL A - J  %B+(EG(H)
	SALL
+H>>
;+.PARA -8
+h;XXXERR	MACRO TO ,TYPE A FATAL ERRO,(R MESSAGE ON THE
;USER'S TERMINAL,h. THE CALL IS OF -THE FORM:
;.BREA-(K
;XXXERR (ZZZ,E-HRROR MESSAGE,<PDP-h-10 INSTRUCTION>).
;.BREAK
;ZZZ I.(S THE 3-CHARACTER.H ERROR CODE, ERRO.hR MESSAGE IS THE /ASCIZ
;STRING TO/( BE TYPED ON THE /HTERMINAL AND PDP-/h10 INSTRUCTION IS0
;AN OPTIONAL AR0(GUMENT INDICATING0H WHAT THE USER WA0hNTS TO DO
;ABOUT1 THE ERROR JUST T1(YPED. IF THE ARGU1HMENT IS NULL AN
1h;-EXIT IS EXECUTE2D.
	DEFINE KERR2( (COD,MSG,INSTR),2H<
...'COD:	JRST	2h[
	OUTSTR	[ASCIZ3 \
? K'COD MSG\3(]
	IFNB <INSTR>,3H<INSTR>
	IFB <IN3hSTR>,<EXIT>
]>
4
;+.PARA -8
;XX4(XWRN	MACRO SIMILA4HR TO THE XXXERR M4hACRO EXCEPT THAT 5A
;WARNING MESSA5(GE IS ISSUED RATH5HER THAN A FATAL A5hND
;-THE DEFAULT6 PDP-10 INSTRUCTI6(ON TO BE EXECUTED6H IS "JRST .+1".
6h	DEFINE KWRN (CO7D,MSG,INSTR),<
.7(..'COD:	JRST	[
	7HOUTSTR	[ASCIZ \
7h% K'COD MSG\]
	8IFNB <INSTR>,<INS8(TR>
	IFB <INSTR>8H,<JRST .+1>
]>
8h

STOPI>>STOPI>9>
	PURGE l,m,n
URGE l,m,G@ h &BOP%%CA (A,B,)OP%%CA (AGD k`&^OP%%CA (A,B,A)P%%CA (AGDP i`&NOP%%CA (A,B,E)P%%CA (AGDp j &ROP%%CA (A,B,G)P%%CA (AGDy  j`&VOP%%CA (A,B,GE)%%CA (AGE@ h`&FOP%%CA (A,B,L)P%%CA (AGEI  i &JOP%%CA (A,B,LE)%%CA (AGE` k &ZOP%%CA (A,B,N)P%%CA (AG&tkg M`$r
	DEFINE	NINFO.(OPCODE,NEWAN RG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ C$ LALL

		C 	   PAGE	;(CONTINC@UED ON NEXT PAGE)C`
			   SALL	;(CODNTINUED FROM PREVIOUS PAGE)
REVG?T (zASCIZ \
COPYRIGHT Z \
CI6= T%8
	..OLD==T 10
	..TYP==3
IFT@E <C>+1,..TYP==0T`
IFE <C>-^O7777U77,..TYP==1
IFE U <C>-^O777777B17,[email protected]==2
..POS==U`POS(<C>)
..WID=V=WID(<C>)
	RADIV X	10
	DF%%ST (\.[email protected],A,<B>,\..PV`OS,\..WID)
	PURGWE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z W@%P

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

	PI'7 pH'OP%%IN	(A,B,DIV)%IN	(AKc  >#iIRP A,<IF=2,<IFNDEF A,<EXTERN A>>>A,<EXTM&. vH'4OP%%FP	(A,B,FADR)FP	(AM6. x'@OP%%FP	(A,B,FDVR)FP	(AM&eG J`$X<<A>!<<LFKTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. wH'<OP%%FP	(A,B,FMPR)FP	(AMH(X6 S@%
	DEFINE	A,<-^OB(P)>
MJ O`%
	OLD%%%=P=10	
	RADIX	8
	P N%%%==0		
IRP AP@,<
	FR%%AM (A,\P`<N%%%+1>)	
	N%%%Q==N%%%+1		
>
	AQ DD	P,[N%%%,,N%%%]Q@	
	PUSHJ	P,b		
	  SKIPA
	AOS	-RN%%%(P)	
	SUB	P,R [N%%%,,N%%%]	
	PR@OPJ	P,		
b:
	RR`ADIX	OLD%%%
	PURSGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. w'8OP%%FP	(A,B,FSBR)FP	(AM\u|RQ O2|  =X$
	IRP	A,=x<
	IF2,<
		.IF <xA,OPCODE,<.IFN <XA,LOCAL,<EXTERN <8A>>
		.IF A,NEE<DED,<EXTERN A>
A`		.IF A,OPDEF ,<B.IFN A,LOCAL,<EXB TERN A>>
		.IF B@A,LOCAL ,<INTERN A>
	>>
TERNQf@ +SNn q'OP%%IN	(A,B,IDIV)IN	(AS7-N p'OP%%IN	(A,B,IMUL)IN	(AS;k M $j<<<A>B<POS(<B>)>>&<B>>S? 8 +BTXO	A,<B>TXO	A,<BU +,U +(U  +$Up +U~` +"U?0 +0UKI@ +UVn	 K,tIFE <<B>_K 1>,<
IFE <B>,<
	JUMP	A,D
>
K`IFN <B>,<
IFE <L<C>&<B>>,<
	JUL MPL	A,D
>
IFNL@ <<C>&<B>>,<
	L`JUMPGE	A,D
>>>M
IFN <<B>1>,<
	TXCA	A,<<C>&<M@B>>
	JRST	.+5
M`	TXCE	A,<<C>&<NB>>
	JRST	D
	TN XNE	A,<<-<C>-1>N@&<B>>
	JRST	D
>>>
	JRST	D
' G,T
IFE <<BG >_1>,<
IFE <B>,G@<
	JUMPA	A,D
G`>
IFN <B>,<
IFHE <<C>&<B>>,<
H 	JUMPGE	A,D
>H@
IFN <<C>&<B>>,H`<
	JUMPL	A,D
I>>>
IFN <<B>_1>I ,<
	TXCA	A,<<CI@>&<B>>
	JRST	.+I`5
	TXCE	A,<<C>J&<B>>
	JRST	.+3J 
	TXNN	A,<<-<CJ@>-1>&<B>>
	JRST	D
>>>
	JRSTUVn
 O-:
IFDIF <O B><C>,<
	JFCL	1O@,.+1		
	JRST	.+1O`		
IFNB <B>,<	JPFCL	1,B
QIFNB P <C>,<IFIDN <C><P@D>,<IFIDN <D><P`E>,< JRST	C>>>>
IFB <B>,<	JFCL	Q 1,i
  IFIDN <CQ@><D>,<IFIDN <D>Q`<E>,< JRST	C>>>R
>

IFDIF <C>R <D>,<
	HRLOI	AR@,-2		
IFNB <C>,R`<	AOBJP	A,C
  SIFNB <D>,<IFIDN S <D><E>,<JRST	DS@>>>
IFB <C>,<IFS`DIF <D><E>,<AOBTJP A,i>
	    IT FIDN <D><E>,<AOT@BJN A,D>>
>
T`
IFDIF <D><E>,<U
	IF2,<IFE A,<PU RINTX ? A MUST BU@E NON-ZERO IN JUMU`PPT>>
	MOVEI	A,V0		
	BLT	A,0		
IFNB <D>,<	JUMPV@E	A,D
  IFNB <V`E>,<	JRST	E>>
WIFB <D>,<	JUMPN	W A,E>
>

i:A,E>
>

i:Y$- J $R<1B<^L<A>>><1B<^L<A>Y tQ xY>
C@ Z@%V B (<MOVEZ`,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG D@$,
	IFNDEF	D`LSTIN.,	LSTIN.==0E
IFE LSTIN.,<
	E IFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G F$6
IFG LSTIF N., LSTIN.==LSTIN[email protected]
IFLE LSTIN.,F`<	.CREF
		LIST>
CREF
		LIST> (*IFG 0,<
	HIF2,<LALL>
	BYTEh (3)MACWHO(9)MACVER(6)MACMIN(18)MA(CEDT	; MACTEN %5(H46)-0
	SALL
>	IhFE 0,<
	IF2,<LAL L>
	BYTE (3)MACW (HO(9)MACVER(6)MAC HMIN(18)MACEDT	; M hACTEN %5(46)
	SALL
>5(46)
	SA[3@ I $J<<<1_<A>>-1>B<B>>_<A>>[>&: 9H#R
	LALL
	9h%%A==BYTE (3)AW:HO(9)AVER(6)AMI:(N(18)AEDT
	SALL
)AEDT
	SALL[?7 ] &*
	.XCREF
	TEST%%=B
.IFN]` <TEST%%>,ABSOLUT^E,<
	.CREF
	MOV^ E	A,[B]
	.XCRE^@F
>
.IF <TEST%%^`>,ABSOLUTE,<
	TE_ST%%=0
IFE	<<B>_ _-^D18>,<
	TEST%_@%=1
	.CREF
	MOV_`EI	A,<B>
	.XCR`EF
>
IFE	TEST%%` ,<IFE	<<B>_^D18>`@,<
	TEST%%=1
	.``CREF
	MOVSI	A,(aB)
	.XCREF
>> 
IFE	TEST%%,<IFE	a@<<<B>_-^D18>-^O7a`77777>,<
	TEST%%b=1
	.CREF
	HRROb I	A,<B>
	.XCREb@F
>>
IFE	TEST%%b`,<IFE	<<<B>^D18c>-^O777777B17>,<
	TEST%%=1
	.CREc@F
	HRLOI	A,(<Bc`>-^O777777)
	.XCdREF
>>
IFE	TESTd %%,<
	.CREF
	MOd@VE	A,[B]
	.XCRd`EF
>
>	;[35][32e] END OF .IF <B>e ,ABSOLUTE
	PURGE	TEST%%
	.CREF[Vg oH&|OP%%IN	(A,B,MUL)%IN	(A] ;$
IF2,<IFDEF:h A,<A==A>> IFNA@DEF A,<A==<B>>F A,<A==<B>>]` @x$ND (A,<B@X>)
PRINTX %PLEAS?xE USE ND MACRO, N@DS. MACRO IS NOW OBSOLETE
 NOW _@(Xp l &p
	.XCREF
IFE	<<B>_-^D18>l`,<
	.CREF
	CAImC	A,<B>
	.XCREm(F
>
IFN	<<B>_-mH^D18>,<
	.CREF
mh	CAMC	A,[B]
	n.XCREF
>
	.CREFCREF
>
	.CREF_@(YX xH'P
	.XCREF
IFE	<<B>_^D18>,y<
	.CREF
	CI	y(A,(B)
	.XCREF
yH>
IFN	<<B>_^D18yh>,<
	.CREF
	C	zA,[B]
	.XCREF
>
	.CREFCREFH' 
	.XCREF
	TEST%%=0
IFE	<r<<B>_-^D18>-^O77r(7777>,<
IFN	<<BrH>&^O777777>,<
	TrhEST%%=1
	.CREF
s	DI	A,-<B>
	.s(XCREF
>>
IFE	TEsHST%%,<
	OP%%IN	shA,<B>,C
>
	PUtRGE	TEST%%
	.CREF	TEST%%
	.CRE_@(Z7 tH'0
	.XCREF
IFE	<<B>_-^D18>u,<
	.CREF
	CI	u(A,<B>
	.XCREF
>
IFN	<<B>_-^Duh18>,<
	.CREF
	vC	A,[B]
	.XCREF
>
	.CREFCRE_@(] 3`+>

	.XCREF
IFN <<A>&^O77774 77777760>, PRINTX4@ ? A IS NOT AN A4`CCUMULATOR

	TE5MP%%=0
IFE	<<B>5 _^D18>,<
IFN	<B5@>,<
	TEMP%%=1
	5`.CREF
	C	A,(B6)
	.XCREF
>>
I6 FE	<<B>_-^D18>,<6@
	TEMP%%=1
	.CR6`EF
	D	A,<B>
7	.XCREF
>
IFE	T7 EMP%%,<
	.CREF
7@	E	A,[B]
>
	7`PURGE	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 H@$F<POINT	WIDH`(B),A,POS(B)>B),A,POS(B)>a?H6 +a? G`$@<^L<A>+^LH<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG N`$z
	DEFINE	OINFO.(OPCODE,NEWAO RG)<
	OPCODE	<A
	NEWARG>>	<AeD- I`$N<<A>&-<A>><<A>&-<Ae tP'g"~s@ ?X#{	.XCREF
	?8EXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ [ %\ B (<MOVE[@M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  e`&>
IFE <D>f,<	SETZM	B>	
IFf E <D>+1,<	SETOM	f@B>	
IFN <D>*<<f`D>+1>,<MOVX	A,<gD>	
		   MOVEM g A,B>	
IFNB <Cg@>,<			
	MOVE	A,g`[B,,B+1]
	BLT	A,C		
>	BLT	gV o&xOP%%IA	(A,B,SUB,ADD)(Ai'%I' ( f
	.XCREF
	Z==0
	IFNDEF hAVER,<Z==-1>
	IFNDEF AMIN,<Z==-1(>
	IFNDEF AEDT,H<Z==-1>
	IFNDEF hAWHO,<Z==-1>
	IFL Z,<PRINTX ?SYM(BOLS AWHO,AVER,HAMIN AND AEDT NhOT DEFINED
	PRINTX ?VERSION SYMBO(LS MUST BE DEFINEHD BEFORE CALLING hTITLE. MACRO
END>
	.CREF
	IF2,<(LALL>
	ASIX==SIHXBIT /A/	; B ABhBREVIATION IN SIXBIT
	AASC==ASCI(Z /A/	; B ABBREHVIATION IN ASCII
	SALL
	.XCREF
%FIRST=AMIN/^D26(
IFE %FIRST,<%SEHCON==AMIN
	%FIRhST==0>
IFG %FIRST,<%SECON=AMIN-<(^D26*%FIRST>>
IFHE AMIN-^D26,<%SEhCON==AMIN
	%FIR	ST=0>
IFE AMIN-	(^D52,<%SECON==^D2	H6
	%FIRST=1>
; 	hDEFINE ALL THE MA
CROS
BUILD$ (B,
(\AVER,\AMIN,\%F
HIRST,<,A,B,C,D,E,
hF,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,(W,X,Y,Z>,\%SECON,H<,A,B,C,D,E,F,G,Hh,I,J,K,L,M,N,O,P,
Q,R,S,T,U,V,W,X,Y
(,Z>,\AEDT,\AWHO
H,C,A)

	IF2,<
hPURGE %SECON,%FIRST,Z>
.CREFFIRib +
	.XCREF
IFB <B>, TXC	(<0^O37777777&A>,1B0 <A_-^D30>)
IFNB0@ <B>,<
IFN <<A0`>&^O777777777760>1, PRINTX ? A IS 1 NOT AN ACCUMULATO1@R
IFE	<<<B>_-^D1`18>-^O777777>,<
2	.CREF
	EQVI	A,2 <,,-1-<B>>
	.XC2@REF>
IFN	<<<B>_2`-^D18>-^O777777>,3<
	OP%%TX	A,<B3 >,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib -`*z
	.XCREF
IFB  <B>,	OP%%T. X	<^O37777777&A>.@,1B<A_-^D30>,TLC.`A,TRCA,TDCA
IFNB/ <B>,	OP%%TX	A,/ <B>,TLCA,TRCA,TDCA
	.CREF
,TDibP ()>
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLC(E,TRCE,TDCE
IFNBH <B>,	OP%%TX	A,h<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` (*j
	.XCREF
IFB  <B>,	OP%%T, X	<^O37777777&A>,@,1B<A_-^D30>,TLC,`N,TRCN,TDCN
IFNB- <B>,	OP%%TX	A,- <B>,TLCN,TRCN,TDCN
	.CREF
,TDibp zH'X
IFB <B>zh, 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
IFNB	H <B>,	OP%%TX	A,	h<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ C@,4
IFE <<BC`>_<1+^L<B>>>,<
DIFE <<B>&<C>>,<D 
	TXNN	A,<B>
D@>
IFN <<B>&<C>D`>,<
	TXNE	A,<BE>
>>
IFN <<B>_E <1+^L<B>>>,<
	TE@XCA	A,<<C>&<B>E`>
	JRST	.+4
	TXFCE	A,<<C>&<B>>F 
	JRST	.+3
	TXNF@N	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@ @,
IFE <<B@ >_<1+^L<B>>>,<
@@IFE <<B>&<C>>,<@`
	TXNE	A,<B>
A>
IFN <<B>&<C>A >,<
	TXNN	A,<BA@>
>>
IFN <<B>_A`<1+^L<B>>>,<
	TBXCA	A,<<C>&<B>B >
	JRST	.+4
	TXB@CE	A,<<C>&<B>>B`
	JRST	.+2
	TXNCE	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%%ThX	<^O37777777&A>,1B<A_-^D30>,TLO(A,TROA,TDOA
IFNBH <B>,	OP%%TX	A,h<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P ()
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLO(E,TROE,TDOE
IFNBH <B>,	OP%%TX	A,h<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` ()
	.XCREF
IFB  <B>,	OP%%ThX	<^O37777777&A>,1B<A_-^D30>,TLO(N,TRON,TDON
IFNBH <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>}, PRINTX ? A IS }(NOT AN ACCUMULATO}hR
IFE	<<<B>_-^D}H18>-^O777777>,<
~	.CREF
	ANDI	A,~(<,,-1-<B>>
	.XC~HREF>
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
H
IFB  <B>,	OP%%T
hX	<^O37777777&A>,1B<A_-^D30>,TLZ(E,TRZE,TDZE
IFNBH <B>,	OP%%TX	A,h<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` 
((n
	.XCREF
H
IFB  <B>,	OP%%T
hX	<^O37777777&A>
IFNB>,	OP%%TX	A,ZN
	.CREF
,TDif` >`+|
	MOVX	A?,1B<B_-^D30>
	.? XCREF
	<XORM	A,?@>!<37777777&B>
	.CREF
7&B>
iftS@ 9`+T
	MOVX	A:,1B<B_-^D30>
	.: XCREF
	<TDNE	A,:@>!<37777777&B>
	.CREF
7&B>
ifuc@ ;+^
	MOVX	A; ,1B<B_-^D30>
	.;@XCREF
	<TDNN	A,;`>!<37777777&B>
	.CREF
7&B>
ify` < +h
	MOVX	A<@,1B<B_-^D30>
	.<`XCREF
	<IORM	A,=>!<37777777&B>
	.CREF
7&B>
igQ` =@+r
	MOVX	A=`,1B<B_-^D30>
	.>XCREF
	<ANDCAM	> A,>!<37777777&B>
	.CREF
7&B>k:*g Z-R
%%FOO==Z(a
	BRK0 (%%FOO,B,1)
 (%%FOO,mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ ;(#\BYTE (3)A;HWHO (9)AVER (6)AMIN (18)AEDTo&  G $:<^L<-<<A>_<^L<A>>>-1>>>q"eJ  P q*-` +
q+= +q+= +
q6~i4 C q? 9 +JTXC	A,<B>TXC	A,<Bq@ >X#wIFB <C>,<>xA==:<B>> IFNB <C>,<A=:<B>><qBp +qN5P +us@ \%f B (<SETZ\ M,HLLZS,HRRZS,<PR\@INTX ?CAN'T ZERO \`BYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ 
| ~Hv
	XLIST
~h	.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 | h 
	XLIST
	.....X=.
	.ORG
	.ORG 0
	REPEATH .....X,<EXP 0>
h	PURGE .....X
	.ORG
	LIST

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