Help needed to get my 7i76E + 7i85S + 7i73 on my mill going.

component GB_2speed; pin in bit spindle-enable-in; pin out bit spindle-enable-out; pin in float spindle-speed-in; pin out float motor-speed-out; pin in float gear.#.min-speed[12]; pin in float gear.#.max-speed[12]; pin in float gear.#.ratio[12]; pin in bit high-gear; pin in bit gear-AH; pin in bit gear-BH; pin in bit gear-B; pin in bit gear-C; pin in bit gear-D; pin in bit gear-E; license "gpl"; function _; ;; FUNCTION(_){ int gear; if (spindle_speed_in == 0) return; switch (gear_AH + gear_BH * 2 + gear_B * 4 + gear_C * 8 + gear_D * 16 + gear_E *32) { case 1: // Gear AH gear = (high_gear != 0) ? 1 : 7; break; case 2: // Gear BH gear = (high_gear != 0) ? 2 : 8; break; case 4: // Gear B gear = (high_gear != 0) ? 3 : 9; break; case 8 // Gear C gear = (high_gear != 0) ? 4 : 10; break; case 16: // Gear D gear = (high_gear != 0) ? 5 : 11; break; case 32: // Gear E gear = (high_gear != 0) ? 6 : 12; break; default: // gear selection is bitmasked to be able to spot double-engagement gear = 0; } if (gear >= 0 && spindle_speed_in >= gear_min_speed(gear) && spindle_speed_in <= gear_max_speed(gear)) { motor_speed_out = spindle_speed_in * gear_ratio(gear); spindle_enable_out = spindle_enable_in; } else { motor_speed_out = 0; spindle_enable_out = 0; } }

component GB_2speed; pin in bit spindle-enable-in; pin out bit spindle-enable-out; pin in float spindle-speed-in; pin out float motor-speed-out; pin in bit gear-high; pin in bit motor-high; pin in bit gear-A; pin in bit gear-B; pin in bit gear-C; pin in bit gear-D; pin in bit gear-E; pin out unsigned gear-required; pin out unsigned message; license "gpl"; function _; ;; FUNCTION(_){ int actual, reqd; int i; // These need to be edited to suit the gearbox int speeds[15] = {0, 80, 125, 160, 215, 270, 360, 450, 595, 750, 1000, 1191, 1500, 2500, 1e99); int reqd_gear[15] = {0x0, 0x01, 0x21, 0x02, 0x22, 0x04, 0x24, 0x08, 0x28, 0x10, 0x48, 0x68, 0x50, 0x70, 0x0}; if (spindle_speed_in == 0) return; actual = (high_gear * 0x40 + motor-high * 0x20 + gear_A * 0x10 + gear_B * 0x08 + gear_C * 0x04 + gear_D * 0x02 + gear_E * 0x01); for (i = 0, spindle_speed_in > speeds[i] && i < 14; i++); gear_required = reqd_gear[i]; if (gear_required == actual && gear_required != 0x0){ // We are in the right gear spindle_enable_out = spindle_enable_in; motor_speed_out = speeds[13] * (spindle_speed_in / speeds[i]); message = 0; } else { motor_speed_out = 0; spindle_enable_out = 0; message = i; } }

component GB_2speed; pin in bit spindle-enable-in; pin out bit spindle-enable-out; pin in float spindle-speed-in; pin out float motor-speed-out; pin in bit gear-high; pin in bit motor-high; pin in bit gear-A; pin in bit gear-B; pin in bit gear-C; pin in bit gear-D; pin in bit gear-E; pin out unsigned gear-required; pin out bit message[14]; license "gpl"; function _; ;; FUNCTION(_){ int actual, reqd; int i; // These need to be edited to suit the gearbox int speeds[15] = {0, 80, 125, 160, 215, 270, 360, 450, 595, 750, 1000, 1191, 1500, 2500, 1e99); int reqd_gear[15] = {0x0, 0x01, 0x21, 0x02, 0x22, 0x04, 0x24, 0x08, 0x28, 0x10, 0x48, 0x68, 0x50, 0x70, 0x0}; if (spindle_speed_in == 0) return; actual = (high_gear * 0x40 + motor-high * 0x20 + gear_A * 0x10 + gear_B * 0x08 + gear_C * 0x04 + gear_D * 0x02 + gear_E * 0x01); for (i = 0, spindle_speed_in > speeds[i] && i < 14; i++); gear_required = reqd_gear[i]; if (gear_required == actual && gear_required != 0x0){ // We are in the right gear spindle_enable_out = spindle_enable_in; motor_speed_out = speeds[13] * (spindle_speed_in / speeds[i]); message = 0; } else { int j; motor_speed_out = 0; spindle_enable_out = 0; for (j = 0; j < 13; j++) { message(j) = 0; } message(i) = 1; } }