void gem_main(void)
{
WORD i;
const BITBLK *tmpadbi;
sh_rdinf(); /* get start of emudesk.inf */
if (!gl_changerez) /* can't be here because of rez change, */
process_inf1(); /* so see if .inf says we need to change rez */
if (gl_changerez) {
switch(gl_changerez) {
#if CONF_WITH_SHIFTER
case 1: /* ST(e) or TT display */
Setscreen(-1L,-1L,gl_nextrez-2,0);
initialise_palette_registers(gl_nextrez-2,0);
break;
#endif
#if CONF_WITH_VIDEL
case 2: /* Falcon display */
Setscreen(-1L, -1L, FALCON_REZ, gl_nextrez);
initialise_palette_registers(FALCON_REZ,gl_nextrez);
break;
#endif
}
gsx_wsclear(); /* avoid artefacts that may show briefly */
}
totpds = NUM_PDS;
ml_ocnt = 0;
gl_changerez = FALSE;
ini_dlongs(); /* init longs */
cli();
takecpm(); /* take the 0efh int. */
/* init event recorder */
gl_recd = FALSE;
gl_rlen = 0;
gl_rbuf = 0x0L;
/* initialize pointers to heads of event list and thread list */
elinkoff = (BYTE *) &(D.g_intevb[0].e_link) - (BYTE *) &(D.g_intevb[0]);
/* link up all the evb's to the event unused list */
eul = NULLPTR;
ev_init(&D.g_intevb[0], NUM_IEVBS);
if (totpds > 2)
ev_init(&D.g_extevb[0], NUM_EEVBS);
/* initialize sync blocks */
wind_spb.sy_tas = 0;
wind_spb.sy_owner = NULLPTR;
wind_spb.sy_wait = 0;
/*
* init processes - TODO: should go in gempd or gemdisp.
*/
/* initialize list and unused lists */
nrl = drl = NULLPTR;
dlr = zlr = NULLPTR;
fph = fpt = fpcnt = 0;
/* init initial process */
for(i=totpds-1; i>=0; i--)
{
rlr = pd_index(i);
if (i < 2)
{
rlr->p_uda = &D.g_intuda[i];
rlr->p_cda = &D.g_intcda[i];
}
else
{
rlr->p_uda = &D.g_extuda[i-2];
rlr->p_cda = &D.g_extcda[i-2];
}
rlr->p_qaddr = (LONG)(&rlr->p_queue[0]);
rlr->p_qindex = 0;
memset(rlr->p_name, ' ', 8);
rlr->p_appdir[0] = '\0'; /* by default, no application directory */
/* if not rlr then initialize his stack pointer */
if (i != 0)
rlr->p_uda->u_spsuper = &rlr->p_uda->u_supstk;
rlr->p_pid = i;
rlr->p_stat = 0;
}
curpid = 0;
rlr->p_pid = curpid++;
rlr->p_link = NULLPTR;
/* end of process init */
/* restart the tick */
sti();
/*
* screen manager process init. this process starts out owning the mouse
* and the keyboard. it has a pid == 1
*/
gl_dacnt = 0;
gl_mowner = ctl_pd = iprocess("SCRENMGR", ctlmgr);
/* load gem resource and fix it up before we go */
gem_rsc_init();
{
/* get mice forms */
ad_armice = *(LONG *)&rs_bitblk[MICE00];
ad_hgmice = *(LONG *)&rs_bitblk[MICE02];
/* init button stuff */
gl_btrue = 0x0;
gl_bdesired = 0x0;
gl_bdely = 0x0;
gl_bclick = 0x0;
gl_logdrv = dos_gdrv() + 'A'; /* boot directory */
gsx_init(); /* do gsx open work station */
/* load all desk acc's */
if (totpds > 2)
ldaccs();
/* fix up icons */
for(i=0; i<3; i++) {
tmpadbi = &rs_bitblk[NOTEBB+i];
memcpy((char *)&bi, tmpadbi, sizeof(BITBLK));
gsx_trans(bi.bi_pdata, bi.bi_wb, bi.bi_pdata, bi.bi_wb, bi.bi_hl);
}
/* take the critical err handler int. */
cli();
takeerr();
sti();
/* go into graphic mode */
sh_tographic();
/* take the tick int. */
cli();
gl_ticktime = gsx_tick(tikaddr, &tiksav);
sti();
/* set init. click rate: must do this after setting gl_ticktime */
ev_dclick(3, TRUE);
/* fix up the GEM rsc. file now that we have an open WS */
gem_rsc_fixit();
/* get st_desk ptr */
ad_stdesk = (LONG) rs_trees[DESKTOP];
/* init. window vars. */
wm_start();
/* startup gem libs */
fs_start();
/* remember current desktop directory */
sh_curdir(D.s_cdir);
/* process emudesk.inf part 2 */
process_inf2();
/* off we go !!! */
dsptch();
/* let them run */
all_run();
/*
* init for shell loop up thru here it is okay for system to
* overlay this initialization code
*/
sh_init();
/*
* main shell loop. From here on down data should not overlay
* this code
*/
sh_main();
/* give back the tick */
cli();
gl_ticktime = gsx_tick(tiksav, &tiksav);
sti();
/* close workstation */
gsx_wsclose();
}
/* return GEM's 0xEF int*/
cli();
givecpm();
sti();
}
void gem_main(void)
{
WORD i;
sh_rdinf(); /* get start of emudesk.inf */
if (!gl_changerez) /* can't be here because of rez change, */
process_inf1(); /* so see if .inf says we need to change rez */
if (gl_changerez) {
switch(gl_changerez) {
#if CONF_WITH_ATARI_VIDEO
case 1: /* ST(e) or TT display */
Setscreen(-1L,-1L,gl_nextrez-2,0);
initialise_palette_registers(gl_nextrez-2,0);
break;
#endif
#if CONF_WITH_VIDEL
case 2: /* Falcon display */
Setscreen(-1L, -1L, FALCON_REZ, gl_nextrez);
initialise_palette_registers(FALCON_REZ,gl_nextrez);
break;
#endif
}
gsx_wsclear(); /* avoid artefacts that may show briefly */
/*
* resolution change always resets the default drive to the
* boot device. TOS3 issues a Dsetdrv() when this happens,
* which Hatari's GEMDOS drive emulation uses to keep track
* of the current drive. we do the same.
*/
dos_sdrv(bootdev);
}
ml_ocnt = 0;
gl_changerez = FALSE;
mn_init(); /* initialise variables for menu_register() */
num_accs = count_accs(); /* puts ACC names in acc_name[] */
D.g_acc = NULL;
if (num_accs)
D.g_acc = dos_alloc(num_accs*sizeof(AESPROCESS));
if (D.g_acc)
memset(D.g_acc,0x00,num_accs*sizeof(AESPROCESS));
else num_accs = 0;
totpds = num_accs + 2;
disable_interrupts();
set_aestrap(); /* set trap#2 -> aestrap */
/* init event recorder */
gl_recd = FALSE;
gl_rlen = 0;
gl_rbuf = NULL;
/* link up all the evb's to the event unused list */
eul = NULL;
for (i = 0; i < 2; i++)
ev_init(D.g_int[i].a_evb,EVBS_PER_PD);
for (i = 0; i < num_accs; i++)
ev_init(D.g_acc[i].a_evb,EVBS_PER_PD);
/* initialize sync blocks */
wind_spb.sy_tas = 0;
wind_spb.sy_owner = NULL;
wind_spb.sy_wait = 0;
/*
* init processes - TODO: should go in gempd or gemdisp.
*/
/* initialize list and unused lists */
nrl = drl = NULL;
dlr = zlr = NULL;
fph = fpt = fpcnt = 0;
/* init initial process */
for(i=totpds-1; i>=0; i--)
{
rlr = pd_index(i);
if (i < 2)
{
rlr->p_uda = &D.g_int[i].a_uda;
rlr->p_cda = &D.g_int[i].a_cda;
}
else
{
rlr->p_uda = &D.g_acc[i-2].a_uda;
rlr->p_cda = &D.g_acc[i-2].a_cda;
}
rlr->p_qaddr = rlr->p_queue;
rlr->p_qindex = 0;
memset(rlr->p_name, ' ', AP_NAMELEN);
rlr->p_appdir[0] = '\0'; /* by default, no application directory */
/* if not rlr then initialize his stack pointer */
if (i != 0)
rlr->p_uda->u_spsuper = &rlr->p_uda->u_supstk;
rlr->p_pid = i;
rlr->p_stat = 0;
}
curpid = 0;
rlr->p_pid = curpid++;
rlr->p_link = NULL;
/* end of process init */
/* restart the tick */
enable_interrupts();
/*
* screen manager process init. this process starts out owning the mouse
* and the keyboard. it has a pid == 1
*/
gl_mowner = ctl_pd = iprocess("SCRENMGR", ctlmgr);
/*
* run the accessories and the desktop until termination
* (for shutdown or resolution change)
*/
aes_run_rom_program(accdesk_start);
/* restore previous trap#2 address */
disable_interrupts();
unset_aestrap();
enable_interrupts();
if (D.g_acc)
dos_free((LONG)D.g_acc);
}