productiondave wrote: ↑Wed Apr 12, 2023 11:22 pm
I'd be interested in this.
This is the code block I edited within the Output(Byte c) method in the VT52.cs file of the project (around line 877 in my editor). There are three areas, commented with BEGIN LS ADM3A and END LS ADM3A. Very minor changes. This is absolutely a hack and not complete, but it's fun and makes wordstar and supercalc display better for me lol.
You also need to change the hard-coded telnet port specified in the Connect method in Telnet.cs from 23 to 5815 (line 163 in my editor).
switch ((Char)c)
{
case '\r': // CR - Carriage Return
mDisplay.MoveCursorAbs(0, mDisplay.CursorY);
return;
case '\n': // LF - Line Feed
ny = mDisplay.CursorY + 1;
if (ny >= Display.ROWS)
{
if (mHoldCount > 0) mHoldCount--;
if (mHoldCount == 0)
{
mSilo.Enqueue(c);
Send(0x13); // XOFF
return;
}
ScrollUp();
ny = Display.ROWS - 1;
}
mDisplay.MoveCursorAbs(mDisplay.CursorX, ny);
return;
case '\b': // BS - Backspace
mDisplay.MoveCursorRel(-1, 0);
return;
case '\t': // HT - Horizontal Tab
if (mDisplay.CursorX >= 72)
mDisplay.MoveCursorRel(1, 0);
else
mDisplay.MoveCursorRel(8 - (mDisplay.CursorX % 8), 0);
return;
case '\a': // BEL - Ring the Bell
mDisplay.Beep();
return;
// ++++++++++++++++++++++++++++++++++++++++
// BEGIN LS ADM3A
// Addition of Lear-Siegler ADM-3A control sequences (does not use escape sequences for these functions)
case '\v': // VT - Up one line
mDisplay.MoveCursorRel(0, -1);
return;
case '\x0C': // FF - Forespace move cursor one right
mDisplay.MoveCursorRel(1, 0);
return;
case '\x1A': // CTRL-Z (SUB) in this case, clear screen
mDisplay.MoveCursorAbs(0, 0);
for (Int32 y = 0; y < Display.ROWS; y++)
{
for (Int32 x = 0; x < Display.COLS; x++) mDisplay[x, y] = 32;
}
return;
case '\x1E': // RS -- cursor to home
mDisplay.MoveCursorAbs(0, 0);
return;
// END LS ADM3A
// ++++++++++++++++++++++++++++++++++++++++
case '\x1B': // ESC - Escape Sequence
mEsc = 1;
return;
case 'A': // ESC A - Cursor Up
mEsc = 0;
mDisplay.MoveCursorRel(0, -1);
return;
case 'B': // ESC B - Cursor Down
mEsc = 0;
mDisplay.MoveCursorRel(0, 1);
return;
case 'C': // ESC C - Cursor Right
mEsc = 0;
mDisplay.MoveCursorRel(1, 0);
return;
case 'D': // ESC D - Cursor Left
mEsc = 0;
mDisplay.MoveCursorRel(-1, 0);
return;
case 'F': // ESC F - Enter Graphics Mode
mEsc = 0;
mGraphicsMode = true;
return;
case 'G': // ESC G - Exit Graphics Mode
mEsc = 0;
mGraphicsMode = false;
return;
case 'H': // ESC H - Cursor Home
mEsc = 0;
mDisplay.MoveCursorAbs(0, 0);
return;
case 'I': // ESC I - Reverse Line Feed
mEsc = 0;
ny = mDisplay.CursorY - 1;
if (ny < 0)
{
ScrollDown();
ny = 0;
}
mDisplay.MoveCursorAbs(mDisplay.CursorX, ny);
return;
case 'J': // ESC J - Erase to End-of-Screen
mEsc = 0;
for (Int32 x = mDisplay.CursorX; x < Display.COLS; x++) mDisplay[x, mDisplay.CursorY] = 32;
for (Int32 y = mDisplay.CursorY + 1; y < Display.ROWS; y++)
{
for (Int32 x = 0; x < Display.COLS; x++) mDisplay[x, y] = 32;
}
return;
case 'K': // ESC K - Erase to End-of-Line
mEsc = 0;
for (Int32 x = mDisplay.CursorX; x < Display.COLS; x++) mDisplay[x, mDisplay.CursorY] = 32;
return;
case 'Y': // ESC Y - Direct Cursor Addressing
mEsc = 2;
return;
// ++++++++++++++++++++++++++++++++++++++++
// BEGIN LS ADM3A
// LS uses ESC= rather than ESC Y for direct cursor addressing, but otherwise works same way I think
case '=': // ESC = - LS ADM3A Direct Cursor Addressing
mEsc = 2;
return;
// END LS ADM3A
// ++++++++++++++++++++++++++++++++++++++++
case 'Z': // ESC Z - Identify Terminal Type
mEsc = 0;
Send(0x1B);
Send((Byte)'/');
Send((Byte)'K');
return;
case '[': // ESC [ - Enter Hold-Screen Mode
mEsc = 0;
mHoldCount = 1;
return;
case '\\': // ESC \ - Exit Hold-Screen Mode
mEsc = 0;
mHoldCount = -1;
return;
// ++++++++++++++++++++++++++++++++++++++++
// BEGIN LS ADM3
// Remove this, used for cursor positioning in LS
//case '=': // ESC = - Enter Alternate-Keypad Mode
// mEsc = 0;
// KeypadMode = true;
// return;
// END LS ADM3
// ++++++++++++++++++++++++++++++++++++++++
case '>': // ESC > - Exit Alternate-Keypad Mode
mEsc = 0;
KeypadMode = false;
return;
default:
if ((c >= 32) && (c < 127)) mEsc = 0; // ignore unrecognized escape sequences
return;
}
