单片机实验3（外部中断）

   ORG 0000H
   SJMP MAIN
   ORG 0013H
   LJMP INTO
MAIN:   MOV P1,#00H
        ORL P3,#00H
P011:   JNB P3.4,P011
        ORL IE,#84H
		ORL IP,#04H
		MOV PSW,#00H
		MOV SP,#53H
P012:   MOV P1,#01H
        ACALL P01BH
		MOV P1,#02H
		ACALL P01BH
		MOV P1,#04H
		ACALL P01BH
		MOV P1,#08H
		ACALL P01BH
		MOV P1,#10H
		ACALL P01BH
		MOV P1,#20H
		ACALL P01BH
		MOV P1,#40H
		ACALL P01BH
		SJMP P012
INTO:   MOV B,R2
P017:   MOV P1,#00H
        MOV 20H,#0A0H
P018:   SETB P1.7
        ACALL P01A
		CLR P1.7
		ACALL P01A
		DJNZ 20H,P018
		CLR P1.7
		ACALL P01A
		JNB P3.3,P017
		MOV R2,B
		RETI
P019:   MOV R2,#10H
        ACALL DELY
		RET
P01A:   MOV R2,#06H
        ACALL DELY
		RET
P01BH:  MOV R2,#30H
        ACALL DELY
		RET
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
		END