' Вывод символа из ОЗУ.
Sub Console_PutChar( ByVal AChar As Byte, ByVal ACodePage As Byte )

      select case ACodePage

          case cp866:

          case cp1251:

              if AChar.7 = 1 then

                  AChar = AChar AND &H7F
                  AChar = Lookup( AChar, CP1251_TO_CP866 )

              end if

      end select

      ' Выводим символ, который соответствует кодовой таблице CP866.
      PrintBin AChar

      Exit Sub

CP1251_TO_CP866:

$ASM
      .DB &H20,&H20,&H2C,&H20,&H20,&H20,&H20,&H20,&H20,&H20,&H20,&H3C,&H20,&H20,&H20,&H20
      .DB &H20,&H27,&H27,&H22,&H22,&HF9,&H2D,&H2D,&H20,&H20,&H20,&H3E,&H20,&H20,&H20,&H20
      .DB &HFF,&H20,&H20,&H6A,&H20,&H20,&H7C,&H20,&HF0,&H20,&H20,&H22,&H20,&H20,&H20,&H20
      .DB &HF8,&H20,&H49,&H69,&H20,&H20,&H20,&HFA,&HF1,&H23,&H20,&H22,&H6A,&H53,&H73,&H20
      .DB &H80,&H81,&H82,&H83,&H84,&H85,&H86,&H87,&H88,&H89,&H8A,&H8B,&H8C,&H8D,&H8E,&H8F
      .DB &H90,&H91,&H92,&H93,&H94,&H95,&H96,&H97,&H98,&H99,&H9A,&H9B,&H9C,&H9D,&H9E,&H9F
      .DB &HA0,&HA1,&HA2,&HA3,&HA4,&HA5,&HA6,&HA7,&HA8,&HA9,&HAA,&HAB,&HAC,&HAD,&HAE,&HAF
      .DB &HE0,&HE1,&HE2,&HE3,&HE4,&HE5,&HE6,&HE7,&HE8,&HE9,&HEA,&HEB,&HEC,&HED,&HEE,&HEF
$END ASM

End Sub

' -=[ Переменные в ОЗУ ]=-

Dim Key As Byte
Dim Caption As String * 46

' Точка входа в основную программу.
Declare Sub Main : Main : End

' /***********************
' *  Д Е К Л А Р А Ц И Я
' *  ~~~~~~~~~~~~~~~~~~~
' ***********************/

Declare Sub ShowPinStates
Declare Sub PutByte( ByVal Addr As Word, ByVal AValue As Byte )
Declare Function GetByte( ByVal Addr As Word ) As Byte

' Подключаем заголовочные файлы модулей.
$include "Config_Header.bas"
$include "Version_Header.bas"
$include "Delays_Header.bas"
$include "RTC_Header.bas"
$include "Console_Header.bas"
$include "CommandShell_Header.bas"
$include "MemoryViewer_Header.bas"
$include "MCU_Header.bas"