* and snacks.
*/
-#define VERSION_STRING "R 20040622"
-
+#include "version.h"
#include "display_basic.h"
#include "keypad.h"
#include "chime.h"
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);
}
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);
(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';
cost *= 10; cost = sci_rx_buf[5] - '0';
coin_cost(cost);
- send_ack();
+ //send_ack();
}
void send_keypress(u8 key) {
send_string("511 Unknown silence duration." CRLF);
return;
}
- send_string("500 Silence started." CRLF);
+ send_string("501 Silence started." CRLF);
return;
}
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));
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
+ "*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
);
}
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];
unknown_command();
}
-//SHA1_CTX ctx;
-//u8 sha1_digest[SHA1_SIGNATURE_SIZE];
-
int main() {
u8 i;
for (i = 0; i < 11; i++)
send_string("5N4X0RZ R US" CRLF);
- mic_challenge = 0;
- mic_set_secret("ABCDEFGH12345678");
-
last_standalone = is_standalone();
if (last_standalone)
cur_motor[0] = 0xff;
}
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();
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 '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
git.ucc.asn.au / uccvend-snackrom.git / blobdiff
UCC git Repository :: git.ucc.asn.au