QL_config.c

/*
 * (c) UQLX - see COPYRIGHT
 */


#include "QL68000.h"
#include "QL.h"
#include <stdio.h>
#include "xcodes.h"
#include "QDOS.h"
#include "QL_config.h"
#include "unix.h"

/*#include "QTimer.h"
#include "QColor.h"
#include "QSound.h"
#include "QDisk.h" 
#include "QSerial.h" */
#include <string.h>
/*#include "ConfigDialog.h"
#include "QFilesPriv.h" */

#include "uqlx_cfg.h"
#include "qx_proto.h"


static short	ramItem=-1;
extern int do_update;

static Cond qemlPatch=false;

int isMinerva=0;
uw32 orig_kbenc;

int testMinervaVersion(char *ver);

Cond RamCheck(void)
{	/* check ram preferences and available RAM */
}

#if 0
static Boolean CreateRamMenu(void)
{	MenuHandle		menu;
	short			i;
	unsigned char	s[20];

	/* menu creation deleted */

	return RamCheck();
}
#endif


#if 0
static short QL_memory(void)
{	short j;

	j=AllocateMemory();
	if(j!=0) return j;
	RTOP=131072l+(long)qc.ram*1024;
	ramTop=(w32*)((Ptr)theROM+RTOP);

/* codici RamMap: 1=ROM 3=RAM 7=VIDEO 8=HW 0=niente
	ovvero:	bit 0=read permission
			bit 1=write permission
			bit 2=video memory
			bit 3=hardware register
			bit 6=hardware expansion (unused)
*/
	for(j=5;j<128;j++) RamMap[j]=0;		/* empty	*/
	RamMap[0]=RamMap[1]=1;          	/* QL ROM	*/
	RamMap[2]=1;				/* hidden emulator add-on */
	RamMap[3]=8;     			/* QL I/O	*/
	RamMap[4]=7;				/* QL video buffer */
	for(j=5;j<(RTOP>>15);j++) RamMap[j]=3;		/* QL RAM */

	ClearDisplay();

	return 0;
}


static void SetName(unsigned char *dest,unsigned char *source)
{	BlockMoveData(source,dest,source[0]+1);
}

static OSErr GetStandardConfig(void)
{	qc.ram=4096;
	qc.fastStartup=false;
	qc.startSession=false;
	qc.backRom.active=false;
	qc.backRom.initRoutine=true;
	qc.hasFloppy=qc.hasHDisk=true;
	SetName(qc.floppyName,"Flp");
	SetName(qc.hDiskName,"Win");
	SetName(qc.mainRom,"QL_ROM");
	SetName(qc.backRom.name,"");
	qc.soundActive=false;
	qc.ser1=0;
	qc.ser2=1;
	qc.ignoreHandshake1=qc.ignoreHandshake2=false;
	qc.intFrequency=1;
	qc.keyMode=1;
/*	prefChanged=true; */
	return 0;
}

static OSErr GetConfig(void)
{	/* load configuratin from preference file to qc variable (deleted) */
	/* if preferences not found return GetStandardConfig(); */
}
#endif


Cond LookFor(w32 *a,uw32 w,long nMax)
{	
  while(nMax-->0 && RL((Ptr)theROM+(*a))!=w) (*a)+=2;
  return nMax>0;
}
static Cond LookFor2(w32 *a,uw32 w,uw16 w1,long nMax)
{	
 rty:
  while(nMax-->0 && RL((Ptr)theROM+(*a))!=w) (*a)+=2;
  if (RW((Ptr)theROM+(*a)+4)==w1)
    return nMax>0;
  (*a)+=2;
  if (nMax>0) goto rty;
  return 0;
}

static void PatchKeyTrans(void)
{
  KEYTRANS_CMD_ADDR=RL((Ptr)theROM+0xbff2);
  KEYTRANS_OCODE=RW((uw16*)((Ptr)theROM+KEYTRANS_CMD_ADDR));
  WW(((uw16*)((Ptr)theROM+KEYTRANS_CMD_ADDR)),KEYTRANS_CMD_CODE);
}

static Cond PatchFind(void)
{	
  Cond ok;
  
  IPC_CMD_ADDR=0x2b80;
  IPCR_CMD_ADDR=0x2e98;
  IPCW_CMD_ADDR=0x2e78;
  ok=LookFor(&IPC_CMD_ADDR,0x40e7007c,2000);
  if(ok) ok=LookFor(&IPCR_CMD_ADDR,0x12bc000e,2000);
  if(ok) ok=LookFor(&IPCW_CMD_ADDR,0xe9080000,2000);
  return ok;
}

