单片机跑马灯实验程序(汇编)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
单片机跑马灯实验程序
led equ p1 ;可以增强程序的可移植性
org 00h
ajmp head ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
org 0030h
head:
mov sp ,#70h
mov dptr,#led_on_tab
clr a
mov r2,#0
begin:
call add_on
call dec_off
sjmp begin
;;;;;;;;;;;;;;;;;;;;;;;;;;; 按点亮led灯;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
led_on:
mov a,r2
movc a,@a+dptr
mov led,a
lcall delay_200ms
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;实现小灯逐个点亮的移位逻辑;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
add_on:
acall led_on
inc r2
cjne r2,#9,add_on
mov r2,#7
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;实现小灯逐个熄灭的移位逻辑;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
dec_off:
acall led_on
dec r2
cjne r2,#0,dec_off
ret
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
led_on_tab: DB 255,254,252,248,240,224,192,128,0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
delay_200ms:
mov r5,#20
signed_200ms_:
acall delay_10ms
djnz r5,signed_200ms_
ret
；mytime.s
;;;;;;;;;;;;;;;; 非中断精确1MS定时程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
delay_1ms:
MOV R7 ,#249
signed: ;循环部分4机器周期
nop
nop
djnz R7 ,signed
ret ;返回指令2机器周期
;2+249*4+2=1000us 可以精确定时1MS，假设外部晶振是12M
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 非中断精确10MS定时程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; delay_10ms:
mov r6,#9 ;2个机器周期用2us
delay_10ms_sined: ;9次循环共用9(1ms+4us)=9036us
acall delay_1ms
djnz r6,delay_10ms_sined
MOV r6 ,#240 ;2个机器中期用2us
signed_10ms : ;循环部分4机器周期共240次
nop
nop
djnz r6 ,signed_10ms
ret ;返回指令要2us
;2us+9036us+240*4us+2us = 10ms 即可精确定时10ms ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 非中断精确定时1s ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
delay_1s:
mov r5,#99 ;两个机器周期2us
delay_1s_signed: ;循环指令周期为4us，加上延时10ms
;(10ms+4us)*99 = 990.396ms
acall delay_10ms
djnz r5,delay_1s_signed
mov r5 ,#9 ;两个机器周期2us
signed_1s: ;循环指令周期为4us，加上延时1ms
;(1ms+4us)*9 = 9ms+36us
acall delay_1ms
djnz r5 ,signed_1s
mov r5 ,# 140 ;机器周期2us
signed_1s_: ;一次循环4us共有140次。140us*4 = 560us
nop
nop
djnz r5,signed_1s_
ret ;2us
;2us+990ms+396us+2us+9ms+36us+2us+560us+2us = 999ms+1000us = 1s
end