📄 鱼探仪.src

📁 温度采集显示与PID控制
💻 SRC
📖 第 1 页 / 共 5 页
字号:
			; SOURCE LINE # 125
;     {  
			; SOURCE LINE # 126
;   switch(tongxin_rxd())
			; SOURCE LINE # 127
	LCALL	tongxin_rxd
	MOV  	A,R7
	CJNE 	A,#0EH,?C0429
?C0429:
	JC   	$ + 5H
	LJMP 	?C0033
	MOV  	DPTR,#?C0430
	MOV  	R0,A
	ADD  	A,R0
	ADD  	A,R0
	JMP  	@A+DPTR
?C0430:
	LJMP 	?C0015
	LJMP 	?C0016
	LJMP 	?C0017
	LJMP 	?C0018
	LJMP 	?C0019
	LJMP 	?C0020
	LJMP 	?C0021
	LJMP 	?C0022
	LJMP 	?C0023
	LJMP 	?C0024
	LJMP 	?C0025
	LJMP 	?C0026
	LJMP 	?C0027
	LJMP 	?C0029
;        {
			; SOURCE LINE # 128
;         case 0x00: tongxin_txd(0);break;  //空操作
			; SOURCE LINE # 129
?C0015:
	LJMP 	?C0475
;         case 0x01: plset(); tongxin_txd(0);break;//频率设置
			; SOURCE LINE # 130
?C0016:
	LCALL	plset
?C0462:
	LJMP 	?C0475
;         case 0x02: glset(); tongxin_txd(0);break;//功率设置
			; SOURCE LINE # 131
?C0017:
	LCALL	glset
?C0463:
	LJMP 	?C0475
;         case 0x03: kgset(); tongxin_txd(0);break;//开关
			; SOURCE LINE # 132
?C0018:
	LCALL	kgset
?C0464:
	LJMP 	?C0475
;         case 0x04: zbset(); tongxin_txd(0);break;//杂波设置
			; SOURCE LINE # 133
?C0019:
	LCALL	zbset
?C0465:
	LJMP 	?C0475
;         case 0x05: sdset(); tongxin_txd(0);break;//深度设置
			; SOURCE LINE # 134
?C0020:
	LCALL	sdset
?C0466:
	LJMP 	?C0475
;         case 0x06: zyset(); tongxin_txd(0);break;//增益设置
			; SOURCE LINE # 135
?C0021:
	LCALL	zyset
?C0467:
	LJMP 	?C0475
;         case 0x07: stcset();tongxin_txd(0);break; //stc设置
			; SOURCE LINE # 136
?C0022:
	LCALL	stcset
?C0468:
	LJMP 	?C0475
;         case 0x08: plsm();  tongxin_txd(0);break;//自动频率扫描确定探头频率
			; SOURCE LINE # 137
?C0023:
	LCALL	plsm
?C0469:
	LJMP 	?C0475
;         case 0x09: ganset();tongxin_txd(0);break;//干涉消除
			; SOURCE LINE # 138
?C0024:
	LCALL	ganset
?C0470:
	LJMP 	?C0475
;         case 0x0a: jspl();  tongxin_txd(0);break;//频率修正
			; SOURCE LINE # 139
?C0025:
	LCALL	jspl
?C0471:
	LJMP 	?C0475
;         case 0x0b: kodai(); tongxin_txd(0);break;//扩大倍数
			; SOURCE LINE # 140
?C0026:
	LCALL	kodai
?C0472:
	LJMP 	?C0475
;         case 0x0c: wdfu++;
			; SOURCE LINE # 141
?C0027:
	MOV  	DPTR,#wdfu
	MOVX 	A,@DPTR
	INC  	A
	MOVX 	@DPTR,A
;                   if(wdfu>=60)
			; SOURCE LINE # 142
	MOVX 	A,@DPTR
	CLR  	C
	SUBB 	A,#03CH
	JC   	?C0028
;                       {
			; SOURCE LINE # 143
;                       wdfu=0;
			; SOURCE LINE # 144
	CLR  	A
	MOVX 	@DPTR,A
;                       wdcj();
			; SOURCE LINE # 145
	LCALL	wdcj
;                       }
			; SOURCE LINE # 146
?C0028:
;                   sukh=suk;
			; SOURCE LINE # 147
;                   caijisendud=caijisendu;
			; SOURCE LINE # 148
;                   plzusf();//频率和增益输出，stc,功率设定
			; SOURCE LINE # 149
	LCALL	L?0500
;                   pbhd(scsj());//判别设置参数，进入实际发射采集无海底扩大发射采集
			; SOURCE LINE # 150
	LCALL	scsj
	LCALL	_pbhd
;                   haidisendu=0;
			; SOURCE LINE # 151
	CLR  	A
	MOV  	haidisendu,A
	MOV  	haidisendu+01H,A
;                   scsjq();//判别微调点参数
			; SOURCE LINE # 152
	LCALL	scsjq
;                   qdwer();//启动发射采集
			; SOURCE LINE # 153
	LCALL	qdwer
;                   sujucle();///海底数据处理
			; SOURCE LINE # 154
	LCALL	sujucle
;                   
;                   sujuclf();//无海底扩大数据处理压缩
			; SOURCE LINE # 156
	LCALL	sujuclf
;                   tongxin_txd(0);//上传数据
			; SOURCE LINE # 157
?C0473:
;                   break;
			; SOURCE LINE # 158
	LJMP 	?C0475
;         case 0x0d: wdfu++;
			; SOURCE LINE # 159
?C0029:
	MOV  	DPTR,#wdfu
	MOVX 	A,@DPTR
	INC  	A
	MOVX 	@DPTR,A
;                   if(wdfu>=60)
			; SOURCE LINE # 160
	MOVX 	A,@DPTR
	CLR  	C
	SUBB 	A,#03CH
	JC   	?C0030
;                       {
			; SOURCE LINE # 161
;                       wdfu=0;
			; SOURCE LINE # 162
	CLR  	A
	MOVX 	@DPTR,A
;                       wdcj();
			; SOURCE LINE # 163
	LCALL	wdcj
;                       }
			; SOURCE LINE # 164
?C0030:
;                   sukh=suk;
			; SOURCE LINE # 165
;                   caijisendud=caijisendu;
			; SOURCE LINE # 166
;                   plzusf();//频率和增益输出，stc,功率设定
			; SOURCE LINE # 167
	LCALL	L?0500
;                   if(haidisendu<(scsj()*100))
			; SOURCE LINE # 168
	LCALL	scsj
	MOV  	R4,#00H
	MOV  	R5,#064H
	LCALL	?C?IMUL
	CLR  	C
	MOV  	A,haidisendu+01H
	SUBB 	A,R7
	MOV  	A,haidisendu
	SUBB 	A,R6
	JNC  	?C0031
;                   	{
			; SOURCE LINE # 169
;                   	haidisendu=0;
			; SOURCE LINE # 170
	CLR  	A
	MOV  	haidisendu,A
	MOV  	haidisendu+01H,A
;                     pbhd(scsj());//判别设置参数，进入实际发射采集无海底扩大发射采集
			; SOURCE LINE # 171
	LCALL	scsj
	LCALL	_pbhd
;                     qdwer();//启动发射采集
			; SOURCE LINE # 172
;                     sujucle();///海底数据处理
			; SOURCE LINE # 173
;                   	}
			; SOURCE LINE # 174
	SJMP 	?C0461
?C0031:
;                   else { zdpbsa();//海底自动追踪
			; SOURCE LINE # 175
	LCALL	zdpbsa
;                          qdwer();//启动发射采集
			; SOURCE LINE # 176
?C0461:
	LCALL	qdwer
;                          sujucle();///海底数据处理
			; SOURCE LINE # 177
	LCALL	sujucle
;                   	   }
			; SOURCE LINE # 178
?C0032:
;                    scsjq();//判别挡位微调点参数
			; SOURCE LINE # 179
	LCALL	scsjq
;                    sujuclg();//有海底扩大数据处理压缩
			; SOURCE LINE # 180
	LCALL	sujuclg
;                    tongxin_txd(1);//上传数据
			; SOURCE LINE # 181
	SETB 	?tongxin_txd?BIT
	LCALL	tongxin_txd
;                    sujuclf();//无海底扩大数据处理压缩
			; SOURCE LINE # 182
	LCALL	sujuclf
;                    tongxin_txd(0);//上传数据
			; SOURCE LINE # 183
?C0474:
;                   break;
			; SOURCE LINE # 184
	SJMP 	?C0475
;         default:  wdfu++;
			; SOURCE LINE # 185
?C0033:
	MOV  	DPTR,#wdfu
	MOVX 	A,@DPTR
	INC  	A
	MOVX 	@DPTR,A
;                   if(wdfu>=60)
			; SOURCE LINE # 186
	MOVX 	A,@DPTR
	CLR  	C
	SUBB 	A,#03CH
	JC   	?C0034
;                       {
			; SOURCE LINE # 187
;                       wdfu=0;
			; SOURCE LINE # 188
	CLR  	A
	MOVX 	@DPTR,A
;                       wdcj();
			; SOURCE LINE # 189
	LCALL	wdcj
;                       }
			; SOURCE LINE # 190
?C0034:
;                   plzusf();//频率和增益输出，stc,功率设定
			; SOURCE LINE # 191
	LCALL	plzusf
;                   
;                   zdpbsa();//自动
			; SOURCE LINE # 193
	LCALL	zdpbsa
;                   caijisendud=caijisendue;
			; SOURCE LINE # 194
	MOV  	caijisendud,caijisendue
;                   qdwer();//启动发射采集
			; SOURCE LINE # 195
	LCALL	qdwer
;                   sujucle();///海底数据处理
			; SOURCE LINE # 196
	LCALL	sujucle
;                   if(suk==0x0000)
			; SOURCE LINE # 197
	MOV  	DPTR,#suk
	MOVX 	A,@DPTR
	JNZ  	?C0431
	INC  	DPTR
	MOVX 	A,@DPTR
?C0431:
	JNZ  	?C0035
;                   	{
			; SOURCE LINE # 198
;                   	sukh=0;
			; SOURCE LINE # 199
	MOV  	DPTR,#sukh
	MOVX 	@DPTR,A
	INC  	DPTR
	MOVX 	@DPTR,A
;                   	suk=0;
			; SOURCE LINE # 200
	MOV  	DPTR,#suk
	MOVX 	@DPTR,A
	INC  	DPTR
	MOVX 	@DPTR,A
;                   cm=cmb-1;	
			; SOURCE LINE # 201
;                   sujuclf();//无海底扩大数据处理压缩
			; SOURCE LINE # 202
	LCALL	L?0501
;                   tongxin_txd(0);//上传数据
			; SOURCE LINE # 203
?C0475:
	CLR  	?tongxin_txd?BIT
	LCALL	tongxin_txd
;                   	}
			; SOURCE LINE # 204
	LJMP 	?C0012
?C0035:
;                   else{
			; SOURCE LINE # 205
;                   	sukh=0;
			; SOURCE LINE # 206
	CLR  	A
	MOV  	DPTR,#sukh
	MOVX 	@DPTR,A
	INC  	DPTR
	MOVX 	@DPTR,A
;                   	suk=0;
			; SOURCE LINE # 207
	MOV  	DPTR,#suk
	MOVX 	@DPTR,A
	INC  	DPTR
	MOVX 	@DPTR,A
;                    sujuclg();//有海底扩大数据处理压缩
			; SOURCE LINE # 208
	LCALL	sujuclg
;                    tongxin_txd(1);//上传数据
			; SOURCE LINE # 209
	SETB 	?tongxin_txd?BIT
	LCALL	tongxin_txd
;                    cm=cmb-1;
			; SOURCE LINE # 210
;                    sujuclf();//无海底扩大数据处理压缩
			; SOURCE LINE # 211
	LCALL	L?0501
;                    tongxin_txd(0);//上传数据
			; SOURCE LINE # 212
	CLR  	?tongxin_txd?BIT
	LCALL	tongxin_txd
;                   	}
			; SOURCE LINE # 213
;       }
			; SOURCE LINE # 214
;     
;      }
			; SOURCE LINE # 216
	LJMP 	?C0012
