aint0.asm

恒科试验平台的所有程序代码

;“验证式”	实验四  INT0中断实验

;外中断0

	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
        END