Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
c.unv
There are 18 other files named c.unv in the archive. Click here to see a list.
x @P C%P `C' A(
OP%%IA (A,B,ADD,SUB)(AC2L{G (
<^D35-<^L< HRGHBT.(A)>>+<^D3 h7*<<^L<RGHBT.(A)>>/^D36>>>.(A)C2exg `8C:' yhNTXZ A,-1-<B>TXZ A,-1-C@tUP @C@t{P C@t;P C@tk{P C@uP C@unP C@v9P C@v{P"C@v)7P$CC[Q `CPv[6Q @CPv]6Q CS$t `"EuQQ EuzQ @EuhPP'Ev:=Q ?xEv=P'EvhYQ @ES| !(
REPEAT !H3,<
TXCE A,1B<B>!1B<C>
>B<FDrQP'FDrWQPxFE `*Gbv `7G@ ;XOP%%CA (A,B,)OP%%CA (AGD >HtOP%%CA (A,B,A)P%%CA (AGDP <HdOP%%CA (A,B,E)P%%CA (AGDp =hOP%%CA (A,B,G)P%%CA (AGDy =HlOP%%CA (A,B,GE)%%CA (AGE@ ;H\OP%%CA (A,B,L)P%%CA (AGEI <`OP%%CA (A,B,LE)%%CA (AGE` >pOP%%CA (A,B,N)P%%CA (AG">
`G"\q ` G&tkg "H
DEFINE "hINFO.(OPCODE,NEWA#RG)<
OPCODE NEWARG> OPCODE NEWG0tyP G0tH:P G0tKP G0u@P G0uk1P G0u}:P G0v,zP G2~9 G3)T
2G3)W
4G3PGG3kbPG3=L `.G8-[QP G8-[YP `G8-[ZP'pG8-[\Q @G:;"P G:M"P G:"P G:hbP G:iBP G:k"P G:kbP G:9P G:YP G:YBP G:,= `,G>n
PAGE ;(CONTIN(UED ON NEXT PAGE)H
SALL ;(COhNTINUED FROM PREVIOUS PAGE)
REVG?P `GHv88P GHv<Q GHv<{Q GRe+q `GX.-7Q @I,j7 `"I-[w `!I$P `I
tvQ I
t;WP `I
t;ZP ~I
tHwP'I
uQ I
u\qQ I
ukPQ I
ulQ @I
uyVQ I
v*Q @I
v83Q I
v=Q `I
v=xQ I
vN8Q 8I
vXqQ `I
vXzQ xI
vX|P'I
v[WP I
v[ZP I
w+:Q I$} `I%@ `I%}: `I&+ `I
= `I*g `/I6= (h
^
..OLD==)10
..TYP==3
IF)(E <C>+1,..TYP==0)H
IFE <C>-^O7777)h77,..TYP==1
IFE *<C>-^O777777B17,*(..TYP==2
..POS==*HPOS(<C>)
..WID=*h=WID(<C>)
RADI+X 10
DF%%ST (\.+(.TYP,A,<B>,\..P+HOS,\..WID)
PURG+hE ..OLD,..TYP,..POS,..WIDTYP,..PI ` `5I4: `I4y7 `I5KV `#I5h6 `I6
`I6:= ` I6= `I6N8 `I(\z ,(
v
RADIX .,H.OLD
DEFINE B (,hOPS,AC,E),<
..C-==0
IRP OPS,<
-( IFE A-..C,<
-H STOPI
IFN 3-h-..C, OPS <AC>,C.'E
IFE 3-..C,.( OPS <AC>,[POINT .HE,C'E,D]
>
..C==..C+1>
PURGE ..C>
PIv;QQ Iv<VP Iv=vQ @I=BP I=KBP I=lP I>
P I'3@ `(I'7 C(
OP%%IN (A,B,DIV)%IN (AI6
:bPI6yBPI64hBPI6MIBPI6vv `IVMIBQvIVMLQeIXtqP$IXtxP"IXtVQ IXt9Q IXtJ9Q IXtJ9Q@IXtLTQ@IXtLuQKIXtMQIXu@Q IXuKSQ IXuLQ IXuTP IXuT P IXuT(P IXuT(P IXuT)P IXuT)P IXuT*P IXuT*P IXuT+P @IXuT+P!IXuT@P IXuT`P IXuUP IXuU P IXuU@P IXuU`P @IXu]Q IXu}:Q IXv
(BP K;
(bP K;
)BP K;
*BP K;
+P K;
,P K;
3@ `5K;
8bP K;
LBP K;
YP K;
kBP K;
K;P K;
K;P K; P K;
"P K;"P K;-"P K;=P K;$\@ `KDt-1Q PKDt9TQ @KDt9UP'KDt9VQ xKDt9WQ KDt9XQ KDt9\Q KDtITP'KDtIVQ xKDtIyQ xKDtJWP KDtJ[Q KDtKQ @KDtKQ KDtKQ KDtLP'KDtLQ xKDtLTP'KDtNQ KDthVQ KDthqP'KDtkQ xKDtlyQ @KDuKP'KDuKVQ xKDv
P'KDv
Q xKHtZ5P KHtm6P KHuqP KHuP KHu\sQ @KHuyVP KHv<P KHvKP KJ
YBP KJiBP KJ9P KJ%h"P KJ%i"P KJ4+"P KJ4="P
KJ5iBP KJMM"P KJN
P KJN="P KJd(bP KJek"P KJezP
KJf= `-KJfkP
KJt9"P`KJtXbPKJt]P KJuJ"P KK-P KK
KKiBP KKlbP KK&+BP KK=JbP KbN@ `Kc ( .
IRP A,H<
IF2,< IFNDEF hA,<EXTERNLA>>>,<EXTERNQA>>>L(TQzLuQR@LQ9L)6P7L93Q(L=xQL.]7QY0L24Q1@LLk`Q L
0Q 2L%SQ 8L%6Q @ L%uQ 8L%\QQ 8 L%|Q 8L&
TQ 0L&Q 0L&)Q 0L&95Q 0@L&:6Q 1L&;1Q 8L&=Q 8L&=8Q 0 L&YQQ 8L-@Q L.P L/6Q L/ Q L/wQ L4lRQ 8L5TQ L<P L<]P L>iQ @L><QQ 0LDQ (LDLQ @LE[Q LF
Q LF;Q HLNsP LT;wPmL\(Q mL\=Q@L](QmL]QmL]D(Q(mLe@Q000LexuQ LeytQH8LLfHLv8tQ Lv[Q 0@L~
RQ HLQ (LHYQ LY5P @L7Q 0LP LzrP L-@P LN:P L
;vQ L:Q (LHPQ JLX9Q L[ Q HL
Q <L<Q (@LH`Q LMQ L;Q @L;YQ @LYQ L]Q LiQ 0L VQ @LHuQ :LI2Q LP LL@Q 0Lx8Q L|Q 8L$Q L$Q H@L$uQ H L$+Q @L%2Q L%H1Q IL%J6Q L%\Q HL&3Q @@L&(1Q (L&,Q L&lQ @L'Q @L-h6Q L4\YQ L5PQ L<Q L= Q ( LFH`Q HM&. HH
DOP%%FA (A,B,FADR,FSBR)AM6. J
POP%%FP (A,B,FDVR)FP (AM&eG H ~<<A>!<<LFhTBT.(A)>-<RGHBT.(A)>>>-<RGHBT.M&e| `6M7. IH
LOP%%FP (A,B,FMPR)FP (AM<v
[Q @MH(X6 ((
B
DEFINE A,<-^OB(P)>
MJ $H
>
OLD%%%=$h=10 ;
RADIX 8
% N%%%==0 ;
IRP %(A,<
FR%%AM (A%H,\<N%%%+1>) ;
N%h%%%==N%%%+1 ;
>&
ADD P,[N%%%,,N&(%%%] ;
PUSHJ P,&Hb ;
SKIPA
&h AOS -N%%%(P) ;
' SUB P,[N%%%,,N%%'(%] ;
POPJ P, ;'H
b:
RADIX OLD'h%%%
PURGE N%%%,OLD%%%
E N%%%,MJ]7 `#MJ,: `MLu[QQ MLu]vQ @MLv,pQ MLv-vQ @MLv\pQ MLv]vQ @MN. I
HOP%%FA (A,B,FSBR,FADR)AMN68"P MNMI"P MNMIBP MNMKP MNl;BP MNt<bP MNtlbP$MNv `O%Ht
,O%J7 `O&
`
O&93 `O&=
@O&H1O `O0t=QO)O0tLvQOO0tLxQOO0u QO0uQ @O0uHvQ O0uHxQ O0uJ7Q O0v
IRP A,H<
IF2,< IFDEF hA,<INTERN A>
IFNDEF A,<EXTERN( A>
SUPPRE A>>
SUPPRE AO>= `ORn9g 8
.XCREF ;
HRROI A,.G@TWCH ;
.CREF
`GETTAB A, ;
. XCREF
MOVEI A,0 ;
TXNN A, @JW.WMS ;
TXO A `,.JWWPO_<ALIGN. (!JW.WMS)> ;
TXN! E A,JW.WCN ;
T!@XO A,JW.WFL ;
.CREF
WFL ;
Qf@ +QuQ Qv*7Q Qv,Q Qv-Q @Qv-Q Qv-uQ Qv-xQ Qv-zQ Qv=xQ @Q&\@ `QC `SNn Ch
OP%%IN (A,B,IDIV)IN (AS7-N Bh
OP%%IN (A,B,IMUL)IN (AS8 @S:Y@
Y
$S:
[
S:
v
*S:
(S:N@ "S;]
<<<A>B<POS(<B>)>>&<B>>S<tzP S<t*zP @S<t+zP S<tDLP S<tI7P @S<tI9P"S<tMP!S<t[sP S<t[zP S<t\YP'@S<thyP S<u8P$S<uI6P S<u[rP S<ulQP S<ulrP S<v9P S<v
:S? y(JTXO A,<B>TXO A,<BS@t9QQ @S@t9QP S@t9RP `S@t9VP S@t9WQ S@t9XP$S@t9YQ S@t9YQ S@t9ZQ S@t9[P"S@t<1P'S@t<2Q xS@t<7P S@t<8P'~S@t<8Q S@t<9P S@t<9P'~S@t<<Q @S@uQ S@u(1Q @S@u+Q S@vuQ S@v>Q SBbP SB*"P SB*BP SB+BP SB,P SB9BP SBIP SBKBP SBM"P SBiBP SBl' `2SBlG `1SBlg `1SBm"P SB"P SBbP SB"P SBkP SBkBP SBlP SB BP SB
"P SB
BP SBP SB,BP SB,bP SB."P SBKP SBYBP SBZ"P
SB\P UuHZQ UuHyQ ?pUuL|Q UuMQ UvYQ UvZPQ @UvZQQ UvZWP'Uv[Q Uv[6Q Uv[pQ U] `%U> 5 `!U>= `U>= `U@t8qQ U@tLQ 0U@t[XQ U@u
Q pU@uQ @U@uHuQ @U@uY:Q U@ulxQ U@vuQ U@v-Q U@v<Q U@v<Q U@vLXQ ULtIYP ULv6P ULvxP ULvyP ULvP ULv
P ULv
P ULv
TP UVn
|IFE <<B>_
(1>,<
IFE <B>,<
H
JUMP A,D
>
hIFN <B>,<
IFEC<<B>>,<
JU A,D
>
IFNC>&<B>>,<
UMPGE A,D
>>>
IFN <<B>1>,<
TXCA A,<<C>&<HB>>
JRST .+5
h TXCE A,<<C>&<B>>
JRST D
T(XNE A,<<-<C>-1>H&<B>>
JRST D
>>>
JRST D
' \
IFE <<B(>_1>,<
IFE <B>,H<
JUMPA A,D
h>
IFN <B>,<
IF E <<C>&<B>>,<
( JUMPGE A,D
> H
IFN <<C>&<B>>, h<
JUMPL A,D
>>>
IFN <<B>_1>
(,<
TXCA A,<<C
H>&<B>>
JRST .+
h5
TXCE A,<<C>&<B>>
JRST .+3(
TXNN A,<<-<CH>-1>&<B>>
JRST D
>>>
JRSTUVn
D
IFDIF <(B><C>,<
JFCL 1H,.+1 ;
JRST .+h1 ;
IFNB <B>,< JFCL 1,B
IFN(B <C>,<IFIDN <CH><D>,<IFIDN <D>h<E>,< JRST C>>>>
IFB <B>,< JFC(L 1,i
IFIDN <HC><D>,<IFIDN <hD><E>,< JRST C>>>
>;<><>
IFD(IF <C><D>,<
HHRLOI A,-2 ;
IFhNB <C>,< AOBJP A,C
IFNB <D>(,<IFIDN <D><E>,H<JRST D>>>
IFB h<C>,<IFDIF <D><E>,<AOBJP A,i>(
IFIDN <D>H<E>,<AOBJN A,Dh>>
>;<><>
IFDIF <D><E>,<
I(F2,<IFE A,<PRINTHX ? A MUST BE NOhN-ZERO IN JUMPPT>>
MOVEI A,0 ;(
BLT A,0 ;
IHFNB <D>,< JUMPE hA,D
IFNB <E>,< JRST E>>
IF(B <D>,< JUMPN AH,E>
>;<><>
i:
>;<><>
U\vx6Q?@U\vxwQU\vyQU\vyQ U\vyQuPU\vyVQ U\v{9QtU\v{:Q @U\v|QuU\v|WQ U\v}YQ U\v}zQ Y$- x<1B<^L<A>>><1B<^L<A>Y tQ xY&=
C@ /(
| B (<MOVE/H,HRRZ,HLRZ,LDB>,<A>,<C>)LDB>,<Y> `Y>0 `Y>=@ `Y>=}: `Y>}=8 @YO%yG ( R
IFNDEF HLSTIN., LSTIN.==0h
IFE LSTIN.,<
IFB <A>, .XCREF
XLIST>
LSTIN.==LSTIN.+1
INYO%{G h \
IFG LSTIN., LSTIN.==LSTIN(.-1
IFLE LSTIN.,H< .CREF
LIST>
CREF
LIST> p<<<1<A>>-1>B<B>><A>>[
v=Q ~[
v\pQ [
vx5Q@[LP [LBP [L=P [MIBP [MX"P [N
P [KP [h"P [$\G `$[>v- b[?7 2>
.XCREF
TEST%%=0
IFE <2H<B>_-^D18>,<
T2hEST%%=1
.CREF
3 MOVEI A,<B>
3(.XCREF
>
IFN <3HB>,<
IFE <<B>_^3hD18>,<
TEST%%=14
.CREF
MOVSI 4(A,(B)
.XCREF
>
IFE <<<B>-^4hD18>-^O777777>,<
TEST%%=1
.CRE5(F
HRROI A,<B>5H
.XCREF
>
IFE5h TEST%%,<
IFE <<6<B>_^D18>-^O77776(77B17>,<
TEST%%6H=1
.CREF
HRLO6hI A,(<B>-^O7777777)
.XCREF
>
7(IFE TEST%%,<
.C7HREF
MOVE A,[B7h]
>>>
PURGE TEST%%
.CREF TE[@t[QQ@[@v=Q~[@v\pQ[O%2 ` [Pr}P [PtqQ x[Pt<QP'~[PtI7P [PuhyP `[Pv{P [R
G `%[R$Xg @ [R-yG @[R-} @[RMh"Q [RMi @ [RMnQ [RfJ @@[S]g @[S9G @[S<G @[S-k @[S< @[Vg B(
OP%%IN (A,B,MUL)%IN (A[ZDLBP [ZDLG `,] (
IFNDEF A,<A==B>
F ]` H
IFNDEF hA,<A==B>
SHOW. (A)
SHO]>$S@ `7_@(Xp ?
.XCREF
IFE <<B>_-^D18>?H,<
.CREF
CAI?hC A,<B>
.XCRE@F
>
IFN <<B>_-@(^D18>,<
.CREF
@H CAMC A,[B]
@h.XCREF
>
.CREFCREF
>
.CREF_@(YP JH
d
.XCREF
IFE <<<B>_^D18>K-^O777777B17>,<
K( .CREF
DI A,(KH-<B>)
.XCREF
Kh>
IFN <<<B>_^D1L8>-^O777777B17>,<L(
OP%%FP A,<B>LH,C
>
.CREF
C
>
.CREF
_@(YX M
t
.XCREF
IFE <<B>_^D18>,MH<
.CREF
CI MhA,(B)
.XCREF
N>
IFN <<B>_^D18N(>,<
.CREF
C NHA,[B]
.XCREF
>
.CREFCREF(
0
.XCREF
IFE <<<B>_-^D18Dh>-^O777777>,<
.ECREF
DI A,-<E(B>
.XCREF
>
IEHFN <<<B>_-^D18>-Eh^O777777>,<
OP%F%IN A,<B>,C
>
.CREF>,C
>_@(Z7 FH
@
.XCREF
IFE <<B>_-^D18>G,<
.CREF
CI G(A,<B>
.XCREF
>
IFN <<B>_-^DGh18>,<
.CREF
HC A,[B]
.XCREF
>
.CREFCRE_@(] thF
.XCREF
IFN <<A>&^O7777u(77777760>, PRINTXuH ? A IS NOT AN AuhCCUMULATOR
TEvMP%%=0
IFE <<B>v(_^D18>,<
IFN <BvH>,<
TEMP%%=1
vh.CREF
C A,(Bw)
.XCREF
>>
Iw(FE <<B>_-^D18>,<wH
TEMP%%=1
.CRwhEF
D A,<B>
x .XCREF
>
IFE Tx(EMP%%,<
.CREF
xH E A,[B]
>
xhPURGE TEMP%%
.CREF TEMP%%
.C_B-`
RF\y `W `W$-3
"W&=
&atx0Q atx=Q atxrQ atxxQ at{RQ @at|Q at|RQ at|vQ at}yQ a<9"P a<:"P a<S@ `2a="P a=P a=bP a=P a=I"P a=Y"P a=Z"P a=lbP a=nP a>:P a>YBP a%@ `$a
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\yQa-0Q `au QP'au
Q xa&Mj' `.a'= `0a'G `0a'g `/a*n r 5 a*n 4`a*| `
a+= +a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a>Mm ( l<POINT WIDH(B),A,POS(B)>B),A,POS(B)>a>\S@ `&a?H6 +a? H f<^L<A>+^Lh<-<<A>_<^L<A>>>-1>-1><^L<A>>>aLth1Q aLthxQ aLthyQ aLtksQ aLtkwQ aLtlQQ aLv)P aLv)P aLv)3P @aLv*2P"aLv*2P aLv+rP!aLv+rP aLv,2P aLv-zP aLv;wQ @aLvh4Q aLviQ aLvj8Q aLvlQ aLvlQ aLvmQ aN)BP aNLbP aN%kbP aNNkbP aNtlbP aNv,bP aNv-bP aN}yBP aOiP aO-BP aOKP aO%X"P aO-8bP aO-9BP aO-<BP aPt<RP aPuP aPuJ1P aPuKuP aPui;P aPv8wP aPv;P `aPv;[P aPv<QP aPv<|P aPv>9P etrP et<RP et<ZQ pet<\P'eu[rQ eulrP$ev
[Q `e<t `e$YG #H
DEFINE #hINFO.(OPCODE,NEWA$RG)<
OPCODE <A
NEWARG>> <AedX9 el `et2 e87
0eMG `'e] `eD- H t<<A>&-<A>><<A>&-<Ae tP'e4v9Q e4v=8Q xe@tQP e@tZP e@t)P e@t)PP e@t;8P e@t<TP e@tJ9P$e@t\YP fe@thrP e@tlRP e@tmrP @e@uKsQ @e@uiP"e@uiYP @e@ul1P e@vXrQ e@vY9Q e@v\RQ e@v]rQ eR%"P eR,BP eRL"P eRMIBP eRUkP @eRUlP eRt4P eSh"P eShBP eSz"P eSI"P eS$BP eS&, `eVp `eVvJ6 `gDbP gDXBP gDY `4gEZ"P gEhbP gElP gFXbP gFYBP gFZBP gF\"P g-0 `gv9' `-g$I `g%Ht
.g%h6 `g&{ `
g&]7 `g&]x `g"~s@ h .XCREF
EXP <A>
.ORG .-1
.CREFG .g/Q
6g/V
8g2,\ `
g8-KuQ g8.:Q g;)P g@t<HP g@t<HP g@t<IP g@t<IP g@t<JP g@t<JP g@v8hP gCH `gP,yP gP,+wP gP,<Q gP,>1Q gP,HSQ @gP,LuQ @gP,M6Q gP,Y9P gP,[7Q gP,[XP gP,\ZP!gP,^P @gP,mQ gP,x6P gP-
Q @gP-3Q gP-RQ gP-P gP-KsQ gP-XRP gP-XSQ gP-Y9P gP-\QQ gP-\sP gP-h9Q gP-iP$gP-jWP gP-kP gP-kxP gP-lVP gP-lZP gP-lrP gP-lxP @gP.
[Q gP.
tP gP.)Q gP.*RQ gP.-Q gP.:P @gP.<xP gP.=xQ gP.H8P gP.IQ pgP.MyQ gP.k9P gP/
P"gPvlsP$gPvx6P#|gPvyP gPvyP gPvyP"gPv{:P gPv|WP!gPv}YP gPv}zP @gRK`
gRN@
`gR~#@ 0 B (<MOVE0(M,HRRM,HRLM,DPB>,<A>,<C>)DPB>,gR~) 8(T
IFE <D>8H,< SETZM B> ;
I8hFE <D>+1,< SETOM9 B> ;
IFN <D>*9(<<D>+1>,<MOVX A9H,<D> ;
MOV9hEM A,B> ;
IFNB: <C>,< ;
MOV:(E A,[B,,B+1]
:H BLT A,C ;
>BLT A,C ;
>gS]7 `gTv8VQ gTv8tQ gTv;7Q gTv;zQ gV Ah
OP%%IA (A,B,SUB,ADD)(AgW] `3gWlQ gX,;wQ gX,lP gX-
9Q @gX.
P gX.)8Q `gX.:Q gX.>6Q gX.|ZQ g^NHt `gg
`gg= `i| `6it+zP"iuyVP iv);P @iv96P iv=P iv[YP$iv{P!i&l\@ ` i7;y `i>
HBP i>%P i>M\P i?(bP i?xBP iB
<BP iB
<bQ iB,bP iBLhbP iBu"P iBu]P iC-BP iC5|BP iJmkg `&iJm| `'iK)7 `iK9: `
ib XH"
.XCREF
IFB <B>, TXC (<q^O37777777&A>,1Bq(<A_-^D30>)
IFNBqH <B>,<
IFN <<Aqh>&^O777777777760>r, PRINTX ? A IS r(NOT AN ACCUMULATOrHR
IFE <<<B>_-^Drh18>-^O777777>,<
s .CREF
EQVI A,s(<,,-1-<B>>
.XCsHREF>
IFN <<<B>_sh-^D18>-^O777777>,t<
OP%%TX A,<Bt(>,TLC,TRC,TDC
>> .CREFC,TDC
>>ib nh
.XCREF
IFB <B>, OP%%To(X <^O37777777&A>oH,1B<A_-^D30>,TLCohA,TRCA,TDCA
IFNBp <B>, OP%%TX A,p(<B>,TLCA,TRCA,TDCA
.CREF
,TDibP jhb
.XCREF
IFB <B>, OP%%Tk(X <^O37777777&A>kH,1B<A_-^D30>,TLCkhE,TRCE,TDCE
IFNBl <B>, OP%%TX A,l(<B>,TLCE,TRCE,TDCE
.CREF
,TDib` lhr
.XCREF
IFB <B>, OP%%Tm(X <^O37777777&A>mH,1B<A_-^D30>,TLCmhN,TRCN,TDCN
IFNBn <B>, OP%%TX A,n(<B>,TLCN,TRCN,TDCN
.CREF
,TDibp O
|
IFB <B>O(, JFCL 0
IFNB <OHB>, TRN A,<,,<B>>
N A,<,,<Bibt \h
.XCREF
IFB <B>, OP%%T](X <^O37777777&A>]H,1B<A_-^D30>,TLN]hA,TRNA,TDNA
IFNB^ <B>, OP%%TX A,^(<B>,TLNA,TRNA,TDNA
.CREF
,TDibtC@ H<
IFE <<Bh>_<1+^L<B>>>,<
IFE <<B>&<C>>,<(
TXNN A,<B>
H>
IFN <<B>&<C>h>,<
TXNE A,<B>
>>
IFN <<B>_(<1+^L<B>>>,<
THXCA A,<<C>&<B>h>
JRST .+4
TXCE A,<<C>&<B>>(
JRST .+3
TXNHN A,<<-<C>-1>&<B>>
>C>-1>&<ibtP Xh
.XCREF
IFB <B>, OP%%TY(X <^O37777777&A>YH,1B<A_-^D30>,TLNYhE,TRNE,TDNE
IFNBZ <B>, OP%%TX A,Z(<B>,TLNE,TRNE,TDNE
.CREF
,TDibu@
IFE <<B(>_<1+^L<B>>>,<
HIFE <<B>&<C>>,<h
TXNE A,<B>
>
IFN <<B>&<C>(>,<
TXNN A,<BH>
>>
IFN <<B>_h<1+^L<B>>>,<
TXCA A,<<C>&<B>(>
JRST .+4
TXHCE A,<<C>&<B>>h
JRST .+2
TXNE A,<<-<C>-1>&<B>>
>C>-1>&<ibu` Zh
.XCREF
IFB <B>, OP%%T[(X <^O37777777&A>[H,1B<A_-^D30>,TLN[hN,TRNN,TDNN
IFNB\ <B>, OP%%TX A,\(<B>,TLNN,TRNN,TDNN
.CREF
,TDibx T(
.XCREF
IFB <B>, TXO (<Th^O37777777&A>,1BU<A_-^D30>)
IFNBU( <B>,<
IFN <<AUH>&^O777777777760>Uh, PRINTX ? A IS VNOT AN ACCUMULATOV(R
IFE <<<B>_-^DVH18>-^O777777>,<
Vh .CREF
ORCMI AW,<,,-1-<B>>
.XW(CREF>
IFN <<<B>WH_-^D18>-^O777777>Wh,<
OP%%TX A,<XB>,TLO,TRO,TDO
>> .CREFO,TDO
>ib| hhR
.XCREF
IFB <B>, OP%%Ti(X <^O37777777&A>iH,1B<A_-^D30>,TLOihA,TROA,TDOA
IFNBj <B>, OP%%TX A,j(<B>,TLOA,TROA,TDOA
.CREF
,TDib|P dh2
.XCREF
IFB <B>, OP%%Te(X <^O37777777&A>eH,1B<A_-^D30>,TLOehE,TROE,TDOE
IFNBf <B>, OP%%TX A,f(<B>,TLOE,TROE,TDOE
.CREF
,TDib}` fhB
.XCREF
IFB <B>, OP%%Tg(X <^O37777777&A>gH,1B<A_-^D30>,TLOghN,TRON,TDON
IFNBh <B>, OP%%TX A,h(<B>,TLON,TRON,TDON
.CREF
,TDicP P
.XCREF
IFB <B>, TXZ (<PH^O37777777&A>,1BPh<A_-^D30>)
IFNBQ <B>,<
IFN <<AQ(>&^O777777777760>QH, PRINTX ? A IS QhNOT AN ACCUMULATOR(R
IFE <<<B>_-^DR18>-^O777777>,<
RH .CREF
ANDI A,Rh<,,-1-<B>>
.XCSREF>
IFN <<<B>_S(-^D18>-^O777777>,SH<
OP%%TX A,<BSh>,TLZ,TRZ,TDZ
>> .CREFZ,TDZ
>>icT bh"
.XCREF
IFB <B>, OP%%Tc(X <^O37777777&A>cH,1B<A_-^D30>,TLZchA,TRZA,TDZA
IFNBd <B>, OP%%TX A,d(<B>,TLZA,TRZA,TDZA
.CREF
,TDicTP ^h
.XCREF
IFB <B>, OP%%T_(X <^O37777777&A>_H,1B<A_-^D30>,TLZ_hE,TRZE,TDZE
IFNB` <B>, OP%%TX A,`(<B>,TLZE,TRZE,TDZE
.CREF
,TDicU` `h
.XCREF
IFB <B>, OP%%Ta(X <^O37777777&A>aH,1B<A_-^D30>,TLZahN,TRZN,TDZN
IFNBb <B>, OP%%TX A,b(<B>,TLZN,TRZN,TDZN
.CREF
,TDidtVQ idtI;P idtZQ idu@Q iduZQ @idu+qP'~iduX7Q @iduYQ idu\Q idu}:Q idv(9P idv<Q idvh9Q if` h
MOVX A,1B<B_-^D30>
.(XCREF
<XORM A,H>!<37777777&B>
.CREF
7&B>
iftS@ zh\
MOVX A{,1B<B_-^D30>
.{(XCREF
<TDNE A,{H>!<37777777&B>
.CREF
7&B>
ifuc@ |f
MOVX A|(,1B<B_-^D30>
.|HXCREF
<TDNN A,|h>!<37777777&B>
.CREF
7&B>
ify` }(p
MOVX A}H,1B<B_-^D30>
.}hXCREF
<IORM A,~>!<37777777&B>
.CREF
7&B>
igQ` ~Hz
MOVX A~h,1B<B_-^D30>
.XCREF
<ANDCAM (A,>!<37777777&B>
.CREF
7&B>k.I@ `k*-` k:ezg `(kN.J kN.K` kS; `kTt7Q kTtI6Q kTtI9Q kTuQQ kTv
Q @kTv
P"kTv;rQ k`vN8P ~k`v[ZP mHtYP'mHuZ7Q xmHvi9Q |mHvzQ pmKc@ (
BYTE (3)AHWHO (9)AVER (6)AMIN (18)AEDToN@ `o\P `o".) `o& `<^L<-<<A>_<^L<A>>>-1>>>q? z(RTXC A,<B>TXC A,<Bq@ ( &
INTERN HA
IFB <C>,<hA==B>
IFNB <C>,<A=B>
<CqS&:g `*us@ 0h
B (<SETZ1M,HLLZS,HRRZS,<PR1(INTX ?CAN'T ZERO 1HBYTE>>,<A>,<C>)TE>>,<A>,<C>)
Q $J
.[yQ $JJ|Q `XYQ hKsQ XYQ p\Q 8zxQ 9Q P
Q (X-Q @-Q H99Q KyQ N8Q 0n{Q %n Q %n:P %t+7Q Pt+<Q Ht+VQ ht8tQ xt:Q 8t=WQ @tH:Q HtH<Q tHSQ (tI;Q `tIQQ PtKQ ptLqQ htMQ (tMQ 0tMQ XtMWQ Ht]Q t^Q (tihP tihQ tiiQ tiiQ tijQ tlRQ tlZQ 0t{:Q uyQ u
Q `u
vQ u
wQ uIQ huIQ uKQ uK<Q @uKVQ `uKXQ XuKYQ PuKqQ uLrQ uY9Q uZ7Q uZ8Q xu[<Q pu[ZQ Pu[wQ xu]WQ pulqQ xulvQ umqQ uxxQ `uxyQ Xu|Q 0u|Q Xv Q (v yQ hv
0Q Hv
6Q @v
6Q 8vuQ v-Q Xv91Q v99Q v9zQ v:=Q Pv:WQ hv= Q 0v=Q (v=Q xvH8Q 8vHvQ 8vJ1Q vJ6Q @vMQ @vMQ 8vMQ HvMyQ pv]Q vi9Q `vzQ w9Q p4PQ @4QQ 84YQ 4]Q `4]VQ 4]ZQ 5+qQ 5JYQ H5KQ (5LzQ P5[PQ X5\Q x5\Q p5\Q 5\Q 5jPQ P5mQ `5m6Q x5zQ 60P 61P 6yP 6P 69P 6pP 6qP 6
qP 6*P 6*P 6*P 6*P 6*P 6+P 6+P 6+P 6+P 6+P 6+QP 6+TP 6+WP 6+YP 6+\P 6,qP 6,tP 6,wP 6,yP 6,|P 6-7Q p6;RQ H6<Q h6=Q h6JQQ 86KRQ @6LQ `6M1Q 06\Q (
Q +
I8Q (+
LyQ +
\yQ+$qQ$;vQ$I1Q($LuQ8$\YQ& 9QH&-Q&8wQ@&=Q0&]7P'8xQ=('9Q=';6P=';8Q8';XQ@'<Q0'<tQ'=QY'=QH'=Q2$QP2$(9QH2$(XQ2$+QX2$;qQP2$<WQH2$<XQp2$I1Q82$K8Qh2$KqQ\2$h4Q(2$iPQ2$kyQ `2%Q 2%LwQ 2%X1Q h2%XWQ `2%XYQ 2%YRP 2%[ZQ 2%\vQ H2%]9Q 02%^Q X2%^Q 2%iQ @2%i6Q `2%i;Q (2%{Q 02&xQ p2&
QQ ;Q `;=Q h;JYQ ;LzQ ;[9Q ;\Q 8;\Q 0;\Q H;\Q @;^Q `;hyQ ;8yQ ;:Q p;:Q X;<Q (;=Q x;LQ ;\Q h>%5Q >&
PQ >&
ZQ >&=xP Nh2P Nh6Q Nh6Q Nh9Q Ni4Q Nk1Q NlQ (NlPQ 0NlTP NmQ @NnQ 8NnQ NMSQ +NMP +NMYQ +NNyQ +NNKQ +OYQ 8&OX3Q H&OX:Q P&OvQ (&OKyQ &O\tQ 0&Om6Q &O|UQ &O|wP &O,1Q &O,yQ X&OL:Q @&O<)tP O<\QQ (O<j7Q O<j:Q O<lQQ O>
7Q 0O>lZQ OL8wQ OLI6Q OL\YP OMhxQ 0OMiQ OMjYQ (ON:WQ 8ON<Q ON<Q HON<Q `ON=Q @ON=8Q XON=:Q PZl;<Q (%Zl;wQ 8%ZnQQ @%Zn+5Q H%Zn+<Q 0%Zn8wQ %Zn:8Q %Zn;Q %Zn<Q X%Zn=hQ `%Zn=iQ h%Zn=iQ p%Zn=xP %ZnKQ P%ZnMQ %P <P <RP ^P )2P )7P <QP \P |TP
4P
4;ZP
4=P
5 P
6P
6=P
6YP
2P
wP
P
7P
<P
QP
VP
:P
8P
;SP
;yP
IP
i:P KP 8<P :<P ;P 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 exuP f,zP f,|P t8wP t9P t9P S@Q -1P -6P 9P 9TP >6P hzP 5P LP MP
h6P |RP 85P ;:P ;VP <P =P =P =P H1P HqP HwP IP IYP LP M3P XtP Y P Y P YRP YVP YYP YZP Z2P [P [ZP \P \}P |P .P .P .2P 4\YP 4yP 4zWP 4{VP 4|P 4|zP 5)P 5+VP 5,zP 6
rP TYP T;WP T=VP TH:P TI;P TMVP U
P U
P U
SP U
ZPJUPXUP\UP]UPkU,wP U8zP UJ6P
Uk)P
V
P V
SP V
[P<V(zP V,xP V-P
V<P V=P V=xP VIP VJ6P VK8P VLXP V\P Vi9P VlZP VxtP
VxzP l=P l\YP n2P -{P -{P -{VP .
TP .96P .=P .[VP v0P vVP vXP vqP vrP vsP vsP vtP vyP vzP vVP vP v0P vP vTP vtP
IUP
IVP
ItP
LP
LzP
MP
ivP'
jQP'
lP'~8vP ;P lP |P
=Pv|P |,TP |;P |<RP |I;P |kQP }yP }I1P }X:P }hSP ~:P ~)2P ~8:P ~\QP ~|ZP I3P IVP JWP LP LvP XpP XqP XwP YP YP YP YzP ]P ]7P KuP YVP YYP [[P lzP m7P )P )6P *WP +VP ,P ,zP 8QP 8ZP 8pP 8qP 8uP :P :3P ;6P ;8P ;VP ;ZP ;rP <QP <SP <XP <zP <}P =P =P =7P XQP XvP XyP YP YxP Z2P [P [P [P [VP \qP \xP \zP ]P ]yP $YP $$P $4P $4P $41P $4;P $4QP $4[P $4qP $4{P $5P $5P $51P $5;P $;)P $;8P %$;:P $;;P $;SP $;WP
$;yP $<5P )$<8P ($<YP $<ZP )$=VP !$HYP $HsP '$I;P
$MVP $$XYP -$XZP ,$YP $[XP +$i:P %P "%P %P #%P "%P #%qP %+P ,%-P (%8zP %J6P %KqP %MRP %XYP .%XZP -%]VP !%k(P
%k)P %yP %|qP &
2P &
P &
SP &
[P &QP &8P &(zP &,xP &-P &8wP &9P &9wP &:2P +&;P &;PP &<P &<P &< P *&<4P *&<qP &<zP &&= P '&=P &=xP &>9P &IP &J6P &K8P &LXP &MP &\P &k P %&lZP &&xtP &xzP &zP &|wP
&tj7Q ?&|qP &|vP &|*7P &|K8P &|LP &}WP &}P &}3P &~
6P '8qP '8sP '8xP '9QP '9VP '9WP '9XP '9YP '9YP '9ZP ':(P ':(P ':)P ':2P ':3P ':4P ':5P ':6P ':9P ':9P ':;P '<P '<P '<P '<P '<P '<XP
'<hP '<hP '<iP '<iP '<qP '<rP '<rP '<sP '<tP '<uP '<vP '<wP '<xP '<xP '<yP '<yP '<zP '<{P '<}P '=xP
*D A *D *A **+A *+*:A *:*;TA *;T*;yA *;y*<zA *<z*H A *H *IA *I*\YA *\Y*i@A *i@*A **yA *y* A * * pA * p* tA * t*VA *V*
VA *
V*
WA *
W*
pA *
p*
vA *
v***Z*|A *|*|A *|*}VA *}V* TA * T* TA * T*)6A *)6*)7A *)7*8 A *8 *>6A *>6*LA *L*\|A *\|*]7A *]7*i9A *i9+>{P +>{vP +>|P +>|P +>|P 2^
P 6)VP 6-3P 6:2P 6;ZP 6kP 6m7P 6|P 6+qP 6hyP 6,lP 6,lP 6,lP 6MiTQ @7P 7P 7:2P 7\YP 7m7P 7+qP 7h6P 7m6P 79P 7
2P 7
XP 7
ZP 7+@P 7-P 7-P 7-@P 7-TP 7=P 7$D+P 7$KIP 7$KJP 7$KLP 7$hqP 7$hyP 7%
RP 7%qP 7%yP 7%iQP 7%lSP 7&*2P 7&<RP 7&=rP 7&IP 7&K2P 7&L\P 7&M7P 7&|RP 7&}zP ?-3P ?I;P ?[rP B
x0P B
xpP B
xrP B
xtP B
y6P B
ypP B
z7P B
}yP BUQ vBZQ BuQ |BQ zBTQ |BH:Q wBLqQ xB9Q }BQ vB:Q }B<|Q xBnQ zB Q {B2Q uB+1Q uB=Q ~BKQ BM Q {BY5Q yB]7Q ~Bx5Q wB 5Q yB5 QP B5PP B5TP B5XP B5xP B5
P B5TP B5ZP CXwP C[yP C\P C8VP C9QP C:;P CiVP Cj9P CkXP CkxP C$P C$<P C$^P C$hwP C$lRQ C$lVQ ~C$lrQ C$lvQ ~C%X<P C%kwP C&
PmC&)2P]C&)7PhC&8wPhC&8|PnC&;PC&;P C&;P C&=P C&=zP C&\P C&|TP JP J:P J;ZP JI;P J[P J\zP J]7P J^P JkP
JyP J
P J
RP
J
[P JP JP JP
J:=P J<P J=P JJ6P JYRP
Ji9P J
PP Jn=2P Jn=3P Jn=6P Jn=7P N(xP N(zP N(zP N)3P N*QP N+1P N+4P N+6P N,P N, P N,tP N-3P N(xP N(zP N)3P N*QP N+1P N+4P N+6P N,tP N-P N-3P N8xP$N93P$N:QP$N;1P$N;4P$N;6P$N<tP$N=P$N=3P$N:D P )N<IP &N<I;P N=K{P N=h6P N>
P Nv9P Nv9P Nv<zP O$UP O$+7P O$+<P O$9P O$;P O$;7P O$;<P O$<P O$<WP O$=VP
O$H:P O$H<P O$IVP O$IYP
O%<|P O%K<P O%]VP O%]YP O%|P O& vP
O&8tP O&<P O&KP O&MVP O&]VP
O&}P O,pP O,tP O,vP O,P O4J9P O4[RP O4lP O6
P R)P R)P R)YP R,RP R,SP R-sP R4,qP R4,sP R4,}P R4;ZP R4<QP R4DP R4D+P R4DHP R4E*P R4EIP R4FP R4I7P R4K9P R4LrP R4i2P R4i8P R4i9P R4i;P R4lqP R4lsP R4lwP
R58P R59P R5=P R5=P R5=P R5=P R5=P R5H6P R5H:P R5HSP R5HVP
R5HXP R5IP R5J6P R5J:P R5KVP R5KYP R5LVP R5LzP R5MP R5MP R5MP R5UQP R5UqP R5UzP R5VP R5YP R5Z2P R5[rP R69P R6P
R6)P R6);P R6*2P R69:P R6;P R6=P R6=P R6HxP R6IP R6IP R6JP R6KP R6LRP R6LUP R6L\P R6MP R6MVP R6MvP R6[VP R6\XP R6x:P R6{P R6{P R6{P R6}P Rz%jP
R|:1P R|;qP R|;vP R|HUP R|X1P R|[P R|kP R|lVP R}P R}
P R}1P R}QP R}HxP R}HzP R}iQP R}z1P R}z8P R}}1P R}}9P R~3P R~YP R~zP
R~
}P R~+:P R~,qP R~,xP
R~-P R~9:P R~:8P R~;P R~;RP R~;xP R~=P R~H1P R~H8P R~IP R~LxP
R~z2P RwP S\zP Sj6P S
RP S)1P S<RP S=rP SHyP SH{P SIP S[VP SL9P SL9P SLJ9P SLLuP SLMP SL^P SMLP SMLP SM\P SM]P SN8P SN9P SNxP SNyP SNP SN
QP#WFLVP"j.+jP >}{woP