keydeal.lst

来自「16路巡检仪 该仪表采用c语言编写」· LST 代码 · 共 649 行 · 第 1/5 页

 105   4                                                      break;
 106   4                                                      case    setdisplaysp:   Chose=mimasetdisplay;
 107   4                                                                                                      kr=2;
 108   4                                                                                                      leng=4;
 109   4                                                                                                      if(writen==1)
 110   4                                                                                                      flashWB(&fundat, 7, 1);
 111   4                                                      break;
 112   4                                                      case    syscsdisplay:   Chose=syscs1;
 113   4                                                                                                      kr=2;
 114   4                                                                                                      leng=20;
 115   4                                                                                                      Hex2Bcd(inputdat,si);
 116   4                                                      break;
 117   4                                                      case            syscs1:         Chose=syscs2;
 118   4                                                                                                      kr=2;
 119   4                                                                                                      leng=24+sysleng;
 120   4                                                                                                      Hex2Bcd(typdat[wk],si);
 121   4                                                      break;
 122   4                                                      case            syscs2:         Chose=syscs3;
 123   4                                                                                                      kr=2;
 124   4                                                                                                      leng=28+sysleng;
 125   4                                                                                                      if(writen==1)
 126   4                                                                                                      flashWB(typdat, 9, 16);
 127   4                                                                                                      Hex2Bcd(dot[wk],si);
 128   4                                                      break;
 129   4                                                      case            syscs3:         Chose=syscs4;
 130   4                                                                                                      kr=2;
 131   4                                                                                                      leng=32+sysleng;
 132   4                                                                                                      if(writen1==1)
 133   4                                                                                                      {
 134   5                                                                                                      rangeL[wk]=0.0;
 135   5                                                                                                      rangeH[wk]=0.0;
 136   5                                                                                                      flashWB(dot, 10, 16);
 137   5                                                                                                      }
 138   4                                                                                                      floatToBCD(rangeL[wk],si);
 139   4                                                      break;
 140   4                                                      case            syscs4:         Chose=syscs5;
 141   4                                                                                                      kr=2;
 142   4                                                                                                      leng=36+sysleng;
 143   4                                                                                                      if(writen==1)
 144   4                                                                                                      flashW(rangeL, 11,16);
 145   4                                                                                                      floatToBCD(rangeH[wk],si);
 146   4                                                      break;
 147   4                                                      case            syscs5:         Chose=syscsdisplay;
 148   4                                                                                                      kr=2;
 149   4                                                                                                      leng=16;
 150   4                                                                                                      if(writen==1)
 151   4                                                                                                      flashW(rangeH, 12, 16);
 152   4                                                      break;
 153   4                                                      case    fundisplay:             if(fundat==2)
 154   4                                                                                                      {
 155   5                                                                                                      Chose=fun1;
 156   5                                                                                                      kr=2;
 157   5                                                                                                      leng=284+funleng;
 158   5                                                                                                      Hex2Bcd(warmd,si);
 159   5                                                                                                      }
 160   4                                                                                                      else
 161   4                                                                                                              kt=1;
 162   4                                                      break;
 163   4                                                      case            fun1:           Chose=fun2;
 164   4                                                                                                      kr=2;
 165   4                                                                                                      leng=288+funleng;
 166   4                                                                                                      floatToBCD(warmH[wt],si);
C51 COMPILER V7.50   KEYDEAL                                                               06/25/2008 14:22:37 PAGE 4   

 167   4                                                      break;
 168   4                                                      case            fun2:           Chose=fun3;
 169   4                                                                                                      kr=2;
 170   4                                                                                                      leng=292+funleng;
 171   4                                                                                                      if(writen==1)
 172   4                                                                                                      flashW(warmH, 15, 16);
 173   4                                                                                                      floatToBCD(warmL[wt],si);
 174   4                                                      break;
 175   4                                                      case            fun3:           Chose=fun4;
 176   4                                                                                                      kr=2;
 177   4                                                                                                      leng=296+funleng;
 178   4                                                                                                      if(writen==1)
 179   4                                                                                                      flashW(warmL, 14, 16);
 180   4                                                                                                      Hex2Bcd(warmdown[wt],si);
 181   4                                                      break;
 182   4                                                      case            fun4:           Chose=fun5;
 183   4                                                                                                      kr=2;
 184   4                                                                                                      leng=300+funleng;
 185   4                                                                                                      if(writen==1)
 186   4                                                                                                      flashWB(warmdown, 16, 16);
 187   4                                                                                                      Hex2Bcd(warmscd[wt],si);
 188   4                                                      break;
 189   4                                                      case            fun5:           Chose=fundisplay;
 190   4                                                                                                      kr=2;
 191   4                                                                                                      leng=280;
 192   4                                                                                                      if(writen==1)
 193   4                                                                                                      flashWB(warmscd, 17, 16);
 194   4                                                      break;
 195   4                                                      case  teshucsdisplay:   Chose=teshucs1;
 196   4                                                                                                      kr=3;
 197   4                                                                                                      leng=36;
 198   4                                                                                                       floatToBCD(filt, si);
 199   4                                                      break;
 200   4                                                      case            teshucs1:       Chose=teshucs2;
 201   4                                                                                                      kr=3;
 202   4                                                                                                      leng=40;
 203   4                                                                                                      if(writen==1)
 204   4                                                                                                      flashW(&filt, 18, 1);
 205   4                                                                                                      Hex2Bcd(drt,si);
 206   4                                                      break;
 207   4                                                      case            teshucs2:       Chose=teshucs3;
 208   4                                                                                                      kr=3;
 209   4                                                                                                      leng=44;
 210   4                                                                                                      if(writen==1)
 211   4                                                                                                      flashWB(&drt, 19, 1);
 212   4                                                                                                      Hex2Bcd(xjtime,si);
 213   4                                                      break;
 214   4                                                      case            teshucs3:       Chose=teshucs4;
 215   4                                                                                                      kr=3;
 216   4                                                                                                      leng=48;
 217   4                                                                                                      if(writen==1)
 218   4                                                                                                      flashtW(&xjtime, 20,1);
 219   4                                                                                                      Hex2Bcd(collt,si);
 220   4                                                      break;
 221   4                                                      case            teshucs4:       Chose=teshucs5;
 222   4                                                                                                      kr=3;
 223   4                                                                                                      leng=52;
 224   4                                                                                                      if(writen==1)
 225   4                                                                                                      flashWB(&collt, 21, 1);
 226   4                                                                                                      Hex2Bcd(rady,si);
 227   4                                                      break;
 228   4                                                      case            teshucs5:       Chose=teshucs6;
C51 COMPILER V7.50   KEYDEAL                                                               06/25/2008 14:22:37 PAGE 5   

 229   4                                                                                                      kr=3;
 230   4                                                                                                      leng=56;