📄 text1.src
字号:
; .\Text1.SRC generated from: Text1.c
$NOMOD51
NAME TEXT1
P0 DATA 080H
P1 DATA 090H
P2 DATA 0A0H
P3 DATA 0B0H
T0 BIT 0B0H.4
AC BIT 0D0H.6
T1 BIT 0B0H.5
EA BIT 0A8H.7
IE DATA 0A8H
RD BIT 0B0H.7
ES BIT 0A8H.4
IP DATA 0B8H
RI BIT 098H.0
INT0 BIT 0B0H.2
CY BIT 0D0H.7
TI BIT 098H.1
INT1 BIT 0B0H.3
BELL BIT 0A0H.6
PS BIT 0B8H.4
SP DATA 081H
OV BIT 0D0H.2
WR BIT 0B0H.6
SBUF DATA 099H
PCON DATA 087H
SCON DATA 098H
TMOD DATA 089H
TCON DATA 088H
IE0 BIT 088H.1
IE1 BIT 088H.3
B DATA 0F0H
ACC DATA 0E0H
ET0 BIT 0A8H.1
ET1 BIT 0A8H.3
TF0 BIT 088H.5
TF1 BIT 088H.7
RB8 BIT 098H.2
TH0 DATA 08CH
EX0 BIT 0A8H.0
IT0 BIT 088H.0
TH1 DATA 08DH
TB8 BIT 098H.3
EX1 BIT 0A8H.2
IT1 BIT 088H.2
P BIT 0D0H.0
SM0 BIT 098H.7
TL0 DATA 08AH
SM1 BIT 098H.6
TL1 DATA 08BH
SM2 BIT 098H.5
PT0 BIT 0B8H.1
PT1 BIT 0B8H.3
RS0 BIT 0D0H.3
TR0 BIT 088H.4
RS1 BIT 0D0H.4
TR1 BIT 088H.6
SDA BIT 090H.1
PX0 BIT 0B8H.0
PX1 BIT 0B8H.2
DPH DATA 083H
DPL DATA 082H
SCL BIT 090H.2
REN BIT 098H.4
RXD BIT 0B0H.0
TXD BIT 0B0H.1
F0 BIT 0D0H.5
PSW DATA 0D0H
?PR?_SendByte?TEXT1 SEGMENT CODE
?PR?RcvByte?TEXT1 SEGMENT CODE
?PR?_ISendByte?TEXT1 SEGMENT CODE
?DT?_ISendByte?TEXT1 SEGMENT DATA OVERLAYABLE
?PR?_ISendStr?TEXT1 SEGMENT CODE
?DT?_ISendStr?TEXT1 SEGMENT DATA OVERLAYABLE
?PR?_IRcvByte?TEXT1 SEGMENT CODE
?DT?_IRcvByte?TEXT1 SEGMENT DATA OVERLAYABLE
?PR?_IRcvStr?TEXT1 SEGMENT CODE
?DT?_IRcvStr?TEXT1 SEGMENT DATA OVERLAYABLE
?BI?TEXT1 SEGMENT BIT
EXTRN CODE (_Ack_I2c)
EXTRN CODE (Start_I2c)
EXTRN CODE (Stop_I2c)
EXTRN CODE (?C?CLDPTR)
EXTRN CODE (?C?CSTPTR)
PUBLIC ack
PUBLIC ?_IRcvStr?BYTE
PUBLIC _IRcvStr
PUBLIC _IRcvByte
PUBLIC ?_ISendStr?BYTE
PUBLIC _ISendStr
PUBLIC _ISendByte
PUBLIC RcvByte
PUBLIC _SendByte
RSEG ?DT?_IRcvStr?TEXT1
?_IRcvStr?BYTE:
sla?553: DS 1
suba?554: DS 1
s?555: DS 3
no?556: DS 1
ORG 6
i?557: DS 1
RSEG ?DT?_ISendByte?TEXT1
?_ISendByte?BYTE:
sla?244: DS 1
c?245: DS 1
RSEG ?DT?_IRcvByte?TEXT1
?_IRcvByte?BYTE:
sla?451: DS 1
c?452: DS 3
RSEG ?DT?_ISendStr?TEXT1
?_ISendStr?BYTE:
sla?346: DS 1
suba?347: DS 1
s?348: DS 3
no?349: DS 1
RSEG ?BI?TEXT1
ack: DBIT 1
; #include <reg51.h> /*头文件的包含*/
; #include <intrins.h>
; #define uchar unsigned char /*宏定义*/
; #define uint unsigned int
;
; #define _Nop() _nop_() /*定义空指令*/
;
; /* 常,变量定义区 */
;
; extern void Start_I2c(void);
; extern void Stop_I2c(void);
; extern void Ack_I2c(uchar Data);
;
; sbit BELL=P2^6; /*端口位定义*/
; sbit SDA=P1^1; /*模拟I2C数据传送位*/
; sbit SCL=P1^2; /*模拟I2C时钟控制位*/
;
; /*状态标志*/
; bit ack; /*应答标志位*/
;
; /*******************************************************************
; 字节数据传送函数
; 函数原型: void SendByte(uchar c);
; 功能: 将数据c发送出去,可以是地址,也可以是数据,发完后等待应答,并对
; 此状态位进行操作.(不应答或非应答都使ack=0 假)
; 发送数据正常，ack=1; ack=0表示被控器无应答或损坏。
; ********************************************************************/
; void SendByte(uchar c)
RSEG ?PR?_SendByte?TEXT1
_SendByte:
USING 0
; SOURCE LINE # 28
;---- Variable 'c?040' assigned to Register 'R7' ----
; {
; SOURCE LINE # 29
; uchar BitCnt;
;
; for(BitCnt=0;BitCnt<8;BitCnt++) /*要传送的数据长度为8位*/
; SOURCE LINE # 32
;---- Variable 'BitCnt?041' assigned to Register 'R6' ----
CLR A
MOV R6,A
?C0001:
; {
; SOURCE LINE # 33
; if((c<<BitCnt)&0x80)SDA=1; /*判断发送位*/
; SOURCE LINE # 34
MOV A,R7
MOV R0,AR6
INC R0
SJMP ?C0034
?C0033:
CLR C
RLC A
?C0034:
DJNZ R0,?C0033
JNB ACC.7,?C0004
SETB SDA
SJMP ?C0005
?C0004:
; else SDA=0;
; SOURCE LINE # 35
CLR SDA
?C0005:
; _Nop();
; SOURCE LINE # 36
NOP
; SCL=1; /*置时钟线为高，通知被控器开始接收数据位*/
; SOURCE LINE # 37
SETB SCL
; _Nop();
; SOURCE LINE # 38
NOP
; _Nop(); /*保证时钟高电平周期大于4μs*/
; SOURCE LINE # 39
NOP
; _Nop();
; SOURCE LINE # 40
NOP
; _Nop();
; SOURCE LINE # 41
NOP
; _Nop();
; SOURCE LINE # 42
NOP
; SCL=0;
; SOURCE LINE # 43
CLR SCL
; }
; SOURCE LINE # 44
INC R6
CJNE R6,#08H,?C0001
?C0002:
;
; _Nop();
; SOURCE LINE # 46
NOP
; _Nop();
; SOURCE LINE # 47
NOP
; SDA=1; /*8位发送完后释放数据线，准备接收应答位*/
; SOURCE LINE # 48
SETB SDA
; _Nop();
; SOURCE LINE # 49
NOP
; _Nop();
; SOURCE LINE # 50
NOP
; SCL=1;
; SOURCE LINE # 51
SETB SCL
; _Nop();
; SOURCE LINE # 52
NOP
; _Nop();
; SOURCE LINE # 53
NOP
; _Nop();
; SOURCE LINE # 54
NOP
; if(SDA==1)ack=0;
; SOURCE LINE # 55
JNB SDA,?C0006
CLR ack
SJMP ?C0007
?C0006:
; else ack=1; /*判断是否接收到应答信号*/
; SOURCE LINE # 56
SETB ack
?C0007:
; SCL=0;
; SOURCE LINE # 57
CLR SCL
; _Nop();
; SOURCE LINE # 58
NOP
; _Nop();
; SOURCE LINE # 59
NOP
; }
; SOURCE LINE # 60
RET
; END OF _SendByte
;
; /*******************************************************************
; 字节数据传送函数
; 函数原型: uchar RcvByte();
; 功能: 用来接收从器件传来的数据,并判断总线错误(不发应答信号)，
; 发完后请用应答函数。
; ********************************************************************/
; uchar RcvByte()
RSEG ?PR?RcvByte?TEXT1
RcvByte:
USING 0
; SOURCE LINE # 68
; {
; SOURCE LINE # 69
; uchar retc;
; uchar BitCnt;
;
; retc=0;
; SOURCE LINE # 73
;---- Variable 'retc?142' assigned to Register 'R7' ----
CLR A
MOV R7,A
; SDA=1; /*置数据线为输入方式*/
; SOURCE LINE # 74
SETB SDA
; for(BitCnt=0;BitCnt<8;BitCnt++)
; SOURCE LINE # 75
;---- Variable 'BitCnt?143' assigned to Register 'R6' ----
MOV R6,A
?C0009:
; {
; SOURCE LINE # 76
; _Nop();
; SOURCE LINE # 77
NOP
; SCL=0; /*置时钟线为低，准备接收数据位*/
; SOURCE LINE # 78
CLR SCL
; _Nop();
; SOURCE LINE # 79
NOP
; _Nop(); /*时钟低电平周期大于4.7μs*/
; SOURCE LINE # 80
NOP
; _Nop();
; SOURCE LINE # 81
NOP
; _Nop();
; SOURCE LINE # 82
NOP
; _Nop();
; SOURCE LINE # 83
NOP
; SCL=1; /*置时钟线为高使数据线上数据有效*/
; SOURCE LINE # 84
SETB SCL
; _Nop();
; SOURCE LINE # 85
NOP
; _Nop();
; SOURCE LINE # 86
NOP
; retc=retc<<1;
; SOURCE LINE # 87
MOV A,R7
ADD A,ACC
MOV R7,A
; if(SDA==1)retc=retc+1; /*读数据位,接收的数据位放入retc中 */
; SOURCE LINE # 88
JNB SDA,?C0012
INC R7
?C0012:
; _Nop();
; SOURCE LINE # 89
NOP
; _Nop();
; SOURCE LINE # 90
NOP
; }
; SOURCE LINE # 91
INC R6
CJNE R6,#08H,?C0009
?C0010:
; SCL=0;
; SOURCE LINE # 92
CLR SCL
; _Nop();
; SOURCE LINE # 93
NOP
; _Nop();
; SOURCE LINE # 94
NOP
; return(retc);
; SOURCE LINE # 95
; }
; SOURCE LINE # 96
?C0013:
RET
; END OF RcvByte
;
;
; /*******************************************************************
; 向无子地址器件发送字节数据函数
; 函数原型: bit ISendByte(uchar sla,ucahr c);
; 功能: 从启动总线到发送地址，数据，结束总线的全过程,从器件地址sla.
; 如果返回1表示操作成功，否则操作有误。
; 注意： 使用前必须已结束总线。
; ********************************************************************/
; bit ISendByte(uchar sla,uchar c)
RSEG ?PR?_ISendByte?TEXT1
_ISendByte:
USING 0
; SOURCE LINE # 106
MOV sla?244,R7
MOV c?245,R5
; {
; SOURCE LINE # 107
; Start_I2c(); /*启动总线*/
; SOURCE LINE # 108
LCALL Start_I2c
; SendByte(sla); /*发送器件地址*/
; SOURCE LINE # 109
MOV R7,sla?244
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 110
JB ack,?C0014
CLR C
RET
?C0014:
; SendByte(c); /*发送数据*/
; SOURCE LINE # 111
MOV R7,c?245
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 112
JB ack,?C0016
CLR C
RET
?C0016:
; Stop_I2c(); /*结束总线*/
; SOURCE LINE # 113
LCALL Stop_I2c
; return(1);
; SOURCE LINE # 114
SETB C
; }
; SOURCE LINE # 115
?C0015:
RET
; END OF _ISendByte
;
;
;
;
; /*******************************************************************
; 向有子地址器件发送多字节数据函数
; 函数原型: bit ISendStr(uchar sla,uchar suba,ucahr *s,uchar no);
; 功能: 从启动总线到发送地址，子地址,数据，结束总线的全过程,从器件
; 地址sla，子地址suba，发送内容是s指向的内容，发送no个字节。
; 如果返回1表示操作成功，否则操作有误。
; 注意： 使用前必须已结束总线。
; ********************************************************************/
; bit ISendStr(uchar sla,uchar suba,uchar *s,uchar no)
RSEG ?PR?_ISendStr?TEXT1
_ISendStr:
USING 0
; SOURCE LINE # 128
MOV sla?346,R7
MOV suba?347,R5
MOV s?348,R3
MOV s?348+01H,R2
MOV s?348+02H,R1
; {
; SOURCE LINE # 129
; uchar i;
;
; Start_I2c(); /*启动总线*/
; SOURCE LINE # 132
LCALL Start_I2c
; SendByte(sla); /*发送器件地址*/
; SOURCE LINE # 133
MOV R7,sla?346
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 134
JB ack,?C0017
CLR C
RET
?C0017:
; SendByte(suba); /*发送器件子地址*/
; SOURCE LINE # 135
MOV R7,suba?347
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 136
JB ack,?C0019
CLR C
RET
?C0019:
;
; for(i=0;i<no;i++)
; SOURCE LINE # 138
;---- Variable 'i?350' assigned to Register 'R5' ----
CLR A
MOV R5,A
?C0020:
MOV A,R5
CLR C
SUBB A,no?349
JNC ?C0021
; {
; SOURCE LINE # 139
; SendByte(*s); /*发送数据*/
; SOURCE LINE # 140
MOV R3,s?348
MOV R2,s?348+01H
MOV R1,s?348+02H
LCALL ?C?CLDPTR
MOV R7,A
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 141
JB ack,?C0023
CLR C
RET
?C0023:
; s++;
; SOURCE LINE # 142
MOV A,#01H
ADD A,s?348+02H
MOV s?348+02H,A
CLR A
ADDC A,s?348+01H
MOV s?348+01H,A
; }
; SOURCE LINE # 143
INC R5
SJMP ?C0020
?C0021:
; Stop_I2c(); /*结束总线*/
; SOURCE LINE # 144
LCALL Stop_I2c
; return(1);
; SOURCE LINE # 145
SETB C
; }
; SOURCE LINE # 146
?C0018:
RET
; END OF _ISendStr
;
;
;
;
;
;
; /*******************************************************************
; 向无子地址器件读字节数据函数
; 函数原型: bit IRcvByte(uchar sla,ucahr *c);
; 功能: 从启动总线到发送地址，读数据，结束总线的全过程,从器件地
; 址sla，返回值在c.
; 如果返回1表示操作成功，否则操作有误。
; 注意： 使用前必须已结束总线。
; ********************************************************************/
; bit IRcvByte(uchar sla,uchar *c)
RSEG ?PR?_IRcvByte?TEXT1
_IRcvByte:
USING 0
; SOURCE LINE # 161
MOV sla?451,R7
MOV c?452,R3
MOV c?452+01H,R2
MOV c?452+02H,R1
; {
; SOURCE LINE # 162
; Start_I2c(); /*启动总线*/
; SOURCE LINE # 163
LCALL Start_I2c
; SendByte(sla+1); /*发送器件地址*/
; SOURCE LINE # 164
MOV A,sla?451
INC A
MOV R7,A
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 165
JB ack,?C0024
CLR C
RET
?C0024:
; *c=RcvByte(); /*读取数据*/
; SOURCE LINE # 166
LCALL RcvByte
MOV R3,c?452
MOV R2,c?452+01H
MOV R1,c?452+02H
MOV A,R7
LCALL ?C?CSTPTR
; Ack_I2c(1); /*发送非就答位*/
; SOURCE LINE # 167
MOV R7,#01H
LCALL _Ack_I2c
; Stop_I2c(); /*结束总线*/
; SOURCE LINE # 168
LCALL Stop_I2c
; return(1);
; SOURCE LINE # 169
SETB C
; }
; SOURCE LINE # 170
?C0025:
RET
; END OF _IRcvByte
;
;
;
; /*******************************************************************
; 向有子地址器件读取多字节数据函数
; 函数原型: bit ISendStr(uchar sla,uchar suba,ucahr *s,uchar no);
; 功能: 从启动总线到发送地址，子地址,读数据，结束总线的全过程,从器件
; 地址sla，子地址suba，读出的内容放入s指向的存储区，读no个字节。
; 如果返回1表示操作成功，否则操作有误。
; 注意： 使用前必须已结束总线。
; ********************************************************************/
; bit IRcvStr(uchar sla,uchar suba,uchar *s,uchar no)
RSEG ?PR?_IRcvStr?TEXT1
_IRcvStr:
USING 0
; SOURCE LINE # 182
MOV sla?553,R7
MOV suba?554,R5
MOV s?555,R3
MOV s?555+01H,R2
MOV s?555+02H,R1
; {
; SOURCE LINE # 183
; uchar i;
;
; Start_I2c(); /*启动总线*/
; SOURCE LINE # 186
LCALL Start_I2c
; SendByte(sla); /*发送器件地址*/
; SOURCE LINE # 187
MOV R7,sla?553
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 188
JB ack,?C0026
CLR C
RET
?C0026:
; SendByte(suba); /*发送器件子地址*/
; SOURCE LINE # 189
MOV R7,suba?554
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 190
JB ack,?C0028
CLR C
RET
?C0028:
;
; Start_I2c();
; SOURCE LINE # 192
LCALL Start_I2c
; SendByte(sla+1);
; SOURCE LINE # 193
MOV A,sla?553
INC A
MOV R7,A
LCALL _SendByte
; if(ack==0)return(0);
; SOURCE LINE # 194
JB ack,?C0029
CLR C
RET
?C0029:
;
; for(i=0;i<no-1;i++)
; SOURCE LINE # 196
CLR A
MOV i?557,A
?C0030:
MOV A,no?556
DEC A
MOV R7,A
MOV A,i?557
CLR C
SUBB A,R7
JNC ?C0031
; {
; SOURCE LINE # 197
; *s=RcvByte(); /*发送数据*/
; SOURCE LINE # 198
LCALL RcvByte
MOV R3,s?555
MOV R2,s?555+01H
MOV R1,s?555+02H
MOV A,R7
LCALL ?C?CSTPTR
; Ack_I2c(0); /*发送就答位*/
; SOURCE LINE # 199
CLR A
MOV R7,A
LCALL _Ack_I2c
; s++;
; SOURCE LINE # 200
MOV A,#01H
ADD A,s?555+02H
MOV s?555+02H,A
CLR A
ADDC A,s?555+01H
MOV s?555+01H,A
; }
; SOURCE LINE # 201
INC i?557
SJMP ?C0030
?C0031:
; *s=RcvByte();
; SOURCE LINE # 202
LCALL RcvByte
MOV R3,s?555
MOV R2,s?555+01H
MOV R1,s?555+02H
MOV A,R7
LCALL ?C?CSTPTR
; Ack_I2c(1); /*发送非应位*/
; SOURCE LINE # 203
MOV R7,#01H
LCALL _Ack_I2c
; Stop_I2c(); /*结束总线*/
; SOURCE LINE # 204
LCALL Stop_I2c
; return(1);
; SOURCE LINE # 205
SETB C
; }
; SOURCE LINE # 206
?C0027:
RET
; END OF _IRcvStr
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -