Google
 
Trailing-Edge - PDP-10 Archives - FORTRAN-10_Alpha_31-jul-86 - macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,R_@P C' {`^OP%%IA	(A,B,ADD,SUB)(AC2L{G XXI<^D35-<^L<XxRGHBT.(A)>>+<^D3Y7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' Ex/TXZ	A,-1-<B>TXZ	A,-1-EJMj' m rP
W0.==A
W1.==B				;INITnIALIZE BREAK MASKn(
W2.==C
W3.==D
==C
W3.==%`0MJ
DEF60	(AC,FL00CREF
IEJZ hT	..V22==ah 
	..V1==a
	IFNh@B <B>,<..V22==Bh`>
REPEAT ..V22-<ia>+1,<	
	%%W==.i .V1/^D32	
	%%X==[email protected]%%W*^D32	
	i`IFE C,BRKC1 \"<%j%W+"0">	
	IFN Cj ,BRKC2 \"<%%W+"0"j@>
	..V1==..V1+1
		   >
.V1+1 kX	WA.==WA.!<1B<%%X>>
AEJ\4@ k@^	WA.==WAk`.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: f@6
%%FOO==f`a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g nh

	BRINI. Ao,B,C,D	
	IRPCo( E,<	UNBRK. "E"oH>	
	IRPC F,<	BRohKCH. "F">	
	EXPp W0.,W1.,W2.,W3.		
W1.,W2.,W3.	ES| YXO
	REPEAT	Yx3,<
	TXCE	A,1B<B>!1B<C>
>B<EVMI @2
l==-1
`IRP E,<l==l+1
IFE D-l, <l== -1
IRP G,<l==@l+1
IFE F-l, <`

;+.PARA -8
;XXXTTL	MACRO TO G ENERATE A TITLE S@TATEMENT OF THE F`ORM:
;.BREAK
;-TITLE A COMMENT  VERSION
	DEFINE @KTTL,<IFG I,<
`	TITLE	A - J  %BEG(H)-I
>I FE I,<
	TITLE	@A - J  %BEG(`H)
>>

;+.PARA -8
;XXX137	MACR O TO SETUP LOCATI@ON 137 WITH THE S`PECIFIED
;-VERSI ON NUMBER. NOTE:   THE MACRO DOES IT @S OWN "LOC" AND " `RELOC".
	DEFINE !K137,<IFG I,<
! 	IF2,<LALL>
	LOC!@	137
	BYTE (3)K!`WHO(9)KVER(6)KM"IN(18)KEDT	; A " %BEG(H)-I
	"@RELOC
	SALL
>	I"`FE I,<
	IF2,<LA#LL>
	LOC	137
	B# YTE (3)KWHO(9)K#@VER(6)KMIN(18)K#`EDT	; A %BEG($H)
	RELOC
	SAL$ L
>>

; MACRO $@TO DEFINE VERSION$` # AT CURRENT LOC%ATION
;+.PARA -8% 
;XXXVRS	MACRO T%@O DEFINE THE VERS%`ION NUMBER AT AN
;-ARBITRARY USER&  LOCATION.
	DEFI&@NE KVRS,<IFG I,&`<
	IF2,<LALL>
	'BYTE (3)KWHO(9)' KVER(6)KMIN(18)'@KEDT	; A %BEG'`(H)-I
	SALL
