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-2025 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( bank, src_hw_c128z_bank_asm );
52
53 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
54 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
55 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
56 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
57
58 outline1("LD HL, (%s)", address1->realName );
59 outline1("LD DE, (%s)", address2->realName );
60 outline1("LD BC, (%s)", size->realName );
61 outline1("LD A, (%s)", bank->realName );
62 outline0("CALL BANKWRITE");
63
64 outline0("; end bank read");
65
66
67}
68
69void bank_write_vars_direct( Environment * _environment, char * _address1, char * _bank, char * _address2, char * _size ) {
70
71 deploy_preferred( bank, src_hw_c128z_bank_asm );
72
73 Variable * bank = variable_retrieve_or_define( _environment, _bank, VT_BYTE, 0 );
74 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
75 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
76 Variable * size = variable_retrieve_or_define( _environment, _size, VT_WORD, 0 );
77
78 outline1("LD HL, %s", address1->realName );
79 outline1("LD DE, (%s)", address2->realName );
80 outline1("LD BC, (%s)", size->realName );
81 outline1("LD A, (%s)", bank->realName );
82 outline0("CALL BANKWRITE");
83
84 outline0("; end bank read");
85
86
87}
88
89void bank_write_vars_bank_direct_size( Environment * _environment, char * _address1, int _bank, char * _address2, int _size ) {
90
91 deploy_preferred( bank, src_hw_c128z_bank_asm );
92
93 Variable * address1 = variable_retrieve_or_define( _environment, _address1, VT_ADDRESS, 0 );
94 Variable * address2 = variable_retrieve_or_define( _environment, _address2, VT_ADDRESS, 0 );
95
96 outline1("LD HL, %s", address1->realName );
97 outline1("LD DE, (%s)", address2->realName );
98
99 switch( _size ) {
100 case 1:
101 outline1("LD A, $%2.2x", _bank );
102 outline0("CALL BANKWRITE1");
103 _environment->bankAccessOptimization.write1 = 1;
104 break;
105 case 2:
106 outline1("LD A, $%2.2x", _bank );
107 outline0("CALL BANKWRITE2");
108 _environment->bankAccessOptimization.write2 = 1;
109 break;
110 case 4:
111 outline1("LD A, $%2.2x", _bank );
112 outline0("CALL BANKWRITE4");
113 _environment->bankAccessOptimization.write4 = 1;
114 break;
115 default:
116 outline1("LD BC, $%4.4x", (unsigned short) ( _size & 0xffff ) );
117 outline1("LD A, $%2.2x", _bank );
118 outline0("CALL BANKWRITE");
119 _environment->bankAccessOptimization.writen = 1;
120 break;
121
122 }
123
124}
Variable * variable_retrieve_or_define(Environment *_environment, char *_name, VariableType _type, int _value)
int size
Definition _optimizer.c:678
void bank_write_vars_direct(Environment *_environment, char *_address1, char *_bank, char *_address2, char *_size)
Definition bank_write.c:80
void bank_write_vars_bank_direct_size(Environment *_environment, char *_address1, int _bank, char *_address2, int _size)
Definition bank_write.c:111
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
BankAccessOptimization bankAccessOptimization
Definition ugbc.h:3269
char * realName
Definition ugbc.h:982
struct _Variable Variable
Structure of a single variable.
struct _Environment Environment
Structure of compilation environment.
@ VT_WORD
Definition ugbc.h:455
@ VT_BYTE
Definition ugbc.h:450
@ VT_ADDRESS
Definition ugbc.h:465
#define deploy_preferred(s, e)
Definition ugbc.h:4299
#define outline0(s)
Definition ugbc.h:4252
#define outline1(s, a)
Definition ugbc.h:4253