Google
 
Trailing-Edge - PDP-10 Archives - bb-d549g-sb - macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
,5W@P C' qOP%%IA	(A,B,ADD,SUB)(AC2L{G P<^D35-<^L<P(RGHBT.(A)>>+<^D3PH7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' ;(ZTXZ	A,-1-<B>TXZ	A,-1-ES| Q

	REPEAT	Q(3,<
	TXCE	A,1B<B>!1B<C>
>B<EVMI 0w
l==-1
PIRP E,<l==l+1
IFE D-l, <l==-1
IRP G,<l==0l+1
IFE F-l, <P

;+.PARA -8
;pXXXTTL	MACRO TO GENERATE A TITLE S0TATEMENT OF THE FPORM:
;.BREAK
;-pTITLE A COMMENT VERSION
	DEFINE 0KTTL,<IFG I,<
P	TITLE	A - J  %pBEG(H)-I
>IFE I,<
	TITLE	0A - J  %BEG(PH)
>>

;+.PARAp -8
;XXX137	MACRO TO SETUP LOCATI0ON 137 WITH THE SPPECIFIED
;-VERSIpON NUMBER. NOTE: THE MACRO DOES IT0S OWN "LOC" AND "PRELOC".
	DEFINE pK137,<IFG I,<
	IF2,<LALL>
	LOC0	137
	BYTE (3)KPWHO(9)KVER(6)KMpIN(18)KEDT	; A %BEG(H)-I
	0RELOC
	SALL
>	IPFE I,<
	IF2,<LApLL>
	LOC	137
	BYTE (3)KWHO(9)K0VER(6)KMIN(18)KPEDT	; A %BEG(pH)
	RELOC
	SALL
>>

; MACRO 0TO DEFINE VERSIONP # AT CURRENT LOCpATION
;+.PARA -8
;XXXVRS	MACRO T0O DEFINE THE VERSPION NUMBER AT AN
;-ARBITRARY USER LOCATION.
	DEFI0NE KVRS,<IFG I,P<
	IF2,<LALL>
	pBYTE (3)KWHO(9) KVER(6)KMIN(18) 0KEDT	; A %BEG P(H)-I
	SALL
> p	IFE I,<
	IF2,<!LALL>
	BYTE (3)!0KWHO(9)KVER(6)K!PMIN(18)KEDT	; A!p %BEG(H)
	SA"LL
>>

; GENERA"0TE A PASS2 PRINTX"P STATEMENT
;+.PA"pRA -8
;-XXXPTX	G#ENERATES A PASS2 #0PRINTX STATEMENT.#P
	DEFINE KPTX,<#p
	IF2,<
	IFG I$,<PRINTX A %BE$0G(H)-I	J
>	I$PFE I,<PRINTX A $p%BEG(H)	J
>%>>

;+.PARA -8
;XXXSTL	THE XXXS%PTL MACRO GENERATE%pS A NEW PAGE
;VI&A THE MACRO PAGE &0PSEUDO-OP AND OPT&PIONALLY
;DEFINES&p A NEW SUBTTL COM'MAND. THE CALL IS'0 "XXXSTL (COMMENT'P)".
;IF THE XXXS'pTL MACRO IS CALLE(D WITH A NULL ARG(0UMENT A COMMENT
(P; LINE IS GENERAT(pED AT THE BOTTOM )OF THE CURRENT PA)0GE
; AND AT THE )PTOP OF THE NEXT P)pAGE INDICATING TH*AT THE PAGE
;-HA*0S BEEN CONTINUED.*P
	DEFINE KSTL (*pTEXT),<IFNB <TEXT+>,<
	SUBTTL	TEXT+0
	PAGE
>	IFB <T+PEXT>,<
	LALL
	P+pAGE		; CONTINUED ,TO NEXT PAGE
	SA,0LL		; CONTINUED F,PROM PREVIOUS PAGE,p
>>
;+.PARA -8
;XXXUNV	MACRO TO-0 GENERATE A UNIVE-PRSAL STATEMENT. T-pHE MACRO IN
;EFF.ECT IS AN EXACT C.0OPY OF THE XXXTTL.P MACRO EXCEPT THA.pT THE
;-WORD "UN/IVERSAL" REPLACES/0 THE WORD "TITLE"/P.
	DEFINE KUNV,/p<IFG I,<
	LALL
	UNIVERSAL A - 00J  %BEG(H)-0PI
	SALL
