?? 魚探儀.src
字號:
; 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:
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -