ugBASIC 1.18
An isomorphic BASIC language compiler for retrocomputers
Loading...
Searching...
No Matches
image_ref.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
37/****************************************************************************
38 * CODE SECTION
39 ****************************************************************************/
40
41#if defined(__plus4__) || defined(__c16__)
42
43Variable * image_ref( Environment * _environment, char * _image ) {
44
45 Variable * image = variable_retrieve( _environment, _image );
46
47 Variable * imageRef = variable_temporary( _environment, VT_IMAGEREF, "(imageref)" );
48
49 image->usedImage = 1;
50
51 switch( image->type ) {
52 case VT_IMAGE:
53 if ( image->bankAssigned != -1 ) {
54
55 // BASE
56
57 outline1( "LDA #$%2.2x", (unsigned char)(image->absoluteAddress & 0xff));
58 outline1( "STA %s", imageRef->realName );
59 outline1( "LDA #$%2.2x", (unsigned char)((image->absoluteAddress>>8) & 0xff));
60 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "1" ) );
61
62 // SIZE
63
64 outline1("LDA #$%2.2x", (unsigned char)( image->frameSize & 0xff ) );
65 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "2" ) );
66 outline1("LDA #$%2.2x", (unsigned char)( ( image->frameSize >> 8 ) & 0xff ) );
67 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "3" ) );
68
69 // BANK
70
71 outline1( "LDA #$%2.2x", image->bankAssigned );
72 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "4" ) );
73
74 // INFO
75
76 outline0( "LDA #$07" );
77 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "5" ) );
78
79 // RESIDENT
80
81 #if !defined(__c64reu__)
82 char bankWindowName[MAX_TEMPORARY_STORAGE];
83 sprintf( bankWindowName, "BANKWINDOW%2.2x", image->residentAssigned );
84 outline1("LDA #<%s", bankWindowName);
85 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "6" ) );
86 outline1("LDA #>%s", bankWindowName);
87 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "7" ) );
88 #endif
89
90 // TABLE1
91
92 // outline1( "LDX #%soffsetframe", image->realName );
93 // outline1( "STX %s+8", imageRef->realName );
94
95 // TABLE2
96
97 // outline1( "LDX #%soffsetsequence", image->realName );
98 // outline1( "STX %s+10", imageRef->realName );
99
100 } else {
101
102 // BASE
103
104 outline1("LDA #<%s", image->realName);
105 outline1( "STA %s", imageRef->realName );
106 outline1("LDA #>%s", image->realName);
107 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "1" ) );
108
109 // SIZE
110
111 outline1("LDA #$%2.2x", (unsigned char)( image->frameSize & 0xff ) );
112 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "2" ) );
113 outline1("LDA #$%2.2x", (unsigned char)( ( image->frameSize >> 8 ) & 0xff ) );
114 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "3" ) );
115
116 // BANK
117
118 // outline1( "LDA #$%2.2x", image->bankAssigned );
119 // outline1( "STA %s+4", imageRef->realName );
120
121 // INFO
122
123 outline0( "LDA #$03" );
124 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "5" ) );
125
126 // RESIDENT
127
128 // char bankWindowName[MAX_TEMPORARY_STORAGE];
129 // sprintf( bankWindowName, "BANKWINDOW%2.2x", image->residentAssigned );
130
131 // outline1( "LDX #%s", bankWindowName );
132 // outline1( "STX %s+6", imageRef->realName );
133
134 // TABLE1
135
136 // outline1( "LDX #%soffsetframe", image->realName );
137 // outline1( "STX %s+8", imageRef->realName );
138
139 // TABLE2
140
141 // outline1( "LDX #%soffsetsequence", image->realName );
142 // outline1( "STX %s+10", imageRef->realName );
143
144 }
145
146
147 break;
148
149 case VT_IMAGES:
150
151 if ( image->bankAssigned != -1 ) {
152
153 // BASE
154
155 outline1("LDA #<%s", image->realName);
156 outline1( "STA %s", imageRef->realName );
157 outline1("LDA #>%s", image->realName);
158 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "1" ) );
159
160 // SIZE
161
162 outline1("LDA #$%2.2x", (unsigned char)( image->frameSize & 0xff ) );
163 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "2" ) );
164 outline1("LDA #$%2.2x", (unsigned char)( ( image->frameSize >> 8 ) & 0xff ) );
165 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "3" ) );
166
167 // BANK
168
169 outline1( "LDA #$%2.2x", image->bankAssigned );
170 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "4" ) );
171
172 // INFO
173
174 outline0( "LDA #$17" );
175 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "5" ) );
176
177 // RESIDENT
178
179 #if !defined(__c64reu__)
180 char bankWindowName[MAX_TEMPORARY_STORAGE];
181 sprintf( bankWindowName, "BANKWINDOW%2.2x", image->residentAssigned );
182 outline1("LDA #<%s", bankWindowName);
183 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "6" ) );
184 outline1("LDA #>%s", bankWindowName);
185 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "7" ) );
186 #endif
187
188 // TABLE1
189
190 outline1("LDA #<%soffsetframe", image->realName);
191 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "8" ) );
192 outline1("LDA #>%soffsetframe", image->realName);
193 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "9" ) );
194
195 // TABLE2
196
197 // outline1( "LDX #%soffsetsequence", image->realName );
198 // outline1( "STX %s+10", imageRef->realName );
199
200 } else {
201
202 // BASE
203
204 outline1("LDA #<%s", image->realName);
205 outline1( "STA %s", imageRef->realName );
206 outline1("LDA #>%s", image->realName);
207 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "1" ) );
208
209 // SIZE
210
211 outline1("LDA #$%2.2x", (unsigned char)( image->frameSize & 0xff ) );
212 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "2" ) );
213 outline1("LDA #$%2.2x", (unsigned char)( ( image->frameSize >> 8 ) & 0xff ) );
214 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "3" ) );
215
216 // BANK
217
218 // outline1( "LDA #$%2.2x", image->bankAssigned );
219 // outline1( "STA %s+4", imageRef->realName );
220
221 // INFO
222
223 outline0( "LDA #$13" );
224 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "5" ) );
225
226 // RESIDENT
227
228 // char bankWindowName[MAX_TEMPORARY_STORAGE];
229 // sprintf( bankWindowName, "BANKWINDOW%2.2x", image->residentAssigned );
230
231 // BANK
232
233 outline1( "LDA #$%2.2x", (unsigned char)(image->bankAssigned&0xff) );
234 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "4" ) );
235
236 // INFO
237
238 outline0( "LDA #$13" );
239 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "5" ) );
240
241 // RESIDENT
242
243 // #if !defined(__c64reu__)
244 // char bankWindowName[MAX_TEMPORARY_STORAGE];
245 // sprintf( bankWindowName, "BANKWINDOW%2.2x", image->residentAssigned );
246 // outline1("LDA #<%s", bankWindowName);
247 // outline1( "STA %s", address_displacement( _environment, imageRef->realName, "6" ) );
248 // outline1("LDA #>%s", bankWindowName);
249 // outline1( "STA %s", address_displacement( _environment, imageRef->realName, "7" ) );
250 // #endif
251
252 // TABLE1
253
254 outline1("LDA #<%soffsetframe", image->realName);
255 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "8" ) );
256 outline1("LDA #>%soffsetframe", image->realName);
257 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "9" ) );
258
259 // TABLE2
260
261 // outline1( "LDX #%soffsetsequence", image->realName );
262 // outline1( "STX %s+10", imageRef->realName );
263
264 }
265
266 break;
267
268 case VT_SEQUENCE:
269
270 if ( image->bankAssigned != -1 ) {
271
272 // BASE
273
274 outline1("LDA #<%s", image->realName);
275 outline1( "STA %s", imageRef->realName );
276 outline1("LDA #>%s", image->realName);
277 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "1" ) );
278
279 // SIZE
280
281 outline1("LDA #$%2.2x", (unsigned char)( image->frameSize & 0xff ) );
282 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "2" ) );
283 outline1("LDA #$%2.2x", (unsigned char)( ( image->frameSize >> 8 ) & 0xff ) );
284 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "3" ) );
285
286 // BANK
287
288 outline1( "LDA #$%2.2x", (unsigned char)(image->bankAssigned&0xff) );
289 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "4" ) );
290
291 // INFO
292
293 outline0( "LDA #$37" );
294 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "5" ) );
295
296 // RESIDENT
297
298 #if !defined(__c64reu__)
299 char bankWindowName[MAX_TEMPORARY_STORAGE];
300 sprintf( bankWindowName, "BANKWINDOW%2.2x", image->residentAssigned );
301 outline1("LDA #<%s", bankWindowName);
302 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "6" ) );
303 outline1("LDA #>%s", bankWindowName);
304 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "7" ) );
305 #endif
306
307 // TABLE1
308
309 outline1("LDA #<%soffsetframe", image->realName);
310 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "8" ) );
311 outline1("LDA #>%soffsetframe", image->realName);
312 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "9" ) );
313
314 // TABLE2
315
316 outline1("LDA #<%soffsetsequence", image->realName);
317 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "10" ) );
318 outline1("LDA #>%soffsetsequence", image->realName);
319 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "11" ) );
320
321 } else {
322
323 // BASE
324
325 outline1("LDA #<%s", image->realName);
326 outline1( "STA %s", imageRef->realName );
327 outline1("LDA #>%s", image->realName);
328 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "1" ) );
329
330 // SIZE
331
332 outline1("LDA #$%2.2x", (unsigned char)( image->frameSize & 0xff ) );
333 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "2" ) );
334 outline1("LDA #$%2.2x", (unsigned char)( ( image->frameSize >> 8 ) & 0xff ) );
335 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "3" ) );
336
337 // BANK
338
339 // outline1( "LDA #$%2.2x", image->bankAssigned );
340 // outline1( "STA %s+4", imageRef->realName );
341
342 // INFO
343
344 outline0( "LDA #$13" );
345 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "5" ) );
346
347 // RESIDENT
348
349 // char bankWindowName[MAX_TEMPORARY_STORAGE];
350 // sprintf( bankWindowName, "BANKWINDOW%2.2x", image->residentAssigned );
351
352 // outline1( "LDX #%s", bankWindowName );
353 // outline1( "STX %s+6", imageRef->realName );
354
355 // TABLE1
356
357 outline1("LDA #<%soffsetframe", image->realName);
358 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "8" ) );
359 outline1("LDA #>%soffsetframe", image->realName);
360 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "9" ) );
361
362 // TABLE2
363
364 outline1("LDA #<%soffsetsequence", image->realName);
365 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "10" ) );
366 outline1("LDA #>%soffsetsequence", image->realName);
367 outline1( "STA %s", address_displacement( _environment, imageRef->realName, "11" ) );
368
369 }
370
371 break;
372
373 default:
374 CRITICAL_IMAGEREF_ON_NON_IMAGE( _image );
375 }
376
377 // FRAME WIDTH
378 outline1( "LDA #$%2.2x", image->frameWidth );
379 outline1( "STA %s+12", imageRef->realName );
380
381 // FRAME WIDTH
382 outline1( "LDA #$%2.2x", image->frameHeight );
383 outline1( "STA %s+13", imageRef->realName );
384
385 return imageRef;
386
387}
388
389#endif
variable_retrieve
Variable * variable_retrieve(Environment *_environment, char *_name)
Definition _infrastructure.c:988
variable_temporary
Variable * variable_temporary(Environment *_environment, VariableType _type, char *_meaning)
Define a temporary variable.
Definition _infrastructure.c:1388
address_displacement
char * address_displacement(Environment *_environment, char *_address, char *_displacement)
Definition _infrastructure.c:14516
image_ref
Variable * image_ref(Environment *_environment, char *_image)
Definition image_ref.c:43
_Variable::bankAssigned
int bankAssigned
Definition ugbc.h:1172
_Variable::residentAssigned
int residentAssigned
Definition ugbc.h:1175
_Variable::absoluteAddress
int absoluteAddress
Definition ugbc.h:1092
_Variable::usedImage
int usedImage
Definition ugbc.h:1220
_Variable::type
VariableType type
Definition ugbc.h:988
_Variable::frameSize
int frameSize
Definition ugbc.h:1134
_Variable::frameWidth
int frameWidth
Definition ugbc.h:1162
_Variable::frameHeight
int frameHeight
Definition ugbc.h:1164
_Variable::realName
char * realName
Definition ugbc.h:982
MAX_TEMPORARY_STORAGE
#define MAX_TEMPORARY_STORAGE
Definition ugbc.h:563
CRITICAL_IMAGEREF_ON_NON_IMAGE
#define CRITICAL_IMAGEREF_ON_NON_IMAGE(v)
Definition ugbc.h:3755
Variable
struct _Variable Variable
Structure of a single variable.
Environment
struct _Environment Environment
Structure of compilation environment.
VT_IMAGEREF
@ VT_IMAGEREF
Definition ugbc.h:537
VT_IMAGES
@ VT_IMAGES
Definition ugbc.h:495
VT_IMAGE
@ VT_IMAGE
Definition ugbc.h:489
VT_SEQUENCE
@ VT_SEQUENCE
Definition ugbc.h:513
outline0
#define outline0(s)
Definition ugbc.h:4252
outline1
#define outline1(s, a)
Definition ugbc.h:4253