1 /* Project 16 Source Code~
\r
2 * Copyright (C) 2012-2019 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover
\r
4 * This file is part of Project 16.
\r
6 * Project 16 is free software; you can redistribute it and/or modify
\r
7 * it under the terms of the GNU General Public License as published by
\r
8 * the Free Software Foundation; either version 3 of the License, or
\r
9 * (at your option) any later version.
\r
11 * Project 16 is distributed in the hope that it will be useful,
\r
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
\r
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
\r
14 * GNU General Public License for more details.
\r
16 * You should have received a copy of the GNU General Public License
\r
17 * along with this program. If not, see <http://www.gnu.org/licenses/>, or
\r
18 * write to the Free Software Foundation, Inc., 51 Franklin Street,
\r
19 * Fifth Floor, Boston, MA 02110-1301 USA.
\r
26 #include "src/lib/16_tail.h"
\r
27 #include "src/lib/16text.h"
\r
30 ==========================
\r
34 = Load a few things right away
\r
36 ==========================
\r
39 void Startup16 (global_game_variables_t *gvar)
\r
41 gvar->video.VL_Started=0;
\r
43 gvar->mm.mmstarted=0;
\r
44 gvar->pm.PMStarted=0;
\r
45 StartupCAMMPM(gvar);
\r
47 #ifdef __DEBUG_InputMgr__
\r
54 //===========================================================================
\r
57 ==========================
\r
61 = Shuts down all ID_?? managers
\r
63 ==========================
\r
66 void Shutdown16 (global_game_variables_t *gvar)
\r
69 #ifdef __DEBUG_InputMgr__
\r
74 ShutdownCAMMPM(gvar);
\r
76 if(gvar->video.VL_Started)
\r
77 VL_Shutdown (gvar);//VGAmodeX(0, 1, gvar);
\r
81 //===========================================================================
\r
84 ==========================
\r
88 ==========================
\r
91 void StartupCAMMPM (global_game_variables_t *gvar)
\r
94 MM_Startup (); // so the signon screen can be freed
\r
101 PM_UnlockMainMem ();
\r
109 //???? PM_CheckMainMem(gvar);
\r
110 PM_UnlockMainMem(gvar);
\r
115 //===========================================================================
\r
118 ==========================
\r
122 ==========================
\r
125 void ShutdownCAMMPM (global_game_variables_t *gvar)
\r
143 //===========================================================================
\r
145 ////////////////////////////////////////////////////////////////////
\r
147 // HANDLE INTRO SCREEN (SYSTEM CONFIG)
\r
149 ////////////////////////////////////////////////////////////////////
\r
150 void MU_IntroScreen(global_game_variables_t *gvar)
\r
152 #define MAINCOLOR 0x6c
\r
153 #define EMSCOLOR 0x6c
\r
154 #define XMSCOLOR 0x6c
\r
156 #define FILLCOLOR 14
\r
158 long memory,emshere,xmshere;
\r
159 int i,num,ems[10]={100,200,300,400,500,600,700,800,900,1000},
\r
160 xms[10]={100,200,300,400,500,600,700,800,900,1000},
\r
161 main[10]={32,64,96,128,160,192,224,256,288,320};
\r
163 gvar->video.print.t=1;
\r
164 gvar->video.print.tlsw=1;
\r
165 gvar->video.print.bgcolor=8;
\r
166 gvar->video.print.color=5;
\r
169 // DRAW MAIN MEMORY
\r
172 gvar->video.print.x=49-32;
\r
174 memory=(1023l+gvar->mmi.nearheap+gvar->mmi.farheap)/1024l;
\r
176 if (memory>=main[i])
\r
178 gvar->video.print.y=163-8*i;
\r
179 sprintf(global_temp_status_text, "% 4u", num); VL_print(global_temp_status_text, 0, gvar);
\r
180 VL_Bar(49,163-8*i,6,5,MAINCOLOR-i,gvar);
\r
183 gvar->video.print.y=171;
\r
184 VL_print("MAIN", 0, gvar);
\r
190 if (gvar->pm.emm.EMSPresent)
\r
193 gvar->video.print.x=89-32;
\r
195 emshere=4l*gvar->pm.emm.EMSPagesAvail;
\r
197 if (emshere>=ems[i])
\r
199 gvar->video.print.y=163-8*i;
\r
200 sprintf(global_temp_status_text, "% 4u", num); VL_print(global_temp_status_text, 0, gvar);
\r
201 VL_Bar(89,163-8*i,6,5,EMSCOLOR-i,gvar);
\r
204 gvar->video.print.y=171;
\r
205 VL_print(" EMS", 0, gvar);
\r
211 if (gvar->pm.xmm.XMSPresent)
\r
214 gvar->video.print.x=129-32;
\r
216 xmshere=4l*gvar->pm.xmm.XMSPagesAvail;
\r
218 if (xmshere>=xms[i])
\r
220 gvar->video.print.y=163-8*i;
\r
221 sprintf(global_temp_status_text, "% 4u", num); VL_print(global_temp_status_text, 0, gvar);
\r
222 VL_Bar(129,163-8*i,6,5,XMSCOLOR-i,gvar);
\r
225 gvar->video.print.y=171;
\r
226 VL_print(" XMS", 0, gvar);
\r
232 if (gvar->in.MousePresent)
\r
233 VL_Bar(164,82,12,2,FILLCOLOR,gvar);
\r
235 if (gvar->in.JoysPresent[0] || gvar->in.JoysPresent[1])
\r
236 VL_Bar(164,105,12,2,FILLCOLOR,gvar);
\r
238 //++++ if (gvar->sd.AdLibPresent)//SB && !SoundBlasterPresent)
\r
239 //++++ VL_Bar(164,128,12,2,FILLCOLOR,gvar);
\r
241 //SB if (SoundBlasterPresent)
\r
242 //SB VL_Bar(164,151,12,2,FILLCOLOR,gvar);
\r
244 //SS if (SoundSourcePresent)
\r
245 //SS VL_Bar(164,174,12,2,FILLCOLOR,gvar);
\r
249 //===========================================================================
\r
252 ====================
\r
256 ====================
\r
259 void ReadConfig(void)
\r
267 if ( (file = open(CONFIGNAME,O_BINARY | O_RDONLY)) != -1)
\r
270 // valid config file
\r
272 // read(file,Scores,sizeof(HighScore) * MaxScores);
\r
274 // read(file,&sd,sizeof(sd));
\r
275 // read(file,&sm,sizeof(sm));
\r
276 // read(file,&sds,sizeof(sds));
\r
278 read(file,&mouseenabled,sizeof(mouseenabled));
\r
279 read(file,&joystickenabled,sizeof(joystickenabled));
\r
280 read(file,&joystickprogressive,sizeof(joystickprogressive));
\r
281 read(file,&joystickport,sizeof(joystickport));
\r
283 read(file,&dirscan,sizeof(dirscan));
\r
284 read(file,&buttonscan,sizeof(buttonscan));
\r
285 read(file,&buttonmouse,sizeof(buttonmouse));
\r
286 read(file,&buttonjoy,sizeof(buttonjoy));
\r
288 read(file,&viewsize,sizeof(viewsize));
\r
289 read(file,&mouseadjustment,sizeof(mouseadjustment));
\r
293 /*if (sd == sdm_AdLib && !AdLibPresent && !SoundBlasterPresent)
\r
299 if ((sds == sds_SoundBlaster && !SoundBlasterPresent) ||
\r
300 (sds == sds_SoundSource && !SoundSourcePresent))
\r
304 mouseenabled = false;
\r
305 if (!JoysPresent[joystickport])
\r
306 joystickenabled = false;
\r
308 MainMenu[6].active=1;
\r
309 MainItems.curpos=0;
\r
314 // no config file, so select by hardware
\r
316 /* if (SoundBlasterPresent || AdLibPresent)
\r
327 if (SoundBlasterPresent)
\r
328 sds = sds_SoundBlaster;
\r
329 else if (SoundSourcePresent)
\r
330 sds = sds_SoundSource;
\r
335 mouseenabled = true;
\r
337 joystickenabled = false;
\r
339 joystickprogressive = false;
\r
345 SD_SetMusicMode (sm);
\r
346 SD_SetSoundMode (sd);
\r
347 SD_SetDigiDevice (sds);
\r
352 ====================
\r
356 ====================
\r
359 void WriteConfig(void)
\r
363 file = open(CONFIGNAME,O_CREAT | O_BINARY | O_WRONLY,
\r
364 S_IREAD | S_IWRITE | S_IFREG);
\r
368 // write(file,Scores,sizeof(HighScore) * MaxScores);
\r
370 // write(file,&SoundMode,sizeof(SoundMode));
\r
371 // write(file,&MusicMode,sizeof(MusicMode));
\r
372 // write(file,&DigiMode,sizeof(DigiMode));
\r
374 write(file,&mouseenabled,sizeof(mouseenabled));
\r
375 write(file,&joystickenabled,sizeof(joystickenabled));
\r
376 write(file,&joystickprogressive,sizeof(joystickprogressive));
\r
377 write(file,&joystickport,sizeof(joystickport));
\r
379 write(file,&dirscan,sizeof(dirscan));
\r
380 write(file,&buttonscan,sizeof(buttonscan));
\r
381 write(file,&buttonmouse,sizeof(buttonmouse));
\r
382 write(file,&buttonjoy,sizeof(buttonjoy));
\r
384 // write(file,&viewsize,sizeof(viewsize));
\r
385 write(file,&mouseadjustment,sizeof(mouseadjustment));
\r
391 //===========================================================================
\r
394 ===================
\r
398 ===================
\r
401 boolean FizzleFade (unsigned source, unsigned dest, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)
\r
403 word p,pixperframe;
\r
404 unsigned drawofs,pagedelta;
\r
405 byte mask,maskb[8] = {1,2,4,8};
\r
406 unsigned x,y,frame;
\r
410 unsigned esorig;//,q;
\r
413 pagedelta = dest-source;
\r
416 esorig = 0;// q = 16;
\r
419 pixperframe = (dword)(gvar->video.page[0].width*gvar->video.page[0].height)/frames;
\r
420 screenseg = SCREENSEG;
\r
422 IN_StartAck (gvar);
\r
424 // modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);
\r
425 // modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);
\r
436 if (abortable && IN_CheckAck (gvar) )
\r
443 for (p=0;p<pixperframe;p++)
\r
447 // seperate random value into x/y pair
\r
449 mov ax,[WORD PTR rndval]
\r
450 mov dx,[WORD PTR rndval+2]
\r
453 mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate
\r
456 mov [BYTE PTR x],ah // next 9 bits = x xoordinate
\r
457 mov [BYTE PTR x+1],dl
\r
459 // advance to next random element
\r
466 #ifdef __BORLANDC__
\r
470 #ifdef __BORLANDC__
\r
473 mov [WORD PTR rndval],ax
\r
474 mov [WORD PTR rndval+2],dx
\r
477 if (x>width || y>height)
\r
478 // if ((x>width || y>height) && (x<width*2 && y<height*2))
\r
480 // drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);
\r
481 drawofs = source+(y*gvar->video.page[0].stridew) + (x>>2);
\r
488 mask = maskb[mask];
\r
498 if (rndval == 1) // entire sequence has been completed
\r
502 //-- while (TimeCount<frame){}//; // don't go too fast
\r
513 //===========================================================================
\r
523 void DebugMemory_(global_game_variables_t *gvar, boolean q)
\r
525 /*VW_FixRefreshBuffer ();
\r
526 US_CenterWindow (16,7);
\r
528 US_CPrint ("Memory Usage");
\r
529 US_CPrint ("------------");
\r
530 US_Print ("Total :");
\r
531 US_PrintUnsigned (mminfo.mainmem/1024);
\r
532 US_Print ("k\nFree :");
\r
533 US_PrintUnsigned (MM_UnusedMemory()/1024);
\r
534 US_Print ("k\nWith purge:");
\r
535 US_PrintUnsigned (MM_TotalFree()/1024);
\r
537 VW_UpdateScreen();*/
\r
539 printf("========================================\n");
\r
540 printf(" DebugMemory_\n");
\r
541 printf("========================================\n");}
\r
542 if(q) { printf("Memory Usage\n");
\r
543 printf("------------\n"); }else printf(" %c%c", 0xD3, 0xC4);
\r
544 printf("Total: "); if(q) printf(" "); printf("%uk", gvar->mmi.mainmem/1024);
\r
545 if(q) printf("\n"); else printf(" ");
\r
546 printf("Free: "); if(q) printf(" "); printf("%uk", MM_UnusedMemory(gvar)/1024);
\r
547 if(q) printf("\n"); else printf(" ");
\r
548 printf("With purge:"); if(q) printf(" "); printf("%uk\n", MM_TotalFree(gvar)/1024);
\r
549 if(q) printf("------------\n");
\r
553 // if(q) MM_ShowMemory (gvar);
\r
557 ===================
\r
561 ===================
\r
565 #define DISPWIDTH 110
\r
566 #define TEXTWIDTH 40
\r
567 void TestSprites(void)
\r
569 int hx,hy,sprite,oldsprite,bottomy,topx,shift;
\r
570 spritetabletype far *spr;
\r
571 spritetype _seg *block;
\r
575 VW_FixRefreshBuffer ();
\r
576 US_CenterWindow (30,17);
\r
578 US_CPrint ("Sprite Test");
\r
579 US_CPrint ("-----------");
\r
582 hx=(PrintX+56)&(~7);
\r
583 topx = hx+TEXTWIDTH;
\r
585 US_Print ("Chunk:\nWidth:\nHeight:\nOrgx:\nOrgy:\nXl:\nYl:\nXh:\nYh:\n"
\r
586 "Shifts:\nMem:\n");
\r
590 sprite = STARTSPRITES;
\r
595 if (sprite>=STARTTILE8)
\r
596 sprite = STARTTILE8-1;
\r
597 else if (sprite<STARTSPRITES)
\r
598 sprite = STARTSPRITES;
\r
600 spr = &spritetable[sprite-STARTSPRITES];
\r
601 block = (spritetype _seg *)grsegs[sprite];
\r
603 VL_Bar (hx,hy,TEXTWIDTH,bottomy-hy,WHITE);
\r
607 US_PrintUnsigned (sprite);US_Print ("\n");PrintX=hx;
\r
608 US_PrintUnsigned (spr->width);US_Print ("\n");PrintX=hx;
\r
609 US_PrintUnsigned (spr->height);US_Print ("\n");PrintX=hx;
\r
610 US_PrintSigned (spr->orgx);US_Print ("\n");PrintX=hx;
\r
611 US_PrintSigned (spr->orgy);US_Print ("\n");PrintX=hx;
\r
612 US_PrintSigned (spr->xl);US_Print ("\n");PrintX=hx;
\r
613 US_PrintSigned (spr->yl);US_Print ("\n");PrintX=hx;
\r
614 US_PrintSigned (spr->xh);US_Print ("\n");PrintX=hx;
\r
615 US_PrintSigned (spr->yh);US_Print ("\n");PrintX=hx;
\r
616 US_PrintSigned (spr->shifts);US_Print ("\n");PrintX=hx;
\r
619 US_Print ("-----");
\r
623 mem = block->sourceoffset[3]+5*block->planesize[3];
\r
624 mem = (mem+15)&(~15); // round to paragraphs
\r
625 US_PrintUnsigned (mem);
\r
628 oldsprite = sprite;
\r
632 // draw the current shift, then wait for key
\r
634 VL_Bar(topx,hy,DISPWIDTH,bottomy-hy,WHITE);
\r
639 US_Print ("Shift:");
\r
640 US_PrintUnsigned (shift);
\r
642 VWB_DrawSprite (topx+16+shift*2,PrintY,sprite);
\r
647 scan = IN_WaitForKey ();
\r
661 case sc_RightArrow:
\r
669 } while (sprite == oldsprite);
\r
679 ==========================
\r
683 ==========================
\r
686 void ClearMemory (global_game_variables_t *gvar)
\r
689 PM_UnlockMainMem(gvar);
\r
696 ==========================
\r
700 ==========================
\r
703 void Quit (global_game_variables_t *gvar, char *error)
\r
705 //unsigned finscreen;
\r
708 ClearMemory (gvar);
\r
712 // CA_CacheGrChunk (ORDERSCREEN);
\r
713 // screen = grsegs[ORDERSCREEN];
\r
719 // CA_CacheGrChunk (ERRORSCREEN);
\r
720 // screen = grsegs[ERRORSCREEN];
\r
724 if (error && *error)
\r
726 //movedata((unsigned)screen,7,0xb800,0,7*160);
\r
728 fprintf(stderr, "%s\n", error);
\r
733 if (!error || !(*error))
\r
737 movedata ((unsigned)screen,7,0xb800,0,4000);
\r
741 //asm mov dh,23 // row
\r
742 //asm mov dl,0 // collumn
\r
750 //===========================================================================
\r
755 // this is from my XT's BIOS
\r
756 // http://www.phatcode.net/downloads.php?id=101
\r
758 void turboXT(byte bakapee)
\r
764 in al, 61h //; Read equipment flags
\r
765 xor al, bakapee //; toggle speed
\r
766 out 61h, al //; Write new flags back
\r
768 mov bx, 0F89h //; low pitch blip
\r
769 and al, 4 //; Is turbo mode set?
\r
771 mov bx, 52Eh //; high pitch blip
\r
774 mov al, 10110110b //; Timer IC 8253 square waves
\r
775 out 43h, al //; channel 2, speaker
\r
777 out 42h, al //; send low order
\r
778 mov al, ah //; load high order
\r
779 out 42h, al //; send high order
\r
780 in al, 61h //; Read IC 8255 machine status
\r
783 out 61h, al //; Turn speaker on
\r
788 out 61h, al //; Turn speaker off
\r