#include "chime.h"
#include "coinmech.h"
#include "motors.h"
-#include "comm.h"
+#include "sci.h"
#include "vend.h"
void motor_reply(char* slotptr, u8 code) {
/* returns a message of the form MXYY - X is return code, YY is motor */
wait_for_tx_free();
- tx_buffer[0] = 'M';
- tx_buffer[1] = code + '0';
- tx_buffer[2] = *slotptr;
- tx_buffer[3] = *(slotptr+1);
- tx_buffer[4] = '\n';
- tx_buffer[5] = 0;
+ sci_tx_buf[0] = 'M';
+ sci_tx_buf[1] = code + '0';
+ sci_tx_buf[2] = *slotptr;
+ sci_tx_buf[3] = *(slotptr+1);
+ sci_tx_buf[4] = '\n';
+ sci_tx_buf[5] = 0;
send_packet();
}
void dispense_something() {
- /* process a message VXX in msg_buf where XX is motor number */
+ /* process a message VXX in sci_rx_buf where XX is motor number */
u8 slot;
- if ((msg_buf[1] < '0') || (msg_buf[1] > '9') ||
- (msg_buf[2] < '0') || (msg_buf[2] > '9')) {
- msg_buf[1] = msg_buf[2] = '0';
- motor_reply((char*)&msg_buf[1], MOTOR_NOSLOT);
+ if ((sci_rx_buf[1] < '0') || (sci_rx_buf[1] > '9') ||
+ (sci_rx_buf[2] < '0') || (sci_rx_buf[2] > '9')) {
+ sci_rx_buf[1] = sci_rx_buf[2] = '0';
+ motor_reply((char*)&sci_rx_buf[1], MOTOR_NOSLOT);
return;
}
- slot = (msg_buf[1] - '0') * 10;
- slot += msg_buf[2] - '0';
+ slot = (sci_rx_buf[1] - '0') * 10;
+ slot += sci_rx_buf[2] - '0';
- motor_reply((char*)&msg_buf[1], dispense_motor(slot));
+ motor_reply((char*)&sci_rx_buf[1], dispense_motor(slot));
}
void write_to_display() {
u8 i;
char buf[10];
for (i = 0; i < 10; i++)
- if (msg_buf[i+1])
- buf[i] = msg_buf[i+1];
+ if (sci_rx_buf[i+1])
+ buf[i] = sci_rx_buf[i+1];
else
break;
void send_balance() {
wait_for_tx_free();
- tx_buffer[0] = 'C';
- tx_buffer[1] = have_change?'0':'1';
- tx_buffer[2] = (coin_value/10000)%10;
- tx_buffer[3] = (coin_value/1000)%10;
- tx_buffer[4] = (coin_value/100)%10;
- tx_buffer[5] = (coin_value/10)%10;
- tx_buffer[6] = coin_value%10;
- tx_buffer[7] = '\n';
- tx_buffer[8] = 0;
+ sci_tx_buf[0] = 'C';
+ sci_tx_buf[1] = have_change?'0':'1';
+ sci_tx_buf[2] = (coin_value/10000)%10;
+ sci_tx_buf[3] = (coin_value/1000)%10;
+ sci_tx_buf[4] = (coin_value/100)%10;
+ sci_tx_buf[5] = (coin_value/10)%10;
+ sci_tx_buf[6] = coin_value%10;
+ sci_tx_buf[7] = '\n';
+ sci_tx_buf[8] = 0;
send_packet();
}
void give_change() {
u16 cost;
- if ((msg_buf[1] < '0') || (msg_buf[1] > '9') ||
- (msg_buf[2] < '0') || (msg_buf[2] > '9') ||
- (msg_buf[3] < '0') || (msg_buf[3] > '9') ||
- (msg_buf[4] < '0') || (msg_buf[4] > '9') ||
- (msg_buf[5] < '0') || (msg_buf[5] > '9')) {
+ if ((sci_rx_buf[1] < '0') || (sci_rx_buf[1] > '9') ||
+ (sci_rx_buf[2] < '0') || (sci_rx_buf[2] > '9') ||
+ (sci_rx_buf[3] < '0') || (sci_rx_buf[3] > '9') ||
+ (sci_rx_buf[4] < '0') || (sci_rx_buf[4] > '9') ||
+ (sci_rx_buf[5] < '0') || (sci_rx_buf[5] > '9')) {
send_nack();
}
- cost = msg_buf[1] - '0';
- cost *= 10; cost = msg_buf[2] - '0';
- cost *= 10; cost = msg_buf[3] - '0';
- cost *= 10; cost = msg_buf[4] - '0';
- cost *= 10; cost = msg_buf[5] - '0';
+ cost = sci_rx_buf[1] - '0';
+ cost *= 10; cost = sci_rx_buf[2] - '0';
+ cost *= 10; cost = sci_rx_buf[3] - '0';
+ cost *= 10; cost = sci_rx_buf[4] - '0';
+ cost *= 10; cost = sci_rx_buf[5] - '0';
coin_cost(cost);
send_ack();
void send_keypress(u8 key) {
/* send a packet of the form KX with X being the key, or R for reset */
wait_for_tx_free();
- tx_buffer[0] = 'K';
+ sci_tx_buf[0] = 'K';
if (key == KEY_RESET)
- tx_buffer[1] = 'R';
+ sci_tx_buf[1] = 'R';
else
- tx_buffer[1] = (key%10)+'0';
- tx_buffer[2] = '\n';
- tx_buffer[3] = 0;
+ sci_tx_buf[1] = (key%10)+'0';
+ sci_tx_buf[2] = '\n';
+ sci_tx_buf[3] = 0;
send_packet();
}
void send_door_msg(bool open) {
wait_for_tx_free();
- tx_buffer[0] = 'D';
- tx_buffer[1] = open?'1':'0';
- tx_buffer[2] = '\n';
- tx_buffer[3] = 0;
+ sci_tx_buf[0] = 'D';
+ sci_tx_buf[1] = open?'1':'0';
+ sci_tx_buf[2] = '\n';
+ sci_tx_buf[3] = 0;
send_packet();
}
void ping_pong() {
/* make sure it's really a ping */
- if (msg_buf[1] != 'I' ||
- msg_buf[2] != 'N' ||
- msg_buf[3] != 'G') {
+ if (sci_rx_buf[1] != 'I' ||
+ sci_rx_buf[2] != 'N' ||
+ sci_rx_buf[3] != 'G') {
send_nack();
return;
}
/* respond with ack & pong */
wait_for_tx_free();
- tx_buffer[0] = 'P';
- tx_buffer[1] = 'O';
- tx_buffer[2] = 'N';
- tx_buffer[3] = 'G';
- tx_buffer[4] = '\n';
- tx_buffer[5] = 0;
+ sci_tx_buf[0] = 'P';
+ sci_tx_buf[1] = 'O';
+ sci_tx_buf[2] = 'N';
+ sci_tx_buf[3] = 'G';
+ sci_tx_buf[4] = '\n';
+ sci_tx_buf[5] = 0;
send_packet();
}
u16 last_coin_value;
bool last_door_open;
char display_buf[11];
+/* cur_motor[0] is 0 for nothing, or 1..10, or 0xff to say redraw.
+ * cur_motor[1] is 0..9 and only meaningful is cur_motor[0] != 0. */
u8 cur_motor[2];
int main() {
_io_ports[M6811_PORTA] = 0xc0; /* display on. talking to serial port */
_io_ports[M6811_DDRA] = 0xfc;
_io_ports[M6811_DDRD] = 0x3e;
- _io_ports[M6811_SPCR] = 0x12;
+ _io_ports[M6811_SPCR] = M6811_MSTR | M6811_SPR1;
set_misc_output(0x00);
display_init();
unlock(); /* enable interrupts */
- comm_init();
- coinmech_init();
+ //comm_init();
+ //coinmech_init();
+ sci_init();
keypad_init();
+ last_coin_value = 0;
+ last_door_open = 0;
- delay(500);
+ delay(1000);
set_msg(" CRUEL ");
- last_coin_value = 0;
- last_door_open = 0;
-
- dispense_motor(22);
delay(1000);
set_msg(" WORLD ");
chime_start();
- cur_motor[0] = 0;
+ cur_motor[0] = 0xff;
while(1) {
if (cur_motor[0] == 0xff) { /* signal to say redraw screen */
set_msg("*5N4X0RZ* ");
if (door_open() != last_door_open) {
last_door_open = door_open();
send_door_msg(last_door_open);
- if (last_door_open) {
- chime_start();
- set_msg("DOOR OPEND");
- } else {
- chime_start();
- set_msg("DOOR CLOSE");
- }
+ chime_start();
+ set_msg(last_door_open?"DOOR OPEN ":"DOOR CLOSE");
}
- if (rx_queue_state) {
- switch (msg_buf[0]) {
+ if (sci_have_packet) {
+ switch (sci_rx_buf[0]) {
case 'V':
dispense_something();
break;
ping_pong();
break;
default:
- /* shrug */
+ // shurg
send_nack();
break;
}
cur_motor[0] = 0xff;
} else {
if (cur_motor[0]) {
+ u8 motor_num;
cur_motor[1] = last_key%10;
- display_buf[1] = cur_motor[0]+'0';
+ display_buf[1] = cur_motor[1]+'0';
set_msg(display_buf);
- dispense_motor(cur_motor[0]*10 + cur_motor[1]);
- set_msg(" DONE ");
+
+ motor_num = cur_motor[0]%10;
+ motor_num *= 10;
+ motor_num += cur_motor[1];
+ switch (dispense_motor(motor_num)) {
+ case MOTOR_HOME_FAIL:
+ set_msg(" HOME FAIL ");
+ break;
+ case MOTOR_CURRENT_FAIL:
+ set_msg(" OVER CRNT ");
+ break;
+ case MOTOR_SUCCESS:
+ set_msg("THANK YOU");
+ break;
+ case MOTOR_NOSLOT:
+ set_msg(" NO MOTOR ");
+ break;
+ default:
+ set_msg("ERRRRRRRR?");
+ break;
+ }
+
display_buf[0] = ' ';
display_buf[1] = ' ';
cur_motor[0] = 0xff;
- delay(1000);
+ delay(500);
} else {
- cur_motor[0] = last_key%10;
- display_buf[0] = cur_motor[0]+'0';
+ cur_motor[0] = last_key;
+ display_buf[0] = (last_key%10)+'0';
set_msg(display_buf);
}
}
send_keypress(last_key);
}
+ /*
if (coin_value != last_coin_value) {
send_balance();
last_coin_value = coin_value;
}
+ */
}
}
-
git.ucc.asn.au / uccvend-snackrom.git / blobdiff
UCC git Repository :: git.ucc.asn.au