Google
 

Trailing-Edge - PDP-10 Archives - de-10-omona-v-mc9 - macten.unv
There are 93 other files named macten.unv in the archive. Click here to see a list.
x
(4V@P C' SXOP%%IA	(A,B,ADD,SUB)(AC2L{G 2x<^D35-<^L<3RGHBT.(A)>>+<^D3387*<<^L<RGHBT.(A)>>/^D36>>>.(A)C:' X}TXZ	A,-1-<B>TXZ	A,-1-ES| 3x!
	REPEAT	43,<
	TXCE	A,1B<B>!1B<C>
>B<EVMI v`
l==-1
wIRP E,<l==l+1
IFE D-l, <l==w@-1
IRP G,<l==w`l+1
IFE F-l, <x

;+.PARA -8
;x XXXTTL	MACRO TO Gx@ENERATE A TITLE Sx`TATEMENT OF THE FyORM:
;.BREAK
;-y TITLE A COMMENT y@VERSION
	DEFINE y`KTTL,<IFG I,<
z	TITLE	A - J  %z BEG(H)-I
>Iz@FE I,<
	TITLE	z`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
>	IFE I,<
	IF2,<LA LL>
	LOC	137
	B@YTE (3)KWHO(9)K`VER(6)KMIN(18)KEDT	; A %BEG( H)
	RELOC
	SAL@L
>>

; MACRO `TO DEFINE VERSION # AT CURRENT LOC ATION
;+.PARA -8@
;XXXVRS	MACRO T`O DEFINE THE VERSION 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)KMIN(18)KEDT	; A  %BEG(H)
	SA@LL
>>

; GENER`ATE A PASS2 PRINTX STATEMENT
;+.P ARA -8
;-XXXPTX	@GENERATES A PASS2` PRINTX STATEMENT.
	DEFINE KPTX, <
	IF2,<
	IFG @I,<PRINTX A %B`EG(H)-I	J
>	IFE I,<PRINTX A  %BEG(H)	J
@>>>

;+.PARA -8`
;XXXSTL	THE XXX	STL MACRO GENERAT	 ES A NEW PAGE
;V	@IA THE MACRO PAGE	` PSEUDO-OP AND OP
TIONALLY
;DEFINE
 S A NEW SUBTTL CO
@MMAND. THE CALL I
`S "XXXSTL (COMMENT)".
;IF THE XXX STL MACRO IS CALL@ED WITH A NULL AR`GUMENT A COMMENT

; LINE IS GENERA
 TED AT THE BOTTOM
@ OF THE CURRENT P
`AGE
;PANDTATDTHENEXTT
;-HBEEN CONTINUED.
	DEFINE KSTL  (TEXT),<IFNB <TEX@T>,<
	SUBTTL	TEX`T
	PAGE
>	IFB <TEXT>,<
	LALL
	 PAGE		; CONTINUED@ TO NEXT PAGE
	S`ALL		; CONTINUED FROM PREVIOUS PAG E
>>
;+.PARA -8@
;XXXUNV	MACRO T`O GENERATE A UNIVERSAL STATEMENT.  THE MACRO IN
;EF@FECT IS AN EXACT `COPY OF THE XXXTTL MACRO EXCEPT TH AT THE
;-WORD "U@NIVERSAL" REPLACE`S THE WORD "TITLE".
	DEFINE KUNV ,<IFG I,<
	LALL@
	UNIVERSAL A -` J  %BEG(H)-I
	SALL
>IFE  I,<
	LALL
	UNIV@ERSAL A - J  %`BEG(H)
	SALL
>>

;+.PARA -8 
;XXXERR	MACRO T@O TYPE A FATAL ER`ROR MESSAGE ON THE
;USER'S TERMI NAL. THE CALL IS @OF THE FORM:
;.B`REAK
;XXXERR (ZZZ,ERROR MESSAGE,< PDP-10 INSTRUCTIO@N>)
;.BREAK
;ZZ`Z IS THE 3-CHARACTER ERROR CODE, E RROR MESSAGE IS T@HE ASCIZ
;STRING` TO BE TYPED ON THE TERMINAL AND P DP-10 INSTRUCTION@ IS
;AN OPTIONAL` ARGUMENT INDICATING WHAT THE USER  WANTS TO DO
;AB@OUT THE ERROR JUS`T TYPED. IF THE ARGUMENT IS NULL A N
;-EXIT IS EXEC@UTED.
	DEFINE K`ERR (COD,MSG,INSTR),<
