8051 紅綠燈模擬

begti20

1. ; 交通號誌紅綠燈模擬控制程式
   
2. ;                          begti20 2011.12.16 AM.
   
3. ; MCU:Atmel AT89S51
   
4. ; P0的I/O規劃
   
5. ; 第一組紅綠燈(縱向) P0.2=紅燈,P0.1=黃燈,P0.0=綠燈
   
6. ; 第二組紅綠燈(橫向) P0.5=紅燈,P0.4=黃燈,P0.3=綠燈
   
7. ;
   
8. ; 燈號流程變化表(觀察無倒數計秒的路口紅綠燈)
   
9. ; 　　　　　　 (橫向)　　(縱向)　　時間　
   
10. ;　STEP　NC NC R2 Y2 G2 R1 Y1 G1 　SEC　　　說明
    
11. ;　　1　　0　0　1　0　0　0　0　1　　20　　　縱向通行20秒
    
12. ;　　　　　　　　　　　　　　　　　　　　　STEP2-3重複三次（綠燈閃爍三次）
    
13. ;　　2    0　0　1　0　0　0　0　0　　.5　　　縱向綠燈滅0.5秒
    
14. ;　　3    0　0　1　0　0　0　0　1　　.5　　　縱向綠燈亮0.5秒
    
15. ;　　4    0　0　1　0　0　0　1　0　　2　　　 縱向黃燈亮2秒
    
16. ;　　5    0　0　0　0　1　1　0　0　　20　　　橫向通行20秒
    
17. ;　　　　　　　　　　　　　　　　　　　　　STEP6-7重複三次（綠燈閃爍三次）
    
18. ;　　6    0　0　0　0　0　1　0　0　　.5　　　橫向綠燈滅0.5秒
    
19. ;　　7    0　0　0　0　1　1　0　0　　.5　　　橫向綠燈亮0.5秒
    
20. ;　　8　　0　0　0　1　0　1　0　0　　2　　　 橫向通行20秒　
    
21. ;　　9　　跳回STEP 1進入下一次縱向通行
    
22. 
    
23.         
    
24. LED:    REG     P0                    ;宣告P0接6個LED
    
25.         ORG     0                     ;宣告程式起始位置
    
26. STEP1:  MOV     LED,#00100001B        ;縱向通行20秒
    
27.         CALL    DT20                  
    
28.         MOV     R3,#3                 ;縱向綠燈閃爍三次
    
29. STEP2:  MOV     LED,#00100000B        ;縱向綠燈滅0.5秒
    
30.         CALL    DT05                  
    
31.         MOV     LED,#00100001B        ;縱向綠燈亮0.5秒
    
32.         CALL    DT05                  
    
33.         DJNZ    R3,STEP2              ;STEP2-3重複三次(閃三次)
    
34.         MOV     LED,#00100010B        ;縱黃亮2秒
    
35.         CALL    DT2                  
    
36.         MOV     LED,#00001100B        ;橫向通行20秒
    
37.         CALL    DT20
    
38.         MOV     R3,#3                 ;橫向綠燈閃爍3次
    
39. STEP6:  MOV     LED,#00000100B        ;橫向綠燈滅0.5秒
    
40.         CALL    DT05                  
    
41.         MOV     LED,#000011000B       ;橫向綠燈亮0.5秒
    
42.         CALL    DT05
    
43.         DJNZ    R3,STEP6              ;重複3次
    
44.         MOV     LED,#00010100B        ;橫向黃燈亮2秒
    
45.         CALL    DT2
    
46.         JMP     STEP1                 ;跳回STEP1,再次縱向通行
    
47. 
    
48. DT20:   MOV     R4,#100              ;設定R4延遲20秒的參數
    
49.         JMP     DTN
    
50. 
    
51. DT05:   MOV     R4,#5                 ;設定R4延遲0.5秒的參數
    
52.         JMP     DTN
    
53. 
    
54. DT2:    MOV     R4,#20                ;設定R4,2秒的參數
    
55.         JMP     DTN
    
56. 
    
57. DTN:    CALL    DT01                  ;設定R4*0.1秒的時間
    
58.         DJNZ    R4,DTN
    
59.         RET
    
60. 
    
61. 
    
62. DT01:   MOV     R6,#250               ;延遲0.1秒的副程式
    
63. T01:    MOV     R7,#200
    
64.         DJNZ    R7,$
    
65.         DJNZ    R6,T01
    
66.         RET
    
67. 
    
68.         END                           ;宣告程式結束

複製代碼

寫程式說明比寫程式花更多的時間，好無聊！

終於完成了，以供參考，請多指教

2237076

感謝各位大大的鼎力相助,你們的解說比上課學到的還多,begti20大大提供的程式解說太神奇我居然都了解,請受小弟一拜
剛開始做對程式都不清楚,程式也是東拼西湊到處"借"來的,經過大大們指點解說受益良多,各位大德請受小弟第二拜
.......第三拜我掰不開來了....總之感謝了