; END OF main

; 
; 
; 
; 
; 
; }
; void play_dog()

	RSEG  ?PR?play_dog?_鉥___
play_dog:
			; SOURCE LINE # 223
; {
			; SOURCE LINE # 224
; 
; #pragma asm
;     MOV CKCON, 0xc0
	  MOV CKCON, 0xc0
;     MOV TA,0xaa
	  MOV TA,0xaa
;     MOV TA,0x55
	  MOV TA,0x55
;     MOV WDCON,0x02
	  MOV WDCON,0x02
;     RET
	  RET
;    #pragma endasm
; }
			; SOURCE LINE # 233
	RET  	
; END OF play_dog

; void clp_dog()

	RSEG  ?PR?clp_dog?_鉥___
clp_dog:
			; SOURCE LINE # 234
; {
			; SOURCE LINE # 235
;      #pragma asm
;    
	  
;           MOV TA,0xaa
	  MOV TA,0xaa
;           MOV TA,0x55
	  MOV TA,0x55
;           NOP
	  NOP
;           SETB RWT
	  SETB RWT
;          RET
	  RET
;  #pragma endasm
; }
			; SOURCE LINE # 244
	RET  	
; END OF clp_dog

; void off_dog()

	RSEG  ?PR?off_dog?_鉥___
