这是一个比较完整的程序。最近实习要做交通灯,
写了个程序。比较简单,不过初学者可以参考,呵呵
;*************************************
;file name: traffic_light.asm
;
;FOUCTION : 实现交通灯的交替控制及特殊情况(如急救车等)通过时实现绿灯,通过外中断实现
;
;WRITER :
;Finish Time: 2010.6.8
;*************************************
North_South_Red BIT P1.0
North_South_Yellow BIT P1.1
North_South_Green BIT P1.2
East_West_Red BIT P1.3
East_West_Yellow BIT P1.4
East_West_Green BIT P1.5
Scd EQU 30H ;秒
ORG 0000H
JMP START
ORG 0003H
JMP INIT0
ORG 000BH
JMP TIME0
;*************************************
;NAME: 交通灯交替工作控制程序
;
;FOUCTION: 红绿黄交替点亮: 红灯亮33秒钟后绿灯亮27秒,然后闪烁3秒,最后黄灯点亮三秒 ,循环
;
;WRITER :
;TIME : 2010.6.8
;*************************************
TIME0:
MOV TH0,#30H
MOV TL0,#0B0H
INC 31H
MOV A,31H
N: CJNE A,#20,EXIT ;判断是否到一秒
MOV 31H,#0
INC Scd
MOV A,Scd
CJNE A,#27,NEXT1 ;判断绿灯是否到27s
SETB F0
JMP EXIT
NEXT1: MOV A,Scd
CJNE A,#30,NEXT2 ;判断绿灯是否亮30s
CLR F0
MOV P1,#0EEH
JMP EXIT
NEXT2:
MOV A,Scd
CJNE A,#33,NEXT3
MOV P1,#0F3H ;初始化
NEXT3:
MOV A,Scd
CJNE A,#60,NEXT4
SETB 00H
JMP EXIT
NEXT4: MOV A,Scd
CJNE A,#63,NEXT5
CLR 00H
MOV P1,#0F5H
JMP EXIT
NEXT5: MOV A,Scd
CJNE A,#66,EXIT
MOV P1,#0DEH
MOV Scd,#0
EXIT: RETI
;*************************************
;NAME: 外中断0
;
;FOUCTION: 东西方向出现特殊情况 ?
; 南北红灯亮,东西绿灯亮,延时10s
;WRITER :
;TIME : 2010.6.8
;*************************************
INIT0:
PUSH PSW
PUSH ACC
CLR EA
MOV R2,P1 ;保存数据
MOV P1,#0F6H
CALL DELLAY10S
MOV P1,R2 ;恢复
SETB EA
POP ACC
POP PSW
RETI
;*******************主程序初始化部分**************
START:
MOV Scd, #00H
MOV 31H, #00H
MOV P1, #0FFH
CLR 00H
CLR F0
MOV TMOD, #01H ;设定定时器1
MOV IE, #83H ;设定中断使能 定时器中断0、外部中断0和1
MOV SP, #60H
MOV TH0, #30H
MOV TL0, #0B0H
SETB TR0
LOOP:
JNB F0,N0
CPL East_West_Green ;绿灯闪三秒
CALL DELAY500MS
JMP N1
N0:
JNB 00H,N1
CPL North_South_Green ;绿灯闪三秒
CALL DELAY500MS
N1:
JMP LOOP
;************************************
;Name : DELAY
;
;Fouction: delay 10s
;
;Time : 2010.06.09
;Writer :
;*************************************
DELLAY10S:
MOV R4,#0BFH
D1:
MOV R6,#0BDH
D0:
MOV R5,#89H
DJNZ R5,$
DJNZ R6,D0
DJNZ R4,D1
NOP
RET
;************************************
;Name : DELAY
;
;Fouction: delay 10s
;
;Time : 2010.06.17
;Writer :
;*************************************
DELAY500MS: ;Delay 0.5s
MOV 57H,#17H
DL1:
MOV 56H,#98H
DL0:
MOV 55H,#46H
DJNZ 55H,$
DJNZ 56H,DL0
DJNZ 57H,DL1
RET
END