1 /*
2 * libtilemcore - Graphing calculator emulation library
3 *
4 * Copyright (C) 2001 Solignac Julien
5 * Copyright (C) 2004-2009 Benjamin Moody
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public License
9 * as published by the Free Software Foundation; either version 2.1 of
10 * the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful, but
13 * WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, see
19 * <http://www.gnu.org/licenses/>.
20 */
21
22 #ifdef HAVE_CONFIG_H
23 # include <config.h>
24 #endif
25
26 #include <stdio.h>
27 #include <tilem.h>
28
29 #include "x3.h"
30
x3_z80_in(TilemCalc * calc,dword port)31 byte x3_z80_in(TilemCalc* calc, dword port)
32 {
33 static const byte battlevel[4] = { 33, 39, 36, 43 };
34 byte v, b;
35
36 switch(port&0x1f) {
37 case 0x00:
38 case 0x04:
39 case 0x08:
40 case 0x0C:
41 v = tilem_linkport_get_lines(calc);
42 return((calc->hwregs[ROM_BANK] << 1) | (v * 5));
43
44 case 0x01:
45 case 0x05:
46 case 0x09:
47 case 0x0D:
48 return(tilem_keypad_read_keys(calc));
49
50 case 0x02:
51 case 0x06:
52 case 0x0A:
53 case 0x0E:
54 case 0x16:
55 case 0x1E:
56 return(calc->hwregs[PORT2]);
57
58 case 0x03:
59 case 0x07:
60 case 0x0B:
61 case 0x0F:
62 case 0x17:
63 case 0x1F:
64 v = (calc->keypad.onkeydown ? 0x00 : 0x08);
65
66 if (calc->z80.interrupts & TILEM_INTERRUPT_ON_KEY)
67 v |= 0x01;
68 if (calc->z80.interrupts & TILEM_INTERRUPT_TIMER1)
69 v |= 0x02;
70
71 return(v);
72
73 case 0x10:
74 case 0x12:
75 case 0x18:
76 case 0x1A:
77 return(tilem_lcd_t6a04_status(calc));
78
79 case 0x11:
80 case 0x13:
81 case 0x19:
82 case 0x1B:
83 return(tilem_lcd_t6a04_read(calc));
84
85 case 0x14:
86 case 0x1C:
87 b = battlevel[calc->hwregs[PORT4] >> 6];
88 v = tilem_linkport_get_lines(calc);
89 return((calc->battery >= b ? 1 : 0)
90 | (calc->hwregs[ROM_BANK] << 1) | (v << 2));
91
92 case 0x15:
93 case 0x1D:
94 return(tilem_keypad_read_keys(calc) & ~1);
95 }
96
97 tilem_warning(calc, "Input from port %x", port);
98 return(0x00);
99 }
100
101
setup_mapping(TilemCalc * calc)102 static void setup_mapping(TilemCalc* calc)
103 {
104 unsigned int pageA, pageB;
105
106 if (calc->hwregs[PORT2] & 0x40) {
107 pageA = (0x10 | (calc->hwregs[PORT2] & 1));
108 }
109 else {
110 pageA = (calc->hwregs[ROM_BANK] | (calc->hwregs[PORT2] & 7));
111 }
112
113 if (calc->hwregs[PORT2] & 0x80) {
114 pageB = (0x10 | ((calc->hwregs[PORT2] >> 3) & 1));
115 }
116 else {
117 pageB = (calc->hwregs[ROM_BANK] | ((calc->hwregs[PORT2] >> 3) & 7));
118 }
119
120 if (calc->hwregs[PORT4] & 1) {
121 calc->mempagemap[1] = (pageA & ~1);
122 calc->mempagemap[2] = (pageA | 1);
123 calc->mempagemap[3] = pageB;
124 }
125 else {
126 calc->mempagemap[1] = pageA;
127 calc->mempagemap[2] = pageB;
128 calc->mempagemap[3] = 0x10;
129 }
130 }
131
x3_z80_out(TilemCalc * calc,dword port,byte value)132 void x3_z80_out(TilemCalc* calc, dword port, byte value)
133 {
134 static const int tmrvalues[8] = { 1667, 1852, 3889, 4321,
135 6111, 6790, 8333, 9259 };
136 int t;
137
138 switch(port&0x1f) {
139 case 0x00:
140 calc->hwregs[ROM_BANK] = ((value & 0x10) >> 1);
141 tilem_linkport_set_lines(calc, value);
142 setup_mapping(calc);
143 break;
144
145 case 0x01:
146 tilem_keypad_set_group(calc, value);
147 break;
148
149 case 0x02:
150 calc->hwregs[PORT2] = value;
151 setup_mapping(calc);
152 break;
153
154 case 0x03:
155 if (value & 0x01) {
156 calc->keypad.onkeyint = 1;
157 }
158 else {
159 calc->z80.interrupts &= ~TILEM_INTERRUPT_ON_KEY;
160 calc->keypad.onkeyint = 0;
161 }
162
163 if (!(value & 0x02))
164 calc->z80.interrupts &= ~TILEM_INTERRUPT_TIMER1;
165
166 if (!(value & 0x04))
167 calc->z80.interrupts &= ~TILEM_INTERRUPT_TIMER2;
168
169 calc->poweronhalt = ((value & 8) >> 3);
170 calc->hwregs[PORT3] = value;
171 break;
172
173 case 0x04:
174 calc->hwregs[PORT4] = value;
175
176 t = tmrvalues[((value >> 4) & 1) | (value & 6)];
177 tilem_z80_set_timer_period(calc, TIMER_INT1, t);
178 tilem_z80_set_timer_period(calc, TIMER_INT2A, t);
179 tilem_z80_set_timer_period(calc, TIMER_INT2B, t);
180
181 setup_mapping(calc);
182 break;
183
184 case 0x10:
185 tilem_lcd_t6a04_control(calc, value);
186 break;
187
188 case 0x11:
189 tilem_lcd_t6a04_write(calc, value);
190 break;
191 }
192
193 return;
194 }
195
x3_z80_ptimer(TilemCalc * calc,int id)196 void x3_z80_ptimer(TilemCalc* calc, int id)
197 {
198 switch (id) {
199 case TIMER_INT1:
200 if (calc->hwregs[PORT3] & 0x02)
201 calc->z80.interrupts |= TILEM_INTERRUPT_TIMER1;
202 break;
203
204 case TIMER_INT2A:
205 case TIMER_INT2B:
206 if (calc->hwregs[PORT3] & 0x04)
207 calc->z80.interrupts |= TILEM_INTERRUPT_TIMER2;
208 break;
209 }
210 }
211