MOV	A,R7
MOV	B,#08H			
MUL	AB
DEC	A
INC		R0
MOV	@R0,A
NOM0:
DEC	R0
MOV	A,@R0
JNB		ACC.7,LOOP1		
JB		ACC.6,LOOP4			
LOOP0:
INC		R0
RET
LOOP1:
JB		ACC.6,LOOP0			
INC		R0
ACALL	LOOP7
ACALL	LOOP8
LOOP2:
JB 		ACC.6,LOOP0
INC		R0
ACALL	LOOP8
DJNZ	R2,LOOP2
LOOP3:						
INC		R0
MOV	@R0,#80H
RET
LOOP4:						
ACALL	LOOP7
LOOP5:
INC		R0
ACALL	LOOP8
DJNZ	R2,LOOP6
AJMP	LOOP3
LOOP6:
JB		ACC.6,LOOP5
AJMP	LOOP0
LOOP7:						
MOV	A,R7
MOV	B,#80H
MUL	AB
DEC	A
MOV	R2,A
RET
LOOP8:						
MOV	A,R7
MOV	R6,A
MOV	A,R0
CLR		C
SUBB	A,R7
MOV	R0,A
CLR		C
LOOP9:
MOV	A,@R0
RLC		A
MOV	@R0,A
INC		R0
DJNZ	R6,LOOP9
DEC	@R0						
DEC	R0
MOV	A,@R0
RET