static void wave_sound_update(void *param,stream_sample_t **inputs, stream_sample_t **_buffer,int length)
{
#ifdef MESS
const device_config *image;
cassette_image *cassette;
cassette_state state;
double time_index;
double duration;
int num = ((FPTR)param) & ~WAVE_TOKEN_MASK;
stream_sample_t *buffer = _buffer[0];
int i;
image = image_from_devtype_and_index(IO_CASSETTE, num);
state = cassette_get_state(image);
state &= CASSETTE_MASK_UISTATE | CASSETTE_MASK_MOTOR | CASSETTE_MASK_SPEAKER;
if (image_exists(image) && (ALWAYS_PLAY_SOUND || (state == (CASSETTE_PLAY | CASSETTE_MOTOR_ENABLED | CASSETTE_SPEAKER_ENABLED))))
{
cassette = cassette_get_image(image);
time_index = cassette_get_position(image);
duration = ((double) length) / Machine->sample_rate;
cassette_get_samples(cassette, 0, time_index, duration, length, 2, buffer, CASSETTE_WAVEFORM_16BIT);
for (i = length-1; i >= 0; i--)
buffer[i] = ((INT16 *) buffer)[i];
}
else
{
memset(buffer, 0, sizeof(*buffer) * length);
}
#endif
}
/* reads/writes a byte; write_value is -1 for read only */
static UINT8 apple525_process_byte(mess_image *img, int write_value)
{
UINT8 read_value;
struct apple525_disk *disk;
int spinfract_divisor;
int spinfract_dividend;
const struct IODevice *dev;
disk = (struct apple525_disk *) image_lookuptag(img, APPLE525TAG);
dev = image_device(img);
spinfract_dividend = (int) device_get_info_int(&dev->devclass, DEVINFO_INT_APPLE525_SPINFRACT_DIVIDEND);
spinfract_divisor = (int) device_get_info_int(&dev->devclass, DEVINFO_INT_APPLE525_SPINFRACT_DIVISOR);
/* no image initialized for that drive ? */
if (!image_exists(img))
return 0xFF;
/* check the spin count if reading*/
if (write_value < 0)
{
disk->spin_count++;
disk->spin_count %= spinfract_divisor;
if (disk->spin_count >= spinfract_dividend)
return 0x00;
}
/* load track if need be */
if (disk->track_loaded == 0)
apple525_load_current_track(img);
/* perform the read */
read_value = disk->track_data[disk->position];
/* perform the write, if applicable */
if (write_value >= 0)
{
disk->track_data[disk->position] = write_value;
disk->track_dirty = 1;
}
disk->position++;
disk->position %= (sizeof(disk->track_data) / sizeof(disk->track_data[0]));
/* when writing; save the current track after every full sector write */
if ((write_value >= 0) && ((disk->position % APPLE2_NIBBLE_SIZE) == 0))
apple525_save_current_track(img, FALSE);
return read_value;
}
static void vtech1_get_track(void)
{
/* drive selected or and image file ok? */
if (vtech1_drive >= 0 && image_exists(vtech1_file()))
{
int size, offs;
size = TRKSIZE_VZ;
offs = TRKSIZE_VZ * vtech1_track_x2[vtech1_drive]/2;
image_fseek(vtech1_file(), offs, SEEK_SET);
size = image_fread(vtech1_file(), vtech1_fdc_data, size);
if (LOG_VTECH1_FDC)
logerror("get track @$%05x $%04x bytes\n", offs, size);
}
vtech1_fdc_offs = 0;
vtech1_fdc_write = 0;
}
/*
display a small tape icon, with the current position in the tape image
*/
static void device_display_cassette(mess_image *image)
{
char buf[65];
float x, y;
int n;
double position, length;
cassette_state uistate;
/* abort if we should not be showing the image */
if (!image_exists(image))
return;
if (!cassette_is_motor_on(image))
return;
/* figure out where we are in the cassette */
position = cassette_get_position(image);
length = cassette_get_length(image);
uistate = cassette_get_state(image) & CASSETTE_MASK_UISTATE;
/* choose a location on the screen */
x = 0.0f;
y = image_index_in_device(image) * ui_get_line_height();
/* choose which frame of the animation we are at */
n = ((int) position / ANIMATION_FPS) % ANIMATION_FRAMES;
/* character pairs 2-3, 4-5, 6-7, 8-9 form little tape cassette images */
snprintf(buf, sizeof(buf) / sizeof(buf[0]), "%c%c %c %02d:%02d (%04d) [%02d:%02d (%04d)]",
n * 2 + 2, /* cassette icon left */
n * 2 + 3, /* cassette icon right */
(uistate == CASSETTE_PLAY) ? 16 : 14, /* play or record icon */
((int) position / 60),
((int) position % 60),
(int) position,
((int) length / 60),
((int) length % 60),
(int) length);
/* draw the cassette */
ui_draw_text_box(buf, JUSTIFY_LEFT, x, y, UI_FILLCOLOR);
}
static STREAM_UPDATE( wave_sound_update )
{
#ifdef MESS
const device_config *image = param;
cassette_image *cassette;
cassette_state state;
double time_index;
double duration;
stream_sample_t *left_buffer = outputs[0];
stream_sample_t *right_buffer = outputs[1];
int i;
state = cassette_get_state(image);
state &= CASSETTE_MASK_UISTATE | CASSETTE_MASK_MOTOR | CASSETTE_MASK_SPEAKER;
if (image_exists(image) && (ALWAYS_PLAY_SOUND || (state == (CASSETTE_PLAY | CASSETTE_MOTOR_ENABLED | CASSETTE_SPEAKER_ENABLED))))
{
cassette = cassette_get_image(image);
time_index = cassette_get_position(image);
duration = ((double) samples) / image->machine->sample_rate;
cassette_get_samples(cassette, 0, time_index, duration, samples, 2, left_buffer, CASSETTE_WAVEFORM_16BIT);
cassette_get_samples(cassette, 1, time_index, duration, samples, 2, right_buffer, CASSETTE_WAVEFORM_16BIT);
for (i = samples - 1; i >= 0; i--)
{
left_buffer[i] = ((INT16 *) left_buffer)[i];
right_buffer[i] = ((INT16 *) right_buffer)[i];
}
}
else
{
memset(left_buffer, 0, sizeof(*left_buffer) * samples);
memset(right_buffer, 0, sizeof(*right_buffer) * samples);
}
#endif
}
static MACHINE_RESET( adam )
{
if (image_exists(image_from_devtype_and_index(IO_CARTSLOT, 0)))
{
/* ColecoVision Mode Reset (Cartridge Mounted) */
adam_lower_memory = 3; /* OS7 + 24k RAM */
adam_upper_memory = 3; /* Cartridge ROM */
}
else
{
/* Adam Mode Reset */
adam_lower_memory = 0; /* SmartWriter ROM/EOS */
adam_upper_memory = 0; /* Internal RAM */
}
adam_net_data = 0;
set_memory_banks();
adam_pcb=0xFEC0;
clear_keyboard_buffer();
memset(&memory_region(REGION_CPU1)[0x0000], 0xFF, 0x20000); /* Initializing RAM */
timer_pulse(TIME_IN_MSEC(20), 0, adam_paddle_callback);
}
/* get dam state for specified sector */
static int basicdsk_get_ddam(mess_image *img, UINT8 physical_track, UINT8 physical_side, UINT8 sector_id)
{
unsigned long ddam_bit_offset, ddam_bit_index, ddam_byte_offset;
basicdsk *pDisk = get_basicdsk(img);
if (!pDisk->ddam_map || !image_exists(img))
return 0;
/* calculate bit-offset into map */
ddam_bit_offset = (((physical_track * pDisk->heads) + physical_side)*pDisk->sec_per_track) +
sector_id - pDisk->first_sector_id;
/* if offset exceeds the number of bits that are stored in the ddam map return 0 */
if (ddam_bit_offset>=(pDisk->ddam_map_size<<3))
return 0;
/* calculate byte offset */
ddam_byte_offset = ddam_bit_offset>>3;
/* calc bit index within byte */
ddam_bit_index = ddam_bit_offset & 0x07;
/* clear bit */
return ((pDisk->ddam_map[ddam_byte_offset] & (1<<ddam_bit_index))!=0);
}
void master6801_behaviour(int offset, int data)
{
/*
The Master MC6801 controls all AdamNet operations, keyboard, tapes, disks...
We are going to "simulate" the behaviour of the master 6801, because we does not have the 2kbytes ROM DUMP
If you have the source listing or the Rom dump, please send us.
*/
int DCB_Num, deviceNum, statusDCB;
int i, buffer, byteCount, sectorNmbr, sectorCount, currentSector;
UINT8 kbcode;
static UINT8 interleave[8] = {0,5,2,7,4,1,6,3};
mess_image *image;
if (offset == adam_pcb)
{
switch (data)
{
case 1: /* Request to synchronize the Z80 clock */
memory_region(REGION_CPU1)[offset] = 0x81;
//printf("Synchronizing the Z80 clock\n");
break;
case 2: /* Request to synchronize the Master 6801 clock */
memory_region(REGION_CPU1)[offset] = 0x82;
//printf("Synchronizing the Master 6801 clock\n");
break;
case 3: /* Request to relocate adam_pcb */
memory_region(REGION_CPU1)[offset] = 0x83; /* Must return 0x83 if success */
//memory_region(REGION_CPU1)[offset] = 0x9B; /* Time Out */
printf("Request to relocate adam_pcb from %04Xh to %04Xh... not implemented... but returns OK\n", adam_pcb, (memory_region(REGION_CPU1)[adam_pcb+1]&memory_region(REGION_CPU1)[adam_pcb+2]<<8));
break;
}
}
for(DCB_Num=1;DCB_Num<=memory_region(REGION_CPU1)[adam_pcb+3];DCB_Num++) /* Test status of each DCB in adam_pcb table */
{
statusDCB = (adam_pcb+4)+(DCB_Num-1)*21;
if (offset==statusDCB)
{
//printf("Accesing DCB %02Xh\n", DCB_Num);
deviceNum = (memory_region(REGION_CPU1)[statusDCB+0x10]&0x0F)+(memory_region(REGION_CPU1)[statusDCB+0x09]<<4);
buffer=(memory_region(REGION_CPU1)[statusDCB+0x01])+(memory_region(REGION_CPU1)[statusDCB+0x02]<<8);
byteCount=(memory_region(REGION_CPU1)[statusDCB+0x03])+(memory_region(REGION_CPU1)[statusDCB+0x04]<<8);
if (deviceNum>=4 && deviceNum<=7)
{
image = image_from_devtype_and_index(IO_FLOPPY, deviceNum - 4);
if (image_exists(image))
memory_region(REGION_CPU1)[statusDCB+20] = (memory_region(REGION_CPU1)[statusDCB+20]&0xF0); /* Inserted Media */
else
memory_region(REGION_CPU1)[statusDCB+20] = (memory_region(REGION_CPU1)[statusDCB+20]&0xF0)|0x03; /* No Media on Drive*/
}
switch (data)
{
case 0: /* Initialize Drive */
if (deviceNum>=4 && deviceNum<=7)
{
memory_region(REGION_CPU1)[statusDCB] = 0x80;
}
break;
case 1: /* Return current status */
if (deviceNum==1||deviceNum==2)
{
memory_region(REGION_CPU1)[statusDCB] = 0x80; /* Device Found (1=Keyboard, 2=Printer) */
memory_region(REGION_CPU1)[statusDCB+0x13] = 0x01; /* Character device */
}
else if (deviceNum>=4 && deviceNum<=7)
{
image = image_from_devtype_and_index(IO_FLOPPY, deviceNum - 4);
if (image_exists(image))
{
memory_region(REGION_CPU1)[statusDCB] = 0x80;
memory_region(REGION_CPU1)[statusDCB+17] = 1024&255;
memory_region(REGION_CPU1)[statusDCB+18] = 1024>>8;
}
else
{
memory_region(REGION_CPU1)[statusDCB] = 0x83; /* Device Found but No Disk in Drive*/
}
}
else
{
