;	“驗證式”	實驗十  P3.3口輸入 P1口輸出


;文件名:MCS51\A10.ASM

;P3.3口輸入一脈沖,控制P1口按16進制加1方式點亮發光二極管
        ORG    0000h
        MOV    A, #00H
        MOV    P1,A
L0812:  JB     P3.0, L0812   ;判斷P3,3為高嗎?
        MOV    R2, #10H
        LCALL  DELY
        JB     P3.0, L0812   ;延時后再判斷P3.3為高嗎?
L081D:  JNB    P3.0, L081D   ;P3.3為低嗎?
        MOV    R2, #10H
        LCALL  DELY
        JNB    P3.0, L081D   ;延時后再判斷P3.3為低嗎?
        INC    A             ;累加器加1
        PUSH   ACC
        MOV    P1, A         ;A送P1口
        POP    ACC
        AJMP   L0812
DELY:	 PUSH   02H		   ;延時子程序
DEL2:	 PUSH   02H
DEL3:	 PUSH   02H
DEL4:	 DJNZ   R2,DEL4
	 POP    02H
	 DJNZ   R2,DEL3
	 POP    02H
	 DJNZ   R2,DEL2
	 POP    02H
	 DJNZ   R2,DELY
	 RET