void main()
{
FILE* fp;
void far *ptr;
void *buf = malloc(0x8000);
/* F0000-FFFFF: IPL */
fp = fopen("IPL.ROM", "wb");
ptr = MK_FP(0xf000, 0);
far_memcpy(buf, ptr, 0x8000);
fwrite(buf, 0x8000, 1, fp);
ptr = MK_FP(0xf800, 0);
far_memcpy(buf, ptr, 0x8000);
fwrite(buf, 0x8000, 1, fp);
fclose(fp);
}
static void format_vid_inf(int i,char *err,char *buf)
{
char kname[5];
far_memcpy((char far *)&videoentry,(char far *)&vidtbl[i],
sizeof(videoentry));
vidmode_keyname(videoentry.keynum,kname);
sprintf(buf,"%-5s %-25s %-4s %5d %5d %3d %-25s", /* 78 chars */
kname, videoentry.name, err,
videoentry.xdots, videoentry.ydots,
videoentry.colors, videoentry.comment);
videoentry.xdots = 0; /* so tab_display knows to display nothing */
}
void main()
{
FILE* fp;
void far *src;
void *tmp = malloc(0x8000);
char page;
/* ROM DRIVE */
fp = fopen("ROMDRV.ROM", "wb");
for(page = 0; page < 16; page++) {
printf("page=%d/16\n", page);
outp(0xcc10, page);
src = MK_FP(0xe000, 0);
far_memcpy(tmp, src, 0x8000);
fwrite(tmp, 0x8000, 1, fp);
src = MK_FP(0xe800, 0);
far_memcpy(tmp, src, 0x8000);
fwrite(tmp, 0x8000, 1, fp);
}
fclose(fp);
}
void main()
{
FILE* fp;
void far *src;
void *tmp = malloc(0x8000);
char page;
/* IPL */
fp = fopen("IPL.ROM", "wb");
src = MK_FP(0xf000, 0);
far_memcpy(tmp, src, 0x8000);
fwrite(tmp, 0x8000, 1, fp);
src = MK_FP(0xf800, 0);
far_memcpy(tmp, src, 0x8000);
fwrite(tmp, 0x8000, 1, fp);
fclose(fp);
/* DICTIONARY */
fp = fopen("DICT.ROM", "wb");
src = MK_FP(0xd400, 0);
for(page = 0; page < 48; page++) {
printf("page=%d/48\n", page);
outp(0x4c10, page);
far_memcpy(tmp, src, 0x4000);
fwrite(tmp, 0x4000, 1, fp);
}
fclose(fp);
/* KANJI */
fp = fopen("KANJI.ROM", "wb");
src = MK_FP(0xd800, 0);
for(page = 0; page < 16; page++) {
printf("page=%d/16\n", page);
outp(0x8c10, page);
far_memcpy(tmp, src, 0x4000);
fwrite(tmp, 0x4000, 1, fp);
}
fclose(fp);
}
local void FuncDefn( SYMPTR sym )
{
SYM_NAMEPTR sym_name;
int sym_len;
TYPEPTR typ;
/* duplicate name in near space */
sym_name = SymName( sym, CurFuncHandle );
sym_len = far_strlen_plus1( sym_name );
sym->name = CMemAlloc( sym_len );
far_memcpy( sym->name, sym_name, sym_len );
if( sym->flags & SYM_DEFINED ) {
CErr2p( ERR_SYM_ALREADY_DEFINED, sym->name ); /* 03-aug-88 */
}
typ = sym->sym_type->object; /* get return type */
SKIP_TYPEDEFS( typ );
if( typ->decl_type != TYPE_VOID ) { /* 26-mar-91 */
if( TypeSize( typ ) == 0 ) {
CErr( ERR_INCOMPLETE_TYPE, sym_name );
}
}
sym->flags |= /*SYM_REFERENCED | 18-jan-89 */ SYM_DEFINED;
if( !(GenSwitches & NO_OPTIMIZATION) ) {
sym->flags |= SYM_OK_TO_RECURSE; /* 25-sep-91 */
}
if( sym->stg_class == SC_EXTERN || sym->stg_class == SC_FORWARD ) {
sym->stg_class = SC_NULL; /* indicate exported function */
}
CompFlags.external_defn_found = 1;
if( Toggles & TOGGLE_CHECK_STACK )
sym->flags |= SYM_CHECK_STACK;
if( !CompFlags.zu_switch_used ) {
if( (sym->attrib & FLAG_INTERRUPT) == FLAG_INTERRUPT ) {
/* interrupt function */
TargetSwitches |= FLOATING_SS; /* force -zu switch on */
} else {
TargetSwitches &= ~FLOATING_SS; /* turn it back off */
}
}
if( strcmp( CurFunc->name, "main" ) == 0 || strcmp( CurFunc->name, "wmain" ) == 0 ) {
sym->attrib &= ~FLAG_LANGUAGES; // Turn off any language flags
sym->attrib |= LANG_WATCALL; // Turn on __watcall calling convention for main
}
SymReplace( sym, CurFuncHandle );
}
/* to preserve values across calls to init_bf() */
static int save_bf_vars(void)
{
int ret;
unsigned int mem;
if(bnroot != BIG_NULL)
{
mem = (bflength+2)*22; /* 6 corners + 6 save corners + 10 params */
bf_save_len = bflength;
far_memcpy(bnroot,bfxmin,mem);
/* scrub old high area */
far_memset(bfxmin,0,mem);
ret = 0;
}
else
{
bf_save_len = 0;
ret = -1;
}
return(ret);
}
int get_video_mode(struct fractal_info *info,struct ext_blk_3 *blk_3_info)
{
static FCODE o_hdg2[]={"key...name......................err...xdot..ydot.clr.comment.................."};
static FCODE o_warning[]={"\nWARNING: non-standard aspect ratio; loading will change your <v>iew settings"};
static FCODE o_select_msg[]={"\
Select a video mode. Use the cursor keypad to move the pointer.\n\
Press ENTER for selected mode, or use a video mode function key.\n\
Press F1 for help, "};
char far *hdg2, far *warning, far *select_msg, far *ptr;
struct vidinf vid[MAXVIDEOMODES];
int i,j;
int gotrealmode;
double ftemp,ftemp2;
unsigned tmpflags;
int tmpxdots,tmpydots;
float tmpreduce;
#ifndef XFRACT
char *nameptr;
int *attributes;
int oldhelpmode;
#endif
VIDEOINFO *vident;
/* save overlayed strings to extraseg memory */
ptr = (char far *)MK_FP(extraseg,ENDVID); /* ENDVID is to avoid videotable */
hdg2 = ptr;
ptr += sizeof(o_hdg2);
warning = ptr;
ptr += sizeof(o_warning);
select_msg = ptr;
far_strcpy(hdg2,o_hdg2);
far_strcpy(warning,o_warning);
far_strcpy(select_msg,o_select_msg);
initmode = -1;
load_fractint_cfg(0); /* get fractint.cfg into *vidtbl (== extraseg) */
/* try to change any VESA entries to fit the loaded image size */
if (virtual && video_vram && initmode == -1) {
unsigned long vram = (unsigned long)video_vram << 16,
need = (unsigned long)info->xdots * info->ydots;
if (need <= vram) {
char over[25]; /* overwrite comments with original resolutions */
int bppx; /* bytesperpixel multiplier */
for (i = 0; i < vidtbllen; ++i) {
vident = &vidtbl[i];
if (vident->dotmode%100 == 28 && vident->colors >= 256
&& (info->xdots > vident->xdots || info->ydots > vident->ydots)
&& vram >= (unsigned long)
(info->xdots < vident->xdots ? vident->xdots : info->xdots)
* (info->ydots < vident->ydots ? vident->ydots : info->ydots)
* ((bppx = vident->dotmode/1000) < 2 ? ++bppx : bppx)) {
sprintf(over,"<-VIRTUAL! at %4u x %4u",vident->xdots,vident->ydots);
far_strcpy((char far *)vident->comment,(char far *)over);
if (info->xdots > vident->xdots)
vident->xdots = info->xdots;
if (info->ydots > vident->ydots)
vident->ydots = info->ydots;
} /* change entry to force VESA virtual scanline setup */
}
}
}
/* try to find exact match for vid mode */
for (i = 0; i < vidtbllen; ++i) {
vident = &vidtbl[i];
if (info->xdots == vident->xdots && info->ydots == vident->ydots
&& filecolors == vident->colors
&& info->videomodeax == vident->videomodeax
&& info->videomodebx == vident->videomodebx
&& info->videomodecx == vident->videomodecx
&& info->videomodedx == vident->videomodedx
&& info->dotmode%100 == vident->dotmode%100) {
initmode = i;
break;
}
}
/* exit in makepar mode if no exact match of video mode in file */
if(*s_makepar == '\0' && initmode == -1)
return(0);
if (initmode == -1) /* try to find very good match for vid mode */
for (i = 0; i < vidtbllen; ++i) {
vident = &vidtbl[i];
if (info->xdots == vident->xdots && info->ydots == vident->ydots
&& filecolors == vident->colors) {
initmode = i;
break;
}
}
/* setup table entry for each vid mode, flagged for how well it matches */
for (i = 0; i < vidtbllen; ++i) {
far_memcpy((char far *)&videoentry,(char far *)&vidtbl[i],
sizeof(videoentry));
tmpflags = VI_EXACT;
if (videoentry.keynum == 0)
tmpflags |= VI_NOKEY;
if (info->xdots > videoentry.xdots || info->ydots > videoentry.ydots)
tmpflags |= VI_SSMALL;
else if (info->xdots < videoentry.xdots || info->ydots < videoentry.ydots)
tmpflags |= VI_SBIG;
if (filexdots > videoentry.xdots || fileydots > videoentry.ydots)
tmpflags |= VI_VSMALL;
else if (filexdots < videoentry.xdots || fileydots < videoentry.ydots)
tmpflags |= VI_VBIG;
if (filecolors > videoentry.colors)
tmpflags |= VI_CSMALL;
if (filecolors < videoentry.colors)
tmpflags |= VI_CBIG;
if (i == initmode)
tmpflags -= VI_EXACT;
if (videoentry.dotmode%100 == 11) {
tmpflags |= VI_DISK2;
if ((tmpflags & (VI_SBIG+VI_SSMALL+VI_VBIG+VI_VSMALL)) != 0)
tmpflags |= VI_DISK1;
}
if (fileaspectratio != 0 && videoentry.dotmode%100 != 11
&& (tmpflags & VI_VSMALL) == 0) {
ftemp = vid_aspect(filexdots,fileydots);
if ( ftemp < fileaspectratio * 0.98
|| ftemp > fileaspectratio * 1.02)
tmpflags |= VI_ASPECT;
}
vid[i].entnum = i;
vid[i].flags = tmpflags;
}
if (fastrestore && !askvideo)
initmode = adapter;
#ifndef XFRACT
gotrealmode = 0;
if ((initmode < 0 || (askvideo && !initbatch)) && *s_makepar != '\0') {
/* no exact match or (askvideo=yes and batch=no), and not
in makepar mode, talk to user */
qsort(vid,vidtbllen,sizeof(vid[0]),vidcompare); /* sort modes */
attributes = (int *)&dstack[1000];
for (i = 0; i < vidtbllen; ++i)
attributes[i] = 1;
vidptr = &vid[0]; /* for format_item */
/* format heading */
if (info->info_id[0] == 'G')
strcpy(temp1," Non-fractal GIF");
else {
nameptr = curfractalspecific->name;
if (*nameptr == '*') ++nameptr;
if (display3d) nameptr = "3D Transform";
if ((!strcmp(nameptr,"formula")) ||
(!strcmp(nameptr,"lsystem")) ||
(!strncmp(nameptr,"ifs",3))) /* for ifs and ifs3d */
sprintf(temp1,"Type: %s -> %s",nameptr,blk_3_info->form_name);
else
sprintf(temp1,"Type: %s",nameptr);
}
sprintf((char *)dstack,"File: %-44s %d x %d x %d\n%-52s",
readname,filexdots,fileydots,filecolors,temp1);
if (info->info_id[0] != 'G') {
if (save_system)
strcat((char *)dstack,"WinFract ");
sprintf(temp1,"v%d.%01d",save_release/100,(save_release%100)/10);
if (save_release%100) {
i = strlen(temp1);
temp1[i] = (char)((save_release%10) + '0');
temp1[i+1] = 0;
}
if (save_system == 0 && save_release <= 1410)
strcat(temp1," or earlier");
strcat((char *)dstack,temp1);
}
strcat((char *)dstack,"\n");
if (info->info_id[0] != 'G' && save_system == 0)
if (initmode < 0)
strcat((char *)dstack,"Saved in unknown video mode.");
else {
format_vid_inf(initmode,"",temp1);
strcat((char *)dstack,temp1);
}
if (fileaspectratio != 0 && fileaspectratio != screenaspect)
far_strcat((char *)dstack,warning);
strcat((char *)dstack,"\n");
/* set up instructions */
far_strcpy(temp1,select_msg);
if (info->info_id[0] != 'G')
strcat(temp1,"TAB for fractal information, ");
strcat(temp1,"ESCAPE to back out.");
oldhelpmode = helpmode;
helpmode = HELPLOADFILE;
i = fullscreen_choice(0,(char *)dstack,hdg2,temp1,vidtbllen,NULL,attributes,
1,13,78,0,format_item,NULL,NULL,check_modekey);
helpmode = oldhelpmode;
if (i == -1)
return(-1);
if (i < 0) { /* returned -100 - videotable entry number */
initmode = -100 - i;
gotrealmode = 1;
}
else
initmode = vid[i].entnum;
}
#else
initmode = 0;
j = vidtbl[0].keynum;
gotrealmode = 0;
#endif
if (gotrealmode == 0) { /* translate from temp table to permanent */
if ((j = vidtbl[i=initmode].keynum) != 0) {
for (initmode = 0; initmode < MAXVIDEOTABLE-1; ++initmode)
if (videotable[initmode].keynum == j) break;
if (initmode >= MAXVIDEOTABLE-1) j = 0;
}
if (j == 0) /* mode has no key, add to reserved slot at end */
far_memcpy((char far *)&videotable[initmode=MAXVIDEOTABLE-1],
(char far *)&vidtbl[i],sizeof(*vidtbl));
}
/* ok, we're going to return with a video mode */
far_memcpy((char far *)&videoentry,(char far *)&videotable[initmode],
sizeof(videoentry));
if (viewwindow &&
filexdots == videoentry.xdots && fileydots == videoentry.ydots) {
/* pull image into a view window */
if (calc_status != 4) /* if not complete */
calc_status = 0; /* can't resume anyway */
if (viewxdots) {
viewreduction = videoentry.xdots / viewxdots;
viewxdots = viewydots = 0; /* easier to use auto reduction */
}
viewreduction = (float)((int)(viewreduction + 0.5)); /* need integer value */
skipxdots = skipydots = (short)(viewreduction - 1);
return(0);
}
skipxdots = skipydots = 0; /* set for no reduction */
if (videoentry.xdots < filexdots || videoentry.ydots < fileydots) {
/* set up to load only every nth pixel to make image fit */
if (calc_status != 4) /* if not complete */
calc_status = 0; /* can't resume anyway */
skipxdots = skipydots = 1;
while (skipxdots * videoentry.xdots < filexdots) ++skipxdots;
while (skipydots * videoentry.ydots < fileydots) ++skipydots;
i = j = 0;
for(;;) {
tmpxdots = (filexdots + skipxdots - 1) / skipxdots;
tmpydots = (fileydots + skipydots - 1) / skipydots;
if (fileaspectratio == 0 || videoentry.dotmode%100 == 11)
break;
/* reduce further if that improves aspect */
if ((ftemp = vid_aspect(tmpxdots,tmpydots)) > fileaspectratio) {
if (j) break; /* already reduced x, don't reduce y */
ftemp2 = vid_aspect(tmpxdots,(fileydots+skipydots)/(skipydots+1));
if (ftemp2 < fileaspectratio
&& ftemp/fileaspectratio *0.9 <= fileaspectratio/ftemp2)
break; /* further y reduction is worse */
++skipydots;
++i;
}
else {
if (i) break; /* already reduced y, don't reduce x */
ftemp2 = vid_aspect((filexdots+skipxdots)/(skipxdots+1),tmpydots);
if (ftemp2 > fileaspectratio
&& fileaspectratio/ftemp *0.9 <= ftemp2/fileaspectratio)
break; /* further x reduction is worse */
++skipxdots;
++j;
}
}
filexdots = tmpxdots;
fileydots = tmpydots;
--skipxdots;
--skipydots;
}
if ((finalaspectratio = fileaspectratio) == 0) /* assume display correct */
finalaspectratio = (float)vid_aspect(filexdots,fileydots);
if (finalaspectratio >= screenaspect-0.02
&& finalaspectratio <= screenaspect+0.02)
finalaspectratio = screenaspect;
i = (int)(finalaspectratio * 1000.0 + 0.5);
finalaspectratio = (float)(i/1000.0); /* chop precision to 3 decimals */
/* setup view window stuff */
viewwindow = viewxdots = viewydots = 0;
if (filexdots != videoentry.xdots || fileydots != videoentry.ydots) {
/* image not exactly same size as screen */
viewwindow = 1;
ftemp = finalaspectratio
* (double)videoentry.ydots / (double)videoentry.xdots
/ screenaspect;
if (finalaspectratio <= screenaspect) {
i = (int)((double)videoentry.xdots / (double)filexdots * 20.0 + 0.5);
tmpreduce = (float)(i/20.0); /* chop precision to nearest .05 */
i = (int)((double)videoentry.xdots / tmpreduce + 0.5);
j = (int)((double)i * ftemp + 0.5);
}
else {
i = (int)((double)videoentry.ydots / (double)fileydots * 20.0 + 0.5);
tmpreduce = (float)(i/20.0); /* chop precision to nearest .05 */
j = (int)((double)videoentry.ydots / tmpreduce + 0.5);
i = (int)((double)j / ftemp + 0.5);
}
if (i != filexdots || j != fileydots) { /* too bad, must be explicit */
viewxdots = filexdots;
viewydots = fileydots;
}
else
viewreduction = tmpreduce; /* ok, this works */
}
if (*s_makepar && !fastrestore && !initbatch &&
(fabs(finalaspectratio - screenaspect) > .00001 || viewxdots != 0)) {
static FCODE msg[] = {"\
Warning: <V>iew parameters are being set to non-standard values.\n\
Remember to reset them when finished with this image!"};
stopmsg(4,msg);
}
return(0);
}
