[Fuse-for-macosx-commits] SF.net SVN: fuse-for-macosx:[684] vendor/fuse-emulator/current/fuse
Brought to you by:
fredm
Menu
▾
▴
[Fuse-for-macosx-commits] SF.net SVN: fuse-for-macosx:[684] vendor/fuse-emulator/current/fuse
|
From: <fr...@us...> - 2012-02-15 12:32:44
|
Revision: 684
http://fuse-for-macosx.svn.sourceforge.net/fuse-for-macosx/?rev=684&view=rev
Author: fredm
Date: 2012-02-15 12:32:32 +0000 (Wed, 15 Feb 2012)
Log Message:
-----------
To prepare to load . into vendor/fuse-emulator/current, perform 24
renames.
Added Paths:
-----------
vendor/fuse-emulator/current/fuse/peripherals/
vendor/fuse-emulator/current/fuse/peripherals/ay.c
vendor/fuse-emulator/current/fuse/peripherals/ay.h
vendor/fuse-emulator/current/fuse/peripherals/dck.c
vendor/fuse-emulator/current/fuse/peripherals/dck.h
vendor/fuse-emulator/current/fuse/peripherals/disk/
vendor/fuse-emulator/current/fuse/peripherals/fuller.c
vendor/fuse-emulator/current/fuse/peripherals/fuller.h
vendor/fuse-emulator/current/fuse/peripherals/ide/
vendor/fuse-emulator/current/fuse/peripherals/if1.c
vendor/fuse-emulator/current/fuse/peripherals/if1.h
vendor/fuse-emulator/current/fuse/peripherals/if2.c
vendor/fuse-emulator/current/fuse/peripherals/if2.h
vendor/fuse-emulator/current/fuse/peripherals/joystick.c
vendor/fuse-emulator/current/fuse/peripherals/joystick.h
vendor/fuse-emulator/current/fuse/peripherals/kempmouse.c
vendor/fuse-emulator/current/fuse/peripherals/kempmouse.h
vendor/fuse-emulator/current/fuse/peripherals/melodik.c
vendor/fuse-emulator/current/fuse/peripherals/melodik.h
vendor/fuse-emulator/current/fuse/peripherals/printer.c
vendor/fuse-emulator/current/fuse/peripherals/printer.h
vendor/fuse-emulator/current/fuse/peripherals/scld.c
vendor/fuse-emulator/current/fuse/peripherals/scld.h
vendor/fuse-emulator/current/fuse/peripherals/ula.c
vendor/fuse-emulator/current/fuse/peripherals/ula.h
Removed Paths:
-------------
vendor/fuse-emulator/current/fuse/ay.c
vendor/fuse-emulator/current/fuse/ay.h
vendor/fuse-emulator/current/fuse/dck.c
vendor/fuse-emulator/current/fuse/dck.h
vendor/fuse-emulator/current/fuse/disk/
vendor/fuse-emulator/current/fuse/fuller.c
vendor/fuse-emulator/current/fuse/fuller.h
vendor/fuse-emulator/current/fuse/ide/
vendor/fuse-emulator/current/fuse/if1.c
vendor/fuse-emulator/current/fuse/if1.h
vendor/fuse-emulator/current/fuse/if2.c
vendor/fuse-emulator/current/fuse/if2.h
vendor/fuse-emulator/current/fuse/joystick.c
vendor/fuse-emulator/current/fuse/joystick.h
vendor/fuse-emulator/current/fuse/kempmouse.c
vendor/fuse-emulator/current/fuse/kempmouse.h
vendor/fuse-emulator/current/fuse/melodik.c
vendor/fuse-emulator/current/fuse/melodik.h
vendor/fuse-emulator/current/fuse/printer.c
vendor/fuse-emulator/current/fuse/printer.h
vendor/fuse-emulator/current/fuse/scld.c
vendor/fuse-emulator/current/fuse/scld.h
vendor/fuse-emulator/current/fuse/ula.c
vendor/fuse-emulator/current/fuse/ula.h
Deleted: vendor/fuse-emulator/current/fuse/ay.c
===================================================================
--- vendor/fuse-emulator/current/fuse/ay.c 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/ay.c 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,169 +0,0 @@
-/* ay.c: AY-8-3912 routines
- Copyright (c) 1999-2009 Philip Kendall
-
- $Id: ay.c 4030 2009-06-07 14:38:38Z fredm $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- E-mail: phi...@sh...
-
-*/
-
-#include <config.h>
-
-#include <string.h>
-
-#include "compat.h"
-#include "machine.h"
-#include "module.h"
-#include "printer.h"
-#include "psg.h"
-#include "sound.h"
-
-/* Unused bits in the AY registers are silently zeroed out; these masks
- accomplish this */
-static const libspectrum_byte mask[ AY_REGISTERS ] = {
-
- 0xff, 0x0f, 0xff, 0x0f, 0xff, 0x0f, 0x1f, 0xff,
- 0x1f, 0x1f, 0x1f, 0xff, 0xff, 0x0f, 0xff, 0xff,
-
-};
-
-static void ay_reset( int hard_reset );
-static void ay_from_snapshot( libspectrum_snap *snap );
-static void ay_to_snapshot( libspectrum_snap *snap );
-
-static module_info_t ay_module_info = {
-
- ay_reset,
- NULL,
- NULL,
- ay_from_snapshot,
- ay_to_snapshot,
-
-};
-
-int
-ay_init( void )
-{
- module_register( &ay_module_info );
-
- return 0;
-}
-
-static void
-ay_reset( int hard_reset GCC_UNUSED )
-{
- ayinfo *ay = &machine_current->ay;
-
- ay->current_register = 0;
- memset( ay->registers, 0, sizeof( ay->registers ) );
-}
-
-/* What happens when the AY register port (traditionally 0xfffd on the 128K
- machines) is read from */
-libspectrum_byte
-ay_registerport_read( libspectrum_word port GCC_UNUSED, int *attached )
-{
- int current;
- const libspectrum_byte port_input = 0xbf; /* always allow serial output */
-
- *attached = 1;
-
- current = machine_current->ay.current_register;
-
- /* The AY I/O ports return input directly from the port when in
- input mode; but in output mode, they return an AND between the
- register value and the port input. So, allow for this when
- reading R14... */
-
- if( current == 14 ) {
- if(machine_current->ay.registers[7] & 0x40)
- return (port_input & machine_current->ay.registers[14]);
- else
- return port_input;
- }
-
- /* R15 is simpler to do, as the 8912 lacks the second I/O port, and
- the input-mode input is always 0xff */
- if( current == 15 && !( machine_current->ay.registers[7] & 0x80 ) )
- return 0xff;
-
- /* Otherwise return register value, appropriately masked */
- return machine_current->ay.registers[ current ] & mask[ current ];
-}
-
-/* And when it's written to */
-void
-ay_registerport_write( libspectrum_word port GCC_UNUSED, libspectrum_byte b )
-{
- machine_current->ay.current_register = (b & 15);
-}
-
-/* What happens when the AY data port (traditionally 0xbffd on the 128K
- machines) is written to; no corresponding read function as this
- always returns 0xff */
-void
-ay_dataport_write( libspectrum_word port GCC_UNUSED, libspectrum_byte b )
-{
- int current;
-
- current = machine_current->ay.current_register;
-
- machine_current->ay.registers[ current ] = b & mask[ current ];
- sound_ay_write( current, b, tstates );
- if( psg_recording ) psg_write_register( current, b );
-
- if( current == 14 ) printer_serial_write( b );
-}
-
-void
-ay_state_from_snapshot( libspectrum_snap *snap )
-{
- size_t i;
-
- ay_registerport_write( 0xfffd,
- libspectrum_snap_out_ay_registerport( snap ) );
-
- for( i = 0; i < AY_REGISTERS; i++ ) {
- machine_current->ay.registers[i] =
- libspectrum_snap_ay_registers( snap, i );
- sound_ay_write( i, machine_current->ay.registers[i], 0 );
- }
-}
-
-static void
-ay_from_snapshot( libspectrum_snap *snap )
-{
- if( machine_current->capabilities & LIBSPECTRUM_MACHINE_CAPABILITY_AY ) {
- ay_state_from_snapshot( snap );
- }
-}
-
-static void
-ay_to_snapshot( libspectrum_snap *snap )
-{
- size_t i;
-
- libspectrum_snap_set_out_ay_registerport(
- snap, machine_current->ay.current_register
- );
-
- for( i = 0; i < AY_REGISTERS; i++ )
- libspectrum_snap_set_ay_registers( snap, i,
- machine_current->ay.registers[i] );
-}
Deleted: vendor/fuse-emulator/current/fuse/ay.h
===================================================================
--- vendor/fuse-emulator/current/fuse/ay.h 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/ay.h 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,47 +0,0 @@
-/* ay.h: AY-8-3912 routines
- Copyright (c) 1999-2009 Philip Kendall
-
- $Id: ay.h 4030 2009-06-07 14:38:38Z fredm $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- E-mail: phi...@sh...
-
-*/
-
-#ifndef FUSE_AY_H
-#define FUSE_AY_H
-
-#include <libspectrum.h>
-
-#define AY_REGISTERS 16
-
-typedef struct ayinfo {
- int current_register;
- libspectrum_byte registers[ AY_REGISTERS ];
-} ayinfo;
-
-int ay_init( void );
-
-libspectrum_byte ay_registerport_read( libspectrum_word port, int *attached );
-void ay_registerport_write( libspectrum_word port, libspectrum_byte b );
-
-void ay_dataport_write( libspectrum_word port, libspectrum_byte b );
-
-void ay_state_from_snapshot( libspectrum_snap *snap );
-
-#endif /* #ifndef FUSE_AY_H */
Deleted: vendor/fuse-emulator/current/fuse/dck.c
===================================================================
--- vendor/fuse-emulator/current/fuse/dck.c 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/dck.c 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,184 +0,0 @@
-/* dck.c: dock snapshot (Warajevo .DCK) handling routines
- Copyright (c) 2003-2004 Darren Salt, Fredrick Meunier, Philip Kendall
-
- $Id: dck.c 3703 2008-06-30 20:36:11Z pak21 $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- Philip: phi...@sh...
-
- Darren: li...@yo...
- Fred: fr...@sp...
-
-*/
-
-#include <config.h>
-
-#include <errno.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include <libspectrum.h>
-
-#include "dck.h"
-#include "machine.h"
-#include "memory.h"
-#include "settings.h"
-#include "scld.h"
-#include "ui/ui.h"
-#include "utils.h"
-#include "debugger/debugger.h"
-
-/* Dock cart inserted? */
-int dck_active = 0;
-
-int
-dck_insert( const char *filename )
-{
- int error;
-
- if ( !( libspectrum_machine_capabilities( machine_current->machine ) &
- LIBSPECTRUM_MACHINE_CAPABILITY_TIMEX_DOCK ) ) {
- ui_error( UI_ERROR_ERROR, "This machine does not support the dock" );
- return 1;
- }
-
- error = settings_set_string( &settings_current.dck_file, filename );
- if( error ) return error;
-
- machine_reset( 0 );
-
- return 0;
-}
-
-void
-dck_eject( void )
-{
- if ( !( libspectrum_machine_capabilities( machine_current->machine ) &
- LIBSPECTRUM_MACHINE_CAPABILITY_TIMEX_DOCK ) ) {
- ui_error( UI_ERROR_ERROR, "This machine does not support the dock" );
- return;
- }
-
- if( settings_current.dck_file ) free( settings_current.dck_file );
- settings_current.dck_file = NULL;
-
- dck_active = 0;
-
- ui_menu_activate( UI_MENU_ITEM_MEDIA_CARTRIDGE_DOCK_EJECT, 0 );
-
- machine_reset( 0 );
-}
-
-int
-dck_reset( void )
-{
- utils_file file;
- size_t num_block = 0;
- libspectrum_dck *dck;
- int error;
-
- dck_active = 0;
-
- if( !settings_current.dck_file ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_CARTRIDGE_DOCK_EJECT, 0 );
- return 0;
- }
-
- dck = libspectrum_dck_alloc();
-
- error = utils_read_file( settings_current.dck_file, &file );
- if( error ) { libspectrum_dck_free( dck, 0 ); return error; }
-
- error = libspectrum_dck_read2( dck, file.buffer, file.length,
- settings_current.dck_file );
- if( error ) {
- utils_close_file( &file ); libspectrum_dck_free( dck, 0 ); return error;
- }
-
- if( utils_close_file( &file ) ) {
- libspectrum_dck_free( dck, 0 );
- return 1;
- }
-
- while( dck->dck[num_block] != NULL ) {
- memory_page **mem;
- int i;
-
- switch( dck->dck[num_block]->bank ) {
- case LIBSPECTRUM_DCK_BANK_HOME:
- mem = memory_map_home;
- break;
- case LIBSPECTRUM_DCK_BANK_DOCK:
- mem = memory_map_dock;
- break;
- case LIBSPECTRUM_DCK_BANK_EXROM:
- mem = memory_map_exrom;
- break;
- default:
- ui_error( UI_ERROR_INFO, "Sorry, bank ID %i is unsupported",
- dck->dck[num_block]->bank );
- libspectrum_dck_free( dck, 0 );
- return 1;
- }
-
- for( i = 0; i < 8; i++ ) {
-
- switch( dck->dck[num_block]->access[i] ) {
-
- case LIBSPECTRUM_DCK_PAGE_NULL:
- break;
-
- case LIBSPECTRUM_DCK_PAGE_ROM:
- mem[i]->page = memory_pool_allocate( MEMORY_PAGE_SIZE );
- if( !mem[i]->page ) return 1;
- memcpy( mem[i]->page, dck->dck[num_block]->pages[i],
- MEMORY_PAGE_SIZE );
- mem[i]->writable = 0;
- mem[i]->source = MEMORY_SOURCE_CARTRIDGE;
- break;
-
- case LIBSPECTRUM_DCK_PAGE_RAM_EMPTY:
- case LIBSPECTRUM_DCK_PAGE_RAM:
- /* Because the scr and snapshot code depends on the standard
- memory map being in the RAM[] array, we just copy RAM
- blocks from the HOME bank into the appropriate page; in
- other cases, we allocate ourselves a new page to store the
- contents in */
- if( !(dck->dck[num_block]->bank == LIBSPECTRUM_DCK_BANK_HOME && i>1) ) {
- mem[i]->page = memory_pool_allocate( MEMORY_PAGE_SIZE );
- if( !mem[i]->page ) return 1;
- mem[i]->writable = 1;
- }
-
- mem[i]->source = MEMORY_SOURCE_CARTRIDGE;
- memcpy( mem[i]->page, dck->dck[num_block]->pages[i],
- MEMORY_PAGE_SIZE );
- break;
-
- }
- }
- num_block++;
- }
-
- dck_active = 1;
-
- /* Make the menu item to eject the cartridge active */
- ui_menu_activate( UI_MENU_ITEM_MEDIA_CARTRIDGE_DOCK_EJECT, 1 );
-
- return libspectrum_dck_free( dck, 0 );
-}
Deleted: vendor/fuse-emulator/current/fuse/dck.h
===================================================================
--- vendor/fuse-emulator/current/fuse/dck.h 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/dck.h 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,39 +0,0 @@
-/* dck.h: dock snapshot (Warajevo .DCK) handling routines
- Copyright (c) 2003 Darren Salt, Fredrick Meunier
-
- $Id: dck.h 2889 2007-05-26 17:45:08Z zubzero $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- Philip: phi...@sh...
-
- Darren: li...@yo...
- Fred: fr...@sp...
-
-*/
-
-#ifndef FUSE_DCK_H
-#define FUSE_DCK_H
-
-/* Dock cart inserted? */
-extern int dck_active;
-
-int dck_insert( const char *filename );
-void dck_eject( void );
-int dck_reset( void );
-
-#endif
Deleted: vendor/fuse-emulator/current/fuse/fuller.c
===================================================================
--- vendor/fuse-emulator/current/fuse/fuller.c 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/fuller.c 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,90 +0,0 @@
-/* fuller.c: Routines for handling the Fuller Box
- Copyright (c) 2007-2009 Stuart Brady, Fredrick Meunier
-
- $Id: fuller.c 4032 2009-06-10 11:09:44Z fredm $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- Philip: phi...@sh...
-
- Stuart: sd...@nt...
-
-*/
-
-#include <config.h>
-
-#include <libspectrum.h>
-
-#include "ay.h"
-#include "compat.h"
-#include "fuller.h"
-#include "joystick.h"
-#include "module.h"
-#include "periph.h"
-#include "settings.h"
-
-static void fuller_enabled_snapshot( libspectrum_snap *snap );
-static void fuller_from_snapshot( libspectrum_snap *snap );
-static void fuller_to_snapshot( libspectrum_snap *snap );
-
-static module_info_t fuller_module_info = {
-
- NULL,
- NULL,
- fuller_enabled_snapshot,
- fuller_from_snapshot,
- fuller_to_snapshot,
-
-};
-
-const periph_t fuller_peripherals[] = {
- { 0x00ff, 0x003f, ay_registerport_read, ay_registerport_write },
- { 0x00ff, 0x005f, NULL, ay_dataport_write },
- { 0x00ff, 0x007f, joystick_fuller_read, NULL },
-};
-
-const size_t fuller_peripherals_count =
- sizeof( fuller_peripherals ) / sizeof( periph_t );
-
-static void
-fuller_enabled_snapshot( libspectrum_snap *snap )
-{
- if( libspectrum_snap_fuller_box_active( snap ) )
- settings_current.fuller = 1;
-}
-
-static void
-fuller_from_snapshot( libspectrum_snap *snap )
-{
- if( periph_fuller_active ) {
- ay_state_from_snapshot( snap );
- }
-}
-
-static void
-fuller_to_snapshot( libspectrum_snap *snap )
-{
- libspectrum_snap_set_fuller_box_active( snap, periph_fuller_active );
-}
-
-int
-fuller_init( void )
-{
- module_register( &fuller_module_info );
-
- return 0;
-}
Deleted: vendor/fuse-emulator/current/fuse/fuller.h
===================================================================
--- vendor/fuse-emulator/current/fuse/fuller.h 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/fuller.h 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,40 +0,0 @@
-/* fuller.h: Routines for handling the Fuller Box
- Copyright (c) 2007-2009 Stuart Brady, Fredrick Meunier
-
- $Id: fuller.h 4030 2009-06-07 14:38:38Z fredm $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- Philip: phi...@sh...
-
- Stuart: sd...@nt...
-
-*/
-
-#ifndef FUSE_FULLER_H
-#define FUSE_FULLER_H
-
-#include <libspectrum.h>
-
-#include "periph.h"
-
-extern const periph_t fuller_peripherals[];
-extern const size_t fuller_peripherals_count;
-
-int fuller_init( void );
-
-#endif /* #ifndef FUSE_FULLER_H */
Deleted: vendor/fuse-emulator/current/fuse/if1.c
===================================================================
--- vendor/fuse-emulator/current/fuse/if1.c 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/if1.c 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,1304 +0,0 @@
-/* if1.c: Interface I handling routines
- Copyright (c) 2004-2008 Gergely Szasz, Philip Kendall
-
- $Id: if1.c 4180 2010-10-09 12:59:37Z fredm $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- Gergely: sz...@hu...
-
-*/
-
-#include <config.h>
-
-#include <string.h>
-#include <errno.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-
-#include <unistd.h>
-
-#include "compat.h"
-#include "debugger/debugger.h"
-#include "if1.h"
-#include "machine.h"
-#include "memory.h"
-#include "module.h"
-#include "periph.h"
-#include "settings.h"
-#include "utils.h"
-#include "ui/ui.h"
-
-#undef IF1_DEBUG_MDR
-#undef IF1_DEBUG_NET
-#undef IF1_DEBUG_NET_1
-
-#define BUFF_EMPTY 0x100
-
-enum {
- SYNC_NO = 0,
- SYNC_OK = 0xff
-};
-
-/*
- Microdrive cartridge
- GAP PREAMBLE 15 byte GAP PREAMBLE 15 byte 512 1
- [-----][00 00 ... ff ff][BLOCK HEAD][-----][00 00 ... ff ff][REC HEAD][ DATA ][CHK]
- Preamble = 10 * 0x00 + 2 * 0xff (12 byte)
-*/
-
-typedef struct microdrive_t {
- utils_file file;
- char *filename; /* old filename */
- int inserted;
- int modified;
- int motor_on;
- int head_pos;
- int transfered;
- int max_bytes;
- libspectrum_byte pream[512]; /* preamble/sync area written */
- libspectrum_byte last;
- libspectrum_byte gap;
- libspectrum_byte sync;
-
- libspectrum_microdrive *cartridge; /* write protect, len, blocks */
-
-} microdrive_t;
-
-typedef struct if1_ula_t {
- int fd_r; /* file descriptor for reading bytes or bits RS232 */
- int fd_t; /* file descriptor for writing bytes or bits RS232 */
- int fd_net; /* file descriptor for rw bytes or bits SinclairNET */
- int rs232_buffer; /* read buffer */
- int s_net_mode;
- int status; /* if1_ula/SinclairNET */
- int comms_data; /* the previous data comms state */
- int comms_clk; /* the previous data comms state */
- int cts; /* CTS of peripheral */
- int dtr; /* DTR of peripheral */
- int tx; /* TxD the name is very kind, because this is the read end of
- the TxD wire of DATA machine (really RxD the view of
- spectrum */
- int rx; /* RxD the name is very kind, because this is the write end of
- the RxD wire of DATA machine (really TxD the view of
- spectrum */
- int data_in; /* interpreted incoming data */
- int count_in;
- int data_out; /* interpreted outgoing data */
- int count_out;
- int esc_in; /* if we compose an escape seq */
-
- int net; /* Network in/out (really 1 wire bus :-) */
- int net_data; /* Interpreted network data */
- int net_state; /* Interpreted network data */
- int wait; /* Wait state */
- int busy; /* Indicate busy; if1 software never poll it ... */
-} if1_ula_t;
-
-/*
- 7 6 5 4 3 2 1 0
- STATUS RO $EF(239) --- --- --- BSY DTR GAP SYN WPR
-
- CONTRO WO $EF(239) --- --- WAT CTS ERA R/w CLK DTA
-
- MDR DT RW $E7(231) D7 D6 D5 D4 D3 D2 D1 D0
-
- COMM I RO $F7(247) TX --- --- --- --- --- --- NET
-
- COMM O WO $F7(247) --- --- --- --- --- --- --- NET/RX
-
-RS232:
- DTR -> Data Terminal Ready (DTE -> DCE)
- CTS -> Clear To Send (DCE -> DTE)
- TX -> Transmitted Data (DTE -> DCE)
- RX -> Received Data (DCE -> DTE)
-
- The IF1 serial behaves not as a DTE (Data Terminal Equipment, e.g.
- a computer) but as a DCE (Data Communications Equipment, e.g. a modem)
-
- If we were to consider the ZX Spectrum a DTE, we would rename the lines:
- DTR := DSR (Data Set Ready)
- CTS := RTS (Request To Send)
- TX := RX
- RX := TX
-
- On the communication channels:
- Bytes interpreted as is, except:
- 0x00 0x00 --> DTR ~~\__
- 0x00 0x01 --> DTR __/~~
- 0x00 0x02 --> CTS ~~\__
- 0x00 0x03 --> CTS __/~~
- 0x00 ? --> lost
- 0x00 * --> 0x00
- Additionally:
- if fuse read 0x00 0x00 => DTR = 0 ~~\__
- if fuse read 0x00 0x01 => DTR = 1 __/~~
- if CTS = ~~\__ fuse send 0x00 0x02
- if CTS = __/~~ fuse send 0x00 0x03
- if fuse lost send 0x00 + 0x3f (?)
- every other 0x00 + 0x## are discarded
-*/
-
-/* Two 8Kb memory chunks accessible by the Z80 when /ROMCS is low */
-static memory_page if1_memory_map_romcs[2];
-
-/* IF1 paged out ROM activated? */
-int if1_active = 0;
-int if1_available = 0;
-static int if1_mdr_status = 0;
-
-int rnd_factor = ( ( RAND_MAX >> 2 ) << 2 ) / 19 + 1;
-
-static microdrive_t microdrive[8]; /* We have 8 microdrive */
-static if1_ula_t if1_ula;
-
-static void microdrives_reset( void );
-static void microdrives_restart( void );
-static void increment_head( int m );
-
-#define MDR_IN(m) microdrive[m - 1].inserted
-#define MDR_WP(m) libspectrum_microdrive_write_protect( microdrive[m - 1].cartridge )
-
-enum if1_menu_item {
-
- UMENU_ALL = 0,
- UMENU_MDRV1,
- UMENU_MDRV2,
- UMENU_MDRV3,
- UMENU_MDRV4,
- UMENU_MDRV5,
- UMENU_MDRV6,
- UMENU_MDRV7,
- UMENU_MDRV8,
- UMENU_RS232,
-};
-
-enum if1_port {
- PORT_MDR,
- PORT_CTR,
- PORT_NET,
- PORT_UNKNOWN,
-};
-
-static void if1_reset( int hard_reset );
-static void if1_enabled_snapshot( libspectrum_snap *snap );
-static void if1_from_snapshot( libspectrum_snap *snap );
-static void if1_to_snapshot( libspectrum_snap *snap );
-
-static module_info_t if1_module_info = {
-
- if1_reset,
- if1_memory_map,
- if1_enabled_snapshot,
- if1_from_snapshot,
- if1_to_snapshot,
-
-};
-
-const periph_t if1_peripherals[] = {
- { 0x0018, 0x0010, if1_port_in, if1_port_out },
- { 0x0018, 0x0008, if1_port_in, if1_port_out },
- { 0x0018, 0x0000, if1_port_in, if1_port_out },
-};
-
-const size_t if1_peripherals_count =
- sizeof( if1_peripherals ) / sizeof( periph_t );
-
-/* Debugger events */
-static const char *event_type_string = "if1";
-static int page_event, unpage_event;
-
-static void
-update_menu( enum if1_menu_item what )
-{
- if( what == UMENU_ALL || what == UMENU_MDRV1 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M1_EJECT, MDR_IN( 1 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M1_WP_SET,
- !MDR_IN( 1 ) ? 0 : !MDR_WP( 1 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_MDRV2 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M2_EJECT, MDR_IN( 2 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M2_WP_SET,
- !MDR_IN( 2 ) ? 0 : !MDR_WP( 2 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_MDRV3 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M3_EJECT, MDR_IN( 3 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M3_WP_SET,
- !MDR_IN( 3 ) ? 0 : !MDR_WP( 3 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_MDRV4 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M4_EJECT, MDR_IN( 4 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M4_WP_SET,
- !MDR_IN( 4 ) ? 0 : !MDR_WP( 4 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_MDRV5 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M5_EJECT, MDR_IN( 5 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M5_WP_SET,
- !MDR_IN( 5 ) ? 0 : !MDR_WP( 5 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_MDRV6 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M6_EJECT, MDR_IN( 6 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M6_WP_SET,
- !MDR_IN( 6 ) ? 0 : !MDR_WP( 6 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_MDRV7 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M7_EJECT, MDR_IN( 7 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M7_WP_SET,
- !MDR_IN( 7 ) ? 0 : !MDR_WP( 7 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_MDRV8 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M8_EJECT, MDR_IN( 8 ) );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_M8_WP_SET,
- !MDR_IN( 8 ) ? 0 : !MDR_WP( 8 ) );
- }
-
- if( what == UMENU_ALL || what == UMENU_RS232 ) {
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_RS232_UNPLUG_R,
- ( if1_ula.fd_r > -1 ) ? 1 : 0 );
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_RS232_UNPLUG_T,
- ( if1_ula.fd_t > -1 ) ? 1 : 0 );
-#ifdef BUILD_WITH_SNET
- ui_menu_activate( UI_MENU_ITEM_MEDIA_IF1_SNET_UNPLUG,
- ( if1_ula.fd_net > -1 ) ? 1 : 0 );
-#endif
- }
-}
-
-int
-if1_init( void )
-{
- int m, i;
-
- if1_ula.fd_r = -1;
- if1_ula.fd_t = -1;
- if1_ula.dtr = 0; /* No data terminal yet */
- if1_ula.cts = 2; /* force to emit first cts status */
- if1_ula.comms_clk = 0;
- if1_ula.comms_data = 0; /* really? */
- if1_ula.fd_net = -1;
- if1_ula.s_net_mode = 1;
- if1_ula.net = 0;
- if1_ula.esc_in = 0; /* empty */
-
- for( m = 0; m < 8; m++ ) {
- microdrive[m].cartridge = libspectrum_microdrive_alloc();
- microdrive[m].inserted = 0;
- microdrive[m].modified = 0;
- }
-
- if( settings_current.rs232_rx ) {
- if1_plug( settings_current.rs232_rx, 1 );
- free( settings_current.rs232_rx );
- settings_current.rs232_rx = NULL;
- }
-
- if( settings_current.rs232_tx ) {
- if1_plug( settings_current.rs232_tx, 2 );
- free( settings_current.rs232_tx );
- settings_current.rs232_tx = NULL;
- }
-
- if( settings_current.snet ) {
- if1_plug( settings_current.snet, 3 );
- free( settings_current.snet );
- settings_current.snet = NULL;
- }
-
- module_register( &if1_module_info );
- for( i = 0; i < 2; i++ ) if1_memory_map_romcs[i].bank = MEMORY_BANK_ROMCS;
-
- if( periph_register_paging_events( event_type_string, &page_event,
- &unpage_event ) )
- return 1;
-
- return 0;
-}
-
-libspectrum_error
-if1_end( void )
-{
- int m;
-
- for( m = 0; m < 8; m++ ) {
- libspectrum_error error =
- libspectrum_microdrive_free( microdrive[m].cartridge );
- if( error ) return error;
- }
-
- return LIBSPECTRUM_ERROR_NONE;
-}
-
-void
-if1_update_menu( void )
-{
- update_menu( UMENU_ALL );
-}
-
-static void
-if1_reset( int hard_reset GCC_UNUSED )
-{
- if1_active = 0;
- if1_available = 0;
-
- if( !periph_interface1_active ) return;
-
- machine_load_rom_bank( if1_memory_map_romcs, 0, 0,
- settings_current.rom_interface_i,
- settings_default.rom_interface_i,
- MEMORY_PAGE_SIZE );
-
- if1_memory_map_romcs[0].source = MEMORY_SOURCE_PERIPHERAL;
-
- machine_current->ram.romcs = 0;
-
- if1_ula.cts = 2; /* force to emit first out if raw */
- if1_ula.comms_clk = 0;
- if1_ula.comms_data = 0;
- if1_ula.net = 0;
- if1_ula.esc_in = 0;
-
- microdrives_reset();
-
- update_menu( UMENU_ALL );
- ui_statusbar_update( UI_STATUSBAR_ITEM_MICRODRIVE,
- UI_STATUSBAR_STATE_INACTIVE );
-
- if1_mdr_status = 0;
-
- if1_available = 1;
-}
-
-void
-if1_page( void )
-{
- if1_active = 1;
- machine_current->ram.romcs = 1;
- machine_current->memory_map();
-
- debugger_event( page_event );
-}
-
-void
-if1_unpage( void )
-{
- if1_active = 0;
- machine_current->ram.romcs = 0;
- machine_current->memory_map();
-
- debugger_event( unpage_event );
-}
-
-void
-if1_memory_map( void )
-{
- if( !if1_active ) return;
-
- memory_map_read[0] = memory_map_write[0] = if1_memory_map_romcs[0];
-}
-
-static void
-if1_enabled_snapshot( libspectrum_snap *snap )
-{
- if( libspectrum_snap_interface1_active( snap ) )
- settings_current.interface1 = 1;
-}
-
-static void
-if1_from_snapshot( libspectrum_snap *snap )
-{
- if( !libspectrum_snap_interface1_active( snap ) ) return;
-
- if( libspectrum_snap_interface1_custom_rom( snap ) &&
- libspectrum_snap_interface1_rom( snap, 0 ) &&
- machine_load_rom_bank_from_buffer(
- if1_memory_map_romcs, 0, 0,
- libspectrum_snap_interface1_rom( snap, 0 ),
- libspectrum_snap_interface1_rom_length( snap, 0 ),
- 1 ) )
- return;
-
- if( libspectrum_snap_interface1_paged( snap ) ) {
- if1_page();
- } else {
- if1_unpage();
- }
-}
-
-static void
-if1_to_snapshot( libspectrum_snap *snap )
-{
- libspectrum_byte *buffer;
-
- if( !periph_interface1_active ) return;
-
- libspectrum_snap_set_interface1_active( snap, 1 );
- libspectrum_snap_set_interface1_paged ( snap, if1_active );
- libspectrum_snap_set_interface1_drive_count( snap, 8 );
-
- if( if1_memory_map_romcs[0].source == MEMORY_SOURCE_CUSTOMROM ) {
- size_t rom_length = MEMORY_PAGE_SIZE;
-
- if( if1_memory_map_romcs[1].source == MEMORY_SOURCE_CUSTOMROM ) {
- rom_length <<= 1;
- }
-
- libspectrum_snap_set_interface1_custom_rom( snap, 1 );
- libspectrum_snap_set_interface1_rom_length( snap, 0, rom_length );
-
- buffer = malloc( rom_length );
- if( !buffer ) {
- ui_error( UI_ERROR_ERROR, "Out of memory at %s:%d", __FILE__, __LINE__ );
- return;
- }
-
- memcpy( buffer, if1_memory_map_romcs[0].page, MEMORY_PAGE_SIZE );
-
- if( rom_length == MEMORY_PAGE_SIZE*2 ) {
- memcpy( buffer + MEMORY_PAGE_SIZE, if1_memory_map_romcs[1].page,
- MEMORY_PAGE_SIZE );
- }
-
- libspectrum_snap_set_interface1_rom( snap, 0, buffer );
- }
-}
-
-static void
-microdrives_reset( void )
-{
- int m;
-
- for( m = 0; m < 8; m++ ) {
- microdrive[m].head_pos = 0;
- microdrive[m].motor_on = 0; /* motor off */
- microdrive[m].gap = 15;
- microdrive[m].sync = 15;
- microdrive[m].transfered = 0;
- }
- ui_statusbar_update( UI_STATUSBAR_ITEM_MICRODRIVE,
- UI_STATUSBAR_STATE_INACTIVE );
- if1_mdr_status = 0;
-/*
- if1_ula.comms_data = 0;
- if1_ula.count_in = 0;
- if1_ula.count_out = 0;
- if1_ula.cts = 0;
- if1_ula.dtr = 0;
- if1_ula.wait = 0;
- if1_ula.busy = 0;
- if1_ula.net = 0;
- if1_ula.net_state = 0;
-*/
-}
-
-static enum if1_port
-decode_port( libspectrum_word port )
-{
- switch( port & 0x0018 ) {
- case 0x0000: return PORT_MDR;
- case 0x0008: return PORT_CTR;
- case 0x0010: return PORT_NET;
- default: return PORT_UNKNOWN;
- }
-}
-
-static libspectrum_byte
-port_mdr_in( void )
-{
- libspectrum_byte ret = 0xff;
- int m;
-
- for( m = 0; m < 8; m++ ) {
-
- microdrive_t *mdr = µdrive[ m ];
-
- if( mdr->motor_on && mdr->inserted ) {
-
- if( mdr->transfered < mdr->max_bytes ) {
- mdr->last = libspectrum_microdrive_data( mdr->cartridge,
- mdr->head_pos );
- increment_head( m );
- }
-
- mdr->transfered++;
- ret &= mdr->last; /* I assume negative logic, but how know? */
- }
-
- }
-
- return ret;
-}
-
-static libspectrum_byte
-port_ctr_in( void )
-{
- libspectrum_byte ret = 0xff;
- int m, block;
-
- for( m = 0; m < 8; m++ ) {
-
- microdrive_t *mdr = µdrive[ m ];
-
- if( mdr->motor_on && mdr->inserted ) {
- block = mdr->head_pos / 543 + ( mdr->max_bytes == 15 ? 0 : 256 );
- if( mdr->pream[block] == SYNC_OK ) { /* if formatted */
- if( mdr->gap ) {
- /* ret &= 0xff; GAP and SYNC high ? */
- mdr->gap--;
- } else {
- ret &= 0xf9; /* GAP and SYNC low */
- if( mdr->sync ) {
- mdr->sync--;
- } else {
- mdr->gap = 15;
- mdr->sync = 15;
- }
- }
- }
- /* if write protected */
- if( libspectrum_microdrive_write_protect( mdr->cartridge) )
- ret &= 0xfe; /* active bit */
- }
- }
- /* Here we have to poll, the if1_ula DTR 'line' */
- if( if1_ula.rs232_buffer > 0xff ) { /* buffer empty */
- unsigned char byte;
- int yes = 1;
-
- while( yes && read( if1_ula.fd_r, &byte, 1 ) == 1 ) {
- if( if1_ula.esc_in == 1 ) {
- if1_ula.esc_in = 0;
- if( byte == '*' ) {
- if1_ula.rs232_buffer = 0x00;
- yes = 0;
- } else if( byte == 0x00 ) {
- if( settings_current.rs232_handshake )
- if1_ula.dtr = 0;
- } else if( byte == 0x01 ) {
- if( settings_current.rs232_handshake )
- if1_ula.dtr = 1;
- }
- } else if( byte == 0x00 ) {
- if1_ula.esc_in = 1;
- } else {
- if1_ula.rs232_buffer = byte;
- yes = 0;
- break;
- }
- }
- }
-
- if( if1_ula.dtr == 0 )
- ret &= 0xf7; /* %11110111 */
-
- /* Here we have to poll, the 'SinclairNet' busy flag but never used by
- software in Interface 1 */
- if( if1_ula.busy == 0 )
- ret &= 0xef; /* %11101111 */
- /* fprintf( stderr, "Read CTR ( %%%d%d%d%d%d%d%d%d ).\n",
- !!(ret & 128), !!(ret & 64), !!(ret & 32), !!(ret & 16),
- !!(ret & 8), !!(ret & 4), !!(ret & 2), !!(ret & 1)); */
- microdrives_restart();
-
- return ret;
-}
-
-/*
- return 1 if read a byte
- 0 if nothing interesting...
-*/
-
-static int
-read_rs232()
-{
- if( if1_ula.rs232_buffer <= 0xff ) { /* we read from the buffer */
- if1_ula.data_in = if1_ula.rs232_buffer;
- if1_ula.rs232_buffer = 0x0100;
- return 1;
- }
- while( read( if1_ula.fd_r, &if1_ula.data_in, 1 ) == 1 ) {
- if( if1_ula.esc_in == 1 ) {
- if1_ula.esc_in = 0;
- if( if1_ula.data_in == '*' ) {
- if1_ula.data_in = 0x00;
- return 1;
- } else if( if1_ula.data_in == 0x00 ) {
- if( settings_current.rs232_handshake )
- if1_ula.dtr = 0;
- } else if( if1_ula.data_in == 0x01 ) {
- if( settings_current.rs232_handshake )
- if1_ula.dtr = 1;
- }
- } else if( if1_ula.data_in == 0x00 ) {
- if1_ula.esc_in = 1;
- } else {
- return 1;
- }
- }
- return 0;
-}
-
-static libspectrum_byte
-port_net_in( void )
-{
- libspectrum_byte ret = 0xff;
-
- if( if1_ula.fd_r == -1 )
- goto no_rs232_in;
-
- /* Here is the RS232 input routine */
- if( if1_ula.cts ) { /* If CTS == 1 */
- if( if1_ula.count_in == 0 ) {
- if( if1_ula.fd_r >= 0 && read_rs232() == 1 ) {
- if1_ula.count_in++; /* Ok, if read a byte, we begin */
- }
- if1_ula.tx = 0; /* now send __ to if1
- later we raise :-) */
- } else if( if1_ula.count_in >= 1 && if1_ula.count_in < 5 ) {
- if1_ula.tx = 1; /* send ~~ (start bit :-) */
- if1_ula.count_in++;
- } else if( if1_ula.count_in >= 5 && if1_ula.count_in < 13 ) {
- if1_ula.tx = ( if1_ula.data_in & 0x01 ) ? 0 : 1;
- /* send .. (data bits :-) */
- if1_ula.data_in >>= 1; /* prepare next bit :-) */
- if1_ula.count_in++;
- } else
- if1_ula.count_in = 0;
- } else { /* if( if1_ula.cts ) */
- if1_ula.count_in = 0; /* reset serial in */
- if1_ula.tx = 0; /* send __ stop bits or s.e. :-) */
- }
-
-no_rs232_in:
- if( if1_ula.fd_net == -1 )
- goto no_snet_in;
-
- if( if1_ula.s_net_mode == 0 ) { /* if we do raw */
- /* Here is the input routine */
- read( if1_ula.fd_net, &if1_ula.net, 1 ); /* Ok, if no byte, we send last*/
- } else {/* if( if1_ula.s_net_mode == 1 ) if we do interpreted */
-/* Here is the input routine. There are several stage in input
- and output. So first for output. if1 first do SEND-SC
- (http://www.wearmouth.demon.co.uk/if1_2.htm#L101E) to send
- a Sync-Out signal and SEND-SC do first a NET-STATE
- (http://www.wearmouth.demon.co.uk/if1_2.htm#L0FBC) to see
- the line activity:
- 11xxxxxx times (192-255) have to get a zero (bit for network)
- plus 1 times more from SEND-SC. Next SEND-SC send a 0 which is
- a 1 on the net wire (negated output, straight input!!!)
-
- OK. In input first if1 call WT-SC-E to check Network activity
- (http://www.wearmouth.demon.co.uk/if1_2.htm#L0FD3). Now check
- 128 times the net wire (we do two round, because to differentiate
- net out routines...)
-*/
-
- if( if1_ula.net_state < 0x0100 ) { /* if1 may in NET-STATE */
- if1_ula.net_state++;
- if1_ula.net = 0;
-#ifdef IF1_DEBUG_NET
- fprintf( stderr, "NET-STAT(%03d)? We send 0!\n", if1_ula.net_state );
-#endif
- } else if( if1_ula.net_state == 0x0100 ) { /* probably waiting for input */
- if( read( if1_ula.fd_net, &if1_ula.net_data, 1 ) == 1 ) {
- if1_ula.net_state++;
- if1_ula.net = 1; /* Start with __/~~ */
- } /* Ok, if have a byte, we send it! */
- } else if( if1_ula.net_state == 0x0101 ) {
- if1_ula.net_state++;
- if1_ula.net = 1; /* one more ~~ */
- } else if( if1_ula.net_state > 0x0101 &&
- if1_ula.net_state < 0x010a ) { /* we send the data bits... */
- if1_ula.net_state++;
- if1_ula.net = if1_ula.net_data & 1;
- if1_ula.net_data >>= 1;
- } else if( if1_ula.net_state == 0x010a ) {
- if1_ula.net = 0;
- if1_ula.net_state = 0; /* OK, we starting a new byte... */
-#ifdef IF1_DEBUG_NET
- fprintf( stderr, "NET-STAT(%03d)? Get a byte!\n", if1_ula.net_state );
-#endif
- }
- }
-no_snet_in:
- if( !if1_ula.tx )
- ret &= 0x7f;
- if( !if1_ula.net )
- ret &= 0xfe;
- microdrives_restart();
-
- return ret;
-}
-
-libspectrum_byte
-if1_port_in( libspectrum_word port GCC_UNUSED, int *attached )
-{
- libspectrum_byte ret = 0xff;
-
- if( !if1_active ) return ret;
-
- *attached = 1;
-
- switch( decode_port( port ) )
- {
- case PORT_MDR: ret &= port_mdr_in(); break;
- case PORT_CTR: ret &= port_ctr_in(); break;
- case PORT_NET: ret &= port_net_in(); break;
- case PORT_UNKNOWN: break;
- }
-
- return ret;
-}
-
-static void
-port_mdr_out( libspectrum_byte val )
-{
- int m, block;
-
- /* allow access to the port only if motor 1 is ON and there's a file open */
- for( m = 0; m < 8; m++ ) {
-
- microdrive_t *mdr = µdrive[ m ];
-
- if( mdr->motor_on && mdr->inserted ) {
-#ifdef IF1_DEBUG_MDR
- fprintf(stderr, "#%05d %03d(%03d): 0x%02x\n",
- mdr->head_pos, mdr->transfered, mdr->max_bytes, val );
-#endif
- block = mdr->head_pos / 543 + ( mdr->max_bytes == 15 ? 0 : 256 );
- if( mdr->transfered == 0 && val == 0x00 ) { /* start pream */
- mdr->pream[block] = 1;
- } else if( mdr->transfered > 0 && mdr->transfered < 10 && val == 0x00 ) {
- mdr->pream[block]++;
- } else if( mdr->transfered > 9 && mdr->transfered < 12 && val == 0xff ) {
- mdr->pream[block]++;
- } else if( mdr->transfered == 12 && mdr->pream[block] == 12 ) {
- mdr->pream[block] = SYNC_OK;
- }
- if( mdr->transfered > 11 &&
- mdr->transfered < mdr->max_bytes + 12 ) {
-
- libspectrum_microdrive_set_data( mdr->cartridge, mdr->head_pos,
- val );
- increment_head( m );
- mdr->modified = 1;
- }
- mdr->transfered++;
- }
- }
-}
-
-static void
-port_ctr_out( libspectrum_byte val )
-{
- int m;
-
- if( !( val & 0x02 ) && ( if1_ula.comms_clk ) ) { /* ~~\__ */
-
- for( m = 7; m > 0; m-- ) {
- /* Rotate one drive */
- microdrive[m].motor_on = microdrive[m - 1].motor_on;
- }
- microdrive[0].motor_on = (val & 0x01) ? 0 : 1;
-
- if( microdrive[0].motor_on || microdrive[1].motor_on ||
- microdrive[2].motor_on || microdrive[3].motor_on ||
- microdrive[4].motor_on || microdrive[5].motor_on ||
- microdrive[6].motor_on || microdrive[7].motor_on ) {
- if( !if1_mdr_status ) {
- ui_statusbar_update( UI_STATUSBAR_ITEM_MICRODRIVE,
- UI_STATUSBAR_STATE_ACTIVE );
- if1_mdr_status = 1;
- }
- } else if ( if1_mdr_status ) {
- ui_statusbar_update( UI_STATUSBAR_ITEM_MICRODRIVE,
- UI_STATUSBAR_STATE_INACTIVE );
- if1_mdr_status = 0;
- }
- }
- if( val & 0x01 ) { /* comms_data == 1 */
- /* Interface 1 service manual p.:1.4 par.: 1.5.1
- The same pin on IC1 (if1 ULA), pin 33, is used for the network
- transmit data and for the RS232 transmit data. In order to select
- the required function IC1 uses its COMMS_OUT (pin 30) signal,
- borrowed from the microdrive control when the microdrive is not
- being used (I do not know what it is exactly meaning. It is a
- hardware not being used, or a software should not use..?) This signal
- is routed from pin 30 to the emitter of transistor Q3 (RX DATA) and
- via resistor R4, to the base of transistor Q1 (NET). When COMMS_OUT
- is high Q3 is enabled this selecting RS232, and when it is low
- Q1 is enabled selecting the network.
-
- OK, the schematics offer a different interpretation, because if
- COMMS_OUT pin level high (>+3V) then Q3 is off (the basis cannot
- be more higher potential then emitter (NPN transistor), so whatever
- is on the IC1 RX DATA (pin 33) the basis of Q4 is always on +12V,
- so the collector of Q4 (PNP transistor) always on -12V.
- If COMMS_OUT pin level goes low (~0V), then Q3 basis (connected
- to IC1 RX DATA pin) can be higher level (>+3V) than emitter, so
- the basis potential of Q4 depend on IC1 RX DATA.
-
- OK, Summa summarum I assume that, the COMMS OUT pin is a
- negated output of the if1 ULA CTR register's COMMS DATA bit.
- */
- /* C_DATA = 1 */
- if( if1_ula.comms_data == 0 ) {
- if1_ula.count_out = 0;
- if1_ula.data_out = 0;
- if1_ula.count_in = 0;
- if1_ula.data_in = 0;
- }
- }
- if1_ula.wait = ( val & 0x20 ) ? 1 : 0;
- if1_ula.comms_data = ( val & 0x01 ) ? 1 : 0;
- if1_ula.comms_clk = ( val & 0x02 ) ? 1 : 0;
- val = ( val & 0x10 ) ? 1 : 0;
- if( settings_current.rs232_handshake &&
- if1_ula.fd_t != -1 && if1_ula.cts != val ) {
- char data = val ? 0x03 : 0x02;
- do ; while( write( if1_ula.fd_t, "", 1 ) != 1 );
- do ; while( write( if1_ula.fd_t, &data, 1 ) != 1 );
- }
- if1_ula.cts = val;
-
-#ifdef IF1_DEBUG_NET
- fprintf( stderr, "Set CTS to %d, set WAIT to %d and COMMS_DATA to %d\n",
- if1_ula.cts, if1_ula.wait, if1_ula.comms_data );
-#endif
-
- microdrives_restart();
-}
-
-static void
-port_net_out( libspectrum_byte val )
-{
- if( if1_ula.fd_t == -1 )
- return; /* nothing to write */
-
- if( if1_ula.comms_data == 1 ) { /* OK, RS232 */
- val &= 0x01;
- if( if1_ula.count_out == 0 && !val ) { /* waiting for ~~\__ */
- if1_ula.count_out++;
- } else if( if1_ula.count_out == 1 ) {
- if( if1_ula.cts != 0 || !val )
- if1_ula.count_out = -1;
- else
- if1_ula.count_out++; /* else get the start bit __/~~ */
- } else if( if1_ula.count_out >= 2 && if1_ula.count_out <= 9 ) {
- if1_ula.data_out >>= 1;
- if1_ula.data_out |= val & 0x01 ? 0 : 128;
- if1_ula.count_out++; /* waiting for next data bit */
- } else if( if1_ula.count_out >= 10 && if1_ula.count_out <= 11 ) {
- if( val )
- if1_ula.count_out = -1;
- else
- if1_ula.count_out++;
- } else if( if1_ula.count_out == 12 ) {
- if( !val )
- if1_ula.count_out = -1;
- else
- if1_ula.count_out++;
- } else if( if1_ula.count_out == 13 ) {
- if( val )
- if1_ula.count_out = -1;
- }
-
- if( if1_ula.count_out == -1 ) {
- if1_ula.count_out = 13;
- if1_ula.data_out = '?';
- do ; while( write( if1_ula.fd_t, "", 1 ) != 1 );
- }
- if( if1_ula.count_out == 13 ) {
- /* Here is the output routine */
- if( if1_ula.data_out == 0x00 ) {
- if1_ula.data_out = '*';
- do ; while( write( if1_ula.fd_t, "", 1 ) != 1 );
- }
- do ; while( write( if1_ula.fd_t, &if1_ula.data_out, 1 ) != 1 );
- if1_ula.count_out = 0;
- }
- if1_ula.rx = val & 0x01; /* set rx */
- } else { /* if( if1_ula.comms_data == 1 ) SinclairNET :-)*/
- if( if1_ula.s_net_mode == 0 ) { /* if we out bit by bit, do it */
- /* Here is the output routine */
-
-/* OK, examining the schematics of if1 and the disassembly of if1 ROM, I
- see that the Q1 and Q2 transistors negate the RX DATA signal, and the
- floating state of the net wire is the ~0V level, the forced is the ~3V.
- The if1 software send complemented data and read straight data.
-*/
- if1_ula.net = ( val & 0x01 ) ? 0 : 1; /* set rx */
- lseek( if1_ula.fd_net, 0, SEEK_SET ); /* we save only the state of the wire*/
- do ; while( write( if1_ula.fd_net, &if1_ula.net, 1 ) == -1 );
-#ifdef HAVE_FSYNC
- fsync( if1_ula.fd_net );
-#endif /* #ifdef HAVE_FSYNC */
-#ifdef IF1_DEBUG_NET
- fprintf( stderr, "Send SinclairNET: %d\n", if1_ula.net );
-#endif
- } else { /* if( if1_ula.s_net_mode == 0 ) if we out byte by byte, do it */
- if( if1_ula.net_state >= 0x0200 && if1_ula.net_state < 0x0208 ) {
- if1_ula.net_state++;
- if1_ula.net_data <<= 1;
- if1_ula.net_data |= ( val & 0x01 ) ? 0 : 1;
- } else if( if1_ula.net_state == 0x0208 ) {
- if1_ula.net_data &= 0xff;
- if1_ula.net_state++; /* OK, now we get data bytes... */
-
-/* lseek( if1_ula.fd_net, 0, SEEK_SET ); start a packet */
- /* first we send the station number */
- do ; while( write( if1_ula.fd_net, &if1_ula.net_data, 1 ) == -1 );
-#ifdef HAVE_FSYNC
- fsync( if1_ula.fd_net );
-#endif /* #ifdef HAVE_FSYNC */
-#ifdef IF1_DEBUG_NET
- fprintf( stderr, "SC-OUT send network number: %d\n",
- if1_ula.net_data ^ 0xff );
-#endif
- } else if( if1_ula.net_state > 192 && if1_ula.net_state < 0x0200 &&
- ( ( val & 0x01 ) == 0 ) ) {
- /* NET-STATE ask as many times.... and now send a 0 */
-/* if1_ula.net = 1; */
- if1_ula.net_state = 0x0200; /* Send the station number */
- }
- if1_ula.net = ( val & 0x01 ) ? 0 : 1; /* set net wire? */
- }
- }
- microdrives_restart();
-}
-
-void
-if1_port_out( libspectrum_word port GCC_UNUSED, libspectrum_byte val )
-{
- if( !if1_active ) return;
-
-#ifdef IF1_DEBUG_NET_1
- fprintf( stderr, "In if1_port_out( %%%d%d%d%d%d%d%d%d => 0x%04x ).\n",
- !!(val & 128), !!(val & 64), !!(val & 32), !!(val & 16),
- !!(val & 8), !!(val & 4), !!(val & 2), !!(val & 1), port);
-#endif
-
- switch( decode_port( port ) ) {
- case PORT_MDR: port_mdr_out( val ); break;
- case PORT_CTR: port_ctr_out( val ); break;
- case PORT_NET: port_net_out( val ); break;
- case PORT_UNKNOWN: break;
- }
-}
-
-static void
-increment_head( int m )
-{
- microdrive[m].head_pos++;
- if( microdrive[m].head_pos >=
- libspectrum_microdrive_cartridge_len( microdrive[m].cartridge ) *
- LIBSPECTRUM_MICRODRIVE_BLOCK_LEN )
- microdrive[m].head_pos = 0;
-}
-
-static void
-microdrives_restart( void )
-{
- int m;
-
- for( m = 0; m < 8; m++ ) {
- while( ( microdrive[m].head_pos % LIBSPECTRUM_MICRODRIVE_BLOCK_LEN ) != 0 &&
- ( microdrive[m].head_pos % LIBSPECTRUM_MICRODRIVE_BLOCK_LEN ) != LIBSPECTRUM_MICRODRIVE_HEAD_LEN )
- increment_head( m ); /* put head in the start of a block */
-
- microdrive[m].transfered = 0; /* reset current number of bytes written */
-
- if( ( microdrive[m].head_pos % LIBSPECTRUM_MICRODRIVE_BLOCK_LEN ) == 0 ) {
- microdrive[m].max_bytes = LIBSPECTRUM_MICRODRIVE_HEAD_LEN; /* up to 15 bytes for header blocks */
- } else {
- microdrive[m].max_bytes = LIBSPECTRUM_MICRODRIVE_HEAD_LEN + LIBSPECTRUM_MICRODRIVE_DATA_LEN + 1; /* up to 528 bytes for data blocks */
- }
- }
-}
-
-void
-if1_mdr_writeprotect( int drive, int wrprot )
-{
- libspectrum_microdrive_set_write_protect( microdrive[drive].cartridge,
- wrprot ? 1 : 0 );
- microdrive[drive].modified = 1;
-
- update_menu( UMENU_MDRV1 + drive );
-}
-
-static void
-if1_mdr_new( microdrive_t *mdr )
-{
- libspectrum_byte len;
- long int i;
-
- mdr->filename = NULL;
- if( settings_current.mdr_random_len ) { /* Random length */
- len = 171 + ( ( rand() >> 2 ) + ( rand() >> 2 ) +
- ( rand() >> 2 ) + ( rand() >> 2 ) )
- / rnd_factor;
- } else
- len = settings_current.mdr_len = settings_current.mdr_len < 10 ? 10 :
- settings_current.mdr_len > LIBSPECTRUM_MICRODRIVE_BLOCK_MAX ? LIBSPECTRUM_MICRODRIVE_BLOCK_MAX : settings_current.mdr_len;
-
- /* Erase the entire cartridge */
- libspectrum_microdrive_set_cartridge_len( mdr->cartridge, len );
-
- for( i = 0; i < len * LIBSPECTRUM_MICRODRIVE_BLOCK_LEN; i++ )
- libspectrum_microdrive_set_data( mdr->cartridge, i, 0xff );
-
- for( i = libspectrum_microdrive_cartridge_len( mdr->cartridge );
- i > 0; i-- )
- mdr->pream[255 + i] = mdr->pream[i-1] = SYNC_NO;
-
- /* but don't write-protect */
- libspectrum_microdrive_set_write_protect( mdr->cartridge, 0 );
-
- mdr->inserted = 1;
- mdr->modified = 1;
-
-}
-
-int
-if1_mdr_insert( int which, const char *filename )
-{
- microdrive_t *mdr;
- int m, i;
-
- if( which == -1 ) { /* find an empty one */
- for( m = 0; m < 8; m++ ) {
- if( !microdrive[m].inserted ) {
- which = m;
- break;
- }
- }
- }
-
- if( which == -1 ) {
- ui_error( UI_ERROR_ERROR,
- "Cannot insert cartridge '%s', all Microdrives in use",
- filename );
- return 1;
- }
-
- if( which >= 8 ) {
- ui_error( UI_ERROR_ERROR, "if1_mdr_insert: unknown drive %d", which );
- return 1;
- }
-
- mdr = µdrive[ which ];
-
- /* Eject any cartridge already in the drive */
- if( mdr->inserted ) {
- /* Abort the insert if we want to keep the current cartridge */
- if( if1_mdr_eject( which, 0 ) ) return 0;
- }
-
- if( filename == NULL ) { /* insert new unformatted cartridge */
- if1_mdr_new( mdr );
- update_menu( UMENU_MDRV1 + which );
- return 0;
- }
-
- if( utils_read_file( filename, &mdr->file ) ) {
- ui_error( UI_ERROR_ERROR, "Failed to open cartridge image" );
- return 1;
- }
-
- if( libspectrum_microdrive_mdr_read( mdr->cartridge, mdr->file.buffer,
- mdr->file.length ) ) {
- utils_close_file( &mdr->file );
- ui_error( UI_ERROR_ERROR, "Failed to open cartridge image" );
- return 1;
- }
-
- if( utils_close_file( &mdr->file ) ) return 1;
-
- mdr->inserted = 1;
- mdr->modified = 0;
- mdr->filename = strdup( filename );
- /* we assume formatted cartridges */
- for( i = libspectrum_microdrive_cartridge_len( mdr->cartridge );
- i > 0; i-- )
- mdr->pream[255 + i] = mdr->pream[i-1] = SYNC_OK;
-
- update_menu( UMENU_MDRV1 + which );
-
- return 0;
-}
-
-int
-if1_mdr_eject( int which, int saveas )
-{
- microdrive_t *mdr;
-
- if( which >= 8 )
- return 1;
-
- mdr = µdrive[ which ];
-
- if( !mdr->inserted )
- return 0;
-
- if( saveas ) { /* 1 -> save as.., 2 -> save */
-
- if( mdr->filename == NULL ) saveas = 1;
- if( ui_mdr_write( which, 2 - saveas ) ) return 1;
- mdr->modified = 0;
- return 0;
-
- } else {
-
- if( mdr->modified ) {
-
- ui_confirm_save_t confirm = ui_confirm_save(
- "Cartridge in Microdrive %i has been modified.\n"
- "Do you want to save it?",
- which + 1
- );
-
- switch( confirm ) {
-
- case UI_CONFIRM_SAVE_SAVE:
- if( if1_mdr_eject( which, 2 ) ) return 1; /* first save */
- break;
-
- case UI_CONFIRM_SAVE_DONTSAVE: break;
- case UI_CONFIRM_SAVE_CANCEL: return 1;
-
- }
- }
- }
-
- mdr->inserted = 0;
- if( mdr->filename != NULL ) {
- free( mdr->filename );
- mdr->filename = NULL;
- }
-
- update_menu( UMENU_MDRV1 + which );
- return 0;
-}
-
-int
-if1_mdr_write( int which, const char *filename )
-{
- microdrive_t *mdr = µdrive[which];
-
- libspectrum_microdrive_mdr_write( mdr->cartridge, &mdr->file.buffer,
- &mdr->file.length );
-
- if( filename == NULL ) filename = mdr->filename; /* Write over the original file */
-
- if( utils_write_file( filename, mdr->file.buffer, mdr->file.length ) )
- return 1;
-
- if( mdr->filename && strcmp( filename, mdr->filename ) ) {
- free( mdr->filename );
- mdr->filename = strdup( filename );
- }
- return 0;
-}
-
-#ifndef O_NONBLOCK
-#define O_NONBLOCK FNDELAY
-#endif
-
-void
-if1_plug( const char *filename, int what )
-{
-#ifdef WIN32
- ui_error( UI_ERROR_ERROR, "Not yet implemented on Win32" );
- return;
-#else
- int fd = -1;
-
- switch( what ) {
- case 1:
- if( if1_ula.fd_r >= 0 )
- close( if1_ula.fd_r );
- fd = if1_ula.fd_r = open( filename, O_RDWR | O_NONBLOCK );
- if( fcntl( fd, F_SETFL, O_RDONLY | O_NONBLOCK ) )
- ui_error( UI_ERROR_ERROR, "Cannot set O_RDONLY on '%s': %s",
- filename, strerror( errno ) );
- if1_ula.rs232_buffer = 0x100; /* buffer is empty */
- break;
- case 2:
- if( if1_ula.fd_t >= 0 )
- close( if1_ula.fd_t );
- fd = if1_ula.fd_t = open( filename, O_RDWR | O_NONBLOCK );
- if( fcntl( fd, F_SETFL, O_WRONLY | O_NONBLOCK ) )
- ui_error( UI_ERROR_ERROR, "Cannot set O_WRONLY on '%s': %s",
- filename, strerror( errno ) );
- break;
- case 3:
- if( if1_ula.fd_net >= 0 )
- close( if1_ula.fd_net );
- fd = if1_ula.fd_net = open( filename, O_RDWR | O_NONBLOCK );
- break;
- }
-
- /* rs232_handshake == 0 -> we assume DTR(DSR) always 1 if tx and rx plugged */
- if( !settings_current.rs232_handshake &&
- if1_ula.fd_t != -1 && if1_ula.fd_r != -1 )
- if1_ula.dtr = 1;
-
- if( fd < 0 ) {
- ui_error( UI_ERROR_ERROR, "Error opening '%s': %s",
- filename, strerror( errno ) );
- return;
- }
-
- if1_ula.s_net_mode = settings_current.raw_s_net ? 0 : 1;
- update_menu( UMENU_RS232 );
-#endif
-}
-
-void
-if1_unplug( int what )
-{
- switch( what ) {
- case 1:
- if( if1_ula.fd_r >= 0 )
- close( if1_ula.fd_r );
- if1_ula.fd_r = -1;
- break;
- case 2:
- if( if1_ula.fd_t >= 0 )
- close( if1_ula.fd_t );
- if1_ula.fd_t = -1;
- if1_ula.dtr = 0;
- break;
- case 3:
- if( if1_ula.fd_net >= 0 )
- close( if1_ula.fd_net );
- if1_ula.fd_net = -1;
- break;
- }
- /* rs232_handshake == 0 -> we assume DTR(DSR) always 1 if tx and rx plugged */
- if( !settings_current.rs232_handshake &&
- ( if1_ula.fd_t == -1 || if1_ula.fd_r == -1 ) )
- if1_ula.dtr = 0;
- update_menu( UMENU_RS232 );
-}
Deleted: vendor/fuse-emulator/current/fuse/if1.h
===================================================================
--- vendor/fuse-emulator/current/fuse/if1.h 2012-01-14 13:01:10 UTC (rev 683)
+++ vendor/fuse-emulator/current/fuse/if1.h 2012-02-15 12:32:32 UTC (rev 684)
@@ -1,59 +0,0 @@
-/* if1.h: Interface I handling routines
- Copyright (c) 2004-2005 Gergely Szasz, Philip Kendall
-
- $Id: if1.h 3327 2007-11-22 23:06:47Z zubzero $
-
- 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.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
- Author contact information:
-
- Gergely: sz...@hu...
-
-*/
-
-#ifndef FUSE_IF1_H
-#define FUSE_IF1_H
-
-#include <libspectrum.h>
-
-#include "periph.h"
-
-/* IF1 */
-extern int if1_active;
-extern int if1_available;
-
-extern const periph_t if1_peripherals[];
-extern const size_t if1_peripherals_count;
-
-int if1_init( void );
-libspectrum_error if1_end( void );
-
-void if1_page( void );
-void if1_unpage( void );
-void if1_memory_map( void );
-
-void if1_port_out( libspectrum_word port, libspectrum_byte val );
-libspectrum_byte if1_port_in( lib...
[truncated message content] |
