ugBASIC 1.18
An isomorphic BASIC language compiler for retrocomputers
Loading...
Searching...
No Matches
bank_write.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_write_vars( Environment * _environment, char * _address1, char * _bank, char * _address2, char * _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_pc128op_bank_asm );
54
55 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
56 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
57 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
58 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
59
60 address1->bankReadOrWrite = 1;
61
62 outline0("; bank write rv")
63 outline1("LDY %s", address1->realName );
64 outline1("LDU %s", size->realName );
65 outline1("LDB %s", bank->realName );
66 outline1("LDX %s", address2->realName );
67 outline0("JSR BANKWRITE");
68 _environment->bankAccessOptimization.writen = 1;
69 outline0("; end bank write");
70
71}
72
73void bank_write_semi_var( Environment * _environment, char * _address2, int _bank, int _address1, int _size ) {
74
75 deploy_preferred( duff, src_hw_6809_duff_asm );
76 deploy_preferred( msc1, src_hw_6809_msc1_asm );
77 deploy_preferred( bank, src_hw_pc128op_bank_asm );
78
79 int realAddress = _address1;
80
81 outline0("; bank read sv")
82 outline1("LDB #$%2.2x", _bank );
83
84 switch( _size ) {
85 case 1:
86 outline1("LDY #$%4.4x", realAddress );
87 outline1("LDX #%s", _address2 );
88 outline0("JSR BANKWRITE1");
89 _environment->bankAccessOptimization.write1 = 1;
90 break;
91 case 2:
92 outline1("LDY #$%4.4x", realAddress );
93 outline1("LDX #%s", _address2 );
94 outline0("JSR BANKWRITE2");
95 _environment->bankAccessOptimization.write2 = 1;
96 break;
97 case 4:
98 outline1("LDY #$%4.4x", realAddress );
99 outline1("LDX #%s", _address2 );
100 outline0("JSR BANKWRITE4");
101 _environment->bankAccessOptimization.write4 = 1;
102 break;
103 default:
104 outline1("LDY #%s", _address2 );
105 outline1("LDX #$%4.4x", realAddress );
106 outline1("LDU #$%4.4x", _size );
107 outline0("JSR BANKWRITE");
108 _environment->bankAccessOptimization.writen = 1;
109 break;
110
111 }
112 outline0("; end bank read");
113
114}
115
116void bank_write_vars_direct( Environment * _environment, char * _address1, char * _bank, char * _address2, char * _size ) {
117
118 deploy_preferred( duff, src_hw_6809_duff_asm );
119 deploy_preferred( msc1, src_hw_6809_msc1_asm );
120 deploy_preferred( bank, src_hw_pc128op_bank_asm );
121
122 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
123 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
124 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
125
126 outline0("; bank write rv")
127 outline1("LDY #%s", _address1 );
128 outline1("LDU %s", size->realName );
129 outline1("LDB %s", bank->realName );
130 outline1("LDX %s", address2->realName );
131 outline0("JSR BANKWRITE");
132 _environment->bankAccessOptimization.writen = 1;
133 outline0("; end bank write");
134
135}
136
137void bank_write_vars_bank_direct_size( Environment * _environment, char * _address1, int _bank, char * _address2, int _size ) {
138
139 deploy_preferred( duff, src_hw_6809_duff_asm );
140 deploy_preferred( msc1, src_hw_6809_msc1_asm );
141 deploy_preferred( bank, src_hw_pc128op_bank_asm );
142
143 Variable * address1 = variable_retrieve( _environment, _address1 );
144 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
145
146 outline0("; bank write rv")
147 outline1("LDB #$%2.2x", _bank );
148
149 switch( _size ) {
150 case 1:
151 outline1("LDY %s", address2->realName );
152 outline1("LDX #%s", address1->realName );
153 outline0("JSR BANKWRITE1");
154 _environment->bankAccessOptimization.write1 = 1;
155 break;
156 case 2:
157 outline1("LDY %s", address2->realName );
158 outline1("LDX #%s", address1->realName );
159 outline0("JSR BANKWRITE2");
160 _environment->bankAccessOptimization.write2 = 1;
161 break;
162 case 4:
163 outline1("LDY %s", address2->realName );
164 outline1("LDX #%s", address1->realName );
165 outline0("JSR BANKWRITE4");
166 _environment->bankAccessOptimization.write4 = 1;
167 break;
168 default:
169 outline1("LDX %s", address2->realName );
170 outline1("LDY #%s", address1->realName );
171 outline1("LDU #$%4.4x", _size );
172 outline0("JSR BANKWRITE");
173 _environment->bankAccessOptimization.writen = 1;
174 break;
175
176 }
177 outline0("; end bank write");
178
179}
180
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
size
int size
Definition _optimizer.c:678
bank_write_vars_direct
void bank_write_vars_direct(Environment *_environment, char *_address1, char *_bank, char *_address2, char *_size)
Definition bank_write.c:80
bank_write_vars_bank_direct_size
void bank_write_vars_bank_direct_size(Environment *_environment, char *_address1, int _bank, char *_address2, int _size)
Definition bank_write.c:111
bank_write_vars
void bank_write_vars(Environment *_environment, char *_address1, char *_bank, char *_address2, char *_size)
Emit ASM code for instruction BANK WRITE ....
Definition bank_write.c:49
bank_write_semi_var
void bank_write_semi_var(Environment *_environment, char *_address2, int _bank, int _address1, int _size)
Definition bank_write.c:127
_BankAccessOptimization::writen
int writen
Definition ugbc.h:2101
_BankAccessOptimization::write1
int write1
Definition ugbc.h:2098
_BankAccessOptimization::write2
int write2
Definition ugbc.h:2099
_BankAccessOptimization::write4
int write4
Definition ugbc.h:2100
_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