Merge branch 'master' of github.com:/tschak909/platoterm64

Author: tschak909

Makefile

@@ -360,6 +360,8 @@ dist-c128: $(PROGRAM).c128
 	c1541 -attach dist.c128/platoterm128-1_0.d64 -write dist.c128/c128-joy.mou mou-joy
 	c1541 -attach dist.c128/platoterm128-1_0.d64 -write dist.c128/c128-pot.mou mou-pot
 	c1541 -attach dist.c128/platoterm128-1_0.d64 -write dist.c128/c128-swlink.ser ser-swlink
+	c1541 -attach dist.c128/platoterm128-1_0.d64 -write dist.c128/c128-vdc2.tgi tgi-vdchi
+	c1541 -attach dist.c128/platoterm128-1_0.d64 -write dist.c128/c128-vdc.tgi tgi-vdclo
 	c1541 -attach dist.c128/platoterm128-1_0.d64 -write dist.c128/splash.bin splash.bin
 
 dist-apple2: $(PROGRAM).apple2

dist.c128/c128-vdc.tgi

@@ -5,9 +5,9 @@
 #include <stdint.h>
 
 uint8_t FONT_SIZE_X=8;
-uint8_t FONT_SIZE_Y=15; // Last line not used, for now
+uint8_t FONT_SIZE_Y_400=15; // Last line not used, for now
 
