4 const u8 motor_lookup[80] =
5 { 1,12,23,34,46,57,68,79,
6 11,22,33,44,56,67,78,89,
7 21,32,43,54,66,77,88,99,
18 void motor_shift_send(u8 data) {
20 /* load it in, MSB first */
21 for (i = 0; i < 8; i++) {
23 bset_misc_output(A3800_MOTOR_DATA);
25 bclr_misc_output(A3800_MOTOR_DATA);
30 bset((void*)&_io_ports[M6811_PORTA], PORTA_MOTOR_CLOCK);
32 bclr((void*)&_io_ports[M6811_PORTA], PORTA_MOTOR_CLOCK);
39 void motor_on(u8 slot) {
45 /* loads up the shift register with the right bits */
46 bclr_misc_output(A3800_MOTOR_COL8_ENABLE|A3800_MOTOR_COL9_ENABLE);
49 bset_misc_output(A3800_MOTOR_COL8_ENABLE);
53 bset_misc_output(A3800_MOTOR_COL9_ENABLE);
57 motor_shift_send(1 << col); /* cols from 0..7 */
58 bclr((void*)&_io_ports[M6811_PORTA], PORTA_MOTOR_COL_DISABLE);
61 motor_shift_send(1 << (row-1)); /* rows from 1..8 here */
63 bclr((void*)&_io_ports[M6811_PORTA], PORTA_MOTOR_CLOCK);
64 bclr_changer_output(A3000_MOTOR_ROW_DISABLE);
68 bset_changer_output(A3000_MOTOR_ROW_DISABLE);
69 delay(10); /* XXX cf motors_off */
70 bset((void*)&_io_ports[M6811_PORTA], PORTA_MOTOR_COL_DISABLE);
71 bclr_misc_output(A3800_MOTOR_COL8_ENABLE | A3800_MOTOR_COL9_ENABLE);
74 bool motor_here(u8 slot) {
76 for (i=0; i < 8; i++) {
79 if ((_io_ports[M6811_PORTE] & PORTE_MOTOR_OVERVOLTAGE) == 0) {
91 bool is_motor(u8 slot) {
92 /* FIXME - does more need to be done? */
93 return motor_here(slot);
96 bool start_motor(u8 slot) {
103 for (i = 0; i < 1000; i++) {
104 if ((home_sensors & r) != 0) return 1;
112 bool back_home(u8 slot) {
117 for (i = 0; i < 5; i++) {
118 if ((home_sensors & r) == 0) return 1;
122 /* it never arrived */
126 #define is_overcurrent() ((_io_ports[M6811_PORTE] & PORTE_MOTOR_NOT_OVERCURRENT)==0)
127 bool motor_overcurrent() {
128 u8 good_passes = 0, t;
129 for (t = 0; t < 8; t++) {
131 if (is_overcurrent()) continue;
134 if (good_passes == 5) return 0;
139 u8 dispense_motor(u8 slot) {
140 if (!is_motor(slot)) return MOTOR_NOSLOT;
141 if (!start_motor(slot)) return MOTOR_HOME_FAIL;
144 if (motor_overcurrent()) {
146 return MOTOR_CURRENT_FAIL;
148 /* something should call motor_here? */
149 if (back_home(slot)) {
151 return MOTOR_SUCCESS;