Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-SB_FORTRAN10_V10 - macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,5_@P C' w0;OP%%IA	(A,B,ADD,SUB)(AC2L{G T(&<^D35-<^L<THRGHBT.(A)>>+<^D3Th7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' AH
TXZ	A,-1-<B>TXZ	A,-1-EJMj' hpOKX
W0.==A
W1.==B				;INITiXIALIZE BREAK MASKix
W2.==C
W3.==D
==C
W3.==$_=00,<
DEF0	(AC,FL
IEJZ cP1	..V22==acp
	..V1==a
	IFNdB <B>,<..V22==Bd0>
REPEAT ..V22-<dPa>+1,<	
	%%W==.dp.V1/^D32	
	%%X==e..V1-%%W*^D32	
	e0IFE C,BRKC1 \"<%eP%W+"0">	
	IFN Cep,BRKC2 \"<%%W+"0"f>
	..V1==..V1+1
		   >
.V1+1 fP5	WA.==WA.!<1B<%%X>>
AEJ\4@ g;	WA.==WAg0.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: b
%%FOO==b0a
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g j8]
	BRINI. AjX,B,C,D	
	IRPCjx E,<	UNBRK. "E"k>	
	IRPC F,<	BRk8KCH. "F">	
	EXPkX W0.,W1.,W2.,W3.		
W1.,W2.,W3.	ES| U(,
	REPEAT	UH3,<
	TXCE	A,1B<B>!1B<C>
>B<EVMI 
l==-1
0IRP E,<l==l+1
IFE D-l, <l==p-1
IRP G,<l==l+1
IFE F-l, <0

;+.PARA -8
;PXXXTTL	MACRO TO GpENERATE A TITLE STATEMENT OF THE F0ORM:
;.BREAK
;-PTITLE A COMMENT pVERSION
	DEFINE KTTL,<IFG I,<
0	TITLE	A - J  %PBEG(H)-I
>IpFE I,<
	TITLE	A - J  %BEG(0H)
>>

;+.PARAP -8
;XXX137	MACRpO TO SETUP LOCATION 137 WITH THE S0PECIFIED
;-VERSIPON NUMBER. NOTE: pTHE MACRO DOES ITS OWN "LOC" AND "0RELOC".
	DEFINE PK137,<IFG I,<
p	IF2,<LALL>
	LOC	137
	BYTE (3)K0WHO(9)KVER(6)KMPIN(18)KEDT	; A p%BEG(H)-I
	RELOC
	SALL
>	I0FE I,<
	IF2,<LAPLL>
	LOC	137
	BpYTE (3)KWHO(9)KVER(6)KMIN(18)K0EDT	; A %BEG(PH)
	RELOC
	SALpL
>>

; MACRO  TO DEFINE VERSION 0 # AT CURRENT LOC PATION
;+.PARA -8 p
;XXXVRS	MACRO T!O DEFINE THE VERS!0ION NUMBER AT AN
;-ARBITRARY USER!p LOCATION.
	DEFI"NE KVRS,<IFG I,"0<
	IF2,<LALL>
	"PBYTE (3)KWHO(9)"pKVER(6)KMIN(18)#KEDT	; A %BEG#0(H)-I
	SALL
>#P	IFE I,<
	IF2,<#pLALL>
	BYTE (3)$KWHO(9)KVER(6)K$0MIN(18)KEDT	; A$P %BEG(H)
	SA$pLL
>>
; GENERA%TE A PASS2 PRINTX%0 STATEMENT
;+.PA%PRA -8
;-XXXPTX	G%pENERATES A PASS2 &PRINTX STATEMENT.&0
	DEFINE KPTX,<&P
	IF2,<
	IFG I&p,<PRINTX A %BE'G(H)-I	J
>	I'0FE I,<PRINTX A 'P%BEG(H)	J
>'p>>

;+.PARA -8
;XXXSTL	THE XXXS(0TL MACRO GENERATE(PS A NEW PAGE
;VI(pA THE MACRO PAGE )PSEUDO-OP AND OPT)0IONALLY
;DEFINES)P A NEW SUBTTL COM)pMAND. THE CALL IS* "XXXSTL (COMMENT*0)".
;IF THE XXXS*PTL MACRO IS CALLE*pD WITH A NULL ARG+UMENT A COMMENT
+0; LINE IS GENERAT+PED AT THE BOTTOM +pOF THE CURRENT PA,GE
; AND AT THE ,0TOP OF THE NEXT P,PAGE INDICATING TH,pAT THE PAGE
;-HA-S BEEN CONTINUED.-0
	DEFINE KSTL (-PTEXT),<IFNB <TEXT-p>,<
	SUBTTL	TEXT.
	PAGE
