Google
 
Trailing-Edge - PDP-10 Archives - BB-H137E-BM - new-subsys/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,Q_@P C' (XOP%%IA	(A,B,ADD,SUB)(AC2L{G gx&C<^D35-<^L<hRGHBT.(A)>>+<^D3h87*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' U-)TXZ	A,-1-<B>TXZ	A,-1-EJMj' |@/l_(
W0.==A
W1.==B				;INIT}(IALIZE BREAK MASK}H
W2.==C
W3.==D
==C
W3.==5|/Z0,.0,<
DEF,00	(AC,FL,*0CREF
IEJZ w /N	..V22==aw@
	..V1==a
	IFNw`B <B>,<..V22==Bx>
REPEAT ..V22-<x a>+1,<	
	%%W==.[email protected]/^D32	
	%%X==x`..V1-%%W*^D32	
	yIFE C,BRKC1 \"<%y %W+"0">	
	IFN Cy@,BRKC2 \"<%%W+"0"y`>
	..V1==..V1+1
		   >
.V1+1 z /R	WA.==WA.!<1B<%%X>>
AEJ\4@ z`/X	WA.==WA{.&<-1-1B<%%X>>
&<-1-1B<%%X>>
EJ\: u`/0
%%FOO==va
	BRK0 (%%FOO,B,0)
 (%%FOO,EJn:g ~/z

	BRINI. A~(,B,C,D	
	IRPC~H E,<	UNBRK. "E"~h>	
	IRPC F,<	BRKCH. "F">	
	EXP( W0.,W1.,W2.,W3.		
W1.,W2.,W3.	ES| hx&I
	REPEAT	i3,<
	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, <+

;+.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 "0RELOC".
	DEFINE 0 K137,<IFG I,<
0@	IF2,<LALL>
	LOC0`	137
	BYTE (3)K1WHO(9)KVER(6)KM1 IN(18)KEDT	; A 1@%BEG(H)-I
	1`RELOC
	SALL
>	I2FE I,<
	IF2,<LA2 LL>
	LOC	137
	B2@YTE (3)KWHO(9)K2`VER(6)KMIN(18)K3EDT	; A %BEG(3 H)
	RELOC
	SAL3@L
>>

; MACRO 3`TO DEFINE VERSION4 # AT CURRENT LOC4 ATION
;+.PARA -84@
;XXXVRS	MACRO T4`O DEFINE THE VERS5ION NUMBER AT AN
;-ARBITRARY USER5@ LOCATION.
	DEFI5`NE KVRS,<IFG I,6<
	IF2,<LALL>
	6 BYTE (3)KWHO(9)6@KVER(6)KMIN(18)6`KEDT	; A %BEG7(H)-I
	SALL
>7 	IFE I,<
	IF2,<7@LALL>
	BYTE (3)7`KWHO(9)KVER(6)K8MIN(18)KEDT	; A8  %BEG(H)
	SA8@LL
>>

; GENERA8`TE A PASS2 PRINTX9 STATEMENT
;+.PA9 RA -8
;-XXXPTX	G9@ENERATES A PASS2 9`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 GENERAT? ED AT THE BOTTOM ?@OF THE CURRENT PA?`GE
; AND AT THE @TOP OF THE NEXT P@ AGE INDICATING TH@@AT THE PAGE
;-HA@`S BEEN CONTINUED.A
	DEFINE KSTL (A TEXT),<IFNB <TEXTA@>,<
	SUBTTL	TEXTA`
	PAGE
>	IFB <TBEXT>,<
	LALL
	PB AGE		; CONTINUED B@TO NEXT PAGE
	SAB`LL		; CONTINUED FCROM PREVIOUS PAGEC 
>>
;+.PARA -8
;XXXUNV	MACRO TOC` GENERATE A UNIVEDRSAL STATEMENT. TD HE MACRO IN
;EFFD@ECT IS AN EXACT CD`OPY OF THE XXXTTLE MACRO EXCEPT THAE T THE
;-WORD "UNE@IVERSAL" REPLACESE` THE WORD "TITLE"F.
	DEFINE KUNV,F <IFG I,<
	LALL
	UNIVERSAL A - F`J  %BEG(H)-GI
	SALL
>IFE IG ,<
	LALL
	UNIVEG@RSAL A - J  %BG`EG(H)
	SALL
H>>

;+.PARA -8
H;XXXERR	MACRO TO H@TYPE A FATAL ERROH`R MESSAGE ON THE
;USER'S TERMINALI . THE CALL IS OF I@THE FORM:
;.BREAI`K
;XXXERR (ZZZ,EJRROR MESSAGE,<PDPJ -10 INSTRUCTION>)J@
;.BREAK
;ZZZ IJ`S THE 3-CHARACTERK ERROR CODE, ERROK R MESSAGE IS THE K@ASCIZ
;STRING TOK` BE TYPED ON THE LTERMINAL AND PDP-L 10 INSTRUCTION ISL@
;AN OPTIONAL ARL`GUMENT INDICATINGM WHAT THE USER WAM NTS TO DO
;ABOUTM@ THE ERROR JUST TM`YPED. IF THE ARGUNMENT IS NULL AN
N ;-EXIT IS EXECUTEN@D.
	DEFINE KERRN` (COD,MSG,INSTR),O<
...'COD:	JRST	O [
	OUTSTR	[ASCIZO@ \
? K'COD MSG\O`]
	IFNB <INSTR>,P<INSTR>
	IFB <INP STR>,<EXIT>
]>
P@
;+.PARA -8
;XXP`XWRN	MACRO SIMILAQR TO THE XXXERR MQ ACRO EXCEPT THAT Q@A
;WARNING MESSAQ`GE IS ISSUED RATHRER THAN A FATAL AR ND
;-THE DEFAULTR@ PDP-10 INSTRUCTIR`ON TO BE EXECUTEDS IS "JRST .+1".
S 	DEFINE KWRN (COS@D,MSG,INSTR),<
.S`..'COD:	JRST	[
	TOUTSTR	[ASCIZ \
T % K'COD MSG\]
	T@IFNB <INSTR>,<INST`TR>
	IFB <INSTR>U,<JRST .+1>
]>
U 

STOPI>>STOPI>U@>
	PURGE l,m,n
URGE l,m,G@ X(%OP%%CA (A,B,)OP%%CA (AGD (AOP%%CA (A,B,A)P%%CA (AGDP (1OP%%CA (A,B,E)P%%CA (AGDp X(5OP%%CA (A,B,G)P%%CA (AGDy  (9OP%%CA (A,B,GE)%%CA (AGE@ ()OP%%CA (A,B,L)P%%CA (AGEI  X(-OP%%CA (A,B,LE)%%CA (AGE` X(=OP%%CA (A,B,N)P%%CA (AG&tkg j&U
	DEFINE	j8INFO.(OPCODE,NEWAjXRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ _8&LALL

		_X	   PAGE	;(CONTIN_xUED ON NEXT PAGE)`
			   SALL	;(CO`8NTINUED FROM PREVIOUS PAGE)
REVG?T `!^ASCIZ .COPYRIGHT CIZ .COPI6= p8'
	..OLD==pX10
	..TYP==3
IFpxE <C>+1,..TYP==0q
IFE <C>-^O7777q877,..TYP==1
IFE qX<C>-^O777777B17,qx..TYP==2
..POS==rPOS(<C>)
..WID=r8=WID(<C>)
	RADIrXX	10
	DF%%ST (\.rx.TYP,A,<B>,\..PsOS,\..WID)
	PURGs8E	..OLD,..TYP,..POS,..WIDTYP,..PI(\z sx'3

	RADIX	.t.OLD
DEFINE	B (t8OPS,AC,E),<
	..CtX==0
	IRP OPS,<
tx		IFE A-..C,<
	u		STOPI
			IFN 3u8-..C, OPS <AC>,CuX'E
			IFE 3-..C,ux OPS <AC>,[POINT vE,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7PN	(A,B,DIV)%IN	(AKc  ZP%MIRP A,<IFYP2,<IFNDEF A,<EXTERN A>>>A,<EXTM&. )OP%%FP	(A,B,FADR)FP	(AM6. @)$OP%%FP	(A,B,FDVR)FP	(AM&eG g&;<<A>!<<LFg8TBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. ) OP%%FP	(A,B,FMPR)FP	(AMH(X6 ox&
	DEFINE	A,<-^OB(P)>
MJ l&{
	OLD%%%=l8=10	
	RADIX	8
	lXN%%%==0		
IRP Alx,<
	FR%%AM (A,\m<N%%%+1>)	
	N%%%m8==N%%%+1		
>
	AmXDD	P,[N%%%,,N%%%]mx	
	PUSHJ	P,b		
	  SKIPA
	AOS	-n8N%%%(P)	
	SUB	P,nX[N%%%,,N%%%]	
	PnxOPJ	P,		
b:
	RoADIX	OLD%%%
	PURo8GE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. @)OP%%FP	(A,B,FSBR)FP	(AM\u|RQ O2|  Z%w
	IRP	A,Z0<
	IF2,<
		.IF Y0A,OPCODE,<.IFN YA,LOCAL,<EXTERN XpA>>
		.IF A,NEEXPDED,<EXTERN A>
^		.IF A,OPDEF ,<^8.IFN A,LOCAL,<EX^XTERN A>>
		.IF ^xA,LOCAL ,<INTERN A>
	>>
TERNQf@N+SNnVIN	(AS7-N 

@(dOP%%IN	(A,B,IMUL)IN	(AS;k iX&M<<<A>B<POS(<B>)>>&<B>>S? TX-%TXO	A,<B>TXO	A,<BU +,U +(U  +$Up +U~` +"U?0 +0UKI@ +UVn	 g8.WIFE <<B>_gX1>,<
IFE <B>,<
	JUMP	A,D
>
hIFN <B>,<
IFE <h8<C>&<B>>,<
	JUhXMPL	A,D
>
IFNhx <<C>&<B>>,<
	iJUMPGE	A,D
>>>i8
IFN <<B>1>,<
	TXCA	A,<<C>&<ixB>>
	JRST	.+5
j	TXCE	A,<<C>&<j8B>>
	JRST	D
	TjXXNE	A,<<-<C>-1>jx&<B>>
	JRST	D
>>>
	JRST	D
' c8.7
IFE <<BcX>_1>,<
IFE <B>,cx<
	JUMPA	A,D
d>
IFN <B>,<
IFd8E <<C>&<B>>,<
dX	JUMPGE	A,D
>dx
IFN <<C>&<B>>,e<
	JUMPL	A,D
e8>>>
IFN <<B>_1>eX,<
	TXCA	A,<<Cex>&<B>>
	JRST	.+f5
	TXCE	A,<<C>f8&<B>>
	JRST	.+3fX
	TXNN	A,<<-<Cfx>-1>&<B>>
	JRST	D
>>>
	JRSTUVn

 k8/
IFDIF <kXB><C>,<
	JFCL	1kx,.+1		
	JRST	.+1l		
IFNB <B>,<	Jl8FCL	1,B
mIFNB lX<C>,<IFIDN <C><lxD>,<IFIDN <D><mE>,< JRST	C>>>>
IFB <B>,<	JFCL	mX1,i
  IFIDN <Cmx><D>,<IFIDN <D>n<E>,< JRST	C>>>n8
>

IFDIF <C>nX<D>,<
	HRLOI	Anx,-2		
IFNB <C>,o<	AOBJP	A,C
  o8IFNB <D>,<IFIDN oX<D><E>,<JRST	Dox>>>
IFB <C>,<IFpDIF <D><E>,<AOBp8JP A,i>
	    IpXFIDN <D><E>,<AOpxBJN A,D>>
>
q
IFDIF <D><E>,<q8
	IF2,<IFE A,<PqXRINTX ? A MUST BqxE NON-ZERO IN JUMrPPT>>
	MOVEI	A,r80		
	BLT	A,0		
IFNB <D>,<	JUMPrxE	A,D
  IFNB <sE>,<	JRST	E>>
s8IFB <D>,<	JUMPN	sXA,E>
>

i:A,E>
>

i:Y$- fX&5<1B<^L<A>>><1B<^L<A>Y tQ xY>

C@ vx'9 B (<MOVEw,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG `x&
	IFNDEF	aLSTIN.,	LSTIN.==0a8
IFE LSTIN.,<
	aXIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G b8&
IFG LSTIbXN., LSTIN.==LSTINbx.-1
IFLE LSTIN.,c<	.CREF
		LIST>
CREF
		LIST> :`+jIFG 0,<
	;IF2,<LALL>
	BYTE;  (3)MACWHO(9)MACV;@ER(6)MACMIN(18)MA;`CEDT	; MACTEN %4(<45)-0
	SALL
>	I< FE 0,<
	IF2,<LAL<@L>
	BYTE (3)MACW<`HO(9)MACVER(6)MAC=MIN(18)MACEDT	; M= ACTEN %4(45)
	SALL
>4(45)
	SA[3@ eX&-<<<1_<A>>-1>B<B>>_<A>>[>&: V%6
	LALL
	V %%A==BYTE (3)AWV@HO(9)AVER(6)AMIV`N(18)AEDT
	SALL
)AEDT
	SALL[?7 yX(
	.XCREF
	TEST%%=B
.IFNz <TEST%%>,ABSOLUTz8E,<
	.CREF
	MOVzXE	A,[B]
	.XCREzxF
>
.IF <TEST%%{>,ABSOLUTE,<
	TE{8ST%%=0
IFE	<<B>{X_-^D18>,<
	TEST%{x%=1
	.CREF
	MOV|EI	A,<B>
	.XCR|8EF
>
IFE	TEST%%|X,<IFE	<<B>_^D18>|x,<
	TEST%%=1
	.}CREF
	MOVSI	A,(}8B)
	.XCREF
>>X
IFE	TEST%%,<IFE	}x<<<B>_-^D18>-^O7~77777>,<
	TEST%%~8=1
	.CREF
	HRRO~XI	A,<B>
	.XCRE~xF
>>
IFE	TEST%%,<IFE	<<<B>^D188>-^O777777B17>,<
	TEST%%=1
	.CRExF
	HRLOI	A,(<B>-^O777777)
	.XC8REF
>>
IFE	TESTX%%,<
	.CREF
	MOxVE	A,[B]
	.XCREF
>
>	;[35][328] END OF .IF <B>X,ABSOLUTE
	PURGE	TEST%%
	.CREF[Vg 

(`OP%%IN	(A,B,MUL)%IN	(A] W@%oIF2,<IFDEFW  A,<A==A>> IFN]xDEF A,<A==<B>>F A,<A==<B>>]` ]0%eND (A,<B]>)
PRINTX %PLEAS\0E USE ND MACRO, N\PDS. MACRO IS NOW OBSOLETE
 NOW _@(Xp X(T
	.XCREF
IFE	<<B>_-^D18>	,<
	.CREF
	CAI	8C	A,<B>
	.XCRE	`F
>
IFN	<<B>_-
^D18>,<
	.CREF

 	CAMC	A,[B]
	
@.XCREF
>
	.CREFCREF
>
	.CREF_@(YX )4
	.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>,<
	T EST%%=1
	.CREF
@	DI	A,-<B>
	.`XCREF
>>
IFE	TEST%%,<
	OP%%IN	 A,<B>,C
>
	PU@RGE	TEST%%
	.CREF	TEST%%
	.CRE_@(Z7 )
	.XCREF
IFE	<<B>_-^D18>@,<
	.CREF
	CI	`A,<B>
	.XCREF
>
IFN	<<B>_-^D 18>,<
	.CREF
	@C	A,[B]
	.XCREF
>
	.CREFCRE_@(] P-!

	.XCREF
IFN <<A>&^O7777PX77777760>, PRINTXPx ? A IS NOT AN AQCCUMULATOR

	TEQ8MP%%=0
IFE	<<B>QX_^D18>,<
IFN	<BQx>,<
	TEMP%%=1
	R.CREF
	C	A,(BR8)
	.XCREF
>>
IRXFE	<<B>_-^D18>,<Rx
	TEMP%%=1
	.CRSEF
	D	A,<B>
S8	.XCREF
>
IFE	TSXEMP%%,<
	.CREF
Sx	E	A,[B]
>
	TPURGE	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 dx&)<POINT	WIDe(B),A,POS(B)>B),A,POS(B)>a?H6 +a? d&#<^L<A>+^Ld8<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG k&]
	DEFINE	k8INFO.(OPCODE,NEWAkXRG)<
	OPCODE	<A
	NEWARG>>	<AeD- f&1<<A>&-<A>><<A>&-<Ae tP'g"~s@ \%_	.XCREF
	[pEXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ wX'? B (<MOVEwxM,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  (!
IFE <D>8,<	SETZM	B>	
IFXE <D>+1,<	SETOM	xB>	
IFN <D>*<<D>+1>,<MOVX	A,<8D>	
		   MOVEM XA,B>	
IFNB <Cx>,<			
	MOVE	A,[B,,B+1]
	BLT	A,C		
>	BLT	gV @(\OP%%IA	(A,B,SUB,ADD)(Ai'%I' `"J
	.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 N  OT DEFINED
	PRIN @TX ?VERSION SYMBO `LS MUST BE DEFINE!D BEFORE CALLING ! TITLE. MACRO
END!@>
	.CREF
	IF2,<!`LALL>
	ASIX==SI"XBIT /A/	; B AB" BREVIATION IN SIX"@BIT
	AASC==ASCI"`Z /A/	; B ABBRE#VIATION IN ASCII
	SALL
	.XCREF
#@%FIRST=AMIN/^D26#`
IFE %FIRST,<%SE$CON==AMIN
	%FIR$ ST==0>
IFG %FIRS$@T,<%SECON=AMIN-<$`^D26*%FIRST>>
IF%E AMIN-^D26,<%SE% CON==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	(<L8^O37777777&A>,1BLX<A_-^D30>)
IFNBLx <B>,<
IFN <<AM>&^O777777777760>M8, PRINTX ? A IS MXNOT AN ACCUMULATOMxR
IFE	<<<B>_-^DN18>-^O777777>,<
N8	.CREF
	EQVI	A,NX<,,-1-<B>>
	.XCNxREF>
IFN	<<<B>_O-^D18>-^O777777>,O8<
	OP%%TX	A,<BOX>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib J,]
	.XCREF
IFB  <B>,	OP%%TJXX	<^O37777777&A>Jx,1B<A_-^D30>,TLCKA,TRCA,TDCA
IFNBK8 <B>,	OP%%TX	A,KX<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP 2`+"
	.XCREF
IFB  <B>,	OP%%T3 X	<^O37777777&A>3@,1B<A_-^D30>,TLC3`E,TRCE,TDCE
IFNB4 <B>,	OP%%TX	A,4 <B>,TLCE,TRCE,TDCE
	.CREF
,TDib` 4`,M
	.XCREF
IFB  <B>,	OP%%THXX	<^O37777777&A>Hx,1B<A_-^D30>,TLCIN,TRCN,TDCN
IFNBI8 <B>,	OP%%TX	A,IX<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp )<
IFB <B> , JFCL	0
IFNB <@B>, TRN	A,<,,<B>>
N	A,<,,<Bibt $`*2
	.XCREF
IFB  <B>,	OP%%T% X	<^O37777777&A>%@,1B<A_-^D30>,TLN%`A,TRNA,TDNA
IFNB& <B>,	OP%%TX	A,& <B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ _x.
IFE <<B`>_<1+^L<B>>>,<
`8IFE <<B>&<C>>,<`X
	TXNN	A,<B>
`x>
IFN <<B>&<C>a>,<
	TXNE	A,<Ba8>
>>
IFN <<B>_aX<1+^L<B>>>,<
	TaxXCA	A,<<C>&<B>b>
	JRST	.+4
	TXb8CE	A,<<C>&<B>>bX
	JRST	.+3
	TXNbxN	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP  `*
	.XCREF
IFB  <B>,	OP%%T! X	<^O37777777&A>!@,1B<A_-^D30>,TLN!`E,TRNE,TDNE
IFNB" <B>,	OP%%TX	A," <B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ \8-{
IFE <<B\X>_<1+^L<B>>>,<
\xIFE <<B>&<C>>,<]
	TXNE	A,<B>
]8>
IFN <<B>&<C>]X>,<
	TXNN	A,<B]x>
>>
IFN <<B>_^<1+^L<B>>>,<
	T^8XCA	A,<<C>&<B>^X>
	JRST	.+4
	TX^xCE	A,<<C>&<B>>_
	JRST	.+2
	TXN_8E	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` "`*"
	.XCREF
IFB  <B>,	OP%%T# X	<^O37777777&A>#@,1B<A_-^D30>,TLN#`N,TRNN,TDNN
IFNB$ <B>,	OP%%TX	A,$ <B>,TLNN,TRNN,TDNN
	.CREF
,TDibx  *
	.XCREF
IFB <B>, TXO	(<`^O37777777&A>,1B<A_-^D30>)
IFNB  <B>,<
IFN <<A@>&^O777777777760>`, PRINTX ? A IS NOT AN ACCUMULATO R
IFE	<<<B>_-^D@18>-^O777777>,<
`	.CREF
	ORCMI	A,<,,-1-<B>>
	.X CREF>
IFN	<<<B>@_-^D18>-^O777777>`,<
	OP%%TX	A,< B>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| 0`+
	.XCREF
IFB  <B>,	OP%%T1 X	<^O37777777&A>1@,1B<A_-^D30>,TLO1`A,TROA,TDOA
IFNB2 <B>,	OP%%TX	A,2 <B>,TLOA,TROA,TDOA
	.CREF
,TDib|P ,`*r
	.XCREF
IFB  <B>,	OP%%T- X	<^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
IFNB0 <B>,	OP%%TX	A,0 <B>,TLON,TRON,TDON
	.CREF
,TDicP )^
	.XCREF
IFB <B>, TXZ	(<@^O37777777&A>,1B`<A_-^D30>)
IFNB <B>,<
IFN <<A >&^O777777777760>@, PRINTX ? A IS `NOT AN ACCUMULATO R
IFE	<<<B>_-^D18>-^O777777>,<
@	.CREF
	ANDI	A,`<,,-1-<B>>
	.XCREF>
IFN	<<<B>_ -^D18>-^O777777>,@<
	OP%%TX	A,<B`>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT *`*b
	.XCREF
IFB  <B>,	OP%%T+ X	<^O37777777&A>+@,1B<A_-^D30>,TLZ+`A,TRZA,TDZA
IFNB, <B>,	OP%%TX	A,, <B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP &`*B
	.XCREF
IFB  <B>,	OP%%T' X	<^O37777777&A>'@,1B<A_-^D30>,TLZ'`E,TRZE,TDZE
IFNB( <B>,	OP%%TX	A,( <B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` (`*R
	.XCREF
IFB  <B>,	OP%%T) X	<^O37777777&A>)@,1B<A_-^D30>,TLZ)`N,TRZN,TDZN
IFNB* <B>,	OP%%TX	A,* <B>,TLZN,TRZN,TDZN
	.CREF
,TDif` [-_
	MOVX	A[8,1B<B_-^D30>
	.[XXCREF
	<XORM	A,[x>!<37777777&B>
	.CREF
7&B>
iftS@ V-7
	MOVX	AV8,1B<B_-^D30>
	.VXXCREF
	<TDNE	A,Vx>!<37777777&B>
	.CREF
7&B>
ifuc@ W8-A
	MOVX	AWX,1B<B_-^D30>
	.WxXCREF
	<TDNN	A,X>!<37777777&B>
	.CREF
7&B>
ify` XX-K
	MOVX	AXx,1B<B_-^D30>
	.YXCREF
	<IORM	A,Y8>!<37777777&B>
	.CREF
7&B>
igQ` Yx-U
	MOVX	AZ,1B<B_-^D30>
	.Z8XCREF
	<ANDCAM	ZXA,>!<37777777&B>
	.CREF
7&B>k:*g v@/6
%%FOO==v`a
	BRK0 (%%FOO,B,1)
 (%%FOO,mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ W`%@BYTE (3)AXWHO (9)AVER (6)AMIN (18)AEDTo&  cX&<^L<-<<A>_<^L<A>>>-1>>>q"eJ  P q*-` +

q+= +q+= +
q6~i4 C q? UX--TXC	A,<B>TXC	A,<Bq@ [%[IFB <C>,<[0A==:<B>> IFNB <C>,<A=:<B>><qBp +qN5P +us@ x8'I B (<SETZxXM,HLLZS,HRRZS,<PRxxINTX ?CAN'T ZERO yBYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ 
| !Z
	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;]P D<ZP D=7P DI6P ?D\qP S@P |  !j
	XLIST
@	.....X=.
	.ORG
	.ORG 0
	REPEAT .....X,<EXP 0>
 	PURGE .....X
	.ORG
	LIST

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