MBTEG: MOV R2,#00H LOOP0: INC @R0 DEC R0 MOV A,R7 MOV R6,A MOV A,@R0 MOV C,ACC. 7 LOOP1: RRC A MOV @R0,A DEC R0 MOV A,@R0 DJNZ R6,LOOP1 MOV A,R2 RRC A MOV R2,A MOV A, R0 ADD A,R7 MOV R0,A INC R0 DJNZ R3,LOOP0 MOV A,R2 JNB ACC. 7,LOOP3 CLR C MOV A,R0 SUBB A,R7 MOV R0,A MOV A,R7 MOV R6,A SETB C LOOP2: MOV A,@R0 ADDC A,#00H MOV @R0,A INC R0 DJNZ R6,LOOP2 LOOP3: RET