Trailing-Edge
-
PDP-10 Archives
-
bb-d868a-bm
-
3-sources/c.unv
There are 18 other files named c.unv in the archive. Click here to see a list.
x
, r
b@ P C C@ ` ;C$bP C%P C% P ` C%jBP C&
bP C&KP C' w 9 OP%%IA (A ,B,ADD,SUB)(AC2L{G V8 7 <^D35-<^L<VXRGHBT.(A)>>+<^D3Vx7*<<^L<RGHBT.(A) >>/^D36>>>.(A)C2exg ` 8C:' /X"} 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 | W8 =
REPEAT WX3,<
TXCE A,1B< B>!1B<C>
>B<FDrQP 'FDrWQ P x FE ` *Gbv ` 7G@ px OP%%CA (A ,B,)OP%%CA (AGD t8 # OP%%CA (A ,B,A)P%%CA (AGDP r8 OP%%CA (A ,B,E)P%%CA (AGDp rx OP%%CA (A ,B,G)P%%CA (AGDy s8 OP%%CA (A ,B,GE)%%CA (AGE@ q8 OP%%CA (A ,B,L)P%%CA (AGEI qx OP%%CA (A ,B,LE)%%CA (AGE` sx OP%%CA (A ,B,N)P%%CA (AG">
` G"\q ` G&tkg XX I
DEFINE XxINFO.(OPCODE,NEWAYRG)<
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
N PAGE ;(CONTINN8UED ON NEXT PAGE)NX
SALL ;(CONxNTINUED 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= ^x
..OLD==_10
..TYP==3
IF_8E <C>+1,..TYP==0_X
IFE <C>-^O7777_x77,..TYP==1
IFE `<C>-^O777777B17,`8..TYP==2
..POS==`XPOS(<C>)
..WID=`x=WID(<C>)
RADIaX 10
DF%%ST (\.a8.TYP,A,<B>,\..PaXOS,\..WID)
PURGaxE ..OLD,..TYP,..P OS,..WIDTYP,..PI ` ` 5I4: ` I4y7 ` I5KV ` #I5h6 ` I5| ` <I6
` I6:= ` I6= ` I6N8 ` I(\z b8 '
RADIX .bX.OLD
DEFINE B (bxOPS,AC,E),<
..Cc==0
IRP OPS,<
c8 IFE A-..C,<
cX STOPI
IFN 3cx-..C, OPS <AC>,Cd'E
IFE 3-..C,d8 OPS <AC>,[POINT dXE,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 y I 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 K8 _
IRP A,KX<
IF2,< IFNDEF KxA,<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&. ~8 s OP%%FA (A ,B,FADR,FSBR)AM6. x OP%%FP (A ,B,FDVR)FP (AM&eG UX / <<A>!<<LFUxTBT.(A)>-<RGHBT. (A)>>>-<RGHBT.M&e| ` 6M0tH0Q @ M0tHvQ M0tJP 'M0tLQ x M0tLxQ M0tNQ M7. 8 { OP%%FP (A ,B,FMPR)FP (AM<v
[Q @ MH(X6 ^8 s
DEFINE A,<-^OB(P)>
MJ ZX o
OLD%%%=Zx=10
RADIX 8
[N%%%==0
IRP A[8,<
FR%%AM (A,\[X<N%%%+1>)
N%%%[x==N%%%+1
>
A\DD P,[N%%%,,N%%%]\8
PUSHJ P,b
SKIPA
AOS -\xN%%%(P)
SUB P,][N%%%,,N%%%]
P]8OPJ P,
b:
R]XADIX OLD%%%
PUR]xGE N%%%,OLD%%%
E N%%%,OLD%%%
MJ ]7 ` #MJ,: ` MLu[QQ P MLu]vQ @ MLv,pQ - P MLv-vQ @ MLv\pQ O MLv]vQ @ MN. ~x w 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,LX<
IF2,< IFDEF LxA,<INTERN A>
MIFNDEF A,<EXTERNM8 A>
SUPPRE A >>
SUPPRE AO>= ` ORn9g P%9
.XCREF Tp
HRROI A,.GTUWCH
.CREF
GEU0TTAB A,
.XCRUPEF
MOVEI A,0Up
TXNN A,JW.WVMS
TXO A,.JWWV0PO_<ALIGN. (JW.WMVPS)>
TXNE A,JVpW.WCN
TXO A,JWW.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 yX M OP%%IN (A ,B,IDIV)IN (AS7-N xX E OP%%IN (A ,B,IMUL)IN (AS8 @ S:Y@
Y
$ S:
[
S:
v
* S:
( S:N@ P X 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? /"y 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 Ax$+ IFE <<B>_B1>,<
IFE <B>,<
JUMP A,D
>
BXIFN <B>,<
IFE <Bx<C>&<B>>,<
JUCMPL A,D
>
IFNC8 <<C>&<B>>,<
CXJUMPGE A,D
>>>Cx
IFN <<B>1>,<
TXCA A,<<C>&<D8B>>
JRST .+5
DX TXCE A,<<C>&<DxB>>
JRST D
TEXNE A,<<-<C>-1>E8&<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>@,<
TXCA A,<<C@8>&<B>>
JRST .+@X5
TXCE A,<<C>@x&<B>>
JRST .+3A
TXNN A,<<-<CA8>-1>&<B>>
JRST D
>>>
JRSTUVn
Ex$q
IFDIF <FB><C>,<
JFCL 1F8,.+1
JRST .+1FX
IFNB <B>,< JFxFCL 1,B
GIFNB G<C>,<IFIDN <C><G8D>,<IFIDN <D><GXE>,< JRST C>>>>
IFB <B>,< JFCL H1,i
IFIDN <CH8><D>,<IFIDN <D>HX<E>,< JRST C>>>Hx
>
IFDIF <C>I<D>,<
HRLOI AI8,-2
IFNB <C>,IX< AOBJP A,C
IxIFNB <D>,<IFIDN J<D><E>,<JRST DJ8>>>
IFB <C>,<IFJXDIF <D><E>,<AOBJxJP A,i>
IKFIDN <D><E>,<AOK8BJN A,D>>
>
KX
IFDIF <D><E>,<Kx
IF2,<IFE A,<PLRINTX ? A MUST BL8E NON-ZERO IN JUMLXPPT>>
MOVEI A,Lx0
BLT A,0
IFNB <D>,< JUMPM8E A,D
IFNB <MXE>,< JRST E>>
MxIFB <D>,< JUMPN NA,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$- U ) <1B<^L<A> >> <1B<^L<A>Y tQ x Y&=
C@ e8 - B (<MOVEeX,HRRZ,HLRZ,LDB>,< A>,<C>)LDB>,<Y> ` Y> 0 ` Y>=@ ` Y>=}: ` Y>}=8 @ YO%yG O8
IFNDEF OXLSTIN., LSTIN.==0Ox
IFE LSTIN.,<
PIFB <A>, .XCREF
XLIST>
LSTIN .==LSTIN.+1
INYO%{G Px
IFG LSTIQN., LSTIN.==LSTINQ8.-1
IFLE LSTIN.,QX< .CREF
LIST>
CREF
LIST> T ! <<<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 h o
.XCREF
TEST%%=0
IFE <hX<B>_-^D18>,<
ThxEST%%=1
.CREF
i MOVEI A,<B>
i8.XCREF
>
IFN <iXB>,<
IFE <<B>_^ixD18>,<
TEST%%=1j
.CREF
MOVSI j8A,(B)
.XCREF
>
IFE <<<B>-^jxD18>-^O777777>,<
TEST%%=1
.CREk8F
HRROI A,<B>kX
.XCREF
>
IFEkx TEST%%,<
IFE <<l<B>_^D18>-^O7777l877B17>,<
TEST%%lX=1
.CREF
HRLOlxI A,(<B>-^O7777m77)
.XCREF
>
m8IFE TEST%%,<
.CmXREF
MOVE A,[Bmx]
>>>
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 x A OP%%IN (A ,B,MUL)%IN (A[ZDLBP [ZDLG ` ,] H8 C
IFNDEF A,<A==B>
F ]LP ]MkBP ]uHbP ]uh"P ]-BP ]nBP ]` IX O
IFNDEF IxA,<A==B>
SHO W. (A)
SHO]%y"P ]>$S@ ` 7]Rt P ]Rv9P ]S%hbP _@(Xp tx 5
.XCREF
IFE <<B>_-^D18>u8,<
.CREF
CAIuXC A,<B>
.XCREuxF
>
IFN <<B>_-v^D18>,<
.CREF
v8 CAMC A,[B]
vX.XCREF
>
.CREF CREF
>
.CREF_@(YP 8
.XCREF
IFE <<<B>_^D18> x-^O777777B17>,<
.CREF
DI A,(8-<B>)
.XCREF
X>
IFN <<<B>_^D1x8>-^O777777B17>,<
OP%%FP A,<B>8,C
>
.CREF
C
>
.CREF
_@(YX x #
.XCREF
IFE <<B>_^D18>,8<
.CREF
CI XA,(B)
.XCREF
x>
IFN <<B>_^D18>,<
.CREF
C 8A,[B]
.XCREF
>
.CREFCREF
.XCREF
IFE <<<B>_-^D18zX>-^O777777>,<
.zxCREF
DI A,-<{B>
.XCREF
>
I{8FN <<<B>_-^D18>-{X^O777777>,<
OP%{x%IN A,<B>,C
>
.CREF>,C
>_@(Z7 |8 o
.XCREF
IFE <<B>_-^D18>|x,<
.CREF
CI }A,<B>
.XCREF
>
IFN <<B>_-^D}X18>,<
.CREF
}xC A,[B]
.XCRE F
>
.CREFCRE_@(] *X"u
.XCREF
IFN <<A>&^O7777+77777760>, PRINTX+8 ? A IS NOT AN A+XCCUMULATOR
TE+xMP%%=0
IFE <<B>,_^D18>,<
IFN <B,8>,<
TEMP%%=1
,X.CREF
C A,(B,x)
.XCREF
>>
I-FE <<B>_-^D18>,<-8
TEMP%%=1
.CR-XEF
D A,<B>
-x .XCREF
>
IFE T.EMP%%,<
.CREF
.8 E A,[B]
>
.XPURGE 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 S8 <POINT WIDSX(B),A,POS(B)> B),A,POS(B)>a>\S@ L ` &a?H6 L + a? RX <^L<A>+^LRx<-<<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 YX Q
DEFINE YxINFO.(OPCODE,NEWAZRG)<
OPCODE <A
NEWARG>> <AedX9 el ` et2 e 87
0 e MG ` 'e ] ` e D- TX % <<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@ Hx I .XCREF
IEXP <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~#@ f 3 B (<MOVEf8M,HRRM,HRLM,DPB>, <A>,<C>)DPB>,gR~) n8
IFE <D>nX,< SETZM B>
IFnxE <D>+1,< SETOM oB>
IFN <D>*<<o8D>+1>,<MOVX A,<oXD>
MOVEM oxA,B>
IFNB <Cp>,<
MOVE A,p8[B,,B+1]
BLT A,C
> BLT gS]7 ` gTv8VQ gTv8tQ gTv;7Q gTv;zQ gV wX = 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 8"Q
.XCREF
IFB <B>, TXC (<&x^O37777777&A>,1B'<A_-^D30>)
IFNB'8 <B>,<
IFN <<A'X>&^O777777777760>'x, PRINTX ? A IS (NOT AN ACCUMULATO(8R
IFE <<<B>_-^D(X18>-^O777777>,<
(x .CREF
EQVI A,)<,,-1-<B>>
.XC)8REF>
IFN <<<B>_)X-^D18>-^O777777>,)x<
OP%%TX A,<B*>,TLC,TRC,TDC
>> .CREFC,TDC
>>ib $X"1
.XCREF
IFB <B>, OP%%T%X <^O37777777&A>%8,1B<A_-^D30>,TLC%XA,TRCA,TDCA
IFNB%x <B>, OP%%TX A,&<B>,TLCA,TRCA,TD CA
.CREF
,TDib P X"
.XCREF
IFB <B>, OP%%T!X <^O37777777&A>!8,1B<A_-^D30>,TLC!XE,TRCE,TDCE
IFNB!x <B>, OP%%TX A,"<B>,TLCE,TRCE,TD CE
.CREF
,TDib ` "X"!
.XCREF
IFB <B>, OP%%T#X <^O37777777&A>#8,1B<A_-^D30>,TLC#XN,TRCN,TDCN
IFNB#x <B>, OP%%TX A,$<B>,TLCN,TRCN,TD CN
.CREF
,TDibp x +
IFB <B>, JFCL 0
IFNB <8B>, TRN A,<,,<B >>
N A,<,,<Bibt X!!
.XCREF
IFB <B>, OP%%TX <^O37777777&A>8,1B<A_-^D30>,TLNXA,TRNA,TDNA
IFNBx <B>, OP%%TX A,<B>,TLNA,TRNA,TD NA
.CREF
,TDibtC@ :8#k
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 X!
.XCREF
IFB <B>, OP%%TX <^O37777777&A>8,1B<A_-^D30>,TLNXE,TRNE,TDNE
IFNBx <B>, OP%%TX A,<B>,TLNE,TRNE,TD NE
.CREF
,TDibu@ 6x#O
IFE <<B7>_<1+^L<B>>>,<
78IFE <<B>&<C>>,<7X
TXNE A,<B>
7x>
IFN <<B>&<C>8>,<
TXNN A,<B88>
>>
IFN <<B>_8X<1+^L<B>>>,<
T8xXCA A,<<C>&<B>9>
JRST .+4
TX98CE A,<<C>&<B>>9X
JRST .+2
TXN9xE A,<<-<C>-1>&< B>>
>C>-1>&<ibu` X!
.XCREF
IFB <B>, OP%%TX <^O37777777&A>8,1B<A_-^D30>,TLNXN,TRNN,TDNN
IFNBx <B>, OP%%TX A,<B>,TLNN,TRNN,TD NN
.CREF
,TDibx
o
.XCREF
8
IFB <B>, TXO (<
X^O37777777&A>,1B
x<A_-^D30>)
IFNB <B>,<
IFN <<A 8>&^O777777777760> X, PRINTX ? A IS xNOT AN ACCUMULATO
R
IFE <<<B>_-^D
818>-^O777777>,<
X .CREF
ORCMI A
x,<,,-1-<B>>
.XF>
IFN <<<B>777777>
OP%%TX A,<O
> > .CREFO,TDO
>ib| X"
.XCREF
IFB <B>, OP%%T X <^O37777777&A> 8,1B<A_-^D30>,TLO XA,TROA,TDOA
IFNB x <B>, OP%%TX A, <B>,TLOA,TROA,TD OA
.CREF
,TDib|P X!a
.XCREF
IFB <B>, OP%%TX <^O37777777&A>8,1B<A_-^D30>,TLOXE,TROE,TDOE
IFNBx <B>, OP%%TX A, <B>,TLOE,TROE,TD OE
.CREF
,TDib}` X!q
.XCREF
IFB <B>, OP%%T X <^O37777777&A> 8,1B<A_-^D30>,TLO XN,TRON,TDON
IFNB x <B>, OP%%TX A, <B>,TLON,TRON,TD ON
.CREF
,TDicP x M
.XCREF
IFB <B>, TXZ (<8^O37777777&A>,1BX<A_-^D30>)
IFNBx <B>,<
IFN <<A>&^O777777777760>8, PRINTX ? A IS XNOT AN ACCUMULATOR
IFE <<<B>_-^Dx18>-^O777777>,<
8 .CREF
ANDI A,X<,,-1-<B>>
.XCxREF>
IFN <<<B>_ -^D18>-^O777777>, 8<
OP%%TX A,<B X>,TLZ,TRZ,TDZ
>> .CREFZ,TDZ
>>icT X!Q
.XCREF
IFB <B>, OP%%TX <^O37777777&A>8,1B<A_-^D30>,TLZXA,TRZA,TDZA
IFNBx <B>, OP%%TX A,<B>,TLZA,TRZA,TD ZA
.CREF
,TDicTP X!1
.XCREF
IFB <B>, OP%%TX <^O37777777&A>8,1B<A_-^D30>,TLZXE,TRZE,TDZE
IFNBx <B>, OP%%TX A,<B>,TLZE,TRZE,TD ZE
.CREF
,TDicU` X!A
.XCREF
IFB <B>, OP%%TX <^O37777777&A>8,1B<A_-^D30>,TLZXN,TRZN,TDZN
IFNBx <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` 5X#3
MOVX A5x,1B<B_-^D30>
.6XCREF
<XORM A,68>!<37777777&B>
.CREF
7&B>
iftS@ 0X#
MOVX A0x,1B<B_-^D30>
.1XCREF
<TDNE A,18>!<37777777&B>
.CREF
7&B>
ifuc@ 1x#
MOVX A2,1B<B_-^D30>
.28XCREF
<TDNN A,2X>!<37777777&B>
.CREF
7&B>
ify` 3#
MOVX A38,1B<B_-^D30>
.3XXCREF
<IORM A,3x>!<37777777&B>
.CREF
7&B>
igQ` 48#)
MOVX A4X,1B<B_-^D30>
.4xXCREF
<ANDCAM 5A,>!<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@ G8 = BYTE (3)AGXWHO (9)AVER (6) AMIN (18)AEDToN@ ` o\P ` o".) ` o& R <^L<-<<A> _<^L<A>>>-1>>>q? 0# TXC A,<B > TXC A,<Bq@ J8 W
INTERN JXA
IFB <C>,<JxA==B>
IFNB <C >,<A=B>
<CqRuMP qS&:g ` *qS-mP us@ fx = B (<SETZgM,HLLZS,HRRZS,<PRg8INTX ?CAN'T ZERO gXBYTE>>,<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