ugBASIC 1.18
An isomorphic BASIC language compiler for retrocomputers
Loading...
Searching...
No Matches
screen_mode.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
49void screen_mode( Environment * _environment, int _mode ) {
50
51 ScreenMode * mode = find_screen_mode_by_id( _environment, _mode );
52
53 if ( mode ) {
54
55 c6847_screen_mode_enable( _environment, mode );
56
57 _environment->currentMode = mode->id;
58 _environment->currentTileMode = mode->bitmap ? 0 : 1;
59
60 cpu_store_8bit( _environment, "CURRENTMODE", _environment->currentMode );
61 cpu_store_8bit( _environment, "CURRENTTILEMODE", _environment->currentTileMode );
62
63 } else {
64 WARNING_SCREEN_MODE( _mode );
65 }
66
67}
68
69void screen_type_color_set( Environment * _environment, int _type, int _color_set ) {
70
71 if ( _type == 0 ) {
72 tilemap_enable( _environment, 0, 0, 0, 0, 0 );
73 } else {
74 bitmap_enable( _environment, 0, 0, 0 );
75 }
76
77}
void cpu_store_8bit(Environment *_environment, char *_destination, int _value)
CPU 6309: emit code to store 8 bit
Definition 6309.c:761
int c6847_screen_mode_enable(Environment *_environment, ScreenMode *_screen_mode)
Definition 6847.c:325
ScreenMode * find_screen_mode_by_id(Environment *_environment, int _id)
void bitmap_enable(Environment *_environment, int _width, int _height, int _colors)
Emit ASM implementation for BITMAP ENABLE instruction.
void screen_type_color_set(Environment *_environment, int _type, int _color_set)
void screen_mode(Environment *_environment, int _mode)
Emit ASM code for SCREEN [mode].
void tilemap_enable(Environment *_environment, int _width, int _height, int _colors, int _tile_width, int _tile_height)
Emit ASM implementation for TEXT ENABLE instruction.
int currentMode
Definition ugbc.h:2696
int currentTileMode
Definition ugbc.h:2706
int bitmap
Definition ugbc.h:1496
struct _ScreenMode ScreenMode
#define WARNING_SCREEN_MODE(v1)
Definition ugbc.h:3878
struct _Environment Environment
Structure of compilation environment.