Google
 
Trailing-Edge - PDP-10 Archives - BB-L665A-BM - binary/macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,5V@P C' Wp%?OP%%IA	(A,B,ADD,SUB)(AC2L{G 7#=<^D35-<^L<70RGHBT.(A)>>+<^D37P7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' #p*TXZ	A,-1-<B>TXZ	A,-1-ES| 8#C
	REPEAT	803,<
	TXCE	A,1B<B>!1B<C>
>B<EVMI zx"3
l==-1
{IRP E,<l==l+1
IFE D-l, <l=={X-1
IRP G,<l=={xl+1
IFE F-l, <|

;+.PARA -8
;|8XXXTTL	MACRO TO G|XENERATE A TITLE S|xTATEMENT OF THE F}ORM:
;.BREAK
;-}8TITLE A COMMENT }XVERSION
	DEFINE }xKTTL,<IFG I,<
~	TITLE	A - J  %~8BEG(H)-I
>I~XFE I,<
	TITLE	~xA - J  %BEG(H)
>>

;+.PARA8 -8
;XXX137	MACRXO TO SETUP LOCATIxON 137 WITH THE SPECIFIED
;-VERSI8ON NUMBER. NOTE: XTHE MACRO DOES ITxS OWN "LOC" AND "RELOC".
	DEFINE 8K137,<IFG I,<
X	IF2,<LALL>
	LOCx	137
	BYTE (3)KWHO(9)KVER(6)KM8IN(18)KEDT	; A X%BEG(H)-I
	xRELOC
	SALL
>	IFE I,<
	IF2,<LA8LL>
	LOC	137
	BXYTE (3)KWHO(9)KxVER(6)KMIN(18)KEDT	; A %BEG(8H)
	RELOC
	SALXL
>>

; MACRO xTO DEFINE VERSION # AT CURRENT LOC8ATION
;+.PARA -8X
;XXXVRS	MACRO TxO DEFINE THE VERSION NUMBER AT AN
;-ARBITRARY USERX LOCATION.
	DEFIxNE KVRS,<IFG I,<
	IF2,<LALL>
	8BYTE (3)KWHO(9)XKVER(6)KMIN(18)xKEDT	; A %BEG(H)-I
	SALL
>8	IFE I,<
	IF2,<XLALL>
	BYTE (3)xKWHO(9)KVER(6)K	MIN(18)KEDT	; A	8 %BEG(H)
	SA	XLL
>>

; GENER	xATE A PASS2 PRINT
X STATEMENT
;+.P
8ARA -8
;-XXXPTX	
XGENERATES A PASS2
x PRINTX STATEMENT.
	DEFINE KPTX,8<
	IF2,<
	IFG XI,<PRINTX A %BxEG(H)-I	J
>	

IFE I,<PRINTX A

8 %BEG(H)	J


X>>>

;+.PARA -8

x
;XXXSTL	THEGXXXAT
;VSTHEOMACRONPAGETIONALLY
;DEFINE8S A NEW SUBTTL COXMMAND. THE CALL IxS "XXXSTL (COMMENT)".
;IF THE XXX8STL MACRO IS CALLXED WITH A NULL ARxGUMENT A COMMENT
; LINE IS GENERA8TED AT THE BOTTOMX OF THE CURRENT PxAGE
; AND AT THE TOP OF THE NEXT 8PAGE INDICATING TXHAT THE PAGE
;-HxAS BEEN CONTINUED.
	DEFINE KSTL 8(TEXT),<IFNB <TEXXT>,<
	SUBTTL	TEXxT
	PAGE
>	IFB <TEXT>,<
	LALL
	8PAGE		; CONTINUEDX TO NEXT PAGE
	SxALL		; CONTINUED FROM PREVIOUS PAG8E
>>
;+.PARA -8X
;XXXUNV	MACRO TxO GENERATE A UNIVERSAL STATEMENT. 8THE MACRO IN
;EFXFECT IS AN EXACT xCOPY OF THE XXXTTL MACRO EXCEPT TH8AT THE
;-WORD "UXNIVERSAL" REPLACExS THE WORD "TITLE".
	DEFINE KUNV8,<IFG I,<
	LALLX
	UNIVERSAL A -x J  %BEG(H)-I
	SALL
>IFE 8I,<
	LALL
	UNIVXERSAL A - J  %xBEG(H)
	SALL
>>

;+.PARA -88
;XXXERR	MACRO TXO TYPE A FATAL ERxROR MESSAGE ON THE

;USER'S TERMI8NAL. THE CALL IS XOF THE FORM:
;.BxREAK
;XXXERR (ZZZ,ERROR MESSAGE,<8PDP-10 INSTRUCTIOXN>)
;.BREAK
;ZZxZ IS THE 3-CHARACTER ERROR CODE, E8RROR MESSAGE IS TXHE ASCIZ
;STRINGx TO BE TYPED ON THE TERMINAL AND P8DP-10 INSTRUCTIONX IS
;AN OPTIONALx ARGUMENT INDICATING WHAT THE USER8 WANTS TO DO
;ABXOUT THE ERROR JUSxT TYPED. IF THE ARGUMENT IS NULL A8N
;-EXIT IS EXECXUTED.
	DEFINE KxERR (COD,MSG,INST R),<
...'COD:	JR 8ST	[
	OUTSTR	[AS XCIZ \
? K'COD M xSG\]
	IFNB <INST!R>,<INSTR>
	IFB !8<INSTR>,<EXIT>
]!X>

;+.PARA -8
!x;XXXWRN	MACRO SIM"ILAR TO THE XXXER"8R MACRO EXCEPT TH"XAT A
;WARNING ME"xSSAGE IS ISSUED R#ATHER THAN A FATA#8L AND
;-THE DEFA#XULT PDP-10 INSTRU#xCTION TO BE EXECU$TED IS "JRST .+1"$8.
	DEFINE KWRN $X(COD,MSG,INSTR),<$x
...'COD:	JRST	[%
	OUTSTR	[ASCIZ %8\
% K'COD MSG\]%X
	IFNB <INSTR>,<%xINSTR>
	IFB <INS&TR>,<JRST .+1>
]&8>


>>>>
	PURGE l,m,n
URG@ QP%,B,)OP%%CA (AGD U%)OP%%CA (A,B,A)P%%CA (AGDP S%OP%%CA (A,B,E)P%%CA (AGDp SP%OP%%CA (A,B,G)P%%CA (AGDy  T%!OP%%CA (A,B,GE)%%CA (AGE@ R%OP%%CA (A,B,L)P%%CA (AGEI  RP%OP%%CA (A,B,LE)%%CA (AGE` TP%%OP%%CA (A,B,N)P%%CA (AG&tkg 90#O
	DEFINE	9PINFO.(OPCODE,NEWA9pRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ )h"}LALL

		)H	   PAGE	;(CONTIN/UED ON NEXT PAGE)/0
			   SALL	;(CO/PNTINUED FROM PREVIOUS PAGE)
REVI6= ?P$
	..OLD==?p10
	..TYP==3
IF@E <C>+1,..TYP==0@0
IFE <C>-^O7777@P77,..TYP==1
IFE @p<C>-^O777777B17,A..TYP==2
..POS==A0POS(<C>)
..WID=AP=WID(<C>)
	RADIApX	10
	DF%%ST (\.B.TYP,A,<B>,\..PB0OS,\..WID)
	PURGBPE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z C$-

	RADIX	.C0.OLD
DEFINE	B (CPOPS,AC,E),<
	..CCp==0
	IRP OPS,<
D		IFE A-..C,<
	D0		STOPI
			IFN 3DP-..C, OPS <AC>,CDp'E
			IFE 3-..C,E OPS <AC>,[POINT E0E,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 Yp%OOP%%IN	(A,B,DIV)%IN	(AKc  ,"d
	IRP	A,,(<
	IF2,<	IFNDEF	,HA,<EXTERN A> >>,<EXTERN A> >>M&. _%yOP%%FA	(A,B,FADR,FSBR)AM6. `X&OP%%FP	(A,B,FDVR)FP	(AM&eG 60#5<<A>!<<LF6PTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. `&OP%%FP	(A,B,FMPR)FP	(AMH(X6 ?#y
	DEFINE	A,<-^OB(P)>
MJ ;0#u
	OLD%%%=;P=10	
	RADIX	8
	;pN%%%==0		
IRP A<,<
	FR%%AM (A,\<0<N%%%+1>)	
	N%%%<P==N%%%+1		
>
	A<pDD	P,[N%%%,,N%%%]=	
	PUSHJ	P,b		
	  SKIPA
	AOS	-=PN%%%(P)	
	SUB	P,=p[N%%%,,N%%%]	
	P>OPJ	P,		
b:
	R>0ADIX	OLD%%%
	PUR>PGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. _X%}OP%%FA	(A,B,FSBR,FADR)AM\u|RQ O2|  *H"R
	IRP	A,*h<
	IF2,<	IFDEF	+A,<INTERN A>
		+(IFNDEF	A,<EXTERN*( A>
		SUPPRE	A>>
		SUPPRE	ASNn Z8%SOP%%IN	(A,B,IDIV)IN	(AS7-N Y0%KOP%%IN	(A,B,IMUL)IN	(AS;k 8p#G<<<A>B<POS(<B>)>>&<B>>S? #0*TXO	A,<B>TXO	A,<BUVn	 6+MIFE <<B>_601>,<
IFE <B>,<
	JUMP	A,D
>
6pIFN <B>,<
IFE <7<C>&<B>>,<
	JU70MPL	A,D
>
IFN7P <<C>&<B>>,<
	7pJUMPGE	A,D
>>>8
IFN <<B>1>,<
	TXCA	A,<<C>&<8PB>>
	JRST	.+5
8p	TXCE	A,<<C>&<9B>>
	JRST	D
	T90XNE	A,<<-<C>-1>9P&<B>>
	JRST	D
>>>
	JRST	D
' 2+-
IFE <<B20>_1>,<
IFE <B>,2P<
	JUMPA	A,D
2p>
IFN <B>,<
IF3E <<C>&<B>>,<
30	JUMPGE	A,D
>3P
IFN <<C>&<B>>,3p<
	JUMPL	A,D
4>>>
IFN <<B>_1>40,<
	TXCA	A,<<C4P>&<B>>
	JRST	.+4p5
	TXCE	A,<<C>5&<B>>
	JRST	.+350
	TXNN	A,<<-<C5P>-1>&<B>>
	JRST	D
>>>
	JRSTUVn

 :,
IFDIF <:0B><C>,<
	JFCL	1:P,.+1		
	JRST	.+1:p		
IFNB <B>,<	J;FCL	1,B
<IFNB ;0<C>,<IFIDN <C><;PD>,<IFIDN <D><;pE>,< JRST	C>>>>
IFB <B>,<	JFCL	<01,i
  IFIDN <C<P><D>,<IFIDN <D><p<E>,< JRST	C>>>=
>

IFDIF <C>=0<D>,<
	HRLOI	A=P,-2		
IFNB <C>,=p<	AOBJP	A,C
  >IFNB <D>,<IFIDN >0<D><E>,<JRST	D>P>>>
IFB <C>,<IF>pDIF <D><E>,<AOB?JP A,i>
	    I?0FIDN <D><E>,<AO?PBJN A,D>>
>
?p
IFDIF <D><E>,<@
	IF2,<IFE A,<P@0RINTX ? A MUST B@PE NON-ZERO IN JUM@pPPT>>
	MOVEI	A,A0		
	BLT	A,0		
IFNB <D>,<	JUMPAPE	A,D
  IFNB <ApE>,<	JRST	E>>
BIFB <D>,<	JUMPN	B0A,E>
>

i:A,E>
>

i:Y$- 5p#/<1B<^L<A>>><1B<^L<A>Y tQ xY>

C@ F$3 B (<MOVEF0,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG 0#	
	IFNDEF	00LSTIN.,	LSTIN.==00P
IFE LSTIN.,<
	0pIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G 1P#
IFG LSTI1pN., LSTIN.==LSTIN2.-1
IFLE LSTIN.,20<	.CREF
		LIST>
CREF
		LIST> x(WIFG 0,<
	IF2,<LALL>
	LOC	8137
	BYTE (3)MACXWHO(9)MACVER(6)MAxCMIN(18)MACEDT	; 	MACTEN %2(25)-0
	8	RELOC
	SALL
>		XIFE 0,<
	IF2,<LA	xLL>
	LOC	137
	B
YTE (3)MACWHO(9)M
8ACVER(6)MACMIN(18
X)MACEDT	; MACTEN 
x%2(25)
	RELOC
	SALL
>RELOC
	[qQ MAC[\Y X)5
...A:	JxRST	[
	OUTSTR	[ASCIZ \
? MACA 8B\]
	IFNB <C>,<XC>
	IFB <C>,<EXIT>
] <C>,<E[
	IF2,<
X	IFG 0,<PRINTX MAxCTEN %2(25)-0	DECSYSTEM-10 COMMON 8PARAMETER FILE
>X	IFE 0,<PRINTX MAxCTEN %2(25)	DECSYSTEM-10 COMMON PA8RAMETER FILE
>>AMETER FILE
>>[:<Q [[= x)IFNB <A>,<
	SUBTTL	A
	P8AGE
>	IFB <A>,<X
	LALL
	PAGE		;x CONTINUED TO NEXT PAGE
	SALL		; 8CONTINUED FROM PREVIOUS PAGE
>R[M X(;IFG 0,<
	xTITLE	MACTEN - DECSYSTEM-10 COMMON8 PARAMETER FILE  X%2(25)-0
>IFE 0,x<
	TITLE	MACTEN - DECSYSTEM-10 CO8MMON PARAMETER FILE  %2(25)
>FI[[[ x))IFG 0,<
	LALL
	UNIVERSAL 8MACTEN - DECSYSTEXM-10 COMMON PARAMxETER FILE  %2(25)-0
	SALL
>IFE 08,<
	LALL
	UNIVEXRSAL MACTEN - DECxSYSTEM-10 COMMON PARAMETER FILE  %2(25)
	SALL
>[lY 8(oIFG 0,<
	XIF2,<LALL>
	BYTEx (3)MACWHO(9)MACV

ER(6)MACMIN(18)MA

8CEDT	; MACTEN %2(

X25)-0
	SALL
>	I

xFE 0,<
	IF2,<LAL
	BYTE)(3)MACW)MAC
	SALL
>2(25)
	SA[|W )A
...A:	J8RST	[
	OUTSTR	[AXSCIZ \
% MACA xB\]
	IFNB <C>,<C>
	IFB <C>,<JRST .+1>
]>,<J[3@ 4p#'<<<1_<A>>-1>B<B>>_<A>>[>&: &x"=
	LALL
	'%%A==BYTE (3)AW'8HO(9)AVER(6)AMI'XN(18)AEDT
	SALL
)AEDT
	SALL[?7 Hp$u
	.XCREF
	TEST%%=0
IFE	<I0<B>_-^D18>,<
	TIPEST%%=1
	.CREF
Ip	MOVEI	A,<B>
	J.XCREF
>
IFN	<J0B>,<
IFE	<<B>_^JPD18>,<
	TEST%%=1Jp
	.CREF
	MOVSI	KA,(B)
	.XCREF
>
IFE	<<<B>-^KPD18>-^O777777>,<
	TEST%%=1
	.CRELF
	HRROI	A,<B>L0
	.XCREF
>
IFELP	TEST%%,<
IFE	<<Lp<B>_^D18>-^O7777M77B17>,<
	TEST%%M0=1
	.CREF
	HRLOMPI	A,(<B>-^O7777Mp77)
	.XCREF
>
NIFE	TEST%%,<
	.CN0REF
	MOVE	A,[BNP]
>>>
	PURGE	TEST%%
	.CREF	TE[Vg Xp%GOP%%IN	(A,B,MUL)%IN	(A] (8"C
	IFNDEF	A,<A==B>
F	]` ."j
	IFNDEF	-(A,<A==B>
	SHOW.	(A)

	SHO_@(Xp UP%;
	.XCREF
IFE	<<B>_-^D18>V,<
	.CREF
	CAIV0C	A,<B>
	.XCREVPF
>
IFN	<<B>_-Vp^D18>,<
	.CREF
W	CAMC	A,[B]
	W0.XCREF
>
	.CREFCREF
>
	.CREF_@(YP a&
	.XCREF
IFE	<<<B>_^D18>aX-^O777777B17>,<
ax	.CREF
	DI	A,(b-<B>)
	.XCREF
b8>
IFN	<<<B>_^D1bX8>-^O777777B17>,<bx
	OP%%FP	A,<B>c,C
>
	.CREF
C
>
	.CREF
_@(YX cX&)
	.XCREF
IFE	<<B>_^D18>,d<
	.CREF
	CI	d8A,(B)
	.XCREF
dX>
IFN	<<B>_^D18dx>,<
	.CREF
	C	eA,[B]
	.XCREF
>
	.CREFCREFx%e
	.XCREF
IFE	<<<B>_-^D18[8>-^O777777>,<
	.[XCREF
	DI	A,-<[xB>
	.XCREF
>
I\FN	<<<B>_-^D18>-\8^O777777>,<
	OP%\X%IN	A,<B>,C
>
	.CREF>,C
>_@(Z7 ]%u
	.XCREF
IFE	<<B>_-^D18>]X,<
	.CREF
	CI	]xA,<B>
	.XCREF
>
IFN	<<B>_-^D^818>,<
	.CREF
	^XC	A,[B]
	.XCREF
>
	.CREFCRE_@(] p*

	.XCREF
IFN <<A>&^O7777077777760>, PRINTXP ? A IS NOT AN ApCCUMULATOR

	TE MP%%=0
IFE	<<B> 0_^D18>,<
IFN	<B P>,<
	TEMP%%=1
	 p.CREF
	C	A,(B!)
	.XCREF
>>
I!0FE	<<B>_-^D18>,<!P
	TEMP%%=1
	.CR!pEF
	D	A,<B>
"	.XCREF
>
IFE	T"0EMP%%,<
	.CREF
"P	E	A,[B]
>
	"pPURGE	TEMP%%
	.CREF	TEMP%%
	.Ca

tTQ  a

tQ a

t*9Q a

t>(Q  a

t>(Q a

tk{Q a

tm3Q a

uJ8Q @a

uiQ a

u}SQ @a

vZ7Q a

v\yQ a*n	r 5 a*n 4`a+= +a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a>Mm 4##<POINT	WID40(B),A,POS(B)>B),A,POS(B)>a?H6 +a? 30#<^L<A>+^L3P<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG :0#W
	DEFINE	:PINFO.(OPCODE,NEWA:pRG)<
	OPCODE	<A
	NEWARG>>	<AeD- 50#+<<A>&-<A>><<A>&-<Ae tP'g"~s@ .p"u	.XCREF
	.PEXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ Fp$9 B (<MOVEGM,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  O%	
IFE <D>O0,<	SETZM	B>	
IFOPE <D>+1,<	SETOM	OpB>	
IFN <D>*<<PD>+1>,<MOVX	A,<P0D>	
		   MOVEM PPA,B>	
IFNB <CPp>,<			
	MOVE	A,Q[B,,B+1]
	BLT	A,C		
>	BLT	gV X0%COP%%IA	(A,B,SUB,ADD)(Ai'%I' nxS
	.XCREF
	Z==0
	IFNDEF o8AVER,<Z==-1>
	IFoXNDEF AMIN,<Z==-1ox>
	IFNDEF AEDT,p<Z==-1>
	IFNDEF p8AWHO,<Z==-1>
	IpXFL Z,<PRINTX ?SYMpxBOLS AWHO,AVER,qAMIN AND AEDT Nq8OT DEFINED
	PRINqXTX ?VERSION SYMBOqxLS MUST BE DEFINErD BEFORE CALLING r8TITLE. MACRO
ENDrX>
	.CREF
	IF2,<rxLALL>
	ASIX==SIsXBIT /A/	; B ABs8BREVIATION IN SIXsXBIT
	AASC==ASCIsxZ /A/	; B ABBREtVIATION IN ASCII
	SALL
	.XCREF
tX%FIRST=AMIN/^D26tx
IFE %FIRST,<%SEuCON==AMIN
	%FIRu8ST==0>
IFG %FIRSuXT,<%SECON=AMIN-<ux^D26*%FIRST>>
IFvE AMIN-^D26,<%SEv8CON==AMIN
	%FIRvXST=0>
IFE AMIN-vx^D52,<%SECON==^D2w6
	%FIRST=1>
; w8DEFINE ALL THE MAwXCROS
BUILD$ (B,wx\AVER,\AMIN,\%FxIRST,<,A,B,C,D,E,x8F,G,H,I,J,K,L,M,NxX,O,P,Q,R,S,T,U,V,xxW,X,Y,Z>,\%SECON,y<,A,B,C,D,E,F,G,Hy8,I,J,K,L,M,N,O,P,yXQ,R,S,T,U,V,W,X,Yyx,Z>,\AEDT,\AWHOz,C,A)

	IF2,<z8PURGE %SECON,%FIRST,Z>
.CREFFIRib o)s
	.XCREF
IFB <B>, TXC	(<^O37777777&A>,1B0<A_-^D30>)
IFNBP <B>,<
IFN <<Ap>&^O777777777760>, PRINTX ? A IS 0NOT AN ACCUMULATOPR
IFE	<<<B>_-^Dp18>-^O777777>,<
	.CREF
	EQVI	A,0<,,-1-<B>>
	.XCPREF>
IFN	<<<B>_p-^D18>-^O777777>,<
	OP%%TX	A,<B0>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib 8)S
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLCpA,TRCA,TDCA
IFNB <B>,	OP%%TX	A,0<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP 8(
	.XCREF
IFB  <B>,	OP%%TxX	<^O37777777&A>,1B<A_-^D30>,TLC8E,TRCE,TDCE
IFNBX <B>,	OP%%TX	A,x<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` 8('
	.XCREF
IFB  <B>,	OP%%TxX	<^O37777777&A>,1B<A_-^D30>,TLC8N,TRCN,TDCN
IFNBX <B>,	OP%%TX	A,x<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp eX&1
IFB <B>ex, JFCL	0
IFNB <fB>, TRN	A,<,,<B>>
N	A,<,,<Bibt s8''
	.XCREF
IFB  <B>,	OP%%TsxX	<^O37777777&A>t,1B<A_-^D30>,TLNt8A,TRNA,TDNA
IFNBtX <B>,	OP%%TX	A,tx<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ .P+
IFE <<B.p>_<1+^L<B>>>,<
/IFE <<B>&<C>>,</0
	TXNN	A,<B>
/P>
IFN <<B>&<C>/p>,<
	TXNE	A,<B0>
>>
IFN <<B>_00<1+^L<B>>>,<
	T0PXCA	A,<<C>&<B>0p>
	JRST	.+4
	TX1CE	A,<<C>&<B>>10
	JRST	.+3
	TXN1PN	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP o8'
	.XCREF
IFB  <B>,	OP%%ToxX	<^O37777777&A>p,1B<A_-^D30>,TLNp8E,TRNE,TDNE
IFNBpX <B>,	OP%%TX	A,px<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ +*q
IFE <<B+0>_<1+^L<B>>>,<
+PIFE <<B>&<C>>,<+p
	TXNE	A,<B>
,>
IFN <<B>&<C>,0>,<
	TXNN	A,<B,P>
>>
IFN <<B>_,p<1+^L<B>>>,<
	T-XCA	A,<<C>&<B>-0>
	JRST	.+4
	TX-PCE	A,<<C>&<B>>-p
	JRST	.+2
	TXN.E	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` q8'
	.XCREF
IFB  <B>,	OP%%TqxX	<^O37777777&A>r,1B<A_-^D30>,TLNr8N,TRNN,TDNN
IFNBrX <B>,	OP%%TX	A,rx<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx jx&u
	.XCREF
IFB <B>, TXO	(<k8^O37777777&A>,1BkX<A_-^D30>)
IFNBkx <B>,<
IFN <<Al>&^O777777777760>l8, PRINTX ? A IS lXNOT AN ACCUMULATOlxR
IFE	<<<B>_-^Dm18>-^O777777>,<
m8	.CREF
	ORCMI	AmX,<,,-1-<B>>
	.XmxCREF>
IFN	<<<B>n_-^D18>-^O777777>n8,<
	OP%%TX	A,<nXB>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| 8(
	.XCREF
IFB  <B>,	OP%%TxX	<^O37777777&A>,1B<A_-^D30>,TLO8A,TROA,TDOA
IFNBX <B>,	OP%%TX	A,x<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P {8'g
	.XCREF
IFB  <B>,	OP%%T{xX	<^O37777777&A>|,1B<A_-^D30>,TLO|8E,TROE,TDOE
IFNB|X <B>,	OP%%TX	A,|x<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` }8'w
	.XCREF
IFB  <B>,	OP%%T}xX	<^O37777777&A>~,1B<A_-^D30>,TLO~8N,TRON,TDON
IFNB~X <B>,	OP%%TX	A,~x<B>,TLON,TRON,TDON
	.CREF
,TDicP fX&S
	.XCREF
IFB <B>, TXZ	(<g^O37777777&A>,1Bg8<A_-^D30>)
IFNBgX <B>,<
IFN <<Agx>&^O777777777760>h, PRINTX ? A IS h8NOT AN ACCUMULATOhxR
IFE	<<<B>_-^DhX18>-^O777777>,<
i	.CREF
	ANDI	A,i8<,,-1-<B>>
	.XCiXREF>
IFN	<<<B>_ix-^D18>-^O777777>,j<
	OP%%TX	A,<Bj8>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT y8'W
	.XCREF
IFB  <B>,	OP%%TyxX	<^O37777777&A>z,1B<A_-^D30>,TLZz8A,TRZA,TDZA
IFNBzX <B>,	OP%%TX	A,zx<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP u8'7
	.XCREF
IFB  <B>,	OP%%TuxX	<^O37777777&A>v,1B<A_-^D30>,TLZv8E,TRZE,TDZE
IFNBvX <B>,	OP%%TX	A,vx<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` w8'G
	.XCREF
IFB  <B>,	OP%%TwxX	<^O37777777&A>x,1B<A_-^D30>,TLZx8N,TRZN,TDZN
IFNBxX <B>,	OP%%TX	A,xx<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` )p*U
	MOVX	A*,1B<B_-^D30>
	.*0XCREF
	<XORM	A,*P>!<37777777&B>
	.CREF
7&B>
iftS@ $p*-
	MOVX	A%,1B<B_-^D30>
	.%0XCREF
	<TDNE	A,%P>!<37777777&B>
	.CREF
7&B>
ifuc@ &*7
	MOVX	A&0,1B<B_-^D30>
	.&PXCREF
	<TDNN	A,&p>!<37777777&B>
	.CREF
7&B>
ify` '0*A
	MOVX	A'P,1B<B_-^D30>
	.'pXCREF
	<IORM	A,(>!<37777777&B>
	.CREF
7&B>
igQ` (P*K
	MOVX	A(p,1B<B_-^D30>
	.)XCREF
	<ANDCAM	)0A,>!<37777777&B>
	.CREF
7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ (X"GBYTE (3)A(xWHO (9)AVER (6)AMIN (18)AEDTo&  2p#<^L<-<<A>_<^L<A>>>-1>>>q? $0*#TXC	A,<B>TXC	A,<Bq@ -h"f
	INTERN	-A
	IFB  <C>,<,hA==B>
	IFNB <C>,<A=B>
 <Cus@ GP$C B (<SETZGpM,HLLZS,HRRZS,<PRHINTX ?CAN'T ZERO H0BYTE>>,<A>,<C>)TE>>,<A>,<C>)
lzQ 
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 &tj7Q ?6MiTQ @O,pP O,tP O,vP O,P j.+jP >}{woP