<--- % Optimized Straigt Selection Sort % 5.2.1 Page 81 % Author Martin Ruckert, 26.3.2012 ---> R IS $0 & Parameter n IS $1 j IS $2 & Local variables i IS $3 K IS $4 Ki IS $5 R1 IS $6 Rn IS $7 d IS $8 tmp IS $9 Isort SL n,n,3 \hfil$1$& \ul{\sl S1.~Loop on $j$.} ADD R1,R,8 \hfil$1$& ADD Rn,R,n \hfil$1$& SUB d,Rn,R \hfil$1$& SUB d,d,8 \hfil$1$& NEG j,8,n \hfil$1$& $j\is 1 $ JMP 0F \hfil$1$& 2H ADD i,d,j \hfil$n-1$& \ul{\sl S2.~Set up $j$, $K$, $R$.} LDO K,Rn,j \hfil$n-1$& 3H LDO Ki,R,i \hfil$n-1+B-A$& \ul{\sl S3.~Compare $K : K_i$.} CMP tmp,K,Ki \hfil$n-1+B-A$& BNN tmp,5F \hfil$3(n-1)+B-A$& 4H STO Ki,R1,i \hfil$B$&\ul{\sl S4.~Move $R_i$, decrease $i$.} SUB i,i,8 \hfil$B$& PBNN i,3B \hfil$B+2A$& 5H STO K,R1,i \hfil$n-1$& \ul{\sl S5.~$R$ into $R_{i+1}$.} ADD j,j,8 \hfil$n-1$& 0H PBN j,2B \hfil$n+2$& POP 0,0