SRT: MOV A,R7 MOV R5,A SRT1: CLR F0 MOV A,R5 DEC A MOV R5,A MOV R2,A JZ SRT5 MOV A,R0 MOV R6,A SRT2: MOV A,@R0 MOV R3,A INC R0 MOV A,@R0 MOV R4,A CLR C SUBB A,R3 JNC SRT4 SETB F0 MOV A,R3 MOV @R0,A DEC R0 MOV A,R4 MOV @R0,A INC R0 SRT4: DJNZ R2,SRT2 MOV A,R6 MOV R0,A JB F0,SRT1 SRT5: RET END