ugBASIC 1.18
An isomorphic BASIC language compiler for retrocomputers
Loading...
Searching...
No Matches
bank_read.c
Go to the documentation of this file.
1/*****************************************************************************
2 * ugBASIC - an isomorphic BASIC language compiler for retrocomputers *
3 *****************************************************************************
4 * Copyright 2021-2026 Marco Spedaletti (asimov@mclink.it)
5 *
6 * Licensed under the Apache License, Version 2.0 (the "License");
7 * you may not use this file except in compliance with the License.
8 * You may obtain a copy of the License at
9 *
10 * http://www.apache.org/licenses/LICENSE-2.0
11 *
12 * Unless required by applicable law or agreed to in writing, software
13 * distributed under the License is distributed on an "AS IS" BASIS,
14 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15 * See the License for the specific language governing permissions and
16 * limitations under the License.
17 *----------------------------------------------------------------------------
18 * Concesso in licenza secondo i termini della Licenza Apache, versione 2.0
19 * (la "Licenza"); è proibito usare questo file se non in conformità alla
20 * Licenza. Una copia della Licenza è disponibile all'indirizzo:
21 *
22 * http://www.apache.org/licenses/LICENSE-2.0
23 *
24 * Se non richiesto dalla legislazione vigente o concordato per iscritto,
25 * il software distribuito nei termini della Licenza è distribuito
26 * "COSÌ COM'È", SENZA GARANZIE O CONDIZIONI DI ALCUN TIPO, esplicite o
27 * implicite. Consultare la Licenza per il testo specifico che regola le
28 * autorizzazioni e le limitazioni previste dalla medesima.
29 ****************************************************************************/
30
31/****************************************************************************
32 * INCLUDE SECTION
33 ****************************************************************************/
34
35#include "../../ugbc.h"
36
49void bank_read_semi_var( Environment * _environment, int _bank, int _address1, char * _address2, int _size ) {
50
51 deploy_preferred( duff, src_hw_6809_duff_asm );
52 deploy_preferred( msc1, src_hw_6809_msc1_asm );
53 deploy_preferred( bank, src_hw_to8_bank_asm );
54
55 int realAddress = _address1;
56
57 outline0("; bank read sv")
58 outline1("LDB #$%2.2x", _bank );
59 outline1("LDY #$%4.4x", realAddress );
60 outline1("LDX #%s", _address2 );
61
62 switch( _size ) {
63 case 1:
64 outline0("JSR BANKREAD1");
65 _environment->bankAccessOptimization.read1 = 1;
66 break;
67 case 2:
68 outline0("JSR BANKREAD2");
69 _environment->bankAccessOptimization.read2 = 1;
70 break;
71 case 4:
72 outline0("JSR BANKREAD4");
73 _environment->bankAccessOptimization.read4 = 1;
74 break;
75 default:
76 outline1("LDU #$%4.4x", _size );
77 outline0("JSR BANKREAD");
78 _environment->bankAccessOptimization.readn = 1;
79 break;
80
81 }
82 outline0("; end bank read");
83
84}
85
98/* <usermanual>
99@keyword BANK READ
100@target to8
101</usermanual> */
102void bank_read_vars( Environment * _environment, char * _bank, char * _address1, char * _address2, char * _size ) {
103
104 deploy_preferred( duff, src_hw_6809_duff_asm );
105 deploy_preferred( msc1, src_hw_6809_msc1_asm );
106 deploy_preferred( bank, src_hw_to8_bank_asm );
107
108 outline1("; variable_exists_by_realname( ..., %s )", _address2 );
109 if ( variable_exists_by_realname( _environment, _address2 ) ) {
110 Variable * address2 = variable_retrieve_by_realname( _environment, _address2 );
111 outline1("; %s->bankReadOrWrite = 1", _address2 );
112 address2->bankReadOrWrite = 1;
113 }
114
115 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
116 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
117 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
118 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
119
120 outline0("; bank read rv")
121 outline1("LDB %s", bank->realName );
122 outline1("LDY %s", address1->realName );
123 outline1("LDX %s", address2->realName );
124 outline1("LDU %s", size->realName );
125 outline0("JSR BANKREAD");
126 _environment->bankAccessOptimization.readn = 1;
127 outline0("; end bank read");
128
129}
130
131void bank_read_vars_direct( Environment * _environment, char * _bank, char * _address1, char * _address2, char * _size ) {
132
133 deploy_preferred( duff, src_hw_6809_duff_asm );
134 deploy_preferred( msc1, src_hw_6809_msc1_asm );
135 deploy_preferred( bank, src_hw_to8_bank_asm );
136
137 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
138 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
139 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
140
141 outline1("; variable_exists_by_realname( ..., %s )", _address2 );
142 if ( variable_exists_by_realname( _environment, _address2 ) ) {
143 Variable * address2 = variable_retrieve_by_realname( _environment, _address2 );
144 outline1("; %s->bankReadOrWrite = 1", _address2 );
145 address2->bankReadOrWrite = 1;
146 }
147
148 outline0("; bank read rvd")
149 outline1("LDB %s",bank->realName );
150 outline1("LDY %s", address1->realName );
151 outline1("LDX #%s", _address2 );
152 outline1("LDU %s", size->realName );
153 outline0("JSR BANKREAD");
154 _environment->bankAccessOptimization.readn = 1;
155 outline0("; end bank read");
156
157}
158
159void bank_read_vars_direct_size( Environment * _environment, char * _bank, char * _address1, char * _address2, int _size ) {
160
161 deploy_preferred( duff, src_hw_6809_duff_asm );
162 deploy_preferred( msc1, src_hw_6809_msc1_asm );
163 deploy_preferred( bank, src_hw_to8_bank_asm );
164
165 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
166 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
167
168 outline1("; variable_exists_by_realname( ..., %s )", _address2 );
169 if ( variable_exists_by_realname( _environment, _address2 ) ) {
170 Variable * address2 = variable_retrieve_by_realname( _environment, _address2 );
171 outline1("; %s->bankReadOrWrite = 1", _address2 );
172 address2->bankReadOrWrite = 1;
173 }
174
175 outline0("; bank read rvd")
176 outline1("LDB %s", address_displacement( _environment, bank->realName, "-1" ) );
177 outline1("LDY %s", address1->realName );
178 outline1("LDX #%s", _address2 );
179 switch( _size ) {
180 case 1:
181 outline0("JSR BANKREAD1");
182 _environment->bankAccessOptimization.read1 = 1;
183 break;
184 case 2:
185 outline0("JSR BANKREAD2");
186 _environment->bankAccessOptimization.read2 = 1;
187 break;
188 case 4:
189 outline0("JSR BANKREAD4");
190 _environment->bankAccessOptimization.read4 = 1;
191 break;
192 default:
193 outline1("LDU #$%4.4x", _size );
194 outline0("JSR BANKREAD");
195 _environment->bankAccessOptimization.readn = 1;
196 break;
197
198 }
199 outline0("; end bank read");
200
201}
202
203void bank_read_vars_bank_direct_size_vars( Environment * _environment, int _bank, char * _address1, char * _address2, int _size ) {
204
205 deploy_preferred( duff, src_hw_6809_duff_asm );
206 deploy_preferred( msc1, src_hw_6809_msc1_asm );
207 deploy_preferred( bank, src_hw_to8_bank_asm );
208
209 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
210
211 outline1("; variable_exists_by_realname( ..., %s )", _address2 );
212 if ( variable_exists_by_realname( _environment, _address2 ) ) {
213 Variable * address2 = variable_retrieve_by_realname( _environment, _address2 );
214 outline1("; %s->bankReadOrWrite = 1", _address2 );
215 address2->bankReadOrWrite = 1;
216 }
217
218 outline0("; bank read rvd")
219 outline1("LDB #$%2.2x", _bank );
220 outline1("LDY %s", address1->realName );
221 outline1("LDX #%s", _address2 );
222 switch( _size ) {
223 case 1:
224 outline0("JSR BANKREAD1");
225 _environment->bankAccessOptimization.read1 = 1;
226 break;
227 case 2:
228 outline0("JSR BANKREAD2");
229 _environment->bankAccessOptimization.read2 = 1;
230 break;
231 case 4:
232 outline0("JSR BANKREAD4");
233 _environment->bankAccessOptimization.read4 = 1;
234 break;
235 default:
236 outline1("LDU #$%4.4x", _size );
237 outline0("JSR BANKREAD");
238 _environment->bankAccessOptimization.readn = 1;
239 break;
240
241 }
242 outline0("; end bank read");
243
244}
245
246void bank_read_vars_bank_direct_size( Environment * _environment, int _bank, char * _address1, char * _address2, int _size ) {
247
248 deploy_preferred( duff, src_hw_6809_duff_asm );
249 deploy_preferred( msc1, src_hw_6809_msc1_asm );
250 deploy_preferred( bank, src_hw_to8_bank_asm );
251
252 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
253 Variable * address2 = variable_retrieve( _environment, _address2 );
254
255 address2->bankReadOrWrite = 1;
256
257 outline0("; bank read rvd")
258 outline1("LDB #$%2.2x", _bank );
259 outline1("LDY %s", address1->realName );
260 outline1("LDX #%s", address2->realName );
261 switch( _size ) {
262 case 1:
263 outline0("JSR BANKREAD1");
264 _environment->bankAccessOptimization.read1 = 1;
265 break;
266 case 2:
267 outline0("JSR BANKREAD2");
268 _environment->bankAccessOptimization.read2 = 1;
269 break;
270 case 4:
271 outline0("JSR BANKREAD4");
272 _environment->bankAccessOptimization.read4 = 1;
273 break;
274 default:
275 outline1("LDU #$%4.4x", _size );
276 outline0("JSR BANKREAD");
277 _environment->bankAccessOptimization.readn = 1;
278 break;
279
280 }
281 outline0("; end bank read");
282
283}
284
variable_retrieve
Variable * variable_retrieve(Environment *_environment, char *_name)
Definition _infrastructure.c:988
variable_retrieve_or_define
Variable * variable_retrieve_or_define(Environment *_environment, char *_name, VariableType _type, int _value)
Definition _infrastructure.c:1040
variable_exists_by_realname
int variable_exists_by_realname(Environment *_environment, char *_name)
Definition _infrastructure.c:1000
variable_retrieve_by_realname
Variable * variable_retrieve_by_realname(Environment *_environment, char *_name)
Definition _infrastructure.c:967
address_displacement
char * address_displacement(Environment *_environment, char *_address, char *_displacement)
Definition _infrastructure.c:14516
size
int size
Definition _optimizer.c:678
bank_read_semi_var
void bank_read_semi_var(Environment *_environment, int _bank, int _address1, char *_address2, int _size)
Emit ASM code for instruction BANK READ ....
Definition bank_read.c:50
bank_read_vars_bank_direct_size
void bank_read_vars_bank_direct_size(Environment *_environment, int _bank, char *_address1, char *_address2, int _size)
Definition bank_read.c:218
bank_read_vars_direct_size
void bank_read_vars_direct_size(Environment *_environment, char *_bank, char *_address1, char *_address2, int _size)
Definition bank_read.c:169
bank_read_vars
void bank_read_vars(Environment *_environment, char *_bank, char *_address1, char *_address2, char *_size)
Emit ASM code for instruction BANK READ ....
Definition bank_read.c:107
bank_read_vars_direct
void bank_read_vars_direct(Environment *_environment, char *_bank, char *_address1, char *_address2, char *_size)
Definition bank_read.c:138
bank_read_vars_bank_direct_size_vars
void bank_read_vars_bank_direct_size_vars(Environment *_environment, int _bank, char *_address1, char *_address2, int _size)
Definition bank_read.c:178
_BankAccessOptimization::read1
int read1
Definition ugbc.h:2093
_BankAccessOptimization::read4
int read4
Definition ugbc.h:2095
_BankAccessOptimization::readn
int readn
Definition ugbc.h:2096
_BankAccessOptimization::read2
int read2
Definition ugbc.h:2094
_Environment::bankAccessOptimization
BankAccessOptimization bankAccessOptimization
Definition ugbc.h:3269
_Variable::bankReadOrWrite
int bankReadOrWrite
Definition ugbc.h:1181
_Variable::realName
char * realName
Definition ugbc.h:982
Variable
struct _Variable Variable
Structure of a single variable.
Environment
struct _Environment Environment
Structure of compilation environment.
VT_WORD
@ VT_WORD
Definition ugbc.h:455
VT_BYTE
@ VT_BYTE
Definition ugbc.h:450
VT_ADDRESS
@ VT_ADDRESS
Definition ugbc.h:465
deploy_preferred
#define deploy_preferred(s, e)
Definition ugbc.h:4299
outline0
#define outline0(s)
Definition ugbc.h:4252
outline1
#define outline1(s, a)
Definition ugbc.h:4253