-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathka10_pclk.c
136 lines (118 loc) · 4.53 KB
/
ka10_pclk.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
/* ka10_pclk.c: Petit Calendar Clock.
Copyright (c) 2018, Lars Brinkhoff
Copyright (c) 2020, Bruce Baumgart ( by editing Brinkhoff ka10_pd.c )
Permission is hereby granted, free of charge, to any person obtaining a
copy of this software and associated documentation files (the "Software"),
to deal in the Software without restriction, including without limitation
the rights to use, copy, modify, merge, publish, distribute, sublicense,
and/or sell copies of the Software, and to permit persons to whom the
Software is furnished to do so, subject to the following conditions:
The above copyright notice and this permission notice shall be included in
all copies or substantial portions of the Software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
RICHARD CORNWELL BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*/
#include "kx10_defs.h"
#ifndef NUM_DEVS_PCLK
#define NUM_DEVS_PCLK 0
#endif
#if (NUM_DEVS_PCLK > 0)
#define PCLK_DEVNUM 0730
#define PCLK_OFF (1 << DEV_V_UF)
#define PIA_CH u3
#define PIA_FLG 07
#define CLK_IRQ 010
t_stat pclk_devio(uint32 dev, uint64 *data);
const char *pclk_description (DEVICE *dptr);
t_stat pclk_srv(UNIT *uptr);
t_stat pclk_set_on(UNIT *uptr, int32 val, CONST char *cptr, void *desc);
t_stat pclk_set_off(UNIT *uptr, int32 val, CONST char *cptr, void *desc);
t_stat pclk_show_on(FILE *st, UNIT *uptr, int32 val, CONST void *desc);
UNIT pclk_unit[] = {
{UDATA(pclk_srv, UNIT_IDLE|UNIT_DISABLE, 0)}, /* 0 */
};
DIB pclk_dib = {PCLK_DEVNUM, 1, &pclk_devio, NULL};
MTAB pclk_mod[] = {
{ MTAB_VDV, 0, "ON", "ON", pclk_set_on, pclk_show_on },
{ MTAB_VDV, PCLK_OFF, NULL, "OFF", pclk_set_off },
{ 0 }
};
DEVICE pclk_dev = {
"PCLK", pclk_unit, NULL, pclk_mod, 1, 8, 0, 1, 8, 36, NULL, NULL, NULL, NULL, NULL, NULL,
&pclk_dib, DEV_DISABLE | DEV_DIS | DEV_DEBUG, 0, NULL, NULL, NULL, NULL, NULL, NULL, &pclk_description
};
/*
This is the Petit real-time calendar-clock re-enactment, where
the DATE is always Friday 1974-07-26, and
the TIME is the local wall clock time.
Months are encoded 4,5,6, 7,8,9, A,B,C, D,E,F for January to December.
Day-of-month runs from 0 to 30, for the 1st to 31st.
July 1974 is hex '74A' and the 26th day is coded '25' decimal.
The original PCLK was installed on the PDP-6 I/O bus at the SAIL D.C.Power Lab in 1967.
*/
t_stat pclk_devio(uint32 dev, uint64 *data)
{
time_t t=sim_get_time(NULL);
struct tm *dt;
uint64 hour=12, minute=1, seconds=2, milliseconds=3;
uint64 coni_word = ((minute&0xF)<<26) | (seconds<<20) | milliseconds;
uint64 datai_word;
dt = localtime( &t );
hour = dt->tm_hour;
minute = dt->tm_min;
coni_word = (dt->tm_min << 26) | (dt->tm_sec << 20);
coni_word += 02020136700; // plus the Petit/Panofsky offset.
datai_word = ( 0x74A<<16 | 25<<11 | hour<<6 | minute ) + 05004;
switch(dev & 3) {
case DATAI:
*data = datai_word;
break;
case CONI:
*data = coni_word;
break;
case CONO:
pclk_unit[0].PIA_CH &= ~(PIA_FLG);
pclk_unit[0].PIA_CH |= (int32)(*data & PIA_FLG);
break;
default:
break;
}
return SCPE_OK;
}
t_stat
pclk_srv(UNIT * uptr)
{
if (uptr->PIA_CH & PIA_FLG) {
uptr->PIA_CH |= CLK_IRQ;
// set_interrupt(PCLK_DEVNUM, uptr->PIA_CH);
} else
sim_cancel(uptr);
return SCPE_OK;
}
const char *pclk_description (DEVICE *dptr)
{
return "Stanford A.I.Lab Phil Petit calendar clock crock";
}
t_stat pclk_set_on(UNIT *uptr, int32 val, CONST char *cptr, void *desc)
{
DEVICE *dptr = &pclk_dev;
dptr->flags &= ~PCLK_OFF;
return SCPE_OK;
}
t_stat pclk_set_off(UNIT *uptr, int32 val, CONST char *cptr, void *desc)
{
DEVICE *dptr = &pclk_dev;
dptr->flags |= PCLK_OFF;
return SCPE_OK;
}
t_stat pclk_show_on(FILE *st, UNIT *uptr, int32 val, CONST void *desc)
{
DEVICE *dptr = &pclk_dev;
fprintf (st, "%s", (dptr->flags & PCLK_OFF) ? "off" : "on");
return SCPE_OK;
}
#endif