vttest.c: vt100 compatibility test (part 1 of 2)
Johan Wide'n
johanw at ttds.UUCP
Tue May 1 10:45:36 AEST 1984
This program tests vt100 lookalikes for compatibility.
An smaller version of this program was posted to net.sources
a few month's ago. The program was developed under TOPS-10
which explains it's non-UNIX flavour. It has been run under
BSD4.2 (VAX), version 7 (PDP-11) and System III (MC68000).
{decvax,philabs}!mcvax!enea!ttds!johanw Johan Widen
The Royal Institute of
Technology
Stockholm
Cut at this line
----------------------------------------------------------
: This is a shar archive. Extract with sh, not csh.
echo x - vttest.c1
cat > vttest.c1 << '!Funky!Stuff!'
/*
VTTEST.C
Written nov 1983 - mar 1984 by Per Lindberg,
Stockholm University Computer Center (QZ), Sweden.
THE MAD PROGRAMMER STRIKES AGAIN!
This software is (c) 1984 by QZ
Non-commercial use and copying allowed.
This is a program to test the compatibility (or to demonstrate the
non-compatibility) of so-called "VT100-compatible" terminals. In
conformance of the good old hacker traditions, the only documentation
of this program is the source code itself. To understand it, you also
need a copy of the original VT100 manual from DEC.
This version of the program (which is the original) is written for the
Sargasso C compiler for the DECsystem-10. I would like to hear from
anyone who has made a UNIXification of it.
This program does not have support for all the different variations of
VT100, like VT125, VT131 or the new VT200 series. I might fix that
someday, but don't hold your breath... In the meantime, feel free to
add that yourself. Happy Hacking!
Comments and bug reports are welcome. I cannot guarantee any
bug fixes or improvements, but if I feel like it, I'll do it.
My adress is:
The COM system at QZ: Per Lindberg QZ
Network-mail adress: Per_Lindberg_QZ%QZCOM.MAILNET at MIT-MULTICS.ARPA
Real-world-mail address: Per Lindberg
Stockholm University Computing Center, QZ
Box 27 322
S - 102 54 Stockholm
SWEDEN
May your terminal be truly VT100 compatible!
/TMP
*/
/* Implementation dependent stuff for the Sargasso C compiler */
/*#define XENIX /* XENIX implies UNIX */
/*#define SIII /* SIII implies UNIX, (NDELAY a la System III) */
#define UNIX
#ifdef SARGASSO
#define _UNIXCON /* Make UNIX-flavored I/O */
#endif
#include <stdio.h> /* Make UNIX-flavored I/O */
#ifdef SARGASSO
/*#strings low /* put strings in lowseg mem */
/* so that we can modify them. */
#endif
#ifdef UNIX
#include <ctype.h>
#include <sgtty.h>
struct sgttyb sgttyOrg, sgttyNew;
#ifdef SIII
#include <fcntl.h>
#endif
#endif
char inchar(), *instr(), *lookup();
struct table {
int key;
char *msg;
} paritytable[] = {
{ 1, "NONE" },
{ 4, "ODD" },
{ 5, "EVEN" },
{ -1, "" }
},nbitstable[] = {
{ 1, "8" },
{ 2, "7" },
{ -1,"" }
},speedtable[] = {
{ 0, "50" },
{ 8, "75" },
{ 16, "110" },
{ 24, "132.5"},
{ 32, "150" },
{ 40, "200" },
{ 48, "300" },
{ 56, "600" },
{ 64, "1200" },
{ 72, "1800" },
{ 80, "2000" },
{ 88, "2400" },
{ 96, "3600" },
{ 104, "4800" },
{ 112, "9600" },
{ 120, "19200" },
{ -1, "" }
};
int ttymode;
main() {
int menuchoice;
static char *mainmenu[] = {
"Exit",
"Test of cursor movements",
"Test of screen features",
"Test of character sets",
"Test of double-sized characters",
"Test of keyboard",
"Test of terminal reports",
"Test of VT52 mode",
"Test of known bugs",
""
};
initterminal();
do {
menuchoice = menu(mainmenu, "Choose test type");
switch (menuchoice) {
case 1: tst_movements(); break;
case 2: tst_screen(); break;
case 3: tst_characters(); break;
case 4: tst_doublesize(); break;
case 5: tst_keyboard(); break;
case 6: tst_reports(); break;
case 7: tst_vt52(); break;
case 8: tst_bugs(); break;
}
} while (menuchoice);
bye();
}
tst_movements() {
/* Test of:
CUF (Cursor Forward)
CUB (Cursor Backward)
CUD (Cursor Down) IND (Index) NEL (Next Line)
CUU (Cursor Up) RI (Reverse Index)
CUP (Cursor Position) HVP (Horizontal and Vertical Position)
ED (Erase in Display)
EL (Erase in Line)
DECALN (Screen Alignment Display)
<CR> <BS>
*/
int row, col;
/* decaln(); */
ed(2);
decaln();
cup( 9,10); ed(1);
cup(18,60); ed(0); el(1);
cup( 9,71); el(0);
for (row = 10; row <= 16; row++) {
cup(row, 10); el(1);
cup(row, 71); el(0);
}
cup(17,30); el(2);
for (col = 1; col <= 80; col++) {
hvp(24, col); printf("*");
hvp( 1, col); printf("*");
}
cup(2,2);
for (row = 2; row <= 23; row++) {
printf("+");
cub(1);
ind();
}
cup(23,79);
for (row = 23; row >=2; row--) {
printf("+");
cub(1); ri();
}
cup(2,1);
for (row = 2; row <= 23; row++) {
printf("*"); cup(row, 80);
printf("*");
cub(10);
if (row < 10) nel();
else printf("\n");
}
cup(2,10);
cub(42); cuf(2);
for (col = 3; col <= 78; col++) {
printf("+");
cuf(0); cub(2); cuf(1);
}
cup(23,70);
cuf(42); cub(2);
for (col = 78; col >= 3; col--) {
printf("+");
cub(1); cuf(1); cub(0); printf("%c", 8);
}
cup( 1, 1); cuu(10); cuu(1); cuu(0);
cup(24,80); cud(10); cud(1); cud(0);
cup(10,12);
for (row = 10; row <= 15; row++) {
for (col = 12; col <= 69; col++) printf(" ");
cud(1); cub(58);
}
cuu(5); cuf(1);
printf("The screen should be cleared, and have a unbroken border");
cup(12,13);
printf("of *'s and +'s around the edge, and exactly in the");
cup(13,13);
printf("middle there should be a frame of E's around this text");
cup(14,13);
printf("with one (1) free position around it. ");
pause1();
}
tst_screen() {
/* Test of:
- DECSTBM (Set Top and Bottom Margins)
- TBC (Tabulation Clear)
- HTS (Horizontal Tabulation Set)
- SM RM (Set/Reset mode): - 80/132 chars
- Origin: Realtive/absolute
- Scroll: Smooth/jump
- Wraparound
- SGR (Select Graphic Rendition)
- SM RM (Set/Reset Mode) - Inverse
- DECSC (Save Cursor)
- DECRC (Restore Cursor)
*/
int i, j, cset, row, col, down, soft, background;
char *attr[5], *tststr;
tststr = "*qx`";
attr[0] = ";0"; attr[1] = ";1"; attr[2] = ";4";
attr[3] = ";5"; attr[4] = ";7";
ed(2);
sm("?7"); /* Wrap Around ON */
cup(1,1);
for (col = 1; col <= 160; col++) printf("*");
rm("?7"); /* Wrap Around OFF */
cup(3,1);
for (col = 1; col <= 160; col++) printf("*");
sm("?7"); /* Wrap Around ON */
cup(5,1);
println("This should be three identical lines of *'s completely filling");
println("the top of the screen without any empty lines between.");
println("(Test of WRAP AROUND mode setting.)");
pause1();
ed(2);
tbc(3);
cup(1,1);
for (col = 1; col <= 78; col += 3) {
cuf(3); hts();
}
cup(1,4);
for (col = 4; col <= 78; col += 6) {
tbc(0); cuf(6);
}
cup(1,7); tbc(1); tbc(2); /* no-op */
cup(1,1); for (col = 1; col <= 78; col += 6) printf("\t*");
cup(2,2); for (col = 2; col <= 78; col += 6) printf(" *");
cup(4,1);
println("Test of TAB setting/resetting. These two lines");
printf("%s", "should look the same. ");
pause1();
for (background = 0; background <= 1; background++) {
if (background) rm("?5");
else sm("?5");
sm("?3"); /* 132 cols */
ed(2); /* VT100 clears screen on SM3/RM3, but not obviously, so... */
cup(1,1); tbc(3);
for (col = 1; col <= 132; col += 8) {
cuf(8); hts();
}
cup(1,1); for (col = 1; col <= 130; col += 10) printf("1234567890");
printf("12");
for (row = 3; row <= 20; row++) {
cup(row,row);
printf("This is 132 column mode, %s background.",
background ? "dark" : "light");
}
pause1();
rm("?3"); /* 80 cols */
ed(2); /* VT100 clears screen on SM3/RM3, but not obviously, so... */
cup(1,1); for (col = 1; col <= 80; col += 10) printf("1234567890");
for (row = 3; row <= 20; row++) {
cup(row,row);
printf("This is 80 column mode, %s background.",
background ? "dark" : "light");
}
pause1();
}
ed(2);
sm("?6"); /* Origin mode (relative) */
for (soft = -1; soft <= 0; soft++) {
if (soft) sm("?4");
else rm("?4");
for (row = 12; row >= 1; row -= 11) {
decstbm(row, 24-row+1);
ed(2);
for (down = 0; down >= -1; down--) {
if (down) cuu(24);
else cud(24);
for (i = 1; i <= 30; i++) {
printf("%s scroll %s region %d Line %d\n",
soft ? "Soft" : "Jump",
down ? "down" : "up",
2*(13-row), i);
if (down) { ri(); ri(); }
}
}
pause1();
}
}
ed(2);
decstbm(23,24);
printf(
"\nOrigin mode test. This line should be at the bottom of the screen.");
cup(1,1);
printf("%s",
"This line should be the one above the bottom of the screeen. ");
pause1();
ed(2);
rm("?6"); /* Origin mode (absolute) */
cup(24,1);
printf(
"Origin mode test. This line should be at the bottom of the screen.");
cup(1,1);
printf("%s", "This line should be at the top if the screen. ");
pause1();
decstbm(1,24);
ed(2);
cup( 1,20); printf("Graphic rendition test pattern:");
cup( 4, 1); sgr("0"); printf("vanilla");
cup( 4,40); sgr("0;1"); printf("bold");
cup( 6, 6); sgr(";4"); printf("underline");
cup( 6,45);sgr(";1");sgr("4");printf("bold underline");
cup( 8, 1); sgr("0;5"); printf("blink");
cup( 8,40); sgr("0;5;1"); printf("bold blink");
cup(10, 6); sgr("0;4;5"); printf("underline blink");
cup(10,45); sgr("0;1;4;5"); printf("bold underline blink");
cup(12, 1); sgr("1;4;5;0;7"); printf("negative");
cup(12,40); sgr("0;1;7"); printf("bold negative");
cup(14, 6); sgr("0;4;7"); printf("underline negative");
cup(14,45); sgr("0;1;4;7"); printf("bold underline negative");
cup(16, 1); sgr("1;4;;5;7"); printf("blink negative");
cup(16,40); sgr("0;1;5;7"); printf("bold blink negative");
cup(18, 6); sgr("0;4;5;7"); printf("underline blink negative");
cup(18,45); sgr("0;1;4;5;7"); printf("bold underline blink negative");
sgr("");
rm("?5"); /* Inverse video off */
cup(23,1); el(0); printf("Dark background. "); pause1();
sm("?5"); /* Inverse video */
cup(23,1); el(0); printf("Light background. "); pause1();
rm("?5");
ed(2);
cup(8,12); printf("normal");
cup(8,24); printf("bold");
cup(8,36); printf("underscored");
cup(8,48); printf("blinking");
cup(8,60); printf("reversed");
cup(10,1); printf("stars:");
cup(12,1); printf("line:");
cup(14,1); printf("x'es:");
cup(16,1); printf("diamonds:");
for (cset = 0; cset <= 3; cset++) {
for (i = 0; i <= 4; i++) {
cup(10 + 2 * cset, 12 + 12 * i);
sgr(attr[i]);
if (cset == 0 || cset == 2) scs(0,'B');
else scs(0,'0');
for (j = 0; j <= 4; j++) {
printf("%c", tststr[cset]);
}
decsc();
cup(cset + 1, i + 1); sgr(""); scs(0,'B'); printf("A");
decrc();
for (j = 0; j <= 4; j++) {
printf("%c", tststr[cset]);
}
}
}
sgr("0"); scs(0,'B'); cup(21,1);
println("Test of the SAVE/RESTORE CURSOR feature. There should");
println("be ten characters of each flavour, and a rectangle");
println("of 5 x 4 A's filling the top left of the screen.");
pause1();
}
tst_characters() {
/* Test of:
SCS (Select character Set)
*/
int i, j, g, cset;
char chcode[5], *setmsg[5];
chcode[0] = 'A';
chcode[1] = 'B';
chcode[2] = '0';
chcode[3] = '1';
chcode[4] = '2';
setmsg[0] = "UK / national";
setmsg[1] = "US ASCII";
setmsg[2] = "Special graphics and line drawing";
setmsg[3] = "Alternate character ROM standard characters";
setmsg[4] = "Alternate character ROM special graphics";
ed(2);
cup(1,10); printf("Selected as G0 (with SI)");
cup(1,48); printf("Selected as G1 (with SO)");
for (cset = 0; cset <= 4; cset++) {
scs(1,'B');
cup(3 + 4 * cset, 1);
sgr("1");
printf("Character set %c (%s)",chcode[cset], setmsg[cset]);
sgr("0");
for (g = 0; g <= 1; g++) {
scs(g,chcode[cset]);
for (i = 1; i <= 3; i++) {
cup(3 + 4 * cset + i, 10 + 38 * g);
for (j = 0; j <= 31; j++) {
printf("%c", i * 32 + j);
}
}
}
}
scs(1,'B');
cup(24,1); printf("These are the installed character sets. ");
pause1();
}
tst_doublesize() {
/* Test of:
DECSWL (Single Width Line)
DECDWL (Double Width Line)
DECDHL (Double Height Line) (also implicit double width)
*/
int i, w, w1;
/* Print the test pattern in both 80 and 132 character width */
for(w = 0; w <= 1; w++) {
w1 = 13 * w;
ed(2);
cup(1, 1);
if (w) { sm("?3"); printf("132 column mode"); }
else { rm("?3"); printf(" 80 column mode"); }
cup( 5, 3 + 2 * w1);
printf("v------- left margin");
cup( 7, 3 + 2 * w1);
printf("This is a normal-sized line");
decdhl(0); decdhl(1); decdwl(); decswl();
cup( 9, 2 + w1);
printf("This is a Double-width line");
decswl(); decdhl(0); decdhl(1); decdwl();
cup(11, 2 + w1);
decdwl(); decswl(); decdhl(1); decdhl(0);
printf("This is a Double-width-and-height line");
cup(12, 2 + w1);
decdwl(); decswl(); decdhl(0); decdhl(1);
printf("This is a Double-width-and-height line");
cup(14, 2 + w1);
decdwl(); decswl(); decdhl(1); decdhl(0); el(2);
printf("This is another such line");
cup(15, 2 + w1);
decdwl(); decswl(); decdhl(0); decdhl(1);
printf("This is another such line");
cup(17, 3 + 2 * w1);
printf("^------- left margin");
cup(21, 1);
printf("This is not a double-width line");
for (i = 0; i <= 1; i++) {
cup(21,6);
if (i) { printf("**is**"); decdwl(); }
else { printf("is not"); decswl(); }
cup(23,1); pause1();
}
}
rm("?3");
ed(2);
scs(0,'0');
cup( 8,1); decdhl(0); printf("lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk");
cup( 9,1); decdhl(1); printf("lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk");
cup(10,1); decdhl(0); printf("x x");
cup(11,1); decdhl(1); printf("x x");
cup(12,1); decdhl(0); printf("x x");
cup(13,1); decdhl(1); printf("x x");
cup(14,1); decdhl(0); printf("x x");
cup(15,1); decdhl(1); printf("x x");
cup(16,1); decdhl(0); printf("mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj");
cup(17,1); decdhl(1); printf("mqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj");
scs(0,'B'); sgr("1;5");
cup(12,3); printf("The mad programmer strikes again!");
cup(13,3); printf("The mad programmer strikes again!");
sgr("0");
cup(22,1);
println("Another test pattern... a frame with blinking bold text,");
printf("%s", "all in double-height double-width size. ");
pause1();
decstbm(8,24);
cup(8,1); /* We are in absolute origin mode */
for (i = 1; i <= 12; i++)
ri();
cup(1,1);
printf("%s", "Exactly half of the box should remain. ");
pause1();
}
tst_keyboard() {
/* Test of:
- DECLL (Load LEDs)
- Keyboard return messages
- SM RM (Set/Reset Mode) - Cursor Keys
- Auto repeat
- DECKPAM (Keypad Application Mode)
- DECKPNM (Keypad Numeric Mode)
The standard VT100 keayboard layout:
UP DN LE RI
ESC 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ BS
TAB* qQ wW eE rR tT yY uU iI oO pP [{ ]} DEL
** ** aA sS dD fF gG hH jJ kK lL ;: ," RETN \|
** **** zZ xX cC vV bB nN mM ,< .> /? **** LF
****************SPACE BAR****************
PF1 PF2 PF3 PF4
*7* *8* *9* *-*
*4* *5* *6* *,*
*1* *2* *3*
***0*** *.* ENT
*/
char *ledmsg[6], *ledseq[6];
int i, j, okflag;
int key1boardlayout;
int cur1keymode, fn1keymode;
char kbdc;
char *kbds = " ";
char *curkeystr, *fnkeystr, *abmstr;
char arptstring[500];
static struct key {
char c;
int row;
int col;
char *symbol;
} keytab [] = {
{ 27, 1, 0, "ESC" },
{ '1', 1, 6, "1" }, { '!', 1, 7, "!" },
{ '2', 1, 11, "2" }, { '@', 1, 12, "@" },
{ '3', 1, 16, "3" }, { '#', 1, 17, "#" },
{ '4', 1, 21, "4" }, { '$', 1, 22, "$" },
{ '5', 1, 26, "5" }, {'\%', 1, 27, "%" },
{ '6', 1, 31, "6" }, { '^', 1, 32, "^" },
{ '7', 1, 36, "7" }, { '&', 1, 37, "&" },
{ '8', 1, 41, "8" }, { '*', 1, 42, "*" },
{ '9', 1, 46, "9" }, { '(', 1, 47, "(" },
{ '0', 1, 51, "0" }, { ')', 1, 52, ")" },
{ '-', 1, 56, "-" }, { '_', 1, 57, "_" },
{ '=', 1, 61, "=" }, { '+', 1, 62, "+" },
{ '`', 1, 66, "`" }, { '~', 1, 67, "~" },
{ 8, 1, 70, "BS" },
{ 9, 2, 0, " TAB " },
{ 'q', 2, 8, "q" }, { 'Q', 2, 9, "Q" },
{ 'w', 2, 13, "w" }, { 'W', 2, 14, "W" },
{ 'e', 2, 18, "e" }, { 'E', 2, 19, "E" },
{ 'r', 2, 23, "r" }, { 'R', 2, 24, "R" },
{ 't', 2, 28, "t" }, { 'T', 2, 29, "T" },
{ 'y', 2, 33, "y" }, { 'Y', 2, 34, "Y" },
{ 'u', 2, 38, "u" }, { 'U', 2, 39, "U" },
{ 'i', 2, 43, "i" }, { 'I', 2, 44, "I" },
{ 'o', 2, 48, "o" }, { 'O', 2, 49, "O" },
{ 'p', 2, 53, "p" }, { 'P', 2, 54, "P" },
{ '[', 2, 58, "[" }, { '{', 2, 59, "{" },
{ ']', 2, 63, "]" }, { '}', 2, 64, "}" },
{ 127, 2, 71, "DEL" },
{ 'a', 3, 10, "a" }, { 'A', 3, 11, "A" },
{ 's', 3, 15, "s" }, { 'S', 3, 16, "S" },
{ 'd', 3, 20, "d" }, { 'D', 3, 21, "D" },
{ 'f', 3, 25, "f" }, { 'F', 3, 26, "F" },
{ 'g', 3, 30, "g" }, { 'G', 3, 31, "G" },
{ 'h', 3, 35, "h" }, { 'H', 3, 36, "H" },
{ 'j', 3, 40, "j" }, { 'J', 3, 41, "J" },
{ 'k', 3, 45, "k" }, { 'K', 3, 46, "K" },
{ 'l', 3, 50, "l" }, { 'L', 3, 51, "L" },
{ ';', 3, 55, ";" }, { ':', 3, 56, ":" },
{'\'', 3, 60, "'" }, { '"', 3, 61,"\"" },
{ 13, 3, 65, "RETN"},
{'\\', 3, 71,"\\" }, { '|', 3, 72, "|" },
{ 'z', 4, 12, "z" }, { 'Z', 4, 13, "Z" },
{ 'x', 4, 17, "x" }, { 'X', 4, 18, "X" },
{ 'c', 4, 22, "c" }, { 'C', 4, 23, "C" },
{ 'v', 4, 27, "v" }, { 'V', 4, 28, "V" },
{ 'b', 4, 32, "b" }, { 'B', 4, 33, "B" },
{ 'n', 4, 37, "n" }, { 'N', 4, 38, "N" },
{ 'm', 4, 42, "m" }, { 'M', 4, 43, "M" },
{ ',', 4, 47, "," }, { '<', 4, 48, "<" },
{ '.', 4, 52, "." }, { '>', 4, 53, ">" },
{ '/', 4, 57, "/" }, { '?', 4, 58, "?" },
{ 10, 4, 69, "LF" },
{ ' ', 5, 13, " SPACE BAR "},
{'\0', 0, 0, "" }
};
static struct natkey {
char natc;
int natrow;
int natcol;
char *natsymbol;
} natkeytab [][29] = {
{
{ '"', 1, 12, "\""},
{ '&', 1, 32, "&" },
{ '/', 1, 37, "/" },
{ '(', 1, 42, "(" },
{ ')', 1, 47, ")" },
{ '=', 1, 52, "=" },
{ '+', 1, 56, "+" }, { '?', 1, 57, "?" },
{ '`', 1, 61, "`" }, { '@', 1, 62, "@" },
{ '<', 1, 66, "<" }, { '>', 1, 67, ">" },
{ '}', 2, 58, "}" }, { ']', 2, 59, "]" },
{ '^', 2, 63, "^" }, { '~', 2, 64, "~" },
{ '|', 3, 55, "|" }, {'\\', 3, 56,"\\" },
{ '{', 3, 60, "{" }, { '[', 3, 61, "[" },
{'\'', 3, 71, "'" }, { '*', 3, 72, "*" },
{ ',', 4, 47, "," }, { ';', 4, 48, ";" },
{ '.', 4, 52, "." }, { ':', 4, 53, ":" },
{ '-', 4, 57, "-" }, { '_', 4, 58, "_" },
{'\0', 0, 0, "" }
},
{
{ '"', 1, 12, "\""},
{ '&', 1, 32, "&" },
{ '/', 1, 37, "/" },
{ '(', 1, 42, "(" },
{ ')', 1, 47, ")" },
{ '=', 1, 52, "=" },
{ '+', 1, 56, "+" }, { '?', 1, 57, "?" },
{ '`', 1, 61, "`" }, { '@', 1, 62, "@" },
{ '<', 1, 66, "<" }, { '>', 1, 67, ">" },
{ '}', 2, 58, "}" }, { ']', 2, 59, "]" },
{ '~', 2, 63, "~" }, { '^', 2, 64, "^" },
{ '|', 3, 55, "|" }, {'\\', 3, 56,"\\" },
{ '{', 3, 60, "{" }, { '[', 3, 61, "[" },
{'\'', 3, 71, "'" }, { '*', 3, 72, "*" },
{ ',', 4, 47, "," }, { ';', 4, 48, ";" },
{ '.', 4, 52, "." }, { ':', 4, 53, ":" },
{ '-', 4, 57, "-" }, { '_', 4, 58, "_" },
{'\0', 0, 0, "" }
}
};
static struct curkey {
char *curkeymsg[3];
int curkeyrow;
int curkeycol;
char *curkeysymbol;
char *curkeyname;
} curkeytab [] = {
/* A Reset, A Set, VT52 */
{{"\033[A","\033OA","\033A"}, 0, 56, "UP", "Up arrow" },
{{"\033[B","\033OB","\033B"}, 0, 61, "DN", "Down arrow" },
{{"\033[D","\033OD","\033D"}, 0, 66, "LT", "Left arrow" },
{{"\033[C","\033OC","\033C"}, 0, 71, "RT", "Right arrow"},
{{"", "", "" }, 0, 0, "", "" }
};
static struct fnkey {
char *fnkeymsg[4];
int fnkeyrow;
int fnkeycol;
char *fnkeysymbol;
char *fnkeyname;
} fnkeytab [] = {
/* ANSI-num,ANSI-app,VT52-nu,VT52-ap, r, c, symb name */
{{"\033OP","\033OP","\033P","\033P" }, 6, 59, "PF1", "PF1" },
{{"\033OQ","\033OQ","\033Q","\033Q" }, 6, 63, "PF2", "PF2" },
{{"\033OR","\033OR","\033R","\033R" }, 6, 67, "PF3", "PF3" },
{{"\033OS","\033OS","\033S","\033S" }, 6, 71, "PF4", "PF4" },
{{"7", "\033Ow","7", "\033?w"}, 7, 59, " 7 ", "Numeric 7" },
{{"8", "\033Ox","8", "\033?x"}, 7, 63, " 8 ", "Numeric 8" },
{{"9", "\033Oy","9", "\033?y"}, 7, 67, " 9 ", "Numeric 9" },
{{"-", "\033Om","-", "\033?m"}, 7, 71, " - ", "Minus" },
{{"4", "\033Ot","4", "\033?t"}, 8, 59, " 4 ", "Numeric 4" },
{{"5", "\033Ou","5", "\033?u"}, 8, 63, " 5 ", "Numeric 5" },
{{"6", "\033Ov","6", "\033?v"}, 8, 67, " 6 ", "Numeric 6" },
{{",", "\033Ol",",", "\033?l"}, 8, 71, " , ", "Comma" },
{{"1", "\033Oq","1", "\033?q"}, 9, 59, " 1 ", "Numeric 1" },
{{"2", "\033Or","2", "\033?r"}, 9, 63, " 2 ", "Numeric 2" },
{{"3", "\033Os","3", "\033?s"}, 9, 67, " 3 ", "Numeric 3" },
{{"0", "\033Op","0", "\033?p"},10, 59," O ","Numeric 0"},
{{".", "\033On",".", "\033?n"},10, 67, " . ", "Point" },
{{"\015", "\033OM","\015", "\033?M"},10, 71, "ENT", "ENTER" },
{{"","","",""}, 0, 0, "", "" }
};
static struct ckey {
int ccount;
char *csymbol;
} ckeytab [] = {
{ 0, "NUL (CTRL-@ or CTRL-Space)" },
{ 0, "SOH (CTRL-A)" },
{ 0, "STX (CTRL-B)" },
{ 0, "ETX (CTRL-C)" },
{ 0, "EOT (CTRL-D)" },
{ 0, "ENQ (CTRL-E)" },
{ 0, "ACK (CTRL-F)" },
{ 0, "BEL (CTRL-G)" },
{ 0, "BS (CTRL-H) (BACK SPACE)" },
{ 0, "HT (CTRL-I) (TAB)" },
{ 0, "LF (CTRL-J) (LINE FEED)" },
{ 0, "VT (CTRL-K)" },
{ 0, "FF (CTRL-L)" },
{ 0, "CR (CTRL-M) (RETURN)" },
{ 0, "SO (CTRL-N)" },
{ 0, "SI (CTRL-O)" },
{ 0, "DLE (CTRL-P)" },
{ 0, "DC1 (CTRL-Q) (X-On)" },
{ 0, "DC2 (CTRL-R)" },
{ 0, "DC3 (CTRL-S) (X-Off)" },
{ 0, "DC4 (CTRL-T)" },
{ 0, "NAK (CTRL-U)" },
{ 0, "SYN (CTRL-V)" },
{ 0, "ETB (CTRL-W)" },
{ 0, "CAN (CTRL-X)" },
{ 0, "EM (CTRL-Y)" },
{ 0, "SUB (CTRL-Z)" },
{ 0, "ESC (CTRL-[) (ESCAPE)" },
{ 0, "FS (CTRL-\\ or CTRL-? or CTRL-_)" },
{ 0, "GS (CTRL-])" },
{ 0, "RS (CTRL-^ or CTRL-~ or CTRL-`)" },
{ 0, "US (CTRL-_ or CTRL-?)" }
};
static char *keyboardmenu[] = {
"Standard American ASCII layout",
"Swedish national layout D47",
"Swedish national layout E47",
/* add new keyboard layouts here */
""
};
static char *curkeymodes[3] = {
"ANSI / Cursor key mode RESET",
"ANSI / Cursor key mode SET",
"VT52 Mode"
};
static char *fnkeymodes[4] = {
"ANSI Numeric mode",
"ANSI Application mode",
"VT52 Numeric mode",
"VT52 Application mode"
};
ledmsg[0] = "L1 L2 L3 L4"; ledseq[0] = "1;2;3;4";
ledmsg[1] = " L2 L3 L4"; ledseq[1] = "1;0;4;3;2";
ledmsg[2] = " L2 L3"; ledseq[2] = "1;4;;2;3";
ledmsg[3] = "L1 L2"; ledseq[3] = ";;2;1";
ledmsg[4] = "L1"; ledseq[4] = "1";
ledmsg[5] = ""; ledseq[5] = "";
ed(2);
cup(10,1);
println("These LEDs (\"lamps\") on the keyboard should be on:");
for (i = 0; i <= 5; i++) {
cup(10,52); el(0); printf("%s", ledmsg[i]);
decll("0");
decll(ledseq[i]);
cup(12,1); pause1();
}
ed(2);
cup(10,1);
println("Test of the AUTO REPEAT feature");
println("");
println("Hold down an alphanumeric key for a while, then push RETURN.");
printf("%s", "Auto Repeat OFF: ");
rm("?8");
scanf("%s", arptstring);
#ifndef UNIX
readnl();
#endif
if (strlen(arptstring) == 0) println("No characters read!??");
else if (strlen(arptstring) == 1) println("OK.");
else println("Too many character read.");
println("");
println("Hold down an alphanumeric key for a while, then push RETURN.");
printf("%s", "Auto Repeat ON: ");
sm("?8");
scanf("%s", arptstring);
#ifndef UNIX
readnl();
#endif
if (strlen(arptstring) == 0) println("No characters read!??");
else if (strlen(arptstring) == 1) println("Not enough character read.");
else println("OK.");
println("");
pause1();
key1boardlayout = menu(keyboardmenu, "Choose keyboard layout");
if (key1boardlayout) {
key1boardlayout--;
for (j = 0; natkeytab[key1boardlayout][j].natc != '\0'; j++) {
for (i = 0; keytab[i].c != '\0'; i++) {
if (keytab[i].row == natkeytab[key1boardlayout][j].natrow &&
keytab[i].col == natkeytab[key1boardlayout][j].natcol) {
keytab[i].c = natkeytab[key1boardlayout][j].natc;
keytab[i].symbol = natkeytab[key1boardlayout][j].natsymbol;
break;
}
}
}
}
ed(2);
for (i = 0; keytab[i].c != '\0'; i++) {
cup(1 + 2 * keytab[i].row, 1 + keytab[i].col);
sgr("7");
printf("%s", keytab[i].symbol);
sgr("");
}
cup(22,1);
#ifdef UNIX
sgttyNew.sg_flags &= ~CRMOD;
sgttyNew.sg_flags &= ~ECHO;
stty(0, &sgttyNew);
#endif
inflush();
printf("Press each key, both shifted and unshifted. Finish with RETURN:");
do { /* while (kbdc != 13) */
cup(23,1); kbdc = inchar();
cup(23,1); el(0);
sprintf(kbds, "%c", kbdc);
chrprint(kbds);
for (i = 0; keytab[i].c != '\0'; i++) {
if (keytab[i].c == kbdc) {
cup(1 + 2 * keytab[i].row, 1 + keytab[i].col);
printf("%s", keytab[i].symbol);
break;
}
}
} while (kbdc != 13);
#ifdef SARGASSO
inchar(); /* Local hack: Read LF that TOPS-10 adds to CR */
#endif
cup(23,1); el(0);
for (cur1keymode = 0; cur1keymode <= 2; cur1keymode++) {
if (cur1keymode) sm("?1");
else rm("?1");
for (i = 0; curkeytab[i].curkeysymbol[0] != '\0'; i++) {
cup(1 + 2 * curkeytab[i].curkeyrow, 1 + curkeytab[i].curkeycol);
sgr("7");
printf("%s", curkeytab[i].curkeysymbol);
sgr("");
}
cup(20,1); printf("<%s>%20s", curkeymodes[cur1keymode], "");
cup(22,1); el(0);
cup(22,1); printf("%s", "Press each cursor key. Finish with TAB.");
for(;;) {
cup(23,1);
if (cur1keymode == 2) rm("?2"); /* VT52 mode */
curkeystr = instr();
esc("<"); /* ANSI mode */
cup(23,1); el(0);
cup(23,1); chrprint(curkeystr);
if (!strcmp(curkeystr,"\t")) break;
for (i = 0; curkeytab[i].curkeysymbol[0] != '\0'; i++) {
if (!strcmp(curkeystr,curkeytab[i].curkeymsg[cur1keymode])) {
sgr("7");
printf(" (%s key) ", curkeytab[i].curkeyname);
sgr("");
cup(1 + 2 * curkeytab[i].curkeyrow,
1 + curkeytab[i].curkeycol);
printf("%s", curkeytab[i].curkeysymbol);
break;
}
}
if (i == sizeof(curkeytab) / sizeof(struct curkey) - 1) {
sgr("7");
printf("%s", " (Unknown cursor key) ");
sgr("");
}
}
}
for (fn1keymode = 0; fn1keymode <= 3; fn1keymode++) {
for (i = 0; fnkeytab[i].fnkeysymbol[0] != '\0'; i++) {
cup(1 + 2 * fnkeytab[i].fnkeyrow, 1 + fnkeytab[i].fnkeycol);
sgr("7");
printf("%s", fnkeytab[i].fnkeysymbol);
sgr("");
}
cup(20,1); printf("<%s>%20s", fnkeymodes[fn1keymode], "");
cup(22,1); el(0);
cup(22,1); printf("%s", "Press each function key. Finish with TAB.");
for(;;) {
cup(23,1);
if (fn1keymode >= 2) rm("?2"); /* VT52 mode */
if (fn1keymode % 2) deckpam(); /* Application mode */
else deckpnm(); /* Numeric mode */
fnkeystr = instr();
esc("<"); /* ANSI mode */
cup(23,1); el(0);
cup(23,1); chrprint(fnkeystr);
if (!strcmp(fnkeystr,"\t")) break;
for (i = 0; fnkeytab[i].fnkeysymbol[0] != '\0'; i++) {
if (!strcmp(fnkeystr,fnkeytab[i].fnkeymsg[fn1keymode])) {
sgr("7");
printf(" (%s key) ", fnkeytab[i].fnkeyname);
sgr("");
cup(1 + 2 * fnkeytab[i].fnkeyrow, 1 + fnkeytab[i].fnkeycol);
printf("%s", fnkeytab[i].fnkeysymbol);
break;
}
}
if (i == sizeof(fnkeytab) / sizeof(struct fnkey) - 1) {
sgr("7");
printf("%s", " (Unknown function key) ");
sgr("");
}
}
}
#ifdef UNIX
sgttyNew.sg_flags |= CRMOD;
stty(0, &sgttyNew);
#endif
ed(2);
cup(5,1);
println("Finally, a check of the ANSWERBACK MESSAGE, which can be sent");
println("by pressing CTRL-BREAK. The answerback message can be loaded");
println("in SET-UP B by pressing SHIFT-A and typing e.g.");
println("");
println(" \" H e l l o , w o r l d Return \"");
println("");
println("(the double-quote characters included). Do that, and then try");
println("to send an answerback message with CTRL-BREAK. If it works,");
println("the answerback message should be displayed in reverse mode.");
println("Finish with a single RETURN.");
#ifdef UNIX
sgttyNew.sg_flags &= ~CRMOD;
stty(0, &sgttyNew);
#endif
do {
cup(17,1);
inflush();
abmstr = instr();
cup(17,1);
el(0);
chrprint(abmstr);
} while (strcmp(abmstr,"\r"));
ed(2);
for (i = 0; i < 32; i++) {
cup(1 + (i % 16), 1 + 40 * (i / 16));
sgr("7");
printf("%s", ckeytab[i].csymbol);
sgr("0");
}
cup(19,1);
#ifdef UNIX
sgttyNew.sg_flags |= CRMOD;
stty(0, &sgttyNew);
#endif
println(
"Push each CTRL-key TWICE. Note that you should be able to send *all*");
println(
"CTRL-codes twice, including CTRL-S (X-Off) and CTRL-Q (X-Off)!");
println(
"Finish with DEL (also called DELETE or RUB OUT), or wait 1 minute.");
#ifdef UNIX
#ifdef SIII
sgttyNew.sg_flags &= ~CBREAK;
stty(0, &sgttyNew);
#endif
sgttyNew.sg_flags |= RAW;
stty(0, &sgttyNew);
#endif
ttybin(1);
do {
cup(23,1); kbdc = inchar();
cup(23,1); el(0);
if (kbdc < 32) printf(" %s", ckeytab[kbdc].csymbol);
else {
sprintf(kbds, "%c", kbdc);
chrprint(kbds);
printf("%s", " -- not a CTRL key");
}
if (kbdc < 32) ckeytab[kbdc].ccount++;
if (ckeytab[kbdc].ccount == 2) {
cup(1 + (kbdc % 16), 1 + 40 * (kbdc / 16));
printf("%s", ckeytab[kbdc].csymbol);
}
} while (kbdc != '\177');
#ifdef UNIX
sgttyNew.sg_flags &= ~RAW;
sgttyNew.sg_flags |= ECHO;
stty(0, &sgttyNew);
#ifdef SIII
sgttyNew.sg_flags |= CBREAK;
stty(0, &sgttyNew);
#endif
#endif
ttybin(0);
cup(24,1);
okflag = 1;
for (i = 0; i < 32; i++) if (ckeytab[i].ccount < 2) okflag = 0;
if (okflag) printf("%s", "OK. ");
else printf("%s", "You have not been able to send all CTRL keys! ");
pause1();
}
!Funky!Stuff!
More information about the Comp.sources.unix
mailing list