* the executable file might be covered by the GNU General Public License.
*/
+#include "ioports.h"
#include "ui.h"
#include "idle.h"
+#include "commondef.h"
+
+
+const char charcodemap[] = {charcode_0,
+ charcode_1,
+ charcode_4,
+ charcode_7,
+
+ charcode_f,
+ charcode_2,
+ charcode_5,
+ charcode_8,
+
+ charcode_e,
+ charcode_3,
+ charcode_6,
+ charcode_9,
+
+ charcode_d,
+ charcode_c,
+ charcode_b,
+ charcode_a,
+};
+
+extern unsigned char pollkeybuf[32];
keyin_defs keyin_old[2];
keyin_defs keyin_now;
-char keyin_fifo[16];
+char keyin_fifo[32];
char keyin_nowp;
char keyin_readp;
char keyin_counter;
+unsigned char cold;
+
void keyin_init(void)
{
char i;
/* Initialize vars*/
- for(i = 0; i < 3; i++) {
+ for(i = 0; i < 2; i++) {
keyin_old[0].byte[i] = 0x00;
keyin_old[1].byte[i] = 0x00;
keyin_now.byte[i] = 0x00;
}
- for(i = 0; i < 16; i++) keyin_fifo[i] = 0x00;
+ for(i = 0; i < 32; i++) keyin_fifo[i] = 0x00;
keyin_nowp = 0;
keyin_readp = 0;
keyin_counter = 0;
-
-}
-#if defined(pic18f23k22) || defined(pic18f24k22) || defined(pic18f25k22) || defined(pic18f26k22)
-/*
- * For 28Pin PIC(18F2xK22), I2C lcd using.
- */
-
-void keyin_ioinit(void)
-{
- /* Initialize IOPORTS*/
- PORTA = 0x00;
- LATA = 0x00;
- ANSELA = AN_A_VAL;
- TRISA = TRIS_A_VAL;
-
- PORTB = 0x00;
- LATB = 0x00;
- ANSELB = AN_B_VAL;
- TRISB = TRIS_B_VAL;
-
- PORTC = 0x00;
- LATC = 0x00;
- ANSELC = AN_C_VAL;
- TRISC = TRIS_C_VAL_O;
-}
-#endif
-
-#if defined(pic18f23k20) || defined(pic18f24k20) || defined(pic18f25k20) || defined(pic18f26k20)
-/*
- * For 28Pin PIC(18F2xK20), I2C lcd using.
- */
-
-void keyin_ioinit(void)
-{
- /* Initialize IOPORTS*/
- PORTA = 0x00;
- LATA = 0x00;
- ANSEL = 0x01; // Use RA0 AS ADC, Another is not used.
- ANSELH = 0x00; //
- TRISA = TRIS_A_VAL;
-
- PORTB = 0x00;
- LATB = 0x00;
- TRISB = TRIS_B_VAL;
-
- PORTC = 0x00;
- LATC = 0x00;
- TRISC = TRIS_C_VAL_O;
+ cold = charcode_null;
}
-#endif
-
-#if defined(pic18f43k20) || defined(pic18f44k20) || defined(pic18f45k20) || defined(pic18f46k20)
-/*
- * For 40Pin PIC(18F4xK20), paralell or I2C lcd using.
- */
-void keyin_ioinit(void)
-{
- /* Initialize IOPORTS*/
- PORTA = 0x00;
- LATA = 0x00;
- ANSEL = 0x00; // Use RA0 AS ADC, Another is not used.
- ANSELH = 0x00; //
- TRISA = TRIS_A_VAL;
-
- PORTB = 0x00;
- LATB = 0x00;
- TRISB = TRIS_B_VAL;
-
- PORTC = 0x00;
- LATC = 0x00;
- TRISC = TRIS_C_VAL_O;
-
- /*
- * You can use PORTD,RE0-RE2 extention, when using I2C lcd.
- */
- PORTD = 0x00;
- LATD = 0x00;
- TRISD = TRIS_D_VAL;
-
- PORTE = 0x00;
- TRISE = TRIS_E_VAL;
-}
-#else
-void keyin_ioinit(void)
-{
- /* Initialize IOPORTS*/
- PORTA = 0x00;
- LATA = 0x00;
-// ANSEL = 0x01; // Use RA0 AS ADC, Another is not used.
-// ANSELH = 0x00; //
- TRISA = TRIS_A_VAL;
-
- PORTB = 0x00;
- LATB = 0x00;
- TRISB = TRIS_B_VAL;
-
- PORTC = 0x00;
- LATC = 0x00;
- TRISC = TRIS_C_VAL_O;
-}
-#endif
/*
* Push to keyin fifo; not used atomic-writing.
*/
+#ifdef __SDCC
void push_keyinfifo(char b) __critical
+#else
+void push_keyinfifo(char b)
+#endif
{
- keyin_nowp++;
- if((keyin_nowp > 15) || (keyin_nowp < 0))keyin_nowp = 0;
+ if(keyin_counter >= 31) {
+ return; // Discard data.
+ }
keyin_fifo[keyin_nowp] = b;
+ keyin_nowp++;
keyin_counter++;
- if(keyin_counter > 16) keyin_counter = 16;
+ if((keyin_nowp > 31) || (keyin_nowp < 0)) keyin_nowp = 0;
}
/*
* Pop from keyin fifo; not used atomic-reading.
*/
+#ifdef __SDCC
char pop_keyinfifo(void) __critical
+#else
+char pop_keyinfifo(void)
+#endif
{
char c;
if(keyin_counter <= 0) {
keyin_counter = 0;
return charcode_null ;
}
- if(keyin_readp > 15) keyin_readp = 15;
c = keyin_fifo[keyin_readp];
keyin_readp++;
- if(keyin_readp > 15) keyin_readp = 0;
keyin_counter--;
- if(keyin_counter < 0)keyin_counter = 0;
+ if((keyin_readp > 31) || (keyin_readp < 0)) keyin_readp = 0;
return c;
}
-void print_numeric(int i, unsigned char supressf)
-{
- if((i == 0) && (supressf != 0)){
- unsigned char c;
- c = '0';
- _CURSOR_LEFT();
- _PUTCHAR(c);
- _CURSOR_RIGHT();
- } else {
- int l;
- unsigned char supress = 0;
- if(supressf == 0) supress = 1;
- _CURSOR_LEFT();
- if(i < 0){
- _PUTCHAR('-');
- i = -i;
- }
- l = i / 10000;
- i = i % 10000;
- if(l != 0) {
- _PUTCHAR((l & 0x0f)+ '0');
- supress = 1;
- } else if(supress != 0) {
- _PUTCHAR('0');
- }
- l = i / 1000;
- i = i % 1000;
- if(supress != 0){
- _PUTCHAR((l & 0x0f)+ '0');
- } else if(l != 0){
- _PUTCHAR((l & 0x0f)+ '0');
- supress = 1;
-
- }
- l = i / 100;
- i = i % 100;
- if(supress != 0){
- _PUTCHAR((l & 0x0f)+ '0');
- } else if(l != 0){
- _PUTCHAR((l & 0x0f)+ '0');
- supress = 1;
-
- }
- l = i / 10;
- i = i % 10;
- if(supress != 0){
- _PUTCHAR((l & 0x0f)+ '0');
- } else if(l != 0){
- _PUTCHAR((l & 0x0f)+ '0');
- supress = 1;
-
- }
- _PUTCHAR((i & 0x0f) + '0');
- _CURSOR_RIGHT();
- }
-
-}
-
void printstr(char *s)
{
int p = 0;
} while(p < 255);
}
-void print_numeric_nosupress(unsigned int data, unsigned char digit)
+
+
+void uint2bcd(unsigned long data, unsigned char *bcd)
{
- unsigned int i;
- unsigned char c;
- int ref = 10;
- int div = 1;
+ unsigned char i;
+ unsigned char j;
+
+ for(i = 0; i < 5; i++){
+ bcd[i] = data % 10;
+ data = data / 10;
+ }
+ bcd[5] = 0;
+}
+
+void print_numeric_nosupress(unsigned long data, unsigned char digit)
+{
+ unsigned char i;
+ unsigned char bcd[6];
+
if(digit == 0) return;
if(digit >= 5) digit = 5;
- if(digit == 5){
- i = data / 10000;
- data = data % 10000;
- _PUTCHAR(i + '0');
- digit--;
- }
- if(digit == 4){
- i = data / 1000;
- data = data % 1000;
- _PUTCHAR(i + '0');
- digit--;
- }
- if(digit == 3){
- i = data / 100;
- data = data % 100;
- _PUTCHAR(i + '0');
- digit--;
- }
- if(digit == 2){
- i = data / 10;
- data = data % 10;
- _PUTCHAR(i + '0');
- digit--;
- }
- if(digit == 1){
- i = data;
- _PUTCHAR(i + '0');
- digit--;
+ uint2bcd(data, bcd);
+ for(i = digit; i > 0; i--){
+ _PUTCHAR('0' + bcd[i - 1]);
}
}
/*
* Read Numeric(int)
*/
-unsigned int subst_numeric(unsigned int start, unsigned char pos, unsigned char c)
+unsigned long subst_numeric(unsigned long start, unsigned char pos, unsigned char c)
{
- unsigned int p = pos;
- unsigned int val;
- if(p > 4) p = 4;
- switch(p){
- case 0:
- val = (start / 10) * 10 + c;
- break;
- case 1:
- val = (start / 100) * 100 + start % 10 + c * 10;
- break;
- case 2:
- val = (start / 1000) * 1000 + start % 100 + c * 100;
- break;
- case 3:
- val = (start / 10000) * 10000 + start % 1000 + c * 1000;
- break;
- case 4:
- val = start % 10000 + c * 10000;
- break;
- default:
- val = start;
- break;
- }
+ unsigned long val;
+ unsigned char bcd[6];
+ char i;
+
+ if(pos > 4) pos = 4;
+ uint2bcd(start, bcd);
+ bcd[pos] = c;
+ val = bcd[0] + bcd[1] * 10 + bcd[2] * 100 + bcd[3] * 1000 + bcd[4] * 10000;
return val;
}
char startx, char starty)
{
unsigned char c;
- unsigned char i;
- unsigned int val;
- unsigned char d;
- unsigned char input_flag;
-
- d = digit;
- if(d > 4) d = 4;
- val = initial;
- i = 0;
+ unsigned char n;
+ char i;
+ unsigned long val;
+ unsigned long v;
+ char d;
+
+ d = digit - 1;
+ val =(unsigned long) initial;
+ i = d;
do {
+ _CURSOR_OFF();
+ ClrWdt();
_LOCATE(startx, starty);
print_numeric_nosupress(val, digit);
-
- do {
- input_flag = readkey_compare();
- idle(0xff80);
- } while(input_flag == 0);
- c = pop_keyinfifo();
+ ClrWdt();
+ _LOCATE(startx + d - i, starty);
+ _CURSOR_ON();
+ c = pollkey_single();
if(c == charcode_0){
val = subst_numeric(val, i, 0);
- i++;
+ i--;
} else if((c >= charcode_1) && (c <= charcode_9)) {
val = subst_numeric(val, i, c - charcode_1 + 1);
+ i--;
} else if(c == charcode_f) {
// Enter
break;
- } else if(c == charcode_d) {
+ } else if(c == charcode_a) {
// Del
- if(i > 0) {
- val = (val / 10) * 10;
- i--;
- }
+ val = val / 10;
+ i++;
} else if(c == charcode_b) {
// cancel
val = initial;
+ i = d;
break;
+ } else if(c == charcode_e) {
+ i++;
+ } else if(c == charcode_d) {
+ i--;
}
- print_numeric_nosupress(val, d);
- idle(0xff00);
- } while(i <= d);
- return val;
-}
-
-
-
-/*
- * Set signal tune status led assigned to RC0.
- * You should modify if you modify circuit.
- */
-void setsignal_tune(unsigned char flag)
-{
- if(flag != 0){
- LATCbits.LATC0 = 1;
- } else {
- LATCbits.LATC0 = 0;
- }
-}
-
-/*
- * Set power of lcd backlight assigned to RB0.
- * You should modify if you modify circuit.
- */
-void set_backlight(unsigned char flag, unsigned int val)
-{
- if(flag != 0){
- LATBbits.LATB0 = 1;
- } else {
- LATBbits.LATB0 = 0;
- }
-}
-
-
-/*
- * Read IOPORTS for KEY. You should modify if you modify circuit.
- */
-void readkey_io(void)
-{
- char i;
- unsigned char portvar;
- unsigned char latchvar;
- unsigned char high;
- unsigned char low;
- if(keyin_counter > 16) keyin_counter = 0;
- for(i = 0; i < 3; i++){
- keyin_old[1].byte[i] = keyin_old[0].byte[i];
- keyin_old[0].byte[i] = keyin_now.byte[i];
- keyin_now.byte[i] = 0x00;
- }
- /* SCANLINE A*/
- latchvar = (LATA | 0x0f) & 0xfe;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
- portvar = PORTB;
- low = ~portvar & 0x0f;
- latchvar |= 0x0f;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
-
- /* SCANLINE B*/
- latchvar &= 0xfd;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
- portvar = PORTB;
- high = ~portvar & 0x0f;
- latchvar |= 0x0f;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
- /* Pos */
-
- keyin_now.byte[0] = (low << 4) | high;
-
- /* SCANLINE A*/
- latchvar &= 0xfb;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
- portvar = PORTB;
- low = ~portvar & 0x0f;
- latchvar |= 0x0f;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
-
- /* SCANLINE B*/
- latchvar &= 0xf7;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
- portvar = PORTB;
- high = ~portvar & 0x0f;
- latchvar |= 0x0f;
- LATA = latchvar;
- delay1ktcy(8); // 1ms
- /* Pos */
- keyin_now.byte[0] = (low << 4) | high;
- /* Special KEYS */
+ if(i <= 0) i = 0;
+ if(i > d) i = d;
+ } while(1);
+ _CURSOR_OFF();
+ if(val > 65535) val = 65535;
+ return (unsigned int)val;
}
unsigned char readkey_compare(void)
unsigned char f;
f = 0;
e = 0;
- for(d = 0; d < 3; d++) {
+ for(d = 0; d < 2; d++) {
shift = 0x01;
for(b = 0; b < 8; b++){
c = 0;
- if((keyin_now.byte[c] & shift) != 0) c++;
- if((keyin_old[0].byte[c] & shift) != 0) c++;
- if((keyin_old[1].byte[c] & shift) != 0) c++;
+ if((keyin_now.byte[d] & shift) != 0) c++;
+ if((keyin_old[0].byte[d] & shift) != 0) c++;
+ if((keyin_old[1].byte[d] & shift) != 0) c++;
if(c >= 2) {
/*
* Clear older-inputs on .
*/
f |= 1;
- keyin_old[0].byte[c] &= ~shift;
- keyin_old[1].byte[c] &= ~shift;
- keyin_now.byte[c] &= ~shift;
- if(e == 0) {
- push_keyinfifo(charcode_0);
- } else if(e <= 15) {
- push_keyinfifo(b);
- } else if(e < 20) {
- push_keyinfifo(e + 1);
- }
+ keyin_old[0].byte[d] &= ~shift;
+ keyin_old[1].byte[d] &= ~shift;
+ keyin_now.byte[d] &= ~shift;
+ push_keyinfifo(charcodemap[e]);
}
shift <<= 1;
e++;
return f;
}
+unsigned char readkey(void)
+{
+ unsigned char i;
+ for(i = 0; i < 9; i++) {
+ idle_time_ms(2); // 2ms
+ readkey_io(i);
+// ClrWdt();
+ }
+ readkey_compare();
+ return pop_keyinfifo();
+}
+
+/*
+ * Polling key
+ * Max = 32bytes;
+ * 0 = Timeout
+ * 1~32 = Received.
+ * if((limit * 23ms) elapsed), break;
+ */
+unsigned char pollkeys(unsigned char *p, unsigned int limit, unsigned char repeat)
+{
+ unsigned char count = 0;
+ unsigned int lifetime = 0;
+ unsigned int penalty = 0;
+ unsigned char c;
+ unsigned char i;
+
+ do {
+ idle_time_ms(5); // 5ms.
+ c = readkey(); //18ms
+ ClrWdt();
+ if(c != charcode_null){
+ if(cold != c) {
+ p[count++] = c;
+ cold = c;
+ count++;
+ if(repeat == 0) {
+ break;
+ }
+ penalty = 0;
+ }
+ } else {
+ penalty++;
+ if(penalty > 4){
+ penalty = 0;
+ cold = charcode_null;
+ }
+ }
+ if(limit != 0) lifetime++;
+ if(lifetime > limit) break;
+ } while(count < 32);
+ p[count] = charcode_null;
+ return count;
+}
+
+unsigned char pollkey_single(void)
+{
+ unsigned int penalty = 0;
+ unsigned char c;
+
+// cold = charcode_null;
+ do {
+ idle_time_ms(5); // 5ms.
+ c = readkey(); // 2 * 9 = 18ms
+ ClrWdt();
+ if(c != charcode_null) {
+ if(cold != c){
+ cold = c;
+ return c;
+ }
+ penalty = 0;
+ } else {
+ penalty++;
+ if(penalty > 4) {
+ penalty = 0;
+ cold = charcode_null; // About 100ms
+ }
+ }
+ } while(1);
+}
+
+unsigned char pollkey_single_timeout(unsigned int limit, unsigned char repeat)
+{
+ unsigned char c;
+ unsigned int ticks = 0;
+ unsigned char penalty = 0;
+ unsigned char count = 0;
+
+
+ cold = charcode_null;
+ pollkeybuf[0] = charcode_null;
+ do {
+ if(limit != 0) {
+ ticks++;
+ if(ticks > limit) {
+ break;
+ }
+ }
+ idle_time_ms(5); // 5ms.
+ c = readkey(); // 2 * 9 = 18ms
+ ClrWdt();
+ ticks++;
+ if(c != charcode_null){
+ if(cold != c) {
+ pollkeybuf[count++] = c;
+ cold = c;
+ count++;
+ if(repeat == 0) {
+ break;
+ }
+ penalty = 0;
+ }
+ } else {
+ penalty++;
+ if(penalty > 4){
+ penalty = 0;
+ cold = charcode_null;
+ }
+ }
+ } while(count < 32);
+
+ /*
+ * Set Deadzone.
+ */
+ if(limit == 0) {
+ while(ticks <= limit) {
+ idle_time_ms(5 + 18);
+ ticks++;
+ }
+ }
+ c = pollkeybuf[0];
+ return c;
+}
/*
* Notes:
* Initialize sequence: