% Sort registers R001 through number specified in R000

define r=data_reg;
for j:=2:r(0) do begin
   a:=r(j);
   k:=j-1;
   while k>0 and r(k)>a do begin
      r(k+1):=r(k);
      k:=k-1;
   end;
   r(k+1):=a;
end;