;“驗證式”	實驗十五  INT0中斷實驗

;外中斷0
;文件名:(MCS51\A15.ASM)

	ORG 0000H
    	SJMP MAIN
	ORG 0003H      ;外中斷0入口地址
	LJMP INTER0
MAIN:	JB P1.3,MAIN1  ;判斷是電平觸發還是沿觸發
        CLR TCON.0
        SJMP MAIN2
MAIN1:  SETB TCON.0    ;中斷初始化
MAIN2:	ORL IE,#81H
	ORL IP,#02H
	SJMP MAIN
INTER0: CLR EA          ;中斷處理程序
        SETB P1.2
        LCALL DELY
        CLR P1.2
        LCALL DELY
        SETB EA
	RETI
DELY:   MOV R6,#00H    ;延時
DELY1:  MOV R7,#00H
 DELY2:  DJNZ R7,DELY2
        DJNZ R6,DELY1
        RET