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


;文件名:MCS51\A10.ASM

;P3.3口輸入一脈沖,控制P1口按16進制加1方式點亮發光二極管
        
        
L0812:  JB     P3.0, L0812   ;判斷P3,3為高嗎?
     
        LCALL  DELY
        JB     P3.0, L0812   ;延時后再判斷P3.3為高嗎?
L081D:  JNB    P3.0, L081D   ;P3.3為低嗎?
   
        LCALL  DELY
        JNB    P3.0, L081D   ;延時后再判斷P3.3為低嗎?
        ADD A,#1            ;累加器加1
        
        MOV    P1, A         ;A送P1口
        
        LJMP   L0812
DELY:	 MOV R2, #98		   ;延時子程序
DEL2:	MOV R3 ,#99
DEL3:	 NOP
	 DJNZ   R3,DEL3
	 DJNZ   R2,DEL2
	 RET