>	IFB <T.0EXT>,<
	LALL
	P.PAGE		; CONTINUED .pTO NEXT PAGE
	SA/LL		; CONTINUED F/0ROM PREVIOUS PAGE/P
>>
;+.PARA -8
;XXXUNV	MACRO TO0 GENERATE A UNIVE00RSAL STATEMENT. T0PHE MACRO IN
;EFF0pECT IS AN EXACT C1OPY OF THE XXXTTL10 MACRO EXCEPT THA1PT THE
;-WORD "UN1pIVERSAL" REPLACES2 THE WORD "TITLE"20.
	DEFINE KUNV,2P<IFG I,<
	LALL
	UNIVERSAL A - 3J  %BEG(H)-30I
	SALL
>IFE I3P,<
	LALL
	UNIVE3pRSAL A - J  %B4EG(H)
	SALL
40>>
;+.PARA -8
4P;XXXERR	MACRO TO 4pTYPE A FATAL ERRO5R MESSAGE ON THE
;USER'S TERMINAL5P. THE CALL IS OF 5pTHE FORM:
;.BREA6K
;XXXERR (ZZZ,E60RROR MESSAGE,<PDP6P-10 INSTRUCTION>)6p
;.BREAK
;ZZZ I7S THE 3-CHARACTER70 ERROR CODE, ERRO7PR MESSAGE IS THE 7pASCIZ
;STRING TO8 BE TYPED ON THE 80TERMINAL AND PDP-8P10 INSTRUCTION IS8p
;AN OPTIONAL AR9GUMENT INDICATING90 WHAT THE USER WA9PNTS TO DO
;ABOUT9p THE ERROR JUST T:YPED. IF THE ARGU:0MENT IS NULL AN
:P;-EXIT IS EXECUTE:pD.
	DEFINE KERR; (COD,MSG,INSTR),;0<
...'COD:	JRST	;P[
	OUTSTR	[ASCIZ;p \
? K'COD MSG\<]
	IFNB <INSTR>,<0<INSTR>
	IFB <IN<PSTR>,<EXIT>
]>
<p
;+.PARA -8
;XX=XWRN	MACRO SIMILA=0R TO THE XXXERR M=PACRO EXCEPT THAT =pA
;WARNING MESSA>GE IS ISSUED RATH>0ER THAN A FATAL A>PND
;-THE DEFAULT>p PDP-10 INSTRUCTI?ON TO BE EXECUTED?0 IS "JRST .+1".
?P	DEFINE KWRN (CO?pD,MSG,INSTR),<
.@..'COD:	JRST	[
	@0OUTSTR	[ASCIZ \
@P% K'COD MSG\]
	@pIFNB <INSTR>,<INSATR>
	IFB <INSTR>A0,<JRST .+1>
]>
AP

STOPI>>STOPI>Ap>
	PURGE l,m,n
URGE l,m,G@ qOP%%CA (A,B,)OP%%CA (AGD tH$OP%%CA (A,B,A)P%%CA (AGDP rHOP%%CA (A,B,E)P%%CA (AGDp sOP%%CA (A,B,G)P%%CA (AGDy  sHOP%%CA (A,B,GE)%%CA (AGE@ qH
OP%%CA (A,B,L)P%%CA (AGEI  rOP%%CA (A,B,LE)%%CA (AGE` t OP%%CA (A,B,N)P%%CA (AG&tkg VH8
	DEFINE	VhINFO.(OPCODE,NEWAWRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ KhfLALL

		L	   PAGE	;(CONTINL(UED ON NEXT PAGE)LH
			   SALL	;(COLhNTINUED FROM PREVIOUS PAGE)
REVG?T AASCIZ .COPYRIGHT CIZ .COPI6= \h~
	..OLD==]10
	..TYP==3
IF](E <C>+1,..TYP==0]H
IFE <C>-^O7777]h77,..TYP==1
IFE ^<C>-^O777777B17,^(..TYP==2
..POS==^HPOS(<C>)
..WID=^h=WID(<C>)
	RADI_X	10
	DF%%ST (\._(.TYP,A,<B>,\..P_HOS,\..WID)
	PURG_hE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z `(

	RADIX	.`H.OLD
DEFINE	B (`hOPS,AC,E),<
	..Ca==0
	IRP OPS,<
a(		IFE A-..C,<
	aH		STOPI
			IFN 3ah-..C, OPS <AC>,Cb'E
			IFE 3-..C,b( OPS <AC>,[POINT bHE,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 y0KOP%%IN	(A,B,DIV)%IN	(AKc  G0IRP A,<IFF2,<IFNDEF A,<EXTERN A>>>A,<EXTM&. 0{OP%%FP	(A,B,FADR)FP	(AM6. pOP%%FP	(A,B,FDVR)FP	(AM&eG SH<<A>!<<LFShTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. 0OP%%FP	(A,B,FMPR)FP	(AMH(X6 \(b
	DEFINE	A,<-^OB(P)>
MJ XH^
	OLD%%%=Xh=10	
	RADIX	8
	YN%%%==0		
IRP AY(,<
	FR%%AM (A,\YH<N%%%+1>)	
	N%%%Yh==N%%%+1		
>
	AZDD	P,[N%%%,,N%%%]Z(	
	PUSHJ	P,b		
	  SKIPA
	AOS	-ZhN%%%(P)	
	SUB	P,[[N%%%,,N%%%]	
	P[(OPJ	P,		
b:
	R[HADIX	OLD%%%
	PUR[hGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. pOP%%FP	(A,B,FSBR)FP	(AM\u|RQ O2|  F@Z
	IRP	A,F`<
	IF2,<
		.IF E`A,OPCODE,<.IFN E@A,LOCAL,<EXTERN E A>>
		.IF A,NEEEDED,<EXTERN A>
JH		.IF A,OPDEF ,<Jh.IFN A,LOCAL,<EXKTERN A>>
		.IF K(A,LOCAL ,<INTERN A>
	>>
TERNQf@ +SNn ypOOP%%IN	(A,B,IDIV)IN	(AS7-N xpGOP%%IN	(A,B,IMUL)IN	(AS;k V0<<<A>B<POS(<B>)>>&<B>>S? ATXO	A,<B>TXO	A,<BU +,U +(U  +$Up +U~` +"U?0 +0UKI@ +UVn	 Sh:IFE <<B>_T1>,<
IFE <B>,<
	JUMP	A,D
>
THIFN <B>,<
IFE <Th<C>&<B>>,<
	JUUMPL	A,D
>
IFNU( <<C>&<B>>,<
	UHJUMPGE	A,D
>>>Uh
IFN <<B>1>,<
	TXCA	A,<<C>&<V(B>>
	JRST	.+5
VH	TXCE	A,<<C>&<VhB>>
	JRST	D
	TWXNE	A,<<-<C>-1>W(&<B>>
	JRST	D
>>>
	JRST	D
' Oh
IFE <<BP>_1>,<
IFE <B>,P(<
	JUMPA	A,D
PH>
IFN <B>,<
IFPhE <<C>&<B>>,<
Q	JUMPGE	A,D
>Q(
IFN <<C>&<B>>,QH<
	JUMPL	A,D
Qh>>>
IFN <<B>_1>R,<
	TXCA	A,<<CR(>&<B>>
	JRST	.+RH5
	TXCE	A,<<C>Rh&<B>>
	JRST	.+3S
	TXNN	A,<<-<CS(>-1>&<B>>
	JRST	D
>>>
	JRSTUVn
 Wh
IFDIF <XB><C>,<
	JFCL	1X(,.+1		
	JRST	.+1XH		
IFNB <B>,<	JXhFCL	1,B
YIFNB Y<C>,<IFIDN <C><Y(D>,<IFIDN <D><YHE>,< JRST	C>>>>
IFB <B>,<	JFCL	Z1,i
  IFIDN <CZ(><D>,<IFIDN <D>ZH<E>,< JRST	C>>>Zh
>

IFDIF <C>[<D>,<
	HRLOI	A[(,-2		
IFNB <C>,[H<	AOBJP	A,C
  [hIFNB <D>,<IFIDN \<D><E>,<JRST	D\(>>>
IFB <C>,<IF\HDIF <D><E>,<AOB\hJP A,i>
	    I]FIDN <D><E>,<AO](BJN A,D>>
>
]H
IFDIF <D><E>,<]h
	IF2,<IFE A,<P^RINTX ? A MUST B^(E NON-ZERO IN JUM^HPPT>>
	MOVEI	A,^h0		
	BLT	A,0		
IFNB <D>,<	JUMP_(E	A,D
  IFNB <_HE>,<	JRST	E>>
_hIFB <D>,<	JUMPN	`A,E>
>

i:A,E>
>

i:Y$- S<1B<^L<A>>><1B<^L<A>Y tQ xY>
C@ c( B (<MOVEcH,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG M(r
	IFNDEF	MHLSTIN.,	LSTIN.==0Mh
IFE LSTIN.,<
	NIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G Nh|
IFG LSTION., LSTIN.==LSTINO(.-1
IFLE LSTIN.,OH<	.CREF
		LIST>
CREF
		LIST> 'MIFG 0,<
	'0IF2,<LALL>
	BYTE'P (3)MACWHO(9)MACV'pER(6)MACMIN(18)MA(CEDT	; MACTEN %4((045)-0
	SALL
>	I(PFE 0,<
	IF2,<LAL(pL>
	BYTE (3)MACW)HO(9)MACVER(6)MAC)0MIN(18)MACEDT	; M)PACTEN %4(45)
	SALL
>4(45)
	SA[3@ R<<<1_<A>>-1>B<B>>_<A>>[>&: B0
	LALL
	BP%%A==BYTE (3)AWBpHO(9)AVER(6)AMICN(18)AEDT
	SALL
)AEDT
	SALL[?7 fp
	.XCREF
	TEST%%=B
.IFNfH <TEST%%>,ABSOLUTfhE,<
	.CREF
	MOVgE	A,[B]
	.XCREg(F
>
.IF <TEST%%gH>,ABSOLUTE,<
	TEghST%%=0
IFE	<<B>h_-^D18>,<
	TEST%h(%=1
	.CREF
	MOVhHEI	A,<B>
	.XCRhhEF
>
IFE	TEST%%i,<IFE	<<B>_^D18>i(,<
	TEST%%=1
	.iHCREF
	MOVSI	A,(ihB)
	.XCREF
>>
IFE	TEST%%,<IFE	j(<<<B>_-^D18>-^O7jH77777>,<
	TEST%%jh=1
	.CREF
	HRROkI	A,<B>
	.XCREk(F
>>
IFE	TEST%%kH,<IFE	<<<B>^D18kh>-^O777777B17>,<
	TEST%%=1
	.CREl(F
	HRLOI	A,(<BlH>-^O777777)
	.XClhREF
>>
IFE	TESTm%%,<
	.CREF
	MOm(VE	A,[B]
	.XCRmHEF
>
>	;[35][32mh] END OF .IF <B>n,ABSOLUTE
	PURGE	TEST%%
	.CREF[Vg x0COP%%IN	(A,B,MUL)%IN	(A] CpRIF2,<IFDEFCP A,<A==A>> IFNJ(DEF A,<A==<B>>F A,<A==<B>>]` I`HND (A,<BI@>)
PRINTX %PLEASH`E USE ND MACRO, NIDS. MACRO IS NOW OBSOLETE
 NOW _@(Xp u7
	.XCREF
IFE	<<B>_-^D18>uH,<
	.CREF
	CAIuhC	A,<B>
	.XCREvF
>
IFN	<<B>_-v0^D18>,<
	.CREF
vP	CAMC	A,[B]
	vp.XCREF
>
	.CREFCREF
>
	.CREF_@(YX 0
	.XCREF
IFE	<<B>_^D18>,p<
	.CREF
	CI	A,(B)
	.XCREF
0>
IFN	<<B>_^D18P>,<
	.CREF
	C	pA,[B]
	.XCREF
>
	.CREFCREF0g
	.XCREF
	TEST%%=0
IFE	<zp<<B>_-^D18>-^O77{7777>,<
IFN	<<B{0>&^O777777>,<
	T{PEST%%=1
	.CREF
{p	DI	A,-<B>
	.|XCREF
>>
IFE	TE|0ST%%,<
	OP%%IN	|PA,<B>,C
>
	PU|pRGE	TEST%%
	.CREF	TEST%%
	.CRE_@(Z7 }0w
	.XCREF
IFE	<<B>_-^D18>}p,<
	.CREF
	CI	~A,<B>
	.XCREF
>
IFN	<<B>_-^D~P18>,<
	.CREF
	~pC	A,[B]
	.XCREF
>
	.CREFCRE_@(] <H

	.XCREF
IFN <<A>&^O7777=77777760>, PRINTX=( ? A IS NOT AN A=HCCUMULATOR

	TE=hMP%%=0
IFE	<<B>>_^D18>,<
IFN	<B>(>,<
	TEMP%%=1
	>H.CREF
	C	A,(B>h)
	.XCREF
>>
I?FE	<<B>_-^D18>,<?(
	TEMP%%=1
	.CR?HEF
	D	A,<B>
?h	.XCREF
>
IFE	T@EMP%%,<
	.CREF
@(	E	A,[B]
>
	@HPURGE	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 Q(
<POINT	WIDQH(B),A,POS(B)>B),A,POS(B)>a?H6 +a? PH<^L<A>+^LPh<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG WH@
	DEFINE	WhINFO.(OPCODE,NEWAXRG)<
	OPCODE	<A
	NEWARG>>	<AeD- RH<<A>&-<A>><<A>&-<Ae tP'g"~s@ H@B	.XCREF
	H EXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ d" B (<MOVEd(M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  nH
IFE <D>nh,<	SETZM	B>	
IFoE <D>+1,<	SETOM	o(B>	
IFN <D>*<<oHD>+1>,<MOVX	A,<ohD>	
		   MOVEM pA,B>	
IFNB <Cp(>,<			
	MOVE	A,pH[B,,B+1]
	BLT	A,C		
>	BLT	gV wp?OP%%IA	(A,B,SUB,ADD)(Ai'%I' 
-
	.XCREF
0
	Z==0
	IFNDEF 
PAVER,<Z==-1>
	IF
pNDEF AMIN,<Z==-1>
	IFNDEF AEDT,0<Z==-1>
	IFNDEF PAWHO,<Z==-1>
	IpFL Z,<PRINTX ?SYM
BOLS AWHO,AVER,
0AMIN AND AEDT N
POT DEFINED
	PRIN
pTXB?VERSIONDSYMBO
END
	.CREF
	IF2,<LALL>
	ASIX==SI0XBIT /A/	; B ABPBREVIATION IN SIXpBIT
	AASC==ASCIZ /A/	; B ABBRE0VIATION IN ASCII
	SALL
	.XCREF
p%FIRST=AMIN/^D26
IFE %FIRST,<%SE0CON==AMIN
	%FIRPST==0>
IFG %FIRSpT,<%SECON=AMIN-<^D26*%FIRST>>
IF0E AMIN-^D26,<%SEPCON==AMIN
	%FIRpST=0>
IFE AMIN-^D52,<%SECON==^D206
	%FIRST=1>
; PDEFINE ALL THE MApCROS
BUILD$ (B,\AVER,\AMIN,\%F0IRST,<,A,B,C,D,E,PF,G,H,I,J,K,L,M,Np,O,P,Q,R,S,T,U,V,W,X,Y,Z>,\%SECON,0<,A,B,C,D,E,F,G,HP,I,J,K,L,M,N,O,P,pQ,R,S,T,U,V,W,X,Y,Z>,\AEDT,\AWHO0,C,A)

	IF2,<PPURGE %SECON,%FIRST,Z>
.CREFFIRib 
p`
	.XCREF
IFB <B>, TXC	(<8h^O37777777&A>,1B9<A_-^D30>)
IFNB9( <B>,<
IFN <<A9H>&^O777777777760>9h, PRINTX ? A IS :NOT AN ACCUMULATO:(R
IFE	<<<B>_-^D:H18>-^O777777>,<
:h	.CREF
	EQVI	A,;<,,-1-<B>>
	.XC;(REF>
IFN	<<<B>_;H-^D18>-^O777777>,;h<
	OP%%TX	A,<B<>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib 6H@
	.XCREF
IFB  <B>,	OP%%T7X	<^O37777777&A>7(,1B<A_-^D30>,TLC7HA,TRCA,TDCA
IFNB7h <B>,	OP%%TX	A,8<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP 
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLC E,TRCE,TDCE
IFNB 0 <B>,	OP%%TX	A, P<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` !0
	.XCREF
IFB  <B>,	OP%%T5X	<^O37777777&A>5(,1B<A_-^D30>,TLC5HN,TRCN,TDCN
IFNB5h <B>,	OP%%TX	A,6<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp 0
IFB <B>P, JFCL	0
IFNB <pB>, TRN	A,<,,<B>>
N	A,<,,<Bibt 
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLNA,TRNA,TDNA
IFNB0 <B>,	OP%%TX	A,P<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ L(z
IFE <<BLH>_<1+^L<B>>>,<
LhIFE <<B>&<C>>,<M
	TXNN	A,<B>
M(>
IFN <<B>&<C>MH>,<
	TXNE	A,<BMh>
>>
IFN <<B>_N<1+^L<B>>>,<
	TN(XCA	A,<<C>&<B>NH>
	JRST	.+4
	TXNhCE	A,<<C>&<B>>O
	JRST	.+3
	TXNO(N	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP 
	.XCREF
IFB<^<B>,	OP%%T>E,TRNE,TDNE
IFNB0 <B>,	OP%%TX	A,P<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ Hh^
IFE <<BI>_<1+^L<B>>>,<
I(IFE <<B>&<C>>,<IH
	TXNE	A,<B>
Ih>
IFN <<B>&<C>J>,<
	TXNN	A,<BJ(>
>>
IFN <<B>_JH<1+^L<B>>>,<
	TJhXCA	A,<<C>&<B>K>
	JRST	.+4
	TXK(CE	A,<<C>&<B>>KH
	JRST	.+2
	TXNKhE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` 
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLNN,TRNN,TDNN
IFNB0 <B>,	OP%%TX	A,P<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx Pc
	.XCREF
IFB <B>, TXO	(<	^O37777777&A>,1B	0<A_-^D30>)
IFNB	P <B>,<
IFN <<A	p>&^O777777777760>
, PRINTX ? A IS 
0NOT AN ACCUMULATO
PR
IFE	<<<B>_-^D
p18>-^O777777>,<
	.CREF
	ORCMI	A0,<,,-1-<B>>
	.XPCREF>
IFN	<<<B>p_-^D18>-^O777777>
,<
	OP%%TX	A,<
0B>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| u
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLOA,TROA,TDOA
IFNB0 <B>,	OP%%TX	A,P<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P U
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLOE,TROE,TDOE
IFNB0 <B>,	OP%%TX	A,P<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` e
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLON,TRON,TDON
IFNB0 <B>,	OP%%TX	A,P<B>,TLON,TRON,TDON
	.CREF
,TDicP 0A
	.XCREF
IFB <B>, TXZ	(<p^O37777777&A>,1B<A_-^D30>)
IFNB0 <B>,<
IFN <<AP>&^O777777777760>p, PRINTX ? A IS NOT AN ACCUMULATOPR
IFE	<<<B>_-^D018>-^O777777>,<
p	.CREF
	ANDI	A,<,,-1-<B>>
	.XC0REF>
IFN	<<<B>_P-^D18>-^O777777>,p<
	OP%%TX	A,<B>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT E
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLZA,TRZA,TDZA
IFNB0 <B>,	OP%%TX	A,P<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP %
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLZE,TRZE,TDZE
IFNB0 <B>,	OP%%TX	A,P<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` 5
	.XCREF
IFB  <B>,	OP%%TPX	<^O37777777&A>p,1B<A_-^D30>,TLZN,TRZN,TDZN
IFNB0 <B>,	OP%%TX	A,P<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` GHB
	MOVX	AGh,1B<B_-^D30>
	.HXCREF
	<XORM	A,H(>!<37777777&B>
	.CREF
7&B>
iftS@ BH
	MOVX	ABh,1B<B_-^D30>
	.CXCREF
	<TDNE	A,C(>!<37777777&B>
	.CREF
7&B>
ifuc@ Ch$
	MOVX	AD,1B<B_-^D30>
	.D(XCREF
	<TDNN	A,DH>!<37777777&B>
	.CREF
7&B>
ify` E.
	MOVX	AE(,1B<B_-^D30>
	.EHXCREF
	<IORM	A,Eh>!<37777777&B>
	.CREF
7&B>
igQ` F(8
	MOVX	AFH,1B<B_-^D30>
	.FhXCREF
	<ANDCAM	GA,>!<37777777&B>
	.CREF
7&B>k:*g bp
%%FOO==ca
	BRK0 (%%FOO,B,1)
 (%%FOO,mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ D#BYTE (3)AD0WHO (9)AVER (6)AMIN (18)AEDTo&  P<^L<-<<A>_<^L<A>>>-1>>>q"eJ  P q*-` +
q+= +q+= +
q6~i4 C q? BTXC	A,<B>TXC	A,<Bq@ G@>IFB <C>,<G`A==:<B>> IFNB <C>,<A=:<B>><qBp +qN5P +us@ dh, B (<SETZeM,HLLZS,HRRZS,<PRe(INTX ?CAN'T ZERO eHBYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ 
| 0=
	XLIST
P	.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 | PM
	XLIST
p	.....X=.
	.ORG
	.ORG 0
	REPEAT	0 .....X,<EXP 0>
	P	PURGE .....X
	.ORG
	LIST

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