Initial support for Robotron PC 1715W in libcuss.

Author: shattered

cpmtools/libcuss/goto.c

@@ -43,6 +43,16 @@ void con_goto(uint16_t x, uint16_t y)
 			cpm_printstring0(buffer);
 			cpm_bios_conout('H');
 		}
+    #elif defined LIBCUSS_ROBOTRON
+        if (!x && !y)
+            cpm_bios_conout(LIBCUSS_HOME);
+        else
+        {
+            static uint8_t gotoseq[] = "\033xx";
+            gotoseq[1] = y + 0x80;
+            gotoseq[2] = x + 0x80;
+            cpm_printstring0((char*) gotoseq);
+        }
 	#else
         #error "No libcuss configuration specified."
     #endif

cpmtools/libcuss/libcuss.h

@@ -53,6 +53,10 @@ extern void con_revoff(void);
 	#define SCREENWIDTH 80
 	#define SCREENHEIGHT 25
 	#define LIBCUSS_ADM3
+#elif defined LIBCUSS_RT1715W
+    #define SCREENWIDTH 80
+    #define SCREENHEIGHT 24
+    #define LIBCUSS_ROBOTRON
 #else
     #error "No libcuss configuration specified."
 #endif
@@ -102,5 +106,17 @@ extern void con_revoff(void);
     #define LIBCUSS_KEY_RIGHT "\014"
 #endif
 
+#if defined LIBCUSS_ROBOTRON
+    #define LIBCUSS_HOME '\x01'
+    #define LIBCUSS_CLEAR "\x0c"
+    #define LIBCUSS_CLEAREOL "\x16"
+    #define LIBCUSS_NEWLINE "\r\n"
+
+    #define LIBCUSS_KEY_LEFT "\x08"
+    #define LIBCUSS_KEY_DOWN "\x07"
+    #define LIBCUSS_KEY_UP "\x09"
+    #define LIBCUSS_KEY_RIGHT "\x06"
+#endif
+
 #endif