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( bank, src_hw_msx1_bank_asm );
52
53 outline1( "LD A, $%2.2x", _bank );
54 outline1( "LD HL, $%4.4x", _address1 );
55 outline1( "LD DE, %s", _address2 );
56
57 switch( _size ) {
58 case 1:
59 outline0("CALL BANKREAD1");
60 _environment->bankAccessOptimization.read1 = 1;
61 break;
62 case 2:
63 outline0("CALL BANKREAD2");
64 _environment->bankAccessOptimization.read2 = 1;
65 break;
66 case 4:
67 outline0("CALL BANKREAD4");
68 _environment->bankAccessOptimization.read4 = 1;
69 break;
70 default:
71 outline1("LD BC, $%4.4x", (unsigned short) ( _size & 0xffff ) );
72 outline0("CALL BANKREAD");
73 _environment->bankAccessOptimization.readn = 1;
74 break;
75
76 }
77
78}
79
92void bank_read_vars( Environment * _environment, char * _bank, char * _address1, char * _address2, char * _size ) {
93
94 deploy_preferred( bank, src_hw_msx1_bank_asm );
95
96 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
97
98 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
99 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
100 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
101
102 outline1( "LD A, (%s)", bank->realName );
103 outline1( "LD HL, (%s)", address1->realName );
104 outline1( "LD DE, (%s)", address2->realName );
105 outline1( "LD BC, (%s)", size->realName );
106 outline0( "CALL BANKREAD");
107 _environment->bankAccessOptimization.readn = 1;
108
109}
110
111void bank_read_vars_direct( Environment * _environment, char * _bank, char * _address1, char * _address2, char * _size ) {
112
113 deploy_preferred( bank, src_hw_msx1_bank_asm );
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 * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
118
119 outline1( "LD A, (%s)", bank->realName );
120 outline1( "LD HL, (%s)", address1->realName );
121 outline1( "LD DE, %s", _address2 );
122 outline1( "LD BC, (%s)", size->realName );
123 outline0( "CALL BANKREAD");
124 _environment->bankAccessOptimization.readn = 1;
125
126}
127
128void bank_read_vars_direct_size( Environment * _environment, char * _bank, char * _address1, char * _address2, int _size ) {
129
130 deploy_preferred( bank, src_hw_msx1_bank_asm );
131
132 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
133 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
134
135 outline1( "LD A, (%s)", bank->realName );
136 outline1( "LD HL, (%s)", address1->realName );
137 outline1( "LD DE, %s", _address2 );
138
139 switch( _size ) {
140 case 1:
141 outline0("CALL BANKREAD1");
142 _environment->bankAccessOptimization.read1 = 1;
143 break;
144 case 2:
145 outline0("CALL BANKREAD2");
146 _environment->bankAccessOptimization.read2 = 1;
147 break;
148 case 4:
149 outline0("CALL BANKREAD4");
150 _environment->bankAccessOptimization.read4 = 1;
151 break;
152 default:
153 outline1("LD BC, $%4.4x", _size );
154 outline0("CALL BANKREAD");
155 _environment->bankAccessOptimization.readn = 1;
156 break;
157
158 }
159
160}
161
162void bank_read_vars_bank_direct_size( Environment * _environment, int _bank, char * _address1, char * _address2, int _size ) {
163
164 deploy_preferred( bank, src_hw_msx1_bank_asm );
165
166 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
167
168 outline1( "LD A, $%2.2x", _bank );
169 outline1( "LD HL, (%s)", address1->realName );
170 outline1( "LD DE, %s", _address2 );
171
172 switch( _size ) {
173 case 1:
174 outline0("CALL BANKREAD1");
175 _environment->bankAccessOptimization.read1 = 1;
176 break;
177 case 2:
178 outline0("CALL BANKREAD2");
179 _environment->bankAccessOptimization.read2 = 1;
180 break;
181 case 4:
182 outline0("CALL BANKREAD4");
183 _environment->bankAccessOptimization.read4 = 1;
184 break;
185 default:
186 outline1("LD BC, $%4.4x", _size );
187 outline0("CALL BANKREAD");
188 _environment->bankAccessOptimization.readn = 1;
189 break;
190
191 }
192
193}
variable_retrieve_or_define
Variable * variable_retrieve_or_define(Environment *_environment, char *_name, VariableType _type, int _value)
Definition _infrastructure.c:1040
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