雷竞技推荐码怎么获得

 找回密碼
 raybet12
查看: 6652|回複: 0
打印 上一主題 下一主題

89C51單片機交通燈彙編程序

[複製鏈接]
跳轉到指定樓層
樓主
發表於 2013-6-2 07:57:40 | 隻看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
1、89C51單片機交通燈彙編程序設計任務

( 按下時依次紅燈全亮,同時數碼管顯示15S的到計時;東西綠燈亮,南北紅燈亮,同時數碼管顯示30S的到計時;計閃次數8次。。。。。。。。。。。。)

2、89C51單片機交通燈彙編程序彙編程序

       MIAO EQU 30H

ORG 0000H

LJMP START

ORG 000BH

LJMP INTET0

START: LACALL  JS1

MOV P1,#0F6H                             ;點亮四個紅燈

MOV P3,#0DEH

LCALL  DE15S                             ;延時15S

LLL: MOV P1,#0DBH                    ;東西綠燈亮,南北紅燈亮

MOV P3,#0DEH

LCALL   DE30S                             ;延時30S

MOV P1,#0FFH                             ;東西綠燈滅,南北紅燈亮

MOV P3,#0DEH

MOV R1,#08H                                ; 計閃次數8次

DDD: MOV P1,#0EDH                    ; 東西黃燈亮,南北紅燈亮

MOV P3,#0DEH

ACALL DE02S

MOV P1,#0FFH                              ; 東西黃燈滅,南北紅燈亮

DE6S: MOV R5,#60                        ;延時6S

SJMP DE1

DE02S: MOV R5,#02H                    ; 延時0.2S

DE1: MOV R6,#200

DE2: MOV R7,#126

DE3: DJNZ R7,DE3

DJNZ R6,DE2

DJNZ R5,DE1

RET

JS1: MOV TMOD,#01H                ; 50MS定時常數

MOV TH0,#3CH

MOV TL0,#0B0H

MOV R0,#20                                      ; 1S定時常數

SETB EA

SETB ET0

RET

DE30S: MOV MIAO,#00H

NEXT: MOV A,MIAO

MOV B,#10

DIV AB

MOV DPTR,#TABLE

MOVC A,@A+DPTR

MOV P0,A

MOV A,B

MOVC A,@A+DPTR

MOV    P2,A

LCALL DELY1S

INC MIAO

MOV A,MIAO

DEC  MIAO

MOV A,MIAO

CJNE A,#30,NEXT

LJMP DE30S

DE15S: MOV MIAO,#00H

NEXT: MOV A,MIAO

MOV B,#10

DIV AB

MOV DPTR,#TABLE

MOVC A,@A+DPTR

MOV P0,A

MOV A,B

MOVC A,@A+DPTR

MOV P2,A

LCALL DELY1S

INC MIAO

MOV A,MIAO

DEC  MIAO

MOV A,MIAO

CJNE A,#15,NEXT

LJMP DE15S

DELY1S: MOV R5,#100

D2: MOV R6,#20

D1: MOV R7,#248

DJNZ R7,$

DJNZ R6,D1

DJNZ R5,D2

RET

TABLE: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH

END

回複

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即注冊

本版積分規則

雷竞技推荐码怎么获得 ( )

GMT+8, 2024-7-20 00:30

Powered by © 2011-2022 www.hazyshadow.com 版權所有 免責聲明 不良信息舉報

技術驅動未來! 雷竞技推荐码怎么获得—專業電工基礎知識雷竞技 pc版學習網站。

欄目導航: 工控家園 | 三菱plc | 西門子plc | 歐姆龍plc | plc視頻教程

快速回複 返回頂部 返回列表