Freescale MC9S08AW60汇编学习笔记（七）

　　之前我们写了延时的子程序，但是仅仅在电脑上运行，在CodeWarrior中调试根本给不了延时所实现的直观效果，也就是说程序运行到哪里但我们却无法直观地得出发生了延时的效果，所以我们要把这个延时的程序用出去，比如点亮一盏led灯，让它延时我们规定的时间后熄灭，然后再点亮再熄灭......这里我们使用清华版的MC9S08AW60开发板来验证延时的效果。对于开发板的使用和烧写请多看看数据手册和使用说明。我们直接给出验证延时的代码：

　　

 org $0070
num ds.b 1
count1 ds.b 1
count2 ds.b 1

 org $1860
re_cycle:
　　mov #70T,num
　　dbnz num,*
　　rts
delay_10ms:
　　mov #78T,count1
re_call:
　　bsr re_cycle
　　dbnz count1,re_call
　　mov #07T,count1
　　dbnz count1,*
　　rts

delay_500ms:
　　mov #50T,count2
re:
　　bsr delay_10ms
　　dbnz count2,re
　　rts

main:
　　bset 5,PTFD                ;初始化PTF5
　　bset 5,PTFDD              ;将PTF5设置为输出
again:
　　bclr 5,PTFD                 ;点亮核心子板上的蓝色led
　　bsr delay_500ms        ;延时
　　bset 5,PTFD                ;熄灭核心子板上的蓝色led
　　bsr delay_500ms
　　jmp again


 org $fffe
 dc.w main

　　这个程序大部分我们都是了解过的，所不熟悉的就是对PTFD的操作，我们所需要记住的是：点亮开发板上的灯就是对MCU的端口发送相应的数据，因为led灯是共阳极的，所以数据为‘0’时点亮，为‘1’时熄灭。当然，在使用某个端口之前不要忘记对该端口进行初始化，也就是将其设为输出，并设置初始状态为熄灭。解释一下：bset即置‘1’，bclr即置‘0’。对方向来说：‘1’为输出，‘0’为输入；对小灯的点亮与否来说：‘1’为熄灭，‘0’为点亮。

　　既然我们可以点亮一颗小灯，我们当然也能点亮许多小灯，如果我们点亮的是七段led数码管上的小灯，这是不是就意味着我们可以在七段led数码管上显示出1、2、3、4、5.......之类的数字或者a、b、c......之类的字母。例子如下：在4个数码管上同时显示0123。

 INCLUDE MC9S08AW60.inc
 org $0070
seg ds.b 1
num ds.b 1
count ds.b 1

 org $1860
table:                                      ;共阳极的七段数码管的段码表
　　dc.b $c0,$f9,$a4,$b0        ;0123的字形码

re_cycle:
　　mov #70t,num
　　dbnz num,*
　　rts
delay_1ms:
　　mov #08t,count
re_call:
　　bsr re_cycle
　　dbnz count,re_call
　　rts

io_init:                                     ;对所需要使用到的各个端口初始化
　　mov #$00,PTBD
　　mov #$00,PTDD
　　mov #$ff,PTGD
　　lda #%11111111
　　sta PTBDD
　　sta PTDDD
　　sta PTGDD
　　sta PTBDS
　　sta PTDDS
　　sta PTGDS
　　rts

main:
　　clrx
　　clrh
　　clra
　　sta $1802                          ;禁止掉COP，否则程序运行时间长了会发生COP复位
　　jsr io_init
　　mov #$fe,seg                    ;设置位选
again:
　　clrh
　　lda table,x                           ;查表得出字形码

　　sta PTBD                             ;点亮七段led数码管
　　lsra
　　lsra
　　lsra
　　lsra
　　sta PTDD
　　mov seg,PTGD

　　jsr delay_1ms                      ;延时
　　mov #$ff,PTGD                    ;熄灭led

　　lda seg                                 ;改变位选
　　sec                                       ;1-->C
　　rola                                       ;将A中数据和标志位C一同左移一位
　　sta seg

　　incx
　　cpx #$4                                ;判断是否结束并开启下一轮循环
　　bne next
　　clrx
　　mov #$fe,seg
next:
　　jmp again

 org $fffe
 dc.w main

　　为了实现1234同时显示在七段led数码管上，我们采用动态显示方式，即瞬间只点亮一个数码管，延时后再点亮下一个数码管，如此不停的循环显示，利用人眼视觉暂留效应，达到同时显示的效果。此外，我精心设计出了一个实现1234滚动显示的程序，如下：

 INCLUDE MC9S08AW60.inc
 org $0070
seg ds.b 1
num ds.b 1
count ds.b 1
count2 ds.b 1
sum ds.b 1
sum1 ds.b 1

 org $1860
table:
　　dc.b $c0,$f9,$a4,$b0,$ff

re_cycle:
　　mov #70t,num
　　dbnz num,*
　　rts
delay_1ms:
　　mov #08t,count
re_call:
　　bsr re_cycle
　　dbnz count,re_call
　　rts

delay_10ms:
　　mov #78t,count
re: bsr re_cycle
　　dbnz count,re
　　mov #07t,count
　　dbnz count,*
　　rts

delay_500ms:
　　mov #50t,count2
　　re1:bsr delay_10ms
　　dec count2
　　ldx count2
　　cpx #$00
　　bne re1
　　rts

io_init:
　　mov #$00,PTBD
　　mov #$00,PTDD
　　mov #$ff,PTGD
　　lda #%11111111
　　sta PTBDD
　　sta PTDDD
　　sta PTGDD
　　sta PTBDS
　　sta PTDDS
　　sta PTGDS
　　rts

main:
　　clrx
　　clrh
　　clra
　　sta $1802
　　jsr io_init
　　mov #$00,sum
　　mov #$00,sum1
　　mov #$fe,seg
again:
　　ldx sum
　　cpx #$5
　　bne ne
　　mov #$00,sum

ne: clrh
　　ldx sum
　　lda table,x

　　sta PTBD
　　lsra
　　lsra
　　lsra
　　lsra
　　sta PTDD
　　mov seg,PTGD

　　jsr delay_500ms
　　mov #$ff,PTGD

　　lda seg
　　sec
　　rola
　　sta seg

　　inc sum

　　inc sum1
　　ldx sum1
　　cpx #$4
　　bne next
　　mov #$00,sum1
　　mov #$fe,seg
next:
　　jmp again

 org $fffe
 dc.w main

　　实现这个程序的主要思路是：位选依然在4个数码管之间循环，而点亮数码管的字形码则在加了一个不显示选项的段码表之间循环，由此形成的错位打到滚动显示的效果。

 

转载于:https://www.cnblogs.com/daviddolphin/p/4472113.html