-uint8_t font[]={
+uint8_t font_400[]={
 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,	/* 0x20  space */
 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
 
@@ -489,7 +489,171 @@ uint8_t font[]={
 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00
 };
 
-// Get rid of font pointer table.
-#define FONTPTR(a) (1<<4)
 
 uint8_t fontm23[2048];
+
+uint8_t FONT_SIZE_Y_200=6;
+
+uint8_t font_200[]={
+  0x00,0x00,0x00,0x00,0x00,0x00,    /* SPACE 0x20 */
+  0x08,0x08,0x08,0x00,0x08,0x00,    /* ! 0x21 */
+  0x24,0x24,0x00,0x00,0x00,0x00,    /* " 0x22 */
+  0x24,0x7E,0x24,0x7E,0x24,0x00,    /* # 0x23 */
+  0x08,0x3E,0x38,0x0E,0x3E,0x08,    /* $ 0x24 */
+  0x62,0x64,0x08,0x13,0x23,0x00,    /* % 0x25 */
+  0x38,0x38,0x7E,0x48,0x77,0x00,    /* & 0x26 */
+  0x08,0x08,0x00,0x00,0x00,0x00,    /* ' 0x27 */
+  0x08,0x10,0x10,0x10,0x08,0x00,    /* ( 0x28 */
+  0x08,0x04,0x04,0x04,0x08,0x00,    /* ) 0x29 */
+  0x08,0x6B,0x1C,0x6B,0x08,0x00,    /* * 0x2a */
+  0x00,0x18,0x7E,0x18,0x00,0x00,    /* + 0x2b */  
+  0x00,0x00,0x00,0x00,0x18,0x08,    /* , 0x2c */
+  0x00,0x00,0x7E,0x00,0x00,0x00,    /* - 0x2d */
+  0x00,0x00,0x00,0x00,0x18,0x00,    /* . 0x2e */
+  0x02,0x04,0x08,0x10,0x20,0x00,    /* / 0x2f */
+  0x3C,0x46,0x4A,0x52,0x3C,0x00,    /* 0 0x30 */
+  0x08,0x38,0x08,0x08,0x3E,0x00,    /* 1 0x31 */
+  0x3C,0x02,0x3C,0x40,0x7E,0x00,    /* 2 0x32 */
+  0x3C,0x02,0x1C,0x02,0x3C,0x00,    /* 3 0x33 */
+  0x1C,0x24,0x44,0x7E,0x04,0x00,    /* 4 0x34 */
+  0x7E,0x40,0x7C,0x02,0x7C,0x00,    /* 5 0x35 */
+  0x3C,0x40,0x7C,0x42,0x3C,0x00,    /* 6 0x36 */
+  0x7E,0x02,0x0C,0x10,0x10,0x00,    /* 7 0x37 */
+  0x3C,0x42,0x3C,0x42,0x3C,0x00,    /* 8 0x38 */
+  0x3C,0x42,0x3E,0x02,0x3C,0x00,    /* 9 0x39 */
+  0x00,0x00,0x18,0x00,0x18,0x00,    /* : 0x3a */
+  0x00,0x00,0x18,0x00,0x18,0x08,    /* ; 0x3b */
+  0x00,0x0C,0x30,0x0C,0x00,0x00,    /* < 0x3c */
+  0x00,0x7E,0x00,0x7E,0x00,0x00,    /* = 0x3d */
+  0x00,0x18,0x06,0x18,0x00,0x00,    /* > 0x3e */
+  0x3C,0x42,0x1C,0x00,0x10,0x00,    /* ? 0x3f */  
+  0x3C,0x4E,0x5E,0x40,0x3E,0x00,    /* @ 0x40 */
+  0x3C,0x42,0x7E,0x42,0x42,0x00,    /* A 0x41 */
+  0x7C,0x42,0x7C,0x42,0x7C,0x00,    /* B 0x42 */
+  0x3C,0x42,0x40,0x42,0x3C,0x00,    /* C 0x43 */
+  0x78,0x44,0x42,0x44,0x78,0x00,    /* D 0x44 */
+  0x7E,0x40,0x7C,0x40,0x7E,0x00,    /* E 0x45 */
+  0x7E,0x40,0x7C,0x40,0x40,0x00,    /* F 0x46 */
+  0x3E,0x40,0x4E,0x42,0x3E,0x00,    /* G 0x47 */
+  0x42,0x42,0x7E,0x42,0x42,0x00,    /* H 0x48 */
+  0x1C,0x08,0x08,0x08,0x1C,0x00,    /* I 0x49 */
+  0x02,0x02,0x02,0x42,0x3C,0x00,    /* J 0x4a */
+  0x46,0x48,0x78,0x44,0x42,0x00,    /* K 0x4b */
+  0x40,0x40,0x40,0x40,0x7E,0x00,    /* L 0x4c */
+  0x42,0x66,0x5A,0x42,0x42,0x00,    /* M 0x4d */
+  0x62,0x52,0x4A,0x46,0x42,0x00,    /* N 0x4e */
+  0x3C,0x42,0x42,0x42,0x3C,0x00,    /* O 0x4f */
+  0x7C,0x42,0x7C,0x40,0x40,0x00,    /* P 0x50 */
+  0x3C,0x42,0x4A,0x46,0x3E,0x00,    /* Q 0x51 */
+  0x7C,0x42,0x7C,0x42,0x42,0x00,    /* R 0x52 */
+  0x3C,0x40,0x3C,0x02,0x3C,0x00,    /* S 0x53 */
+  0x7F,0x08,0x08,0x08,0x08,0x00,    /* T 0x54 */
+  0x42,0x42,0x42,0x42,0x3C,0x00,    /* U 0x55 */
+  0x42,0x42,0x42,0x24,0x18,0x00,    /* V 0x56 */
+  0x42,0x42,0x5A,0x66,0x42,0x00,    /* W 0x57 */
+  0x42,0x24,0x18,0x24,0x42,0x00,    /* X 0x58 */
+  0x41,0x41,0x3E,0x08,0x08,0x00,    /* Y 0x59 */
+  0x7E,0x04,0x18,0x20,0x7E,0x00,    /* Z 0x5a */
+  0x38,0x20,0x20,0x20,0x38,0x00,    /* [ 0x5b */
+  0x40,0x20,0x10,0x08,0x04,0x00,    /* \ 0x5c */
+  0x1C,0x04,0x04,0x04,0x1C,0x00,    /* ] 0x5d */
+  0x18,0x24,0x00,0x00,0x00,0x00,    /* CIRCUMFLEX ^ 0x5e*/
+  0x00,0x00,0x00,0x00,0x7E,0x00,    /* _ 0x5f */
+  0x30,0x08,0x00,0x00,0x00,0x00,    /* GRAVE ACCENT ` 0x60 */
+  0x00,0x3C,0x02,0x3E,0X3E,0x00,    /* a 0x61 */
+  0x40,0x7C,0x42,0x42,0x7C,0x00,    /* b 0x62 */
+  0x00,0x3C,0x40,0x40,0x3C,0x00,    /* c 0x63 */
+  0x02,0x3E,0x42,0x42,0x3E,0x00,    /* d 0x64 */
+  0x00,0x3c,0x7e,0x40,0x3c,0x00,    /* e 0x65 */
+  0x0E,0x10,0x3C,0x10,0x10,0x00,    /* f 0x66 */
+  0x00,0x3C,0x42,0x3E,0x02,0x1C,    /* g 0x67 */
+  0x40,0x7C,0x42,0x42,0x42,0x00,    /* h 0x68 */
+  0x08,0x00,0x18,0x08,0x1C,0x00,    /* i 0x69 */
+  0x08,0x00,0x18,0x08,0x08,0x30,    /* j 0x6a */
+  0x40,0x46,0x78,0x48,0x46,0x00,    /* k 0x6b */
+  0x18,0x08,0x08,0x08,0x1C,0x00,    /* l 0x6c */
+  0x00,0x7E,0x49,0x49,0x49,0x00,    /* m 0x6d */
+  0x00,0x7C,0x42,0x42,0x42,0x00,    /* n 0x6e */
+  0x00,0x3C,0x42,0x42,0x3C,0x00,    /* o 0x6f */
+  0x00,0x7C,0x42,0x42,0x7C,0x40,    /* p 0x70 */
+  0x00,0x3C,0x42,0x3E,0x02,0x03,    /* q 0x67 */
+  0x00,0x2E,0x30,0x20,0x20,0x00,    /* r 0x72 */
+  0x00,0x1E,0x70,0x0E,0x7C,0x00,    /* s 0x73 */
+  0x10,0x3E,0x10,0x10,0x0E,0x00,    /* t 0x74 */
+  0x00,0x42,0x42,0x42,0x3E,0x00,    /* u 0x75 */
+  0x00,0x22,0x22,0x14,0x08,0x00,    /* v 0x76 */
+  0x00,0x41,0x49,0x49,0x36,0x00,    /* w 0x77 */
+  0x00,0x63,0x1C,0x14,0x63,0x00,    /* x 0x78 */
+  0x00,0x42,0x42,0x3E,0x02,0x1C,    /* y 0x79 */
+  0x00,0x3E,0x0C,0x18,0x3E,0x00,    /* z 0x7a */
+  0x0E,0x08,0x30,0x08,0x0E,0x00,    /* { 0x7b */
+  0x08,0x08,0x08,0x08,0x08,0x00,    /* | 0x7c */
+  0x38,0x08,0x06,0x08,0x38,0x00,    /* } 0x7d */
+  0x32,0x4C,0x00,0x00,0x00,0x00,    /* ~ 0x7e */
+
+  0x00,0x70,0x50,0x70,0x00,0x00,    /* BOX 0x7f */ /* TODO: PLATO extended characters */
+  0x00,0x00,0x00,0x00,0x00,0x00,    /* SPACE 0xa0 */
+  0x00,0x10,0x20,0x40,0x80,0x00,    /* / 0xa1 */
+  0x00,0xF0,0x00,0xF0,0x00,0xF0,    /* EQUIVALENT 0xa2 */
+  0x00,0x00,0x00,0x00,0x68,0xB0,    /* LOW TILDE 0xa3 */
+  0x20,0x70,0x80,0x70,0x20,0x00,    /* ASSIGN 0xa4 */
+  0x20,0xF0,0x20,0xF0,0x40,0x00,    /* NOT EQUAL 0xa5 */
+  0x00,0x20,0x70,0x20,0x20,0x00,    /* UP ARROW 0xa6 */
+  0x00,0x00,0x20,0xF0,0x20,0x00,    /* RIGHT ARROW 0xa7 */
+  0x00,0x20,0x20,0x70,0x20,0x00,    /* DOWN ARROW 0xa8 */
+  0x00,0x00,0x40,0xF0,0x40,0x00,    /* LEFT ARROW 0xa9 */
+  0x00,0x50,0x20,0x50,0x00,0x00,    /* MULTIPLY 0xaa */
+  0xF0,0x80,0x60,0x80,0xF0,0x00,    /* SIGMA 0xab */
+  0x00,0x20,0x50,0x88,0xF8,0x00,    /* DELTA 0xac*/
+  0x00,0x90,0x90,0x60,0x00,0x00,    /* UNION 0xad*/
+  0x00,0x60,0x90,0x90,0x00,0x00,    /* INTERSECT 0xae */
+  0x00,0x60,0x00,0x60,0x00,0x00,    /* DIVIDE 0xaf */
+  0x00,0x50,0xA0,0x70,0x00,0x00,    /* ALPHA 0xb0 */
+  0x20,0x50,0xA0,0x90,0xE0,0x80,    /* BETA 0xb1 */
+  0x20,0x40,0x20,0x50,0x70,0x00,    /* DELTA 0xb2 */
+  0x80,0x40,0x20,0x50,0x90,0x00,    /* LAMBDA 0xb3 */
+  0x00,0x00,0x50,0x50,0x60,0x80,    /* MU 0xb4 */
+  0x08,0x78,0xD0,0x50,0x50,0x00,    /* PI 0xb5 */
+  0x00,0x20,0x50,0x50,0xA0,0x80,    /* RHO 0xb6 */
+  0x30,0x40,0xA0,0xA0,0x40,0x00,    /* SIGMA 0xb7 */
+  0x00,0x00,0x90,0xB0,0x60,0x00,    /* OMEGA 0xb8 */
+  0x20,0x40,0x80,0x40,0x20,0xE0,    /* LESS THAN OR EQUAL 0xb9 */
+  0x80,0x40,0x20,0x40,0x80,0xE0,    /* GREATER THAN OR EQUAL 0xba */
+  0x20,0x50,0x70,0x50,0x20,0x00,    /* THETA 0xbb */
+  0x30,0x60,0xA0,0x60,0x30,0x00,    /* l-embed 0xbc */
+  0x00,0x60,0x90,0x60,0x00,0x00,    /* DEGREE 0xbd */
+  0xC0,0x60,0x50,0x60,0xC0,0x00,    /* r-embed 0xbe */
+  0xC0,0xA0,0x50,0x50,0xA0,0xC0,    /* ANSWER ARROW 0xbf */
+  0xFF,0x1C,0x20,0x20,0x1C,0xFF,    /* COPYRIGHT 0xc0 */
+  0x50,0x00,0x00,0x00,0x00,0x00,    /* DIERESIS 0xc1 */
+  0x00,0x70,0x50,0x70,0x00,0x00,    /* BOX 0xc2 */
+  0x00,0x00,0x20,0x00,0x00,0x00,    /* INTERPUNCT 0xc3 */
+  0x20,0x70,0xF8,0x70,0x20,0x00,    /* DIAMOND 0xc4 */
+  0x00,0x50,0x20,0x50,0x00,0x00,    /* MULTIPLY 0xc5 */
+  0x10,0x20,0x00,0x00,0x00,0x00,    /* ACUTE ACCENT 0xc6 */
+  0x00,0x00,0x00,0x08,0x10,0x00,    /* CEDILLA 0xc7 */
+  0x10,0x20,0x00,0x00,0x00,0x00,    /* HACEK 0xc8 */
+  0x20,0x70,0xF8,0x70,0x20,0x00,    /* DIAMOND 0xc9 */
+  0x20,0x20,0x20,0x20,0x20,0x20,    /* | 0xca */
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00,
+  0x00,0x00,0x00,0x00,0x00,0x00
+};

dist.c128/c128-vdc2.tgi

@@ -9,73 +9,6 @@
 
 #include <stdint.h>
 
-/* X and Y tables used to scale 512x512 PLATO display to 640x480 */
-unsigned short scalex[]={
-64,65,66,67,68,69,70,71,
-72,73,74,75,76,77,78,79,
-80,81,82,83,84,85,86,87,
-88,89,90,91,92,93,94,95,
-96,97,98,99,100,101,102,103,
-104,105,106,107,108,109,110,111,
-112,113,114,115,116,117,118,119,
-120,121,122,123,124,125,126,127,
-128,129,130,131,132,133,134,135,
-136,137,138,139,140,141,142,143,
-144,145,146,147,148,149,150,151,
-152,153,154,155,156,157,158,159,
-160,161,162,163,164,165,166,167,
-168,169,170,171,172,173,174,175,
-176,177,178,179,180,181,182,183,
-184,185,186,187,188,189,190,191,
-192,193,194,195,196,197,198,199,
-200,201,202,203,204,205,206,207,
-208,209,210,211,212,213,214,215,
-216,217,218,219,220,221,222,223,
-224,225,226,227,228,229,230,231,
-232,233,234,235,236,237,238,239,
-240,241,242,243,244,245,246,247,
-248,249,250,251,252,253,254,255,
-256,257,258,259,260,261,262,263,
-264,265,266,267,268,269,270,271,
-272,273,274,275,276,277,278,279,
-280,281,282,283,284,285,286,287,
-288,289,290,291,292,293,294,295,
-296,297,298,299,300,301,302,303,
-304,305,306,307,308,309,310,311,
-312,313,314,315,316,317,318,319,
-320,321,322,323,324,325,326,327,
-328,329,330,331,332,333,334,335,
-336,337,338,339,340,341,342,343,
-344,345,346,347,348,349,350,351,
-352,353,354,355,356,357,358,359,
-360,361,362,363,364,365,366,367,
-368,369,370,371,372,373,374,375,
-376,377,378,379,380,381,382,383,
-384,385,386,387,388,389,390,391,
-392,393,394,395,396,397,398,399,
-400,401,402,403,404,405,406,407,
-408,409,410,411,412,413,414,415,
-416,417,418,419,420,421,422,423,
-424,425,426,427,428,429,430,431,
-432,433,434,435,436,437,438,439,
-440,441,442,443,444,445,446,447,
-448,449,450,451,452,453,454,455,
-456,457,458,459,460,461,462,463,
-464,465,466,467,468,469,470,471,
-472,473,474,475,476,477,478,479,
-480,481,482,483,484,485,486,487,
-488,489,490,491,492,493,494,495,
-496,497,498,499,500,501,502,503,
-504,505,506,507,508,509,510,511,
-512,513,514,515,516,517,518,519,
-520,521,522,523,524,525,526,527,
-528,529,530,531,532,533,534,535,
-536,537,538,539,540,541,542,543,
-544,545,546,547,548,549,550,551,
-552,553,554,555,556,557,558,559,
-560,561,562,563,564,565,566,567,
-568,569,570,571,572,573,574,575,
-};
 
 unsigned short scaley[]={
 479,478,477,476,475,474,473,472,