⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 memu.lis

📁 为苏州一家公司所做的的恒温恒湿车间控制 系统
💻 LIS
📖 第 1 页 / 共 4 页
字号:
 02EE B600              lda *__r2
 02F0 B900              adc *__r0
 02F2 B700              sta *__r0
 02F4 5500              ldhx *__r0
 02F6 F6                lda ,x
 02F7 95                tsx
 02F8 B700              sta *__r1
 02FA 3F00              clr *__r2
 02FC E609              lda 9,X
 02FE EB0D              add 13,X
 0300 B700              sta *__r3
 0302 B600              lda *__r2
 0304 E90C              adc 12,X
 0306 B700              sta *__r2
 0308 B600              lda *__r1
 030A 5500              ldhx *__r2
 030C F7                sta ,x
 030D 95                tsx
 030E           L35:
 030E                   .dbline 93
 030E 6C09              inc 9,X
 0310           L37:
 0310                   .dbline 93
 0310           ;   for(i=1;i<=5;i++) LcdShowBuff[i]=buf[i];
 0310 E609              lda 9,X
 0312 A105              cmp #5
 0314 23CB              bls L34
 0316                   .dbline 95
 0316           ;   //2:温度设定值
 0316           ;   data[0]=BasicT>>8;data[1]=BasicT; data[2]=SignBT; 
 0316 B600              lda *_BasicT
 0318 F7                sta ,X
 0319                   .dbline 95
 0319 B601              lda *_BasicT+1
 031B E701              sta 1,X
 031D                   .dbline 95
 031D B600              lda *_SignBT
 031F E702              sta 2,X
 0321                   .dbline 96
 0321           ;   NumFormatChange(buf,data,0);
 0321 4F                clra
 0322 87                psha
 0323 89                pshx
 0324 8B                pshh
 0325 AF03              aix #3
 0327 89                pshx
 0328 8B                pshh
 0329 CD0081            jsr _NumFormatChange
 032C A705              ais #5
 032E 95                tsx
 032F                   .dbline 97
 032F A601              lda #1
 0331 E709              sta 9,X
 0333 2035              bra L43
 0335           L40:
 0335                   .dbline 97
 0335 AF03              aix #3
 0337 3500              sthx *__r0
 0339 95                tsx
 033A 3F00              clr *__r2
 033C E609              lda 9,X
 033E BB00              add *__r1
 0340 B700              sta *__r1
 0342 B600              lda *__r2
 0344 B900              adc *__r0
 0346 B700              sta *__r0
 0348 5500              ldhx *__r0
 034A F6                lda ,x
 034B 95                tsx
 034C B700              sta *__r1
 034E 3F00              clr *__r2
 0350 E609              lda 9,X
 0352 EB0D              add 13,X
 0354 B700              sta *__r3
 0356 B600              lda *__r2
 0358 E90C              adc 12,X
 035A B700              sta *__r2
 035C 5500              ldhx *__r2
 035E AF08              aix #8
 0360 3500              sthx *__r2
 0362 B600              lda *__r1
 0364 5500              ldhx *__r2
 0366 F7                sta ,x
 0367 95                tsx
 0368           L41:
 0368                   .dbline 97
 0368 6C09              inc 9,X
 036A           L43:
 036A                   .dbline 97
 036A           ;   for(i=1;i<=3;i++) LcdShowBuff[i+8]=buf[i];
 036A E609              lda 9,X
 036C A103              cmp #3
 036E 23C5              bls L40
 0370                   .dbline 98
 0370           ;   data[2]='+';
 0370 A62B              lda #43
 0372 E702              sta 2,X
 0374                   .dbline 100
 0374           ;   //3:当前湿度
 0374           ;   data[0]=CurrentH>>8;data[1]=CurrentH;
 0374 B600              lda *_CurrentH
 0376 F7                sta ,X
 0377                   .dbline 100
 0377 B601              lda *_CurrentH+1
 0379 E701              sta 1,X
 037B                   .dbline 101
 037B           ;   NumFormatChange(buf,data,1);
 037B A601              lda #1
 037D 87                psha
 037E 89                pshx
 037F 8B                pshh
 0380 AF03              aix #3
 0382 89                pshx
 0383 8B                pshh
 0384 CD0081            jsr _NumFormatChange
 0387 A705              ais #5
 0389 95                tsx
 038A                   .dbline 102
 038A A601              lda #1
 038C E709              sta 9,X
 038E 2035              bra L49
 0390           L46:
 0390                   .dbline 102
 0390 AF03              aix #3
 0392 3500              sthx *__r0
 0394 95                tsx
 0395 3F00              clr *__r2
 0397 E609              lda 9,X
 0399 BB00              add *__r1
 039B B700              sta *__r1
 039D B600              lda *__r2
 039F B900              adc *__r0
 03A1 B700              sta *__r0
 03A3 5500              ldhx *__r0
 03A5 F6                lda ,x
 03A6 95                tsx
 03A7 B700              sta *__r1
 03A9 3F00              clr *__r2
 03AB E609              lda 9,X
 03AD EB0D              add 13,X
 03AF B700              sta *__r3
 03B1 B600              lda *__r2
 03B3 E90C              adc 12,X
 03B5 B700              sta *__r2
 03B7 5500              ldhx *__r2
 03B9 AF10              aix #16
 03BB 3500              sthx *__r2
 03BD B600              lda *__r1
 03BF 5500              ldhx *__r2
 03C1 F7                sta ,x
 03C2 95                tsx
 03C3           L47:
 03C3                   .dbline 102
 03C3 6C09              inc 9,X
 03C5           L49:
 03C5                   .dbline 102
 03C5           ;   for(i=1;i<=5;i++) LcdShowBuff[i+16]=buf[i];
 03C5 E609              lda 9,X
 03C7 A105              cmp #5
 03C9 23C5              bls L46
 03CB                   .dbline 104
 03CB           ;   //4:湿度设定值
 03CB           ;   data[0]=BasicH>>8;data[1]=BasicH;
 03CB B600              lda *_BasicH
 03CD F7                sta ,X
 03CE                   .dbline 104
 03CE B601              lda *_BasicH+1
 03D0 E701              sta 1,X
 03D2                   .dbline 105
 03D2           ;   NumFormatChange(buf,data,0);
 03D2 4F                clra
 03D3 87                psha
 03D4 89                pshx
 03D5 8B                pshh
 03D6 AF03              aix #3
 03D8 89                pshx
 03D9 8B                pshh
 03DA CD0081            jsr _NumFormatChange
 03DD A705              ais #5
 03DF 95                tsx
 03E0                   .dbline 106
 03E0 A601              lda #1
 03E2 E709              sta 9,X
 03E4 2035              bra L54
 03E6           L51:
 03E6                   .dbline 106
 03E6 AF03              aix #3
 03E8 3500              sthx *__r0
 03EA 95                tsx
 03EB 3F00              clr *__r2
 03ED E609              lda 9,X
 03EF BB00              add *__r1
 03F1 B700              sta *__r1
 03F3 B600              lda *__r2
 03F5 B900              adc *__r0
 03F7 B700              sta *__r0
 03F9 5500              ldhx *__r0
 03FB F6                lda ,x
 03FC 95                tsx
 03FD B700              sta *__r1
 03FF 3F00              clr *__r2
 0401 E609              lda 9,X
 0403 EB0D              add 13,X
 0405 B700              sta *__r3
 0407 B600              lda *__r2
 0409 E90C              adc 12,X
 040B B700              sta *__r2
 040D 5500              ldhx *__r2
 040F AF18              aix #24
 0411 3500              sthx *__r2
 0413 B600              lda *__r1
 0415 5500              ldhx *__r2
 0417 F7                sta ,x
 0418 95                tsx
 0419           L52:
 0419                   .dbline 106
 0419 6C09              inc 9,X
 041B           L54:
 041B                   .dbline 106
 041B           ;   for(i=1;i<=3;i++) LcdShowBuff[i+8+16]=buf[i];
 041B E609              lda 9,X
 041D A103              cmp #3
 041F 23C5              bls L51
 0421                   .dbline 108
 0421 6F09              clr 9,X
 0423 204A              bra L58
 0425           L55:
 0425                   .dbline 108
 0425 3F00              clr *__r0
 0427 B600              lda *_ColdHotFlag
 0429 B700              sta *__r1
 042B 3800              lsl *__r1
 042D 3900              rol *__r0
 042F 3800              lsl *__r1
 0431 3900              rol *__r0
 0433 3F00              clr *__r2
 0435 E609              lda 9,X
 0437 BB00              add *__r1
 0439 B700              sta *__r1
 043B B600              lda *__r2
 043D B900              adc *__r0
 043F B700              sta *__r0
 0441 B600              lda *__r1
 0443 AB00              add #<_ColdHot
 0445 B700              sta *__r1
 0447 B600              lda *__r0
 0449 A900              adc #>_ColdHot
 044B B700              sta *__r0
 044D 5500              ldhx *__r0
 044F F6                lda ,x
 0450 95                tsx
 0451 B700              sta *__r1
 0453 3F00              clr *__r2
 0455 E609              lda 9,X
 0457 EB0D              add 13,X
 0459 B700              sta *__r3
 045B B600              lda *__r2
 045D E90C              adc 12,X
 045F B700              sta *__r2
 0461 5500              ldhx *__r2
 0463 AF22              aix #34
 0465 3500              sthx *__r2
 0467 B600              lda *__r1
 0469 5500              ldhx *__r2
 046B F7                sta ,x
 046C 95                tsx
 046D           L56:
 046D                   .dbline 108
 046D 6C09              inc 9,X
 046F           L58:
 046F                   .dbline 108
 046F           ;   //5:风机状态显示
 046F           ;   for(i=0;i<=3;i++) LcdShowBuff[i+2+32]=ColdHot[i+ColdHotFlag*4];  
 046F E609              lda 9,X
 0471 A103              cmp #3
 0473 23B0              bls L55
 0475                   .dbline -2
 0475           L31:
 0475 A70A              ais #10
 0477                   .dbline 0 ; func end
 0477 81                rts
 0478                   .dbsym l data 0 A[3:3]c
 0478                   .dbsym l buf 3 A[6:6]c
 0478                   .dbsym l i 9 c
 0478                   .dbsym l LcdShowBuff 12 pc
 0478                   .dbend
 0478                   .dbfunc e CheckReFrame _CheckReFrame fc
 0478           ;        ErrCode -> 0,X
 0478           ;  ReFrameLength -> 5,X
 0478           ;     ReFrameBuP -> 3,X
 0478           _CheckReFrame::
 0478                   .dbline -1
 0478 A7FF              ais #-1
 047A 95                tsx
 047B                   .dbline 118
 047B           ; }
 047B           ; /*CheckReFrame:验证接收到的帧----------------------------------------------*
 047B           ; *功能描述:验证接收到的帧                                                   *
 047B           ; *参数:ReFrameBuP指向接收帧缓冲区的指针                                     *
 047B           ; *     ReFrameLength当前接收到的帧的长度                                    *
 047B           ; *返回:0表示校验正确,1表示收到数据帧格式不正确,2表示异或校验和出错          *
 047B           ; *内部调用:GetCheckChar求数据流的异或校验码子程序                           *
 047B           ; *-------------------------------------------------------------------------*/
 047B           ; INT8U CheckReFrame(INT8U * ReFrameBuP,INT8U ReFrameLength)
 047B           ; {
 047B                   .dbline 120
 047B           ;     //定义出错标志字节,无错为0
 047B           ;     INT8U ErrCode=0;  
 047B 7F                clr ,X
 047C                   .dbline 122
 047C           ;     //收到的数据帧格式不正确,出错标志1
 047C           ;     if((ReFrameBuP[0]!='S')||(ReFrameBuP[ReFrameLength-1]!='E'))
 047C E603              lda 3,X
 047E EE04              ldx 4,X
 0480 87                psha
 0481 8A                pulh
 0482 F6                lda ,x
 0483 95                tsx

⌨️ 快捷键说明

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