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