>(	IFE I,<
	IF2,<( LALL>
	BYTE (3)(@KWHO(9)KVER(6)K(`MIN(18)KEDT	; A) %BEG(H)
	SA) LL
>>

; GENERA)@TE A PASS2 PRINTX)` STATEMENT
;+.PA*RA -8
;-XXXPTX	G* ENERATES A PASS2 *@PRINTX STATEMENT.*`
	DEFINE KPTX,<+
	IF2,<
	IFG I+ ,<PRINTX A %BE+@G(H)-I	J
>	I+`FE I,<PRINTX A ,%BEG(H)	J
>, >>

;+.PARA -8
;XXXSTL	THE XXXS,`TL MACRO GENERATE-S A NEW PAGE
;VI- A THE MACRO PAGE -@PSEUDO-OP AND OPT-`IONALLY
;DEFINES. A NEW SUBTTL COM. MAND. THE CALL IS.@ "XXXSTL (COMMENT.`)".
;IF THE XXXS/TL MACRO IS CALLE/ D WITH A NULL ARG/@UMENT A COMMENT
/`; LINE IS GENERAT0ED AT THE BOTTOM 0 OF THE CURRENT PA0@GE
; AND AT THE 0`TOP OF THE NEXT P1AGE INDICATING TH1 AT THE PAGE
;-HA1@S BEEN CONTINUED.1`
	DEFINE KSTL (2TEXT),<IFNB <TEXT2 >,<
	SUBTTL	TEXT2@
	PAGE
>	IFB <T2`EXT>,<
	LALL
	P3AGE		; CONTINUED 3 TO NEXT PAGE
	SA3@LL		; CONTINUED F3`ROM PREVIOUS PAGE4
>>
;+.PARA -8
;XXXUNV	MACRO TO4@ GENERATE A UNIVE4`RSAL STATEMENT. T5HE MACRO IN
;EFF5 ECT IS AN EXACT C5@OPY OF THE XXXTTL5` MACRO EXCEPT THA6T THE
;-WORD "UN6 IVERSAL" REPLACES6@ THE WORD "TITLE"6`.
	DEFINE KUNV,7<IFG I,<
	LALL
	UNIVERSAL A - 7@J  %BEG(H)-7`I
	SALL
>IFE I8,<
	LALL
	UNIVE8 RSAL A - J  %B8@EG(H)
	SALL
8`>>

;+.PARA -8
9;XXXERR	MACRO TO 9 TYPE A FATAL ERRO9@R MESSAGE ON THE
;USER'S TERMINAL:. THE CALL IS OF : THE FORM:
;.BREA:@K
;XXXERR (ZZZ,E:`RROR MESSAGE,<PDP;-10 INSTRUCTION>); 
;.BREAK
;ZZZ I;@S THE 3-CHARACTER;` ERROR CODE, ERRO<R MESSAGE IS THE < ASCIZ
;STRING TO<@ BE TYPED ON THE <`TERMINAL AND PDP-=10 INSTRUCTION IS= 
;AN OPTIONAL AR=@GUMENT INDICATING=` WHAT THE USER WA>NTS TO DO
;ABOUT>  THE ERROR JUST T>@YPED. IF THE ARGU>`MENT IS NULL AN
?;-EXIT IS EXECUTE? D.
	DEFINE KERR?@ (COD,MSG,INSTR),?`<
...'COD:	JRST	@[
	OUTSTR	[ASCIZ@  \
? K'COD MSG\@@]
	IFNB <INSTR>,@`<INSTR>
	IFB <INASTR>,<EXIT>
]>
A 
;+.PARA -8
;XXA@XWRN	MACRO SIMILAA`R TO THE XXXERR MBACRO EXCEPT THAT B A
;WARNING MESSAB@GE IS ISSUED RATHB`ER THAN A FATAL ACND
;-THE DEFAULTC  PDP-10 INSTRUCTIC@ON TO BE EXECUTEDC` IS "JRST .+1".
D	DEFINE KWRN (COD D,MSG,INSTR),<
.D@..'COD:	JRST	[
	D`OUTSTR	[ASCIZ \
E% K'COD MSG\]
	E IFNB <INSTR>,<INSE@TR>
	IFB <INSTR>E`,<JRST .+1>
]>
F

STOPI>>STOPI>F >
	PURGE l,m,n
URGE l,m,G@ u8+OP%%CA (A,B,)OP%%CA (AGD xxGOP%%CA (A,B,A)P%%CA (AGDP vx7OP%%CA (A,B,E)P%%CA (AGDp w8;OP%%CA (A,B,G)P%%CA (AGDy  wx?OP%%CA (A,B,GE)%%CA (AGE@ ux/OP%%CA (A,B,L)P%%CA (AGEI  v83OP%%CA (A,B,LE)%%CA (AGE` x8COP%%CA (A,B,N)P%%CA (AG&tkg Zx[
	DEFINE	[INFO.(OPCODE,NEWA[8RG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ P	LALL

		P8	   PAGE	;(CONTINPXUED ON NEXT PAGE)Px
			   SALL	;(COQNTINUED FROM PREVIOUS PAGE)
REVG?T 

@dASCIZ \
COPYRIGHT Z \
CI6= a!
	..OLD==a810
	..TYP==3
IFaXE <C>+1,..TYP==0ax
IFE <C>-^O7777b77,..TYP==1
IFE b8<C>-^O777777B17,bX..TYP==2
..POS==bxPOS(<C>)
..WID=c=WID(<C>)
	RADIc8X	10
	DF%%ST (\.cX.TYP,A,<B>,\..PcxOS,\..WID)
	PURGdE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z dX9

	RADIX	.dx.OLD
DEFINE	B (eOPS,AC,E),<
	..Ce8==0
	IRP OPS,<
eX		IFE A-..C,<
	ex		STOPI
			IFN 3f-..C, OPS <AC>,Cf8'E
			IFE 3-..C,fX OPS <AC>,[POINT fxE,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 }`nOP%%IN	(A,B,DIV)%IN	(AKc  K0SIRP A,<IFJ02,<IFNDEF A,<EXTERN A>>>A,<EXTM&. `OP%%FP	(A,B,FADR)FP	(AM6.  *OP%%FP	(A,B,FDVR)FP	(AM&eG WxA<<A>!<<LFXTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. `&OP%%FP	(A,B,FMPR)FP	(AMH(X6 `X
	DEFINE	A,<-^OB(P)>
MJ \x
	OLD%%%=]=10	
	RADIX	8
	]8N%%%==0		
IRP A]X,<
	FR%%AM (A,\]x<N%%%+1>)	
	N%%%^==N%%%+1		
>
	A^8DD	P,[N%%%,,N%%%]^X	
	PUSHJ	P,b		
	  SKIPA
	AOS	-_N%%%(P)	
	SUB	P,_8[N%%%,,N%%%]	
	P_XOPJ	P,		
b:
	R_xADIX	OLD%%%
	PUR`GE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN.  "OP%%FP	(A,B,FSBR)FP	(AM\u|RQ O2|  Jp}
	IRP	A,K<
	IF2,<
		.IF JA,OPCODE,<.IFN IpA,LOCAL,<EXTERN IPA>>
		.IF A,NEEI0DED,<EXTERN A>
Nx		.IF A,OPDEF ,<O.IFN A,LOCAL,<EXO8TERN A>>
		.IF OXA,LOCAL ,<INTERN A>
	>>
TERNQf@ +SNn ~ rOP%%IN	(A,B,IDIV)IN	(AS7-N } jOP%%IN	(A,B,IMUL)IN	(AS;k Z8S<<<A>B<POS(<B>)>>&<B>>S? E8+TXO	A,<B>TXO	A,<BU +,U +(U  +$Up +U~` +"U?0 +0UKI@ +UVn	 X]IFE <<B>_X81>,<
IFE <B>,<
	JUMP	A,D
>
XxIFN <B>,<
IFE <Y<C>&<B>>,<
	JUY8MPL	A,D
>
IFNYX <<C>&<B>>,<
	YxJUMPGE	A,D
>>>Z
IFN <<B>1>,<
	TXCA	A,<<C>&<ZXB>>
	JRST	.+5
Zx	TXCE	A,<<C>&<[B>>
	JRST	D
	T[8XNE	A,<<-<C>-1>[X&<B>>
	JRST	D
>>>
	JRST	D
' T=
IFE <<BT8>_1>,<
IFE <B>,TX<
	JUMPA	A,D
Tx>
IFN <B>,<
IFUE <<C>&<B>>,<
U8	JUMPGE	A,D
>UX
IFN <<C>&<B>>,Ux<
	JUMPL	A,D
V>>>
IFN <<B>_1>V8,<
	TXCA	A,<<CVX>&<B>>
	JRST	.+Vx5
	TXCE	A,<<C>W&<B>>
	JRST	.+3W8
	TXNN	A,<<-<CWX>-1>&<B>>
	JRST	D
>>>
	JRSTUVn

 \#
IFDIF <\8B><C>,<
	JFCL	1\X,.+1		
	JRST	.+1\x		
IFNB <B>,<	J]FCL	1,B
^IFNB ]8<C>,<IFIDN <C><]XD>,<IFIDN <D><]xE>,< JRST	C>>>>
IFB <B>,<	JFCL	^81,i
  IFIDN <C^X><D>,<IFIDN <D>^x<E>,< JRST	C>>>_
>

IFDIF <C>_8<D>,<
	HRLOI	A_X,-2		
IFNB <C>,_x<	AOBJP	A,C
  `IFNB <D>,<IFIDN `8<D><E>,<JRST	D`X>>>
IFB <C>,<IF`xDIF <D><E>,<AOBaJP A,i>
	    Ia8FIDN <D><E>,<AOaXBJN A,D>>
>
ax
IFDIF <D><E>,<b
	IF2,<IFE A,<Pb8RINTX ? A MUST BbXE NON-ZERO IN JUMbxPPT>>
	MOVEI	A,c0		
	BLT	A,0		
IFNB <D>,<	JUMPcXE	A,D
  IFNB <cxE>,<	JRST	E>>
dIFB <D>,<	JUMPN	d8A,E>
>

i:A,E>
>

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

C@ gX? B (<MOVEgx,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG QX
	IFNDEF	QxLSTIN.,	LSTIN.==0R
IFE LSTIN.,<
	R8IFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G S
IFG LSTIS8N., LSTIN.==LSTINSX.-1
IFLE LSTIN.,Sx<	.CREF
		LIST>
CREF
		LIST> +@pIFG 0,<
	+`IF2,<LALL>
	BYTE, (3)MACWHO(9)MACV, ER(6)MACMIN(18)MA,@CEDT	; MACTEN %5(,`46)-0
	SALL
>	I-FE 0,<
	IF2,<LAL- L>
	BYTE (3)MACW-@HO(9)MACVER(6)MAC-`MIN(18)MACEDT	; M.ACTEN %5(46)
	SALL
>5(46)
	SA[3@ V83<<<1_<A>>-1>B<B>>_<A>>[>&: F`<
	LALL
	G%%A==BYTE (3)AWG HO(9)AVER(6)AMIG@N(18)AEDT
	SALL
)AEDT
	SALL[?7 j8
	.XCREF
	TEST%%=B
.IFNjx <TEST%%>,ABSOLUTkE,<
	.CREF
	MOVk8E	A,[B]
	.XCREkXF
>
.IF <TEST%%kx>,ABSOLUTE,<
	TElST%%=0
IFE	<<B>l8_-^D18>,<
	TEST%lX%=1
	.CREF
	MOVlxEI	A,<B>
	.XCRmEF
>
IFE	TEST%%m8,<IFE	<<B>_^D18>mX,<
	TEST%%=1
	.mxCREF
	MOVSI	A,(nB)
	.XCREF
>>8
IFE	TEST%%,<IFE	nX<<<B>_-^D18>-^O7nx77777>,<
	TEST%%o=1
	.CREF
	HRROo8I	A,<B>
	.XCREoXF
>>
IFE	TEST%%ox,<IFE	<<<B>^D18p>-^O777777B17>,<
	TEST%%=1
	.CREpXF
	HRLOI	A,(<Bpx>-^O777777)
	.XCqREF
>>
IFE	TESTq8%%,<
	.CREF
	MOqXVE	A,[B]
	.XCRqxEF
>
>	;[35][32r] END OF .IF <B>r8,ABSOLUTE
	PURGE	TEST%%
	.CREF[Vg |`fOP%%IN	(A,B,MUL)%IN	(A] H uIF2,<IFDEFH A,<A==A>> IFNNXDEF A,<A==<B>>F A,<A==<B>>]` NkND (A,<BMp>)
PRINTX %PLEASME USE ND MACRO, NM0DS. MACRO IS NOW OBSOLETE
 NOW _@(Xp y8Z
	.XCREF
IFE	<<B>_-^D18>yx,<
	.CREF
	CAIzC	A,<B>
	.XCREz@F
>
IFN	<<B>_-z`^D18>,<
	.CREF
{	CAMC	A,[B]
	{ .XCREF
>
	.CREFCREF
>
	.CREF_@(YX `:
	.XCREF
IFE	<<B>_^D18>, <
	.CREF
	CI	@A,(B)
	.XCREF
`>
IFN	<<B>_^D18>,<
	.CREF
	C	 A,[B]
	.XCREF
>
	.CREFCREF`

	.XCREF
	TEST%%=0
IFE	< <<B>_-^D18>-^O77@7777>,<
IFN	<<B`>&^O777777>,<
	TEST%%=1
	.CREF
 	DI	A,-<B>
	.@XCREF
>>
IFE	TE`ST%%,<
	OP%%IN	A,<B>,C
>
	PU RGE	TEST%%
	.CREF	TEST%%
	.CRE_@(Z7 `
	.XCREF
IFE	<<B>_-^D18> ,<
	.CREF
	CI	@A,<B>
	.XCREF
>
IFN	<<B>_-^D18>,<
	.CREF
	 C	A,[B]
	.XCREF
>
	.CREFCRE_@(] @x'

	.XCREF
IFN <<A>&^O7777A877777760>, PRINTXAX ? A IS NOT AN AAxCCUMULATOR

	TEBMP%%=0
IFE	<<B>B8_^D18>,<
IFN	<BBX>,<
	TEMP%%=1
	Bx.CREF
	C	A,(BC)
	.XCREF
>>
IC8FE	<<B>_-^D18>,<CX
	TEMP%%=1
	.CRCxEF
	D	A,<B>
D	.XCREF
>
IFE	TD8EMP%%,<
	.CREF
DX	E	A,[B]
>
	DxPURGE	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 UX/<POINT	WIDUx(B),A,POS(B)>B),A,POS(B)>a?H6 +a? Tx)<^L<A>+^LU<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG [xc
	DEFINE	\INFO.(OPCODE,NEWA\8RG)<
	OPCODE	<A
	NEWARG>>	<AeD- Vx7<<A>&-<A>><<A>&-<Ae tP'g"~s@ Lpe	.XCREF
	LPEXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ h8E B (<MOVEhXM,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  rx'
IFE <D>s,<	SETZM	B>	
IFs8E <D>+1,<	SETOM	sXB>	
IFN <D>*<<sxD>+1>,<MOVX	A,<tD>	
		   MOVEM t8A,B>	
IFNB <CtX>,<			
	MOVE	A,tx[B,,B+1]
	BLT	A,C		
>	BLT	gV | bOP%%IA	(A,B,SUB,ADD)(Ai'%I' @P
	.XCREF
	Z==0
	IFNDEF AVER,<Z==-1>
	IF NDEF AMIN,<Z==-1@>
	IFNDEF AEDT,`<Z==-1>
	IFNDEF AWHO,<Z==-1>
	I FL Z,<PRINTX ?SYM@BOLS AWHO,AVER,`AMIN AND AEDT NOT DEFINED
	PRIN TX ?VERSION SYMBO@LS MUST BE DEFINE`D BEFORE CALLING TITLE. MACRO
END >
	.CREF
	IF2,<@LALL>
	ASIX==SI`XBIT /A/	; B ABBREVIATION IN SIX BIT
	AASC==ASCI@Z /A/	; B ABBRE`VIATION IN ASCII
	SALL
	.XCREF
 %FIRST=AMIN/^D26@
IFE %FIRST,<%SE`CON==AMIN
	%FIRST==0>
IFG %FIRS T,<%SECON=AMIN-<@^D26*%FIRST>>
IF`E AMIN-^D26,<%SECON==AMIN
	%FIR ST=0>
IFE AMIN-@^D52,<%SECON==^D2`6
	%FIRST=1>
; DEFINE ALL THE MA CROS
BUILD$ (B,@\AVER,\AMIN,\%F`IRST,<,A,B,C,D,E,F,G,H,I,J,K,L,M,N ,O,P,Q,R,S,T,U,V,@W,X,Y,Z>,\%SECON,`<,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P, Q,R,S,T,U,V,W,X,Y@,Z>,\AEDT,\AWHO`,C,A)

	IF2,<PURGE %SECON,%FIRST,Z>
.CREFFIRib  
	.XCREF
IFB <B>, TXC	(<=^O37777777&A>,1B=8<A_-^D30>)
IFNB=X <B>,<
IFN <<A=x>&^O777777777760>>, PRINTX ? A IS >8NOT AN ACCUMULATO>XR
IFE	<<<B>_-^D>x18>-^O777777>,<
?	.CREF
	EQVI	A,?8<,,-1-<B>>
	.XC?XREF>
IFN	<<<B>_?x-^D18>-^O777777>,@<
	OP%%TX	A,<B@8>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib :xc
	.XCREF
IFB  <B>,	OP%%T;8X	<^O37777777&A>;X,1B<A_-^D30>,TLC;xA,TRCA,TDCA
IFNB< <B>,	OP%%TX	A,<8<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP #@(
	.XCREF
IFB  <B>,	OP%%T$X	<^O37777777&A>$ ,1B<A_-^D30>,TLC$@E,TRCE,TDCE
IFNB$` <B>,	OP%%TX	A,%<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` %@S
	.XCREF
IFB  <B>,	OP%%T98X	<^O37777777&A>9X,1B<A_-^D30>,TLC9xN,TRCN,TDCN
IFNB: <B>,	OP%%TX	A,:8<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp `B
IFB <B>, JFCL	0
IFNB < B>, TRN	A,<,,<B>>
N	A,<,,<Bibt @8
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A> ,1B<A_-^D30>,TLN@A,TRNA,TDNA
IFNB` <B>,	OP%%TX	A,<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ PX
IFE <<BPx>_<1+^L<B>>>,<
QIFE <<B>&<C>>,<Q8
	TXNN	A,<B>
QX>
IFN <<B>&<C>Qx>,<
	TXNE	A,<BR>
>>
IFN <<B>_R8<1+^L<B>>>,<
	TRXXCA	A,<<C>&<B>Rx>
	JRST	.+4
	TXSCE	A,<<C>&<B>>S8
	JRST	.+3
	TXNSXN	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP @
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A> ,1B<A_-^D30>,TLN@E,TRNE,TDNE
IFNB` <B>,	OP%%TX	A,<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ M
IFE <<BM8>_<1+^L<B>>>,<
MXIFE <<B>&<C>>,<Mx
	TXNE	A,<B>
N>
IFN <<B>&<C>N8>,<
	TXNN	A,<BNX>
>>
IFN <<B>_Nx<1+^L<B>>>,<
	TOXCA	A,<<C>&<B>O8>
	JRST	.+4
	TXOXCE	A,<<C>&<B>>Ox
	JRST	.+2
	TXNPE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` @(
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A> ,1B<A_-^D30>,TLN@N,TRNN,TDNN
IFNB` <B>,	OP%%TX	A,<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx 
	.XCREF
IFB3<B>,7TXO	(<B
IFNB <B>,<
IFN <<A >&^O777777777760>@, PRINTX ? A IS `NOT AN ACCUMULATOR
IFE	<<<B>_-^D 18>-^O777777>,<
@	.CREF
	ORCMI	A`,<,,-1-<B>>
	.XCREF>
IFN	<<<B> _-^D18>-^O777777>@,<
	OP%%TX	A,<`B>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| !@
	.XCREF
IFB  <B>,	OP%%T"X	<^O37777777&A>" ,1B<A_-^D30>,TLO"@A,TROA,TDOA
IFNB"` <B>,	OP%%TX	A,#<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P @x
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A> ,1B<A_-^D30>,TLO@E,TROE,TDOE
IFNB` <B>,	OP%%TX	A,<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` @
	.XCREF
IFB  <B>,	OP%%T X	<^O37777777&A>  ,1B<A_-^D30>,TLO @N,TRON,TDON
IFNB ` <B>,	OP%%TX	A,!<B>,TLON,TRON,TDON
	.CREF
,TDicP `d
	.XCREF
IFB <B>, TXZ	(<	 ^O37777777&A>,1B	@<A_-^D30>)
IFNB	` <B>,<
IFN <<A
>&^O777777777760>
 , PRINTX ? A IS 
@NOT AN ACCUMULATOR
IFE	<<<B>_-^D
`18>-^O777777>,<
 	.CREF
	ANDI	A,@<,,-1-<B>>
	.XC`REF>
IFN	<<<B>_

-^D18>-^O777777>,

 <
	OP%%TX	A,<B

@>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT @h
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A> ,1B<A_-^D30>,TLZ@A,TRZA,TDZA
IFNB` <B>,	OP%%TX	A,<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP @H
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A> ,1B<A_-^D30>,TLZ@E,TRZE,TDZE
IFNB` <B>,	OP%%TX	A,<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` @X
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A> ,1B<A_-^D30>,TLZ@N,TRZN,TDZN
IFNB` <B>,	OP%%TX	A,<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` Kxe
	MOVX	AL,1B<B_-^D30>
	.L8XCREF
	<XORM	A,LX>!<37777777&B>
	.CREF
7&B>
iftS@ Fx=
	MOVX	AG,1B<B_-^D30>
	.G8XCREF
	<TDNE	A,GX>!<37777777&B>
	.CREF
7&B>
ifuc@ HG
	MOVX	AH8,1B<B_-^D30>
	.HXXCREF
	<TDNN	A,Hx>!<37777777&B>
	.CREF
7&B>
ify` I8Q
	MOVX	AIX,1B<B_-^D30>
	.IxXCREF
	<IORM	A,J>!<37777777&B>
	.CREF
7&B>
igQ` JX[
	MOVX	AJx,1B<B_-^D30>
	.KXCREF
	<ANDCAM	K8A,>!<37777777&B>
	.CREF
7&B>k:*g g <
%%FOO==g@a
	BRK0 (%%FOO,B,1)
 (%%FOO,mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ H@FBYTE (3)AH`WHO (9)AVER (6)AMIN (18)AEDTo&  T8#<^L<-<<A>_<^L<A>>>-1>>>q"eJ  P q*-` +

q+= +q+= +
q6~i4 C q? F83TXC	A,<B>TXC	A,<Bq@ KpaIFB <C>,<LA==:<B>> IFNB <C>,<A=:<B>><qBp +qN5P +us@ iO B (<SETZi8M,HLLZS,HRRZS,<PRiXINTX ?CAN'T ZERO ixBYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ 
| ``
	XLIST


	.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;]PD<ZP D=7P DI6P ?D\qP S@P | 
	XLIST
	.....X=.
	.ORG
	.ORG 0
	REPEAT,<EXP 0>
	PURGE .....X
	.ORG
	LIST

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