STM32 (Blue Pill) 用の VT100 エミュレータ (実装途中) です。
それなりに動作しますが、Turbo Pascal のエディタ画面とかではまだグチャります。

Adafruit のライブラリと、
茶虎たま吉さんの PS2 キーボードライブラリが必要です。
https://github.com/Tamakichi/Arduino_PS2Keyboard

• シリアルは Serial3 (PB10/PB11) に接続します (5V トレラント)。
• TFT (ILI9341) の CS / RST / DC はそれぞれ PA4 / PA2 / PA3 です。
• PS/2 キーボードは PB6 / PB7 に接続します (5V トレラント)。

VT100 のエスケープシーケンスは以下のサイトを参考にしました。

[VT100のエスケープシーケンス (BK class)]
http://bkclass.web.fc2.com/doc_vt100.html

[対応制御シーケンス - Tera Term ヘルプ 目次 (Tera Term Home Page)]
https://ttssh2.osdn.jp/manual/ja/about/ctrlseq.html

[Chapter 3 Programmer Information - VT100 User Guide (VT100.net)]
https://vt100.net/docs/vt100-ug/chapter3.html

[ANSI/VT100 Terminal Control Escape Sequences (termsys.demon.co.uk)]
http://www.termsys.demon.co.uk/vtansi.htm

[VT100 escape codes]
https://www.csie.ntu.edu.tw/~r92094/c++/VT100.html

[ANSI Escape sequences - VT100 / VT52]
http://ascii-table.com/ansi-escape-sequences-vt-100.php

Ctrl キーへの対応は PS2Keyboard.cpp をいじる事で解決できました。

PS2Keyboard.cpp

#define BREAK     0x01
#define MODIFIER  0x02
#define SHIFT_L   0x04
#define SHIFT_R   0x08
#define ALTGR     0x10
/* 追加 BEGIN */
#define ALT       0x20
#define CTRL      0x40
/* 追加 END */

static char get_iso8859_code(void)
{
  static uint8_t state = 0;
  static uint8_t sState = 0;　// 追加
  uint8_t s;
  char c;

  while (1) {
    s = get_scan_code();
    if (!s) return 0;
    if (s == 0xF0) {
      state |= BREAK;
    } else if (s == 0xE0) {
      state |= MODIFIER;
    } else {
      if (state & BREAK) {
        if (s == 0x12) {
          state &= ~SHIFT_L;
        } else if (s == 0x59) {
          state &= ~SHIFT_R;
        } else if (s == 0x11 && (state & MODIFIER)) {
          state &= ~ALTGR;
        }
        // CTRL, ALT & WIN keys could be added
        // but is that really worth the overhead?
        state &= ~(BREAK | MODIFIER);
        continue;
      }
      if (s == 0x12) {
        state |= SHIFT_L;
        sState |= SHIFT_L; // 追加
        continue;
      /* 追加 BEGIN */
      } else if (s == 0x11) {
        sState |= ALT;
        continue;
      } else if (s == 0x14) {
        sState |= CTRL;
        continue;
      /* 追加 END */
      } else if (s == 0x59) {
        state |= SHIFT_R;
        sState |= SHIFT_R; // 追加
        continue;
      } else if (s == 0x11 && (state & MODIFIER)) {
        state |= ALTGR;
        sState |= ALTGR; // 追加
      }
      c = 0;
      if (state & MODIFIER) {
        switch (s) {
//        case 0x70: c = PS2_INSERT;      break;
//        case 0x6C: c = PS2_HOME;        break;
//        case 0x7D: c = PS2_PAGEUP;      break;
          case 0x71: c = PS2_DELETE;      break;
//        case 0x69: c = PS2_END;         break;
//        case 0x7A: c = PS2_PAGEDOWN;    break;
          case 0x75: c = PS2_UPARROW;     break;
          case 0x6B: c = PS2_LEFTARROW;   break;
          case 0x72: c = PS2_DOWNARROW;   break;
          case 0x74: c = PS2_RIGHTARROW;  break;
          case 0x4A: c = '/';             break;
          case 0x5A: c = PS2_ENTER;       break;
          default: break;
        }
      } else if (state & ALTGR) {
        // [右ALT]+[カナ/かな]キーが押された
        if (s == 0x13) {
          kana_f = ~kana_f ;
          if (kana_f == 0) {
            keymap = &PS2Keymap_JP ;      // 日本語キーマップに戻す
          } else {
            keymap = &PS2Keymap_KANA ;    // カタカナキーマップにする
          }
          c = PS2_KANA ; // この行をコメントにすればキーコードは返りません
        }
      } else if (state & (SHIFT_L | SHIFT_R)) {
        if (s < PS2_KEYMAP_SIZE)
          c = pgm_read_byte(keymap->shift + s);
      } else {
        if (s < PS2_KEYMAP_SIZE)
          c = pgm_read_byte(keymap->noshift + s);
      }
      state &= ~(BREAK | MODIFIER);
      if (c) {
        /* 追加 BEGIN */
        if (sState & 0x40) {
          c &= 0x1F;
          sState = 0;  
        }
        /* 追加 END */
        return c;
      }
    }
  }
}

　
何をやってるかですが、

[キャレット記法 (Wikipedia)]
https://ja.wikipedia.org/wiki/%E3%82%AD%E3%83%A3%E3%83%AC%E3%83%83%E3%83%88%E8%A8%98%E6%B3%95
[制御コードの入力 (通信用語の基礎知識)]
https://www.wdic.org/w/TECH/Ctrl%E3%82%AD%E3%83%BC#xE5x88xB6xE5xBExA1xE3x82xB3xE3x83xBCxE3x83x89xE3x81xAExE5x85xA5xE5x8Ax9B
[ Delphi で ^ は "べき乗" の演算子ではないけれど？ (DEKO のざつだん)]
https://ht-deko.com/ft1210.html#121019 <- 下にちょっとスクロールしてください

を参照してみてください。

うまく動作しなかった原因は、115200 bps とかでは描画コマンドが追い付かない事があるからでした。
9600bps でもダメだったので 2400bps まで落としたらうまくいきました。
バッファサイズを変更するなり、自前でバッファ処理を書けばもっと高 bps でイケると思います。

申し訳程度にカーソルも実装してみました。緩慢なカーソルですがないよりはマシかと。
カーソル座標が更新されたと同時にカーソル描画をやろうとすると、
またもや描画コマンドが追い付かない事があるので、今のような実装になっています。
　
これで CP/M8266 と通信できました！Turbo Pascal もちゃんと動きます。

※ PS2Keyboard.cpp をいじらないと [Ctrl] + K D が押せないので Turbo Pascal のエディタから戻ってこれなくなりますヨ。

シリアルバッファを 512 とかにすれば 9600bps でも追い付くようです。

usart.h

/*
 * Devices
 */

#ifndef USART_RX_BUF_SIZE
#define USART_RX_BUF_SIZE               512
#endif

#ifndef USART_TX_BUF_SIZE
#define USART_TX_BUF_SIZE               128
#endif

　
ただ、setAddrWindow() を伴う処理には delay() を入れないと TFT がハング (真っ白になる) する事があるようです。