off_dog:
			; SOURCE LINE # 245
; {
			; SOURCE LINE # 246
;  #pragma asm
;      MOV TA,0xaa
	  MOV TA,0xaa
;       MOV TA,0x55
	  MOV TA,0x55
;       MOV WDCON,0x00
	  MOV WDCON,0x00
;      RET
	  RET
; #pragma endasm
; }
			; SOURCE LINE # 253
	RET  	
; END OF off_dog

; void wdcj()//温度采集

	RSEG  ?PR?wdcj?_鉥___
wdcj:
	USING	0
			; SOURCE LINE # 254
;   {
			; SOURCE LINE # 255
;    wd=Read_Temperature();
			; SOURCE LINE # 256
	LCALL	Read_Temperature
	MOV  	wd,R6
	MOV  	wd+01H,R7
;    if(wdcgaq)
			; SOURCE LINE # 257
	JNB  	wdcgaq,?C0041
;        sanwdbz=0x00;
			; SOURCE LINE # 258
	CLR  	A
	MOV  	sanwdbz,A
	RET  	
?C0041:
;      else sanwdbz=0x01;
			; SOURCE LINE # 259
	MOV  	sanwdbz,#01H
;    }
			; SOURCE LINE # 260
?C0043:
	RET  	
; END OF wdcj

; 
; 
; 
; 
; 
;  void plset() 

	RSEG  ?PR?plset?_鉥___
plset:
	USING	0
			; SOURCE LINE # 266
; {
			; SOURCE LINE # 267
;  uchar i;
;   fasepl=suk;
			; SOURCE LINE # 269
	MOV  	DPTR,#suk+01H
	MOVX 	A,@DPTR
	MOV  	fasepl,A
;   if(fasepl<40)
			; SOURCE LINE # 270
	MOV  	A,fasepl
	CLR  	C
	SUBB 	A,#028H
	JNC  	?C0044
;   	fasepl=40;
			; SOURCE LINE # 271
	MOV  	fasepl,#028H
?C0044:
;    if(fasepl>220)
			; SOURCE LINE # 272
	MOV  	A,fasepl
	SETB 	C
	SUBB 	A,#0DCH
	JC   	?C0045
;   	fasepl=220;
			; SOURCE LINE # 273
	MOV  	fasepl,#0DCH
?C0045:
;   for(i=0;i<=4;i++)
			; SOURCE LINE # 274
	CLR  	A
	MOV  	DPTR,#i?541
	MOVX 	@DPTR,A
?C0046:
;   	{
			; SOURCE LINE # 275
?C0049:
;   while(i2c_write(pl,fasepl))
			; SOURCE LINE # 276
	MOV  	A,fasepl
	MOV  	R5,A
	MOV  	R4,#00H
	MOV  	R7,#02H
	LCALL	_i2c_write
	JC   	?C0051
;       return;
;   	}
			; SOURCE LINE # 278
?C0048:
	MOV  	DPTR,#i?541
	MOVX 	A,@DPTR
	INC  	A
	MOVX 	@DPTR,A
	MOVX 	A,@DPTR
	SETB 	C
	SUBB 	A,#04H
	JC   	?C0046
; }
			; SOURCE LINE # 279
