7 #include "lib\modex16.h"
\r
10 byte far* VGA=(byte far*) 0xA0000000; /* this points to video memory. */
\r
12 static void fadePalette(sbyte fade, sbyte start, word iter, byte *palette);
\r
13 static byte tmppal[PAL_SIZE];
\r
14 static struct pcxHeader {
\r
36 vgaSetMode(byte mode)
\r
40 regs.h.ah = SET_MODE;
\r
42 int86(VIDEO_INT, ®s, ®s);
\r
46 /* -========================= Entry Points ==========================- */
\r
50 dword far*ptr=(dword far*)VGA; /* used for faster screen clearing */
\r
52 0x0d06, /* vertical total */
\r
53 0x3e07, /* overflow (bit 8 of vertical counts) */
\r
54 0x4109, /* cell height (2 to double-scan */
\r
55 0xea10, /* v sync start */
\r
56 0xac11, /* v sync end and protect cr0-cr7 */
\r
57 0xdf12, /* vertical displayed */
\r
58 0x0014, /* turn off dword mode */
\r
59 0xe715, /* v blank start */
\r
60 0x0616, /* v blank end */
\r
61 0xe317 /* turn on byte mode */
\r
63 int CRTParmCount = sizeof(CRTParms) / sizeof(CRTParms[0]);
\r
65 /* TODO save current video mode and palette */
\r
66 vgaSetMode(VGA_256_COLOR_MODE);
\r
68 /* disable chain4 mode */
\r
69 outpw(SC_INDEX, 0x0604);
\r
71 /* synchronous reset while setting Misc Output */
\r
72 outpw(SC_INDEX, 0x0100);
\r
74 /* select 25 MHz dot clock & 60 Hz scanning rate */
\r
75 outp(MISC_OUTPUT, 0xe3);
\r
77 /* undo reset (restart sequencer) */
\r
78 outpw(SC_INDEX, 0x0300);
\r
80 /* reprogram the CRT controller */
\r
81 outp(CRTC_INDEX, 0x11); /* VSync End reg contains register write prot */
\r
82 outp(CRTC_DATA, 0x7f); /* get current write protect on varios regs */
\r
84 /* send the CRTParms */
\r
85 for(i=0; i<CRTParmCount; i++) {
\r
86 outpw(CRTC_INDEX, CRTParms[i]);
\r
89 /* clear video memory */
\r
90 outpw(SC_INDEX, 0x0f02);
\r
91 for(i=0; i<0x8000; i++) {
\r
99 /* TODO restore original mode and palette */
\r
100 vgaSetMode(TEXT_MODE);
\r
105 modexShowPage(page_t page) {
\r
109 high_address = HIGH_ADDRESS | ((word)(page) & 0xff00);
\r
110 low_address = LOW_ADDRESS | ((word)(page) << 8);
\r
112 /* wait for appropriate timing */
\r
113 while ((inp(INPUT_STATUS_1) & DISPLAY_ENABLE));
\r
114 outpw(CRTC_INDEX, high_address);
\r
115 outpw(CRTC_INDEX, low_address);
\r
117 /* wait for one retrace */
\r
118 while (!(inp(INPUT_STATUS_1) & VRETRACE));
\r
123 modexPanPage(page_t *page, int dx, int dy) {
\r
124 /* TODO figure out how the $@#! you do horizontal panning */
\r
125 *page += dy * SCREEN_WIDTH;
\r
130 modexSelectPlane(byte plane) {
\r
131 outp(SC_INDEX, MAP_MASK); /* select plane */
\r
132 outp(SC_DATA, plane);
\r
137 modexClearRegion(page_t page, int x, int y, int w, int h, byte color) {
\r
143 /* TODO Make this fast. It's SLOOOOOOW */
\r
144 for(plane=0; plane < 4; plane++) {
\r
145 modexSelectPlane(PLANE(plane+x));
\r
146 for(dx = x; dx < endx; dx+=4) {
\r
147 for(dy=y; dy<endy; dy++) {
\r
148 page[PAGE_OFFSET(dx, dy)] = color;
\r
156 modexDrawBmp(page_t page, int x, int y, bitmap_t *bmp, byte sprite) {
\r
161 /* TODO Make this fast. It's SLOOOOOOW */
\r
162 for(plane=0; plane < 4; plane++) {
\r
163 modexSelectPlane(PLANE(plane+x));
\r
164 for(px = plane; px < bmp->width; px+=4) {
\r
166 for(py=0; py<bmp->height; py++) {
167 if(!sprite || bmp->data[offset])
\r
168 page[PAGE_OFFSET(x+px, y+py)] = bmp->data[offset];
\r
169 offset+=bmp->width;
\r
176 /* fade and flash */
\r
178 modexFadeOn(word fade, byte *palette) {
\r
179 fadePalette(-fade, 64, 64/fade+1, palette);
\r
184 modexFadeOff(word fade, byte *palette) {
\r
185 fadePalette(fade, 0, 64/fade+1, palette);
\r
190 modexFlashOn(word fade, byte *palette) {
\r
191 fadePalette(fade, -64, 64/fade+1, palette);
\r
196 modexFlashOff(word fade, byte *palette) {
\r
197 fadePalette(-fade, 0, 64/fade+1, palette);
\r
202 fadePalette(sbyte fade, sbyte start, word iter, byte *palette) {
\r
206 /* handle the case where we just update */
\r
208 modexPalUpdate(palette);
\r
212 while(iter > 0) { /* FadeLoop */
\r
213 for(i=0; i<PAL_SIZE; i++) { /* loadpal_loop */
\r
214 tmppal[i] = palette[i] - dim;
\r
215 if(tmppal[i] > 127) {
\r
217 } else if(tmppal[i] > 63) {
\r
221 modexPalUpdate(tmppal);
\r
228 /* save and load */
\r
230 modexPalSave(byte *palette) {
\r
233 outp(PAL_READ_REG, 0); /* start at palette entry 0 */
\r
234 for(i=0; i<PAL_SIZE; i++) {
\r
235 palette[i] = inp(PAL_DATA_REG); /* read the palette data */
\r
243 ptr = malloc(PAL_SIZE);
\r
245 /* handle errors */
\r
247 printf("Could not allocate palette.\n");
\r
256 modexLoadPalFile(byte *filename, byte **palette) {
\r
260 /* free the palette if it exists */
\r
265 /* allocate the new palette */
\r
266 *palette = modexNewPal();
\r
268 /* open the file */
\r
269 file = fopen(filename, "rb");
\r
271 printf("Could not open palette file: %s\n", filename);
\r
275 /* read the file */
\r
277 while(!feof(file)) {
\r
278 *ptr++ = fgetc(file);
\r
286 modexSavePalFile(char *filename, byte *pal) {
\r
290 /* open the file for writing */
\r
291 file = fopen(filename, "wb");
\r
293 printf("Could not open %s for writing\n", filename);
\r
297 /* write the data to the file */
\r
298 fwrite(pal, 1, PAL_SIZE, file);
\r
306 fadePalette(-1, 64, 1, tmppal);
\r
312 fadePalette(-1, -64, 1, tmppal);
\r
318 modexPalUpdate(byte *p) {
\r
321 outp(PAL_WRITE_REG, 0); /* start at the beginning of palette */
\r
322 for(i=0; i<PAL_SIZE/2; i++) {
\r
323 outp(PAL_DATA_REG, p[i]);
\r
325 modexWaitBorder(); /* waits one retrace -- less flicker */
\r
326 for(i=PAL_SIZE/2; i<PAL_SIZE; i++) {
\r
327 outp(PAL_DATA_REG, p[i]);
\r
333 modexWaitBorder() {
\r
334 while(inp(INPUT_STATUS_1) & 8) {
\r
338 while(!(inp(INPUT_STATUS_1) & 8)) {
\r
345 modexLoadPcx(char *filename) {
\r
348 struct pcxHeader head;
\r
353 /* open the PCX file for reading */
\r
354 file = fopen(filename, "rb");
\r
356 printf("Could not open %s for reading.\n", filename);
\r
360 /* read the header */
\r
361 fread(&head, sizeof(char), sizeof(struct pcxHeader), file);
\r
363 /* make sure this is 8bpp */
\r
364 if(head.bpp != 8) {
\r
365 printf("I only know how to handle 8bpp pcx files!\n");
\r
370 /* allocate the buffer */
\r
371 result.width = head.xmax - head.xmin + 1;
\r
372 result.height = head.ymax - head.ymin + 1;
\r
373 bufSize = result.width * result.height;
\r
374 result.data = malloc(bufSize);
\r
376 printf("Could not allocate memory for bitmap data.");
\r
381 /* read the buffer in */
\r
384 /* get the run length and the value */
\r
385 count = fgetc(file);
\r
386 if(0xC0 == (count & 0xC0)) { /* this is the run count */
\r
394 /* write the pixel the specified number of times */
\r
395 for(; count && index < bufSize; count--,index++) {
\r
396 result.data[index] = val;
\r
398 } while(index < bufSize);
\r
400 /* handle the palette */
\r
401 fseek(file, -769, SEEK_END);
\r
403 result.palette = modexNewPal();
\r
404 if(head.version == 5 && val == 12) {
\r
405 /* use the vga palette */
\r
406 for(index=0; !feof(file) && index < PAL_SIZE; index++) {
\r
408 result.palette[index] = val >> 2;
\r
411 /* use the 16 color palette */
\r
412 for(index=0; index<48; index++) {
\r
413 result.palette[index] = head.pal16[index];
\r