_init.c

Go to the documentation of this file.

/*****************************************************************************
 * ugBASIC - an isomorphic BASIC language compiler for retrocomputers        *
 *****************************************************************************
 * Copyright 2021-2026 Marco Spedaletti (asimov@mclink.it)
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *----------------------------------------------------------------------------
 * Concesso in licenza secondo i termini della Licenza Apache, versione 2.0
 * (la "Licenza"); è proibito usare questo file se non in conformità alla
 * Licenza. Una copia della Licenza è disponibile all'indirizzo:
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Se non richiesto dalla legislazione vigente o concordato per iscritto,
 * il software distribuito nei termini della Licenza è distribuito
 * "COSÌ COM'È", SENZA GARANZIE O CONDIZIONI DI ALCUN TIPO, esplicite o
 * implicite. Consultare la Licenza per il testo specifico che regola le
 * autorizzazioni e le limitazioni previste dalla medesima.
 ****************************************************************************/
 
/****************************************************************************
 * INCLUDE SECTION 
 ****************************************************************************/
 
#include "../../ugbc.h"
 
/****************************************************************************
 * CODE SECTION 
 ****************************************************************************/
 
extern char OUTPUT_FILE_TYPE_AS_STRING[][16];
 
void target_initialization( Environment * _environment ) {
 
    // MEMORY_AREA_DEFINE( MAT_RAM, 0xd000, 0xdff0 );
 
    // banks_init( _environment );
 
    int * bankIds = NULL;
    int bankMax = 0;
    int bankCount = 0;
 
    switch( _environment->ramSize ) {
        case 128:
            bankMax=16; /* 0...15 = 16 banks */
            break;
        case 256:
            bankMax=32; /* 0...31 = 32 banks */
            break;
        case 512:
            bankMax=64; /* 0...63 = 64 banks */
            break;
        case 1024:
            bankMax=128; /* 0...127 = 128 banks */
            break;
        case 2048:
            bankMax=256; /* 0...255 = 256 banks */
            break;
        case 0:
            bankMax=-1; 
            break;
        default:
            CRITICAL_INVALID_RAM_SIZE( _environment->ramSize );
            break;
    }
 
    if ( bankMax > 2 ) {
 
        bankIds = malloc( sizeof( int ) * (bankMax-2) );
        
        for( int i=2; i<bankMax; ++i ) {
            bankIds[i-2] = 4 + bankMax - ( i ) - 1;
            ++bankCount;
        }
 
        banks_init_extended( _environment, bankIds, bankCount, BANK_SIZE );
 
    }
 
    banks_generate( _environment );
 
    _environment->audioConfig.async = 1;
 
    variable_import( _environment, "A8BANK", VT_BYTE, 4 );
    variable_global( _environment, "A8BANK" );
 
    variable_import( _environment, "DOJOERROR", VT_BYTE, 0 );
    variable_global( _environment, "DOJOERROR" );
 
    variable_import( _environment, "DLOADERR", VT_BYTE, 0 );
    variable_global( _environment, "DLOADERR" );
    variable_import( _environment, "DSAVEERR", VT_BYTE, 0 );
    variable_global( _environment, "DSAVEERR" );
 
    variable_import( _environment, "TIMERRUNNING", VT_BYTE, 0 );
    variable_global( _environment, "TIMERRUNNING" );
    variable_import( _environment, "TIMERSTATUS", VT_BYTE, 0 );
    variable_global( _environment, "TIMERSTATUS" );
    variable_import( _environment, "TIMERCOUNTER", VT_BUFFER, 16 );
    variable_global( _environment, "TIMERCOUNTER" );
    variable_import( _environment, "TIMERINIT", VT_BUFFER, 16 );
    variable_global( _environment, "TIMERINIT" );
    variable_import( _environment, "TIMERADDRESS", VT_BUFFER, 16 );
    variable_global( _environment, "TIMERADDRESS" );
 
    variable_import( _environment, "BITMAPADDRESS", VT_ADDRESS, 0x0000 );
    variable_global( _environment, "BITMAPADDRESS" );
    variable_import( _environment, "TILESADDRESS", VT_ADDRESS, 0x0000 );
    variable_global( _environment, "TILESADDRESS" );    
    variable_import( _environment, "EMPTYTILE", VT_TILE, 32 );
    variable_global( _environment, "EMPTYTILE" );    
    variable_import( _environment, "USING", VT_BYTE, 0 );
 
    variable_import( _environment, "COPYOFBITMAPADDRESS", VT_ADDRESS, 0x0000 );
    variable_global( _environment, "COPYOFBITMAPADDRESS" );
    variable_import( _environment, "COPYOFCOLORMAPADDRESS", VT_ADDRESS, 0x0000 );
    variable_global( _environment, "COPYOFCOLORMAPADDRESS" );
    variable_import( _environment, "COPYOFTEXTADDRESS", VT_ADDRESS, 0x0000 );
    variable_global( _environment, "COPYOFTEXTADDRESS" );    
    variable_import( _environment, "COPYOFTILESADDRESS", VT_ADDRESS, 0x0000 );
    variable_global( _environment, "COPYOFTILESADDRESS" );    
 
    variable_import( _environment, "VDPDATAPORTREAD", VT_BYTE, 0x98 );
    variable_global( _environment, "VDPDATAPORTREAD" );
 
    variable_import( _environment, "VDPDATAPORTWRITE", VT_BYTE, 0x98 );
    variable_global( _environment, "VDPDATAPORTWRITE" );
 
    variable_import( _environment, "VDPCONTROLPORTREAD", VT_BYTE, 0x99 );
    variable_global( _environment, "VDPCONTROLPORTREAD" );
 
    variable_import( _environment, "VDPCONTROLPORTWRITE", VT_BYTE, 0x99 );
    variable_global( _environment, "VDPCONTROLPORTWRITE" );
 
    variable_import( _environment, "ISRSVC2", VT_BUFFER, 3 );
    variable_global( _environment, "ISRSVC2" );
 
    variable_import( _environment, "BANKSHADOW", VT_BYTE, 0 );
 
    variable_import( _environment, "TICKSPERSECOND", VT_BYTE, 0 );
    variable_global( _environment, "TICKSPERSECOND" );   
 
    variable_import( _environment, "JOYSTICK0", VT_BYTE, 0 );
    variable_global( _environment, "JOYSTICK0" );   
    variable_import( _environment, "JOYSTICK1", VT_BYTE, 0 );
    variable_global( _environment, "JOYSTICK1" );   
 
    variable_import( _environment, "AY8910TIMER", VT_BUFFER, 6 );
    variable_global( _environment, "AY8910TIMER" );    
 
    variable_import( _environment, "KBDCHAR", VT_BYTE, 0 );
    variable_global( _environment, "KBDCHAR" );
 
    variable_import( _environment, "DATAPTR", VT_ADDRESS, 0 );
    variable_global( _environment, "DATAPTR" );
 
    variable_import( _environment, "SCANCODEREAD", VT_BUFFER, 16 );
    variable_global( _environment, "SCANCODEREAD" );
 
    variable_import( _environment, "KEYBOARDPRESSED", VT_BYTE, 0 );
    variable_global( _environment, "KEYBOARDPRESSED" );
 
    variable_import( _environment, "KEYBOARDACTUAL", VT_BYTE, 0xff );
    variable_global( _environment, "KEYBOARDACTUAL" );
 
    variable_import( _environment, "KEYBOARDELAPSED", VT_BYTE, 0 );
    variable_global( _environment, "KEYBOARDELAPSED" );
 
    variable_import( _environment, "KEYBOARDASFSTATE", VT_BYTE, 0 );
    variable_global( _environment, "KEYBOARDASFSTATE" );
 
    variable_import( _environment, "KEYBOARDQUEUEWPOS", VT_BYTE, 0 );
    variable_global( _environment, "KEYBOARDQUEUEWPOS" );
 
    variable_import( _environment, "KEYBOARDQUEUERPOS", VT_BYTE, 0 );
    variable_global( _environment, "KEYBOARDQUEUERPOS" );
 
    variable_import( _environment, "KEYBOARDQUEUE", VT_BUFFER, 10 );
    variable_global( _environment, "KEYBOARDQUEUE" );
 
    variable_import( _environment, "KEYBOARDINKEY", VT_BYTE, 0xff );
    variable_global( _environment, "KEYBOARDINKEY" );
 
    variable_import( _environment, "KEYBOARDSHIFT", VT_BYTE, 0 );
    variable_global( _environment, "KEYBOARDSHIFT" );
 
    for( int i=0; i<MAX_RESIDENT_SHAREDS; ++i ) {
        if ( _environment->maxExpansionBankSize[i] ) {
            
            char variableName[MAX_TEMPORARY_STORAGE];
 
            sprintf( variableName, "BANKWINDOW%2.2x", i);
            variable_import( _environment, variableName, VT_BUFFER, _environment->maxExpansionBankSize[i] );
            variable_global( _environment, variableName );
 
            sprintf( variableName, "BANKWINDOWID%2.2x", i);
            variable_import( _environment, variableName, VT_WORD, 0xffff );
            variable_global( _environment, variableName );
        }
    } 
    
    bank_define( _environment, "VARIABLES", BT_VARIABLES, 0x5000, NULL );
    bank_define( _environment, "TEMPORARY", BT_TEMPORARY, 0x5100, NULL );
 
    // outhead0("SECTION code_user");
    // if ( _environment->outputFileType == OUTPUT_FILE_TYPE_ROM ) {
    //     outhead0("ORG $4000");
    // } else {
    //     outhead0("ORG $8100");
    // }
    // outhead0("SECTION data_user");
    // outhead0("ORG $C000");
 
    // outhead0("SECTION code_user");
 
    // if ( _environment->outputFileType == OUTPUT_FILE_TYPE_ROM ) {
    //     // +0    ID  Put these first two bytes at 041H and 042H ("AB") to indicate that it is an additional ROM.
    //     // +2    INIT    Address of the routine to call to initialize a work area or I/O ports, or run a game, etc. The system calls the address from INIT of each ROM header during the MSX initialisation in that order.
    //     // +4    STATEMENT   Runtime address of a program whose purpose is to add instructions to the MSX-Basic using CALL. STATEMENT is called by CALL instructions. It is ignored when 0000h. It is not called at MSX start up.
    //     // +6    DEVICE  Execution address of a program used to control a device built into the cartridge. For example, a disk interface. It is not called at MSX start up.
    //     // +8    TEXT    Pointer of the tokenizen Basic program contained in ROM. TEXT must be always an address more than 8000h and be specified in the header of the page 8000h-BFFFh. In other cases, it must always be 0000h under penalty of causing crash or bug.
    //     // +10   Reserved    6 bytes reserved for future updates.
    //     outline0("DEFB $41, $42");
    //     outline0("DEFW CODESTART");
    //     outline0("DEFW $0");
    //     outline0("DEFW $0");
    //     outline0("DEFW $0");
    //     outline0("DEFW $0");
    //     outline0("DEFW $0");
    //     outline0("DEFW $0");
 
    //     outhead0("CODESTART:")
        
    //     outline0("CALL $0138");
    //     outline0("RRCA");
    //     outline0("RRCA");
    //     outline0("AND 3");
    //     outline0("LD C, A");
    //     outline0("LD B, 0");
    //     outline0("LD HL, $FCC1");
    //     outline0("ADD HL, BC");
    //     outline0("LD A, (HL)");
    //     outline0("AND $80");
    //     outline0("OR C");
    //     outline0("LD C, A");
    //     outline0("INC HL");
    //     outline0("INC HL");
    //     outline0("INC HL");
    //     outline0("INC HL");
    //     outline0("LD A, (HL)");    
    //     outline0("AND $C" );
    //     outline0("OR C");
    //     outline0("LD H, $80");
    //     outline0("CALL $0024");
 
    // } else {
    //     outhead0("CODESTART:")
    //     outline0("LD HL, $8000");
    //     outline0("LD ($f23d), HL");
    // }
 
    outhead0("CODESTART2:");
 
    outline0("CALL VARINIT2");
    cpu_call( _environment, "VARINIT" );
    outline0("CALL PROTOTHREADINIT" );
 
    cpu_init( _environment );
    _environment->program.startingAddress = 0x4010;
    _environment->stackSize = 0xf08e - _environment->program.startingAddress;
    _environment->stackStartAddress = 0xf08e;
 
    deploy_preferred( startup, src_hw_msx1_startup_asm);
 
    outline0("CALL MSX1STARTUP" );
 
    setup_text_variables( _environment );
 
    tms9918_initialization( _environment );
    ay8910_initialization( _environment );
    
    if ( _environment->tenLinerRulesEnforced ) {
        shell_injection( _environment );
        outline0("CALL VARINIT");
    }
 
}
 
void interleaved_instructions( Environment * _environment ) {
 
}