?C0051:
	RET  	
; END OF plset

; 
; 
;  void glset()

	RSEG  ?PR?glset?_鉥___
glset:
	USING	0
			; SOURCE LINE # 282
; {
			; SOURCE LINE # 283
; uchar i;
;  fasegl=suk;
			; SOURCE LINE # 285
	MOV  	DPTR,#suk+01H
	MOVX 	A,@DPTR
	MOV  	fasegl,A
;   for(i=0;i<=4;i++)
			; SOURCE LINE # 286
	CLR  	A
	MOV  	DPTR,#i?642
	MOVX 	@DPTR,A
?C0052:
;   	{
			; SOURCE LINE # 287
?C0055:
;  while(i2c_write(gl,fasegl))
			; SOURCE LINE # 288
	MOV  	A,fasegl
	MOV  	R5,A
	MOV  	R4,#00H
	MOV  	R7,#04H
	LCALL	_i2c_write
	JC   	?C0057
;   return;
;   	}
			; SOURCE LINE # 290
?C0054:
	MOV  	DPTR,#i?642
	MOVX 	A,@DPTR
	INC  	A
	MOVX 	@DPTR,A
	MOVX 	A,@DPTR
	SETB 	C
	SUBB 	A,#04H
	JC   	?C0052
; 
; } 
			; SOURCE LINE # 292
?C0057:
	RET  	
; END OF glset

;  void kgset()

	RSEG  ?PR?kgset?_鉥___
kgset:
	USING	0
			; SOURCE LINE # 293
; {
			; SOURCE LINE # 294
; uchar i;
;  fasekg=suk;
			; SOURCE LINE # 296
	MOV  	DPTR,#suk+01H
	MOVX 	A,@DPTR
	MOV  	fasekg,A
;   for(i=0;i<=4;i++)
			; SOURCE LINE # 297
	CLR  	A
	MOV  	DPTR,#i?743
	MOVX 	@DPTR,A
?C0058:
;   	{
			; SOURCE LINE # 298
?C0061:
;  while(i2c_write(kg,fasekg))
			; SOURCE LINE # 299
	MOV  	A,fasekg
	MOV  	R5,A
	MOV  	R4,#00H
	MOV  	R7,#06H
	LCALL	_i2c_write
	JC   	?C0063
;   return;
;   	}
			; SOURCE LINE # 301
?C0060:
	MOV  	DPTR,#i?743
	MOVX 	A,@DPTR
	INC  	A
	MOVX 	@DPTR,A
	MOVX 	A,@DPTR
	SETB 	C
	SUBB 	A,#04H
	JC   	?C0058
; 
; }
			; SOURCE LINE # 303
?C0063:
	RET  	
; END OF kgset

;  void zbset()

	RSEG  ?PR?zbset?_鉥___
zbset:
	USING	0
			; SOURCE LINE # 304
; { 
			; SOURCE LINE # 305
;  uchar i;
;   zaibao=suk;
			; SOURCE LINE # 307
	MOV  	DPTR,#suk+01H
	MOVX 	A,@DPTR
	MOV  	zaibao,A
;    for(i=0;i<=4;i++)
			; SOURCE LINE # 308
	CLR  	A
	MOV  	DPTR,#i?844
	MOVX 	@DPTR,A
?C0064:
;   	{
			; SOURCE LINE # 309
?C0067:
;   while(i2c_write(zb,zaibao))
			; SOURCE LINE # 310
	MOV  	A,zaibao
	MOV  	R5,A
	MOV  	R4,#00H
	MOV  	R7,#0AH
	LCALL	_i2c_write
	JC   	?C0069
;    return;
; 
;    	}
			; SOURCE LINE # 313
?C0066:
💿 文件大小 365 K
👤 上传用户 eeworm
📂 所属分类 *行业应用
🏷️ 相关标签

#PID #温度采集 #控制
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -