![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hostcall.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Tom Morton FrontierVM] / frontvm / src|
Return to hostcall.c CVS log | Up to [Tom Morton FrontierVM] / frontvm / src |
1.1 root 1: /*
2: Hatari - gemdos.c
3:
4: This file is distributed under the GNU Public License, version 2 or at
5: your option any later version. Read the file gpl.txt for details.
6:
7: GEMDOS intercept routines.
8: These are used mainly for hard drive redirection of high level file routines.
9:
10: Now case is handled by using glob. See the function
11: GemDOS_CreateHardDriveFileName for that. It also knows about symlinks.
12: A filename is recognized on its eight first characters, do don't try to
13: push this too far, or you'll get weirdness ! (But I can even run programs
14: directly from a mounted cd in lower cases, so I guess it's working well !).
15: */
16:
17: #include <time.h>
18: #include <ctype.h>
19: #include <SDL.h>
20: #include <SDL_endian.h>
21:
22: #include <sys/stat.h>
23: #include <dirent.h>
24: #include <unistd.h>
25:
26: #include "main.h"
27: #include "../m68000.h"
28: #include "hostcall.h"
29: #include "screen.h"
30: #include "audio.h"
31: #include "input.h"
32: #include "keymap.h"
33: #include "shortcut.h"
34:
35: /*
36: GEMDOS error codes, See 'The Atari Compendium' D.3
37: Call_Fread, Fwrite, etc should return these.
38: */
39: #define GEMDOS_EOK 0 // OK
40: #define GEMDOS_ERROR -1 // Generic error
41: #define GEMDOS_EDRVNR -2 // Drive not ready
42: #define GEMDOS_EUNCMD -3 // Unknown command
43: #define GEMDOS_E_CRC -4 // CRC error
44: #define GEMDOS_EBADRQ -5 // Bad request
45: #define GEMDOS_E_SEEK -6 // Seek error
46: #define GEMDOS_EMEDIA -7 // Unknown media
47: #define GEMDOS_ESECNF -8 // Sector not found
48: #define GEMDOS_EPAPER -9 // Out of paper
49: #define GEMDOS_EWRITF -10 // Write fault
50: #define GEMDOS_EREADF -11 // Read fault
51: #define GEMDOS_EWRPRO -12 // Device is write protected
52: #define GEMDOS_E_CHNG -14 // Media change detected
53: #define GEMDOS_EUNDEV -15 // Unknown device
54: #define GEMDOS_EINVFN -32 // Invalid function
55: #define GEMDOS_EFILNF -33 // File not found
56: #define GEMDOS_EPTHNF -34 // Path not found
57: #define GEMDOS_ENHNDL -35 // No more handles
58: #define GEMDOS_EACCDN -36 // Access denied
59: #define GEMDOS_EIHNDL -37 // Invalid handle
60: #define GEMDOS_ENSMEM -39 // Insufficient memory
61: #define GEMDOS_EIMBA -40 // Invalid memory block address
62: #define GEMDOS_EDRIVE -46 // Invalid drive specification
63: #define GEMDOS_ENSAME -48 // Cross device rename
64: #define GEMDOS_ENMFIL -49 // No more files
65: #define GEMDOS_ELOCKED -58 // Record is already locked
66: #define GEMDOS_ENSLOCK -59 // Invalid lock removal request
67: #define GEMDOS_ERANGE -64 // Range error
68: #define GEMDOS_EINTRN -65 // Internal error
69: #define GEMDOS_EPLFMT -66 // Invalid program load format
70: #define GEMDOS_EGSBF -67 // Memory block growth failure
71: #define GEMDOS_ELOOP -80 // Too many symbolic links
72: #define GEMDOS_EMOUNT -200 // Mount point crossed (indicator)
73:
74: void Call_Memset ()
75: {
76: int adr, count;
77: unsigned long Params;
78:
79: Params = GetReg (REG_A7);
80: Params -= SIZE_WORD;
81:
82: count = STMemory_ReadLong (Params+SIZE_WORD);
83: adr = STMemory_ReadLong (Params+SIZE_WORD+SIZE_LONG);
84:
85: if (use_renderer == R_OLD) {
86: memset (STRam+adr, 0, count);
87: } else {
88: memset (STRam+adr, 255, count);
89: }
90: fe2_bgcol = 0;
91: }
92:
93: void Call_MemsetBlue ()
94: {
95: int adr, count;
96: unsigned long Params;
97:
98: Params = GetReg (REG_A7);
99: Params -= SIZE_WORD;
100:
101: count = STMemory_ReadLong (Params+SIZE_WORD);
102: adr = STMemory_ReadLong (Params+SIZE_WORD+SIZE_LONG);
103: if (use_renderer == R_OLD) {
104: memset (STRam+adr, 0xe, count);
105: } else {
106: memset (STRam+adr, 255, count);
107: }
108: fe2_bgcol = 0xe;
109: }
110:
111: void Call_Memcpy ()
112: {
113: int dest, src, count;
114: unsigned long Params;
115:
116: Params = GetReg (REG_A7);
117: Params -= SIZE_WORD;
118:
119:
120: dest = STMemory_ReadLong (Params + SIZE_WORD);
121: src = STMemory_ReadLong (Params + SIZE_WORD + SIZE_LONG);
122: count = STMemory_ReadLong (Params + SIZE_WORD + 2*SIZE_LONG);
123:
124: memcpy (STRam+dest, STRam+src, count);
125: }
126:
127: static const char mouse_bmp[256] = {
128: 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
129: 0,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
130: 0,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
131: 0,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
132: 0,15,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
133: 0,15,15,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,
134: 0,15,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
135: 0,15,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,
136: 0,15, 0,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,
137: 0, 0,-1, 0,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,
138: -1,-1,-1, 0,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,
139: -1,-1,-1,-1, 0,15,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,
140: -1,-1,-1,-1, 0,15,15,15, 0,-1,-1,-1,-1,-1,-1,-1,
141: -1,-1,-1,-1,-1, 0,15, 0,-1,-1,-1,-1,-1,-1,-1,-1,
142: -1,-1,-1,-1,-1,-1, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,
143: -1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
144: };
145:
146: Uint8 under_mouse[256];
147:
148: void Call_BlitCursor ()
149: {
150: #if 0
151: int x, y, adr, org_x, org_y;
152: Uint8 *pixbase, *pix;
153: const char *bmp;
154: Uint8 *save;
155: unsigned long Params;
156:
157: Params = GetReg (REG_A7);
158: Params -= SIZE_WORD;
159:
160: org_x = STMemory_ReadLong (Params+SIZE_WORD);
161: org_y = STMemory_ReadLong (Params+SIZE_WORD+SIZE_LONG);
162: adr = STMemory_ReadLong (Params+SIZE_WORD+2*SIZE_LONG);
163:
164: pixbase = STRam + adr + (org_y*SCREENBYTES_LINE) + org_x;
165: bmp = mouse_bmp;
166: save = under_mouse;
167:
168: for (y=0; y<16; y++) {
169: if (y + org_y > SCREEN_HEIGHT_HBL) break;
170: pix = pixbase;
171: pixbase += SCREENBYTES_LINE;
172: for (x=0; x<16; x++, pix++, bmp++, save++) {
173: if (x+org_x >= SCREENBYTES_LINE) continue;
174: *save = *pix;
175: if (*bmp != -1) *pix = *bmp;
176: }
177: }
178: #endif /* 0 */
179: /* in screen.h */
180: mouse_shown = 1;
181: }
182:
183: void Call_RestoreUnderCursor ()
184: {
185: #if 0
186: int x, y, adr, org_x, org_y;
187: Uint8 *pixbase, *pix;
188: char *bmp;
189: unsigned long Params;
190:
191: Params = GetReg (REG_A7);
192: Params -= SIZE_WORD;
193:
194: org_x = STMemory_ReadLong (Params+SIZE_WORD);
195: org_y = STMemory_ReadLong (Params+SIZE_WORD+SIZE_LONG);
196: adr = STMemory_ReadLong (Params+SIZE_WORD+2*SIZE_LONG);
197:
198: pixbase = STRam + adr + (org_y*SCREENBYTES_LINE) + org_x;
199: bmp = under_mouse;
200:
201: for (y=0; y<16; y++) {
202: if (y + org_y > SCREEN_HEIGHT_HBL) break;
203: pix = pixbase;
204: pixbase += SCREENBYTES_LINE;
205: for (x=0; x<16; x++, pix++, bmp++) {
206: if (x+org_x >= SCREENBYTES_LINE) continue;
207: if (*bmp != -1) *pix = *bmp;
208: }
209: }
210: #endif /* 0 */
211: }
212:
213: void Call_PutPix ()
214: {
215: int col, org_x, scr;
216: char *pix;
217: unsigned long Params;
218:
219: Params = GetReg (REG_A7);
220: Params -= SIZE_WORD;
221:
222: col = STMemory_ReadWord (Params+SIZE_WORD)>>2;
223: org_x = (unsigned short) GetReg (REG_D4);
224: scr = GetReg (REG_A3);
225:
226: /* hack to fix screen line. frontier's logic still thinks
227: * there are 160 bytes per line */
228: /* which screen buffer it is based on */
229: if (scr & 0x100000) {
230: scr -= 0x100000;
231: scr *= 2;
232: scr += 0x100000;
233: } else {
234: scr -= 0xf0000;
235: scr *= 2;
236: scr += 0xf0000;
237: }
238: pix = (char *)STRam + scr + org_x;
239: *pix = col;
240: return;
241: }
242:
243: void Call_FillLine ()
244: {
245: int org_x,len,scr,col;
246: char *pix;
247: unsigned long Params;
248:
249: Params = GetReg (REG_A7);
250: Params -= SIZE_WORD;
251:
252:
253: col = STMemory_ReadWord (Params+SIZE_WORD)>>2;
254: org_x = (unsigned short) GetReg (REG_D4);
255: len = (~GetReg (REG_D5)) & 0xffff;
256: scr = GetReg (REG_A3);
257:
258: /* hack to fix screen line. frontier's logic still thinks
259: * there are 160 bytes per line */
260: /* which screen buffer it is based on */
261: if (scr & 0x100000) {
262: scr -= 0x100000;
263: scr *= 2;
264: scr += 0x100000;
265: } else {
266: scr -= 0xf0000;
267: scr *= 2;
268: scr += 0xf0000;
269: }
270: pix = (char *)STRam + scr;
271: org_x = SCREENBYTES_LINE;
272: while (org_x--) {
273: *pix = col;
274: pix++;
275: }
276: }
277:
278: /*
279: * This is used by the scanner code to draw object stalks
280: * which are below the plane of the scanner.
281: * The mask d7 indicates which pixels in the plane to set,
282: * and they are set if their current colour is zero.
283: *
284: * This implementation isn't the way the function is really
285: * supposed to be implemented (colour and draw mask was
286: * combined in d6 but the colour mask is wrong now for
287: * non-planar screen).
288: */
289: void Call_BackHLine ()
290: {
291: int i,scr,col,bitfield;
292: char *pix;
293: unsigned long Params;
294:
295: Params = GetReg (REG_A7);
296: Params -= SIZE_WORD;
297:
298:
299: col = STMemory_ReadWord (Params+SIZE_WORD)>>2;
300: scr = GetReg (REG_A3);
301: bitfield = (unsigned short) GetReg (REG_D7);
302:
303: /* hack to fix screen line. frontier's logic still thinks
304: * there are 160 bytes per line */
305: /* which screen buffer it is based on */
306: if (scr & 0x100000) {
307: scr -= 0x100000;
308: scr *= 2;
309: scr += 0x100000;
310: } else {
311: scr -= 0xf0000;
312: scr *= 2;
313: scr += 0xf0000;
314: }
315: pix = STRam + scr;
316: for (i=15; i>=0; i--) {
317: if ((bitfield & (1<<i)) && (*pix == 0)) *pix = col;
318: pix++;
319: }
320: }
321:
322: void Call_OldHLine ()
323: {
324: int org_x,len,scr,col;
325: char *pix;
326: unsigned long Params;
327:
328: Params = GetReg (REG_A7);
329: Params -= SIZE_WORD;
330:
331:
332: col = STMemory_ReadWord (Params+SIZE_WORD)>>2;
333: //printf ("col=%d, d4=%d, (idx) d5=%d, (scr_line) a3=%p\n", col, Regs[REG_D4]&0xffff, Regs[REG_D5]&0xffff, (void*)Regs[REG_A3]);
334: org_x = (unsigned short) GetReg (REG_D4);
335: len = (unsigned short) GetReg (REG_D5);
336: scr = GetReg (REG_A3);
337:
338: /* hack to fix screen line. frontier's logic still thinks
339: * there are 160 bytes per line */
340: /* which screen buffer it is based on */
341: if (scr & 0x100000) {
342: scr -= 0x100000;
343: scr *= 2;
344: scr += 0x100000;
345: } else {
346: scr -= 0xf0000;
347: scr *= 2;
348: scr += 0xf0000;
349: }
350: len = len/2;
351: /* horizontal line */
352: pix = STRam + scr + org_x;
353: while (len--) {
354: *pix = col;
355: pix++;
356: }
357: }
358:
359: void Call_HLine ()
360: {
361: int org_x,len,scr,col;
362: char *pix;
363:
364: col = (GetReg(REG_D1) & 0xffff)>>2;
365: org_x = GetReg(REG_D4) & 0xffff;
366: len = GetReg(REG_D5) & 0xffff;
367: scr = GetReg(REG_A3);
368:
369: /* horizontal line */
370: pix = STRam + scr + org_x;
371: while (len--) {
372: *pix = col;
373: pix++;
374: }
375: }
376:
377: /*
378: * Blits frontier format 4-plane thingy
379: */
380: void Call_BlitBmp ()
381: {
382: int width, height, org_x, org_y, bmp, scr;
383: char *bmp_pix, *scr_pix, *ybase;
384: int xpoo, i, ypoo, plane_incr;
385:
386: short word0, word1, word2, word3;
387: unsigned long Params;
388:
389: Params = GetReg (REG_A7);
390: Params -= SIZE_WORD;
391:
392:
393:
394: width = STMemory_ReadWord (Params+SIZE_WORD);
395: height = STMemory_ReadWord (Params+SIZE_WORD*2);
396: org_x = STMemory_ReadWord (Params+SIZE_WORD*3);
397: org_y = STMemory_ReadWord (Params+SIZE_WORD*4);
398: bmp = STMemory_ReadLong (Params+SIZE_WORD*5);
399: scr = STMemory_ReadLong (Params+SIZE_WORD*5 + SIZE_LONG);
400:
401: /* width is in words (width/16) */
402: //printf ("Blit %dx%d to %d,%d, bmp 0x%x, scr 0x%x.\n", width, height, org_x, org_y, bmp, scr);
403: bmp_pix = STRam + bmp + 4;
404: ybase = STRam + scr + (org_y*SCREENBYTES_LINE) + org_x;
405:
406: /* These checks were in the original blit routine */
407: if (org_x < 0) return;
408: if (org_y < 0) return;
409: if (height > 200) return;
410: if (width > 320) return;
411:
412: plane_incr = 2*height*width;
413:
414: ypoo = height;
415: while (ypoo--) {
416: scr_pix = (char *)ybase;
417: ybase += SCREENBYTES_LINE;
418: for (xpoo = width; xpoo; xpoo--) {
419: word0 = SDL_SwapBE16 (*((short*)bmp_pix));
420: bmp_pix += plane_incr;
421: word1 = SDL_SwapBE16 (*((short*)bmp_pix));
422: bmp_pix += plane_incr;
423: word2 = SDL_SwapBE16 (*((short*)bmp_pix));
424: bmp_pix += plane_incr;
425: word3 = SDL_SwapBE16 (*((short*)bmp_pix));
426:
427: for (i=0; i<16; i++) {
428: *scr_pix = (word0 >> (15-i))&0x1;
429: *scr_pix |= ((word1 >> (15-i))&0x1)<<1;
430: *scr_pix |= ((word2 >> (15-i))&0x1)<<2;
431: *scr_pix |= ((word3 >> (15-i))&0x1)<<3;
432: scr_pix++;
433: }
434: bmp_pix -= 3*plane_incr;
435: bmp_pix += 2;
436: }
437: }
438: #if 0
439: glDisable (GL_DEPTH_TEST);
440: glMatrixMode (GL_PROJECTION);
441: glPushMatrix ();
442: glLoadIdentity ();
443: glOrtho (0, 320, 0, 200, -1, 1);
444:
445: glMatrixMode (GL_MODELVIEW);
446: glPushMatrix ();
447: glLoadIdentity ();
448:
449: printf ("%d,%d %dx%d\n", org_x, org_y, width*16, height);
450: glTranslated (org_x, 0, 0);
451:
452: glBegin (GL_TRIANGLE_STRIP);
453: glColor3f (0.0f, 0.0f, 1.0f);
454: glVertex2i (0, 0);
455: glVertex2i (width*16, 0);
456: glVertex2i (0, height);
457: glVertex2i (width*16, height);
458: glEnd ();
459:
460: glMatrixMode (GL_PROJECTION);
461: glPopMatrix ();
462: glMatrixMode (GL_MODELVIEW);
463: glPopMatrix ();
464: glEnable (GL_DEPTH_TEST);
465: #endif
466: }
467:
468: #define SCR_W 320
469:
470: void Call_DrawStrShadowed ()
471: {
472: unsigned char *str;
473:
474: str = GetReg (REG_A0) + STRam;
475:
476: SetReg (REG_D1, DrawStr (
477: GetReg (REG_D1), GetReg (REG_D2),
478: GetReg (REG_D0), str, TRUE));
479: }
480:
481: void Call_DrawStr ()
482: {
483: unsigned char *str;
484:
485: str = GetReg (REG_A0) + STRam;
486:
487: SetReg (REG_D1, DrawStr (
488: GetReg (REG_D1), GetReg (REG_D2),
489: GetReg (REG_D0), str, FALSE));
490: }
491:
492: void Call_SetMainPalette ()
493: {
494: Uint32 pal_ptr;
495: int i;
496: unsigned long Params;
497:
498: Params = GetReg (REG_A7);
499: Params -= SIZE_WORD;
500:
501:
502: pal_ptr = STMemory_ReadLong (Params+SIZE_WORD);
503:
504: for (i=0; i<16; i++) {
505: MainPalette[i] = STMemory_ReadWord (pal_ptr);
506: //printf ("%hx ", MainPalette[i]);
507: pal_ptr+=2;
508: }
509: //printf ("\n");
510: }
511:
512: void Call_SetCtrlPalette ()
513: {
514: Uint32 pal_ptr;
515: int i;
516: unsigned long Params;
517:
518: Params = GetReg (REG_A7);
519: Params -= SIZE_WORD;
520:
521:
522: pal_ptr = STMemory_ReadLong (Params+SIZE_WORD);
523:
524: for (i=0; i<16; i++) {
525: CtrlPalette[i] = STMemory_ReadWord (pal_ptr);
526: pal_ptr+=2;
527: }
528: }
529:
530: int len_working_ext_pal;
531: unsigned short working_ext_pal[240];
532:
533: void Call_InformScreens ()
534: {
535: unsigned long Params;
536:
537: Params = GetReg (REG_A7);
538: Params -= SIZE_WORD;
539:
540: physcreen2 = STMemory_ReadLong (Params+SIZE_WORD);
541: logscreen2 = STMemory_ReadLong (Params+SIZE_WORD+SIZE_LONG);
542: physcreen = STMemory_ReadLong (Params+SIZE_WORD+2*SIZE_LONG);
543: logscreen = STMemory_ReadLong (Params+SIZE_WORD+3*SIZE_LONG);
544: }
545:
546: /* also copies the extended palette into main palette */
547: void Call_SetScreenBase ()
548: {
549: int i;
550: unsigned long Params;
551:
552: Params = GetReg (REG_A7);
553: Params -= SIZE_WORD;
554:
555: VideoBase = STMemory_ReadLong (Params+SIZE_WORD);
556: VideoRaster = STRam + VideoBase;
557:
558: for (i=0; i<len_working_ext_pal; i++) {
559: MainPalette[16+i] = working_ext_pal[i];
560: }
561: len_main_palette = 16 + len_working_ext_pal;
562: }
563:
564: void Call_MakeExtPalette ()
565: {
566: int col_list, len, col_idx, col_val, i;
567: unsigned long Params;
568:
569: Params = GetReg (REG_A7);
570: Params -= SIZE_WORD;
571:
572:
573: col_list = STMemory_ReadLong (Params+SIZE_WORD);
574:
575: len = STMemory_ReadWord (col_list) >> 2;
576: len_working_ext_pal = len;
577: col_list+=2;
578: //printf ("%d colours.\n", len+2);
579: for (i=0; i<len; i++) {
580: col_val = STMemory_ReadWord (col_list);
581: working_ext_pal[i] = col_val;
582: col_list += 2;
583: col_idx = STMemory_ReadWord (col_list);
584: /* offset dynamic colours into extended palette
585: * range (colours 16+) */
586: col_idx += 16<<2;
587: STMemory_WriteWord (col_list, col_idx);
588: col_list += 2;
589: }
590: }
591: void Call_DumpRegs ()
592: {
593: int i;
594: printf ("D: ");
595: for (i=0; i<8; i++) {
596: printf ("$%x ", GetReg (i));
597: } printf ("\n");
598: printf ("A: ");
599: for (i=0; i<8; i++) {
600: printf ("$%x ", GetReg (i+8));
601: } printf ("\n");
602: }
603:
604:
605: void Call_DumpDebug ()
606: {
607: int i, j;
608: printf ("Debug info. PC @ 68k line %d.\n", line_no);
609:
610: Call_DumpRegs ();
611:
612: printf ("Stack:");
613: j = GetReg (15);
614: for (i=0; i<8; i++) {
615: j+=4;
616: printf (" $%x", STMemory_ReadLong (j));
617: }
618: putchar ('\n');
619: }
620:
621:
622: /* mouse pos in d3,d4 */
623: void Call_NotifyMousePos ()
624: {
625: #if 0
626: int x, y;
627:
628: x = GetReg (REG_D3) & 0xffff;
629: y = GetReg (REG_D4) & 0xffff;
630:
631: x *= ScreenDraw.MouseScale;
632: y *= ScreenDraw.MouseScale;
633:
634: SDL_EventState (SDL_MOUSEMOTION, SDL_DISABLE);
635: SDL_WarpMouse (x, y);
636: SDL_EventState (SDL_MOUSEMOTION, SDL_ENABLE);
637: SDL_ShowCursor (SDL_ENABLE);
638: #endif /* 0 */
639: }
640:
641: static void Call_Idle ()
642: {
643: SDL_Delay (0);
644: }
645:
646: void Call_HostUpdate ()
647: {
648: /* Clear any key presses which are due to be de-bounced (held for one ST frame) */
649: Keymap_DebounceAllKeys();
650: /* Check 'Function' keys, so if press F12 we update screen correctly to Window! */
651: ShortCut_CheckKeys();
652: /* And handle any messages, check for quit message */
653: Main_EventHandler(); /* Process messages, set 'bQuitProgram' if user tries to quit */
654: /* Pass NULL interrupt function to quit cleanly */
655: //if (bQuitProgram) Int_AddAbsoluteInterrupt(4, 0L);
656: }
657:
658: /* d0.b = exception number, a0 = handler. */
659: static void SetExceptionHandler ()
660: {
661: /* only 32 handlers */
662: exception_handlers[GetReg(0) & 31] = GetReg (8);
663: }
664:
665: int DumpMess (int pos, int line)
666: {
667: if (GetXFlag ()) putchar ('X');
668: if (GetZFlag ()) putchar ('Z');
669: if (GetNFlag ()) putchar ('N');
670: if (GetVFlag ()) putchar ('V');
671: if (GetCFlag ()) putchar ('C');
672: return 0;
673: printf (" $%x $%x $%x $%x $%x $%x $%x $%x*$%x $%x $%x $%x $%x $%x $%x $%x:%d\n",
674: GetReg (0),
675: GetReg (1),
676: GetReg (2),
677: GetReg (3),
678: GetReg (4),
679: GetReg (5),
680: GetReg (6),
681: GetReg (7),
682: GetReg (8),
683: GetReg (9),
684: GetReg (10),
685: GetReg (11),
686: GetReg (12),
687: GetReg (13),
688: GetReg (14),
689: GetReg (15),line_no);
690: }
691: static int _X, _Z, _N, _V, _C;
692: static int PrevRegs[16];
693:
694: int changed ()
695: {
696: int i;
697: if (GetXFlag () != _X) return 1;
698: if (GetZFlag () != _Z) return 1;
699: if (GetNFlag () != _N) return 1;
700: if (GetVFlag () != _V) return 1;
701: if (GetCFlag () != _C) return 1;
702: for (i=0; i<16; i++) {
703: if (PrevRegs[i] != GetReg (i)) return 1;
704: }
705: return 0;
706: }
707:
708: void DumpRegsChanged ()
709: {
710: int i;
711:
712: //if (!changed ()) return;
713:
714: _X = GetXFlag ();
715: _Z = GetZFlag ();
716: _V = GetVFlag ();
717: _N = GetNFlag ();
718: _C = GetCFlag ();
719:
720: if (_X) putchar ('X');
721: if (_Z) putchar ('Z');
722: if (_N) putchar ('N');
723: if (_V) putchar ('V');
724: if (_C) putchar ('C');
725:
726: for (i=0; i<16; i++) {
727: if (PrevRegs[i] != GetReg (i)) {
728: printf (" %c%d:%x->%x", (i<8?'d':'a'), (i<8?i:i-8), PrevRegs[i], GetReg (i));
729: PrevRegs[i] = GetReg (i);
730: }
731: }
732: printf (" @%d\n", line_no);
733: }
734:
735: static void Call_Fdelete ()
736: {
737: int p, i;
738: char filename[64];
739:
740: p = GetReg (REG_D1);
741: for (i=0; ; i++) {
742: filename[i] = STMemory_ReadByte (p++);
743: if (!filename[i]) break;
744: }
745:
746: SetReg (REG_D0, remove (filename));
747: }
748:
749: static void Call_Fwrite ()
750: {
751: int p, i;
752: int pBuf = GetReg (REG_A4);
753: int len = GetReg (REG_D7);
754: char filename[64];
755: FILE *f;
756:
757: p = GetReg (REG_D1);
758: for (i=0; ; i++) {
759: filename[i] = STMemory_ReadByte (p++);
760: if (!filename[i]) break;
761: }
762:
763: if (!(f = fopen (filename, "wb"))) {
764: SetReg (REG_D0, 0);
765: } else {
766: SetReg (REG_D0, fwrite (STRam+pBuf, 1, len, f));
767: fclose (f);
768: }
769: }
770:
771: static void Call_Fread ()
772: {
773: int p, i;
774: int pBuf = GetReg (REG_A4);
775: int len = GetReg (REG_D7);
776: char filename[64];
777: FILE *f;
778:
779: p = GetReg (REG_D1);
780: for (i=0; ; i++) {
781: filename[i] = STMemory_ReadByte (p++);
782: if (!filename[i]) break;
783: }
784:
785: if (!(f = fopen (filename, "rb"))) {
786: SetReg (REG_D0, 0);
787: } else {
788: SetReg (REG_D0, fread (STRam+pBuf, 1, len, f));
789: fclose (f);
790: }
791: }
792:
793: #include <dirent.h>
794: static DIR *poodir;
795:
796: static char cur_dir[1024];
797:
798: static void Call_Fopendir ()
799: {
800: int p, i;
801: char name[64];
802:
803: p = GetReg (REG_A2);
804: for (i=0; ; i++) {
805: name[i] = STMemory_ReadByte (p++);
806: if (!name[i]) break;
807: }
808:
809: strncpy (cur_dir, name, 1024);
810:
811: poodir = opendir (name);
812: if (poodir) {
813: struct dirent *dent;
814: /* skip '.' and '..' */
815: dent = readdir (poodir);
816: dent = readdir (poodir);
817: SetReg (REG_D0, 0);
818: } else {
819: SetReg (REG_D0, -1);
820: }
821: }
822:
823: static void Call_Fclosedir ()
824: {
825: closedir (poodir);
826: }
827:
828: /* make sure fe2.s is allocating enough space at a0... */
829: #define MAX_FILENAME_LEN 14
830:
831: static void Call_Freaddir ()
832: {
833: int p, i, attribs, len;
834: char name[MAX_FILENAME_LEN];
835: /* filename into buffer (a0), attributes d2, len d1 */
836: char full_path_shit[1024];
837: struct stat _stat;
838: struct dirent *dent = readdir (poodir);
839: if (dent == NULL) {
840: SetReg (REG_D0, -1);
841: return;
842: }
843: strncpy (name, dent->d_name, MAX_FILENAME_LEN);
844: name[MAX_FILENAME_LEN-1] = '\0';
845:
846: strncpy (full_path_shit, cur_dir, 1024);
847: strncat (full_path_shit, "/", 1024);
848: strncat (full_path_shit, dent->d_name, 1024);
849: stat (full_path_shit, &_stat);
850:
851: len = _stat.st_size;
852: attribs = (S_ISDIR (_stat.st_mode) ? 0x10 : 0);
853:
854: p = GetReg (REG_A0);
855: for (i=0; i<MAX_FILENAME_LEN; i++) {
856: STMemory_WriteByte (p++, name[i]);
857: }
858: SetReg (REG_D2, attribs);
859: SetReg (REG_D1, len);
860: SetReg (REG_D0, 0);
861: }
862:
863: HOSTCALL hcalls [] = {
864: &SetExceptionHandler,
865: &Call_Memset, /* 0x1 */
866: &Call_MemsetBlue, /* 0x2 */
867: &Call_BlitCursor, /* 0x3 */
868: &Call_RestoreUnderCursor, /* 0x4 */
869: &Call_BlitBmp, /* 0x5 */
870: &Call_OldHLine, /* 0x6 */
871: &Call_HostUpdate, /* 0x7 */
872: &Call_Memcpy, /* 0x8 */
873: &Call_PutPix, /* 0x9 */
874: &Call_BackHLine, /* 0xa */
875: &Call_FillLine, /* 0xb */
876: &Call_SetMainPalette, /* 0xc */
877: &Call_SetCtrlPalette, /* 0xd */
878: &Call_SetScreenBase, /* 0xe */
879: NULL, /* 0xf */
880: &Call_DumpRegs, /* 0x10 */
881: &Call_MakeExtPalette, /* 0x11 */
882: &Call_PlaySFX, /* 0x12 */
883: &Call_GetMouseInput, /* 0x13 */
884: &Call_GetKeyboardEvent, /* 0x14 */
885: NULL, /* 0x15 */
886: &Call_HLine, /* 0x16 */
887: NULL, /* 0x17 */
888: &Call_NotifyMousePos, /* 0x18 */
889: &Call_InformScreens, /* 0x19 */
890: NULL,
891: &Call_DrawStrShadowed, /* 0x1b */
892: &Call_DrawStr, /* 0x1c */
893: &Call_PlayMusic, /* 0x1d */
894: &Call_StopMusic, /* 0x1e */
895: &Call_Idle, /* 0x1f */
896: &Call_DumpDebug, /* 0x20 */
897: &Call_IsMusicPlaying,
898: &Call_Fread, /* 0x22 */
899: &Call_Fwrite,
900: &Call_Fdelete,
901: &Call_Fopendir, /* 0x25 */
902: &Call_Freaddir,
903: &Call_Fclosedir,
904: NULL,
905: NULL,
906: NULL,
907: NULL,
908: NULL,
909: NULL,
910: NULL,
911: NULL,
912: NULL, /* 0x30 */
913: NULL,
914: NULL,
915: NULL,
916: NULL,
917: NULL,
918: NULL,
919: NULL,
920: NULL,
921: NULL,
922: NULL,
923: NULL,
924: NULL,
925: NULL,
926: NULL,
927: NULL,
928: NULL, /* 0x40 */
929: NULL,
930: NULL,
931: NULL,
932: NULL,
933: NULL,
934: NULL,
935: NULL,
936: NULL,
937: NULL,
938: NULL,
939: NULL,
940: NULL,
941: NULL,
942: NULL,
943: NULL,
944: NULL, /* 0x50 */
945: NULL,
946: NULL,
947: NULL,
948: NULL,
949: NULL,
950: NULL,
951: NULL,
952: NULL,
953: NULL,
954: NULL,
955: NULL,
956: NULL,
957: NULL,
958: NULL,
959: NULL,
960: Nu_PutTriangle, /* 0x60 */
961: Nu_PutQuad,
962: Nu_PutLine,
963: Nu_PutPoint,
964: Nu_PutTwinklyCircle,
965: Nu_PutColoredPoint,
966: Nu_PutBezierLine,
967: Nu_ComplexStart,
968: Nu_ComplexSNext,
969: Nu_ComplexSBegin,
970: Nu_ComplexEnd,
971: Nu_3DViewInit,
972: Nu_InsertZNode,
973: Nu_ComplexStartInner,
974: Nu_ComplexBezier,
975: Nu_DrawScreen,
976: Nu_PutTeardrop,
977: Nu_PutCircle,
978: Nu_PutOval,
979: Nu_IsGLRenderer,
980: Nu_GLClearArea,
981: Nu_QueueDrawStr,
982: Nu_PutCylinder,
983: Nu_PutBlob,
984: Nu_PutPlanet
985: };
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.