CPL1: MOV A,@R0 CPL A ADD A,#1 MOV @R0,A LOOP: INC R0 MOV A,@R0 CPL A ADDC A,#0 MOV #R0,A DJNZ R3,LOOP RET