added testcode to check petscii char mapping, related to issue #988

2020-07-13 17:00:17 +02:00
parent 390f972014
commit e758110f61
2 changed files with 121 additions and 0 deletions
--- a/testcode/lib/cbm/petscii.c
+++ b/testcode/lib/cbm/petscii.c
@@ -0,0 +1,82 @@
+
+/* this program prints all available "petscii" characters to screen, once
+   using putchar (which wraps to kernal i/o) and once using conio (which
+   will do direct videoram access). after that the produced screencodes
+   are compared (they should match) (related to issue #988 */
+
+#include <conio.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#if defined(__C64__)
+#define VRAMPEEK(x) (*(char*)(0x0400 + (x)))
+#define CRAMPOKE(x, y) *(char*)(0xd800 + (x)) = (y)
+#else
+#error "this target is not supported yet"
+#endif
+
+unsigned char x, y, c;
+unsigned char c1, c2;
+unsigned char *p1, *p2;
+
+int err = 0;
+
+int main(void)
+{
+    clrscr();
+    bgcolor(COLOR_BLACK);
+    bordercolor(COLOR_BLACK);
+
+    /* output all characters using putchar() */
+    c = 0;
+    for (y = 0; y < 16; y++) {
+        for (x = 0; x < 16; x++) {
+            /* skip the codes that are unprintable control codes */
+            if (!((c < 32) || ((c > 127) && (c < 160)))) {
+                gotoxy(x, y); putchar(c);
+            }
+            c++;
+        }
+    }
+
+    /* output all characters using conio */
+    c = 0;
+    for (y = 0; y < 16; y++) {
+        for (x = 0; x < 16; x++) {
+            /* skip the codes that are unprintable control codes */
+            if (!((c < 32) || ((c > 127) && (c < 160)))) {
+                gotoxy(x + 20, y); cputc(c);
+            }
+            c++;
+        }
+    }
+
+    /* compare the two outputs */
+    for (y = 0; y < 16; y++) {
+        for (x = 0; x < 16; x++) {
+            c1 = VRAMPEEK((y * 40) + x);
+            c2 = VRAMPEEK((y * 40) + x + 0x14);
+            if (c1 == c2) {
+                c = COLOR_GREEN;
+            } else {
+                c = COLOR_RED;
+                err = 1;
+            }
+            CRAMPOKE((y * 40) + x, c);
+            CRAMPOKE((y * 40) + x + 0x14, c);
+        }
+    }
+
+    /* show the result */
+    textcolor(COLOR_WHITE);
+    gotoxy(0, 17);
+    if (err) {
+        bordercolor(COLOR_RED);
+        cputs("errors detected");
+    } else {
+        bordercolor(COLOR_GREEN);
+        cputs("all fine");
+    }
+    return 0;
+}