ugBASIC 1.18
An isomorphic BASIC language compiler for retrocomputers
Loading...
Searching...
No Matches
charset_at.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(__c64__) || defined(__c64reu__) || defined(__c128__)
42
59/* <usermanual>
60@keyword CHARSET AT
61@target c64
62</usermanual> */
63void charset_at( Environment * _environment, int _address ) {
64
65 outline0("LDA $d018" );
66 outline0("AND #$f1" );
67 outline1("ORA #$%2.2x", ( ( _address >> 11 ) & 0x07 ) << 1 );
68 outline0("STA $d018" );
69
70}
71
88void charset_at_var( Environment * _environment, char * _address ) {
89
90 outline1("LDA %s", address_displacement( _environment, _address, "1" ));
91 outline0("LSR" );
92 outline0("LSR" );
93 outline0("LSR" );
94 outline0("AND #$07" );
95 outline0("ASL" );
96 outline0("STA MATHPTR0" );
97 outline0("LDA $d018" );
98 outline0("AND #$f1" );
99 outline0("ORA MATHPTR0" );
100 outline0("STA $d018" );
101
102}
103
104void charset_uppercase( Environment * _environment ) {
105 charset_at( _environment, 0x1800 );
106}
107
108void charset_lowercase( Environment * _environment ) {
109 charset_at( _environment, 0x3800 );
110}
111
112#endif
char * address_displacement(Environment *_environment, char *_address, char *_displacement)
void charset_at_var(Environment *_environment, char *_address)
Definition charset_at.c:47
void charset_lowercase(Environment *_environment)
Definition charset_at.c:55
void charset_uppercase(Environment *_environment)
Definition charset_at.c:51
void charset_at(Environment *_environment, int _address)
Definition charset_at.c:43
struct _Environment Environment
Structure of compilation environment.
#define outline0(s)
Definition ugbc.h:4252
#define outline1(s, a)
Definition ugbc.h:4253