X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=ROM2%2Fmain_basic.c;h=0f9d3eab01f5bddf7e057d16dc192a0b074fdbcf;hb=HEAD;hp=a6a8a155b576331c09034060224be66d75dcd97d;hpb=24f4e50d8f5671b40d2662bbcd50e3859bcd5205;p=uccvend-snackrom.git diff --git a/ROM2/main_basic.c b/ROM2/main_basic.c index a6a8a15..0f9d3ea 100644 --- a/ROM2/main_basic.c +++ b/ROM2/main_basic.c @@ -4,8 +4,7 @@ * and snacks. */ -#define VERSION_STRING "R 20040622" - +#include "version.h" #include "display_basic.h" #include "keypad.h" #include "chime.h" @@ -34,6 +33,14 @@ bool check_standalone() { return 0; } +bool check_badpoke() { + if (cant_poke()) { + send_string("099 Can't poke without flipping DIP SW 3." CRLF); + return 1; + } + return 0; +} + void unknown_command() { send_string("012 Unknown command. Type HELP for help." CRLF); } @@ -74,10 +81,11 @@ void dispense_something() { send_string("102 Vend all motors starting." CRLF); for (motor[0] = '0'; motor[0] <= '9'; motor[0]++) { for (motor[1] = '0'; motor[1] <= '9'; motor[1]++) { + if (motor[1] == '5') continue; /* there is now row 5 */ send_string("101 Vending "); send_string(motor); send_string(CRLF); - motor_reply(dispense_motor(motor[0]*10+motor[1])); + motor_reply(dispense_motor((motor[0]-'0')*10+(motor[1]-'0'))); } } send_string("102 Vend all motors complete." CRLF); @@ -138,7 +146,7 @@ void give_change() { (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(); + //send_nack(); } cost = sci_rx_buf[1] - '0'; cost *= 10; cost = sci_rx_buf[2] - '0'; @@ -147,7 +155,7 @@ void give_change() { cost *= 10; cost = sci_rx_buf[5] - '0'; coin_cost(cost); - send_ack(); + //send_ack(); } void send_keypress(u8 key) { @@ -167,6 +175,20 @@ void send_keypress(u8 key) { send_string(" key." CRLF); } +void send_timer() { + /* send a packet of the form KX with X being the key, or R for reset */ + unsigned int t=get_timer_counter(); + + send_string("013 "); + sci_tx_buf[0] = '0'+(t/10000)%10; + sci_tx_buf[1] = '0'+(t/1000)%10; + sci_tx_buf[2] = '0'+(t/100)%10; + sci_tx_buf[3] = '0'+(t/10)%10; + sci_tx_buf[4] = '0'+t%10; + sci_tx_buf[5] = 0; + send_buffer(1); +} + void send_door_msg(bool open) { if (is_standalone()) return; sci_tx_buf[0] = '4'; @@ -227,7 +249,7 @@ void do_silence() { send_string("511 Unknown silence duration." CRLF); return; } - send_string("500 Silence started." CRLF); + send_string("501 Silence started." CRLF); return; } @@ -252,6 +274,86 @@ void ping_pong() { send_string("000 PONG!" CRLF); } +u16 hex2addr(char* addrptr) { + u16 v; + v = hex2u8(addrptr[0], addrptr[1]) << 8; + v |= hex2u8(addrptr[2], addrptr[3]); + return v; +} + +void peek() { + if (!my_strncmp("EEK", (char*)sci_rx_buf+1, 3)) { + unknown_command(); + return; + } + if (check_badpoke()) return; + if (ishex(sci_rx_buf[4]) && ishex(sci_rx_buf[5]) && ishex(sci_rx_buf[6]) && + ishex(sci_rx_buf[7]) && sci_rx_buf[8] == '\0') { + u16 v = hex2addr((char*)(sci_rx_buf+4)); + v = *((u8*)v); + send_string("090 "); + send_string(u82hex(v)); + send_string(CRLF); + return; + } + send_string("091 Invalid location given." CRLF); +} + +void poke() { + if (!my_strncmp("OKE", (char*)sci_rx_buf+1, 3)) { + unknown_command(); + return; + } + if (check_badpoke()) return; + if (ishex(sci_rx_buf[4]) && ishex(sci_rx_buf[5]) && ishex(sci_rx_buf[6]) && + ishex(sci_rx_buf[7]) && ishex(sci_rx_buf[8]) && ishex(sci_rx_buf[9]) + && sci_rx_buf[10] == '\0') { + u16 v; + v = hex2addr((char*)(sci_rx_buf+4)); + *(u8*)v = hex2u8(sci_rx_buf[8], sci_rx_buf[9]); + send_string("080 Written." CRLF); + return; + } + send_string("081 Invalid location or byte given." CRLF); +} + +void jump() { + if (!my_strncmp("UMP", (char*)sci_rx_buf+1, 3)) { + unknown_command(); + return; + } + if (check_badpoke()) return; + if (ishex(sci_rx_buf[4]) && ishex(sci_rx_buf[5]) && ishex(sci_rx_buf[6]) && + ishex(sci_rx_buf[7]) && sci_rx_buf[8] == '\0') { + u16 v = hex2addr((char*)(sci_rx_buf+4)); + send_string("070 Jumping now." CRLF); + asm volatile ("jsr %0" : : "m"(*(u16*)v) : "d"); + send_string("071 And back." CRLF); + return; + } + send_string("079 Invalid location given." CRLF); +} + +void do_set_password() { + u8 i; + bool good = 1; + if (check_badpoke()) return; + for (i=1; i < 17; i++) { + if (sci_rx_buf[i] == '\0') { + good = 0; + break; + } + } + if (good && sci_rx_buf[17] != '\0') good = 0; + if (!good) { + send_string("061 Password must be exactly 16 characters." CRLF); + return; + } + + mic_set_secret((char*)(sci_rx_buf+1)); + send_string("060 Password has been set." CRLF); +} + void send_prompt() { if (must_verify()) { send_string(u82hex(mic_challenge >> 8)); @@ -266,19 +368,18 @@ void about() { return; } send_string( - "-----------------------------------------------------------------" CRLF - " ROM2 (C) 2004 Bernard Blackham " CRLF - "-----------------------------------------------------------------" CRLF - " Revision " VERSION_STRING CRLF - "" CRLF + CRLF + " ROM2 (C) 2004 Bernard Blackham " CRLF + " Revision: " VERSION_STRING " Built: " DATEBUILT_STRING CRLF "" CRLF CRLF " This snack machine was brought to you by " CRLF " Bernard Blackham" CRLF - " Mark Tearle" CRLF " Harry McNally" CRLF + " Mark Tearle" CRLF " Michal Gornisiewicz" CRLF + " Nick Bannon" CRLF " and others." CRLF "" CRLF - " Another UCC project in action. http://www.ucc.asn.au/" CRLF + " Another UCC project in action. http://www.ucc.asn.au/" CRLF ); } @@ -318,20 +419,38 @@ void moo() { ); } +void identify() { + send_string( + "086 ROM " VERSION_STRING " " DATEBUILT_STRING CRLF + ); +} + void help() { send_string( "Valid commands are:" CRLF " ABOUT ROM information" CRLF - " PING pongs" CRLF + " B[S][nn] beep [synchronously] for a duration nn (optional)" CRLF + " C[S][nn] silence [synchronously] for a duration nn (optional)" CRLF + " Dxxxxxxxxxx show a message on the display" CRLF " ECHO {ON|OFF} turn echo on or off" CRLF - " Vnn vend an item" CRLF - " VALL vend all items" CRLF - " DXXXXXXXXXX show a message on the display" CRLF - " B[nn] beep for a duration nn (optional)" CRLF - " S[...] query all internal switch states" CRLF - " H[...] this help screen" CRLF " GETROM download the ROM source code using xmodem" CRLF - "Comments start with a #" CRLF + " H[...] this help screen" CRLF + " IDENTIFY report ROM version" CRLF + "*JUMPxxxx jumps to a subroutine at location xxxx" CRLF + "*PEEKxxxx returns the value of the byte at location xxxx" CRLF + "*POKExxxxyy sets the value of location xxxx to yy" CRLF + " PING pongs" CRLF + " S[...] query all internal switch states" CRLF + "+Vnn vend an item" CRLF + "+VALL vend all items" CRLF + "*Wxxxxxxxxxxxx set a new password for authenticated vends. xxx=16 chars" CRLF + " password will be converted to uppercase" CRLF + "" CRLF + "Very few functions are available when the machine is in standalone " CRLF + "mode (DIP SW 1 is set)" CRLF + "+ denotes that this item requires authentication if DIP SW 2 is set" CRLF + "* denotes that DIP SW 3 must be set to use these" CRLF + "Commands starting with # are ignored (comments)" CRLF ); } @@ -343,19 +462,23 @@ void getrom() { return; } char s[4]; + + u16 rom_addr; + rom_addr = (u16)(&_rom_src_data); + send_string("Writing to serial port (maybe). Size is 0x"); send_string(u82hex(_rom_src_len >> 8)); send_string(u82hex(_rom_src_len & 0xff)); send_string("@0x"); - send_string(u82hex((u16)(&_rom_src_data) >> 8)); - send_string(u82hex((u16)(&_rom_src_data) & 0xff)); + send_string(u82hex(rom_addr >> 8)); + send_string(u82hex(rom_addr & 0xff)); send_string(" with signature "); s[0] = _rom_src_data[0]; s[1] = _rom_src_data[1]; s[2] = _rom_src_data[2]; s[3] = '\0'; send_string(s); - send_string(CRLF " Type YES to download rom.tar.bz2 via XMODEM: "); + send_string(CRLF " Type YES to download rom.tar.lz via XMODEM: "); msg_clr(); while (!sci_have_packet); /* spin */ if (!my_strncmp("YES", (char*)sci_rx_buf, 3)) { @@ -404,9 +527,6 @@ void quit() { unknown_command(); } -//SHA1_CTX ctx; -//u8 sha1_digest[SHA1_SIGNATURE_SIZE]; - int main() { u8 i; for (i = 0; i < 11; i++) @@ -443,9 +563,6 @@ int main() { send_string("5N4X0RZ R US" CRLF); - mic_challenge = 0; - mic_set_secret("ABCDEFGH12345678"); - last_standalone = is_standalone(); if (last_standalone) cur_motor[0] = 0xff; @@ -489,22 +606,14 @@ int main() { } if (sci_have_packet) { + send_string(CRLF); switch (sci_rx_buf[0]) { case '\0': case '#': send_string(CRLF); break; - case 'E': - set_echo(); - break; - case 'H': - help(); - break; - case 'V': - dispense_something(); - break; - case 'D': - write_to_display(); + case 'A': + about(); break; case 'B': do_chime(); @@ -512,23 +621,46 @@ int main() { case 'C': do_silence(); break; - case 'P': - ping_pong(); + case 'D': + write_to_display(); break; - case 'A': - about(); + case 'E': + set_echo(); break; - case 'S': - print_switches(1); + case 'G': + getrom(); + break; + case 'H': + help(); + break; + case 'I': + identify(); break; case 'M': moo(); break; + case 'P': + if (sci_rx_buf[1] == 'I') + ping_pong(); + else if (sci_rx_buf[1] == 'O') + poke(); + else if (sci_rx_buf[1] == 'E') + peek(); + break; + case 'J': + jump(); + break; case 'Q': quit(); break; - case 'G': - getrom(); + case 'S': + print_switches(1); + break; + case 'V': + dispense_something(); + break; + case 'W': + do_set_password(); break; default: // shurg @@ -584,6 +716,7 @@ int main() { } } else send_keypress(last_key); + send_timer(); } /*