BCDIN: MOV R0,#50H MOV R1,#51H SETB P3.0 MOV A,P1 CPL A MOV @R1,A CLR P3.0 MOV A,P1 CPL A MOV @R0,A RET