static BYTE read_ciapa(cia_context_t *cia_context)
{
BYTE byte;
BYTE val = 0xff;
BYTE msk = cia_context->old_pb & ~joystick_value[1];
BYTE m;
int i;
for (m = 0x1, i = 0; i < 8; m <<= 1, i++) {
if (!(msk & m)) {
val &= ~rev_keyarr[i];
}
}
byte = (val & (cia_context->c_cia[CIA_PRA] | ~(cia_context->c_cia[CIA_DDRA]))) & ~joystick_value[2];
#ifdef HAVE_MOUSE
if (_mouse_enabled && (mouse_port == 2)) {
if (mouse_type == MOUSE_TYPE_NEOS) {
byte &= neos_mouse_read();
}
if (mouse_kind == MOUSE_KIND_POLLED) {
byte &= mouse_poll();
}
}
#endif
return byte;
}
void myspecialpoll() {
/*this has been moved in case there was an issue reaching the cb function when it was
called from timer.c. This shouldn't be an issue however it has been very slow to react
therefore we thought it best to remove it and place it here. This may not be the best way
of debugging but it seems to have worked,*/
mouse_poll();
}
static BYTE read_ciapb(cia_context_t *cia_context)
{
BYTE byte;
BYTE val = 0xff;
BYTE val_outhi = ((cia_context->c_cia[CIA_DDRA]) & (cia_context->c_cia[CIA_DDRB])) & (cia_context->c_cia[CIA_PRB]);
BYTE msk = cia_context->old_pa & ~joystick_value[2];
BYTE m;
int i;
for (m = 0x1, i = 0; i < 8; m <<= 1, i++) {
if (!(msk & m)) {
val &= ~keyarr[i];
/*
Handle the special case when both port A and port B are programmed as output,
port A outputs (active) low, and port B outputs high.
In this case pressing either shift-lock or two or more keys of the same column
is required to drive port B low, pressing a single key is not enough (and the
port will read back as high). (see testprogs/CIA/ciaports)
The initial value for val_outhi will drive the respective port B
bits high if the above mentioned condition is met, which gives the
expected result for single key presses.
*/
if (ciapb_forcelow(i)) {
val_outhi &= ~m;
}
}
}
for (m = 0x1, i = 8; i < 11; m <<= 1, i++) {
if (!(extended_keyboard_rows_mask & m)) {
val &= ~keyarr[i];
/* FIXME: what about the above mentioned case here? */
}
}
byte = val & (cia_context->c_cia[CIA_PRB] | ~(cia_context->c_cia[CIA_DDRB]));
byte |= val_outhi;
byte &= ~joystick_value[1];
#ifdef HAVE_MOUSE
if (_mouse_enabled && (mouse_port == 1)) {
if (mouse_type == MOUSE_TYPE_NEOS) {
byte &= neos_mouse_read();
}
if (mouse_kind == MOUSE_KIND_POLLED) {
byte &= mouse_poll();
}
}
#endif
return byte;
}
void pollmouse()
{
int x,y;
// return;
pollmouse_delay--;
if (pollmouse_delay) return;
pollmouse_delay = 2;
mouse_poll_host();
mouse_get_mickeys(&x,&y);
if (mouse_poll)
mouse_poll(x, y, mouse_buttons);
// if (mousecapture) position_mouse(64,64);
}
static BYTE read_ciapa(cia_context_t *cia_context)
{
BYTE byte;
BYTE val = 0xff;
BYTE msk = cia_context->old_pb & ~joystick_value[1];
BYTE m;
int i;
for (m = 0x1, i = 0; i < 8; m <<= 1, i++) {
if (!(msk & m)) {
val &= ~rev_keyarr[i];
}
}
byte = (val & (cia_context->c_cia[CIA_PRA] | ~(cia_context->c_cia[CIA_DDRA]))) & ~joystick_value[2];
#ifdef HAVE_MOUSE
if (_mouse_enabled && (mouse_port == 2)) {
switch (mouse_type) {
case MOUSE_TYPE_NEOS:
byte &= neos_mouse_read();
break;
case MOUSE_TYPE_SMART:
byte &= smart_mouse_read();
break;
case MOUSE_TYPE_ST:
case MOUSE_TYPE_AMIGA:
case MOUSE_TYPE_CX22:
byte &= mouse_poll();
break;
case MOUSE_TYPE_MICROMYS:
byte &= micromys_mouse_read();
break;
default:
break;
}
}
#endif
return byte;
}
static BYTE read_ciapb(cia_context_t *cia_context)
{
BYTE byte;
BYTE val = 0xff;
BYTE val_outhi;
BYTE msk, tmp;
BYTE m;
int i;
/* loop over rows,
pull down all bits connected to a row which is output and active.
*/
val_outhi = (cia_context->c_cia[CIA_DDRB]) & (cia_context->c_cia[CIA_PRB]);
DBGB(("PB val_outhi:%02x ddra:%02x pa:%02x ddrb:%02x pb:%02x ", val_outhi,
cia_context->c_cia[CIA_DDRA], cia_context->c_cia[CIA_PRA],
cia_context->c_cia[CIA_DDRB], cia_context->c_cia[CIA_PRB]));
msk = cia_context->old_pa & ~joystick_value[2];
for (m = 0x1, i = 0; i < 8; m <<= 1, i++) {
if (!(msk & m)) {
tmp = matrix_get_active_columns_by_row(i);
val &= ~tmp;
/*
Handle the special case when both port A and port B are programmed as output,
port A outputs (active) low, and port B outputs high.
In this case either connecting one port A 0 bit (by pressing either shift-lock)
or two or more port A 0 bits (by pressing keys of the same column) to one port B
bit is required to drive port B low (see testprogs/CIA/ciaports)
*/
if ((cia_context->c_cia[CIA_DDRA] & ~cia_context->c_cia[CIA_PRA] & m) &&
(cia_context->c_cia[CIA_DDRB] & cia_context->c_cia[CIA_PRB] & tmp)) {
DBGB(("(%d)", i));
if (ciapb_forcelow(i, (BYTE)(cia_context->c_cia[CIA_DDRA] & ~cia_context->c_cia[CIA_PRA]))) {
val_outhi &= ~tmp;
DBGB(("<force low, val_outhi:%02x>", val_outhi));
}
}
}
}
DBGB((" val:%02x val_outhi:%02x", val, val_outhi));
/* loop over columns,
pull down all bits connected to a column which is output and active.
handles the case when port b is used for both input and output
*/
msk = cia_context->old_pb & ~joystick_value[1];
for (m = 0x1, i = 0; i < 8; m <<= 1, i++) {
if (!(msk & m)) {
val &= ~matrix_get_active_columns_by_column(i);
}
}
DBGB((" val:%02x", val));
byte = val & (cia_context->c_cia[CIA_PRB] | ~(cia_context->c_cia[CIA_DDRB]));
byte |= val_outhi;
byte &= ~joystick_value[1];
DBGB((" out:%02x\n", byte));
#ifdef HAVE_MOUSE
if (_mouse_enabled && (mouse_port == 1)) {
switch (mouse_type) {
case MOUSE_TYPE_NEOS:
byte &= neos_mouse_read();
break;
case MOUSE_TYPE_SMART:
byte &= smart_mouse_read();
break;
case MOUSE_TYPE_ST:
case MOUSE_TYPE_AMIGA:
case MOUSE_TYPE_CX22:
byte &= mouse_poll();
break;
case MOUSE_TYPE_MICROMYS:
byte &= micromys_mouse_read();
break;
default:
break;
}
}
#endif
return byte;
}
static BYTE read_ciapa(cia_context_t *cia_context)
{
BYTE byte;
BYTE val = 0xff;
BYTE msk;
BYTE m, tmp;
int i;
DBGA(("PA ddra:%02x pa:%02x ddrb:%02x pb:%02x ",
cia_context->c_cia[CIA_DDRA], cia_context->c_cia[CIA_PRA],
cia_context->c_cia[CIA_DDRB], cia_context->c_cia[CIA_PRB]));
/* loop over columns,
pull down all bits connected to a column which is output and active.
*/
msk = cia_context->old_pb & ~joystick_value[1];
for (m = 0x1, i = 0; i < 8; m <<= 1, i++) {
if (!(msk & m)) {
tmp = matrix_get_active_columns_by_column(i);
/* when scanning from port B to port A with inactive bits set to 1
in port B, ghostkeys will be eliminated (pulled high) if the
matrix is connected to more 1 bits of port B. this does NOT happen
when the respective bits are set to input. (see testprogs/CIA/ciaports)
*/
if (tmp & cia_context->c_cia[CIA_PRB] & cia_context->c_cia[CIA_DDRB]) {
val &= ~rev_keyarr[i];
DBGA(("<force high %02x>", m));
} else {
val &= ~matrix_get_active_rows_by_column(i);
}
}
}
DBGA((" val:%02x", val));
/* loop over rows,
pull down all bits connected to a row which is output and active.
handles the case when port a is used for both input and output
*/
msk = cia_context->old_pa & ~joystick_value[2];
for (m = 0x1, i = 0; i < 8; m <<= 1, i++) {
if (!(msk & m)) {
val &= ~matrix_get_active_rows_by_row(i);
}
}
DBGA((" val:%02x", val));
byte = (val & (cia_context->c_cia[CIA_PRA] | ~(cia_context->c_cia[CIA_DDRA]))) & ~joystick_value[2];
DBGA((" out:%02x\n", byte));
#ifdef HAVE_MOUSE
if (_mouse_enabled && (mouse_port == 2)) {
switch (mouse_type) {
case MOUSE_TYPE_NEOS:
byte &= neos_mouse_read();
break;
case MOUSE_TYPE_SMART:
byte &= smart_mouse_read();
break;
case MOUSE_TYPE_ST:
case MOUSE_TYPE_AMIGA:
case MOUSE_TYPE_CX22:
byte &= mouse_poll();
break;
case MOUSE_TYPE_MICROMYS:
byte &= micromys_mouse_read();
break;
default:
break;
}
}
#endif
return byte;
}
