NAME DINPUT
?PR?_DINPUT?DINPUT SEGMENT CODE
PUBLIC _DINPUT
RSEG ?PR?_DINPUT?DINPUT
_DINPUT:
	MOV A,R7
        MOV R2,#08
LOOP1:  RLC A
        MOV P1.0, C
        CLR P1.2
        SETB P1.2
        DJNZ R2,LOOP1
        MOV A,R5
        MOV R2,#08
LOOP2:  RLC A
        MOV P1.0, C
        CLR P1.2
        SETB P1.2
        DJNZ R2,LOOP2
        CLR P1.1
        SETB P1.1
        RET
 END