/* Project 16 Source Code~\r
- * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
+ * Copyright (C) 2012-2017 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
*\r
* This file is part of Project 16.\r
*\r
*\r
*/\r
/*\r
- * 16 library\r
+ * 16 tail library\r
*/\r
\r
#include "src/lib/16_tail.h"\r
+#include "src/lib/16text.h"\r
\r
/*\r
==========================\r
==========================\r
*/\r
\r
-void Startup16(global_game_variables_t *gvar)\r
+void Startup16 (global_game_variables_t *gvar)\r
{\r
- // DOSLIB: check our environment\r
- probe_dos();\r
+ gvar->video.VL_Started=0;\r
+ TL_VidInit(gvar);\r
+ gvar->mm.mmstarted=0;\r
+ gvar->pm.PMStarted=0;\r
+ StartupCAMMPM(gvar);\r
+#ifdef __WATCOMC__\r
+#ifdef __DEBUG_InputMgr__\r
+ if(!dbg_nointest)\r
+#endif\r
+ IN_Startup(gvar);\r
+#endif\r
+}\r
\r
- // DOSLIB: what CPU are we using?\r
- // NTS: I can see from the makefile Sparky4 intends this to run on 8088 by the -0 switch in CFLAGS.\r
- // So this code by itself shouldn't care too much what CPU it's running on. Except that other\r
- // parts of this project (DOSLIB itself) rely on CPU detection to know what is appropriate for\r
- // the CPU to carry out tasks. --J.C.\r
- cpu_probe();\r
+//===========================================================================\r
\r
- // DOSLIB: check for VGA\r
- if (!probe_vga()) {\r
- printf("VGA probe failed\n");\r
- return;\r
- }\r
- // hardware must be VGA or higher!\r
- if (!(vga_state.vga_flags & VGA_IS_VGA)) {\r
- printf("This program requires VGA or higher graphics hardware\n");\r
- return;\r
- }\r
+/*\r
+==========================\r
+=\r
+= Shutdown16\r
+=\r
+= Shuts down all ID_?? managers\r
+=\r
+==========================\r
+*/\r
\r
- gvar->mm.mmstarted=0;\r
- gvar->pm.PMStarted=0;\r
+void Shutdown16 (global_game_variables_t *gvar)\r
+{\r
+#ifdef __WATCOMC__\r
+#ifdef __DEBUG_InputMgr__\r
+ if(!dbg_nointest)\r
+#endif\r
+ IN_Shutdown(gvar);\r
+#endif\r
+ ShutdownCAMMPM(gvar);\r
+#ifdef __WATCOMC__\r
+ if(gvar->video.VL_Started)\r
+ VL_Shutdown (gvar);//VGAmodeX(0, 1, gvar);\r
+#endif\r
+}\r
+\r
+//===========================================================================\r
+\r
+/*\r
+==========================\r
+=\r
+= StartupCAMMPM\r
+=\r
+==========================\r
+*/\r
+\r
+void StartupCAMMPM (global_game_variables_t *gvar)\r
+{\r
+/*\r
+ MM_Startup (); // so the signon screen can be freed\r
+\r
+ SignonScreen ();\r
+\r
+ VW_Startup ();\r
+ IN_Startup ();\r
+ PM_Startup ();\r
+ PM_UnlockMainMem ();\r
+ SD_Startup ();\r
+ CA_Startup ();\r
+ US_Startup ();\r
+*/\r
MM_Startup(gvar);\r
- IN_Startup(gvar);\r
+#ifdef __16_PM__\r
PM_Startup(gvar);\r
+//???? PM_CheckMainMem(gvar);\r
PM_UnlockMainMem(gvar);\r
+#endif\r
CA_Startup(gvar);\r
-\r
}\r
\r
//===========================================================================\r
/*\r
==========================\r
=\r
-= Shutdown16\r
-=\r
-= Shuts down all ID_?? managers\r
+= ShutdownCAMMPM\r
=\r
==========================\r
*/\r
\r
-void Shutdown16(global_game_variables_t *gvar)\r
+void ShutdownCAMMPM (global_game_variables_t *gvar)\r
{\r
+/*\r
+ US_Shutdown ();\r
+ SD_Shutdown ();\r
+ PM_Shutdown ();\r
+ IN_Shutdown ();\r
+ VW_Shutdown ();\r
+ CA_Shutdown ();\r
+ MM_Shutdown ()\r
+*/\r
+#ifdef __16_PM__\r
PM_Shutdown(gvar);\r
- IN_Shutdown(gvar);\r
+#endif\r
CA_Shutdown(gvar);\r
MM_Shutdown(gvar);\r
}\r
\r
+//===========================================================================\r
+\r
+/*\r
+====================\r
+=\r
+= ReadConfig\r
+=\r
+====================\r
+*/\r
+\r
+/*void ReadConfig(void)\r
+{\r
+ int file;\r
+ SDMode sd;\r
+ SMMode sm;\r
+ SDSMode sds;\r
+\r
+\r
+ if ( (file = open(configname,O_BINARY | O_RDONLY)) != -1)\r
+ {\r
+ //\r
+ // valid config file\r
+ //\r
+ read(file,Scores,sizeof(HighScore) * MaxScores);\r
+\r
+ read(file,&sd,sizeof(sd));\r
+ read(file,&sm,sizeof(sm));\r
+ read(file,&sds,sizeof(sds));\r
+\r
+ read(file,&mouseenabled,sizeof(mouseenabled));\r
+ read(file,&joystickenabled,sizeof(joystickenabled));\r
+ read(file,&joypadenabled,sizeof(joypadenabled));\r
+ read(file,&joystickprogressive,sizeof(joystickprogressive));\r
+ read(file,&joystickport,sizeof(joystickport));\r
+\r
+ read(file,&dirscan,sizeof(dirscan));\r
+ read(file,&buttonscan,sizeof(buttonscan));\r
+ read(file,&buttonmouse,sizeof(buttonmouse));\r
+ read(file,&buttonjoy,sizeof(buttonjoy));\r
+\r
+ read(file,&viewsize,sizeof(viewsize));\r
+ read(file,&mouseadjustment,sizeof(mouseadjustment));\r
+\r
+ close(file);\r
+\r
+ if (sd == sdm_AdLib && !AdLibPresent && !SoundBlasterPresent)\r
+ {\r
+ sd = sdm_PC;\r
+ sd = smm_Off;\r
+ }\r
+\r
+ if ((sds == sds_SoundBlaster && !SoundBlasterPresent) ||\r
+ (sds == sds_SoundSource && !SoundSourcePresent))\r
+ sds = sds_Off;\r
+\r
+ if (!MousePresent)\r
+ mouseenabled = false;\r
+ if (!JoysPresent[joystickport])\r
+ joystickenabled = false;\r
+\r
+ MainMenu[6].active=1;\r
+ MainItems.curpos=0;\r
+ }\r
+ else\r
+ {\r
+ //\r
+ // no config file, so select by hardware\r
+ //\r
+ if (SoundBlasterPresent || AdLibPresent)\r
+ {\r
+ sd = sdm_AdLib;\r
+ sm = smm_AdLib;\r
+ }\r
+ else\r
+ {\r
+ sd = sdm_PC;\r
+ sm = smm_Off;\r
+ }\r
+\r
+ if (SoundBlasterPresent)\r
+ sds = sds_SoundBlaster;\r
+ else if (SoundSourcePresent)\r
+ sds = sds_SoundSource;\r
+ else\r
+ sds = sds_Off;\r
+\r
+ if (MousePresent)\r
+ mouseenabled = true;\r
+\r
+ joystickenabled = false;\r
+ joypadenabled = false;\r
+ joystickport = 0;\r
+ joystickprogressive = false;\r
+\r
+ viewsize = 15;\r
+ mouseadjustment=5;\r
+ }\r
+\r
+ SD_SetMusicMode (sm);\r
+ SD_SetSoundMode (sd);\r
+ SD_SetDigiDevice (sds);\r
+}*/\r
+\r
+\r
+/*\r
+====================\r
+=\r
+= WriteConfig\r
+=\r
+====================\r
+*/\r
+\r
+/*void WriteConfig(void)\r
+{\r
+ int file;\r
+\r
+ file = open(configname,O_CREAT | O_BINARY | O_WRONLY,\r
+ S_IREAD | S_IWRITE | S_IFREG);\r
+\r
+ if (file != -1)\r
+ {\r
+ write(file,Scores,sizeof(HighScore) * MaxScores);\r
+\r
+ write(file,&SoundMode,sizeof(SoundMode));\r
+ write(file,&MusicMode,sizeof(MusicMode));\r
+ write(file,&DigiMode,sizeof(DigiMode));\r
+\r
+ write(file,&mouseenabled,sizeof(mouseenabled));\r
+ write(file,&joystickenabled,sizeof(joystickenabled));\r
+ write(file,&joypadenabled,sizeof(joypadenabled));\r
+ write(file,&joystickprogressive,sizeof(joystickprogressive));\r
+ write(file,&joystickport,sizeof(joystickport));\r
+\r
+ write(file,&dirscan,sizeof(dirscan));\r
+ write(file,&buttonscan,sizeof(buttonscan));\r
+ write(file,&buttonmouse,sizeof(buttonmouse));\r
+ write(file,&buttonjoy,sizeof(buttonjoy));\r
+\r
+ write(file,&viewsize,sizeof(viewsize));\r
+ write(file,&mouseadjustment,sizeof(mouseadjustment));\r
+\r
+ close(file);\r
+ }\r
+}*/\r
+\r
+//===========================================================================\r
+\r
+/*\r
+===================\r
+=\r
+= FizzleFade\r
+=\r
+===================\r
+*/\r
+\r
+boolean FizzleFade (unsigned source, unsigned dest, unsigned width, unsigned height, unsigned frames, boolean abortable, global_game_variables_t *gvar)\r
+{\r
+ word p,pixperframe;\r
+ unsigned drawofs,pagedelta;\r
+ byte mask,maskb[8] = {1,2,4,8};\r
+ unsigned x,y,frame;\r
+ long rndval;\r
+ word screenseg;\r
+#ifdef __WATCOMC__\r
+ unsigned esorig;//,q;\r
+#endif\r
+\r
+ pagedelta = dest-source;\r
+ rndval = 1;\r
+#ifdef __WATCOMC__\r
+ esorig = 0;// q = 16;\r
+#endif\r
+ x = y = 0;\r
+ pixperframe = (dword)(gvar->video.page[0].width*gvar->video.page[0].height)/frames;\r
+ screenseg = SCREENSEG;\r
+\r
+ IN_StartAck (gvar);\r
+\r
+// modexClearRegion(&(gvar->video.page[0]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 0);\r
+// modexClearRegion(&(gvar->video.page[1]), 0, 0, gvar->video.page[0].width, gvar->video.page[0].height, 15);\r
+\r
+#ifdef __WATCOMC__\r
+ __asm {\r
+ mov [esorig],es\r
+ }\r
+#endif\r
+// TimeCount=\r
+ frame=0;\r
+ do // while (1)\r
+ {\r
+ if (abortable && IN_CheckAck (gvar) )\r
+ return true;\r
+\r
+ __asm {\r
+ mov es,[screenseg]\r
+ }\r
+\r
+ for (p=0;p<pixperframe;p++)\r
+ {\r
+ __asm {\r
+ //\r
+ // seperate random value into x/y pair\r
+ //\r
+ mov ax,[WORD PTR rndval]\r
+ mov dx,[WORD PTR rndval+2]\r
+ mov bx,ax\r
+ dec bl\r
+ mov [BYTE PTR y],bl // low 8 bits - 1 = y xoordinate\r
+ mov bx,ax\r
+ mov cx,dx\r
+ mov [BYTE PTR x],ah // next 9 bits = x xoordinate\r
+ mov [BYTE PTR x+1],dl\r
+ //\r
+ // advance to next random element\r
+ //\r
+ shr dx,1\r
+ rcr ax,1\r
+ jnc noxor\r
+ xor dx,0x0001\r
+ xor ax,0x2000\r
+#ifdef __BORLANDC__\r
+ }\r
+#endif\r
+noxor:\r
+#ifdef __BORLANDC__\r
+ __asm {\r
+#endif\r
+ mov [WORD PTR rndval],ax\r
+ mov [WORD PTR rndval+2],dx\r
+ }\r
+\r
+ if (x>width || y>height)\r
+// if ((x>width || y>height) && (x<width*2 && y<height*2))\r
+ continue;\r
+// drawofs = source+(gvar->video.ofs.ylookup[y]) + (x>>2);\r
+ drawofs = source+(y*gvar->video.page[0].stridew) + (x>>2);\r
+\r
+ //\r
+ // copy one pixel\r
+ //\r
+ mask = x&3;\r
+ VGAREADMAP(mask);\r
+ mask = maskb[mask];\r
+ VGAMAPMASK(mask);\r
+\r
+ __asm {\r
+ mov di,[drawofs]\r
+ mov al,[es:di]\r
+ add di,[pagedelta]\r
+ mov [es:di],al\r
+ }\r
+\r
+ if (rndval == 1) // entire sequence has been completed\r
+ return false;\r
+ }\r
+ frame++;\r
+//-- while (TimeCount<frame){}//; // don't go too fast\r
+ delay(1);\r
+ } while (1);\r
+#ifdef __WATCOMC__\r
+ __asm {\r
+ mov es,[esorig]\r
+ }\r
+ return false;\r
+#endif\r
+}\r
\r
//===========================================================================\r
\r
\r
US_CPrint ("Memory Usage");\r
US_CPrint ("------------");\r
- US_Print ("Total :");\r
+ US_Print ("Total :");\r
US_PrintUnsigned (mminfo.mainmem/1024);\r
- US_Print ("k\nFree :");\r
+ US_Print ("k\nFree :");\r
US_PrintUnsigned (MM_UnusedMemory()/1024);\r
US_Print ("k\nWith purge:");\r
US_PrintUnsigned (MM_TotalFree()/1024);\r
printf("With purge:"); if(q) printf(" "); printf("%uk\n", MM_TotalFree(gvar)/1024);\r
if(q) printf("------------\n");\r
#ifdef __WATCOMC__\r
- IN_Ack ();\r
+ //IN_Ack ();\r
#endif\r
- if(q) MM_ShowMemory (gvar);\r
+// if(q) MM_ShowMemory (gvar);\r
}\r
-#ifdef __WATCOMC__\r
+\r
+/*\r
+==========================\r
+=\r
+= ClearMemory\r
+=\r
+==========================\r
+*/\r
+\r
+void ClearMemory (global_game_variables_t *gvar)\r
+{\r
+#ifdef __16_PM__\r
+ PM_UnlockMainMem(gvar);\r
+#endif\r
+ //sd\r
+ MM_SortMem (gvar);\r
+}\r
+\r
/*\r
==========================\r
=\r
\r
void Quit (char *error)\r
{\r
- unsigned finscreen;\r
- memptr screen;\r
- union REGS in, out;\r
\r
- //ClearMemory ();\r
+ //unsigned finscreen;\r
+ memptr screen=0;\r
+\r
+ ClearMemory (ggvv);\r
if (!*error)\r
{\r
- //WriteConfig ();\r
+// #ifndef JAPAN\r
+// CA_CacheGrChunk (ORDERSCREEN);\r
+// screen = grsegs[ORDERSCREEN];\r
+// #endif\r
+// WriteConfig ();\r
}\r
else\r
{\r
- //CA_CacheGrChunk (ERRORSCREEN);\r
- //screen = grsegs[ERRORSCREEN];\r
+// CA_CacheGrChunk (ERRORSCREEN);\r
+// screen = grsegs[ERRORSCREEN];\r
}\r
-\r
- //ShutdownId ();\r
- IN_Shutdown();\r
- //modexLeave();\r
- in.h.ah = 0x00;\r
- in.h.al = 0x3;\r
- int86(0x10, &in, &out);\r
+ Shutdown16(ggvv);\r
\r
if (error && *error)\r
{\r
- //movedata ((unsigned)screen,7,0xb800,0,7*160);\r
- //gotoxy (10,4);\r
- fprintf(stderr, "%s\n", error);\r
- //gotoxy (1,8);\r
- exit(1);\r
+ //movedata((unsigned)screen,7,0xb800,0,7*160);\r
+ gotoxy (10,4);\r
+ fprintf(stderr, "%s\n", error);\r
+ gotoxy (1,8);\r
+ exit(1);\r
}\r
else\r
if (!error || !(*error))\r
{\r
- //clrscr();\r
- //#ifndef JAPAN\r
+ clrscr();\r
+#ifndef JAPAN\r
movedata ((unsigned)screen,7,0xb800,0,4000);\r
- //gotoxy(1,24);\r
- //#endif\r
+ gotoxy(1,24);\r
+#endif\r
//asm mov bh,0\r
//asm mov dh,23 // row\r
//asm mov dl,0 // collumn\r
\r
exit(0);\r
}\r
-#endif\r
\r
//===========================================================================\r
+\r
+#ifndef __WATCOMC__\r
+char global_temp_status_text[512];\r
+char global_temp_status_text2[512];\r
+#else\r
+//\r
+// for mary4 (XT)\r
+// this is from my XT's BIOS\r
+// http://www.phatcode.net/downloads.php?id=101\r
+//\r
+void turboXT(byte bakapee)\r
+{\r
+ __asm {\r
+ push ax\r
+ push bx\r
+ push cx\r
+ in al, 61h //; Read equipment flags\r
+ xor al, bakapee //; toggle speed\r
+ out 61h, al //; Write new flags back\r
+\r
+ mov bx, 0F89h //; low pitch blip\r
+ and al, 4 //; Is turbo mode set?\r
+ jz @@do_beep\r
+ mov bx, 52Eh //; high pitch blip\r
+\r
+ @@do_beep:\r
+ mov al, 10110110b //; Timer IC 8253 square waves\r
+ out 43h, al //; channel 2, speaker\r
+ mov ax, bx\r
+ out 42h, al //; send low order\r
+ mov al, ah //; load high order\r
+ out 42h, al //; send high order\r
+ in al, 61h //; Read IC 8255 machine status\r
+ push ax\r
+ or al, 00000011b\r
+ out 61h, al //; Turn speaker on\r
+ mov cx, 2000h\r
+ @@delay:\r
+ loop @@delay\r
+ pop ax\r
+ out 61h, al //; Turn speaker off\r
+ pop cx\r
+ pop bx\r
+ pop ax\r
+ }\r
+}\r
+#endif\r
+\r
+const char *word_to_binary(word x)\r
+{\r
+ static char b[17];\r
+ int z;\r
+\r
+ b[0] = '\0';\r
+ for (z = 16; z > 0; z >>= 1)\r
+ {\r
+ strcat(b, ((x & z) == z) ? "1" : "0");\r
+ }\r
+ return b;\r
+}\r
+\r
+const char *nibble_to_binary(nibble x)\r
+{\r
+ static char b[9];\r
+ int z;\r
+\r
+ b[0] = '\0';\r
+ for (z = 8; z > 0; z >>= 1)\r
+ {\r
+ strcat(b, ((x & z) == z) ? "1" : "0");\r
+ }\r
+ return b;\r
+}\r
+\r
+const char *boolean_to_binary(boolean x)\r
+{\r
+ static char b[9];\r
+ int z;\r
+\r
+ b[0] = '\0';\r
+ for (z = 1; z > 0; z >>= 1)\r
+ {\r
+ strcat(b, ((x & z) == z) ? "1" : "0");\r
+ }\r
+ return b;\r
+}\r
+\r
+void nibbletest()\r
+{\r
+ nibble pee;\r
+ printf("nibbletest\n");\r
+ /* nibble to binary string */\r
+ for(pee=0;pee<18;pee++)\r
+ printf(" %u %s\n", pee, nibble_to_binary(pee));\r
+ printf(" sizeof(nibble)=%s\n", nibble_to_binary(sizeof(nibble)));\r
+ printf("end of nibble test\n");\r
+}\r
+\r
+void booleantest()\r
+{\r
+ boolean pee;\r
+ printf("booleantest\n");\r
+ /* boolean to binary string */\r
+ for(pee=0;pee<4;pee++)\r
+ printf(" %u %s\n", pee, boolean_to_binary(pee));\r
+ printf(" sizeof(boolean)=%s\n", boolean_to_binary(sizeof(boolean)));\r
+ printf("end of boolean test\n");\r
+}\r
projects / 16.git / blobdiff