Trailing-Edge
-
PDP-10 Archives
-
bb-d868b-bm_tops20_v3a_2020_dist
-
3a-sources/c.unv
There are 18 other files named c.unv in the archive. Click here to see a list.
x
,
b@ P C C@ ` ;C$bP C%P C% P ` C%jBP C&
bP C&KP C' } h OP%%IA (A ,B,ADD,SUB)(AC2L{G \ f <^D35-<^L<\@RGHBT.(A)>>+<^D3\`7*<<^L<RGHBT.(A) >>/^D36>>>.(A)C2exg ` 8C:' 5@#, TXZ 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 ?x Ev=P 'EvhYQ @ ES | ] l
REPEAT ]@3,<
TXCE A,1B< B>!1B<C>
>B<FDrQP 'FDrWQ P x FE ` *Gbv ` 7G@ v` 6 OP%%CA (A ,B,)OP%%CA (AGD z R OP%%CA (A ,B,A)P%%CA (AGDP x B OP%%CA (A ,B,E)P%%CA (AGDp x` F OP%%CA (A ,B,G)P%%CA (AGDy y J OP%%CA (A ,B,GE)%%CA (AGE@ w : OP%%CA (A ,B,L)P%%CA (AGEI w` > OP%%CA (A ,B,LE)%%CA (AGE` y` N OP%%CA (A ,B,N)P%%CA (AG">
` G"\q ` G&tkg ^@ x
DEFINE ^`INFO.(OPCODE,NEWA_ RG)<
OPCODE NEW ARG> OPCODE NEWG0tyP G0tH:P G0tKP G0u@P G0uk1P G0u}:P G0v,zP G2~9 G3)T
2 G3)W
4 G3P G G3kbP G3= L ` .G8-[QP G8-[YP `G8-[ZP 'p G8-[\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
T PAGE ;(CONTINT UED ON NEXT PAGE)T@
SALL ;(COT`NTINUED FROM PREV IOUS PAGE)
REVG?P ` GHv88P GHv<Q GHv<{Q GRe+q ` GX.-7Q @ I,j7 ` "I-[w ` !I$P ` I
tQ @ I
t vQ I
t;WP `I
t;ZP ~ I
tHwP ' I
uQ I
u\qQ I
ukPQ I
ulQ @ I
uyVQ I
v
[Q I
v*Q @ I
v83Q I
v=Q ` I
v=xQ I
vN8Q 8 I
vXqQ ` I
vXzQ x I
vX|P 'I
v[WP I
v[ZP I
w+:Q I$} ` I%@ ` I%}: ` I&+ ` I
= ` I*g ` /I6= d` >
..OLD==e 10
..TYP==3
IFe E <C>+1,..TYP==0e@
IFE <C>-^O7777e`77,..TYP==1
IFE f <C>-^O777777B17,f ..TYP==2
..POS==f@POS(<C>)
..WID=f`=WID(<C>)
RADIg X 10
DF%%ST (\.g .TYP,A,<B>,\..Pg@OS,\..WID)
PURGg`E ..OLD,..TYP,..P OS,..WIDTYP,..PI ` ` 5I4: ` I4y7 ` I5KV ` #I5h6 ` I5| ` <I6
` I6:= ` I6= ` I6N8 ` I(\z h V
RADIX .[email protected]
DEFINE B (h`OPS,AC,E),<
..Ci ==0
IRP OPS,<
i IFE A-..C,<
i@ STOPI
IFN 3i`-..C, OPS <AC>,Cj 'E
IFE 3-..C,j OPS <AC>,[POINT j@E,C'E,D]
>
..C==..C+1>
P URGE ..C>
PIt<wP 'IuHxQ @ IuKP IuMRP IuyVQ @ Iv qQ Iv;QQ Iv<VP Iv=vQ @ IvN8Q ` IviZQ I
<bQ I lbP I%{P I-j"P I=BP I=KBP I=lP I>
P ILhbP ILiP ItMBP Iu"P IuLBP IvbP IvhbP Iw P I-BP I&
s@ ` 9I' 3@ ` (I'7 x OP%%IN (A ,B,DIV)%IN (AI6
:bP I6 yBP I64hBP I6MIBP I6v ` IPtMQ @ IPtM Q IPt[sP IPti9P @IPu 9P IPuxP IPunP IPuyVP IPv
Q IPv+Q IPv,
P @IPv99P IPv<Q IR)` S ` <IR, P IR,;"P V IR,HbP IR,IP IR,I"P IR,hBP IR,i"P IR-BP IR-BP IR-hbP IR-iBP IR-j"P IR-lP IR.- "P IW-j"P IW-m"P IXt qP $ IXt xP " IXt VQ IXt9Q IXtJ9Q IXtJ9Q @ IXtLTQ @ IXtLuQ IXtMQ IXu@Q IXuKSQ IXuLQ IXuT P IXuT P IXuT(P IXuT(P IXuT)P IXuT)P IXuT*P IXuT*P IXuT+P @ IXuT+P ! IXuT@P IXuT`P IXuU P 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 P KDt9TQ @ KDt9UP 'KDt9VQ x KDt9WQ KDt9XQ KDt9\Q KDtITP 'KDtIVQ x KDtIyQ x KDtJWP KDtJ[Q KDtKQ @ KDtKQ KDtKQ KDtLP 'KDtLQ x KDtLTP 'KDtNQ KDthVQ KDthqP 'KDtkQ x KDtlyQ @ KDuKP 'KDuKVQ x KDv
P 'KDv
Q x KHtZ5P KHtm6P KHuqP KHuP KHu\sQ @ KHuyVP KHv<P KHvK P KJ
YBP " KJYP " KJY"P KJiBP KJ 9P KJ%h"P KJ%i"P KJ&HBP KJ-hbP KJ-l"P
KJ5iBP KJMM"P KJN
P KJN="P KJd(bP KJek"P KJezP
KJf= ` -KJfkP
KJt9"P ` KJtXbP KJt]P KJuJ"P KK-P KK
KK iBP KK lbP KK%h"P KK&+BP KK-kBP KK=JbP KbN@ ` Kc Q
IRP A,Q@<
IF2,< IFNDEF Q`A,<EXTERN A> >> ,<EXTERN A> >>L(TQ LuQ @ L Q 9 L)6P L93Q ( L=xQ L.]7Q 0 L24Q @ L
8zQ @L Q 0 LMQ L;vQ @L{zQ L RQ @ L )Q 8@ L :7P L ; Q L ; Q L LYQ H L 1Q ( L \yQ L k`Q L
0Q 2 L% SQ 8 L%6Q @ L% uQ 8 L%\QQ 8 L%|Q 8 L&
TQ 0 L& Q 0 L&)Q 0 L&95Q 0 @L&:6Q 1 L&;1Q 8 L&=Q 8 L&=8Q 0 L&X6Q X L&YQQ 8 L'(Q P L-@ Q L-\ZQ L.P L/6Q L/ Q L/ wQ L4H2Q L4lRQ 8 L5TQ L<P L<]P L> iQ @ L><QQ 0 LDQ ( LDL Q @ LE[Q LF
Q LF;Q " H LNsP LT;wP L\(Q m L\= Q ! L](Q m L] Q @ m L]D(Q m Le@Q 0{ LexuQ ( LeytQ 0 80 Lf Ln9yQ H LnLrQ H Lt] Q H Lv8tQ Lv[ Q 0@ L~
RQ H L Q ( LHYQ LY5P @L7Q 0 L P L+qQ LzrP L-@P L8rQ L=Q ` LN:P L
;vQ L:Q ( LHPQ J LN Q @@ LX9Q L[ Q H L
Q A L< Q ( @LH`Q LMQ L ;Q @ L ;YQ @ L YQ L ] Q L i Q 0 L VQ @L HuQ : L I2Q L P L L@Q 0 L x8Q L |Q 8 L$Q L$ Q I L$ uQ H L$+Q @ L%2Q L%H1Q H@ L%J6Q L%\ Q H L&3Q @ @L&(1Q ( L&,Q L&l Q @ L' Q @ L-h6Q L4\YQ L5P Q L< Q L= Q ( LFH`Q H M&. " OP%%FA (A ,B,FADR,FSBR)AM6. ` . OP%%FP (A ,B,FDVR)FP (AM&eG [@ ^ <<A>!<<LF[`TBT.(A)>-<RGHBT. (A)>>>-<RGHBT.M&e| ` 6M0tH0Q @ M0tHvQ M0tJP 'M0tLQ x M0tLxQ M0tNQ M7. * OP%%FP (A ,B,FMPR)FP (AM<v
[Q @ MH(X6 d "
DEFINE A,<-^OB(P)>
MJ `@
OLD%%%=``=10
RADIX 8
a N%%%==0
IRP Aa ,<
FR%%AM (A,\a@<N%%%+1>)
N%%%a`==N%%%+1
>
Ab DD P,[N%%%,,N%%%]b
PUSHJ P,b
SKIPA
AOS -b`N%%%(P)
SUB P,c [N%%%,,N%%%]
Pc OPJ P,
b:
Rc@ADIX OLD%%%
PURc`GE N%%%,OLD%%%
E N%%%,OLD%%%
MJ ]7 ` #MJ,: ` MLu[QQ P MLu]vQ @ MLv,pQ - P MLv-vQ @ MLv\pQ O MLv]vQ @ MN. ` & OP%%FA (A ,B,FSBR,FADR)AMN68"P MNMI"P MNMIBP MNMKP MNl;BP MNt<bP MNtlbP MNv
, O%J7 ` O&
`
O&93 ` O&=
@ O&H1 O ` O0t= Q O ) O0tLvQ O O0tLxQ O O0u Q O0u Q @ O0uHvQ O0uHxQ O0uJ7Q O0v
IRP A,R@<
IF2,< IFDEF R`A,<INTERN A>
S IFNDEF A,<EXTERNS A>
SUPPRE A >>
SUPPRE AO>= ` ORn9g Up%g
.XCREF ZX
HRROI A,.GTZxWCH
.CREF
GE[TTAB A,
.XCR[8EF
MOVEI A,0[X
TXNN A,JW.W[xMS
TXO A,.JWW\PO_<ALIGN. (JW.WM\8S)>
TXNE A,J\XW.WCN
TXO A,J\xW.WFL
.CREF
.WFL
.CREF
ORvKG ` :OSFKG ` ;Qf@ + Qu Q Qv*7Q Qv,Q Qv-Q @ Qv-Q Qv-uQ Qv-xQ Qv-zQ Qv=xQ @ Q&\@ ` QC ` SNn @ | OP%%IN (A ,B,IDIV)IN (AS7-N ~@ t OP%%IN (A ,B,IMUL)IN (AS8 @ S:Y@
Y
$ S:
[
S:
v
* S:
( S:N@ P ^ S;] < >B<PO S(<B>)>>&<B>>S<tzP P S<t*zP P@ S<t+zP P S<tDLP P S<tI7P P@S<tI9P " S<tMP ! S<t[sP S<t[zP S S<t\YP '@ S<thyP S<u8P $ S<uI6P S<u[rP S<ulQP S<ulrP S<v9P S<v
: S? BP S?I"P S? 5 #( TXO A,<B > TXO A,<BS?%I"P S?4i"P S?5I"P S?=I"P S@t9PP @ S@t9QQ @ S@t9QP S@t9RP `S@t9VQ S@t9VP S@t9WQ S@t9XP $ S@t9YQ S@t9YQ S@t9ZQ S@t9[P " S@t9]P ! S@t<1P 'S@t<2Q x S@t<7P S@t<8P '~ S@t<8Q S@t<9P S@t<9P '~ S@t<<Q @ S@u Q S@u(1Q @ S@u+Q S@v uQ S@v:WP S@v>Q SB bP SB *"P SB *BP SB +BP SB ,P SB 9BP SB IP SB KBP SB M"P SB iBP SB l' ` 2SB lG ` 1SB lg ` 1SB m"P SB "P SB bP SB "P SB kP SB kBP SB lP SB BP SB
"P SB
BP SB P SB ,BP SB ,bP SB ."P SB KP SB YBP SB Z"P
SB \P UuHZQ UuHyQ ?p UuL|Q UuMQ UvYQ UvZPQ @ UvZQQ UvZWP 'Uv[Q Uv[6Q Uv[pQ U ] ` %Uv
ZQ ` Uv9Q U> 5 ` !U>= ` U>= ` U@t8qQ U@tLQ 0 U@t[XQ U@u
Q p U@u Q @ U@uHuQ @ U@uY:Q U@ulxQ U@v uQ U@v-Q U@v<Q U@v<Q U@vLXQ ULtIYP ULv6P ULvxP ULvyP ULv P ULv
P ULv
P ULv
TP UVn G`$Z IFE <<B>_H 1>,<
IFE <B>,<
JUMP A,D
>
H@IFN <B>,<
IFE <H`<C>&<B>>,<
JUI MPL A,D
>
IFNI <<C>&<B>>,<
I@JUMPGE A,D
>>>I`
IFN <<B>1>,<
TXCA A,<<C>&<J B>>
JRST .+5
J@ TXCE A,<<C>&<J`B>>
JRST D
TK XNE A,<<-<C>-1>K &<B>>
JRST D
>>>
JRST D
' C`$:
IFE <<BD >_1>,<
IFE <B>,D <
JUMPA A,D
D@>
IFN <B>,<
IFD`E <<C>&<B>>,<
E JUMPGE A,D
>E
IFN <<C>&<B>>,E@<
JUMPL A,D
E`>>>
IFN <<B>_1>F ,<
TXCA A,<<CF >&<B>>
JRST .+F@5
TXCE A,<<C>F`&<B>>
JRST .+3G
TXNN A,<<-<CG >-1>&<B>>
JRST D
>>>
JRSTUVn
K`%
IFDIF <L B><C>,<
JFCL 1L ,.+1
JRST .+1L@
IFNB <B>,< JL`FCL 1,B
MIFNB M <C>,<IFIDN <C><M D>,<IFIDN <D><M@E>,< JRST C>>>>
IFB <B>,< JFCL N 1,i
IFIDN <CN ><D>,<IFIDN <D>N@<E>,< JRST C>>>N`
>
IFDIF <C>O <D>,<
HRLOI AO ,-2
IFNB <C>,O@< AOBJP A,C
O`IFNB <D>,<IFIDN P <D><E>,<JRST DP >>>
IFB <C>,<IFP@DIF <D><E>,<AOBP`JP A,i>
IQ FIDN <D><E>,<AOQ BJN A,D>>
>
Q@
IFDIF <D><E>,<Q`
IF2,<IFE A,<PR RINTX ? A MUST BR E NON-ZERO IN JUMR@PPT>>
MOVEI A,R`0
BLT A,0
IFNB <D>,< JUMPS E A,D
IFNB <S@E>,< JRST E>>
S`IFB <D>,< JUMPN T A,E>
>
i: A,E>
>
i:U\vx6Q Y ?@ U\vxwQ Y U\vyQ Y U\vyQ Y U\vy Q Y K U\vyVQ P U\v{9Q Y U\v{:Q P @ U\v|Q Y U\v|WQ P U\v}YQ Y U\v}zQ P Y$- [ X <1B<^L<A> >> <1B<^L<A>Y tQ x Y&=
C@ k \ B (<MOVEk@,HRRZ,HLRZ,LDB>,< A>,<C>)LDB>,<Y> ` Y> 0 ` Y>=@ ` Y>=}: ` Y>}=8 @ YO%yG U 2
IFNDEF U@LSTIN., LSTIN.==0U`
IFE LSTIN.,<
V IFB <A>, .XCREF
XLIST>
LSTIN .==LSTIN.+1
INYO%{G V` <
IFG LSTIW N., LSTIN.==LSTINW .-1
IFLE LSTIN.,W@< .CREF
LIST>
CREF
LIST> Z P <<<1<A>> -1>B<B>><A>>[
v=Q ~ [
v\pQ [
vx5Q @ [LP [L BP [L=P [MIBP [MX"P [N
P [KP [h"P [$\G ` $[>v- b [?7 n
.XCREF
TEST%%=0
IFE <n@<B>_-^D18>,<
Tn`EST%%=1
.CREF
o MOVEI A,<B>
o .XCREF
>
IFN <o@B>,<
IFE <<B>_^o`D18>,<
TEST%%=1p
.CREF
MOVSI p A,(B)
.XCREF
>
IFE <<<B>-^p`D18>-^O777777>,<
TEST%%=1
.CREq F
HRROI A,<B>q@
.XCREF
>
IFEq` TEST%%,<
IFE <<r <B>_^D18>-^O7777r 77B17>,<
TEST%%r@=1
.CREF
HRLOr`I A,(<B>-^O7777s 77)
.XCREF
>
s IFE TEST%%,<
.Cs@REF
MOVE A,[Bs`]
>>>
PURGE TE ST%%
.CREF TE[@t[QQ @ [@v=Q ~ [@v\pQ [O%2 ` [Pr}P [Pt qQ x [Pt<QP '~ [PtI7P [PuhyP `[Pv{P [R
G ` %[R$Xg @ [R-yG @ [R-} @ [RMh"Q [RMi @ [RMnQ [RfJ @ @[S]g @ [S 9G @ [S <G @ [S-k @ [S< @ [Vg ~ p OP%%IN (A ,B,MUL)%IN (A[ZDLBP [ZDLG ` ,] N r
IFNDEF A,<A==B>
F ]LP ]MkBP ]uHbP ]uh"P ]-BP ]nBP ]` O@ ~
IFNDEF O`A,<A==B>
SHO W. (A)
SHO]%y"P ]>$S@ ` 7]Rt P ]Rv9P ]S%hbP _@(Xp z` d
.XCREF
IFE <<B>_-^D18>{ ,<
.CREF
CAI{@C A,<B>
.XCRE{`F
>
IFN <<B>_-| ^D18>,<
.CREF
| CAMC A,[B]
|@.XCREF
>
.CREF CREF
>
.CREF_@(YP B
.XCREF
IFE <<<B>_^D18>`-^O777777B17>,<
.CREF
DI A,( -<B>)
.XCREF
@>
IFN <<<B>_^D1`8>-^O777777B17>,<
OP%%FP A,<B> ,C
>
.CREF
C
>
.CREF
_@(YX ` R
.XCREF
IFE <<B>_^D18>, <
.CREF
CI @A,(B)
.XCREF
`>
IFN <<B>_^D18
>,<
.CREF
C
A,[B]
.XCREF
>
.CREFCREF
.XCREF
IFE <<<B>_-^D18 @>-^O777777>,<
. `CREF
DI A,-< B>
.XCREF
>
I FN <<<B>_-^D18>-@^O777777>,<
OP%`%IN A,<B>,C
>
.CREF>,C
>_@(Z7
.XCREF
IFE <<B>_-^D18>`,<
.CREF
CI A,<B>
.XCREF
>
IFN <<B>_-^D@18>,<
.CREF
`C A,[B]
.XCRE F
>
.CREFCRE_@(] 0@#$
.XCREF
IFN <<A>&^O77771 77777760>, PRINTX1 ? A IS NOT AN A1@CCUMULATOR
TE1`MP%%=0
IFE <<B>2 _^D18>,<
IFN <B2 >,<
TEMP%%=1
[email protected]
C A,(B2`)
.XCREF
>>
I3 FE <<B>_-^D18>,<3
TEMP%%=1
.CR3@EF
D A,<B>
3` .XCREF
>
IFE T4 EMP%%,<
.CREF
4 E A,[B]
>
4@PURGE TEMP%%
.C REF TEMP%%
.C_B-`
RF\y ` W ` W$-3
" W&=
& atx0Q atx3Q @ atx=Q atxrQ atxxQ atzQ @ at{Q at{QQ at{RQ @ at|Q at|RQ at|pQ at|tQ at|vQ at|xQ 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
t Q 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-0 Q ` au QP 'au
Q x a&Mj' ` .a'= ` 0a' G ` 0a' g ` /a*n r 5 a*n 4` a*| `
a+= J + a+= + a+ J -P a+-\ 4@ a+-\ K 5` a+-\ 4a a+-\ K 5@ a>Mm Y L <POINT WIDY@(B),A,POS(B)> B),A,POS(B)>a>\S@ L ` &a?H6 L + a? X@ F <^L<A>+^LX`<-<<A> <^L<A>>> -1>-1><^L<A>>>aJ v,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 aPu P aPuJ1P aPuKuP aPui;P aPv8wP aPv;P `aPv;[P aPv<QP aPv<|P aPv>9P etrP et P et;wP ' et<RP et<ZQ p et<\P ' eu[rQ eulrP $ ev
[Q ` ev[TQ x e<t ` e$YG _@
DEFINE _`INFO.(OPCODE,NEWA` RG)<
OPCODE <A
NEWARG>> <AedX9 el ` et2 e 87
0 e MG ` 'e ] ` e D- Z@ T <<A>&-<A >> <<A>&-<Ae tP 'e4v9Q e4v=8Q x e@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 eS I"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@ N` x .XCREF
O EXP <A>
.ORG . -1
.CREFG .g/Q
6 g/V
8 g0tP 'g0uX1Q x g0uX<Q ` g0vN8Q g2,\ `
g8,}Q g8-KuQ g8-YQ g8-hyQ g8.:Q g8.< Q @ g8.]xQ 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- Q gP-KsQ gP-XRP gP-XSQ gP-Y9P gP-\QQ gP-\sP gP-h9Q gP-hyQ gP-iP $ gP-i9Q 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 p gP.MyQ gP.k9P gP/
P " gPtzQ x gPtP 'gPt<Q @ gPt RQ gPt :Q gPt yQ gPvrP gPvlsP $ gPvx6P #| gPvxwQ gPvyP gPvyP gPvy P " gPvyVQ gPv{9Q gPv{:P gPv|Q gPv|WP ! gPv}YP gPv}zP @ gRK`
gRN@
` gR~#@ l b B (<MOVEl M,HRRM,HRLM,DPB>, <A>,<C>)DPB>,gR~) t 2
IFE <D>t@,< SETZM B>
IFt`E <D>+1,< SETOM u B>
IFN <D>*<<u D>+1>,<MOVX A,<u@D>
MOVEM u`A,B>
IFNB <Cv >,<
MOVE A,v [B,,B+1]
BLT A,C
> BLT gS]7 ` gTv8VQ gTv8tQ gTv;7Q gTv;zQ gV }@ l OP%%IA (A ,B,SUB,ADD)(AgW ] ` 3gW lQ gX,;wQ gX,lP gX-
9Q @ gX.
P gX.)8Q ` gX.:Q gX.>6Q gX.|ZQ g^NHt ` gg
` gg = ` i| ` 6it+zP " itKHP itKIP itKIP itKJP itKJP iuyVP iv);P @ iv96P iv=P iv[YP $ iv{P ! i&l\@ ` i7;y ` i<t1P ?@i<tqQ ?@ i<t47Q i<t8:Q i<t8ZQ i<t8zQ i<t:Q @ i<t<Q i<tXyQ i<uK6Q @ i<uM6Q i<u[5P ?i<uxyQ i<v=Q i<vKpQ i>
HBP i>%P i>M\P i?(bP i?xBP i?%h"P iB
<BP iB
<bQ iB ,bP iB.HbP iBLhbP iBM+BP iBf)BP iBf:"P iBu"P iBuLP iBu]P iC-BP iC5|BP iJmkg ` &iJm| ` 'iK)7 ` iK9: `
ib #
.XCREF
IFB <B>, TXC (<,`^O37777777&A>,1B- <A_-^D30>)
IFNB- <B>,<
IFN <<A-@>&^O777777777760>-`, PRINTX ? A IS . NOT AN ACCUMULATO. R
IFE <<<B>_-^D.@18>-^O777777>,<
.` .CREF
EQVI A,/ <,,-1-<B>>
.XC/ REF>
IFN <<<B>_/@-^D18>-^O777777>,/`<
OP%%TX A,<B0 >,TLC,TRC,TDC
>> .CREFC,TDC
>>ib *@"`
.XCREF
IFB <B>, OP%%T+ X <^O37777777&A>+ ,1B<A_-^D30>,TLC+@A,TRCA,TDCA
IFNB+` <B>, OP%%TX A,, <B>,TLCA,TRCA,TD CA
.CREF
,TDib P &@"@
.XCREF
IFB <B>, OP%%T' X <^O37777777&A>' ,1B<A_-^D30>,TLC'@E,TRCE,TDCE
IFNB'` <B>, OP%%TX A,( <B>,TLCE,TRCE,TD CE
.CREF
,TDib ` (@"P
.XCREF
IFB <B>, OP%%T) X <^O37777777&A>) ,1B<A_-^D30>,TLC)@N,TRCN,TDCN
IFNB)` <B>, OP%%TX A,* <B>,TLCN,TRCN,TD CN
.CREF
,TDibp
` Z
IFB <B> , JFCL 0
IFNB < B>, TRN A,<,,<B >>
N A,<,,<Bibt @!P
.XCREF
IFB <B>, OP%%T X <^O37777777&A> ,1B<A_-^D30>,TLN@A,TRNA,TDNA
IFNB` <B>, OP%%TX A, <B>,TLNA,TRNA,TD NA
.CREF
,TDibtC@ @ $
IFE <<B@@>_<1+^L<B>>>,<
@`IFE <<B>&<C>>,<A
TXNN A,<B>
A >
IFN <<B>&<C>A@>,<
TXNE A,<BA`>
>>
IFN <<B>_B <1+^L<B>>>,<
TB XCA A,<<C>&<B>B@>
JRST .+4
TXB`CE A,<<C>&<B>>C
JRST .+3
TXNC N A,<<-<C>-1>&< B>>
>C>-1>&<ibtP @!0
.XCREF
IFB <B>, OP%%T X <^O37777777&A> ,1B<A_-^D30>,TLN@E,TRNE,TDNE
IFNB` <B>, OP%%TX A, <B>,TLNE,TRNE,TD NE
.CREF
,TDibu@ <`#~
IFE <<B= >_<1+^L<B>>>,<
= IFE <<B>&<C>>,<=@
TXNE A,<B>
=`>
IFN <<B>&<C>> >,<
TXNN A,<B> >
>>
IFN <<B>_>@<1+^L<B>>>,<
T>`XCA A,<<C>&<B>? >
JRST .+4
TX? CE A,<<C>&<B>>?@
JRST .+2
TXN?`E 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,TD NN
.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%%T% X <^O37777777&A>% ,1B<A_-^D30>,TLO%@A,TROA,TDOA
IFNB%` <B>, OP%%TX A,& <B>,TLOA,TROA,TD OA
.CREF
,TDib|P @"
.XCREF
IFB <B>, OP%%T! X <^O37777777&A>! ,1B<A_-^D30>,TLO!@E,TROE,TDOE
IFNB!` <B>, OP%%TX A," <B>,TLOE,TROE,TD OE
.CREF
,TDib}` "@"
.XCREF
IFB <B>, OP%%T# X <^O37777777&A># ,1B<A_-^D30>,TLO#@N,TRON,TDON
IFNB#` <B>, OP%%TX A,$ <B>,TLON,TRON,TD ON
.CREF
,TDicP ` |
.XCREF
IFB <B>, TXZ (<
^O37777777&A>,1B
@<A_-^D30>)
IFNB
` <B>,<
IFN^<<A77777760> R
IFE <<<B>7-^D<
.CREF
ANDI A,@<,,-1-<B>>
.XC`REF>
IFN <<<B>_ -^D18>-^O777777>, <
OP%%TX A,<B@>,TLZ,TRZ,TDZ
>> .CREFZ,TDZ
>>icT @"
.XCREF
IFB <B>, OP%%T X <^O37777777&A> ,1B<A_-^D30>,TLZ @A,TRZA,TDZA
IFNB ` <B>, OP%%TX A, <B>,TLZA,TRZA,TD ZA
.CREF
,TDicTP @!`
.XCREF
IFB <B>, OP%%T X <^O37777777&A> ,1B<A_-^D30>,TLZ@E,TRZE,TDZE
IFNB` <B>, OP%%TX A, <B>,TLZE,TRZE,TD ZE
.CREF
,TDicU` @!p
.XCREF
IFB <B>, OP%%T X <^O37777777&A> ,1B<A_-^D30>,TLZ @N,TRZN,TDZN
IFNB ` <B>, OP%%TX A, <B>,TLZN,TRZN,TD ZN
.CREF
,TDidt VQ idtI;P idtZQ idu@Q iduZQ @ idu+qP '~ iduX7Q @ iduYQ idu\ Q idu}:Q idv(9P idv<Q idvh9Q if` ;@#b
MOVX A;`,1B<B_-^D30>
.< XCREF
<XORM A,< >!<37777777&B>
.CREF
7&B>
iftS@ 6@#:
MOVX A6`,1B<B_-^D30>
.7 XCREF
<TDNE A,7 >!<37777777&B>
.CREF
7&B>
ifuc@ 7`#D
MOVX A8 ,1B<B_-^D30>
.8 XCREF
<TDNN A,8@>!<37777777&B>
.CREF
7&B>
ify` 9 #N
MOVX A9 ,1B<B_-^D30>
.9@XCREF
<IORM A,9`>!<37777777&B>
.CREF
7&B>
igQ` : #X
MOVX A:@,1B<B_-^D30>
.:`XCREF
<ANDCAM ; A,>!<37777777&B>
.CREF
7&B>k .I@ ` k*-` k:ezg ` (kN.J kN.K` kS; ` kTt7Q kTt*XQ kTtI6Q kTtI9Q kTuQQ kTv
Q @ kTv
P " kTv;rQ k`vN8P ~ k`v[ZP mHtYP 'mHuZ7Q x mHvi9Q | mHvzQ p mK c@ M l BYTE (3)AM@WHO (9)AVER (6) AMIN (18)AEDToN@ ` o\P ` o".) ` o& X @ <^L<-<<A> _<^L<A>>>-1>>>q? 6 #0 TXC A,<B > TXC A,<Bq@ P
INTERN P@A
IFB <C>,<P`A==B>
IFNB <C >,<A=B>
<CqRuMP qS&:g ` *qS-mP us@ l` l B (<SETZm M,HLLZS,HRRZS,<PRm INTX ?CAN'T ZERO m@BYTE>>,<A>,<C>) TE>>,<A>,<C>)
Q ( o
.[yQ ( o J|Q ` XYQ h KsQ XYQ p \Q 8 nQ x zxQ 9Q P
Q ( X -Q @ -Q H 99Q KyQ N8Q 0 n{Q % n Q % n :P % t+7Q P t+<Q H t+VQ h t- Q H t8tQ x t:Q 8 t=WQ @ tH:Q H tH<Q tHSQ ( tIQ 8 tI;Q ` tIQQ P tKQ p tLqQ h tMQ ( tMQ 0 tMQ X tMWQ H t]Q t^Q ( tihP tihQ tiiQ tiiQ tijQ tlRQ tlZQ 0 t{:Q u Q @ u yQ u
Q ` u
vQ u
wQ uIQ h uIQ uKQ uK<Q @ uKVQ ` uKXQ X uKYQ P uKqQ uLrQ uY9Q uZ7Q uZ8Q x u[<Q p u[ZQ P u[wQ x u]WQ p uiQ ( ulqQ x ulvQ umqQ unQ uxxQ ` uxyQ X u|Q 0 u|Q X v Q ( v yQ h v
0Q H v
6Q @ v
6Q 8 v uQ v-Q X v91Q v99Q v9zQ v:=Q P v:WQ h v= Q 0 v=Q ( v=Q x vH8Q 8 vHvQ 8 vIQ P vJ1Q vJ6Q @ vJqQ 0 vMQ @ vMQ 8 vMQ H vMyQ p v]Q vi9Q ` vz Q w9Q p 4PQ @ 4QQ 8 49Q 4,Q p 491Q 4;Q p 4;Q x 4<WQ 4<rQ 4<wQ h 4YQ 4]Q ` 4]VQ 4]ZQ 5
Q P 5+qQ 5JYQ H 5KQ ( 5LzQ P 5[PQ X 5\Q x 5\Q p 5\Q 5\Q 5h0P 5hyP 5jPQ P 5kP 5k9P 5kpP 5lQ 5lqP 5mQ h 5mP 5m2P 5m6Q x 5zQ 60P 61P 6wQ 6yP 6 [Q H 6 P 6 9P 6 pP 6 qP 6
Q @ 6
qP 6 6 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 p 64Q ( 640Q 8 68HQ 68HQ 0 6;RQ H 6<Q h 6<Q X 6=Q h 6HRQ x 6IrQ 6JQQ 8 6KRQ @ 6LQ ` 6M1Q 0 6\Q (
Q +
I8Q ( +
LyQ +
\yQ + $qQ $;vQ $I1Q ( $LiQ X $LuQ 8 $\YQ & )Q P & 9Q H &-Q &8wQ @ &= Q ` &=Q 0 &]7P '8xQ > ( '9Q > ';6P I ';8Q 8 ';XQ @ '<Q 0 '<tQ '=Q [ '=Q H '=Q 2$zQ H 2$Q P 2$ Q P 2$(9Q H 2$(XQ 2$+Q X 2$9Q ( 2$;qQ P 2$;yQ p 2$<WQ H 2$<XQ p 2$=Q 8 2$EHQ 2$HYQ 2$I1Q 8 2$I9Q 0 2$K8Q h 2$KqQ 2$KyQ h 2$XzQ X 2$\ZQ 2$^Q 2$h4Q ( 2$iPQ 2$kyQ ` 2$x6Q @ 2% Q 2%ZQ x 2%LwQ 2%MQ 2%X1Q h 2%XWQ ` 2%XYQ 2%YRP 2%Z1Q ( 2%[ZQ 2%\vQ H 2%]9Q 0 2%^Q X 2%^Q 2%iQ @ 2%i6Q ` 2%i;Q ( 2%{Q 0 2& xQ p 2&
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 ;$ SQ 0 ;$(2Q 0 ;$+Q P 0 ;$;yP 0 ;%X<Q 0 ;&)Q 0 0 ;&+:Q ( 0 ;&-Q 0 ;' Q H 0 ;' :Q @ 0 ;'
PQ >&
ZQ >&=xP N h2P N h6Q N h6Q N h9Q N i4Q N k1Q N lQ ( N lPQ 0 N lTP N mQ @ N nQ 8 N nQ NLzQ 8 + NLiQ ( + NMSQ + NM P + NMYQ + NMYQ 0 + NM|Q @ + NN yQ + NNKQ + O YQ 8 & O X3Q H & O X:Q P & O vQ ( & O KyQ & O \tQ 0 & O m6Q & O |UQ & O |wP & O ,1Q & O ,yQ X & O L:Q @ & O<)tP O<\QQ ( O<j7Q O<j:Q O<lQQ O>
7Q 0 O>lZQ OL8wQ OLI6Q OL\YP OMhxQ 0 OMiQ OMjYQ ( ON:WQ 8 ON<Q ON<Q H ON<Q ` ON=Q @ ON=8Q X ON=:Q P Zl;<Q ( % Zl;wQ 8 % ZlJ3Q % Zl^Q x % Zm Q % Zm^Q % 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 % Zn\Q % Zn\Q % P <P <RP ^P )2P )7P <QP HtP LRP \P |TP
4P
4;ZP
4=P
5 P
6P
6=P
6Y P
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@P -1P -6P 9P 9TP 9YP <XP >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 \JP \JP \KP \jP \}P |P .P .P .2P 44LP 45JP 46*P 4MVP 4[[P 4\YP 4yP 4zWP 4{VP 4|P 4|zP 5{P 5(VP 5)P 5+VP 5,zP 5KP 6zP 6
rP 6)P 6)9P 6h9P 6mP 6mP 6mP TYP T;WP T=VP TH:P TI;P TMVP U
P U
P U
SP U
ZP J U P X U P \ U P ] U P k U,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 n 2P $XvP $Y1P $YSP $YYP $YYP $YsP $YyP $Z3P $[7P $[sP $\P $\QP $\UP $\ZP $\[P $\zP $]P -{P -{P -{VP .
TP .96P .=P .[VP v0P vVP vXP vqP vrP vsP vsP vtP vyP vzP vVP vP v0P v P v TP v tP
IUP
IVP
ItP
LP
LzP
MP
ivP '
jQP '
lP '~ 8vP ;P lP |P <P <qP KP LRP MP [sP P
0P 9P ;P
LP X3P YP \P \qP \rP nP ySP ~ 3P H8P LP \qP z P
= P dHpP dIP dJ1P dKqP dLP dNP | P |,TP |;P |<RP |I;P |KP |kQP }yP }I1P }X:P }hSP ~:P ~
P ~
RP ~)2P ~+VP ~8:P ~\QP ~\tP ~\wP ~|ZP ;`P I3P IVP JWP LP LvP LwP XpP XqP XwP YP YP YP YzP ]P ]7P hwP KuP YVP YYP [[P lzP m7P
P
; )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
$IVP 0 $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 %mP 0 %yP %|qP &
2P &
P &
SP &
[P &QP & 8P &(zP &)P / &)P . &)WP / &,xP &-P &8wP &9P &9wP &:2P + &;P &;PP &<P 1 &<P &<P &< P * &<4P * &<qP &<zP & &= P ' &=P &=xP &>9P &IP &J6P &K8P &LXP &M P &\P &]1P 2 &jyP 1 &k P % &lZP & &xtP &xzP &z P &|wP
&tj7Q ? &| qP &| vP &|*7P &|.:P &|K8P &|LP &}WP &}P &}3P &~
6P 8 '81P 8 P '8xP '9QP '9VP '9WP '9XP '9YP '9YP '9ZP ':(P ':(P ':)P ':2P ':3P ':4P ':5P ':6P ':9P ':9P ':;P ';wP
'<hP '<hP '<iP '<iP '<qP '<rP '<rP '<sP '<tP '<uP '<vP '<wP '<xP '<xP '<yP '<yP '<zP '<{P '<}P '=P
'=7P
'=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 6 kP 6 m7P 6 |P 6 +qP 6 hyP 6,lP 6,lP 6,lP 6MiTQ @ 7P 7 P 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$8yP 7$<RP 7$=yP 7$D+P 7$EIP 7$KIP 7$KJP 7$KLP 7$i9P 7%
RP 7%RP 7&)1P 7&*2P 7&- P 7&<RP 7&=rP 7&IP 7&K2P 7&M7P 7&|RP :$P :&(VP :&(tP :&+WP :&<vP ?-3P ?I;P ?[rP B
x0P B
xpP B
xqP B
xrP B
xtP B
y6P B
ypP B
z7P B
}yP B UQ v B ZQ B uQ | B Q z B TQ | B H:Q w B LqQ x B 9Q } B Q v B :Q } B <|Q x B i:Q t B nQ z B Q { B 2Q u B +1Q u B =Q ~ B KQ B M Q { B Y5Q y B ]7Q ~ B x5Q w B 5Q y B5 QP B5 PP B5 TP B5 XP B5 xP B5
P B5TP B5ZP C)2P C)9P C9:P C=P C=P C XwP C [yP C \P C 8VP C 9QP C :;P C iVP C j9P C kXP C kxP C$ P C$<P C$^P C$hwP C$lRQ C$lVQ ~ C$lrQ C$lvQ ~ C%X<P C%kwP C&
P m C&)2P H C&)7P ] C&8wP h C&8|P h C&9RP n C&;P C&;P C&;P C&;P C&=P C&=zP C&\P C&|TP JiP JiP JjP JjP JkP JkP JlP JzP JP J :P J;ZP JI2P JI;P J[P J\zP J]7P J^P JkP
J yP J
P J
RP
J
[P J P J P J P
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 N 8xP $ N 93P $ 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 Ne P Ne P Ne P Ne P Nej1P 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$I3P
O%
zP < 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+zP R4,qP R4,sP R4,}P R4;6P
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 R5xP R5=P R5=P R5=P R5=P R5=P R5= P R5H6P R5H:P R5HSP R5HVP
R5HXP R5IP R5J6P R5J:P R5KVP R5KYP R5LP R5UzP R5VP R5YP R5YQP
R5Z2P R5[rP R69P R6 P
R6
rP R6)P R6);P R6*2P + R69:P R6;P R6;6P 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|;P
R|;qP R|;vP R|HUP R|LsP R|LxP
R|LyP
R|X1P R|[P R|kP R|lVP R|{9P R|{9P R} P R}
P R}1P R}QP R} qP R}HxP R}HzP R}KsP 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~;9P R~;RP R~;xP R~=P R~H1P R~H8P R~I P R~LxP
R~N8P R~z2P R wP S 8yP S <RP S =yP S i9P S j6P S
RP S RP S )1P S *2P S - P S <RP S =rP S IP S K2P S M7P SL9P SL9P SLElP
SLJ9P S SLLuP S SLMP SL^P SMLP SMLP SMXyP SM\ P SM]P SN8P SN9P SNxP SNyP SN P SN
SNM P SN} P WD:P WF
QP # WFLVP " j.+jP >}{woP