mtouch16.p1

用pic16f883做的16个键的触摸按键（MTOUCH）实现电容式触摸按键的代码。有mtouch16.c构成

"106
[e = _TMR1L -> -> 0 `i `uc ]
[; ;mtouch16.c: 107: TMR1H = 0;

"107
[e = _TMR1H -> -> 0 `i `uc ]
[; ;mtouch16.c: 108: TMR1ON = 1;

"108
[e = _TMR1ON -> -> 1 `i `b ]
[; ;mtouch16.c: 109: TMR0 = 0;

"109
[e = _TMR0 -> -> 0 `i `uc ]
[; ;mtouch16.c: 110: T0IF = 0;

"110
[e = _T0IF -> -> 0 `i `b ]
"111
[; ;mtouch16.c: 111: }

[e :UE 7 ]
}
"113
[v _Abit_capinit `(v 1 ef ]
{
[; ;mtouch16.c: 112: void Abit_capinit(void)

[; ;mtouch16.c: 113: {

[e :U _Abit_capinit ]
[f ]
[; ;mtouch16.c: 114: for(INDEX=0;INDEX< 16;INDEX++)

"114
[e = _INDEX -> -> 0 `i `uc ]
[e $ < -> _INDEX `i -> 16 `i 9  ]
[e $U 10  ]
"115
[e :U 9 ]
[; ;mtouch16.c: 115: {

[; ;mtouch16.c: 116: RAW[INDEX]=0;

"116
[e = *U + &U _RAW * -> _INDEX `ux -> -> # *U &U _RAW `ui `ux -> -> 0 `i `ui ]
[; ;mtouch16.c: 117: AVERAGE[INDEX]=0;

"117
[e = *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux -> -> 0 `i `ui ]
[; ;mtouch16.c: 118: TRIP[INDEX]=145;

"118
[e = *U + &U _TRIP * -> _INDEX `ux -> -> # *U &U _TRIP `ui `ux -> -> 145 `i `ui ]
"114
[e ++ _INDEX -> -> 1 `i `uc ]
[e $ < -> _INDEX `i -> 16 `i 9  ]
[e :U 10 ]
[; ;mtouch16.c: 119: }

[; ;mtouch16.c: 120: FIRST=160;

"120
[e = _FIRST -> -> 160 `i `uc ]
[; ;mtouch16.c: 121: OSCCON=0X7F;

"121
[e = _OSCCON -> -> 127 `i `uc ]
[; ;mtouch16.c: 122: INDEX=0;

"122
[e = _INDEX -> -> 0 `i `uc ]
[; ;mtouch16.c: 123: CM1CON0=COMP1[0];

"123
[e = _CM1CON0 *U + &U _COMP1 * -> -> -> 0 `i `ui `ux -> -> # *U &U _COMP1 `ui `ux ]
[; ;mtouch16.c: 124: CM2CON0=COMP2[0];

"124
[e = _CM2CON0 *U + &U _COMP2 * -> -> -> 0 `i `ui `ux -> -> # *U &U _COMP2 `ui `ux ]
[; ;mtouch16.c: 125: VRCON=0x87;

"125
[e = _VRCON -> -> 135 `i `uc ]
[; ;mtouch16.c: 126: CM2CON1=0X32;

"126
[e = _CM2CON1 -> -> 50 `i `uc ]
[; ;mtouch16.c: 127: ANSEL=0X07;

"127
[e = _ANSEL -> -> 7 `i `uc ]
[; ;mtouch16.c: 128: ANSELH=0X00;

"128
[e = _ANSELH -> -> 0 `i `uc ]
[; ;mtouch16.c: 129: SRCON = 0xF0;

"129
[e = _SRCON -> -> 240 `i `uc ]
[; ;mtouch16.c: 130: T1CON = 0x06;

"130
[e = _T1CON -> -> 6 `i `uc ]
[; ;mtouch16.c: 131: OPTION = 0x84;

"131
[e = _OPTION -> -> 132 `i `uc ]
[; ;mtouch16.c: 132: Abit_restart_timer();

"132
[e ( _Abit_restart_timer ..  ]
[; ;mtouch16.c: 133: INTCON=0;

"133
[e = _INTCON -> -> 0 `i `uc ]
[; ;mtouch16.c: 134: T0IE=1;

"134
[e = _T0IE -> -> 1 `i `b ]
"135
[; ;mtouch16.c: 135: }

[e :UE 8 ]
}
"137
[v _Abit_next_channel `(v 1 ef ]
{
[; ;mtouch16.c: 136: void Abit_next_channel(void)

[; ;mtouch16.c: 137: {

[e :U _Abit_next_channel ]
[f ]
[; ;mtouch16.c: 139: if(INDEX<16-1)

"139
[e $ ! < -> _INDEX `i - -> 16 `i -> 1 `i 13  ]
[; ;mtouch16.c: 140: {

[; ;mtouch16.c: 141: INDEX++;

"141
[e ++ _INDEX -> -> 1 `i `uc ]
[; ;mtouch16.c: 142: PORTB &= 0XF0;

"142
[e =& _PORTB -> -> 240 `i `uc ]
[; ;mtouch16.c: 143: PORTB |=((INDEX%16) & 0X0F) ;

"143
[e =| _PORTB -> & % -> _INDEX `i -> 16 `i -> 15 `i `uc ]
"145
[; ;mtouch16.c: 145: }

[e $U 14  ]
"146
[e :U 13 ]
[; ;mtouch16.c: 146: else

[; ;mtouch16.c: 147: {

[; ;mtouch16.c: 148: INDEX=0;

"148
[e = _INDEX -> -> 0 `i `uc ]
[; ;mtouch16.c: 149: PORTB &= 0XF0;

"149
[e =& _PORTB -> -> 240 `i `uc ]
"150
[e :U 14 ]
[; ;mtouch16.c: 150: }

[; ;mtouch16.c: 159: if (INDEX == 0)

"159
[e $ ! == -> _INDEX `i -> 0 `i 15  ]
[; ;mtouch16.c: 160: {

[; ;mtouch16.c: 161: CM1CON0 = COMP1[0];

"161
[e = _CM1CON0 *U + &U _COMP1 * -> -> -> 0 `i `ui `ux -> -> # *U &U _COMP1 `ui `ux ]
[; ;mtouch16.c: 162: CM2CON0 = COMP2[0];

"162
[e = _CM2CON0 *U + &U _COMP2 * -> -> -> 0 `i `ui `ux -> -> # *U &U _COMP2 `ui `ux ]
"163
[; ;mtouch16.c: 163: }

[e $U 16  ]
"164
[e :U 15 ]
[; ;mtouch16.c: 164: else

[; ;mtouch16.c: 165: {

[; ;mtouch16.c: 166: CM1CON0 = COMP1[1];

"166
[e = _CM1CON0 *U + &U _COMP1 * -> -> -> 1 `i `ui `ux -> -> # *U &U _COMP1 `ui `ux ]
[; ;mtouch16.c: 167: CM2CON0 = COMP2[1];

"167
[e = _CM2CON0 *U + &U _COMP2 * -> -> -> 1 `i `ui `ux -> -> # *U &U _COMP2 `ui `ux ]
"168
[e :U 16 ]
"174
[; ;mtouch16.c: 168: }

[; ;mtouch16.c: 174: }

[e :UE 12 ]
}
"176
[v _isr `IF760 1 e ]
{
[; ;mtouch16.c: 175: void interrupt isr(void)

[; ;mtouch16.c: 176: {

[e :U _isr ]
[f ]
[; ;mtouch16.c: 177: if (T0IF==1 && T0IE==1)

"177
[e $ ! && == -> _T0IF `i -> 1 `i == -> _T0IE `i -> 1 `i 18  ]
[; ;mtouch16.c: 178: {

[; ;mtouch16.c: 179: TMR1ON=0;

"179
[e = _TMR1ON -> -> 0 `i `b ]
[; ;mtouch16.c: 180: VALUE = TMR1L + (unsigned int)(TMR1H << 8);

"180
[e = _VALUE + -> _TMR1L `ui -> << -> _TMR1H `i -> 8 `i `ui ]
[; ;mtouch16.c: 181: RAW[INDEX]=VALUE;

"181
[e = *U + &U _RAW * -> _INDEX `ux -> -> # *U &U _RAW `ui `ux _VALUE ]
[; ;mtouch16.c: 182: BIGVAL=VALUE*16;

"182
[e = _BIGVAL * _VALUE -> -> 16 `i `ui ]
[; ;mtouch16.c: 183: SMALLVAL=AVERAGE[INDEX]/16;

"183
[e = _SMALLVAL / *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux -> -> 16 `i `ui ]
[; ;mtouch16.c: 184: RAW[INDEX]=BIGVAL;

"184
[e = *U + &U _RAW * -> _INDEX `ux -> -> # *U &U _RAW `ui `ux _BIGVAL ]
[; ;mtouch16.c: 186: if(FIRST>0)

"186
[e $ ! > -> _FIRST `i -> 0 `i 19  ]
[; ;mtouch16.c: 187: {

[; ;mtouch16.c: 188: FIRST--;

"188
[e -- _FIRST -> -> 1 `i `uc ]
[; ;mtouch16.c: 189: AVERAGE[INDEX] = BIGVAL;

"189
[e = *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux _BIGVAL ]
[; ;mtouch16.c: 191: Abit_restart_timer();

"191
[e ( _Abit_restart_timer ..  ]
[; ;mtouch16.c: 193: return;

"193
[e $UE 17  ]
"195
[e :U 19 ]
[; ;mtouch16.c: 195: }

[; ;mtouch16.c: 198: if (BIGVAL < (AVERAGE[INDEX] - TRIP[INDEX]))

"198
[e $ ! < _BIGVAL - *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux *U + &U _TRIP * -> _INDEX `ux -> -> # *U &U _TRIP `ui `ux 20  ]
[; ;mtouch16.c: 199: {

[; ;mtouch16.c: 200: switch(INDEX)

"200
[e $U 22  ]
[; ;mtouch16.c: 201: {

[; ;mtouch16.c: 202: case 0: Buttons.BTN0 =1; break;

"202
[e :U 23 ]
[e = . _Buttons 0 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 204: case 1: Buttons.BTN1 =1; break;

"204
[e :U 24 ]
[e = . _Buttons 1 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 205: case 2: Buttons.BTN2 =1; break;

"205
[e :U 25 ]
[e = . _Buttons 2 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 206: case 3: Buttons.BTN3 =1; break;

"206
[e :U 26 ]
[e = . _Buttons 3 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 207: case 4: Buttons.BTN4 =1; break;

"207
[e :U 27 ]
[e = . _Buttons 4 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 208: case 5: Buttons.BTN5 =1; break;

"208
[e :U 28 ]
[e = . _Buttons 5 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 209: case 6: Buttons.BTN6 =1; break;

"209
[e :U 29 ]
[e = . _Buttons 6 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 210: case 7: Buttons.BTN7 =1; break;

"210
[e :U 30 ]
[e = . _Buttons 7 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 211: case 8: Buttons.BTN8 =1; break;

"211
[e :U 31 ]
[e = . _Buttons 8 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 212: case 9: Buttons.BTN9 =1; break;

"212
[e :U 32 ]
[e = . _Buttons 9 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 213: case 10: Buttons.BTN10 =1; break;

"213
[e :U 33 ]
[e = . _Buttons 10 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 214: case 11: Buttons.BTN11 =1; break;

"214
[e :U 34 ]
[e = . _Buttons 11 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 215: case 12: Buttons.BTN12=1; break;

"215
[e :U 35 ]
[e = . _Buttons 12 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 216: case 13: Buttons.BTN13=1; break;

"216
[e :U 36 ]
[e = . _Buttons 13 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 217: case 14: Buttons.BTN14=1; break;

"217
[e :U 37 ]
[e = . _Buttons 14 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 218: case 15: Buttons.BTN15=1; break;

"218
[e :U 38 ]
[e = . _Buttons 15 -> -> 1 `i `uc ]
[e $U 21  ]
[; ;mtouch16.c: 223: default: break;

"223
[e :U 39 ]
[e $U 21  ]
"224
[; ;mtouch16.c: 224: }

[e $U 21  ]
"200
[e :U 22 ]
[e [\ _INDEX , $ -> -> 0 `i `uc 23
 , $ -> -> 1 `i `uc 24
 , $ -> -> 2 `i `uc 25
 , $ -> -> 3 `i `uc 26
 , $ -> -> 4 `i `uc 27
 , $ -> -> 5 `i `uc 28
 , $ -> -> 6 `i `uc 29
 , $ -> -> 7 `i `uc 30
 , $ -> -> 8 `i `uc 31
 , $ -> -> 9 `i `uc 32
 , $ -> -> 10 `i `uc 33
 , $ -> -> 11 `i `uc 34
 , $ -> -> 12 `i `uc 35
 , $ -> -> 13 `i `uc 36
 , $ -> -> 14 `i `uc 37
 , $ -> -> 15 `i `uc 38
 39 ]
"224
[e :U 21 ]
"225
[e :U 20 ]
[; ;mtouch16.c: 225: }

[; ;mtouch16.c: 226: if (BIGVAL > (AVERAGE[INDEX] - TRIP[INDEX] + 32))

"226
[e $ ! > _BIGVAL + - *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux *U + &U _TRIP * -> _INDEX `ux -> -> # *U &U _TRIP `ui `ux -> -> 32 `i `ui 40  ]
[; ;mtouch16.c: 227: {

[; ;mtouch16.c: 228: switch(INDEX)

"228
[e $U 42  ]
[; ;mtouch16.c: 229: {

[; ;mtouch16.c: 230: case 0: Buttons.BTN0 =0; break;

"230
[e :U 43 ]
[e = . _Buttons 0 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 232: case 1: Buttons.BTN1 =0; break;

"232
[e :U 44 ]
[e = . _Buttons 1 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 233: case 2: Buttons.BTN2 =0; break;

"233
[e :U 45 ]
[e = . _Buttons 2 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 234: case 3: Buttons.BTN3 =0; break;

"234
[e :U 46 ]
[e = . _Buttons 3 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 235: case 4: Buttons.BTN4 =0; break;

"235
[e :U 47 ]
[e = . _Buttons 4 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 236: case 5: Buttons.BTN5 =0; break;

"236
[e :U 48 ]
[e = . _Buttons 5 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 237: case 6: Buttons.BTN6 =0; break;

"237
[e :U 49 ]
[e = . _Buttons 6 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 238: case 7: Buttons.BTN7 =0; break;

"238
[e :U 50 ]
[e = . _Buttons 7 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 239: case 8: Buttons.BTN8 =0; break;

"239
[e :U 51 ]
[e = . _Buttons 8 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 240: case 9: Buttons.BTN9 =0; break;

"240
[e :U 52 ]
[e = . _Buttons 9 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 241: case 10: Buttons.BTN10 =0; break;

"241
[e :U 53 ]
[e = . _Buttons 10 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 242: case 11: Buttons.BTN11 =0; break;

"242
[e :U 54 ]
[e = . _Buttons 11 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 243: case 12: Buttons.BTN12=0; break;

"243
[e :U 55 ]
[e = . _Buttons 12 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 244: case 13: Buttons.BTN13=0; break;

"244
[e :U 56 ]
[e = . _Buttons 13 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 245: case 14: Buttons.BTN14=0; break;

"245
[e :U 57 ]
[e = . _Buttons 14 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 246: case 15: Buttons.BTN15=0; break;

"246
[e :U 58 ]
[e = . _Buttons 15 -> -> 0 `i `uc ]
[e $U 41  ]
[; ;mtouch16.c: 247: default: break;

"247
[e :U 59 ]
[e $U 41  ]
"248
[; ;mtouch16.c: 248: }

[e $U 41  ]
"228
[e :U 42 ]
[e [\ _INDEX , $ -> -> 0 `i `uc 43
 , $ -> -> 1 `i `uc 44
 , $ -> -> 2 `i `uc 45
 , $ -> -> 3 `i `uc 46
 , $ -> -> 4 `i `uc 47
 , $ -> -> 5 `i `uc 48
 , $ -> -> 6 `i `uc 49
 , $ -> -> 7 `i `uc 50
 , $ -> -> 8 `i `uc 51
 , $ -> -> 9 `i `uc 52
 , $ -> -> 10 `i `uc 53
 , $ -> -> 11 `i `uc 54
 , $ -> -> 12 `i `uc 55
 , $ -> -> 13 `i `uc 56
 , $ -> -> 14 `i `uc 57
 , $ -> -> 15 `i `uc 58
 59 ]
"248
[e :U 41 ]
"249
[e :U 40 ]
[; ;mtouch16.c: 249: }

[; ;mtouch16.c: 251: if (BIGVAL > AVERAGE[INDEX])

"251
[e $ ! > _BIGVAL *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux 60  ]
[; ;mtouch16.c: 252: AVERAGE[INDEX] = BIGVAL;

"252
[e = *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux _BIGVAL ]
[e :U 60 ]
[; ;mtouch16.c: 253: if (AvgIndex < 10) AvgIndex++;

"253
[e $ ! < -> _AvgIndex `i -> 10 `i 61  ]
[e ++ _AvgIndex -> -> 1 `i `uc ]
[e $U 62  ]
"254
[e :U 61 ]
[; ;mtouch16.c: 254: else AvgIndex = 0;

[e = _AvgIndex -> -> 0 `i `uc ]
[e :U 62 ]
[; ;mtouch16.c: 255: if (AvgIndex == 10)

"255
[e $ ! == -> _AvgIndex `i -> 10 `i 63  ]
[; ;mtouch16.c: 256: {

[; ;mtouch16.c: 257: AVERAGE[INDEX] = AVERAGE[INDEX] + (VALUE - SMALLVAL);

"257
[e = *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux + *U + &U _AVERAGE * -> _INDEX `ux -> -> # *U &U _AVERAGE `ui `ux - _VALUE _SMALLVAL ]
"258
[e :U 63 ]
[; ;mtouch16.c: 258: }

[; ;mtouch16.c: 259: Abit_next_channel();

"259
[e ( _Abit_next_channel ..  ]
[; ;mtouch16.c: 260: Abit_restart_timer();

"260
[e ( _Abit_restart_timer ..  ]
"262
[e :U 18 ]
"263
[; ;mtouch16.c: 262: }

[; ;mtouch16.c: 263: }

[e :UE 17 ]
}