minivmac4ios/Mini vMac/mnvm_core/RTCEMDEV.c
2016-05-28 14:18:59 +02:00

472 lines
10 KiB
C
Executable File

/*
RTCEMDEV.c
Copyright (C) 2003 Philip Cummins, Paul C. Pratt
You can redistribute this file and/or modify it under the terms
of version 2 of the GNU General Public License as published by
the Free Software Foundation. You should have received a copy
of the license along with this file; see the file COPYING.
This file 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
license for more details.
*/
/*
Real Time Clock EMulated DEVice
Emulates the RTC found in the Mac Plus.
This code adapted from "RTC.c" in vMac by Philip Cummins.
*/
#ifndef AllFiles
#include "SYSDEPNS.h"
#include "MYOSGLUE.h"
#include "ENDIANAC.h"
#include "EMCONFIG.h"
#include "GLOBGLUE.h"
#endif
/* define _RTC_Debug */
#ifdef _RTC_Debug
#include <stdio.h>
#endif
#include "RTCEMDEV.h"
#define HaveXPRAM (CurEmMd >= kEmMd_Plus)
#if HaveXPRAM
#define PARAMRAMSize 256
#else
#define PARAMRAMSize 20
#endif
#if HaveXPRAM
#define Group1Base 0x10
#define Group2Base 0x08
#else
#define Group1Base 0x00
#define Group2Base 0x10
#endif
typedef struct
{
/* RTC VIA Flags */
ui3b WrProtect;
ui3b DataOut;
ui3b DataNextOut;
/* RTC Data */
ui3b ShiftData;
ui3b Counter;
ui3b Mode;
ui3b SavedCmd;
#if HaveXPRAM
ui3b Sector;
#endif
/* RTC Registers */
ui3b Seconds_1[4];
ui3b PARAMRAM[PARAMRAMSize];
} RTC_Ty;
LOCALVAR RTC_Ty RTC;
/* RTC Functions */
LOCALVAR ui5b LastRealDate;
#ifndef RTCinitPRAM
#define RTCinitPRAM 1
#endif
#ifndef TrackSpeed /* in 0..4 */
#define TrackSpeed 0
#endif
#ifndef AlarmOn /* in 0..1 */
#define AlarmOn 0
#endif
#ifndef DiskCacheSz /* in 1,2,3,4,6,8,12 */
/* actual cache size is DiskCacheSz * 32k */
#if (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
#define DiskCacheSz 1
#else
#define DiskCacheSz 4
#endif
#endif
#ifndef StartUpDisk /* in 0..1 */
#define StartUpDisk 0
#endif
#ifndef DiskCacheOn /* in 0..1 */
#define DiskCacheOn 0
#endif
#ifndef MouseScalingOn /* in 0..1 */
#define MouseScalingOn 0
#endif
#define prb_fontHi 0
#define prb_fontLo 2
#define prb_kbdPrintHi (AutoKeyRate + (AutoKeyThresh << 4))
#define prb_kbdPrintLo 0
#define prb_volClickHi (SpeakerVol + (TrackSpeed << 3) + (AlarmOn << 7))
#define prb_volClickLo (CaretBlinkTime + (DoubleClickTime << 4))
#define prb_miscHi DiskCacheSz
#define prb_miscLo \
((MenuBlink << 2) + (StartUpDisk << 4) \
+ (DiskCacheOn << 5) + (MouseScalingOn << 6))
#if dbglog_HAVE && 0
EXPORTPROC DumpRTC(void);
GLOBALPROC DumpRTC(void)
{
int Counter;
dbglog_writeln("RTC Parameter RAM");
for (Counter = 0; Counter < PARAMRAMSize; Counter++) {
dbglog_writeNum(Counter);
dbglog_writeCStr(", ");
dbglog_writeHex(RTC.PARAMRAM[Counter]);
dbglog_writeReturn();
}
}
#endif
GLOBALFUNC blnr RTC_Init(void)
{
int Counter;
ui5b secs;
RTC.Mode = RTC.ShiftData = RTC.Counter = 0;
RTC.DataOut = RTC.DataNextOut = 0;
RTC.WrProtect = falseblnr;
secs = CurMacDateInSeconds;
LastRealDate = secs;
RTC.Seconds_1[0] = secs & 0xFF;
RTC.Seconds_1[1] = (secs & 0xFF00) >> 8;
RTC.Seconds_1[2] = (secs & 0xFF0000) >> 16;
RTC.Seconds_1[3] = (secs & 0xFF000000) >> 24;
for (Counter = 0; Counter < PARAMRAMSize; Counter++) {
RTC.PARAMRAM[Counter] = 0;
}
#if RTCinitPRAM
RTC.PARAMRAM[0 + Group1Base] = 168; /* valid */
#if (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
RTC.PARAMRAM[2 + Group1Base] = 1;
/* node id hint for printer port (AppleTalk) */
#endif
RTC.PARAMRAM[3 + Group1Base] = 34;
/*
serial ports config bits: 4-7 A, 0-3 B
useFree 0 Use undefined
useATalk 1 AppleTalk
useAsync 2 Async
useExtClk 3 externally clocked
*/
RTC.PARAMRAM[4 + Group1Base] = 204; /* portA, high */
RTC.PARAMRAM[5 + Group1Base] = 10; /* portA, low */
RTC.PARAMRAM[6 + Group1Base] = 204; /* portB, high */
RTC.PARAMRAM[7 + Group1Base] = 10; /* portB, low */
RTC.PARAMRAM[13 + Group1Base] = prb_fontLo;
RTC.PARAMRAM[14 + Group1Base] = prb_kbdPrintHi;
#if (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
RTC.PARAMRAM[15 + Group1Base] = 1;
/*
printer, if any, connected to modem port
because printer port used for appletalk.
*/
#endif
#if prb_volClickHi != 0
RTC.PARAMRAM[0 + Group2Base] = prb_volClickHi;
#endif
RTC.PARAMRAM[1 + Group2Base] = prb_volClickLo;
RTC.PARAMRAM[2 + Group2Base] = prb_miscHi;
RTC.PARAMRAM[3 + Group2Base] = prb_miscLo
#if 0 != vMacScreenDepth
| 0x80
#endif
;
#if HaveXPRAM /* extended parameter ram initialized */
#if (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
RTC.PARAMRAM[12] = 0x4e;
RTC.PARAMRAM[13] = 0x75;
RTC.PARAMRAM[14] = 0x4d;
RTC.PARAMRAM[15] = 0x63;
#else
RTC.PARAMRAM[12] = 0x42;
RTC.PARAMRAM[13] = 0x75;
RTC.PARAMRAM[14] = 0x67;
RTC.PARAMRAM[15] = 0x73;
#endif
#endif
#if ((CurEmMd >= kEmMd_SE) && (CurEmMd <= kEmMd_Classic)) \
|| (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
RTC.PARAMRAM[0x01] = 0x80;
RTC.PARAMRAM[0x02] = 0x4F;
#endif
#if (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
RTC.PARAMRAM[0x03] = 0x48;
/* video board id */
RTC.PARAMRAM[0x46] = /* 0x42 */ 0x76; /* 'v' */
RTC.PARAMRAM[0x47] = /* 0x32 */ 0x4D; /* 'M' */
/* mode */
#if 0 == vMacScreenDepth
RTC.PARAMRAM[0x48] = 0x80;
#else
RTC.PARAMRAM[0x48] = 0x80;
/* 0x81 doesn't quite work right at boot */
#endif
#endif
#if (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
RTC.PARAMRAM[0x77] = 0x01;
#endif
#if ((CurEmMd >= kEmMd_SE) && (CurEmMd <= kEmMd_Classic)) \
|| (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
/* start up disk (encoded how?) */
RTC.PARAMRAM[0x78] = 0x00;
RTC.PARAMRAM[0x79] = 0x01;
RTC.PARAMRAM[0x7A] = 0xFF;
RTC.PARAMRAM[0x7B] = 0xFE;
#endif
#if (CurEmMd == kEmMd_II) || (CurEmMd == kEmMd_IIx)
RTC.PARAMRAM[0x80] = 0x09;
RTC.PARAMRAM[0x81] = 0x80;
#endif
#if HaveXPRAM /* extended parameter ram initialized */
do_put_mem_long(&RTC.PARAMRAM[0xE4], CurMacLatitude);
do_put_mem_long(&RTC.PARAMRAM[0xE8], CurMacLongitude);
do_put_mem_long(&RTC.PARAMRAM[0xEC], CurMacDelta);
#endif
#endif /* RTCinitPRAM */
return trueblnr;
}
#ifdef RTC_OneSecond_PulseNtfy
IMPORTPROC RTC_OneSecond_PulseNtfy(void);
#endif
GLOBALPROC RTC_Interrupt(void)
{
ui5b Seconds = 0;
ui5b NewRealDate = CurMacDateInSeconds;
ui5b DateDelta = NewRealDate - LastRealDate;
if (DateDelta != 0) {
Seconds = (RTC.Seconds_1[3] << 24) + (RTC.Seconds_1[2] << 16)
+ (RTC.Seconds_1[1] << 8) + RTC.Seconds_1[0];
Seconds += DateDelta;
RTC.Seconds_1[0] = Seconds & 0xFF;
RTC.Seconds_1[1] = (Seconds & 0xFF00) >> 8;
RTC.Seconds_1[2] = (Seconds & 0xFF0000) >> 16;
RTC.Seconds_1[3] = (Seconds & 0xFF000000) >> 24;
LastRealDate = NewRealDate;
#ifdef RTC_OneSecond_PulseNtfy
RTC_OneSecond_PulseNtfy();
#endif
}
}
LOCALFUNC ui3b RTC_Access_PRAM_Reg(ui3b Data, blnr WriteReg, ui3b t)
{
if (WriteReg) {
if (! RTC.WrProtect) {
RTC.PARAMRAM[t] = Data;
#ifdef _RTC_Debug
printf("Writing Address %2x, Data %2x\n", t, Data);
#endif
}
} else {
Data = RTC.PARAMRAM[t];
}
return Data;
}
LOCALFUNC ui3b RTC_Access_Reg(ui3b Data, blnr WriteReg, ui3b TheCmd)
{
ui3b t = (TheCmd & 0x7C) >> 2;
if (t < 8) {
if (WriteReg) {
if (! RTC.WrProtect) {
RTC.Seconds_1[t & 0x03] = Data;
}
} else {
Data = RTC.Seconds_1[t & 0x03];
}
} else if (t < 12) {
Data = RTC_Access_PRAM_Reg(Data, WriteReg,
(t & 0x03) + Group2Base);
} else if (t < 16) {
if (WriteReg) {
switch (t) {
case 12 :
break; /* Test Write, do nothing */
case 13 :
RTC.WrProtect = (Data & 0x80) != 0;
break; /* Write_Protect Register */
default :
ReportAbnormal("Write RTC Reg unknown");
break;
}
} else {
ReportAbnormal("Read RTC Reg unknown");
}
} else {
Data = RTC_Access_PRAM_Reg(Data, WriteReg,
(t & 0x0F) + Group1Base);
}
return Data;
}
LOCALPROC RTC_DoCmd(void)
{
switch (RTC.Mode) {
case 0: /* This Byte is a RTC Command */
#if HaveXPRAM
if ((RTC.ShiftData & 0x78) == 0x38) { /* Extended Command */
RTC.SavedCmd = RTC.ShiftData;
RTC.Mode = 2;
#ifdef _RTC_Debug
printf("Extended command %2x\n", RTC.ShiftData);
#endif
} else
#endif
{
if ((RTC.ShiftData & 0x80) != 0x00) { /* Read Command */
RTC.ShiftData =
RTC_Access_Reg(0, falseblnr, RTC.ShiftData);
RTC.DataNextOut = 1;
} else { /* Write Command */
RTC.SavedCmd = RTC.ShiftData;
RTC.Mode = 1;
}
}
break;
case 1: /* This Byte is data for RTC Write */
(void) RTC_Access_Reg(RTC.ShiftData,
trueblnr, RTC.SavedCmd);
RTC.Mode = 0;
break;
#if HaveXPRAM
case 2: /* This Byte is rest of Extended RTC command address */
#ifdef _RTC_Debug
printf("Mode 2 %2x\n", RTC.ShiftData);
#endif
RTC.Sector = ((RTC.SavedCmd & 0x07) << 5)
| ((RTC.ShiftData & 0x7C) >> 2);
if ((RTC.SavedCmd & 0x80) != 0x00) { /* Read Command */
RTC.ShiftData = RTC.PARAMRAM[RTC.Sector];
RTC.DataNextOut = 1;
RTC.Mode = 0;
#ifdef _RTC_Debug
printf("Reading X Address %2x, Data %2x\n",
RTC.Sector, RTC.ShiftData);
#endif
} else {
RTC.Mode = 3;
#ifdef _RTC_Debug
printf("Writing X Address %2x\n", RTC.Sector);
#endif
}
break;
case 3: /* This Byte is data for an Extended RTC Write */
(void) RTC_Access_PRAM_Reg(RTC.ShiftData,
trueblnr, RTC.Sector);
RTC.Mode = 0;
break;
#endif
}
}
GLOBALPROC RTCunEnabled_ChangeNtfy(void)
{
if (RTCunEnabled) {
/* abort anything going on */
if (RTC.Counter != 0) {
#ifdef _RTC_Debug
printf("aborting, %2x\n", RTC.Counter);
#endif
ReportAbnormal("RTC aborting");
}
RTC.Mode = 0;
RTC.DataOut = 0;
RTC.DataNextOut = 0;
RTC.ShiftData = 0;
RTC.Counter = 0;
}
}
GLOBALPROC RTCclock_ChangeNtfy(void)
{
if (! RTCunEnabled) {
if (RTCclock) {
RTC.DataOut = RTC.DataNextOut;
RTC.Counter = (RTC.Counter - 1) & 0x07;
if (RTC.DataOut) {
RTCdataLine = ((RTC.ShiftData >> RTC.Counter) & 0x01);
/*
should notify VIA if changed, so can check
data direction
*/
if (RTC.Counter == 0) {
RTC.DataNextOut = 0;
}
} else {
RTC.ShiftData = (RTC.ShiftData << 1) | RTCdataLine;
if (RTC.Counter == 0) {
RTC_DoCmd();
}
}
}
}
}
GLOBALPROC RTCdataLine_ChangeNtfy(void)
{
#if dbglog_HAVE
if (RTC.DataOut) {
if (! RTC.DataNextOut) {
/*
ignore. The ROM doesn't read from the RTC the
way described in the Hardware Reference.
It reads the data after setting the clock to
one instead of before, and then immediately
changes the VIA direction. So the RTC
has no way of knowing to stop driving the
data line, which certainly can't really be
correct.
*/
} else {
ReportAbnormal("write RTC Data unexpected direction");
}
}
#endif
}