X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2Fmodex16.c;h=81b8616f001a0a50be99b64eb38c299a16dfa392;hb=36f77f15eac30f932ea41eb2ab2798e506ec4070;hp=af4c946ead10d748f42a3b50d46b525e2a2b250e;hpb=d9e8696a3a67052729b1b783f0f3f1b0d20d9e9a;p=16.git
diff --git a/src/lib/modex16.c b/src/lib/modex16.c
old mode 100644
new mode 100755
index af4c946e..81b8616f
--- a/src/lib/modex16.c
+++ b/src/lib/modex16.c
@@ -1,1024 +1,1168 @@
-/* Project 16 Source Code~
- * Copyright (C) 2012-2015 sparky4 & pngwen & andrius4669
- *
- * This file is part of Project 16.
- *
- * Project 16 is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 3 of the License, or
- * (at your option) any later version.
- *
- * Project 16 is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see , or
- * write to the Free Software Foundation, Inc., 51 Franklin Street,
- * Fifth Floor, Boston, MA 02110-1301 USA.
- *
- */
-
-#include
-#include
-#include
-#include
-#include
-#include
-#include "src/lib/modex16.h"
-
-byte far* VGA=(byte far*) 0xA0000000; /* this points to video memory. */
-/*word text_mask[16] = {
- 0x0002, 0x0102, 0x0202, 0x0302,
- 0x0402, 0x0502, 0x0602, 0x0702,
- 0x0802, 0x0902, 0x0A02, 0x0B02,
- 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; idata + (p->width/4)*p->height; /* compute the offset */
- result.dx = 0;
- result.dy = 0;
- result.width = p->width;
- result.height = p->height;
- result.id = p->id+1;
-
- 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;
- result.id = p->id+1;
-
- 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
- }
-}
-
-
-void
-oldDrawBmp(byte far* page, int x, int y, bitmap_t *bmp, byte sprite)
-{
- byte plane;
- word px, py;
- word offset;
-
- /* TODO Make this fast. It's SLOOOOOOW */
- for(plane=0; plane < 4; plane++) {
- modexSelectPlane(PLANE(plane+x));
- for(px = plane; px < bmp->width; px+=4) {
- offset=px;
- for(py=0; pyheight; py++) {
- if(!sprite || bmp->data[offset])
- page[PAGE_OFFSET(x+px, y+py)] = bmp->data[offset];
- offset+=bmp->width;
- }
- }
- }
-}
-
-
-void
-modexDrawBmp(page_t *page, int x, int y, bitmap_t *bmp) {
- /* draw the region (the entire freakin bitmap) */
- modexDrawBmpRegion(page, x, y, 0, 0, bmp->width, bmp->height, bmp);
-}
-
-
-void
-modexDrawBmpRegion(page_t *page, int x, int y,
- int rx, int ry, int rw, int rh, bitmap_t *bmp) {
- word poffset = (word) page->data + y*(page->width/4) + x/4;
- byte *data = bmp->data;//+bmp->offset;
- word bmpOffset = (word) data + ry * bmp->width + rx;
- word width = rw;
- word height = rh;
- byte plane = 1 << ((byte) x & 0x03);
- word scanCount = width/4 + (width%4 ? 1 :0);
- word nextPageRow = page->width/4 - scanCount;
- word nextBmpRow = (word) bmp->width - width;
- word rowCounter;
- byte planeCounter = 4;
-
- //code is a bit slow here
- __asm {
- MOV AX, SCREEN_SEG ; go to the VGA memory
- MOV ES, AX
-
- MOV DX, SC_INDEX ; point at the map mask register
- MOV AL, MAP_MASK ;
- OUT DX, AL ;
-
- PLANE_LOOP:
- MOV DX, SC_DATA ; select the current plane
- MOV AL, plane ;
- OUT DX, AL ;
-
- ;-- begin plane painting
- MOV AX, height ; start the row counter
- MOV rowCounter, AX ;
- MOV DI, poffset ; go to the first pixel
- MOV SI, bmpOffset ; go to the bmp pixel
- ROW_LOOP:
- MOV CX, width ; count the columns
- SCAN_LOOP:
- MOVSB ; copy the pixel
- SUB CX, 3 ; we skip the next 3
- ADD SI, 3 ; skip the bmp pixels
- LOOP SCAN_LOOP ; finish the scan
-
- MOV AX, nextPageRow
- ADD DI, AX ; go to the next row on screen
- MOV AX, nextBmpRow
- ADD SI, AX ; go to the next row on bmp
-
- DEC rowCounter
- JNZ ROW_LOOP ; do all the rows
- ;-- end plane painting
-
- MOV AL, plane ; advance to the next plane
- SHL AL, 1 ;
- AND AL, 0x0f ; mask the plane properly
- MOV plane, AL ; store the plane
-
- INC bmpOffset ; start bmp at the right spot
-
- DEC planeCounter
- JNZ PLANE_LOOP ; do all 4 planes
- }
-}
-
-
-void
-modexDrawPlanarBuf(page_t *page, int x, int y, planar_buf_t *bmp) {
- /* TODO - adapt from test code */
- int plane;
- for(plane=0; plane < 4; plane++)
- {
- //fack
- }
-}
-
-
-void
-modexDrawSprite(page_t *page, int x, int y, bitmap_t *bmp) {
- /* draw the whole sprite */
- modexDrawSpriteRegion(page, x, y, 0, 0, bmp->width, bmp->height, bmp);
-}
-
-void
-modexDrawSpriteRegion(page_t *page, int x, int y,
- int rx, int ry, int rw, int rh, bitmap_t *bmp) {
- word poffset = (word)page->data + y*(page->width/4) + x/4;
- byte *data = bmp->data;//+bmp->offset;
- word bmpOffset = (word) data + ry * bmp->width + rx;
- word width = rw;
- word height = rh;
- byte plane = 1 << ((byte) x & 0x03);
- word scanCount = width/4 + (width%4 ? 1 :0);
- word nextPageRow = page->width/4 - scanCount;
- word nextBmpRow = (word) bmp->width - width;
- word rowCounter;
- byte planeCounter = 4;
-
- __asm {
- MOV AX, SCREEN_SEG ; go to the VGA memory
- MOV ES, AX
-
- MOV DX, SC_INDEX ; point at the map mask register
- MOV AL, MAP_MASK ;
- OUT DX, AL ;
-
- PLANE_LOOP:
- MOV DX, SC_DATA ; select the current plane
- MOV AL, plane ;
- OUT DX, AL ;
-
- ;-- begin plane painting
- MOV AX, height ; start the row counter
- MOV rowCounter, AX ;
- MOV DI, poffset ; go to the first pixel
- MOV SI, bmpOffset ; go to the bmp pixel
- ROW_LOOP:
- MOV CX, width ; count the columns
- SCAN_LOOP:
- LODSB
- DEC SI
- CMP AL, 0
- JNE DRAW_PIXEL ; draw non-zero pixels
-
- INC DI ; skip the transparent pixel
- ADD SI, 1
- JMP NEXT_PIXEL
- DRAW_PIXEL:
- MOVSB ; copy the pixel
- NEXT_PIXEL:
- SUB CX, 3 ; we skip the next 3
- ADD SI, 3 ; skip the bmp pixels
- LOOP SCAN_LOOP ; finish the scan
-
- MOV AX, nextPageRow
- ADD DI, AX ; go to the next row on screen
- MOV AX, nextBmpRow
- ADD SI, AX ; go to the next row on bmp
-
- DEC rowCounter
- JNZ ROW_LOOP ; do all the rows
- ;-- end plane painting
-
- MOV AL, plane ; advance to the next plane
- SHL AL, 1 ;
- AND AL, 0x0f ; mask the plane properly
- MOV plane, AL ; store the plane
-
- INC bmpOffset ; start bmp at the right spot
-
- DEC planeCounter
- JNZ PLANE_LOOP ; do all 4 planes
- }
-}
-
-
-/* copy a region of video memory from one page to another.
- * It assumes that the left edge of the tile is the same on both
- * regions and the memory areas do not overlap.
- */
-void
-modexCopyPageRegion(page_t *dest, page_t *src,
- word sx, word sy,
- word dx, word dy,
- word width, word height)
-{
- word doffset = (word)dest->data + dy*(dest->width/4) + dx/4;
- word soffset = (word)src->data + sy*(src->width/4) + sx/4;
- word scans = width/4;
- word nextSrcRow = src->width/4 - scans - 1;
- word nextDestRow = dest->width/4 - scans - 1;
- byte lclip[] = {0x0f, 0x0e, 0x0c, 0x08}; /* clips for rectangles not on 4s */
- byte rclip[] = {0x0f, 0x01, 0x03, 0x07};
- byte left = lclip[sx&0x03];
- byte right = rclip[(sx+width)&0x03];
-
- __asm {
- MOV AX, SCREEN_SEG ; work in the vga space
- MOV ES, AX ;
- MOV DI, doffset ;
- MOV SI, soffset ;
-
- MOV DX, GC_INDEX ; turn off cpu bits
- MOV AX, 0008h ;
- OUT DX, AX
-
- MOV AX, SC_INDEX ; point to the mask register
- MOV DX, AX ;
- MOV AL, MAP_MASK ;
- OUT DX, AL ;
- INC DX ;
-
- ROW_START:
- PUSH DS
- MOV AX, ES
- MOV DS, AX
- MOV CX, scans ; the number of latches
-
- MOV AL, left ; do the left column
- OUT DX, AL ;
- MOVSB ;
- DEC CX ;
-
- MOV AL, 0fh ; do the inner columns
- OUT DX, AL
- REP MOVSB ; copy the pixels
-
- MOV AL, right ; do the right column
- OUT DX, AL
- MOVSB
- POP DS
-
- MOV AX, SI ; go the start of the next row
- ADD AX, nextSrcRow ;
- MOV SI, AX ;
- MOV AX, DI ;
- ADD AX, nextDestRow ;
- MOV DI, AX ;
-
- DEC height ; do the rest of the actions
- JNZ ROW_START ;
-
- MOV DX, GC_INDEX+1 ; go back to CPU data
- MOV AL, 0ffh ; none from latches
- OUT DX, AL ;
- }
-}
-
-
-/* fade and flash */
-void
-modexFadeOn(word fade, byte *palette) {
- fadePalette(-fade, 64, 64/fade+1, palette);
-}
-
-
-void
-modexFadeOff(word fade, byte *palette) {
- fadePalette(fade, 0, 64/fade+1, palette);
-}
-
-
-void
-modexFlashOn(word fade, byte *palette) {
- fadePalette(fade, -64, 64/fade+1, palette);
-}
-
-
-void
-modexFlashOff(word fade, byte *palette) {
- fadePalette(-fade, 0, 64/fade+1, palette);
-}
-
-
-static void
-fadePalette(sbyte fade, sbyte start, word iter, byte *palette) {
- word i;
- byte dim = start;
-
- /* handle the case where we just update */
- if(iter == 0) {
- modexPalUpdate1(palette);
- return;
- }
-
- while(iter > 0) { /* FadeLoop */
- for(i=0; i 127) {
- tmppal[i] = 0;
- } else if(tmppal[i] > 63) {
- tmppal[i] = 63;
- }
- }
- modexPalUpdate1(tmppal);
- iter--;
- dim += fade;
- }
-}
-
-
-/* save and load */
-void
-modexPalSave(byte *palette) {
- int i;
-
- outp(PAL_READ_REG, 0); /* start at palette entry 0 */
- for(i=0; ipalette;
- word w=0;
- word q=0;
- word qq=0;
- static word a[PAL_SIZE]; //palette array of change values!
- word z=0, aq=0, aa=0, pp=0;
-
- modexWaitBorder();
- if((*i)==0)
- {
- memset(a, -1, sizeof(a));
- outp(PAL_WRITE_REG, 0); /* start at the beginning of palette */
- }
- else if(qp==0)
- {
- q=(*i);
- }
- else
- {
- q=(*i);
- qq=(*i)/3;
-// printf("q: %02d\n", (q));
-// printf("qq: %02d\n", (qq));
- //printf(" (*i)-q=%02d\n", (*i)-q);
- outp(PAL_WRITE_REG, qq); /* start at the beginning of palette */
- }
- if((*i)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
- 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]))
- {
- w++;
- break;
- }
- else if(qp>0 && (*i)>=(qp) && (*i)<((qp)+3))
- {
- //printf("qp=%d\n", qp);
- //printf(" (*i)=%d a[%d]=%d\n", (*i), qp, a[qp]);
- printf(" %d's color=%d\n", (*i), (a[qp])-(bmp->offset*3)+qp);
- //outp(PAL_DATA_REG, p[((a[qp])-(bmp->offset*3)+qp)]);// fix this shit!
- if((*i)+1==(qp)+3){ w++; /*(*i)++;*/ break; }
- }
- else
- {
- if(bmp->offset==0 && (*i)<3 && q==0) outp(PAL_DATA_REG, 0);
- else
- if(qp==0) outp(PAL_DATA_REG, p[(*i)-q]);
- else{ //outp(PAL_DATA_REG, p[((*i)-(bmp->offset*3)+qp)]);
- printf("p[]=%d qp=%d p[]-qp=%d\n", ((*i)-(bmp->offset*3)), qp, ((*i)-(bmp->offset*3))+qp); }
- }
- }
- //if(qp>0) printf("qp=%d\n", qp);
- //if(qp>0) printf(" (*i)=%d\n", (*i)/3);
- }
- modexWaitBorder(); /* waits one retrace -- less flicker */
- if((*i)>=PAL_SIZE/2 && w==0)
- {
- for(; (*i)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
- 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]))
- {
- w++;
- break;
- }
- else if(qp>0 && (*i)>=(qp) && (*i)<((qp)+3))
- {
- //printf("qp=%d\n", qp);
- //printf(" (*i)=%d a[%d]=%d\n", (*i), qp, a[qp]);
- printf(" %d's color=%d\n", (*i), (a[qp]-(bmp->offset*3)+qp));
- //outp(PAL_DATA_REG, p[((a[qp])-(bmp->offset*3)+qp)]);// fix this shit!
- if((*i)+1==(qp)+3){ w++; /*(*i)++;*/ break; }
- }
- else
- {
- if(qp==0) outp(PAL_DATA_REG, p[(*i)-q]);
- else{ //outp(PAL_DATA_REG, p[((*i)-(bmp->offset*3)+qp)]);
- printf("p[]=%d qp=%d p[]-qp=%d\n", ((*i)-(bmp->offset*3)), qp, ((*i)-(bmp->offset*3))+qp); }
- }
- }
- //printf(" (*i)=%d\n", (*i)/3);
- }
-
-printf("\nqqqqqqqq\n\n");
-
- //palette checker~
- if(q>0 && qp==0)
- {
- long lq;
- long bufSize = (bmp->width * bmp->height);
- pp = q;
- //printf("1(*i)=%02d\n", (*i)/3);
- //printf("1z=%02d\n", z/3);
- chkcolor(bmp, &q, &a, &aa, &z, i);
- //printf("2(*i)=%02d\n", (*i)/3);
- //printf("2z=%02d\n", z/3);
- aq=0;
-aqpee:
- while(aq<=aa)
- {
-// printf("a[%02d]=(%d)\n", aq, a[aq]);
- if(a[aq]==-1) aq++;
- else { aqoffset++; break; }
- }
-//update the image data here!
- for(lq=0; lqoffset for this spot!
- NO! wwww
- */
-
- /*
- Facking bloody point the values of the changed palette to correct values.... major confusion! wwww
- */
-
- //(offset/bmp->offset)*bmp->offset
-
-
- //printf("%02d ",bmp->data[lq]+bmp->offset);
- //if(lq > 0 && lq%bmp->width==0) printf("\n");
- //printf("%02d_", bmp->data[lq]+bmp->offset);
- /*if(bmp->data[lq]+bmp->offset==aq)
- {
- //printf("%02d", bmp->data[lq]);
- //printf("\n%02d\n", bmp->offset);
- printf("aq=%02d ", aq);
- printf("a[aq]=%02d ", a[aq]);
- printf("a[aq]+aqpp=%02d ", a[aq]+aqpp);
- printf("a[aq]-aqpp=%02d\n", a[aq]-aqpp);
- //bmp->data[lq]=((bmp->data[lq]+bmp->offset)-a[aq]);
-//++++ bmp->data[lq]=a[aq]-aqpp;
-// printf("_%d ", bmp->data[lq]);
- //if(lq > 0 && lq%bmp->width==0) printf("\n");
- }
- else if(bmp->data[lq]+bmp->offset < ((*i)/3)-aqpp)
- {
- if(bmp->data[lq]+bmp->offset >= aq)
- {
- bmp->data[lq]=(bmp->data[lq]+bmp->offset)-aqpp;//-((z-(*i))/3);
- //printf("_%d ", bmp->data[lq]+bmp->offset)-aqpp-((z-(*i))/3);
- }
- else bmp->data[lq]+=(bmp->offset-aqpp);
- }*/
-
- //printf("%02d`", bmp->data[lq]);
- //if(lq > 0 && lq%bmp->width==0) printf("\n");
- }
-
-//printf(" aq=%02d\n", aq);
-//printf(" aa=%02d\n", aa);
-
- //update the palette~
- modexPalUpdate(bmp, &pp, aq, aqoffset);
- (*i)=pp;
-
- if(aqwidth/4) << 3);
- //printf("font=%Fp\n", font);
- for(; *s != '\0'; s++)
- {
- //src.raster = font + 8 * (*s);
- //BLOODY!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!111111111111!!!11!!11!111!11!!1111!!111!11!!1!!!11!11!!1!!111!11!!
-// (*(bmp->data)) = (*(font + 8 * (*s)));
- font_pntr = font + 8 * (*s);
-// font_pntr = font + (c << 3);
-// i=8;
-// while (i--) {
-// temp = *font_pntr++;
-// outpw(SC_INDEX, text_mask[temp & 0x0F]);
- //*vga_ptr++ = color;
-
-// outpw(SC_INDEX, text_mask[temp >> 4]);
- //*vga_ptr-- = color;
- //vga_ptr += widthBytes;
-// }
-
- //printf("fontoffset=%Fp\n", font + 8 * (*s));
- //printf("*fontoffset=%s\n", *(font + 8 * (*s)));
- //printf("w.data=%Fp\n", (w.data));
- //printf("*w.data=%s\n", *(w.data));
- //blit1(&src, bmp, x, y);
-// modexDrawSprite(page, x, y, bmp);
-// modexDrawBmp(page, x, y, bmp);
-// printf("%x\n", (*(font + 8 * (*s))));
- //_fmemset(VGA, *(font + 8 * (*s)), _msize(font));
- //draw text?!?! wwww
-
- modexClearRegion(pee, x, y, 8, 8, 4);
-// x += 8;
- }
-// printf("\n");
-}
+/* Project 16 Source Code~
+ * Copyright (C) 2012-2016 sparky4 & pngwen & andrius4669
+ *
+ * This file is part of Project 16.
+ *
+ * Project 16 is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either verson 3 of the License, or
+ * (at your option) any later version.
+ *
+ * Project 16 is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see , or
+ * write to the Free Software Foundation, Inc., 51 Franklin Street,
+ * Fifth Floor, Boston, MA 02110-1301 USA.
+ *
+ */
+
+#include
+#include
+#include
+#include "src/lib/modex16.h"
+
+byte far* VGA=(byte far*) 0xA0000000; /* this points to video memory. */
+
+static void fadePalette(sbyte fade, sbyte start, word iter, byte *palette);
+static byte tmppal[PAL_SIZE];
+
+/////////////////////////////////////////////////////////////////////////////
+// //
+// setvideo() - This function Manages the video modes //
+// //
+/////////////////////////////////////////////////////////////////////////////
+void VGAmodeX(sword vq, boolean cmem, global_game_variables_t *gv)
+{
+ union REGS in, out;
+
+ switch (vq)
+ {
+ case 0: // deinit the video
+ // change to the video mode we were in before we switched to mode 13h
+ modexLeave();
+ in.h.ah = 0x00;
+ in.h.al = gv->video.old_mode;
+ int86(0x10, &in, &out);
+ break;
+ default: // init the video
+ // get old video mode
+ //in.h.ah = 0xf;
+ //int86(0x10, &in, &out);
+ gv->video.old_mode = vgaGetMode();//out.h.al;
+ // enter mode
+ modexEnter(vq, cmem, gv);
+ break;
+ }
+}
+
+static void
+vgaSetMode(byte mode)
+{
+ int10_setmode(mode);
+}
+
+//---------------------------------------------------
+//
+// Use the bios to get the current video mode
+//
+
+byte/*FIXME: why long? "long" is 32-bit datatype, VGA modes are 8-bit numbers. */
+vgaGetMode()
+{
+ return int10_getmode();
+}
+
+/* -========================= Entry Points ==========================- */
+void modexEnter(sword vq, boolean cmem, global_game_variables_t *gv)
+{
+ word i;
+ struct vga_mode_params cm;
+ int CRTParmCount;
+
+ vgaSetMode(VGA_256_COLOR_MODE);
+ vga_enable_256color_modex();
+ update_state_from_vga();
+ vga_read_crtc_mode(&cm);
+
+ switch(vq)
+ {
+ case 1:
+ //CRTParmCount = sizeof(ModeX_320x240regs) / sizeof(ModeX_320x240regs[0]);
+ /*for(i=0; ivideo.page[0].sw = vga_state.vga_width = 320; // VGA lib currently does not update this
+ gv->video.page[0].sh = vga_state.vga_height = 240; // VGA lib currently does not update this
+ /* virtual width and height. match screen, at first */
+ gv->video.page[0].height = gv->video.page[0].sh;
+ gv->video.page[0].width = gv->video.page[0].sw;
+
+ // mode X BYTE mode
+ cm.word_mode = 0;
+ cm.dword_mode = 0;
+ // 320x240 mode 60Hz
+ cm.horizontal_total=0x5f + 5; /* CRTC[0] -5 */
+ cm.horizontal_display_end=0x4f + 1; /* CRTC[1] -1 */
+ cm.horizontal_blank_start=0x50 + 1; /* CRTC[2] */
+ cm.horizontal_blank_end=0x82 + 1; /* CRTC[3] bit 0-4 & CRTC[5] bit 7 */
+ cm.horizontal_start_retrace=0x54;/* CRTC[4] */
+ cm.horizontal_end_retrace=0x80; /* CRTC[5] bit 0-4 */
+ //cm.horizontal_start_delay_after_total=0x3e; /* CRTC[3] bit 5-6 */
+ //cm.horizontal_start_delay_after_retrace=0x41; /* CRTC[5] bit 5-6 */
+ cm.vertical_total = 0x20D + 2;
+ cm.vertical_start_retrace = 0x1EA;
+ cm.vertical_end_retrace = 0x1EC;
+ cm.vertical_display_end = 480;
+ cm.vertical_blank_start = 0x1E7 + 1;
+ cm.vertical_blank_end = 0x206 + 1;
+ cm.clock_select = 0; /* misc register = 0xE3 25MHz */
+ cm.vsync_neg = 1;
+ cm.hsync_neg = 1;
+ cm.offset = (vga_state.vga_width / (4 * 2)); // 320 wide (40 x 4 pixel groups x 2)
+ break;
+ case 2: // TODO: 160x120 according to ModeX_160x120regs
+ return;
+ case 3: // TODO: 160x120 according to ModeX_320x200regs
+ return;
+ case 4: // TODO: 160x120 according to ModeX_192x144regs
+ return;
+ case 5: // TODO: 160x120 according to ModeX_256x192regs
+ return;
+ default:
+ return;
+ }
+
+ vga_state.vga_stride = cm.offset * 2;
+ vga_write_crtc_mode(&cm,0);
+
+ /* clear video memory */
+ switch (cmem)
+ {
+ case 1: {
+ /* clear video memory */
+ dword far*ptr=(dword far*)vga_state.vga_graphics_ram;//VGA; /* used for faster screen clearing */
+ vga_write_sequencer(2/*map mask register*/,0xf/*all 4 planes*/);
+ for(i = 0;i < 0x4000; i++) ptr[i] = 0x0000; // 0x4000 x dword = 64KB
+ }
+ break;
+ }
+
+// gv->video.page[0].tw = gv->video.page[0].sw/TILEWH;
+// gv->video.page[0].th = gv->video.page[0].sh/TILEWH;
+
+ //TODO MAKE FLEXIBLE~
+// gv->video.page[0].tilemidposscreenx = gv->video.page[0].tilesw;
+// gv->video.page[0].tilemidposscreeny = (gv->video.page[0].tilesh/2)+1;
+}
+
+void
+modexLeave() {
+ /* VGAmodeX restores original mode and palette */
+ vgaSetMode(TEXT_MODE);
+}
+
+page_t
+modexDefaultPage(page_t *p)
+{
+ page_t page;
+
+ /* default page values */
+ //page.data = VGA;
+ //page.data = (byte far *)(vga_state.vga_graphics_ram);
+ page.data = (vga_state.vga_graphics_ram);
+ page.dx = 0;
+ page.dy = 0;
+ page.sw = p->sw;
+ page.sh = p->sh;
+ page.width = p->sw+TILEWHD;
+ page.height = p->sh+TILEWHD;
+ page.tw = page.sw/TILEWH;
+ page.th = page.sh/TILEWH;
+ page.tilesw=page.width/TILEWH;
+ page.tilesh=page.height/TILEWH;
+ page.tilemidposscreenx = page.tw/2;
+ page.tilemidposscreeny = (page.th/2)+1;
+ page.stridew=page.width/4;
+ page.pagesize = (word)(page.width/4)*page.height;
+ page.id = 0;
+
+ 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->pagesize);
+ result.dx = 0;
+ result.dy = 0;
+ result.sw = p->sw;
+ result.sh = p->sh;
+ result.width = p->width;
+ result.height = p->height;
+ result.tw = p->tw;
+ result.th = p->th;
+ result.tilesw = p->tilesw;
+ result.tilesh = p->tilesh;
+ result.id = p->id+1;
+ result.stridew=p->stridew;
+ result.pagesize = p->pagesize;
+
+ return result;
+}
+
+//next page with defined dimentions~
+page_t
+modexNextPageFlexibleSize(page_t *p, word x, word y)
+{
+ page_t result;
+
+ result.data = p->data + (p->pagesize); /* compute the offset */
+ result.dx = 0;
+ result.dy = 0;
+ result.sw = x;
+ result.sh = y;
+ result.width = x;
+ result.height = y;
+ result.tw = result.sw/TILEWH;
+ result.th = result.sh/TILEWH;
+ result.tilesw=result.width/TILEWH;
+ result.tilesh=result.height/TILEWH;
+ result.id = p->id+1;
+ result.stridew=result.width/4;
+ result.pagesize = (word)(result.width/4)*result.height;
+
+ return result;
+}
+
+void modexCalcVmemRemain(video_t *video)
+{
+ byte i;
+ //printf("\n\n 1st vmem_remain=%u\n", video->vmem_remain);
+ for(i=0; inum_of_pages; i++)
+ {
+ video->vmem_remain-=video->page[i].pagesize;
+ //printf(" [%u], video->page[%u].pagesize=%u\n", i, i, video->page[i].pagesize);
+ //printf(" [%u], vmem_remain=%u\n", i, video->vmem_remain);
+ }
+}
+
+void modexHiganbanaPageSetup(video_t *video)
+{
+ video->vmem_remain=65535U;
+ video->num_of_pages=0;
+ (video->page[0]) = modexDefaultPage(&(video->page[0])); video->num_of_pages++; //video->page[0].width += (TILEWHD); video->page[0].height += (TILEWHD);
+ (video->page[1]) = modexNextPage(&(video->page[0])); video->num_of_pages++;
+ (video->page[2]) = modexNextPage(&(video->page[1])); video->num_of_pages++;
+// (video->page[3]) = modexNextPageFlexibleSize(&(video->page[2]), video->page[0].width/8, video->page[0].height/8); video->num_of_pages++;
+ //(video->page[3]) = modexNextPageFlexibleSize(&(video->page[2]), TILEWH, TILEWH); video->num_of_pages++;
+ modexCalcVmemRemain(video);
+ video->p=0;
+}
+
+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->stridew) + xoff; /* starting offset */
+ word nextRow = page->stridew-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 {
+ PUSHF
+ PUSH ES
+ PUSH AX
+ PUSH BX
+ PUSH CX
+ PUSH DX
+ PUSH SI
+ PUSH DI
+ 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
+ POP DI
+ POP SI
+ POP DX
+ POP CX
+ POP BX
+ POP AX
+ POP ES
+ POPF
+ }
+}
+
+/* moved to src/lib/modex16/16render.c */
+
+/* copy a region of video memory from one page to another.
+ * It assumes that the left edge of the tile is the same on both
+ * regions and the memory areas do not overlap.
+ */
+void
+modexCopyPageRegion(page_t *dest, page_t *src,
+ word sx, word sy,
+ word dx, word dy,
+ word width, word height)
+{
+ word doffset = (word)dest->data + dy*(dest->stridew) + dx/4;
+ word soffset = (word)src->data + sy*(src->stridew) + sx/4;
+ word scans = vga_state.vga_stride;
+ word nextSrcRow = src->stridew - scans - 1;
+ word nextDestRow = dest->stridew - scans - 1;
+ byte lclip[] = {0x0f, 0x0e, 0x0c, 0x08}; /* clips for rectangles not on 4s */
+ byte rclip[] = {0x0f, 0x01, 0x03, 0x07};
+ byte left = lclip[sx&0x03];
+ byte right = rclip[(sx+width)&0x03];
+
+ __asm {
+ PUSHF
+ PUSH ES
+ PUSH AX
+ PUSH BX
+ PUSH CX
+ PUSH DX
+ PUSH SI
+ PUSH DI
+
+ MOV AX, SCREEN_SEG ; work in the vga space
+ MOV ES, AX ;
+ MOV DI, doffset ;
+ MOV SI, soffset ;
+
+ MOV DX, GC_INDEX ; turn off cpu bits
+ MOV AX, 0008h ;
+ OUT DX, AX
+
+ MOV AX, SC_INDEX ; point to the mask register
+ MOV DX, AX ;
+ MOV AL, MAP_MASK ;
+ OUT DX, AL ;
+ INC DX ;
+
+ ROW_START:
+ PUSH DS
+ MOV AX, ES
+ MOV DS, AX
+ MOV CX, scans ; the number of latches
+
+ MOV AL, left ; do the left column
+ OUT DX, AL ;
+ MOVSB ;
+ DEC CX ;
+
+ MOV AL, 0fh ; do the inner columns
+ OUT DX, AL
+ REP MOVSB ; copy the pixels
+
+ MOV AL, right ; do the right column
+ OUT DX, AL
+ MOVSB
+ POP DS
+
+ MOV AX, SI ; go the start of the next row
+ ADD AX, nextSrcRow ;
+ MOV SI, AX ;
+ MOV AX, DI ;
+ ADD AX, nextDestRow ;
+ MOV DI, AX ;
+
+ DEC height ; do the rest of the actions
+ JNZ ROW_START ;
+
+ MOV DX, GC_INDEX+1 ; go back to CPU data
+ MOV AL, 0ffh ; none from latches
+ OUT DX, AL ;
+
+ POP DI
+ POP SI
+ POP DX
+ POP CX
+ POP BX
+ POP AX
+ POP ES
+ POPF
+ }
+}
+
+
+/* fade and flash */
+void
+modexFadeOn(word fade, byte *palette) {
+ fadePalette(-fade, 64, 64/fade+1, palette);
+}
+
+
+void
+modexFadeOff(word fade, byte *palette) {
+ fadePalette(fade, 0, 64/fade+1, palette);
+}
+
+
+void
+modexFlashOn(word fade, byte *palette) {
+ fadePalette(fade, -64, 64/fade+1, palette);
+}
+
+
+void
+modexFlashOff(word fade, byte *palette) {
+ fadePalette(-fade, 0, 64/fade+1, palette);
+}
+
+
+static void
+fadePalette(sbyte fade, sbyte start, word iter, byte *palette) {
+ word i;
+ byte dim = start;
+
+ /* handle the case where we just update */
+ if(iter == 0) {
+ modexPalUpdate1(palette);
+ return;
+ }
+
+ while(iter > 0) { /* FadeLoop */
+ for(i=0; i 127) {
+ tmppal[i] = 0;
+ } else if(tmppal[i] > 63) {
+ tmppal[i] = 63;
+ }
+ }
+ modexPalUpdate1(tmppal);
+ iter--;
+ dim += fade;
+ }
+}
+
+
+/* save and load */
+void
+modexPalSave(byte *palette) {
+ int i;
+
+ outp(PAL_READ_REG, 0); /* start at palette entry 0 */
+ for(i=0; ipalette;
+ word w=0;
+ word q=0;
+ word qq=0;
+ static word a[PAL_SIZE]; //palette array of change values!
+ word z=0, aq=0, aa=0, pp=0;
+
+ //modexWaitBorder();
+ vga_wait_for_vsync();
+ if((*i)==0)
+ {
+ memset(a, -1, sizeof(a));
+ outp(PAL_WRITE_REG, 0); /* start at the beginning of palette */
+ }
+ else if(qp==0)
+ {
+ q=(*i);
+ }
+ else
+ {
+ q=(*i);
+ qq=(*i)/3;
+// printf("q: %02d\n", (q));
+// printf("qq: %02d\n", (qq));
+ //printf(" (*i)-q=%02d\n", (*i)-q);
+ outp(PAL_WRITE_REG, qq); /* start at the beginning of palette */
+ }
+ if((*i)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
+ 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]))
+ {
+ w++;
+ break;
+ }
+ else if(qp>0 && (*i)>=(qp) && (*i)<((qp)+3))
+ {
+ //printf("qp=%d\n", qp);
+ //printf(" (*i)=%d a[%d]=%d\n", (*i), qp, a[qp]);
+ printf(" %d's color=%d\n", (*i), (a[qp])-(bmp->offset*3)+qp);
+ //outp(PAL_DATA_REG, p[((a[qp])-(bmp->offset*3)+qp)]);// fix this shit!
+ if((*i)+1==(qp)+3){ w++; /*(*i)++;*/ break; }
+ }
+ else
+ {
+ if(bmp->offset==0 && (*i)<3 && q==0) outp(PAL_DATA_REG, 0);
+ else
+ if(qp==0) outp(PAL_DATA_REG, p[(*i)-q]);
+ else{ //outp(PAL_DATA_REG, p[((*i)-(bmp->offset*3)+qp)]);
+ printf("p[]=%d qp=%d p[]-qp=%d\n", ((*i)-(bmp->offset*3)), qp, ((*i)-(bmp->offset*3))+qp); }
+ }
+ }
+ //if(qp>0) printf("qp=%d\n", qp);
+ //if(qp>0) printf(" (*i)=%d\n", (*i)/3);
+ }
+ //modexWaitBorder(); /* waits one retrace -- less flicker */
+ vga_wait_for_vsync();
+ if((*i)>=PAL_SIZE/2 && w==0)
+ {
+ for(; (*i)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
+ 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]))
+ {
+ w++;
+ break;
+ }
+ else if(qp>0 && (*i)>=(qp) && (*i)<((qp)+3))
+ {
+ //printf("qp=%d\n", qp);
+ //printf(" (*i)=%d a[%d]=%d\n", (*i), qp, a[qp]);
+ printf(" %d's color=%d\n", (*i), (a[qp]-(bmp->offset*3)+qp));
+ //outp(PAL_DATA_REG, p[((a[qp])-(bmp->offset*3)+qp)]);// fix this shit!
+ if((*i)+1==(qp)+3){ w++; /*(*i)++;*/ break; }
+ }
+ else
+ {
+ if(qp==0) outp(PAL_DATA_REG, p[(*i)-q]);
+ else{ //outp(PAL_DATA_REG, p[((*i)-(bmp->offset*3)+qp)]);
+ printf("p[]=%d qp=%d p[]-qp=%d\n", ((*i)-(bmp->offset*3)), qp, ((*i)-(bmp->offset*3))+qp); }
+ }
+ }
+ //printf(" (*i)=%d\n", (*i)/3);
+ }
+
+printf("\nqqqqqqqq\n\n");
+
+ //palette checker~
+ if(q>0 && qp==0)
+ {
+ long lq;
+ long bufSize = (bmp->width * bmp->height);
+ pp = q;
+ //printf("1(*i)=%02d\n", (*i)/3);
+ //printf("1z=%02d\n", z/3);
+ modexchkcolor(bmp, &q, &a, &aa, &z, i);
+ //printf("2(*i)=%02d\n", (*i)/3);
+ //printf("2z=%02d\n", z/3);
+ aq=0;
+aqpee:
+ while(aq<=aa)
+ {
+// printf("a[%02d]=(%d)\n", aq, a[aq]);
+ if(a[aq]==-1) aq++;
+ else { aqoffset++; break; }
+ }
+//update the image data here!
+ for(lq=0; lqoffset for this spot!
+ NO! wwww
+ */
+
+ /*
+ Facking bloody point the values of the changed palette to correct values.... major confusion! wwww
+ */
+
+ //(offset/bmp->offset)*bmp->offset
+
+
+ //printf("%02d ",bmp->data[lq]+bmp->offset);
+ //if(lq > 0 && lq%bmp->width==0) printf("\n");
+ //printf("%02d_", bmp->data[lq]+bmp->offset);
+ /*if(bmp->data[lq]+bmp->offset==aq)
+ {
+ //printf("%02d", bmp->data[lq]);
+ //printf("\n%02d\n", bmp->offset);
+ printf("aq=%02d ", aq);
+ printf("a[aq]=%02d ", a[aq]);
+ printf("a[aq]+aqpp=%02d ", a[aq]+aqpp);
+ printf("a[aq]-aqpp=%02d\n", a[aq]-aqpp);
+ //bmp->data[lq]=((bmp->data[lq]+bmp->offset)-a[aq]);
+//++++ bmp->data[lq]=a[aq]-aqpp;
+// printf("_%d ", bmp->data[lq]);
+ //if(lq > 0 && lq%bmp->width==0) printf("\n");
+ }
+ else if(bmp->data[lq]+bmp->offset < ((*i)/3)-aqpp)
+ {
+ if(bmp->data[lq]+bmp->offset >= aq)
+ {
+ bmp->data[lq]=(bmp->data[lq]+bmp->offset)-aqpp;//-((z-(*i))/3);
+ //printf("_%d ", bmp->data[lq]+bmp->offset)-aqpp-((z-(*i))/3);
+ }
+ else bmp->data[lq]+=(bmp->offset-aqpp);
+ }*/
+
+ //printf("%02d`", bmp->data[lq]);
+ //if(lq > 0 && lq%bmp->width==0) printf("\n");
+ }
+
+//printf(" aq=%02d\n", aq);
+//printf(" aa=%02d\n", aa);
+
+ //update the palette~
+ modexPalUpdate(bmp, &pp, aq, aqoffset);
+ (*i)=pp;
+
+ if(aqdata;
+ /* Each address accesses four neighboring pixels, so set
+ Write Plane Enable according to which pixel we want
+ to modify. The plane is determined by the two least
+ significant bits of the x-coordinate: */
+ modexSelectPlane(PLANE(x));
+ //outp(SC_INDEX, 0x02);
+ //outp(SC_DATA, 0x01 << (x & 3));
+
+ /* The offset of the pixel into the video segment is
+ offset = (width * y + x) / 4, and write the given
+ color to the plane we selected above. Heed the active
+ page start selection. */
+ VGA[(unsigned)((page->width/4) * y) + (x / 4) + pageOff] = color;
+
+}
+
+byte modexgetPixel(page_t *page, int x, int y)
+{
+ word pageOff = (word) page->data;
+ /* Select the plane from which we must read the pixel color: */
+ outpw(GC_INDEX, 0x04);
+ outpw(GC_INDEX+1, x & 3);
+
+ return VGA[(unsigned)((page->width/4) * y) + (x / 4) + pageOff];
+
+}
+
+void modexprint(page_t *page, word x, word y, word t, word col, word bgcol, const byte *str)
+{
+ word s, o, w;
+ word x_draw = x;
+ word addr = (word) romFontsData.l;
+ word addrq = (page->width/4) * y + (x / 4) + ((word)page->data);
+ word addrr = addrq;
+ byte c;
+
+ s=romFonts[t].seg;
+ o=romFonts[t].off;
+ w=romFonts[t].charSize;
+ romFontsData.chw=0;
+
+ for(; *str != '\0'; str++)
+ {
+ c = (*str);
+ if(c=='\n')
+ {
+ x = x_draw;
+ romFontsData.chw = 0;
+ addrq += (page->width / 4) * 8;
+ addrr = addrq;
+ y += 8;
+ continue;
+ }
+
+ // load the character into romFontsData.l
+ // no need for inline assembly!
+ // NTS: It might even be faster to just let the modexDrawChar point directly at ROM font than to copy per char! --J.C.
+ _fmemcpy(romFontsData.l,MK_FP(s,o+(w*c))/*ROM font location*/,w/*char size*/);
+ modexDrawChar(page, x_draw/*for mode X planar use*/, t, col, bgcol, addrr);
+ x_draw += 8; /* track X for edge of screen */
+ addrr += 2; /* move 8 pixels over (2 x 4 planar pixels per byte) */
+ }
+}
+
+void modexprintbig(page_t *page, word x, word y, word t, word col, word bgcol, const byte *str)
+{
+ word i, s, o, w, j, xp;
+ byte l[1024];
+ word addr = (word) l;
+ word chw=0;
+ byte c;
+
+ switch(t)
+ {
+ case 0:
+ w=14;
+ break;
+ case 1:
+ w=8;
+ break;
+ case 2:
+ w=8;
+ break;
+ case 3:
+ w=16;
+ break;
+ default:
+ t=3;
+ w=16;
+ break;
+ }
+
+ s=romFonts[t].seg;
+ o=romFonts[t].off;
+
+ for(; *str != '\0'; str++)
+ {
+ c = (*str);
+ if((c=='\n'/* || c=="\
+"*/)/* || chw>=page->width*/)
+ {
+ chw=0;
+ y+=w;
+ continue;
+ }
+ //load the letter 'A'
+ __asm {
+ PUSHF
+ PUSH ES
+ PUSH AX
+ PUSH BX
+ PUSH CX
+ PUSH DX
+ PUSH SI
+ PUSH DI
+
+ MOV DI, addr
+ MOV SI, o
+ MOV ES, s
+ SUB AH, AH
+ MOV AL, c ; the letter
+ MOV CX, w
+ MUL CX
+ ADD SI, AX ;the address of charcter
+ L1: MOV AX, ES:SI
+ MOV DS:DI, AX
+ INC SI
+ INC DI
+ DEC CX
+ JNZ L1
+
+ POP DI
+ POP SI
+ POP DX
+ POP CX
+ POP BX
+ POP AX
+ POP ES
+ POPF
+ }
+
+ for(i=0; i>=1;
+ }
+ }
+ chw += xp;
+ }
+}
+
+/* palette dump on display! */
+void modexpdump(page_t *pee)
+{
+ int mult=(QUADWH);
+ int palq=(mult)*TILEWH;
+ int palcol=0;
+ int palx, paly;
+ for(paly=0; palywidth, page->height, color);
+ /* set map mask to all 4 planes */
+ outpw(SC_INDEX, 0xff02);
+ //_fmemset(VGA, color, 16000);
+ _fmemset(Where, color, page->width*(page->height)/4);
+}
+
+void
+modexWaitBorder() {
+ while(inp(INPUT_STATUS_1) & 8) {
+ // spin
+ }
+
+// while(!(inp(INPUT_STATUS_1) & 8)) {
+// // spin
+// }
+}
+
+void bios_cls() {
+ VGA_ALPHA_PTR ap;
+ VGA_RAM_PTR rp;
+ unsigned char m;
+
+ m = int10_getmode();
+ if ((rp=vga_state.vga_graphics_ram) != NULL && !(m <= 3 || m == 7)) {
+ unsigned int i,im;
+
+ im = (FP_SEG(vga_state.vga_graphics_ram_fence) - FP_SEG(vga_state.vga_graphics_ram));
+ if (im > 0xFFE) im = 0xFFE;
+ im <<= 4;
+ for (i=0;i < im;i++) vga_state.vga_graphics_ram[i] = 0;
+ }
+ else if ((ap=vga_state.vga_alpha_ram) != NULL) {
+ unsigned int i,im;
+
+ im = (FP_SEG(vga_state.vga_alpha_ram_fence) - FP_SEG(vga_state.vga_alpha_ram));
+ if (im > 0x7FE) im = 0x7FE;
+ im <<= 4 - 1; /* because ptr is type uint16_t */
+ for (i=0;i < im;i++) vga_state.vga_alpha_ram[i] = 0x0720;
+ }
+ else {
+ printf("WARNING: bios cls no ptr\n");
+ }
+}
+
+void modexprintmeminfo(video_t *v)
+{
+ byte i;
+ printf("video memory remaining: %u\n", v->vmem_remain);
+ printf("page ");
+ for(i=0; inum_of_pages;i++)
+ {
+ printf(" [%u]=", i);
+ printf("(%Fp)", (v->page[i].data));
+ printf(" size=%u", v->page[i].pagesize);
+ printf(" sw=%lu sh=%lu ", (unsigned long)v->page[i].sw, (unsigned long)v->page[i].sh);
+ printf(" width=%lu height=%lu", (unsigned long)v->page[i].width, (unsigned long)v->page[i].height);
+ printf("\n");
+ }
+}