...'COD:	JR ST	[
	OUTSTR	[AS@CIZ \
? K'COD M`SG\]
	IFNB <INSTR>,<INSTR>
	IFB  <INSTR>,<EXIT>
]@>

;+.PARA -8
`;XXXWRN	MACRO SIMILAR TO THE XXXER R MACRO EXCEPT TH@AT A
;WARNING ME`SSAGE IS ISSUED RATHER THAN A FATA L AND
;-THE DEFA@ULT PDP-10 INSTRU`CTION TO BE EXECU TED IS "JRST .+1"  .
	DEFINE KWRN  @(COD,MSG,INSTR),< `
...'COD:	JRST	[!
	OUTSTR	[ASCIZ ! \
% K'COD MSG\]!@
	IFNB <INSTR>,<!`INSTR>
	IFB <INS"TR>,<JRST .+1>
]" >


>>>>
	PURGE l,m,n
URG@ M8kOP%%CA (A,B,)OP%%CA (AGD PxOP%%CA (A,B,A)P%%CA (AGDP NxwOP%%CA (A,B,E)P%%CA (AGDp O8{OP%%CA (A,B,G)P%%CA (AGDy  OxOP%%CA (A,B,GE)%%CA (AGE@ MxoOP%%CA (A,B,L)P%%CA (AGEI  N8sOP%%CA (A,B,LE)%%CA (AGE` P8OP%%CA (A,B,N)P%%CA (AG&tkg 5-
	DEFINE	58INFO.(OPCODE,NEWA5XRG)<
	OPCODE	NEWARG>	OPCODE	NEWG>vC@ %P[LALL

		%0	   PAGE	;(CONTIN*xUED ON NEXT PAGE)+
			   SALL	;(CO+8NTINUED FROM PREVIOUS PAGE)
REVI6= ;8s
	..OLD==;X10
	..TYP==3
IF;xE <C>+1,..TYP==0<
IFE <C>-^O7777<877,..TYP==1
IFE <X<C>-^O777777B17,<x..TYP==2
..POS===POS(<C>)
..WID==8=WID(<C>)
	RADI=XX	10
	DF%%ST (\.=x.TYP,A,<B>,\..P>OS,\..WID)
	PURG>8E	..OLD,..TYP,..POS,..WIDTYP,..PI(\z >x

	RADIX	.?.OLD
DEFINE	B (?8OPS,AC,E),<
	..C?X==0
	IRP OPS,<
?x		IFE A-..C,<
	@		STOPI
			IFN 3@8-..C, OPS <AC>,C@X'E
			IFE 3-..C,@x OPS <AC>,[POINT AE,C'E,D]
		>
	..C==..C+1>
	PURGE	..C>

	PI'7 UX-OP%%IN	(A,B,DIV)%IN	(AKc  'pC
	IRP	A,(<
	IF2,<	IFNDEF	(0A,<EXTERN A> >>,<EXTERN A> >>M&. [XOP%%FA	(A,B,FADR,FSBR)AM6. \@dOP%%FP	(A,B,FDVR)FP	(AM&eG 2<<A>!<<LF28TBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M7. \`OP%%FP	(A,B,FMPR)FP	(AMH(X6 :xW
	DEFINE	A,<-^OB(P)>
MJ 7S
	OLD%%%=78=10	
	RADIX	8
	7XN%%%==0		
IRP A7x,<
	FR%%AM (A,\8<N%%%+1>)	
	N%%%88==N%%%+1		
>
	A8XDD	P,[N%%%,,N%%%]8x	
	PUSHJ	P,b		
	  SKIPA
	AOS	-98N%%%(P)	
	SUB	P,9X[N%%%,,N%%%]	
	P9xOPJ	P,		
b:
	R:ADIX	OLD%%%
	PUR:8GE	N%%%,OLD%%%
E	N%%%,OLD%%%
MN. [@\OP%%FA	(A,B,FSBR,FADR)AM\u|RQ O2|  &01
	IRP	A,&P<
	IF2,<	IFDEF	&pA,<INTERN A>
		'IFNDEF	A,<EXTERN& A>
		SUPPRE	A>>
		SUPPRE	ASNn V 2OP%%IN	(A,B,IDIV)IN	(AS7-N U)OP%%IN	(A,B,IMUL)IN	(AS;k 4X%<<<A>B<POS(<B>)>>&<B>>S? yTXO	A,<B>TXO	A,<BUVn	 1x+IFE <<B>_21>,<
IFE <B>,<
	JUMP	A,D
>
2XIFN <B>,<
IFE <2x<C>&<B>>,<
	JU3MPL	A,D
>
IFN38 <<C>&<B>>,<
	3XJUMPGE	A,D
>>>3x
IFN <<B>1>,<
	TXCA	A,<<C>&<48B>>
	JRST	.+5
4X	TXCE	A,<<C>&<4xB>>
	JRST	D
	T5XNE	A,<<-<C>-1>58&<B>>
	JRST	D
>>>
	JRST	D
' -x
IFE <<B.>_1>,<
IFE <B>,.8<
	JUMPA	A,D
.X>
IFN <B>,<
IF.xE <<C>&<B>>,<
/	JUMPGE	A,D
>/8
IFN <<C>&<B>>,/X<
	JUMPL	A,D
/x>>>
IFN <<B>_1>0,<
	TXCA	A,<<C08>&<B>>
	JRST	.+0X5
	TXCE	A,<<C>0x&<B>>
	JRST	.+31
	TXNN	A,<<-<C18>-1>&<B>>
	JRST	D
>>>
	JRSTUVn
 5xq
IFDIF <6B><C>,<
	JFCL	168,.+1		
	JRST	.+16X		
IFNB <B>,<	J6xFCL	1,B
7IFNB 7<C>,<IFIDN <C><78D>,<IFIDN <D><7XE>,< JRST	C>>>>
IFB <B>,<	JFCL	81,i
  IFIDN <C88><D>,<IFIDN <D>8X<E>,< JRST	C>>>8x
>

IFDIF <C>9<D>,<
	HRLOI	A98,-2		
IFNB <C>,9X<	AOBJP	A,C
  9xIFNB <D>,<IFIDN :<D><E>,<JRST	D:8>>>
IFB <C>,<IF:XDIF <D><E>,<AOB:xJP A,i>
	    I;FIDN <D><E>,<AO;8BJN A,D>>
>
;X
IFDIF <D><E>,<;x
	IF2,<IFE A,<P<RINTX ? A MUST B<8E NON-ZERO IN JUM<XPPT>>
	MOVEI	A,<x0		
	BLT	A,0		
IFNB <D>,<	JUMP=8E	A,D
  IFNB <=XE>,<	JRST	E>>
=xIFB <D>,<	JUMPN	>A,E>
>

i:A,E>
>

i:Y$-<1X>><1B<^L<A>Y tQ xY>
C@ Ax B (<MOVEB,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<YO%yG +xg
	IFNDEF	,LSTIN.,	LSTIN.==0,8
IFE LSTIN.,<
	,XIFB <A>,	.XCREF
			XLIST>
LSTIN.==LSTIN.+1
INYO%{G -8q
IFG LSTI-XN., LSTIN.==LSTIN-x.-1
IFLE LSTIN.,.<	.CREF
		LIST>
CREF
		LIST> `6IFG 0,<
	IF2,<LALL>
	LOC	 137
	BYTE (3)MAC@WHO(9)MACVER(6)MA`CMIN(18)MACEDT	; MACTEN %2(25)-0
 	RELOC
	SALL
>	@IFE 0,<
	IF2,<LA`LL>
	LOC	137
	BYTE (3)MACWHO(9)M ACVER(6)MACMIN(18@)MACEDT	; MACTEN `%2(25)
	RELOC
	SALL
>RELOC
	[qQ MAC[\Y @
...A:	J`RST	[
	OUTSTR	[ASCIZ \
? MACA  B\]
	IFNB <C>,<@C>
	IFB <C>,<EXIT>
] <C>,<E[
 b
	IF2,<

@	IFG 0,<PRINTX MA
`CTEN %2(25)-0	DECSYSTEM-10 COMMON  PARAMETER FILE
>@	IFE 0,<PRINTX MA`CTEN %2(25)	DECSY
STEM-10 COMMON PA
 RAMETER FILE
>>AMETER FILE
>>[:<Q [[= 
`rIFNB <A>,
	SUBTTL	A
	PE
>	IFB <A>,<
	LALL
	PAGE		;ED TO NEXT PAGE
	SALL		;  CONTINUED FROM PREVIOUS PAGE
>R[M @IFG 0,<
	`TITLE	MACTEN - DECSYSTEM-10 COMMON  PARAMETER FILE  @%2(25)-0
>IFE 0,`<
	TITLE	MACTEN - DECSYSTEM-10 CO MMON PARAMETER FILE  %2(25)
>FI[[[ `IFG 0,<
	LALL
	UNIVERSAL  MACTEN - DECSYSTE@M-10 COMMON PARAM`ETER FILE  %2(25)-0
	SALL
>IFE 0 ,<
	LALL
	UNIVE@RSAL MACTEN - DEC`SYSTEM-10 COMMON PARAMETER FILE  %2(25)
	SALL
>[lY  NIFG 0,<
	@IF2,<LALL>
	BYTE` (3)MACWHO(9)MACVER(6)MACMIN(18)MA CEDT	; MACTEN %2(@25)-0
	SALL
>	I`FE 0,<
	IF2,<LAL	L>
	BYTE (3)MACW	 HO(9)MACVER(6)MAC	@MIN(18)MACEDT	; M	`ACTEN %2(25)
	SALL
>2(25)
	SA[|W  
...A:	J RST	[
	OUTSTR	[A@SCIZ \
% MACA `B\]
	IFNB <C>,<C>
	IFB <C>,<JRST .+1>
]>,<J[3@ 0X<<<1_<A>>-1>B<B>>_<A>>[>&: "`
	LALL
	#%%A==BYTE (3)AW# HO(9)AVER(6)AMI#@N(18)AEDT
	SALL
)AEDT
	SALL[?7 DXS
	.XCREF
	TEST%%=0
IFE	<E<B>_-^D18>,<
	TE8EST%%=1
	.CREF
EX	MOVEI	A,<B>
	Ex.XCREF
>
IFN	<FB>,<
IFE	<<B>_^F8D18>,<
	TEST%%=1FX
	.CREF
	MOVSI	FxA,(B)
	.XCREF
>
IFE	<<<B>-^G8D18>-^O777777>,<
	TEST%%=1
	.CREGxF
	HRROI	A,<B>H
	.XCREF
>
IFEH8	TEST%%,<
IFE	<<HX<B>_^D18>-^O7777Hx77B17>,<
	TEST%%I=1
	.CREF
	HRLOI8I	A,(<B>-^O7777IX77)
	.XCREF
>
IxIFE	TEST%%,<
	.CJREF
	MOVE	A,[BJ8]
>>>
	PURGE	TEST%%
	.CREF	TE[Vg TX%OP%%IN	(A,B,MUL)%IN	(A] $ "
	IFNDEF	A,<A==B>
F	]` )pI
	IFNDEF	)A,<A==B>
	SHOW.	(A)

	SHO_@(Xp Q8
	.XCREF
IFE	<<B>_-^D18>Qx,<
	.CREF
	CAIRC	A,<B>
	.XCRER8F
>
IFN	<<B>_-RX^D18>,<
	.CREF
Rx	CAMC	A,[B]
	S.XCREF
>
	.CREFCREF
>
	.CREF_@(YP ]x
	.XCREF
IFE	<<<B>_^D18>]@-^O777777B17>,<
]`	.CREF
	DI	A,(^-<B>)
	.XCREF
^ >
IFN	<<<B>_^D1^@8>-^O777777B17>,<^`
	OP%%FP	A,<B>_,C
>
	.CREF
C
>
	.CREF
_@(YX _@
	.XCREF
IFE	<<B>_^D18>,`<
	.CREF
	CI	` A,(B)
	.XCREF
`@>
IFN	<<B>_^D18``>,<
	.CREF
	C	aA,[B]
	.XCREF
>
	.CREFCREF`D
	.XCREF
IFE	<<<B>_-^D18W >-^O777777>,<
	.W@CREF
	DI	A,-<W`B>
	.XCREF
>
IXFN	<<<B>_-^D18>-X ^O777777>,<
	OP%X@%IN	A,<B>,C
>
	.CREF>,C
>_@(Z7 YT
	.XCREF
IFE	<<B>_-^D18>Y@,<
	.CREF
	CI	Y`A,<B>
	.XCREF
>
IFN	<<B>_-^DZ 18>,<
	.CREF
	Z@C	A,[B]
	.XCREF
>
	.CREFCRE_@(] Xu

	.XCREF
IFN <<A>&^O777777777760>, PRINTX8 ? A IS NOT AN AXCCUMULATOR

	TExMP%%=0
IFE	<<B>_^D18>,<
IFN	<B8>,<
	TEMP%%=1
	X.CREF
	C	A,(Bx)
	.XCREF
>>
IFE	<<B>_-^D18>,<8
	TEMP%%=1
	.CRXEF
	D	A,<B>
x	.XCREF
>
IFE	TEMP%%,<
	.CREF
8	E	A,[B]
>
	XPURGE	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 /x<POINT	WID0(B),A,POS(B)>B),A,POS(B)>a?H6 +a? /{<^L<A>+^L/8<-<<A>_<^L<A>>>-1>-1><^L<A>>>e$YG 65
	DEFINE	68INFO.(OPCODE,NEWA6XRG)<
	OPCODE	<A
	NEWARG>>	<AeD- 1	<<A>&-<A>><<A>&-<Ae tP'g"~s@ *XS	.XCREF
	*8EXP	<A>
	.ORG	.-1
			.CREFG	.gR~#@ BX B (<MOVEBxM,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~)  Jxg
IFE <D>K,<	SETZM	B>	
IFK8E <D>+1,<	SETOM	KXB>	
IFN <D>*<<KxD>+1>,<MOVX	A,<LD>	
		   MOVEM L8A,B>	
IFNB <CLX>,<			
	MOVE	A,Lx[B,,B+1]
	BLT	A,C		
>	BLT	gV T!OP%%IA	(A,B,SUB,ADD)(Ai'%I' j`2
	.XCREF
	Z==0
	IFNDEF k AVER,<Z==-1>
	IFk@NDEF AMIN,<Z==-1k`>
	IFNDEF AEDT,l<Z==-1>
	IFNDEF l AWHO,<Z==-1>
	Il@FL Z,<PRINTX ?SYMl`BOLS AWHO,AVER,mAMIN AND AEDT Nm OT DEFINED
	PRINm@TX ?VERSION SYMBOm`LS MUST BE DEFINEnD BEFORE CALLING n TITLE. MACRO
ENDn@>
	.CREF
	IF2,<n`LALL>
	ASIX==SIoXBIT /A/	; B ABo BREVIATION IN SIXo@BIT
	AASC==ASCIo`Z /A/	; B ABBREpVIATION IN ASCII
	SALL
	.XCREF
p@%FIRST=AMIN/^D26p`
IFE %FIRST,<%SEqCON==AMIN
	%FIRq ST==0>
IFG %FIRSq@T,<%SECON=AMIN-<q`^D26*%FIRST>>
IFrE AMIN-^D26,<%SEr CON==AMIN
	%FIRr@ST=0>
IFE AMIN-r`^D52,<%SECON==^D2s6
	%FIRST=1>
; s DEFINE ALL THE MAs@CROS
BUILD$ (B,s`\AVER,\AMIN,\%FtIRST,<,A,B,C,D,E,t F,G,H,I,J,K,L,M,Nt@,O,P,Q,R,S,T,U,V,t`W,X,Y,Z>,\%SECON,u<,A,B,C,D,E,F,G,Hu ,I,J,K,L,M,N,O,P,u@Q,R,S,T,U,V,W,X,Yu`,Z>,\AEDT,\AWHOv,C,A)

	IF2,<v PURGE %SECON,%FIRST,Z>
.CREFFIRib kQ
	.XCREF
IFB <B>, TXC	(<x^O37777777&A>,1B<A_-^D30>)
IFNB8 <B>,<
IFN <<AX>&^O777777777760>x, PRINTX ? A IS NOT AN ACCUMULATO8R
IFE	<<<B>_-^DX18>-^O777777>,<
x	.CREF
	EQVI	A,<,,-1-<B>>
	.XC8REF>
IFN	<<<B>_X-^D18>-^O777777>,x<
	OP%%TX	A,<B>,TLC,TRC,TDC
>>	.CREFC,TDC
>>ib  1
	.XCREF
IFB  <B>,	OP%%TX	<^O37777777&A>8,1B<A_-^D30>,TLCXA,TRCA,TDCA
IFNBx <B>,	OP%%TX	A,<B>,TLCA,TRCA,TDCA
	.CREF
,TDibP } v
	.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`  
	.XCREF
IFB  <B>,	OP%%T`X	<^O37777777&A>,1B<A_-^D30>,TLC N,TRCN,TDCN
IFNB@ <B>,	OP%%TX	A,`<B>,TLCN,TRCN,TDCN
	.CREF
,TDibp a@
IFB <B>a`, JFCL	0
IFNB <bB>, TRN	A,<,,<B>>
N	A,<,,<Bibt o 
	.XCREF
IFB  <B>,	OP%%To`X	<^O37777777&A>p,1B<A_-^D30>,TLNp A,TRNA,TDNA
IFNBp@ <B>,	OP%%TX	A,p`<B>,TLNA,TRNA,TDNA
	.CREF
,TDibtC@ *8k
IFE <<B*X>_<1+^L<B>>>,<
*xIFE <<B>&<C>>,<+
	TXNN	A,<B>
+8>
IFN <<B>&<C>+X>,<
	TXNE	A,<B+x>
>>
IFN <<B>_,<1+^L<B>>>,<
	T,8XCA	A,<<C>&<B>,X>
	JRST	.+4
	TX,xCE	A,<<C>&<B>>-
	JRST	.+3
	TXN-8N	A,<<-<C>-1>&<B>>
>C>-1>&<ibtP k f
	.XCREF
IFB  <B>,	OP%%Tk`X	<^O37777777&A>l,1B<A_-^D30>,TLNl E,TRNE,TDNE
IFNBl@ <B>,	OP%%TX	A,l`<B>,TLNE,TRNE,TDNE
	.CREF
,TDibu@ &xO
IFE <<B'>_<1+^L<B>>>,<
'8IFE <<B>&<C>>,<'X
	TXNE	A,<B>
'x>
IFN <<B>&<C>(>,<
	TXNN	A,<B(8>
>>
IFN <<B>_(X<1+^L<B>>>,<
	T(xXCA	A,<<C>&<B>)>
	JRST	.+4
	TX)8CE	A,<<C>&<B>>)X
	JRST	.+2
	TXN)xE	A,<<-<C>-1>&<B>>
>C>-1>&<ibu` m v
	.XCREF
IFB  <B>,	OP%%Tm`X	<^O37777777&A>n,1B<A_-^D30>,TLNn N,TRNN,TDNN
IFNBn@ <B>,	OP%%TX	A,n`<B>,TLNN,TRNN,TDNN
	.CREF
,TDibx f`T
	.XCREF
IFB <B>, TXO	(<g ^O37777777&A>,1Bg@<A_-^D30>)
IFNBg` <B>,<
IFN <<Ah>&^O777777777760>h , PRINTX ? A IS h@NOT AN ACCUMULATOh`R
IFE	<<<B>_-^Di18>-^O777777>,<
i 	.CREF
	ORCMI	Ai@,<,,-1-<B>>
	.Xi`CREF>
IFN	<<<B>j_-^D18>-^O777777>j ,<
	OP%%TX	A,<j@B>,TLO,TRO,TDO
>>	.CREFO,TDO
>ib| { f
	.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 w F
	.XCREF
IFB  <B>,	OP%%Tw`X	<^O37777777&A>x,1B<A_-^D30>,TLOx E,TROE,TDOE
IFNBx@ <B>,	OP%%TX	A,x`<B>,TLOE,TROE,TDOE
	.CREF
,TDib}` y V
	.XCREF
IFB  <B>,	OP%%Ty`X	<^O37777777&A>z,1B<A_-^D30>,TLOz N,TRON,TDON
IFNBz@ <B>,	OP%%TX	A,z`<B>,TLON,TRON,TDON
	.CREF
,TDicP b@2
	.XCREF
IFB <B>, TXZ	(<c^O37777777&A>,1Bc <A_-^D30>)
IFNBc@ <B>,<
IFN <<Ac`>&^O777777777760>d, PRINTX ? A IS d NOT AN ACCUMULATOd`R
IFE	<<<B>_-^Dd@18>-^O777777>,<
e	.CREF
	ANDI	A,e <,,-1-<B>>
	.XCe@REF>
IFN	<<<B>_e`-^D18>-^O777777>,f<
	OP%%TX	A,<Bf >,TLZ,TRZ,TDZ
>>	.CREFZ,TDZ
>>icT u 6
	.XCREF
IFB  <B>,	OP%%Tu`X	<^O37777777&A>v,1B<A_-^D30>,TLZv A,TRZA,TDZA
IFNBv@ <B>,	OP%%TX	A,v`<B>,TLZA,TRZA,TDZA
	.CREF
,TDicTP q 
	.XCREF
IFB  <B>,	OP%%Tq`X	<^O37777777&A>r,1B<A_-^D30>,TLZr E,TRZE,TDZE
IFNBr@ <B>,	OP%%TX	A,r`<B>,TLZE,TRZE,TDZE
	.CREF
,TDicU` s &
	.XCREF
IFB  <B>,	OP%%Ts`X	<^O37777777&A>t,1B<A_-^D30>,TLZt N,TRZN,TDZN
IFNBt@ <B>,	OP%%TX	A,t`<B>,TLZN,TRZN,TDZN
	.CREF
,TDif` %X3
	MOVX	A%x,1B<B_-^D30>
	.&XCREF
	<XORM	A,&8>!<37777777&B>
	.CREF
7&B>
iftS@  X
	MOVX	A x,1B<B_-^D30>
	.!XCREF
	<TDNE	A,!8>!<37777777&B>
	.CREF
7&B>
ifuc@ !x
	MOVX	A",1B<B_-^D30>
	."8XCREF
	<TDNN	A,"X>!<37777777&B>
	.CREF
7&B>
ify` #
	MOVX	A#8,1B<B_-^D30>
	.#XXCREF
	<IORM	A,#x>!<37777777&B>
	.CREF
7&B>
igQ` $8)
	MOVX	A$X,1B<B_-^D30>
	.$xXCREF
	<ANDCAM	%A,>!<37777777&B>
	.CREF
7&B>mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ $@&BYTE (3)A$`WHO (9)AVER (6)AMIN (18)AEDTo&  .Xu<^L<-<<A>_<^L<A>>>-1>>>q?  TXC	A,<B>TXC	A,<Bq@ )PE
	INTERN	(pA
	IFB  <C>,<(PA==B>
	IFNB <C>,<A=B>
 <Cus@ C8! B (<SETZCXM,HLLZS,HRRZS,<PRCxINTX ?CAN'T ZERO DBYTE>>,<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