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