/* Project 16 Source Code~\r
- * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
+ * Copyright (C) 2012-2022 sparky4 & pngwen & andrius4669 & joncampbell123 & yakui-lover\r
*\r
* This file is part of Project 16.\r
*\r
\r
#include "src/lib/16_head.h"\r
\r
-/* Function: Wait **********************************************************\r
-*\r
-* Parameters: wait - time in microseconds\r
-*\r
-* Description: pauses for a specified number of microseconds.\r
-*\r
-*/\r
-void wait(clock_t wait){\r
- clock_t goal;\r
-\r
- if(!wait) return;\r
+//cpu reg stuff for _AX, _BX, _CX, _DX\r
+#ifdef __WATCOMC__\r
+union regs CPURegs;\r
+#endif\r
\r
- goal = wait + clock();\r
- while((goal > clock()) && !kbhit()) ;\r
-} /* End of wait */\r
+// big global status text buffer\r
+char global_temp_status_text[512];\r
+char global_temp_status_text2[512];\r
\r
long int\r
filesize(FILE *fp)\r
return(size_of_file);\r
}\r
\r
+// clrstdin() clear any leftover chars tha may be in stdin stream //\r
+void clrstdin()\r
+{\r
+ int ch = 0;\r
+ while( ( ch = getchar() ) != '\n' && ch != EOF );\r
+}\r
+\r
+//from http://stackoverflow.com/questions/2736753/how-to-remove-extension-from-file-name\r
+// remove_ext: removes the "extension" from a file spec.\r
+// mystr is the string to process.\r
+// dot is the extension separator.\r
+// sep is the path separator (0 means to ignore).\r
+// Returns an allocated string identical to the original but\r
+// with the extension removed. It must be freed when you're\r
+// finished with it.\r
+// If you pass in NULL or the new string can't be allocated,\r
+// it returns NULL.\r
+\r
+char *remove_ext (char* mystr, char dot, char sep) {\r
+ char *retstr, *lastdot, *lastsep;\r
+\r
+ // Error checks and allocate string.\r
+ if (mystr == NULL)\r
+ return NULL;\r
+ if ((retstr = malloc(strlen (mystr) + 1)) == NULL)\r
+ return NULL;\r
+\r
+ // Make a copy and find the relevant characters.\r
+\r
+ strcpy (retstr, mystr);\r
+ lastdot = strrchr (retstr, dot);\r
+ lastsep = (sep == 0) ? NULL : strrchr (retstr, sep);\r
+\r
+ // If it has an extension separator.\r
+\r
+ if (lastdot != NULL) {\r
+ // and it's before the extenstion separator.\r
+\r
+ if (lastsep != NULL) {\r
+ if (lastsep < lastdot) {\r
+ // then remove it.\r
+\r
+ *lastdot = '\0';\r
+ }\r
+ } else {\r
+ // Has extension separator with no path separator.\r
+\r
+ *lastdot = '\0';\r
+ }\r
+ }\r
+\r
+ // Return the modified string.\r
+ free(mystr);\r
+ return retstr;\r
+}\r
+\r
+\r
+//from http://quiz.geeksforgeeks.org/c-program-cyclically-rotate-array-one/\r
+void rotateR(byte *arr, byte n)\r
+{\r
+ byte x = arr[n-1], i;\r
+ for (i = n-1; i > 0; i--)\r
+ arr[i] = arr[i-1];\r
+ arr[0] = x;\r
+}\r
+\r
+void rotateL(byte *arr, byte n)\r
+{\r
+ byte x = arr[n+1], i;\r
+ for (i = n+1; i > 0; i++)\r
+ arr[i] = arr[i+1];\r
+ arr[0] = x;\r
+}\r
+\r
void printmeminfoline(byte *strc, const byte *pee, size_t h_total, size_t h_used, size_t h_free)\r
{\r
byte str[64];\r
return(-1);\r
}\r
\r
-/*\r
-==========================\r
-=\r
-= Quit\r
-=\r
-==========================\r
-*/\r
-\r
-/*void Quit(char *error, ...)\r
-{\r
- short exit_code=0;\r
- unsigned finscreen;\r
-\r
- va_list ap;\r
-\r
- va_start(ap,error);\r
-\r
-#ifndef CATALOG\r
- if (!error)\r
- {\r
- CA_SetAllPurge ();\r
- CA_CacheGrChunk (PIRACY);\r
- finscreen = (unsigned)grsegs[PIRACY];\r
- }\r
-#endif\r
-\r
- //ShutdownId ();\r
-\r
- if (error && *error)\r
- {\r
- vprintf(error,ap);\r
- exit_code = 1;\r
- }\r
-#ifndef CATALOG\r
- else\r
- if (!NoWait)\r
- {\r
- movedata (finscreen,0,0xb800,0,4000);\r
- bioskey (0);\r
- }\r
-#endif\r
-\r
- va_end(ap);\r
-\r
-#ifndef CATALOG\r
- if (!error)\r
- {\r
- _argc = 2;\r
- _argv[1] = "LAST.SHL";\r
- _argv[2] = "ENDSCN.SCN";\r
- _argv[3] = NULL;\r
- if (execv("LOADSCN.EXE", _argv) == -1)\r
- {\r
- clrscr();\r
- puts("Couldn't find executable LOADSCN.EXE.\n");\r
- exit(1);\r
- }\r
- }\r
-#endif\r
-\r
- exit(exit_code);\r
-}*/\r
-\r
+// for input test //\r
byte dirchar(byte in)\r
{\r
byte out;\r
}\r
return out;\r
}\r
+\r
+//from: http://stackoverflow.com/questions/5349896/print-a-struct-in-c\r
+void print_mem(void const *vp, size_t n)\r
+{\r
+ size_t i;\r
+ unsigned char const *p = vp;\r
+ for (i=0; i<n; i++)\r
+ {\r
+ printf("%02x", p[i]);\r
+ //printf("%c", p[i]);\r
+ if((!(i%16)) && i) printf("\n");\r
+ else printf(" ");\r
+ //printf("%u%%40=%u\n", i, i%40);\r
+ }\r
+ putchar('\n');\r
+ printf("\nstruct size is %zu bytes\n", n);\r
+};\r
+\r
+//from: https://groups.google.com/forum/#!topic/comp.lang.asm.x86/QtuVXl43nDo\r
+void hres (void)\r
+{\r
+ __asm {\r
+ mov ax,3\r
+ int 10h\r
+ mov ax,1112h\r
+ xor bx,bx\r
+ int 10h\r
+ }\r
+}\r
+\r
+//#define REGIDUMP_HEX\r
+#define REGIDUMP_DUMPFLAGS\r
+//#define REGIDUMP_USE_CAPS //uncomment to use the assembly\r
+//regester dump~\r
+void regidump()\r
+{\r
+ //GENERAL PURPOSE\r
+ unsigned short _ax,_bx,_cx,_dx;\r
+#ifndef __BORLANDC__\r
+ unsigned short _cflag;\r
+#endif\r
+ unsigned char _al,_ah,_bl,_bh,_cl,_ch,_dl,_dh;\r
+\r
+ unsigned short _bp,_si,_di,_sp;\r
+\r
+ unsigned short _cs_,_ds_,_es_,_ss_; //SEGMENT\r
+// unsigned short _ip; //SPECIAL PURPOSE\r
+ _ax=_bx=_cx=_dx=_si=_di=_bp=_sp=_cs_=_ds_=_es_=_ss_=0;\r
+#ifndef __BORLANDC__\r
+ _cflag=0;\r
+#endif\r
+ _ah=_al=_bh=_bl=_ch=_cl=_dh=_dl=0;\r
+\r
+#ifndef REGIDUMP_USE_CAPS\r
+ __asm {\r
+ mov _ax,ax\r
+ mov _bx,bx\r
+ mov _cx,cx\r
+ mov _dx,dx\r
+\r
+ mov _si,si\r
+ mov _di,di\r
+\r
+ /*mov _ip,ip\r
+\r
+ mov _cf,cf\r
+ mov _pf,pf\r
+ mov _af,af\r
+ mov _zf,zf\r
+ mov _sf,sf\r
+ mov _tf,tf\r
+ mov _if,if\r
+ mov _df,df\r
+ mov _of,of*/\r
+ mov _ah,ah\r
+ mov _al,al\r
+ mov _bh,bh\r
+ mov _bl,bl\r
+ mov _ch,ch\r
+ mov _cl,cl\r
+ mov _dh,dh\r
+ mov _dl,dl\r
+ }\r
+#else\r
+_ax=_AX;\r
+_bx=_BX;\r
+_cx=_CX;\r
+_dx=_DX;\r
+\r
+_si=_SI;\r
+_di=_DI;\r
+\r
+_ah=_AH;\r
+_al=_AL;\r
+_bh=_BH;\r
+_bl=_BL;\r
+_ch=_CH;\r
+_cl=_CL;\r
+_dh=_DH;\r
+_dl=_DL;\r
+#endif\r
+#ifndef __BORLANDC__\r
+ _cflag=_CFLAG;\r
+#endif\r
+ __asm {\r
+ mov _bp,bp\r
+ mov _sp,sp\r
+\r
+ mov _cs_,cs\r
+ mov _ds_,ds\r
+ mov _es_,es\r
+ mov _ss_,ss\r
+ }\r
+// printf("integer values: ax=%04d bx=%04d cx=%04d dx=%04d\n", a, b, c, d);\r
+// printf("unsigned values:ax=%04u bx=%04u cx=%04u dx=%04u\n", a, b, c, d);\r
+ printf("================================================================================");\r
+ printf("16 bit 8088 register values\n");\r
+ printf("================================================================================");\r
+ printf("general purpose:\n");\r
+#ifndef REGIDUMP_HEX\r
+ printf(" ax=%04u\n bx=%04u\n cx=%04u\n dx=%04u\n\n", _ax, _bx, _cx, _dx);\r
+ printf(" si=%04u\n di=%04u\n bp=%04u\n sp=%04u\n", _si, _di, _bp, _sp);\r
+#else\r
+ printf(" ax=%04x\n bx=%04x\n cx=%04x\n dx=%04x\n\n", _ax, _bx, _cx, _dx);\r
+ printf(" si=%04x\n di=%04x\n bp=%04x\n sp=%04x\n", _si, _di, _bp, _sp);\r
+#endif\r
+ printf(" ---------------------------------------\n");\r
+\r
+\r
+\r
+ printf("segment:\n");\r
+#ifndef REGIDUMP_HEX\r
+ //printf(" cs=%04u\n ds=%04u\n es=%04u\n ss=%04u\n", _cs_, _ds, _es_, _ss_);\r
+ printf(" cs=%04u\n", _cs_); printf(" ds=%04u\n", _ds_); printf(" es=%04u\n", _es_); printf(" ss=%04u\n", _ss_);\r
+#else\r
+ //printf(" cs=%04x\n ds=%04x\n es=%04x\n ss=%04x\n", _cs_, _ds_, _es_, _ss_);\r
+ printf(" cs=%04x\n", _cs_); printf(" ds=%04x\n", _ds_); printf(" es=%04x\n", _es_); printf(" ss=%04x\n", _ss_);\r
+#endif\r
+ printf(" ---------------------------------------\n");\r
+\r
+\r
+#ifndef __BORLANDC__\r
+ printf("cflags:\n");\r
+/* printf(" ip=%04u\n\n", _ip);\r
+ printf(" cf=%04u\npf=%04u\naf=%04u\nzf=%04u\nsf=%04u\ntf=%04u\nif=%04u\ndf=%04u\nof=%04u\n", _cf, _pf, _af, _zf, _sf, _tf, _if, _df, _of);\r
+ printf(" ---------------------------------------\n");*/\r
+#ifdef REGIDUMP_DUMPFLAGS\r
+#ifndef REGIDUMP_HEX\r
+// printf(" ip=%04u\n\n", _IP);\r
+// printf(" cf=%04u\npf=%04u\naf=%04u\nzf=%04u\nsf=%04u\ntf=%04u\nif=%04u\ndf=%04u\nof=%04u\n", _CF, _PF, _AF, _ZF, _SF, _TF, _IF, _DF, _OF);\r
+\r
+ printf("cflag: "BYTE_TO_BINARY_PATTERN""BYTE_TO_BINARY_PATTERN"\n", BYTE_TO_BINARY(_cflag>>8), BYTE_TO_BINARY(_cflag));\r
+#else\r
+// printf(" ip=%04x\n\n", _IP);\r
+// printf(" cf=%04x\npf=%04x\naf=%04x\nzf=%04x\nsf=%04x\ntf=%04x\nif=%04x\ndf=%04x\nof=%04x\n", _CF, _PF, _AF, _ZF, _SF, _TF, _IF, _DF, _OF);\r
+ printf("cflag: %016x\n",(_cflag));\r
+ printf(" ahl=%016x", _al|(_ah<<4));\r
+#endif\r
+ printf("testing\n");\r
+// printf("dx: "NIBBLE_TO_BINARY_PATTERN""NIBBLE_TO_BINARY_PATTERN"\n", NIBBLE_TO_BINARY(_dx>>4), NIBBLE_TO_BINARY(_dx));\r
+// printf("dx: "BYTE_TO_BINARY_PATTERN""BYTE_TO_BINARY_PATTERN"\n", BYTE_TO_BINARY(_dx>>8), BYTE_TO_BINARY(_dx));\r
+ printf("dx: "WORD_TO_BINARY_PATTERN"\n", WORD_TO_BINARY(_dx));\r
+ printf(" ---------------------------------------\n");\r
+#endif\r
+#endif\r
+\r
+ printf("for more info see\n http://stackoverflow.com/questions/9130349/how-many-registers-are-there-in-8086-8088\n");\r
+ printf("================================================================================");\r
+}\r