/* * petpia1.c -- PIA#1 chip emulation. * * Written by * Jouko Valta * Andre Fachat * Marco van den Heuvel * * This file is part of VICE, the Versatile Commodore Emulator. * See README for copyright notice. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA * 02111-1307 USA. * */ #include "vice.h" #include #include "cmdline.h" #include "crtc.h" #include "datasette.h" #include "drive.h" #include "interrupt.h" #include "keyboard.h" #include "maincpu.h" #include "parallel.h" #include "pets.h" #include "petmem.h" #include "petpia.h" #include "piacore.h" #include "resources.h" #include "tapeport.h" #include "types.h" #include "userport.h" /* ------------------------------------------------------------------------- */ /* Renaming exported functions */ #define MYPIA_NAME "PIA1" #define mypia_init pia1_init #define mypia_reset pia1_reset #define mypia_store pia1_store #define mypia_read pia1_read #define mypia_peek pia1_peek #define mypia_snapshot_write_module pia1_snapshot_write_module #define mypia_snapshot_read_module pia1_snapshot_read_module #define mypia_signal pia1_signal #define mypia_dump pia1_dump static piareg mypia; /* ------------------------------------------------------------------------- */ /* CPU binding */ static void my_set_int(unsigned int pia_int_num, int a, CLOCK offset) { maincpu_set_irq_clk(pia_int_num, a ? IK_IRQ : IK_NONE, maincpu_clk - offset); } static void my_restore_int(unsigned int pia_int_num, int a) { interrupt_restore_irq(maincpu_int_status, pia_int_num, a ? IK_IRQ : IK_NONE); } #define mycpu_rmw_flag maincpu_rmw_flag #define myclk maincpu_clk #define mycpu_int_status maincpu_int_status /* ------------------------------------------------------------------------- */ /* PIA resources. */ /* Flag: is the diagnostic pin enabled? (read only!) */ static int diagnostic_pin_enabled; static const resource_int_t resources_int[] = { RESOURCE_INT_LIST_END }; int pia1_resources_init(void) { return resources_register_int(resources_int); } static const cmdline_option_t cmdline_options[] = { CMDLINE_LIST_END }; int pia1_cmdline_options_init(void) { return cmdline_register_options(cmdline_options); } static int tape1_sense = 0; static int tape1_write_in = 0; static int tape1_motor_in = 0; static int tape2_sense = 0; static int tape2_write_in = 0; static int tape2_motor_in = 0; static int old_cb2_status = 0xff; void pia1_set_tape1_sense(int v) { tape1_sense = v; } void pia1_set_tape2_sense(int v) { tape2_sense = v; } /* FIXME: find out how the pet can read the write and motor lines */ void pia1_set_tape1_write_in(int v) { tape1_write_in = v; } void pia1_set_tape2_write_in(int v) { tape2_write_in = v; } void pia1_set_tape1_motor_in(int v) { tape1_motor_in = v; } void pia1_set_tape2_motor_in(int v) { tape2_motor_in = v; } /** \brief Get diagnostic pin status * * Get "DiagPin" resource value without going through the resource interface. * * The Gtk3 status bar code runs each frame, so going through the resource * interface and thus obtaining and releasing the main lock is too expensive. * This function avoids that performance hit. * * \return state of DiagPin resource (only for display) */ bool pia1_get_diagnostic_pin(void) { return (bool)diagnostic_pin_enabled; } /* ------------------------------------------------------------------------- */ /* I/O */ static void pia_set_ca2(int a) { parallel_cpu_set_eoi((uint8_t)((a) ? 0 : 1)); if (petres.model.pet2k) { crtc_screen_enable((a) ? 1 : 0); } } static void pia_set_cb2(int a) { if (old_cb2_status != a) { tapeport_set_motor(TAPEPORT_PORT_1, !a); old_cb2_status = a; } } static void pia_reset(void) { } /* E810 PORT A 7 Diagnostic sense (pin 5 on the user port) 6 IEEE EOI in 5 Cassette sense #2 4 Cassette sense #1 3-0 Keyboard row select (through 4->10 decoder) E811 CA2 output to blank the screen (old PETs only) IEEE EOI out CA1 cassette #1 read line E812 PORT B 7-0 Contents of keyboard row Usually all or all but one bits set. E813 CB2 output to cassette #1 motor: 0=on, 1=off CB1 screen retrace detection in Control 7 CA1 active transition flag. 1= 0->1, 0= 1->0 6 CA2 active transition flag. 1= 0->1, 0= 1->0 5 CA2 direction 1 = out | 0 = in ------------+------------+--------------------- 4 CA2 control Handshake=0 | Manual=1 | Active: High=1 Low=0 3 CA2 control On Read=0 | CA2 High=1 | IRQ on=1, IRQ off=0 Pulse =1 | CA2 Low=0 | 2 Port A control: DDRA = 0, IORA = 1 1 CA1 control: Active High = 1, Low = 0 0 CA1 control: IRQ on=1, off = 0 */ static void store_pa(uint8_t byte) { tapeport_set_sense_out(TAPEPORT_PORT_1, byte & 16 ? 1 : 0); tapeport_set_sense_out(TAPEPORT_PORT_2, byte & 32 ? 1 : 0); } static void store_pb(uint8_t byte) { } static void undump_pa(uint8_t byte) { } static void undump_pb(uint8_t byte) { } static uint8_t read_pa(void) { uint8_t byte; drive_cpu_execute_all(maincpu_clk); diagnostic_pin_enabled = read_userport_sp1(0); /* pin 5 */ /*printf("diag:%d\n", diagnostic_pin_enabled);*/ byte = 0xff - (tape1_sense ? 16 : 0) - (tape2_sense ? 32 : 0) - (parallel_eoi ? 64 : 0) - ((diagnostic_pin_enabled || petmem_superpet_diag()) ? 128 : 0); byte = ((byte & ~mypia.ddr_a) | (mypia.port_a & mypia.ddr_a)); return byte; } static uint8_t read_pb(void) { int row; uint8_t j = 0xFF; row = mypia.port_a & 15; if (row < KBD_ROWS) { j = ~keyarr[row]; } #if (defined(DEBUG_PIA) || defined(KBDBUG)) if (j < 255) { log_message(mypia_log, "%02X %02X %02X %02X %02X %02X %02X %02X %02X %02X - row %d %02x", keyarr[0], keyarr[1], keyarr[2], keyarr[3], keyarr[4], keyarr[5], keyarr[6], keyarr[7], keyarr[8], keyarr[9], row, j); } #endif return j; } #include "piacore.c"