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
49
50void bank_read_semi_var( Environment * _environment, int _bank, int _address1, char * _address2, int _size ) {
51
52 deploy_preferred( bank, src_hw_c128_bank_asm );
53
54 outline1("LDA #$%2.2x", (unsigned char) ( _address1 & 0xff ) );
55 outline0("STA TMPPTR");
56 outline1("LDA #$%2.2x", (unsigned char) ( ( _address1 >> 8 ) & 0xff ) );
57 outline0("STA TMPPTR+1");
58
59 outline1("LDA #<%s", _address2 );
60 outline0("STA TMPPTR2");
61 outline1("LDA #>%s", _address2 );
62 outline0("STA TMPPTR2+1");
63
64 switch( _size ) {
65 case 1:
66 outline1("LDA #$%2.2x", _bank );
67 outline0("JSR BANKREAD1");
68 _environment->bankAccessOptimization.read1 = 1;
69 break;
70 case 2:
71 outline1("LDA #$%2.2x", _bank );
72 outline0("JSR BANKREAD2");
73 _environment->bankAccessOptimization.read2 = 1;
74 break;
75 case 4:
76 outline1("LDA #$%2.2x", _bank );
77 outline0("JSR BANKREAD4");
78 _environment->bankAccessOptimization.read4 = 1;
79 break;
80 default:
81 outline1("LDA #$%2.2x", (unsigned char) ( _size & 0xff ) );
82 outline0("STA MATHPTR0");
83 outline1("LDA #$%2.2x", (unsigned char) ( ( _size >> 8 ) & 0xff ) );
84 outline0("STA MATHPTR1");
85 outline1("LDA #$%2.2x", _bank );
86 outline0("JSR BANKREAD");
87 _environment->bankAccessOptimization.readn = 1;
88 break;
89
90 }
91 outline0("; end bank read");
92
93}
94
107void bank_read_vars( Environment * _environment, char * _bank, char * _address1, char * _address2, char * _size ) {
108
109 deploy_preferred( bank, src_hw_c128_bank_asm );
110
111 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
112 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
113 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
114 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
115
116 outline1("LDA %s", address1->realName );
117 outline0("STA TMPPTR");
118 outline1("LDA %s", address_displacement( _environment, address1->realName, "1" ) );
119 outline0("STA TMPPTR+1");
120
121 outline1("LDA %s", address2->realName );
122 outline0("STA TMPPTR2");
123 outline1("LDA %s", address_displacement( _environment, address2->realName, "1" ) );
124 outline0("STA TMPPTR2+1");
125
126 outline1("LDA %s", size->realName );
127 outline0("STA MATHPTR0");
128 outline1("LDA %s", address_displacement( _environment, size->realName, "1" ) );
129 outline0("STA MATHPTR1");
130 outline1("LDA %s", bank->realName );
131 outline0("JSR BANKREAD");
132 _environment->bankAccessOptimization.readn = 1;
133
134 outline0("; end bank read");
135
136}
137
138void bank_read_vars_direct( Environment * _environment, char * _bank, char * _address1, char * _address2, char * _size ) {
139
140 deploy_preferred( bank, src_hw_c128_bank_asm );
141
142 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
143 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
144 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
145 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
146
147 outline1("LDA %s", address1->realName );
148 outline0("STA TMPPTR");
149 outline1("LDA %s", address_displacement( _environment, address1->realName, "1" ) );
150 outline0("STA TMPPTR+1");
151
152 outline1("LDA #<%s", address2->realName );
153 outline0("STA TMPPTR2");
154 outline1("LDA #>%s", address2->realName );
155 outline0("STA TMPPTR2+1");
156
157 outline1("LDA %s", size->realName );
158 outline0("STA MATHPTR0");
159 outline1("LDA %s", address_displacement( _environment, size->realName, "1" ) );
160 outline0("STA MATHPTR1");
161 outline1("LDA %s", bank->realName );
162 outline0("JSR BANKREAD");
163 _environment->bankAccessOptimization.readn = 1;
164
165 outline0("; end bank read");
166
167}
168
169void bank_read_vars_direct_size( Environment * _environment, char * _bank, char * _address1, char * _address2, int _size ) {
170
171 deploy_preferred( bank, src_hw_c128_bank_asm );
172
173 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
174 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
175 Variable * address2 = variable_retrieve( _environment, _address2 );
176
177 outline1("LDA %s", address1->realName );
178 outline0("STA TMPPTR");
179 outline1("LDA %s", address_displacement( _environment, address1->realName, "1" ) );
180 outline0("STA TMPPTR+1");
181
182 outline1("LDA #<%s", address2->realName );
183 outline0("STA TMPPTR2");
184 outline1("LDA #>%s", address2->realName );
185 outline0("STA TMPPTR2+1");
186
187 switch( _size ) {
188 case 1:
189 outline1("LDA %s", bank->realName );
190 outline0("JSR BANKREAD1");
191 _environment->bankAccessOptimization.read1 = 1;
192 break;
193 case 2:
194 outline1("LDA %s", bank->realName );
195 outline0("JSR BANKREAD2");
196 _environment->bankAccessOptimization.read2 = 1;
197 break;
198 case 4:
199 outline1("LDA %s", bank->realName );
200 outline0("JSR BANKREAD4");
201 _environment->bankAccessOptimization.read4 = 1;
202 break;
203 default:
204 outline1("LDA #$%2.2x", (unsigned char) ( _size & 0xff ) );
205 outline0("STA MATHPTR0");
206 outline1("LDA #$%2.2x", (unsigned char) ( ( _size >> 8 ) & 0xff ) );
207 outline0("STA MATHPTR1");
208 outline1("LDA %s", bank->realName );
209 outline0("JSR BANKREAD");
210 _environment->bankAccessOptimization.readn = 1;
211 break;
212
213 }
214 outline0("; end bank read");
215
216}
217
218void bank_read_vars_bank_direct_size( Environment * _environment, int _bank, char * _address1, char * _address2, int _size ) {
219
220 deploy_preferred( bank, src_hw_c128_bank_asm );
221
222 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
223 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
224
225 outline1("LDA %s", address1->realName );
226 outline0("STA TMPPTR");
227 outline1("LDA %s", address_displacement( _environment, address1->realName, "1" ) );
228 outline0("STA TMPPTR+1");
229
230 outline1("LDA #<%s", address2->realName );
231 outline0("STA TMPPTR2");
232 outline1("LDA #>%s", address2->realName );
233 outline0("STA TMPPTR2+1");
234
235 switch( _size ) {
236 case 1:
237 outline1("LDA #$%2.2x", _bank );
238 outline0("JSR BANKREAD1");
239 _environment->bankAccessOptimization.read1 = 1;
240 break;
241 case 2:
242 outline1("LDA #$%2.2x", _bank );
243 outline0("JSR BANKREAD2");
244 _environment->bankAccessOptimization.read2 = 1;
245 break;
246 case 4:
247 outline1("LDA #$%2.2x", _bank );
248 outline0("JSR BANKREAD4");
249 _environment->bankAccessOptimization.read4 = 1;
250 break;
251 default:
252 outline1("LDA #$%2.2x", (unsigned char) ( _size & 0xff ) );
253 outline0("STA MATHPTR0");
254 outline1("LDA #$%2.2x", (unsigned char) ( ( _size >> 8 ) & 0xff ) );
255 outline0("STA MATHPTR1");
256 outline1("LDA #$%2.2x", _bank );
257 outline0("JSR BANKREAD");
258 _environment->bankAccessOptimization.readn = 1;
259 break;
260
261 }
262 outline0("; end bank read");
263
264}
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
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
_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::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