>IFE I0p,<
	LALL
	UNIVE1RSAL A - J  %B10EG(H)
	SALL
1P>>

;+.PARA -8
1p;XXXERR	MACRO TO 2TYPE A FATAL ERRO20R MESSAGE ON THE
;USER'S TERMINAL2p. THE CALL IS OF 3THE FORM:
;.BREA30K
;XXXERR (ZZZ,E3PRROR MESSAGE,<PDP3p-10 INSTRUCTION>)4
;.BREAK
;ZZZ I40S THE 3-CHARACTER4P ERROR CODE, ERRO4pR MESSAGE IS THE 5ASCIZ
;STRING TO50 BE TYPED ON THE 5PTERMINAL AND PDP-5p10 INSTRUCTION IS6
;AN OPTIONAL AR60GUMENT INDICATING6P WHAT THE USER WA6pNTS TO DO
;ABOUT7 THE ERROR JUST T70YPED. IF THE ARGU7PMENT IS NULL AN
7p;-EXIT IS EXECUTE8D.
	DEFINE KERR80 (COD,MSG,INSTR),8P<
...'COD:	JRST	8p[
	OUTSTR	[ASCIZ9 \
? K'COD MSG\90]
	IFNB <INSTR>,9P<INSTR>
	IFB <IN9pSTR>,<EXIT>
]>
:
;+.PARA -8
;XX:0XWRN	MACRO SIMILA:PR TO THE XXXERR M:pACRO EXCEPT THAT ;A
;WARNING MESSA;0GE IS ISSUED RATH;PER THAN A FATAL A;pND
;-THE DEFAULT< PDP-10 INSTRUCTI<0ON TO BE EXECUTED<P IS "JRST .+1".
<p	DEFINE KWRN (CO=D,MSG,INSTR),<
.=0..'COD:	JRST	[
	=POUTSTR	[ASCIZ \
=p% K'COD MSG\]
	>IFNB <INSTR>,<INS>0TR>
	IFB <INSTR>>P,<JRST .+1>
]>
>p

>>>>
	PURGE l,m,n
