-#include <dos.h>
-#include <string.h>
-#include <mem.h>
-#include <conio.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include "src/lib/modex16.h"
-
-
-byte far* VGA=(byte far*) 0xA0000000; /* this points to video memory. */
-/*word text_mask[16] = {
- 0x0002, 0x0102, 0x0202, 0x0302,\r
- 0x0402, 0x0502, 0x0602, 0x0702,\r
- 0x0802, 0x0902, 0x0A02, 0x0B02,\r
- 0x0C02, 0x0D02, 0x0E02, 0x0F02
-};*/
-
-static void fadePalette(sbyte fade, sbyte start, word iter, byte *palette);
-static byte tmppal[PAL_SIZE];
-
-static void
-vgaSetMode(byte mode)
-{
- union REGS regs;
-
- regs.h.ah = SET_MODE;
- regs.h.al = mode;
- int86(VIDEO_INT, ®s, ®s);
-}
-
-
-/* -========================= Entry Points ==========================- */
-void
-modexEnter() {
- word i;
- dword far*ptr=(dword far*)VGA; /* used for faster screen clearing */
- word CRTParms[] = {
- 0x0d06, /* vertical total */
- 0x3e07, /* overflow (bit 8 of vertical counts) */
- 0x4109, /* cell height (2 to double-scan */
- 0xea10, /* v sync start */
- 0xac11, /* v sync end and protect cr0-cr7 */
- 0xdf12, /* vertical displayed */
- 0x0014, /* turn off dword mode */
- 0xe715, /* v blank start */
- 0x0616, /* v blank end */
- 0xe317 /* turn on byte mode */
- };
- int CRTParmCount = sizeof(CRTParms) / sizeof(CRTParms[0]);
-
- /* TODO save current video mode and palette */
- vgaSetMode(VGA_256_COLOR_MODE);
-
- /* disable chain4 mode */
- outpw(SC_INDEX, 0x0604);
-
- /* synchronous reset while setting Misc Output */
- outpw(SC_INDEX, 0x0100);
-
- /* select 25 MHz dot clock & 60 Hz scanning rate */
- outp(MISC_OUTPUT, 0xe3);
-
- /* undo reset (restart sequencer) */
- outpw(SC_INDEX, 0x0300);
-
- /* reprogram the CRT controller */
- outp(CRTC_INDEX, 0x11); /* VSync End reg contains register write prot */
- outp(CRTC_DATA, 0x7f); /* get current write protect on varios regs */
-
- /* send the CRTParms */
- for(i=0; i<CRTParmCount; i++) {
- outpw(CRTC_INDEX, CRTParms[i]);
- }
-
- /* clear video memory */
- outpw(SC_INDEX, 0x0f02);
- for(i=0; i<0x8000; i++) {
- ptr[i] = 0x0000;
- }
-}
-
-
-void
-modexLeave() {
- /* TODO restore original mode and palette */
- vgaSetMode(TEXT_MODE);
-}
-
-
-page_t
-modexDefaultPage() {
- page_t page;
-
- /* default page values */
- page.data = VGA;
- page.dx = 0;
- page.dy = 0;
- page.width = SCREEN_WIDTH;
- page.height = SCREEN_HEIGHT;
-
- return page;
-}
-
-/* returns the next page in contiguous memory
- * the next page will be the same size as p, by default
- */
-page_t
-modexNextPage(page_t *p) {
- page_t result;
-
- result.data = p->data + (p->width/4)*p->height; /* compute the offset */
- result.dx = 0;
- result.dy = 0;
- result.width = p->width;
- result.height = p->height;
-
- return result;
-}
-
-//next page with defined dimentions~
-page_t
-modexNextPage0(page_t *p, word x, word y)
-{
- page_t result;
-
- result.data = p->data + (p->width/4)*p->height; /* compute the offset */
- result.dx = 0;
- result.dy = 0;
- result.width = x;
- result.height = y;
-
- return result;
-}
-
-
-void
-modexShowPage(page_t *page) {
- word high_address;
- word low_address;
- word offset;
- byte crtcOffset;
-
- /* calculate offset */
- offset = (word) page->data;
- offset += page->dy * (page->width >> 2 );
- offset += page->dx >> 2;
-
- /* calculate crtcOffset according to virtual width */
- crtcOffset = page->width >> 3;
-
- high_address = HIGH_ADDRESS | (offset & 0xff00);
- low_address = LOW_ADDRESS | (offset << 8);
-
- /* wait for appropriate timing and then program CRTC */
- while ((inp(INPUT_STATUS_1) & DISPLAY_ENABLE));
- outpw(CRTC_INDEX, high_address);
- outpw(CRTC_INDEX, low_address);
- outp(CRTC_INDEX, 0x13);
- outp(CRTC_DATA, crtcOffset);
-
- /* wait for one retrace */
- while (!(inp(INPUT_STATUS_1) & VRETRACE));
-
- /* do PEL panning here */
- outp(AC_INDEX, 0x33);
- outp(AC_INDEX, (page->dx & 0x03) << 1);
-}
-
-
-void
-modexPanPage(page_t *page, int dx, int dy) {
- page->dx = dx;
- page->dy = dy;
-}
-
-
-void
-modexSelectPlane(byte plane) {
- outp(SC_INDEX, MAP_MASK); /* select plane */
- outp(SC_DATA, plane);
-}
-
-
-void
-modexClearRegion(page_t *page, int x, int y, int w, int h, byte color) {
- word pageOff = (word) page->data;
- word xoff=x/4; /* xoffset that begins each row */
- word scanCount=w/4; /* number of iterations per row (excluding right clip)*/
- word poffset = pageOff + y*(page->width/4) + xoff; /* starting offset */
- word nextRow = page->width/4-scanCount-1; /* loc of next row */
- byte lclip[] = {0x0f, 0x0e, 0x0c, 0x08}; /* clips for rectangles not on 4s */
- byte rclip[] = {0x00, 0x01, 0x03, 0x07};
- byte left = lclip[x&0x03];
- byte right = rclip[(x+w)&0x03];
-
- /* handle the case which requires an extra group */
- if((x & 0x03) && !((x+w) & 0x03)) {
- right=0x0f;
- }
-
- __asm {
- MOV AX, SCREEN_SEG ; go to the VGA memory
- MOV ES, AX
- MOV DI, poffset ; go to the first pixel
- MOV DX, SC_INDEX ; point to the map mask
- MOV AL, MAP_MASK
- OUT DX, AL
- INC DX
- MOV AL, color ; get ready to write colors
- SCAN_START:
- MOV CX, scanCount ; count the line
- MOV BL, AL ; remember color
- MOV AL, left ; do the left clip
- OUT DX, AL ; set the left clip
- MOV AL, BL ; restore color
- STOSB ; write the color
- DEC CX
- JZ SCAN_DONE ; handle 1 group stuff
-
- ;-- write the main body of the scanline
- MOV BL, AL ; remember color
- MOV AL, 0x0f ; write to all pixels
- OUT DX, AL
- MOV AL, BL ; restore color
- REP STOSB ; write the color
- SCAN_DONE:
- MOV BL, AL ; remeber color
- MOV AL, right
- OUT DX, AL ; do the right clip
- MOV AL, BL ; restore color
- STOSB ; write pixel
- ADD DI, nextRow ; go to the next row
- DEC h
- JNZ SCAN_START
- }
-}
-
-
+/* Project 16 Source Code~\r
+ * Copyright (C) 2012-2015 sparky4 & pngwen & andrius4669\r
+ *\r
+ * This file is part of Project 16.\r
+ *\r
+ * Project 16 is free software; you can redistribute it and/or modify\r
+ * it under the terms of the GNU General Public License as published by\r
+ * the Free Software Foundation; either version 3 of the License, or\r
+ * (at your option) any later version.\r
+ *\r
+ * Project 16 is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ * GNU General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License\r
+ * along with this program. If not, see <http://www.gnu.org/licenses/>, or\r
+ * write to the Free Software Foundation, Inc., 51 Franklin Street,\r
+ * Fifth Floor, Boston, MA 02110-1301 USA.\r
+ *\r
+ */\r
+\r
+#include <conio.h>\r
+#include <stdio.h>\r
+#include <stdlib.h>\r
+#include "src/lib/modex16.h"\r
+\r
+byte far* VGA=(byte far*) 0xA0000000; /* this points to video memory. */\r
+\r
+static void fadePalette(sbyte fade, sbyte start, word iter, byte *palette);\r
+static byte tmppal[PAL_SIZE];\r
+//int old_mode;\r
+\r
+/////////////////////////////////////////////////////////////////////////////\r
+// //\r
+// setvideo() - This function Manages the video modes //\r
+// //\r
+/////////////////////////////////////////////////////////////////////////////\r
+void VGAmodeX(sword vq, global_game_variables_t *gv)\r
+{\r
+ union REGS in, out;\r
+\r
+ if(!vq)\r
+ { // deinit the video\r
+ // change to the video mode we were in before we switched to mode 13h\r
+ modexLeave();\r
+ in.h.ah = 0x00;\r
+ in.h.al = gv->old_mode;\r
+ int86(0x10, &in, &out);\r
+\r
+ }\r
+ else if(vq==1)\r
+ { // init the video\r
+ // get old video mode\r
+ in.h.ah = 0xf;\r
+ int86(0x10, &in, &out);\r
+ gv->old_mode = out.h.al;\r
+ // enter mode\r
+ modexEnter();\r
+ }\r
+}\r
+\r
+static void\r
+vgaSetMode(byte mode)\r
+{\r
+ union REGS regs;\r
+\r
+ regs.h.ah = SET_MODE;\r
+ regs.h.al = mode;\r
+ int86(VIDEO_INT, ®s, ®s);\r
+}\r
+\r
+\r
+/* -========================= Entry Points ==========================- */\r
+void\r
+modexEnter() {\r
+ word i;\r
+ dword far*ptr=(dword far*)VGA; /* used for faster screen clearing */\r
+ word CRTParms[] = {\r
+ 0x0d06, /* vertical total */\r
+ 0x3e07, /* overflow (bit 8 of vertical counts) */\r
+ 0x4109, /* cell height (2 to double-scan */\r
+ 0xea10, /* v sync start */\r
+ 0xac11, /* v sync end and protect cr0-cr7 */\r
+ 0xdf12, /* vertical displayed */\r
+ 0x0014, /* turn off dword mode */\r
+ 0xe715, /* v blank start */\r
+ 0x0616, /* v blank end */\r
+ 0xe317 /* turn on byte mode */\r
+ };\r
+ int CRTParmCount = sizeof(CRTParms) / sizeof(CRTParms[0]);\r
+\r
+ /* TODO save current video mode and palette */\r
+ vgaSetMode(VGA_256_COLOR_MODE);\r
+\r
+ /* disable chain4 mode */\r
+ outpw(SC_INDEX, 0x0604);\r
+\r
+ /* synchronous reset while setting Misc Output */\r
+ outpw(SC_INDEX, 0x0100);\r
+\r
+ /* select 25 MHz dot clock & 60 Hz scanning rate */\r
+ outp(MISC_OUTPUT, 0xe3);\r
+\r
+ /* undo reset (restart sequencer) */\r
+ outpw(SC_INDEX, 0x0300);\r
+\r
+ /* reprogram the CRT controller */\r
+ outp(CRTC_INDEX, 0x11); /* VSync End reg contains register write prot */\r
+ outp(CRTC_DATA, 0x7f); /* get current write protect on varios regs */\r
+\r
+ /* send the CRTParms */\r
+ for(i=0; i<CRTParmCount; i++) {\r
+ outpw(CRTC_INDEX, CRTParms[i]);\r
+ }\r
+\r
+ /* clear video memory */\r
+ outpw(SC_INDEX, 0x0f02);\r
+ for(i=0; i<0x8000; i++) {\r
+ ptr[i] = 0x0000;\r
+ }\r
+}\r
+\r
+\r
+void\r
+modexLeave() {\r
+ /* TODO restore original mode and palette */\r
+ vgaSetMode(TEXT_MODE);\r
+}\r
+\r
+\r
+page_t\r
+modexDefaultPage() {\r
+ page_t page;\r
+\r
+ /* default page values */\r
+ page.data = VGA;\r
+ page.dx = 0;\r
+ page.dy = 0;\r
+ page.width = SCREEN_WIDTH;\r
+ page.height = SCREEN_HEIGHT;\r
+ page.id = 0;\r
+\r
+ return page;\r
+}\r
+\r
+/* returns the next page in contiguous memory\r
+ * the next page will be the same size as p, by default\r
+ */\r
+page_t\r
+modexNextPage(page_t *p) {\r
+ page_t result;\r
+\r
+ result.data = p->data + (p->width/4)*p->height; /* compute the offset */\r
+ result.dx = 0;\r
+ result.dy = 0;\r
+ result.width = p->width;\r
+ result.height = p->height;\r
+ result.id = p->id+1;\r
+\r
+ return result;\r
+}\r
+\r
+//next page with defined dimentions~\r
+page_t\r
+modexNextPage0(page_t *p, word x, word y)\r
+{\r
+ page_t result;\r
+\r
+ result.data = p->data + (p->width/4)*p->height; /* compute the offset */\r
+ result.dx = 0;\r
+ result.dy = 0;\r
+ result.width = x;\r
+ result.height = y;\r
+ result.id = p->id+1;\r
+\r
+ return result;\r
+}\r
+\r
+\r
+void\r
+modexShowPage(page_t *page) {\r
+ word high_address;\r
+ word low_address;\r
+ word offset;\r
+ byte crtcOffset;\r
+\r
+ /* calculate offset */\r
+ offset = (word) page->data;\r
+ offset += page->dy * (page->width >> 2 );\r
+ offset += page->dx >> 2;\r
+\r
+ /* calculate crtcOffset according to virtual width */\r
+ crtcOffset = page->width >> 3;\r
+\r
+ high_address = HIGH_ADDRESS | (offset & 0xff00);\r
+ low_address = LOW_ADDRESS | (offset << 8);\r
+\r
+ /* wait for appropriate timing and then program CRTC */\r
+ while ((inp(INPUT_STATUS_1) & DISPLAY_ENABLE));\r
+ outpw(CRTC_INDEX, high_address);\r
+ outpw(CRTC_INDEX, low_address);\r
+ outp(CRTC_INDEX, 0x13);\r
+ outp(CRTC_DATA, crtcOffset);\r
+\r
+ /* wait for one retrace */\r
+ while (!(inp(INPUT_STATUS_1) & VRETRACE));\r
+\r
+ /* do PEL panning here */\r
+ outp(AC_INDEX, 0x33);\r
+ outp(AC_INDEX, (page->dx & 0x03) << 1);\r
+}\r
+\r
+\r
+void\r
+modexPanPage(page_t *page, int dx, int dy) {\r
+ page->dx = dx;\r
+ page->dy = dy;\r
+}\r
+\r
+\r
+void\r
+modexSelectPlane(byte plane) {\r
+ outp(SC_INDEX, MAP_MASK); /* select plane */\r
+ outp(SC_DATA, plane);\r
+}\r
+\r
+\r
+void\r
+modexClearRegion(page_t *page, int x, int y, int w, int h, byte color) {\r
+ word pageOff = (word) page->data;\r
+ word xoff=x/4; /* xoffset that begins each row */\r
+ word scanCount=w/4; /* number of iterations per row (excluding right clip)*/\r
+ word poffset = pageOff + y*(page->width/4) + xoff; /* starting offset */\r
+ word nextRow = page->width/4-scanCount-1; /* loc of next row */\r
+ byte lclip[] = {0x0f, 0x0e, 0x0c, 0x08}; /* clips for rectangles not on 4s */\r
+ byte rclip[] = {0x00, 0x01, 0x03, 0x07};\r
+ byte left = lclip[x&0x03];\r
+ byte right = rclip[(x+w)&0x03];\r
+\r
+ /* handle the case which requires an extra group */\r
+ if((x & 0x03) && !((x+w) & 0x03)) {\r
+ right=0x0f;\r
+ }\r
+\r
+ __asm {\r
+ MOV AX, SCREEN_SEG ; go to the VGA memory\r
+ MOV ES, AX\r
+ MOV DI, poffset ; go to the first pixel\r
+ MOV DX, SC_INDEX ; point to the map mask\r
+ MOV AL, MAP_MASK\r
+ OUT DX, AL\r
+ INC DX\r
+ MOV AL, color ; get ready to write colors\r
+ SCAN_START:\r
+ MOV CX, scanCount ; count the line\r
+ MOV BL, AL ; remember color\r
+ MOV AL, left ; do the left clip\r
+ OUT DX, AL ; set the left clip\r
+ MOV AL, BL ; restore color\r
+ STOSB ; write the color\r
+ DEC CX\r
+ JZ SCAN_DONE ; handle 1 group stuff\r
+\r
+ ;-- write the main body of the scanline\r
+ MOV BL, AL ; remember color\r
+ MOV AL, 0x0f ; write to all pixels\r
+ OUT DX, AL\r
+ MOV AL, BL ; restore color\r
+ REP STOSB ; write the color\r
+ SCAN_DONE:\r
+ MOV BL, AL ; remeber color\r
+ MOV AL, right\r
+ OUT DX, AL ; do the right clip\r
+ MOV AL, BL ; restore color\r
+ STOSB ; write pixel\r
+ ADD DI, nextRow ; go to the next row\r
+ DEC h\r
+ JNZ SCAN_START\r
+ }\r
+}\r
+\r
+\r
+void\r
+oldDrawBmp(byte far* page, int x, int y, bitmap_t *bmp, byte sprite)\r
+{\r
+ byte plane;\r
+ word px, py;\r
+ word offset;\r
+\r
+ /* TODO Make this fast. It's SLOOOOOOW */\r
+ for(plane=0; plane < 4; plane++) {\r
+ modexSelectPlane(PLANE(plane+x));\r
+ for(px = plane; px < bmp->width; px+=4) {\r
+ offset=px;\r
+ for(py=0; py<bmp->height; py++) {\r
+ if(!sprite || bmp->data[offset])\r
+ page[PAGE_OFFSET(x+px, y+py)] = bmp->data[offset];\r
+ offset+=bmp->width;\r
+ }\r
+ }\r
+ }\r
+}\r
+\r
+\r
+void\r
+modexDrawBmp(page_t *page, int x, int y, bitmap_t *bmp) {\r
+ /* draw the region (the entire freakin bitmap) */\r
+ modexDrawBmpRegion(page, x, y, 0, 0, bmp->width, bmp->height, bmp);\r
+}\r
+\r
+\r
+void\r
+modexDrawBmpRegion(page_t *page, int x, int y,\r
+ int rx, int ry, int rw, int rh, bitmap_t *bmp) {\r
+ word poffset = (word) page->data + y*(page->width/4) + x/4;\r
+ byte far *data = bmp->data;//+bmp->offset;\r
+ word bmpOffset = (word) data + ry * bmp->width + rx;\r
+ word width = rw;\r
+ word height = rh;\r
+ byte plane = 1 << ((byte) x & 0x03);\r
+ word scanCount = width/4 + (width%4 ? 1 :0);\r
+ word nextPageRow = page->width/4 - scanCount;\r
+ word nextBmpRow = (word) bmp->width - width;\r
+ word rowCounter;\r
+ byte planeCounter = 4;\r
+\r
+/* printf("bmp->data=%Fp\n",bmp->data);\r
+ printf("*bmp->data=%Fp\n",*(bmp->data));\r
+ printf("&bmp->data=%Fp\n",&(bmp->data));*/\r
+\r
+ //code is a bit slow here\r
+ __asm {\r
+ MOV AX, SCREEN_SEG ; go to the VGA memory\r
+ MOV ES, AX\r
+\r
+ MOV DX, SC_INDEX ; point at the map mask register\r
+ MOV AL, MAP_MASK ;\r
+ OUT DX, AL ;\r
+\r
+ PLANE_LOOP:\r
+ MOV DX, SC_DATA ; select the current plane\r
+ MOV AL, plane ;\r
+ OUT DX, AL ;\r
+\r
+ ;-- begin plane painting\r
+ MOV AX, height ; start the row counter\r
+ MOV rowCounter, AX ;\r
+ MOV DI, poffset ; go to the first pixel\r
+ MOV SI, bmpOffset ; go to the bmp pixel\r
+ ROW_LOOP:\r
+ MOV CX, width ; count the columns\r
+ SCAN_LOOP:\r
+ MOVSB ; copy the pixel\r
+ SUB CX, 3 ; we skip the next 3\r
+ ADD SI, 3 ; skip the bmp pixels\r
+ LOOP SCAN_LOOP ; finish the scan\r
+\r
+ MOV AX, nextPageRow\r
+ ADD DI, AX ; go to the next row on screen\r
+ MOV AX, nextBmpRow\r
+ ADD SI, AX ; go to the next row on bmp\r
+\r
+ DEC rowCounter\r
+ JNZ ROW_LOOP ; do all the rows\r
+ ;-- end plane painting\r
+\r
+ MOV AL, plane ; advance to the next plane\r
+ SHL AL, 1 ;\r
+ AND AL, 0x0f ; mask the plane properly\r
+ MOV plane, AL ; store the plane\r
+\r
+ INC bmpOffset ; start bmp at the right spot\r
+\r
+ DEC planeCounter\r
+ JNZ PLANE_LOOP ; do all 4 planes\r
+ }\r
+}\r
+\r
+\r
+void\r
+modexDrawPlanarBuf(page_t *page, int x, int y, planar_buf_t *bmp) {\r
+ /* TODO - adapt from test code */\r
+ int plane;\r
+ for(plane=0; plane < 4; plane++)\r
+ {\r
+ //fack\r
+ }\r
+}\r
+\r
+\r
+void\r
+modexDrawSprite(page_t *page, int x, int y, bitmap_t *bmp) {\r
+ /* draw the whole sprite */\r
+ modexDrawSpriteRegion(page, x, y, 0, 0, bmp->width, bmp->height, bmp);\r
+}\r
+\r
+void\r
+modexDrawSpriteRegion(page_t *page, int x, int y,\r
+ int rx, int ry, int rw, int rh, bitmap_t *bmp) {\r
+ word poffset = (word)page->data + y*(page->width/4) + x/4;\r
+ byte *data = bmp->data;//+bmp->offset;\r
+ word bmpOffset = (word) data + ry * bmp->width + rx;\r
+ word width = rw;\r
+ word height = rh;\r
+ byte plane = 1 << ((byte) x & 0x03);\r
+ word scanCount = width/4 + (width%4 ? 1 :0);\r
+ word nextPageRow = page->width/4 - scanCount;\r
+ word nextBmpRow = (word) bmp->width - width;\r
+ word rowCounter;\r
+ byte planeCounter = 4;\r
+\r
+ __asm {\r
+ MOV AX, SCREEN_SEG ; go to the VGA memory\r
+ MOV ES, AX\r
+\r
+ MOV DX, SC_INDEX ; point at the map mask register\r
+ MOV AL, MAP_MASK ;\r
+ OUT DX, AL ;\r
+\r
+ PLANE_LOOP:\r
+ MOV DX, SC_DATA ; select the current plane\r
+ MOV AL, plane ;\r
+ OUT DX, AL ;\r
+\r
+ ;-- begin plane painting\r
+ MOV AX, height ; start the row counter\r
+ MOV rowCounter, AX ;\r
+ MOV DI, poffset ; go to the first pixel\r
+ MOV SI, bmpOffset ; go to the bmp pixel\r
+ ROW_LOOP:\r
+ MOV CX, width ; count the columns\r
+ SCAN_LOOP:\r
+ LODSB\r
+ DEC SI\r
+ CMP AL, 0\r
+ JNE DRAW_PIXEL ; draw non-zero pixels\r
+\r
+ INC DI ; skip the transparent pixel\r
+ ADD SI, 1\r
+ JMP NEXT_PIXEL\r
+ DRAW_PIXEL:\r
+ MOVSB ; copy the pixel\r
+ NEXT_PIXEL:\r
+ SUB CX, 3 ; we skip the next 3\r
+ ADD SI, 3 ; skip the bmp pixels\r
+ LOOP SCAN_LOOP ; finish the scan\r
+\r
+ MOV AX, nextPageRow\r
+ ADD DI, AX ; go to the next row on screen\r
+ MOV AX, nextBmpRow\r
+ ADD SI, AX ; go to the next row on bmp\r
+\r
+ DEC rowCounter\r
+ JNZ ROW_LOOP ; do all the rows\r
+ ;-- end plane painting\r
+\r
+ MOV AL, plane ; advance to the next plane\r
+ SHL AL, 1 ;\r
+ AND AL, 0x0f ; mask the plane properly\r
+ MOV plane, AL ; store the plane\r
+\r
+ INC bmpOffset ; start bmp at the right spot\r
+\r
+ DEC planeCounter\r
+ JNZ PLANE_LOOP ; do all 4 planes\r
+ }\r
+}\r
+\r
+\r
+/* copy a region of video memory from one page to another.\r
+ * It assumes that the left edge of the tile is the same on both\r
+ * regions and the memory areas do not overlap.\r
+ */\r
+void\r
+modexCopyPageRegion(page_t *dest, page_t *src,\r
+ word sx, word sy,\r
+ word dx, word dy,\r
+ word width, word height)\r
+{\r
+ word doffset = (word)dest->data + dy*(dest->width/4) + dx/4;\r
+ word soffset = (word)src->data + sy*(src->width/4) + sx/4;\r
+ word scans = width/4;\r
+ word nextSrcRow = src->width/4 - scans - 1;\r
+ word nextDestRow = dest->width/4 - scans - 1;\r
+ byte lclip[] = {0x0f, 0x0e, 0x0c, 0x08}; /* clips for rectangles not on 4s */\r
+ byte rclip[] = {0x0f, 0x01, 0x03, 0x07};\r
+ byte left = lclip[sx&0x03];\r
+ byte right = rclip[(sx+width)&0x03];\r
+\r
+ __asm {\r
+ MOV AX, SCREEN_SEG ; work in the vga space\r
+ MOV ES, AX ;\r
+ MOV DI, doffset ;\r
+ MOV SI, soffset ;\r
+\r
+ MOV DX, GC_INDEX ; turn off cpu bits\r
+ MOV AX, 0008h ;\r
+ OUT DX, AX\r
+\r
+ MOV AX, SC_INDEX ; point to the mask register\r
+ MOV DX, AX ;\r
+ MOV AL, MAP_MASK ;\r
+ OUT DX, AL ;\r
+ INC DX ;\r
+\r
+ ROW_START:\r
+ PUSH DS\r
+ MOV AX, ES\r
+ MOV DS, AX\r
+ MOV CX, scans ; the number of latches\r
+\r
+ MOV AL, left ; do the left column\r
+ OUT DX, AL ;\r
+ MOVSB ;\r
+ DEC CX ;\r
+\r
+ MOV AL, 0fh ; do the inner columns\r
+ OUT DX, AL\r
+ REP MOVSB ; copy the pixels\r
+\r
+ MOV AL, right ; do the right column\r
+ OUT DX, AL\r
+ MOVSB\r
+ POP DS\r
+\r
+ MOV AX, SI ; go the start of the next row\r
+ ADD AX, nextSrcRow ;\r
+ MOV SI, AX ;\r
+ MOV AX, DI ;\r
+ ADD AX, nextDestRow ;\r
+ MOV DI, AX ;\r
+\r
+ DEC height ; do the rest of the actions\r
+ JNZ ROW_START ;\r
+\r
+ MOV DX, GC_INDEX+1 ; go back to CPU data\r
+ MOV AL, 0ffh ; none from latches\r
+ OUT DX, AL ;\r
+ }\r
+}\r
+\r
+\r
+/* fade and flash */\r
+void\r
+modexFadeOn(word fade, byte *palette) {\r
+ fadePalette(-fade, 64, 64/fade+1, palette);\r
+}\r
+\r
+\r
+void\r
+modexFadeOff(word fade, byte *palette) {\r
+ fadePalette(fade, 0, 64/fade+1, palette);\r
+}\r
+\r
+\r
+void\r
+modexFlashOn(word fade, byte *palette) {\r
+ fadePalette(fade, -64, 64/fade+1, palette);\r
+}\r
+\r
+\r
+void\r
+modexFlashOff(word fade, byte *palette) {\r
+ fadePalette(-fade, 0, 64/fade+1, palette);\r
+}\r
+\r
+\r
+static void\r
+fadePalette(sbyte fade, sbyte start, word iter, byte *palette) {\r
+ word i;\r
+ byte dim = start;\r
+\r
+ /* handle the case where we just update */\r
+ if(iter == 0) {\r
+ modexPalUpdate1(palette);\r
+ return;\r
+ }\r
+\r
+ while(iter > 0) { /* FadeLoop */\r
+ for(i=0; i<PAL_SIZE; i++) { /* loadpal_loop */\r
+ tmppal[i] = palette[i] - dim;\r
+ if(tmppal[i] > 127) {\r
+ tmppal[i] = 0;\r
+ } else if(tmppal[i] > 63) {\r
+ tmppal[i] = 63;\r
+ }\r
+ }\r
+ modexPalUpdate1(tmppal);\r
+ iter--;\r
+ dim += fade;\r
+ }\r
+}\r
+\r
+\r
+/* save and load */\r
+void\r
+modexPalSave(byte *palette) {\r
+ int i;\r
+\r
+ outp(PAL_READ_REG, 0); /* start at palette entry 0 */\r
+ for(i=0; i<PAL_SIZE; i++) {\r
+ palette[i] = inp(PAL_DATA_REG); /* read the palette data */\r
+ }\r
+}\r
+\r
+\r
+byte *\r
+modexNewPal() {\r
+ byte *ptr;\r
+ ptr = malloc(PAL_SIZE);\r
+\r
+ /* handle errors */\r
+ if(!ptr) {\r
+ printf("Could not allocate palette.\n");\r
+ exit(-1);\r
+ }\r
+\r
+ return ptr;\r
+}\r
+\r
+\r
+void\r
+modexLoadPalFile(byte *filename, byte **palette) {\r
+ FILE *file;\r
+ byte *ptr;\r
+\r
+ /* free the palette if it exists */\r
+ if(*palette) {\r
+ free(*palette);\r
+ }\r
+\r
+ /* allocate the new palette */\r
+ *palette = modexNewPal();\r
+\r
+ /* open the file */\r
+ file = fopen(filename, "rb");\r
+ if(!file) {\r
+ printf("Could not open palette file: %s\n", filename);\r
+ exit(-2);\r
+ }\r
+\r
+ /* read the file */\r
+ ptr = *palette;\r
+ while(!feof(file)) {\r
+ *ptr++ = fgetc(file);\r
+ }\r
+\r
+ fclose(file);\r
+}\r
+\r
+\r
+void\r
+modexSavePalFile(char *filename, byte *pal) {\r
+ unsigned int i;\r
+ FILE *file;\r
+\r
+ /* open the file for writing */\r
+ file = fopen(filename, "wb");\r
+ if(!file) {\r
+ printf("Could not open %s for writing\n", filename);\r
+ exit(-2);\r
+ }\r
+\r
+ /* write the data to the file */\r
+ fwrite(pal, 1, PAL_SIZE, file);\r
+ fclose(file);\r
+}\r
+\r
+\r
+/* blanking */\r
+void\r
+modexPalBlack() {\r
+ fadePalette(-1, 64, 1, tmppal);\r
+}\r
+\r
+\r
+void\r
+modexPalWhite() {\r
+ fadePalette(-1, -64, 1, tmppal);\r
+}\r
+\r
+\r
+/* utility */\r
+void\r
+modexPalUpdate(bitmap_t *bmp, word *i, word qp, word aqoffset)\r
+{\r
+ byte *p = bmp->palette;\r
+ word w=0;\r
+ word q=0;\r
+ word qq=0;\r
+ static word a[PAL_SIZE]; //palette array of change values!\r
+ word z=0, aq=0, aa=0, pp=0;\r
+\r
+ modexWaitBorder();\r
+ if((*i)==0)\r
+ {\r
+ memset(a, -1, sizeof(a));\r
+ outp(PAL_WRITE_REG, 0); /* start at the beginning of palette */\r
+ }\r
+ else if(qp==0)\r
+ {\r
+ q=(*i);\r
+ }\r
+ else\r
+ {\r
+ q=(*i);\r
+ qq=(*i)/3;\r
+// printf("q: %02d\n", (q));\r
+// printf("qq: %02d\n", (qq));\r
+ //printf(" (*i)-q=%02d\n", (*i)-q);\r
+ outp(PAL_WRITE_REG, qq); /* start at the beginning of palette */\r
+ }\r
+ if((*i)<PAL_SIZE/2 && w==0)\r
+ {\r
+ for(; (*i)<PAL_SIZE/2; (*i)++)\r
+ {\r
+ //if(i%3==0 && (p[i+5]==p[i+4] && p[i+4]==p[i+3] && p[i+3]==p[i+2] && p[i+2]==p[i+1] && p[i+1]==p[i] && p[i+5]==p[i]))\r
+//____ if((qp>0)&&((*i)-q)%3==0 && (p[((*i)-q)]==p[((*i)-q)+3] && p[((*i)-q)+1]==p[((*i)-q)+4] && p[((*i)-q)+2]==p[((*i)-q)+5])) outp(PAL_DATA_REG, p[(*i)-q]); else\r
+ if(((((*i)-q)%3==0)) && (p[((*i)-q)]==p[((*i)-q)+3] && p[((*i)-q)+1]==p[((*i)-q)+4] && p[((*i)-q)+2]==p[((*i)-q)+5]))\r
+ {\r
+ w++;\r
+ break;\r
+ }\r
+ else if(qp>0 && (*i)>=(qp) && (*i)<((qp)+3))\r
+ {\r
+ //printf("qp=%d\n", qp);\r
+ //printf(" (*i)=%d a[%d]=%d\n", (*i), qp, a[qp]);\r
+ printf(" %d's color=%d\n", (*i), (a[qp])-(bmp->offset*3)+qp);\r
+ //outp(PAL_DATA_REG, p[((a[qp])-(bmp->offset*3)+qp)]);// fix this shit!\r
+ if((*i)+1==(qp)+3){ w++; /*(*i)++;*/ break; }\r
+ }\r
+ else\r
+ {\r
+ if(bmp->offset==0 && (*i)<3 && q==0) outp(PAL_DATA_REG, 0);\r
+ else\r
+ if(qp==0) outp(PAL_DATA_REG, p[(*i)-q]);\r
+ else{ //outp(PAL_DATA_REG, p[((*i)-(bmp->offset*3)+qp)]);\r
+ printf("p[]=%d qp=%d p[]-qp=%d\n", ((*i)-(bmp->offset*3)), qp, ((*i)-(bmp->offset*3))+qp); }\r
+ }\r
+ }\r
+ //if(qp>0) printf("qp=%d\n", qp);\r
+ //if(qp>0) printf(" (*i)=%d\n", (*i)/3);\r
+ }\r
+ modexWaitBorder(); /* waits one retrace -- less flicker */\r
+ if((*i)>=PAL_SIZE/2 && w==0)\r
+ {\r
+ for(; (*i)<PAL_SIZE; (*i)++)\r
+ {\r
+//____ if((qp>0)&&((*i)-q)%3==0 && (p[((*i)-q)]==p[((*i)-q)+3] && p[((*i)-q)+1]==p[((*i)-q)+4] && p[((*i)-q)+2]==p[((*i)-q)+5])) outp(PAL_DATA_REG, p[(*i)-q]); else\r
+ if(((((*i)-q)%3==0)) && (p[((*i)-q)]==p[((*i)-q)+3] && p[((*i)-q)+1]==p[((*i)-q)+4] && p[((*i)-q)+2]==p[((*i)-q)+5]))\r
+ {\r
+ w++;\r
+ break;\r
+ }\r
+ else if(qp>0 && (*i)>=(qp) && (*i)<((qp)+3))\r
+ {\r
+ //printf("qp=%d\n", qp);\r
+ //printf(" (*i)=%d a[%d]=%d\n", (*i), qp, a[qp]);\r
+ printf(" %d's color=%d\n", (*i), (a[qp]-(bmp->offset*3)+qp));\r
+ //outp(PAL_DATA_REG, p[((a[qp])-(bmp->offset*3)+qp)]);// fix this shit!\r
+ if((*i)+1==(qp)+3){ w++; /*(*i)++;*/ break; }\r
+ }\r
+ else\r
+ {\r
+ if(qp==0) outp(PAL_DATA_REG, p[(*i)-q]);\r
+ else{ //outp(PAL_DATA_REG, p[((*i)-(bmp->offset*3)+qp)]);\r
+ printf("p[]=%d qp=%d p[]-qp=%d\n", ((*i)-(bmp->offset*3)), qp, ((*i)-(bmp->offset*3))+qp); }\r
+ }\r
+ }\r
+ //printf(" (*i)=%d\n", (*i)/3);\r
+ }\r
+\r
+printf("\nqqqqqqqq\n\n");\r
+\r
+ //palette checker~\r
+ if(q>0 && qp==0)\r
+ {\r
+ long lq;\r
+ long bufSize = (bmp->width * bmp->height);\r
+ pp = q;\r
+ //printf("1(*i)=%02d\n", (*i)/3);\r
+ //printf("1z=%02d\n", z/3);\r
+ chkcolor(bmp, &q, &a, &aa, &z, i);\r
+ //printf("2(*i)=%02d\n", (*i)/3);\r
+ //printf("2z=%02d\n", z/3);\r
+ aq=0;\r
+aqpee:\r
+ while(aq<=aa)\r
+ {\r
+// printf("a[%02d]=(%d)\n", aq, a[aq]);\r
+ if(a[aq]==-1) aq++;\r
+ else { aqoffset++; break; }\r
+ }\r
+//update the image data here!\r
+ for(lq=0; lq<bufSize; lq++)\r
+ {\r
+ /*\r
+ note to self\r
+ use a[qp] instead of bmp->offset for this spot!\r
+ NO! wwww\r
+ */\r
+\r
+ /*\r
+ Facking bloody point the values of the changed palette to correct values.... major confusion! wwww\r
+ */\r
+\r
+ //(offset/bmp->offset)*bmp->offset\r
+\r
+\r
+ //printf("%02d ",bmp->data[lq]+bmp->offset);\r
+ //if(lq > 0 && lq%bmp->width==0) printf("\n");\r
+ //printf("%02d_", bmp->data[lq]+bmp->offset);\r
+ /*if(bmp->data[lq]+bmp->offset==aq)\r
+ {\r
+ //printf("%02d", bmp->data[lq]);\r
+ //printf("\n%02d\n", bmp->offset);\r
+ printf("aq=%02d ", aq);\r
+ printf("a[aq]=%02d ", a[aq]);\r
+ printf("a[aq]+aqpp=%02d ", a[aq]+aqpp);\r
+ printf("a[aq]-aqpp=%02d\n", a[aq]-aqpp);\r
+ //bmp->data[lq]=((bmp->data[lq]+bmp->offset)-a[aq]);\r
+//++++ bmp->data[lq]=a[aq]-aqpp;\r
+// printf("_%d ", bmp->data[lq]);\r
+ //if(lq > 0 && lq%bmp->width==0) printf("\n");\r
+ }\r
+ else if(bmp->data[lq]+bmp->offset < ((*i)/3)-aqpp)\r
+ {\r
+ if(bmp->data[lq]+bmp->offset >= aq)\r
+ {\r
+ bmp->data[lq]=(bmp->data[lq]+bmp->offset)-aqpp;//-((z-(*i))/3);\r
+ //printf("_%d ", bmp->data[lq]+bmp->offset)-aqpp-((z-(*i))/3);\r
+ }\r
+ else bmp->data[lq]+=(bmp->offset-aqpp);\r
+ }*/\r
+\r
+ //printf("%02d`", bmp->data[lq]);\r
+ //if(lq > 0 && lq%bmp->width==0) printf("\n");\r
+ }\r
+\r
+//printf(" aq=%02d\n", aq);\r
+//printf(" aa=%02d\n", aa);\r
+\r
+ //update the palette~\r
+ modexPalUpdate(bmp, &pp, aq, aqoffset);\r
+ (*i)=pp;\r
+\r
+ if(aq<aa){ pp=q; aq++; goto aqpee; }\r
+ }\r
+}\r
+\r
+void\r
+modexPalUpdate1(byte *p)\r
+{\r
+ int i;\r
+ modexWaitBorder();\r
+ outp(PAL_WRITE_REG, 0); /* start at the beginning of palette */\r
+ for(i=0; i<PAL_SIZE/2; i++)\r
+ {\r
+ outp(PAL_DATA_REG, p[i]);\r
+ }\r
+ modexWaitBorder(); /* waits one retrace -- less flicker */\r
+ for(; i<PAL_SIZE; i++)\r
+ {\r
+ outp(PAL_DATA_REG, p[(i)]);\r
+ }\r
+}\r
+\r