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