static Cond InstallQemlRom(void)
{
  if(!qemlPatch)
    {
      if (isMinerva) 
	{
	  ROMINIT_CMD_ADDR=0x0;
	  qemlPatch=LookFor2(&ROMINIT_CMD_ADDR,0x0c934afbl,1,48*1024);
	  if (testMinervaVersion("1.89"))
	    {
	      uw32 mpatch_addr=0x4e6;
	      if(V3)printf("Minerva 1.89, checking for >1MB patch\n");
	      if ( RW((Ptr)theROM+mpatch_addr)==0xd640 )
		{
		  WW((Ptr)theROM+mpatch_addr,0xd680);
		  if(V3)printf("....applied patch\n");
		}
	    }
	}
      
      else /* not Minerva */
	{
	  ROMINIT_CMD_ADDR=0x4a00;
	  qemlPatch=LookFor(&ROMINIT_CMD_ADDR,0x0c934afbl,1000);
	}
      if (!qemlPatch)	   
	printf("Warning: could not patch ROM scan sequence\n");
      if(qemlPatch)
	{
	  WW(((uw16*)((Ptr)theROM+ROMINIT_CMD_ADDR)),ROMINIT_CMD_CODE);
	  WW(((uw16*)((Ptr)theROM+MDVIO_CMD_ADDR)),MDVIO_CMD_CODE);	/* device driver routines */
	  WW(((uw16*)((Ptr)theROM+MDVO_CMD_ADDR)),MDVO_CMD_CODE);
	  WW(((uw16*)((Ptr)theROM+MDVC_CMD_ADDR)),MDVC_CMD_CODE);
	  WW(((uw16*)((Ptr)theROM+MDVSL_CMD_ADDR)),MDVSL_CMD_CODE);
	  WW(((uw16*)((Ptr)theROM+MDVFO_CMD_ADDR)),MDVFO_CMD_CODE);
#ifdef SERIAL
#ifndef NEWSERIAL
	  if(isMinerva)
	    {
	      printf("sorry, old style SER driver won't work\n");
	      return qemlPatch;
	    }
	  else
	    {
	      WW (((uw16 *) ((Ptr) theROM + 0xbb6l)), OSERIO_CMD_CODE);	/* I/O */
	      WW (((uw16 *) ((Ptr) theROM + 0xad0l)), OSERO_CMD_CODE);	/* Open */
	      WW (((uw16 *) ((Ptr) theROM + 0xb8el)), OSERC_CMD_CODE);	/* Close */
	    }
#endif
#endif
	}
    }
  return qemlPatch;
}


static Cond ReasonableROM(w32 *r)
{
  short i;
  w16	ut;

  if((RL(&r[1])<0) || (RL(&r[1])>=49151) || ((short)RL(&r[1])&1)!=0) 
    return false;
  for(i=3; i<10; i++) 
    if(RL(&r[i])<0 || RL(&r[i])>=49151 || ((short)RL(&r[i])&1)!=0) return false;
  if(RL(&r[26])<0 || RL(&r[26])>=49151 || ((short)RL(&r[26])&1)!=0) return false;
  for(i=32; i<48; i++) 
    if(RL(&r[i])<0 || RL(&r[i])>=49151 || ((short)RL(&r[i])&1)!=0) return false;
  for(i=0xc0; i<0xd6; i+=2)
    {	ut=RW((w16*)((Ptr)r+i));
    if(ut<0 || (ut&1)!=0) return false;
    }
  for(i=0xd8; i<=0x12a; i+=2)
    {	ut=RW((w16*)((Ptr)r+i));
    if(ut<0 || (ut&1)!=0) return false;
    }
  return true;
}
/* presently simply search for "QView" */
int testMinerva(void)
{
  char *p=(char *)theROM;
  char *limit=(Ptr)theROM+48*1024;
  
  do
    {
/*       p=memchr(p,'Q',limit-p); */
/*       if (!p) return 0; */
/*       if (!memcmp(++p,"View",4)) return 1; */

      p=memchr(p,'J',limit-p);
      if (!p) return 0;
      if (!memcmp(++p,"SL1",3)) return 1;
    } while (p && p<limit);

  return 0;
}

int testMinervaVersion(char *ver)
{
  char *p=(char *)theROM;
  char *limit=(Ptr)theROM+48*1024;
  
  do
   {
      p=memchr(p,ver[0],limit-p);
      if (!p) return 0;
      if (!memcmp(++p,&ver[1],3)) return 1;
   } while (p && p<limit);
  return 0;
}

