找回密碼
 立即注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

帖子
查看: 7679|回復(fù): 1
打印 上一主題 下一主題
收起左側(cè)

單片機(jī)紅綠燈的匯編語(yǔ)言程序設(shè)計(jì)

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:241586 發(fā)表于 2017-10-22 10:43 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
單片機(jī)紅綠燈的匯編語(yǔ)言程序設(shè)計(jì)
a>
程序源代碼

ORG 0000H ;主程序的入口地址
LJMP MAIN ;跳轉(zhuǎn)到主程序的開(kāi)始處
ORG 0003H ;外部中斷0的中斷程序入口地址
ORG 000BH ;定時(shí)器0的中斷程序入口地址
LJMP T0_INT ;跳轉(zhuǎn)到中斷服務(wù)程序處
ORG 0013H ;外部中斷1的中斷程序入口地址
MAIN : MOV SP,#50H
MOV IE,#8EH ;CPU開(kāi)中斷,允許T0中斷,T1中斷和外部中斷1中斷
MOV TMOD,#51H ;設(shè)置T1為計(jì)數(shù)方式,T0為定時(shí)方式,且都工作于模式1 MOV TH1,#00H ;T1計(jì)數(shù)器清零
MOV TL1,#00H
SETB TR1 ;啟動(dòng)T1計(jì)時(shí)器
SETB EX1 ;允許INT1中斷
SETB IT1 ;選擇邊沿觸發(fā)方式
MOV DPTR ,#0003H
MOV A, #80H ;給8255賦初值,8255工作于方式0
MOVX @DPTR, A
AGAIN: JB P3.1,N0 ;判斷是否要設(shè)定東西方向紅綠燈時(shí)間的初值,若P3.1為1 則跳轉(zhuǎn) MOV A,P1
JB P1.7,RED ;判斷P1.7是否為1,若為1則設(shè)定紅燈時(shí)間,否則設(shè)定綠燈時(shí)間 MOV R0,#00H ;R0清零
MOV R0,A ;存入東西方向綠燈初始時(shí)間
MOV R3,A
LCALL DISP1
LCALL DELAY
AJMP AGAIN
RED: MOV A,P1
ANL A,#7FH 1.7置0
MOV R7,#00H ;R7清零
MOV R7,A ;存入東西方向紅燈初始時(shí)間
MOV R3,A
LCALL DISP1
LCALL DELAY
AJMP AGAIN
;-------------------------------------------
N0: SETB TR0 ;啟動(dòng)T0計(jì)時(shí)器
MOV 76H,R7 ;紅燈時(shí)間存入76H
N00: MOV A,76H ;東西方向禁止,南北方向通行
MOV R3,A
MOV DPTR,#0000H ;置8255A 口,東西方向紅燈亮,南北方向綠燈亮 MOV A,#0DDH
MOVX @DPTR, A
N01: JB P2.0,B0
N02: SETB P3.0
CJNE R3,#00H,N01 ;比較R3中的值是否為0,不為0轉(zhuǎn)到當(dāng)前指令處執(zhí)行 ;------黃燈閃爍5秒程序------
N1: SETB P3.0
MOV R3,#05H
MOV DPTR,#0000H ;置8255A 口,東西,南北方向黃燈亮
MOV A,#0D4H
MOVX @DPTR,A
N11: MOV R4,#00H
N12: CJNE R4,#7DH,$ ;黃燈持續(xù)亮0.5秒
N13: MOV DPTR,#0000H ; 置8255A 口,南北方向黃燈滅
MOV A,#0DDH
MOVX @DPTR,A
N14: MOV R4,#00H
CJNE R4,#7DH,$ ;黃燈持續(xù)滅0.5秒
CJNE R3,#00H,N1 ;閃爍時(shí)間達(dá)5秒則退出
;------------------------------------------------------------
N2: MOV R7,#00H
MOV A,R0 ;東西通行,南北禁止
MOV R3,A
MOV DPTR,#0000H ; 置8255A 口,東西方向綠燈亮,南北方向紅燈亮 MOV A,#0EBH
MOVX @DPTR,A
N21: JB P2.0,T03

N22: CJNE R3,#00H,N21
;------黃燈閃爍5秒程序------
N3: MOV R3,#05H
MOV DPTR,#0000H ;置8255A 口,東西,南北方向黃燈亮
MOV A,#0E2H
MOVX @DPTR,A
N31: MOV R4,#00H
CJNE R4,#7DH,$ ;黃燈持續(xù)亮0.5秒
N32: MOV DPTR,#0000H ; 置8255A 口,南北方向黃燈滅
MOV A,#0EBH
MOVX @DPTR,A
N33: MOV R4,#00H
CJNE R4,#7DH,$ ;黃燈持續(xù)滅0.5秒
CJNE R3,#00H,N3 ;閃爍時(shí)間達(dá)5秒則退出
SJMP N00
;------闖紅燈報(bào)警程序------
B0: MOV R2,#03H ;報(bào)警持續(xù)時(shí)間3秒
B01: MOV A,R3
JZ N1 ;若倒計(jì)時(shí)完畢,不再報(bào)警
CLR P3.0 ;報(bào)警
CJNE R2,#00H,B01 ;判斷3秒是否結(jié)束
SJMP N02
;------1秒延時(shí)子程序-------
N7: RETI
T0_INT:MOV TL0,#9AH ;給定時(shí)器T0送定時(shí)10ms 的初值 MOV TH0,#0F1H
INC R4
INC R5
CJNE R5,#0FAH,T01 ;判斷延時(shí)是否夠一秒,不夠則調(diào)用顯示子程序 MOV R5,#00H ;R5清零
DEC R3 ;倒計(jì)時(shí)初值減一
DEC R2 ;報(bào)警初值減一
T01: ACALL DISP ;調(diào)用顯示子程序
RETI ;中斷返回
;------顯示子程序------
DISP: JNB P2.4,T02
DISP1: MOV B,#0AH
MOV A,R3 ;R3中值二轉(zhuǎn)十顯示轉(zhuǎn)換
DIV AB
MOV 79H,A
MOV 7AH,B
DIS: MOV A,79H ;顯示十位
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0F7H
MOVX @DPTR,A
LCALL DELAY
DS2: MOV A,7AH ;顯示個(gè)位
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0FBH
MOVX @DPTR,A
RET
;------東西方向車流量檢測(cè)程序------
T03: MOV A,R3
SUBB A,#00H ;若綠燈倒計(jì)時(shí)完畢,不再檢測(cè)車流量 JZ N3
JB P2.0,T03
INC R7
CJNE R7,#64H,E1
MOV R7,#00H ;中斷到100次則清零
E1: SJMP N22
;------東西方向車流量顯示程序------
T02: MOV B,#0AH
MOV A,R7 ;R7中值二轉(zhuǎn)十顯示轉(zhuǎn)換
DIV AB
MOV 79H,A
MOV 7AH,B
DIS3: MOV A,79H ;顯示十位
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0F7H
MOVX @DPTR,A
LCALL DELAY
DS4: MOV A,7AH ;顯示個(gè)位
MOV DPTR,#TAB
MOVC A,@A+DPTR
MOV DPTR,#0002H
MOVX @DPTR,A
MOV DPTR,#0001H
MOV A,#0FBH
MOVX @DPTR,A
LJMP N7
;------延時(shí)4MS 子程序----------
DELAY: MOV R1,#0AH
LOOP: MOV R6,#64H
NOP
LOOP1: DJNZ R6,LOOP1
DJNZ R1,LOOP
RET
;------字符表------
TAB: DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH END
ORG 0000H AJMP MAIN ORG 000BH LJMP INT
ORG 0030H
MAIN:MOV R2,#20H MOV TMOD,#01H MOV TL0,#0B0H MOV TH0,#80H SETB EA
SETB ET0 SETB TR0
LOOP:MOV A,#01H MOV P1,A LCALL DEL MOV R0,#02H LCALL FP
LOOP1:MOV A,#02H MOV P1,A LCALL DEL MOV R0,#02H LCALL FP
LOOP2:MOV A, #04H MOV P1,A LCALL DEL MOV R0,#05H LCALL FP
MOV P1,#00H LCALL DEL
CJNE R0,#00H ,AA
SJMP LOOP
FP:MOV R1,#80H MOV A,R1
MOV DPTR,#3FFFH MOVX @DPTR,A RR A
MOV R1,A
MOV A,R0
ANL A,#0FH
MOV DPTR,#TAB MOVC A,@A+DPTR MOV DPTR,#5FFFH MOVX @DPTR,A LCALL DEL
MOV A,#0FFH
MOV DPTR,#5FFFH MOVX @DPTR,A MOV A,R1
MOV DPTR,#3FFFH MOVX @DPTR,A MOV A,R0
ANL A,#0F0H
SWAP A
MOV DPTR,#TAB MOVC A,@A+DPTR MOV DPTR,#5FFFH MOVX @DPTR,A LCALL DEL
MOV A,#0FFH
MOV DPTR,#5FFFH MOVX @DPTR,A CJNE R0,#99H,FP RET
DEL:MOV R5,#100H DEL0:MOV R6,#250H DEL1JNZ R6,DEL1 DJNZ R5,DEL0 RET
INT: CLR ET0
DJNZ R2,GOON MOV A,R0
ADD A,#99H
DA A
MOV R0,A
MOV R2,#20H
GOON:MOV TMOD,#01H MOV TL0,#0B0H MOV TH0,#80H SETB EA
SETB ET0
SETB TR0
RETI
TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H
END

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報(bào)

沙發(fā)
ID:331600 發(fā)表于 2018-11-3 14:24 | 只看該作者
請(qǐng)問(wèn)樓主有電路圖嗎?要可以在proteus上仿真的
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表