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==.x@.V1/^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