short LoadMainRom(void) /* load and modify QL ROM */
{
  short e;

  w32 a;
  Cond p;


  qemlPatch=false;

  p=1;/*ReasonableROM(theROM);*/
 
  isMinerva=testMinerva();
  if (isMinerva)
    if(V3)printf("using Minerva ROM\n");

  //if(V1)printf("no_patch: %d\n",QMD.no_patch);

  if (p && !QMD.no_patch)
    {	
      if (!isMinerva)
	{
	  if(p) p=PatchFind();
	  if(p)
	    {
	  
	      WW((((Ptr)theROM+IPC_CMD_ADDR)), IPC_CMD_CODE);
	      WW((((Ptr)theROM+IPCR_CMD_ADDR)), IPCR_CMD_CODE);
	      WW((((Ptr)theROM+IPCW_CMD_ADDR)), IPCW_CMD_CODE);
	    }
	}
      
      WW((((Ptr)theROM+0x4000+RW((uw16*)((Ptr)theROM+0x124)))), MDVR_CMD_CODE);	/* read mdv sector */
      WW((((Ptr)theROM+0x4000+RW((uw16*)((Ptr)theROM+0x126)))), MDVW_CMD_CODE);	/* write mdv sector */
      WW(((uw16*)((Ptr)theROM+0x4000+RW((uw16*)((Ptr)theROM+0x128)))), MDVV_CMD_CODE);	/* verify mdv sector */
      WW(((uw16*)((Ptr)theROM+0x4000+RW((uw16*)((Ptr)theROM+0x12a)))), MDVH_CMD_CODE);	/* read mdv sector header */

      if(!isMinerva && QMD.fastStartup) WW(((uw16*)((Ptr)theROM+RL(&theROM[1]))),  FSTART_CMD_CODE);		/* fast startup patch */
      /* FastStartup() -- 0xadc7 */
      
      if (!isMinerva)
	{
	  /* correct bugs which crashes the QL with 4M ram */
	  a=0x250;
	  p=LookFor(&a,0xd6c028cb,6);
	  if(p)
	    {	WW(((uw16*)((Ptr)theROM+a)),0xd7c0);
	    a=0x3120;
	    p=LookFor(&a,0xd2c02001,250);
	    }
	  else if(V3)printf("looks like ROM doesn't have 16MB bugs\n");
	  if(p)
	    {	WW(((uw16*)((Ptr)theROM+a)),0xd3c0);
	    a=0x4330;
	    p=LookFor(&a,0x90023dbc,120);
	    if(p) WW(((uw16*)((Ptr)theROM+a)),0x9802);
	    }
	  
	  PatchKeyTrans();
	}
      
       p=InstallQemlRom(); 
      
      
    }
  if (!p && !QMD.no_patch) printf("warning : could not complete ROM patch\n");

  /* last not least intrument the ROM code HW register access */

  instrumentCode();
  
  if(e==0 && !p) e=ERR_ROM_UNKNOWN;
  return e;
}


void save_regs(void *p)
{
  memcpy(p,reg,14*4);
}
void restore_regs(void *p)
{
  memcpy(reg,p,14*4);
}

extern int tracetrap;

