;sorting
     org 0000h
     sjmp 0030h
    org 0030h
    mov 30h,#0fh
  mov 31h,#0fh
    mov 32h,#6fh
     mov 33h,#9fh
     mov 34h,#50h
 mov 35h,#11h
  mov 36h,#50h
   mov 37h,#20h
   mov 38h,#60h
   mov 39h,#00h
   mov r3,#05h
  back1:mov r0,#30h
 mov r1,#32h
  mov r2,#04h
   back:clr c
 mov 50h,@r0
 mov a,@r1
    cjne a,50h,go
 sjmp next
    go:jnc go11
  mov @r0,a
     mov @r1,50h
     inc r0
     inc r1
     mov 51h,@r0
     mov a,@r1
     mov @r1,51h
    mov @r0,a
     sjmp go1
     go11:inc r0
    inc r1
    go1: inc r0
     inc r1
    djnz r2,back
     sjmp ahed
     next: inc r0
    inc r1
     mov 50h,@r0
    mov a,@r1
    cjne a,50h,next1
     sjmp next3
     next1:jnc next2
     mov @r0,a
     mov @r1,50h
    next2: inc r0
     inc r1
    next3: djnz r2,back
     ahed: djnz r3,back1
  end