标签：
基于51的NRF2401的汇编程序
欢迎大家光临lefish007的博客：
做了一个暑假的东西！（暑假的时候做的一个基于HT46的无线点菜系统）很希望可以和大家分享，这个程序是拿到2401编写的测试程序，希望可以作为大家的参考！由于水平有限和只是用来自己测试的，程序的结构有点乱，希望大家原谅和大虾的指点。
本人也是得到网上许多的好心人和大虾的帮助，我也希望我能朝这个方向做，给予那些需要帮助的人一点启示和参考！
org 0000
ljmp main
org 0013h
jmp rx_byte
main:
powe_up equ p2.0
dataio equ p2.4
clk1 equ p2.3
dr1 equ p3.3
ce equ p2.0
cs equ p2.2
mov 50h,#08h
mov 51h,#08h
mov 52h,#00h
mov 53h,#0ddh
mov 54h,#0ddh
mov 55h,#0ddh
mov 56h,#0ddh
mov 57h,#00h
mov 58h,#0ddh
mov 59h,#0ddh
mov 60h,#0ddh
mov 61h,#0ddh
mov 62h,#10000011b;前六位为地址位数,后为CRC使能
mov 63h,#01101110b
mov 64h,#02h;以上用于2401初使化
peizhi:
setb cs
mov r3,#08h
mov a, @r0
lop: rlc a
jnc next3
setb dataio
next3: clr cs
nop
nop
djnz r3,lop
inc r0
djnz r6,peizhi
mov r7,#0fh
mov r0,50h
lcall
mov p2,#00h
setb power_up
clr ce
lcall tx_byte
mov 70h,#02h
mov p0,#0ffh
start:
mov p1,#0ffh
mov a,p1
cjne a,#0ffh,next
ljmp start
next:
mov p0,#0
lcall tx_byte
jmp start
tx_byte: mov a,@r0;装载待发送的数据或地址入2401
mov r6,#08h
setb dataio
shift_up: rlc a ;循环装载数据
clr clk1
mov dataio,c
setb clk1 ;clk上升沿采样数据
djnz r6,shift_up
ret
rx_byte: ;接收中断服务子程序
mov r6,#8h
setb dataio
shift_down:clr clk1 ;循环下载数据
mov c,dataio
setb clk1
rlc a
djnz r6,shift_down
mov @r0,a
inc r0 ;数据从50h单元开始暂存
jnb dr1,rx_byte
mov a,50h
lcall chang
reti
CHANG:
MOV DPTR,#TAB
MOVC A,@A+DPTR
RET
TAB: DB 0C0H,0F9H,0A4H,0B0H
DB 99H,92H,82H,83H
DB 80H,90H,88H,83H
DB 0C6H,0A1H,86H,8EH
end
org 0000
ljmp main
main:
call build_word
call nrf_in
start:
setb ce
lcall delay3ms
mov p1,#0fh
mov a,p1
cjne a,#0ffh,next
ljmp start
next: lcall delay12ms
cjne a,#0ffh,next1
ljmp start
next1:
mov p0,#0
lcall sendaddr
djnz r4,next1
lcall tx_byte
jmp start
build_word:
mov p1,#0ffh
mov p2,#0ffh
mov p3,#0ffh
mov r1,#70h
mov r4,#04h
mov 70h,#08h
power_up equ p2.0
ce equ p2.1
cs equ p2.2
clk1 equ p2.3
dataio equ p2.4
dr1 equ p3.3
mov 47h,#08h
mov 48h,#08h
mov 49h,#1ch
mov 4ah,#08h
mov 4bh,#08h
mov 4ch,#00h;\2
mov 4dh,#0d0h
mov 4eh,#0ddh
mov 4fh,#0ddh
mov 50h,#0ddh
mov 51h,#00h;以channel 1
mov 52h,#0ddh
mov 53h,#0ddh
mov 54h,#0ddh
mov 55h,#0ddh
mov 56h,#10000011b;前六位为地址位数,后为CRC使能
mov 57h,#01001111b;one channel recv,in shockburst mode,250kbps
mov 58h,#00001000b;以上用于2401初使化,发送
ret
delay5us:
nop
nop
nop
nop
nop
ret
nrf_in:
clr power_up
clr clk1
clr ce
clr cs
clr dataio
setb power_up
lcall delay3ms
setb cs
mov r5,#0fh
mov r0,#4ah
peizhi:
mov r3,#08h
mov a, @r0
lop: clr clk1
nop
nop
rlc a
mov dataio,c
next3: setb clk1
nop
nop
djnz r3,lop
inc r0
djnz r5,peizhi
setb dr1
clr cs;使配置开始工作
lcall delay5us
ret
delay3ms: mov r3,#10
d1: mov r2,#150
d2: djnz r2,d2
djnz r3,d1
ret
delay12ms: lcall delay3ms
lcall delay3ms
lcall delay3ms
lcall delay3ms
ret
tx_byte: mov a,@r1;装载待发送的数据或地址入2401
mov r6,#08h
shift_up:clr clk1
nop
rlc a ;循环装载数据
nop
mov dataio,c
setb clk1 ;clk上升沿采样数据
nop
djnz r6,shift_up
clr ce
lcall delay3ms
ret
sendaddr: mov a,#0ddh;装载待发送的数据或地址入2401
mov r6,#08h
shift_u: clr clk1
nop
rlc a ;循环装载数据
mov dataio,c
setb clk1 ;clk上升沿采样数据
nop
djnz r6,shift_u
ret
也有C语言的程序，有需要的可以在博客里留言！同时也希望大家指正错误！
系统分类:
单片机 | 用户分类:
基于51单片机的2401汇编程序 | 来源:
原创 | 【推荐给朋友】