jiaotongdeng.asm.txt

基于51单片机的交通灯中断。可选择中断类型

ORG 0000H 
         HONG1 EQU 81H;东西红灯，南北绿灯
         HONG2 EQU 42H ;东西南北黄灯
         HONG3 EQU 24H ;东西绿灯，南北红灯
       AJMP  START
	   ORG 0003H ;INT 0 中断入口地址
       
      AJMP  INTO
	  	  ORG 0013H;中断1
      AJMP  INT_1
      ORG  0040H
START: MOV SP,#60H
      SETB EX0 ;INT 0 中断有效
      CLR IT0
	  SETB EA
	  SETB EX1
	  CLR IT1
      SETB EA
	  
      ACALL HON1
INTO: CLR EA;中断服务程序
      ;*********************
PUSH PSW 
      PUSH ACC
      MOV 50H,R4
      MOV 51H,R5
      MOV 52H,R6
      MOV 53H,R7
      MOV 54H,P1;保护现场
 ;*********************
      MOV P1,#88H
      MOV A,P1
      MOV R5,#100;延时5秒
      ACALL SHAN
      MOV P1,54H
      MOV R5,51H
      ACALL DELAY3
;*********************      
      MOV R4,50H
      MOV R5,51H
      MOV R6,52H
      MOV R7,53H;恢复现场
      POP ACC
      POP PSW
;*********************       
	  SETB EA
      RETI

INT_1: CLR EA;中断服务程序
      ;*********************
PUSH PSW 
      PUSH ACC
      MOV 50H,R4
      MOV 51H,R5
      MOV 52H,R6
      MOV 53H,R7
      MOV 54H,P1;保护现场
 ;*********************
      MOV P1,#0E7H
      MOV A,P1
      MOV R5,#100;延时5秒
      ACALL SHAN
	  MOV P1,54H
     MOV R5,51H
      ACALL DELAY3
;*********************      
      MOV R4,50H
      MOV R5,51H
      MOV R6,52H
      MOV R7,53H;恢复现场
      POP ACC
      POP PSW
;*********************       
	  SETB EA
      RETI	   
HON1: MOV P1,#HONG1  ;东西路口红灯亮时，南北方向绿灯亮
      MOV R5,#60;延时3秒
      MOV A,#HONG1
      ACALL SHAN
      MOV P1,#HONG2;东西南北黄灯
      MOV R5,#20
      MOV A,#HONG2
      ACALL SHAN
      MOV P1,#HONG3
      MOV R5,#60;延时3秒
      MOV A,#HONG3
      ACALL SHAN
      MOV P1,#HONG2
      MOV R5,#20
      MOV A,#HONG2
      ACALL SHAN
      SJMP HON1     
SHAN: ACALL DELAY
      MOV R4,#03H
SHAN1:MOV P1,#00H
SHAN2:MOV R5,#8
      ACALL DELAY
      MOV P1,A
      MOV R5,#8
      ACALL DELAY
      DJNZ R4,SHAN1;闪烁3次
      RET   
DELAY: MOV  R6,#100
DELAY2:MOV  R7,#0FAH
DELAY3:DJNZ R7,DELAY3
       DJNZ R6,DELAY2 ;延时 50 mS
       DJNZ R5,DELAY
       RET
       END