8变频eeprom.txt

高频头1256编程

scl equ p3.5
sda equ p3.4
mov sp,#62h
mov r1,#30h
mov r0,#30h
mov r6,#08h
mov b,#00h

lll:acall iicstart
mov a,#10100000b
acall send
mov a,b
acall send
acall iicstart
mov a,#10100001b
acall send
acall read8
acall iicstop
mov @r0,a
inc r0
inc b
djnz r6,lll


loop:
mov a,r1
subb a,#38h
jz sss
ajmp kkk
sss:mov r1,#30h

kkk:
mov r0,#30h            ;FI1256查表数据送50h--52h缓冲区
mov r2,#0feh
mov r3,#08h
read:
mov p1,r2
mov a,@r0
mov dptr,#0600h
movc a,@a+dptr
mov 50h,a
mov a,@r0
mov dptr,#0700h
movc a,@a+dptr
mov 51h,a
mov a,@r0
mov dptr,#0800h
movc a,@a+dptr
mov 52h,a

acall iicstart

mov a,#0c0h            ;送5字节FI1256总体控制字
acall send
mov a,50h
acall send
mov a,51h
acall send
mov a,#8eh
acall send
mov a,52h
acall send

acall iicstop

mov a,r2
rl a
mov r2,a
inc r0
djnz r3,read
                   
mov dptr #0900h         ;显示数据送40h-43h缓冲区
mov a,@r1
movc a,@a+dptr
mov 43h,a
mov dptr #0a00h
mov a,@r1
movc a,@a+dptr
mov 42h,a
mov 41h,#02h
mov dptr #0b00h
mov a,r1
subb a,#30h
movc a,@a+dptr
mov 40h,a

mov a,40h                ;显示字符
acall bytedisplay
mov a,41h
acall bytedisplay
mov a,42h
acall bytedisplay
mov a,43h
acall bytedisplay

acall key
jnb f0,loop
acall keyproc
ajmp loop              ;主程序结束

k

key:                          ;键盘扫描子程序
clr f0
orl p3,#10001100b
mov a,p3
orl a,#01110011b
cpl a
jz k_ret
acall delay
orl p3,#10001100b
mov a,p3
orl a,#01110011b
cpl a
jz k_ret
mov b,a
setb f0

k_ret:
orl p3,#10001100b
mov a,p3
orl a,#01110011b
cpl a
jz k_ret1
ajmp k_ret
k_ret1:ret

iicstart:                     ;IIC总线开始信号
clr scl
nop
nop
setb sda
nop
nop
setb scl
nop
nop
clr sda
nop
nop
clr scl
nop
nop
ret

send:mov r5,#08h              ;FI1256送字节子程序
senda:clr scl
rlc a
mov sda,c
nop
nop
setb scl
nop
nop
djnz r5,senda
clr scl
nop
nop
clr sda
nop
nop
setb scl
nop
nop
ret

iicstop:                      ;IIC总线停止信号
clr scl
nop
nop
clr sda
nop
nop
setb scl
nop
nop
setb sda
ret

bytedisplay:                  ;字节显示子程序
mov r4,#08h
cyc:rrc a
cpl c
setb p3.0
mov p3.1,c
clr p3.0
setb p3.0
djnz r4,cyc
ret

delay:                        ;延时10ms子程序
mov r7,#100
d1:mov r6,#100
djnz r6,$
djnz r7,d1
ret

read8:
mov r7,#09h
setb sda
clr a
rd:mov c,sda
rlc a
setb scl
nop
nop
clr scl
nop
nop
djnz r7,rd
ret                                                                             
end