R IS $0 & Parameter n IS $1 i IS $2 &Local variables. r IS $3 s IS $4 t IS $5 2H LDB r,R,i \hfil$B$ & $r\is R_i$. SUB i,i,1 \hfil$B$ & Decrement $i$. LDB s,R,i \hfil$B$ & $s\is R_{i-1}$. CMP t,s,r \hfil$B$ BNP t,1F \hfil$B+2A$ & Continue if $R_{i-1} \le R_i$, STB r,R,i \hfil$A$ & else ADD i,i,1 \hfil$A$ & swap $R_i$ and $R_{i-1}$ STB s,R,i \hfil$A$ & and start from the beginning. Start SUB i,n,1 \hfil$A+1$ & Initialize $i\is n-1$. 1H BNN i,2B \hfil$B+3$ & Loop while $i\ge 0$. POP 0,0