%%off % Author M.Ruckert PREFIX :btree: P IS $0 Parameter k IS $1 Parameter a IS $2 la IS $3 $l_a\is \.{LLINK}$ if $a<0$, else $l_a\is 0=\.{RLINK}$. kp IS $4 $k^\prime$ RLINK IS 0 LLINK IS 8 KEY IS 16 %%on 2H LDO kp,P,KEY \hfil$C$& \ul{\sl A2.~Compare.} $k^\prime \is \.{KEY}(P)$ CMP a,k,kp \hfil$C$& $k=\.{KEY}(P)$? BZ a,Found \hfil$C+2S$& ZSN la,a,LLINK \hfil$C-S$& If $k<\.{KEY}(P)$, $l_a\is \.{LLINK}$, else \.{RLINK}. LDOU P,P,la \hfil$C-S$& \ul{\sl A3/4.~Move left/right.} $P\is \.{LINK}(a,P)$ %%% Start PBNZ P,2B \hfil$C+3-3S$\hidewidth& POP 0,0 & Not found. %%% Found POP 1,0 %%off PREFIX :