Compile fixes
[uccvend-snackrom.git] / ROM2 / coinmech.c
index a5a38e0..4701ada 100644 (file)
@@ -4,7 +4,6 @@
 
 u8 last_byte;
 
-
 u8 parity_test(u8 c) {
        u8 parity = 0;
        for (parity = 0; c; c = c>>1) {
@@ -33,10 +32,10 @@ void send_byte(u8 c) {
        last_byte = c;
        while (!(_io_ports[M6811_SCSR] & M6811_TDRE)); /* wait for TD register empty */
 
-       if (parity_of(c))
-               bset(&_io_ports[M6811_SCCR1], M6811_T8);
+       if (parity_test(c))
+               bset((void*)&_io_ports[M6811_SCCR1], M6811_T8);
        else
-               bclr(&_io_ports[M6811_SCCR1], M6811_T8);
+               bclr((void*)&_io_ports[M6811_SCCR1], M6811_T8);
 }
 
 void ask_for_retrans() {
@@ -60,7 +59,7 @@ void sci_interrupt() {
        }
 
        /* all bytes must have the correct ID in the 3 MSBs */
-       if (in & 0xe0 != COINMECH_ID) return;
+       if ((in & 0xe0) != COINMECH_ID) return;
 
        /* we have a good packet */
        if (in == 0x3f) {
@@ -69,10 +68,13 @@ void sci_interrupt() {
                return;
        }
 
-       if (packet_pos != 0 && !IS_CTRL(x&0x10)) {
+       if (packet_pos != 0 && !IS_CTRL(in&0x10)) {
                switch (in & 0x0f) {
                }
        } else {
 
        }
 }
+
+void coin_eat() {
+}

UCC git Repository :: git.ucc.asn.au