DAC8420
rev. 0
–15–
dac8420 至 m68hc11 接口 组装 程序
*
m68hc11 寄存器 定义
portc equ $1003 端口 c 控制 寄存器
* “0,0,0,0;0,clsel,
CLR
,
CS
”
ddrc equ $1007 端口 c 数据 方向
portd equ $1008 端口 d 数据 寄存器
* “0,0,
LD
,sclk;sdi,0,0,0”
ddrd equ $1009 端口 d 数据 方向
spcr equ $1028 spi 控制 寄存器
* “spie,spe,dwom,mstr;cpol,cpha,spr1,spr0”
spsr equ $1029 spi 状态 寄存器
* “spif,wcol,0,modf;0,0,0,0”
spdr equ $102a spi 数据 寄存器; 读-缓存区; 写-shifter
*
* sdi 内存 变量: sdi1 是 encoded 从 0 (十六进制) 至 cf (十六进制)
* 至 选择: dac 一个 – 设置 sdi1 至 $0x
dac b – 设置 sdi1 至 $4x
dac c – 设置 sdi1 至 $8x
dac d – 设置 sdi1 至 $cx
sdi2 是 encoded 从 00 (十六进制) 至 ff (十六进制)
* dac 需要 二 8-位 负载 – 地址 + 12 位
sdi1 equ $00 sdi packed 字节 1 “a1,a0,0,0;msb,db10,db9,db8”
sdi2 equ $01 sdi packed 字节 2
“db7,db6,db5,db4;db3,db2,db1,db0”
* 主要的 程序
org $c000 开始 的 用户’s 内存 在 evb
init lds #$cfff 顶 的 c 页 内存
* initialize 端口 c 输出
ldaa #$07 0,0,0,0;0,1,1,1
* clsel-hi,
CLR
-hi, cs-hi
* 至 重置 dac 至 零-规模, 设置 clsel-lo ($03)
* 至 重置 dac 至 mid-规模, 设置 clsel-hi ($07)
staa portc initialize 端口 c 输出
ldaa #$07 0,0,0,0;0,1,1,1
staa ddrc clsel,
CLR
, 和
CS
是 now 使能 作 输出
* initialize 端口 d 输出
ldaa #$30 0,0,1,1;0,0,0,0
*
LD
-hi,sclk-hi,sdi-lo
staa portd initialize 端口 d 输出
ldaa #$38 0,0,1,1;1,0,0,0
staa ddrd
LD
,sclk, 和 sdi 是 now 使能 作 输出
* initialize spi 接口
ldaa #$5f
staa spcr spi 是 主控,cpha=1,cpol=1,clk 比率=e/32
* call 更新 子例程
bsr 更新 xfer 2 8-位 words 至 dac-8420
jmp $e000 重新开始 buffalo
* 子例程 更新
更新 pshx 保存 寄存器 x, y, 和 一个
PSHY
PSHA
* enter 内容 的 sdi1 数据 寄存器 (dac# 和 4 msbs)
ldaa #$80 1,0,0,0;0,0,0,0
staa sdi1 sdi1 是 设置 至 80 (十六进制)
* enter 内容 的 sdi2 数据 寄存器
ldaa #$00 0,0,0,0;0,0,0,0
staa sdi2 sdi2 是 设置 至 00 (十六进制)
ldx #sdi1 堆栈 pointer 在 1st 字节 至 send 通过 sdi
ldy #$1000 堆栈 pointer 在 在-碎片 寄存器
* clear dac 输出 至 零
bclr portc,y $02 assert
CLR
bset portc,y $02 deassert
CLR
* 得到 dac 准备好 为 数据 输入
bclr portc,y $01 assert
CS
tfrlp ldaa 0,x 得到 一个 字节 至 转移 通过 spi
staa spdr 写 sdi 数据 reg 至 开始 xfer
wait ldaa spsr 循环 至 wait 为 spif
bpl wait spif 是 这 msb 的 spsr
* (当 spif 是 设置, spsr 是 negated)
INX increment 计数器 至 next 字节 为 xfer
cpx #sdi2+ 1 是 我们 完毕 还 ?
bne tfrlp 如果 不, xfer 这 第二 字节
* 更新 dac 输出 和 内容 的 dac 寄存器
bclr portd,y 520 assert
LD
bset portd,y $20 获得 dac 寄存器
bset portc,y $01 de-assert
CS
pula 当 完毕, restore 寄存器 x, y &放大; 一个
PULY
PULX
RTS ** 返回 至 主要的 程序 **
: 点此下载