void InitROM(void)
{
  w32 saved_regs[16];
  char qvers[6];
  char *initstr="UQLX v%s, release\012      %s\012QDOS Version %s\012";
  long sysvars,sxvars;



	if((long)((Ptr)gPC-(Ptr)theROM)-2 != ROMINIT_CMD_ADDR)
	{	exception=4;
		extraFlag=true;
		return;
	}
#if 0
	printf("a6=%x, basic at %x\n",aReg[6],ReadLong(0x28010));
#endif	

	save_regs(saved_regs);

	do_update=1;  /* flip in screen RAM */

#ifdef OLD_PATCH
	/* lea $0C000,a3 */
	aReg[3]=0x0c000;
	gPC+=2;
#else
#if defined(USE_VM) || defined(VM_SCR)
	vm_off(); 
#endif

	WW((Ptr)gPC-2,0x0c93);   /* restore original instruction */
#endif
#if 0	
	KillSound();
	CloseSerial();
	InitSerial();
	ZeroKeyboardBuffer();
#endif


	/* delete old MDV drivers (for optical reasons) */
	WriteLong(0x28048,0);

	InitFileDrivers();
	InitDrivers();

#ifdef XSCREEN
	/*printf("call init_xscreen\n");*/
	init_xscreen();
#else
#warning UNUSED XSCREEN
#endif


	SchedInit();

	init_bas_exts();

	QLtrap(1,0,20000l);
#if 0
	printf("QDOS vars at %x, trap res=%d, RTOP=%d\n",aReg[0],reg[0],RTOP);
#endif

	sysvars=aReg[0];
	sxvars=RL((Ptr)theROM+sysvars+0x7c);
#if 0
	if (isMinerva)
	  printf("Minerva extended vars at %x\n",sxvars);
#endif
	if (V3)
	  printf("sysvars at %x, ux RAMTOP %d, sys.ramt %d, qlscreen at %d\n",
		 sysvars,RTOP,sysvar_l(20),qlscreen.qm_lo);

	// QDOS version
	WL((Ptr)qvers,reg[2]);qvers[4]=0;
       
#if 0
	p=(Ptr)theROM+RTOP-0x07FFEl;
	sprintf(p,initstr,uqlx_version,release,qvers);
	WriteWord(aReg[1]=RTOP-0x08000l,strlen(p));	

#if 1
	QLvector(0xd0,200000);
#else
	WriteLong((*sp)-=4,(w32)gPC-(w32)theROM);
	gPC=(uw16*)((Ptr)theROM+RW((uw16*)((Ptr)theROM+0xd0)));	/* write string */
#endif
#endif

	/*HACK: allow breakpoints in ROM*/
#if DEBUG_ROM
	RamMap[0]=RamMap[1]=RamMap[2]=3;
	uqlx_protect(0,3*32768,QX_RAM);
#endif
	/* now install TKII defaults */

	reg[1]=0x6c;
	reg[2]=0;
	QLtrap(1,0x18,200000);
	if(reg[0]==0){
	  if (V3)printf("Initialising TK2 device defaults\n");
	  WriteLong(0x28070+0x3c,aReg[0]);
	  WriteLong(0x28070+0x40,32+aReg[0]);
	  WriteLong(0x28070+0x44,64+aReg[0]);
	  WriteWord(aReg[0],strlen(DATAD));strcpy((char*)((Ptr)theROM+aReg[0]+2),DATAD);
	  WriteWord(aReg[0]+32,strlen(PROGD));strcpy((char*)((Ptr)theROM+aReg[0]+34),PROGD);
	  WriteWord(aReg[0]+64,strlen(SPOOLD));strcpy((char*)((Ptr)theROM+aReg[0]+66),SPOOLD);
	}
	
	/* link in Minerva keyboard handling */
#if 1
	if (isMinerva)
	  {
	    reg[1]=8;
	    reg[2]=0;
	    QLtrap(1,0x18,200000);
	    if(reg[0]==0)
	      {
		WW((Ptr)theROM+MIPC_CMD_ADDR,MIPC_CMD_CODE);
		WL((Ptr)theROM+aReg[0],RL((Ptr)theROM+sxvars+0x14));
		WL((Ptr)theROM+aReg[0]+4,MIPC_CMD_ADDR);
		WL((Ptr)theROM+sxvars+0x14,aReg[0]);
	      }
	    WW((Ptr)theROM+KBENC_CMD_ADDR,KBENC_CMD_CODE);
	    orig_kbenc=RL((Ptr)theROM+sxvars+0x10);
	    WL((Ptr)theROM+sxvars+0x10,KBENC_CMD_ADDR); 
#if 0
	    printf("orig_kbenc=%x\nreplacement kbenc=%x\n",orig_kbenc,KBENC_CMD_ADDR); 
	    printf("sx_kbenc addr=%x\n",sxvars+0x10);
#endif
	}
#endif	

	init_poll();
	
	/* make sure it wasn't changed somewhere */
	restore_regs(saved_regs);
#ifdef OLD_PATCH
	aReg[3]=0x0c000;
#endif

#if defined(USE_VM) || defined(VM_SCR)
	vm_on();
#endif

#ifndef OLD_PATCH
	table[code=0x0c93]();    /* run the original routine */
#endif

}

#if 0
static short LoadRoms(void)
{	short e;

	e=LoadMainRom();
	if(e==0) e=InstallBackRom();
	if(e==fnfErr) e=ERR_ROM;
	return e;
}
#endif /*0*/

static void RestartQL(void)
{	short i;
	CloseAllFiles();
	for(i=0;i<15;i++) reg[i]=0;
	memset((Ptr)theROM+131072l,0,RTOP-131072l);
	InitCPU();
}

#if 0
static short StartQL(void)
{	short e;

	e=QL_memory();
	if(e==0)
	{	e=LoadRoms();
		if(e==0)
		{	InitSerial();
			RestartQL();
			e=AllocateDisk();
			if(e==0) e=AllocateSound();
			if(e==0)
			{	qlRunning=true;
				StartTimer();
			}
			else DisposePtr((Ptr)theROM);
		}
		else DisposePtr((Ptr)theROM);
	}
	return e;
}
#endif