📄 24cxx.s
字号:
.module _24Cxx.C
.area text(rom, con, rel)
.dbfile E:\avr\m16_twi_24x\24Cxx.C
.dbfunc e wt24c _wt24c fV
; n -> R10,R11
; num -> R12,R13
; ad_dst -> R14,R15
; p_rsc -> y+11
.even
_wt24c::
xcall push_arg4
xcall push_gset5
movw R14,R18
sbiw R28,1
ldd R12,y+15
ldd R13,y+16
.dbline -1
.dbline 72
; #include<iom16v.h>
; #include<macros.h>
; #include"xd.h"
; #include"xdprj.h"
;
;
;
; //------在此设定芯片型号------
; #define e2prom 1 // <---在此设定芯片型号, 1代表24C01; 16代表24C16; 512代表24C512
;
; #if e2prom==1
; #define PAGE_SIZE 8
; #define SIZE 0x007f
; #elif e2prom==2
; #define PAGE_SIZE 8
; #define SIZE 0x00ff
; #elif e2prom==4
; #define PAGE_SIZE 16
; #define SIZE 0x01ff
; #elif e2prom==8
; #define PAGE_SIZE 16
; #define SIZE 0x03ff
; #elif e2prom==16
; #define PAGE_SIZE 16
; #define SIZE 0x07ff
; #elif e2prom==32
; #define PAGE_SIZE 32
; #define SIZE 0x0fff
; #elif e2prom==64
; #define PAGE_SIZE 32
; #define SIZE 0x1fff
; #elif e2prom==128
; #define PAGE_SIZE 64
; #define SIZE 0x3fff
; #elif e2prom==256
; #define PAGE_SIZE 64
; #define SIZE 0x7fff
; #elif e2prom==512
; #define PAGE_SIZE 128
; #define SIZE 0xffff
; #endif
; //--------------------------
;
; //--------在此设定芯片地址-------
; #define W_ADD_COM 0xa0 //写字节命令及器件地址(根据地址实际情况改变), 1010 A2 A1 A0 0
; #define R_ADD_COM 0xa1 //读命令字节及器件地址(根据地址实际情况改变), 1010 A2 A1 A0 1
; //-------------------------------
;
;
;
; #define SLAW 0x18 //SLA_W 已正常发送代码,判断器件是否正常应答的常量.
;
; //-----在此改变预置错误号-----
; #define ERR_SLAW ERR_10 //写字节命令及器件地址错, 在此也就是读写器件错!!
; //---------------------------
;
;
;
; //-----------4个I2总线公用函数, 可供其它I2总线器件的程序调用--------------
; void i2cstart(void); //总线上起动开始条件
; uchar i2cwt(uchar a); //把一个字节数据输入器件, 返回TWI状态
; uchar i2crd(void); //i2c读要调用的函数
; void i2cstop(void); //总线上起动停止条件
; //------------------------------------------------------------------------
;
; uchar * wt24c_fc(uchar *p, uint ad, uchar n); //向24Cxx写入数据wt24c_h()所要调用的函数
;
; //向24Cxx写入数据
; //参数: *p_rsc要输出数据的主机内存地址指针; ad_dst要写入数据的i2c的地址(双字节); num数据个数
; //参数条件: ad_dst: ad_dst+(num-1)不能大于器件的最高地址; num必须>0;
; void wt24c(uchar *p_rsc, uint ad_dst, uint num)
; { uint n;
.dbline 74
;
; n=ad_dst/PAGE_SIZE; //确定地址与块地址的差
movw R10,R14
lsr R11
ror R10
lsr R11
ror R10
lsr R11
ror R10
.dbline 75
; if(n) n=(ulong)PAGE_SIZE*(n+1)-ad_dst;
tst R10
brne X0
tst R11
breq L2
X0:
.dbline 75
movw R24,R10
adiw R24,1
movw R2,R24
clr R4
clr R5
ldi R20,8
ldi R21,0
ldi R22,0
ldi R23,0
st -y,R5
st -y,R4
st -y,R3
st -y,R2
movw R16,R20
movw R18,R22
xcall empy32u
movw R2,R16
movw R4,R18
movw R6,R14
clr R8
clr R9
sub R2,R6
sbc R3,R7
sbc R4,R8
sbc R5,R9
movw R10,R2
xjmp L3
L2:
.dbline 76
; else n=PAGE_SIZE-ad_dst;
ldi R24,8
ldi R25,0
movw R10,R24
sub R10,R14
sbc R11,R15
L3:
.dbline 78
;
; if(n>=num) //如果ad_dst所在的数据块的末尾地址 >= ad_dst + num, 就直接写入num个数据
cp R10,R12
cpc R11,R13
brlo L4
.dbline 79
; { wt24c_fc(p_rsc, ad_dst, num);
.dbline 79
std y+0,R12
movw R18,R14
ldd R16,y+11
ldd R17,y+12
xcall _wt24c_fc
.dbline 80
; if(syserr!=0) return;
lds R2,_syserr
tst R2
brne X3
xjmp L5
X3:
.dbline 80
xjmp L1
X1:
.dbline 81
; }
L4:
.dbline 83
; else //如果ad_dst所在的数据块末尾地址 < ad_dst + num, 就先写入ad_dst所在的数据块末尾地址与 ad_dst 之差个数据
; { p_rsc=wt24c_fc(p_rsc, ad_dst, n);
.dbline 83
std y+0,R10
movw R18,R14
ldd R16,y+11
ldd R17,y+12
xcall _wt24c_fc
std y+12,R17
std y+11,R16
.dbline 84
; if(syserr!=0) return;
lds R2,_syserr
tst R2
breq L8
.dbline 84
xjmp L1
L8:
.dbline 86
;
; num-=n; //更新剩下数据个数
sub R12,R10
sbc R13,R11
.dbline 87
; ad_dst+=n; //更新剩下数据的起始地址
add R14,R10
adc R15,R11
xjmp L11
L10:
.dbline 91
;
; //把剩下数据写入器件
; while(num>=PAGE_SIZE) //先按PAGE_SIZE为长度一页一页的写入
; { p_rsc=wt24c_fc(p_rsc, ad_dst, PAGE_SIZE);
.dbline 91
ldi R24,8
std y+0,R24
movw R18,R14
ldd R16,y+11
ldd R17,y+12
xcall _wt24c_fc
std y+12,R17
std y+11,R16
.dbline 92
; if(syserr!=0) return;
lds R2,_syserr
tst R2
breq L13
.dbline 92
xjmp L1
L13:
.dbline 94
movw R24,R12
sbiw R24,8
movw R12,R24
.dbline 95
movw R24,R14
adiw R24,8
movw R14,R24
.dbline 96
L11:
.dbline 90
movw R24,R12
cpi R24,8
ldi R30,0
cpc R25,R30
brsh L10
.dbline 98
;
; num-=PAGE_SIZE; //更新剩余数据个数
; ad_dst+=PAGE_SIZE; //更新剩下数据的起始地址
; }
;
; if(num) //把最后剩下的小于一个PAGE_SIZE长度的数据写入器件
cpi R24,0
cpc R24,R25
breq L15
X2:
.dbline 99
; wt24c_fc(p_rsc, ad_dst, num);
std y+0,R12
movw R18,R14
ldd R16,y+11
ldd R17,y+12
xcall _wt24c_fc
L15:
.dbline 100
L5:
.dbline -2
L1:
adiw R28,1
xcall pop_gset5
adiw R28,4
.dbline 0 ; func end
ret
.dbsym r n 10 i
.dbsym r num 12 i
.dbsym r ad_dst 14 i
.dbsym l p_rsc 11 pc
.dbend
.dbfunc e rd24c _rd24c fV
; t -> R10
; num -> R22,R23
; ad_rsc -> R12,R13
; p_dst -> R20,R21
.even
_rd24c::
xcall push_gset4
movw R12,R18
movw R20,R16
ldd R22,y+8
ldd R23,y+9
.dbline -1
.dbline 108
; }
; }
;
;
; //从24cxx读出数据
; //参数: *p_dst要读入数据的主机内存地址指针; ad_rsc要输出数据的i2c的地址(整形); num数据个数(整形)
; //参数条件: ad_dst+(num-1)不能大于器件的最高地址; num必须>0;
; void rd24c(uchar *p_dst, uint ad_rsc, uint num)
; { uchar t=0;
.dbline 108
clr R10
.dbline 111
;
; #if e2prom<32
; t=ad_rsc>>8;
movw R10,R12
mov R10,R11
clr R11
.dbline 112
; t<<=1;
lsl R10
.dbline 115
; #endif
;
; i2cstart(); //发送起始信号
xcall _i2cstart
.dbline 117
;
; if(i2cwt(W_ADD_COM+t)==SLAW)//发送SLA_W, 写字节命令及器件地址
mov R16,R10
subi R16,96 ; addi 160
xcall _i2cwt
cpi R16,24
brne L18
.dbline 118
; {
.dbline 122
; #if e2prom>16
; i2cwt(ad_rsc>>8); //ad_rsc的高位, 发送要读出数据的地址
; #endif
; i2cwt(ad_rsc); //ad_rsc的低位
mov R16,R12
xcall _i2cwt
.dbline 124
;
; i2cstart(); //再发送起始信号
xcall _i2cstart
.dbline 125
; i2cwt(R_ADD_COM+t); //发送SLA_R, 读命令字节及器件地址
mov R16,R10
subi R16,95 ; addi 161
xcall _i2cwt
.dbline 127
;
; for(;num>0;num--)
xjmp L23
L20:
.dbline 128
.dbline 128
xcall _i2crd
movw R30,R20
std z+0,R16
.dbline 129
subi R20,255 ; offset = 1
sbci R21,255
.dbline 130
L21:
.dbline 127
subi R22,1
sbci R23,0
L23:
.dbline 127
cpi R22,0
cpc R22,R23
brne L20
X4:
.dbline 131
; { *p_dst=i2crd(); //从器件读出一个字节
; p_dst++;
; }
; }
xjmp L19
L18:
.dbline 132
; else syserr=ERR_SLAW; //写字节命令及器件地址错或对方无应答
ldi R24,10
sts _syserr,R24
L19:
.dbline 134
;
; i2cstop();
xcall _i2cstop
.dbline -2
L17:
xcall pop_gset4
.dbline 0 ; func end
ret
.dbsym r t 10 c
.dbsym r num 22 i
.dbsym r ad_rsc 12 i
.dbsym r p_dst 20 pc
.dbend
.dbfunc e wt24c_fc _wt24c_fc fpc
; t -> R12
; n -> R22
; ad -> R10,R11
; p -> R20,R21
.even
_wt24c_fc::
xcall push_gset4
movw R10,R18
movw R20,R16
ldd R22,y+8
.dbline -1
.dbline 143
;
; }
;
;
;
; //向24Cxx写入数据wt24c_h()所要调用的函数
; //返回写入n个字节后的主机内存指针
; uchar * wt24c_fc(uchar *p, uint ad, uchar n)
; { uchar t=0;
.dbline 143
clr R12
.dbline 146
;
; #if e2prom<32
; t=ad>>8;
movw R12,R10
mov R12,R13
clr R13
.dbline 147
; t<<=1;
lsl R12
.dbline 150
; #endif
;
; i2cstart(); //发送起始信号
xcall _i2cstart
.dbline 152
;
; if(i2cwt(W_ADD_COM+t)==SLAW)//发送SLA_W, 写字节命令及器件地址
mov R16,R12
subi R16,96 ; addi 160
xcall _i2cwt
cpi R16,24
brne L25
.dbline 153
; {
.dbline 157
; #if e2prom>16
; i2cwt(ad>>8); //ad_dst的高位到器件
; #endif
; i2cwt(ad); //ad_dst的低位到器件
mov R16,R10
xcall _i2cwt
.dbline 159
;
; for(;n>0;n--) //发送要写入的数据
xjmp L30
L27:
.dbline 160
.dbline 160
movw R30,R20
ldd R16,z+0
xcall _i2cwt
.dbline 161
subi R20,255 ; offset = 1
sbci R21,255
.dbline 162
L28:
.dbline 159
dec R22
L30:
.dbline 159
clr R2
cp R2,R22
brlo L27
.dbline 163
; { i2cwt(*p);
; p++;
; }
; }
xjmp L26
L25:
.dbline 164
; else syserr=ERR_SLAW; //写字节命令及器件地址错
ldi R24,10
sts _syserr,R24
L26:
.dbline 166
;
; i2cstop();
xcall _i2cstop
.dbline 167
; tms(6); //延时6ms
ldi R16,6
xcall _tms
.dbline 169
;
; return(p);
movw R16,R20
.dbline -2
L24:
xcall pop_gset4
.dbline 0 ; func end
ret
.dbsym r t 12 c
.dbsym r n 22 c
.dbsym r ad 10 i
.dbsym r p 20 pc
.dbend
.dbfunc e i2cstart _i2cstart fV
.even
_i2cstart::
.dbline -1
.dbline 178
; }
;
;
;
; //-------------------------------以下为其它I2总线器件可调用的函数--------------------------
;
; //总线上起动开始条件
; void i2cstart(void)
; {
.dbline 179
; TWCR= BIT(TWINT) | BIT(TWSTA) | BIT(TWEN);
ldi R24,164
out 0x36,R24
L32:
.dbline 180
L33:
.dbline 180
; while (!(TWCR & BIT(TWINT)));
in R2,0x36
sbrs R2,7
rjmp L32
.dbline -2
L31:
.dbline 0 ; func end
ret
.dbend
.dbfunc e i2cwt _i2cwt fc
; a -> R16
.even
_i2cwt::
.dbline -1
.dbline 185
; }
;
; //把一个字节数据输入器件, 返回TWI状态
; uchar i2cwt(uchar a)
; {
.dbline 186
; TWDR = a;
out 0x3,R16
.dbline 187
; TWCR = BIT(TWINT) | BIT(TWEN);
ldi R24,132
out 0x36,R24
L36:
.dbline 188
L37:
.dbline 188
; while (!(TWCR & BIT(TWINT)));
in R2,0x36
sbrs R2,7
rjmp L36
.dbline 189
; _NOP();
nop
.dbline 190
; return(TWSR&0b11111000);
in R16,0x1
andi R16,248
.dbline -2
L35:
.dbline 0 ; func end
ret
.dbsym r a 16 c
.dbend
.dbfunc e i2crd _i2crd fc
.even
_i2crd::
.dbline -1
.dbline 196
; }
;
; //i2c读要调用的函数
; //从器件读出一个字节
; uchar i2crd(void)
; {
.dbline 197
; TWCR= BIT(TWINT) | BIT(TWEA) | BIT(TWEN);
ldi R24,196
out 0x36,R24
L40:
.dbline 198
L41:
.dbline 198
; while (!(TWCR & BIT(TWINT)));
in R2,0x36
sbrs R2,7
rjmp L40
.dbline 199
; return(TWDR);
in R16,0x3
.dbline -2
L39:
.dbline 0 ; func end
ret
.dbend
.dbfunc e i2cstop _i2cstop fV
.even
_i2cstop::
.dbline -1
.dbline 205
; }
;
;
; //总线上起动停止条件
; void i2cstop(void)
; {
.dbline 206
; TWCR = BIT(TWINT) | BIT(TWSTO) | BIT(TWEN);
ldi R24,148
out 0x36,R24
.dbline -2
L43:
.dbline 0 ; func end
ret
.dbend
.dbfunc e Delay100us _Delay100us fV
; i -> R20
; x -> R16
.even
_Delay100us::
xcall push_gset1
.dbline -1
.dbline 211
; }
; //************************************************************************/
; //延时函数 古欣添加
; void Delay100us(uchar x)
; {
.dbline 213
; uchar i; //4clock
; for(i=147;x!=0;x--)
ldi R20,147
xjmp L48
L49:
.dbline 214
L50:
.dbline 214
mov R24,R20
subi R24,1
mov R20,R24
tst R24
brne L49
L46:
.dbline 213
dec R16
L48:
.dbline 213
tst R16
brne L50
.dbline -2
L44:
xcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r i 20 c
.dbsym r x 16 c
.dbend
.dbfunc e tms _tms fV
; n -> R20
.even
_tms::
xcall push_gset1
mov R20,R16
.dbline -1
.dbline 217
; while(--i); //5 * i clock
; }
; void tms(uchar n)
; {
.dbline 218
xjmp L56
L53:
.dbline 218
.dbline 219
ldi R16,10
xcall _Delay100us
.dbline 220
L54:
.dbline 218
dec R20
L56:
.dbline 218
; for (;n!=0;n--){
tst R20
brne L53
.dbline -2
L52:
xcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r n 20 c
.dbend
.dbfunc e Delay1s _Delay1s fV
; m -> R20,R21
.even
_Delay1s::
xcall push_gset1
movw R20,R16
.dbline -1
.dbline 223
; Delay100us(10);
; }
; }
; void Delay1s(uint m) // m <= 6 ,when m==7, it is 1.
; {
.dbline 224
; m=m*40;
ldi R16,40
ldi R17,0
movw R18,R20
xcall empy16s
movw R20,R16
.dbline 225
xjmp L61
L58:
.dbline 225
.dbline 226
ldi R16,250
xcall _Delay100us
.dbline 227
L59:
.dbline 225
subi R20,1
sbci R21,0
L61:
.dbline 225
; for (;m!=0;m--){
cpi R20,0
cpc R20,R21
brne L58
X5:
.dbline -2
L57:
xcall pop_gset1
.dbline 0 ; func end
ret
.dbsym r m 20 i
.dbend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -