ROM2/main_basic.c

   1 /*
   2  * main_basic.c - a simplified main procedure that relies upon a ersver to do
   3  * anything smart. Just be a dumb interface to a display, keypad, coin mech
   4  * and snacks.
   5  */
   6
   7 #include "display_basic.h"
   8 #include "keypad.h"
   9 #include "chime.h"
  10 #include "coinmech.h"
  11 #include "motors.h"
  12 #include "sci.h"
  13 #include "vend.h"
  14
  15 void motor_reply(char* slotptr, u8 code) {
  16         /* returns a message of the form MXYY - X is return code, YY is motor */
  17         wait_for_tx_free();
  18         sci_tx_buf[0] = 'M';
  19         sci_tx_buf[1] = code + '0';
  20         sci_tx_buf[2] = *slotptr;
  21         sci_tx_buf[3] = *(slotptr+1);
  22         sci_tx_buf[4] = '\n';
  23         sci_tx_buf[5] = 0;
  24         send_packet();
  25 }
  26
  27 void dispense_something() {
  28         /* process a message VXX in sci_rx_buf where XX is motor number */
  29         u8 slot;
  30
  31         if ((sci_rx_buf[1] < '0') || (sci_rx_buf[1] > '9') ||
  32                 (sci_rx_buf[2] < '0') || (sci_rx_buf[2] > '9')) {
  33                 sci_rx_buf[1] = sci_rx_buf[2] = '0';
  34                 motor_reply((char*)&sci_rx_buf[1], MOTOR_NOSLOT);
  35                 return;
  36         }
  37
  38         slot = (sci_rx_buf[1] - '0') * 10;
  39         slot += sci_rx_buf[2] - '0';
  40
  41         motor_reply((char*)&sci_rx_buf[1], dispense_motor(slot));
  42 }
  43
  44 void write_to_display() {
  45         /* process a message in the form DXXXXXXXXXXX to send to display */
  46         u8 i;
  47         char buf[10];
  48         for (i = 0; i < 10; i++)
  49                 if (sci_rx_buf[i+1])
  50                         buf[i] = sci_rx_buf[i+1];
  51                 else
  52                         break;
  53
  54         for (; i < 10; i++) /* pad the rest out with spaces */
  55                 buf[i] = ' ';
  56
  57         set_msg(buf);
  58         send_ack();
  59 }
  60
  61 void send_balance() {
  62         wait_for_tx_free();
  63         sci_tx_buf[0] = 'C';
  64         sci_tx_buf[1] = have_change?'0':'1';
  65         sci_tx_buf[2] = (coin_value/10000)%10;
  66         sci_tx_buf[3] = (coin_value/1000)%10;
  67         sci_tx_buf[4] = (coin_value/100)%10;
  68         sci_tx_buf[5] = (coin_value/10)%10;
  69         sci_tx_buf[6] = coin_value%10;
  70         sci_tx_buf[7] = '\n';
  71         sci_tx_buf[8] = 0;
  72         send_packet();
  73 }
  74
  75 void give_change() {
  76         u16 cost;
  77
  78         if ((sci_rx_buf[1] < '0') || (sci_rx_buf[1] > '9') ||
  79                 (sci_rx_buf[2] < '0') || (sci_rx_buf[2] > '9') ||
  80                 (sci_rx_buf[3] < '0') || (sci_rx_buf[3] > '9') ||
  81                 (sci_rx_buf[4] < '0') || (sci_rx_buf[4] > '9') ||
  82                 (sci_rx_buf[5] < '0') || (sci_rx_buf[5] > '9')) {
  83                 send_nack();
  84         }
  85         cost = sci_rx_buf[1] - '0';
  86         cost *= 10; cost = sci_rx_buf[2] - '0';
  87         cost *= 10; cost = sci_rx_buf[3] - '0';
  88         cost *= 10; cost = sci_rx_buf[4] - '0';
  89         cost *= 10; cost = sci_rx_buf[5] - '0';
  90
  91         coin_cost(cost);
  92         send_ack();
  93 }
  94
  95 void send_keypress(u8 key) {
  96         /* send a packet of the form KX with X being the key, or R for reset */
  97         wait_for_tx_free();
  98         sci_tx_buf[0] = 'K';
  99         if (key == KEY_RESET)
 100                 sci_tx_buf[1] = 'R';
 101         else
 102                 sci_tx_buf[1] = (key%10)+'0';
 103         sci_tx_buf[2] = '\n';
 104         sci_tx_buf[3] = 0;
 105         send_packet();
 106 }
 107
 108 void send_door_msg(bool open) {
 109         wait_for_tx_free();
 110         sci_tx_buf[0] = 'D';
 111         sci_tx_buf[1] = open?'1':'0';
 112         sci_tx_buf[2] = '\n';
 113         sci_tx_buf[3] = 0;
 114         send_packet();
 115 }
 116
 117 void do_chime() {
 118         chime_start();
 119         send_ack();
 120 }
 121
 122 void ping_pong() {
 123         /* make sure it's really a ping */
 124         if (sci_rx_buf[1] != 'I' ||
 125                 sci_rx_buf[2] != 'N' ||
 126                 sci_rx_buf[3] != 'G') {
 127                 send_nack();
 128                 return;
 129         }
 130         /* respond with ack & pong */
 131         wait_for_tx_free();
 132         sci_tx_buf[0] = 'P';
 133         sci_tx_buf[1] = 'O';
 134         sci_tx_buf[2] = 'N';
 135         sci_tx_buf[3] = 'G';
 136         sci_tx_buf[4] = '\n';
 137         sci_tx_buf[5] = 0;
 138         send_packet();
 139 }
 140
 141 u16 last_coin_value;
 142 bool last_door_open;
 143 char display_buf[11];
 144 /* cur_motor[0] is 0 for nothing, or 1..10, or 0xff to say redraw.
 145  * cur_motor[1] is 0..9 and only meaningful is cur_motor[0] != 0. */
 146 u8 cur_motor[2];
 147
 148 int main() {
 149         u8 i;
 150         for (i = 0; i < 11; i++)
 151                 display_buf[i] = ' ';
 152         display_buf[10] = '\0';
 153
 154         changer_output = 0x7f;
 155         _io_ports[M6811_PORTA] = 0xc0; /* display on. talking to serial port */
 156         _io_ports[M6811_DDRA] = 0xfc;
 157         _io_ports[M6811_DDRD] = 0x3e;
 158         _io_ports[M6811_SPCR] = M6811_MSTR | M6811_SPR1;
 159         set_misc_output(0x00);
 160
 161         display_init();
 162         set_msg(" HELLO    ");
 163
 164         unlock(); /* enable interrupts */
 165
 166         delay(1000);
 167         set_msg("  CRUEL   ");
 168
 169         //comm_init();
 170         //coinmech_init();
 171         sci_init();
 172         keypad_init();
 173         last_coin_value = 0;
 174         last_door_open = 0;
 175
 176         delay(1000);
 177
 178         set_msg("   WORLD  ");
 179         delay(1000);
 180
 181         chime_start();
 182
 183         my_strncpy(sci_tx_buf, "5N4X0RZRUS\n", BUFFER_LEN);
 184         send_packet();
 185
 186         cur_motor[0] = 0xff;
 187         while(1) {
 188                 if (cur_motor[0] == 0xff) { /* signal to say redraw screen */
 189                         set_msg("*5N4X0RZ* ");
 190                         cur_motor[0] = 0;
 191                 }
 192
 193                 if (door_open() != last_door_open) {
 194                         last_door_open = door_open();
 195                         send_door_msg(last_door_open);
 196                         chime_start();
 197                         set_msg(last_door_open?"DOOR OPEN ":"DOOR CLOSE");
 198                 }
 199
 200                 if (sci_have_packet) {
 201                         switch (sci_rx_buf[0]) {
 202                                 case 'V':
 203                                         dispense_something();
 204                                         break;
 205                                 case 'D':
 206                                         write_to_display();
 207                                         break;
 208                                 case 'B':
 209                                         do_chime();
 210                                         break;
 211                                 case 'U':
 212                                         send_balance();
 213                                         break;
 214                                 case 'G':
 215                                         give_change();
 216                                         break;
 217                                 case 'P':
 218                                         ping_pong();
 219                                         break;
 220                                 default:
 221                                         // shurg
 222                                         send_nack();
 223                                         break;
 224                         }
 225                         msg_clr();
 226                 }
 227
 228                 keypad_read();
 229                 if (keypad_pressed()) {
 230                         if (last_key == KEY_RESET) {
 231                                 cur_motor[0] = 0xff;
 232                         } else {
 233                                 if (cur_motor[0]) {
 234                                         u8 motor_num;
 235                                         cur_motor[1] = last_key%10;
 236                                         display_buf[1] = cur_motor[1]+'0';
 237                                         set_msg(display_buf);
 238
 239                                         motor_num = cur_motor[0]%10;
 240                                         motor_num *= 10;
 241                                         motor_num += cur_motor[1];
 242                                         switch (dispense_motor(motor_num)) {
 243                                                 case MOTOR_HOME_FAIL:
 244                                                         set_msg(" HOME FAIL ");
 245                                                         break;
 246                                                 case MOTOR_CURRENT_FAIL:
 247                                                         set_msg(" OVER CRNT ");
 248                                                         break;
 249                                                 case MOTOR_SUCCESS:
 250                                                         set_msg("THANK  YOU");
 251                                                         break;
 252                                                 case MOTOR_NOSLOT:
 253                                                         set_msg(" NO MOTOR ");
 254                                                         break;
 255                                                 default:
 256                                                         set_msg("ERRRRRRRR?");
 257                                                         break;
 258                                         }
 259
 260                                         display_buf[0] = ' ';
 261                                         display_buf[1] = ' ';
 262                                         cur_motor[0] = 0xff;
 263                                         delay(500);
 264                                 } else {
 265                                         cur_motor[0] = last_key;
 266                                         display_buf[0] = (last_key%10)+'0';
 267                                         set_msg(display_buf);
 268                                 }
 269                         }
 270                         send_keypress(last_key);
 271                 }
 272
 273                 /*
 274                 if (coin_value != last_coin_value) {
 275                         send_balance();
 276                         last_coin_value = coin_value;
 277                 }
 278                 */
 279         }
 280 }