URGE G@ jhVOP%%CA (A,B,)OP%%CA (AGD n(rOP%%CA (A,B,A)P%%CA (AGDP l(bOP%%CA (A,B,E)P%%CA (AGDp lhfOP%%CA (A,B,G)P%%CA (AGDy  m(jOP%%CA (A,B,GE)%%CA (AGE@ k(ZOP%%CA (A,B,L)P%%CA (AGEI  kh^OP%%CA (A,B,LE)%%CA (AGE` mhnOP%%CA (A,B,N)P%%CA (AG&tkg R(
	DEFINE	RHINFO.(OPCODE,NEWARhRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ GHDLALL

		Gh	   PAGE	;(CONTINHUED ON NEXT PAGE)H(
			   SALL	;(COHHNTINUED FROM PREVIOUS PAGE)
REVI6= XH\
	..OLD==Xh10
	..TYP==3
IFYE <C>+1,..TYP==0Y(
IFE <C>-^O7777YH77,..TYP==1
IFE Yh<C>-^O777777B17,Z..TYP==2
..POS==Z(POS(<C>)
..WID=ZH=WID(<C>)
	RADIZhX	10
	DF%%ST (\.[.TYP,A,<B>,\..P[(OS,\..WID)
	PURG[HE	..OLD,..TYP,..POS,..WIDTYP,..PI(\z \t

	RADIX	.\(.OLD
DEFINE	B (\HOPS,AC,E),<
	..C\h==0
	IRP OPS,<
]		IFE A-..C,<
	](		STOPI
			IFN 3]H-..C, OPS <AC>,C]h'E
			IFE 3-..C,^ OPS <AC>,[POINT ^(E,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 sOP%%IN	(A,B,DIV)%IN	(AKc  DIRP A,<IFC2,<IFNDEF A,<EXTERN A>>>A,<EXTM&. yIOP%%FP	(A,B,FADR)FP	(AM6. zPUOP%%FP	(A,B,FDVR)FP	(AM&eG O(|<<A>!<<LFOHTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. zQOP%%FP	(A,B,FMPR)FP	(AMH(X6 X@
	DEFINE	A,<-^OB(P)>
MJ T(<
	OLD%%%=TH=10	
	RADIX	8
	ThN%%%==0		
IRP AU,<
	FR%%AM (A,\U(<N%%%+1>)	
	N%%%UH==N%%%+1		
>
	AUhDD	P,[N%%%,,N%%%]V	
	PUSHJ	P,b		
	  SKIPA
	AOS	-VHN%%%(P)	
	SUB	P,Vh[N%%%,,N%%%]	
	PWOPJ	P,		
b:
	RW(ADIX	OLD%%%
	PURWHGE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. yPMOP%%FP	(A,B,FSBR)FP	(AM\u|RQ O2|  C@
	IRP	A,C`<
	IF2,<	IFDEF	B`A,<INTERN A>
		B@IFNDEF	A,<EXTERNB  A>
		SUPPRE	A>>
		SUPPRE	AQf@ +SNn sPOP%%IN	(A,B,IDIV)IN	(AS7-N rHOP%%IN	(A,B,IMUL)IN	(AS;k Qh<<<A>B<POS(<B>)>>&<B>>S? :hVTXO	A,<B>TXO	A,<BU +,U +(U  +$Up +U~` +"U?0 +0UKI@ +UVn	 MHIFE <<B>_Mh1>,<
IFE <B>,<
	JUMP	A,D
>
N(IFN <B>,<
IFE <NH<C>&<B>>,<
	JUNhMPL	A,D
>
IFNO <<C>&<B>>,<
	O(JUMPGE	A,D
>>>OH
IFN <<B>1>,<
	TXCA	A,<<C>&<PB>>
	JRST	.+5
P(	TXCE	A,<<C>&<PHB>>
	JRST	D
	TPhXNE	A,<<-<C>-1>Q&<B>>
	JRST	D
>>>
	JRST	D
' IHh
IFE <<BIh>_1>,<
IFE <B>,J<
	JUMPA	A,D
J(>
IFN <B>,<
IFJHE <<C>&<B>>,<
Jh	JUMPGE	A,D
>K
IFN <<C>&<B>>,K(<
	JUMPL	A,D
KH>>>
IFN <<B>_1>Kh,<
	TXCA	A,<<CL>&<B>>
	JRST	.+L(5
	TXCE	A,<<C>LH&<B>>
	JRST	.+3Lh
	TXNN	A,<<-<CM>-1>&<B>>
	JRST	D
>>>
	JRSTUVn

 QHN
IFDIF <QhB><C>,<
	JFCL	1R,.+1		
	JRST	.+1R(		
IFNB <B>,<	JRHFCL	1,B
SIFNB Rh<C>,<IFIDN <C><SD>,<IFIDN <D><S(E>,< JRST	C>>>>
IFB <B>,<	JFCL	Sh1,i
  IFIDN <CT><D>,<IFIDN <D>T(<E>,< JRST	C>>>TH
>

IFDIF <C>Th<D>,<
	HRLOI	AU,-2		
IFNB <C>,U(<	AOBJP	A,C
  UHIFNB <D>,<IFIDN Uh<D><E>,<JRST	DV>>>
IFB <C>,<IFV(DIF <D><E>,<AOBVHJP A,i>
	    IVhFIDN <D><E>,<AOWBJN A,D>>
>
W(
IFDIF <D><E>,<WH
	IF2,<IFE A,<PWhRINTX ? A MUST BXE NON-ZERO IN JUMX(PPT>>
	MOVEI	A,XH0		
	BLT	A,0		
IFNB <D>,<	JUMPYE	A,D
  IFNB <Y(E>,<	JRST	E>>
YHIFB <D>,<	JUMPN	YhA,E>
>

i:A,E>
>

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

C@ _z B (<MOVE_(,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG IP
	IFNDEF	I(LSTIN.,	LSTIN.==0IH
IFE LSTIN.,<
	IhIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G JHZ
IFG LSTIJhN., LSTIN.==LSTINK.-1
IFLE LSTIN.,K(<	.CREF
		LIST>
CREF
		LIST> #p3IFG 0,<
	$IF2,<LALL>
	BYTE$0 (3)MACWHO(9)MACV$PER(6)MACMIN(18)MA$pCEDT	; MACTEN %3(%31)-0
	SALL
>	I%0FE 0,<
	IF2,<LAL%PL>
	BYTE (3)MACW%pHO(9)MACVER(6)MAC&MIN(18)MACEDT	; M&0ACTEN %3(31)
	SALL
>3(31)
	SA[3@ Mhn<<<1_<A>>-1>B<B>>_<A>>[>&: ?0
	LALL
	?P%%A==BYTE (3)AW?pHO(9)AVER(6)AMI@N(18)AEDT
	SALL
)AEDT
	SALL[?7 ah>
	.XCREF
	TEST%%=0
IFE	<b(<B>_-^D18>,<
	TbHEST%%=1
	.CREF
bh	MOVEI	A,<B>
	c.XCREF
>
IFE	TEc(ST%%,<IFE	<<B>_^cHD18>,<
	TEST%%=1ch
	.CREF
	MOVSI	dA,(B)
	.XCREF
>>
IFE	TEST%%,<dHIFE	<<<B>_-^D18>dh-^O777777>,<
	TEeST%%=1
	.CREF
	e(HRROI	A,<B>
	.eHXCREF
>>
IFE	TEehST%%,<IFE	<<<B>_f^D18>-^O777777B17f(>,<
	TEST%%=1
	fH.CREF
	HRLOI	A,fh(<B>-^O777777)
g	.XCREF
>>
IFE	g(TEST%%,<
	.CREF
	MOVE	A,[B]
	gh.XCREF
>
	PURGE	TEST%%
	.CREF[Vg rOP%%IN	(A,B,MUL)%IN	(A] @p:IF2,<IFDEF@P A,<A==A>> IFNG(DEF A,<A==<B>>F A,<A==<B>>]` F`0ND (A,<BF@>)
PRINTX %PLEASE`E USE ND MACRO, NFDS. MACRO IS NOW OBSOLETE
 NOW _@(Xp nh
	.XCREF
IFE	<<B>_-^D18>o(,<
	.CREF
	CAIoHC	A,<B>
	.XCREohF
>
IFN	<<B>_-p^D18>,<
	.CREF
p(	CAMC	A,[B]
	pH.XCREF
>
	.CREFCREF
>
	.CREF_@(YX {e
	.XCREF
IFE	<<B>_^D18>,{P<
	.CREF
	CI	{pA,(B)
	.XCREF
|>
IFN	<<B>_^D18|0>,<
	.CREF
	C	|PA,[B]
	.XCREF
>
	.CREFCREF5
	.XCREF
	TEST%%=0
IFE	<tP<<B>_-^D18>-^O77tp7777>,<
IFN	<<Bu>&^O777777>,<
	Tu0EST%%=1
	.CREF
uP	DI	A,-<B>
	.upXCREF
>>
IFE	TEvST%%,<
	OP%%IN	v0A,<B>,C
>
	PUvPRGE	TEST%%
	.CREF	TEST%%
	.CRE_@(Z7 wE
	.XCREF
IFE	<<B>_-^D18>wP,<
	.CREF
	CI	wpA,<B>
	.XCREF
>
IFN	<<B>_-^Dx018>,<
	.CREF
	xPC	A,[B]
	.XCREF
>
	.CREFCRE_@(] 6(R

	.XCREF
IFN <<A>&^O77776h77777760>, PRINTX7 ? A IS NOT AN A7(CCUMULATOR

	TE7HMP%%=0
IFE	<<B>7h_^D18>,<
IFN	<B8>,<
	TEMP%%=1
	8(.CREF
	C	A,(B8H)
	.XCREF
>>
I8hFE	<<B>_-^D18>,<9
	TEMP%%=1
	.CR9(EF
	D	A,<B>
9H	.XCREF
>
IFE	T9hEMP%%,<
	.CREF
:	E	A,[B]
>
	:(PURGE	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+= 5a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a>Mm Mj<POINT	WIDM((B),A,POS(B)>B),A,POS(B)>a?H6 +a? L(d<^L<A>+^LLH<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG S(
	DEFINE	SHINFO.(OPCODE,NEWAShRG)<
	OPCODE	<A
	NEWARG>>	<AeD- N(r<<A>&-<A>><<A>&-<Ae tP'g"~s@ E@*	.XCREF
	E EXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ _h B (<MOVE`M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  h(R
IFE <D>hH,<	SETZM	B>	
IFhhE <D>+1,<	SETOM	iB>	
IFN <D>*<<i(D>+1>,<MOVX	A,<iHD>	
		   MOVEM ihA,B>	
IFNB <Cj>,<			
	MOVE	A,j([B,,B+1]
	BLT	A,C		
>	BLT	gV qH

OP%%IA	(A,B,SUB,ADD)(Ai'%I' 0
	.XCREF
	Z==0
	IFNDEF pAVER,<Z==-1>
	IFNDEF AMIN,<Z==-10>
	IFNDEF AEDT,P<Z==-1>
	IFNDEF pAWHO,<Z==-1>
	I	FL Z,<PRINTX ?SYM	0BOLS AWHO,AVER,	PAMIN AND AEDT N	pOT DEFINED
	PRIN
TX ?VERSION SYMBO
0LS MUST BE DEFINE
PD BEFORE CALLING 
pTITLE. MACRO
END>
	.CREF
	IF2,<0LALL>
	ASIX==SIPXBIT /A/	; B ABpBREVIATION IN SIX

BIT
	AASC==ASCI

0Z /A/	; B ABBRE

PVIATION IN ASCII

p
	SALL
	.XCREF
%FIRST=AMIN/^D26
IFEN%FIRST,<%SE
	%FIR>
IFG %FIRST,<%SECON=AMIN-<0^D26*%FIRST>>
IFPE AMIN-^D26,<%SEpCON==AMIN
	%FIRST=0>
IFE AMIN-0^D52,<%SECON==^D2P6
	%FIRST=1>
; pDEFINE ALL THE MACROS
BUILD$ (B,0\AVER,\AMIN,\%FPIRST,<,A,B,C,D,E,pF,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,0W,X,Y,Z>,\%SECON,P<,A,B,C,D,E,F,G,Hp,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y0,Z>,\AEDT,\AWHOP,C,A)

	IF2,<pPURGE %SECON,%FIRST,Z>
.CREFFIRib P.
	.XCREF
IFB <B>, TXC	(<2H^O37777777&A>,1B2h<A_-^D30>)
IFNB3 <B>,<
IFN <<A3(>&^O777777777760>3H, PRINTX ? A IS 3hNOT AN ACCUMULATO4R
IFE	<<<B>_-^D4(18>-^O777777>,<
4H	.CREF
	EQVI	A,4h<,,-1-<B>>
	.XC5REF>
IFN	<<<B>_5(-^D18>-^O777777>,5H<
	OP%%TX	A,<B5h>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib p
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLCpA,TRCA,TDCA
IFNB1H <B>,	OP%%TX	A,1h<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP pS
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLCpE,TRCE,TDCE
IFNB <B>,	OP%%TX	A,0<B>,TLCE,TRCE,TDCE
	.CREF
,TDib` pc
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLCpN,TRCN,TDCN
IFNB <B>,	OP%%TX	A,0<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp }m
IFB <B>}0, JFCL	0
IFNB <}PB>, TRN	A,<,,<B>>
N	A,<,,<Bibt 
pc
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLNpA,TRNA,TDNA
IFNB

 <B>,	OP%%TX	A,

0<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ FH
IFE <<BF(>_<1+^L<B>>>,<
FHIFE <<B>&<C>>,<Fh
	TXNN	A,<B>
G>
IFN <<B>&<C>G(>,<
	TXNE	A,<BGH>
>>
IFN <<B>_Gh<1+^L<B>>>,<
	THXCA	A,<<C>&<B>H(>
	JRST	.+4
	TXHHCE	A,<<C>&<B>>Hh
	JRST	.+3
	TXNIN	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP pC
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLNpE,TRNE,TDNE
IFNB <B>,	OP%%TX	A,0<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ BH,
IFE <<BBh>_<1+^L<B>>>,<
CIFE <<B>&<C>>,<C(
	TXNE	A,<B>
CH>
IFN <<B>&<C>Ch>,<
	TXNN	A,<BD>
>>
IFN <<B>_D(<1+^L<B>>>,<
	TDHXCA	A,<<C>&<B>Dh>
	JRST	.+4
	TXECE	A,<<C>&<B>>E(
	JRST	.+2
	TXNEHE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` pS
	.XCREF
IFB  <B>,	OP%%T	0X	<^O37777777&A>	P,1B<A_-^D30>,TLN	pN,TRNN,TDNN
IFNB
 <B>,	OP%%TX	A,
0<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx 01
	.XCREF
IFB <B>, TXO	(<p^O37777777&A>,1B<A_-^D30>)
IFNB0 <B>,<
IFN <<AP>&^O777777777760>p, PRINTX ? A IS NOT AN ACCUMULATO0R
IFE	<<<B>_-^DP18>-^O777777>,<
p	.CREF
	ORCMI	A,<,,-1-<B>>
	.X0CREF>
IFN	<<<B>P_-^D18>-^O777777>p,<
	OP%%TX	A,<B>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| pC
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLOpA,TROA,TDOA
IFNB <B>,	OP%%TX	A,0<B>,TLOA,TROA,TDOA
	.CREF
,TDib|P p#
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLOpE,TROE,TDOE
IFNB <B>,	OP%%TX	A,0<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` p3
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLOpN,TRON,TDON
IFNB <B>,	OP%%TX	A,0<B>,TLON,TRON,TDON
	.CREF
,TDicP ~
	.XCREF
IFB <B>, TXZ	(<~P^O37777777&A>,1B~p<A_-^D30>)
IFNB <B>,<
IFN <<A0>&^O777777777760>P, PRINTX ? A IS pNOT AN ACCUMULATO0R
IFE	<<<B>_-^D18>-^O777777>,<
P	.CREF
	ANDI	A,p<,,-1-<B>>
	.XCREF>
IFN	<<<B>_0-^D18>-^O777777>,P<
	OP%%TX	A,<Bp>,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT p
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLZpA,TRZA,TDZA
IFNB <B>,	OP%%TX	A,0<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP 

ps
	.XCREF
IFB<^<B>,	OP%%T>
IFNB <B>,	OP%%TX	A,0<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` p
	.XCREF
IFB  <B>,	OP%%T0X	<^O37777777&A>P,1B<A_-^D30>,TLZpN,TRZN,TDZN
IFNB <B>,	OP%%TX	A,0<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` A(
	MOVX	AAH,1B<B_-^D30>
	.AhXCREF
	<XORM	A,B>!<37777777&B>
	.CREF
7&B>
iftS@ <(h
	MOVX	A<H,1B<B_-^D30>
	.<hXCREF
	<TDNE	A,=>!<37777777&B>
	.CREF
7&B>
ifuc@ =Hr
	MOVX	A=h,1B<B_-^D30>
	.>XCREF
	<TDNN	A,>(>!<37777777&B>
	.CREF
7&B>
ify` >h|
	MOVX	A?,1B<B_-^D30>
	.?(XCREF
	<IORM	A,?H>!<37777777&B>
	.CREF
7&B>
igQ` @
	MOVX	A@(,1B<B_-^D30>
	.@HXCREF
	<ANDCAM	@hA,>!<37777777&B>
	.CREF
7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ ABYTE (3)AA0WHO (9)AVER (6)AMIN (18)AEDTo&  Kh^<^L<-<<A>_<^L<A>>>-1>>>q*-` +

q+= +
q? ;h^TXC	A,<B>TXC	A,<Bq@ D@&IFB <C>,<D`A==:<B>> IFNB <C>,<A=:<B>><qBp +qN5P +us@ `H
 B (<SETZ`hM,HLLZS,HRRZS,<PRaINTX ?CAN'T ZERO a(BYTE>>,<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