dim x as word                                      'переменные
dim xt as char[5]
dim f1 as float
dim xt1 as char[20]
dim LCD_RS as sbit  at GPIOA_ODR.PA0                'подключение ЛСД
dim LCD_EN as sbit  at GPIOA_ODR.PA1
dim LCD_D4 as sbit  at GPIOA_ODR.PA2
dim LCD_D5 as sbit  at GPIOA_ODR.PA3
dim LCD_D6 as sbit  at GPIOA_ODR.PA4
dim LCD_D7 as sbit  at GPIOA_ODR.PA5

main:
  ADC1_Init()                                      ' включение ацп.
  ADC_Set_Input_Channel(6)                         'выбор канала.
  x = ADC1_Read(6)                                  'загрузка в переменную.

  GPIO_Digital_Output(@GPIOC_BASE, _GPIO_PINMASK_13) 'PC.13 настраивается как выход.
  GPIO_Digital_Output(@GPIOB_BASE, _GPIO_PINMASK_ALL) 'весь порт на выход.
  GPIOB_ODR = х                                   ' загрузка в порт
  GPIOC_ODR.13 = NOT GPIOC_ODR.13                  ' Интертирование бита PC.13.

  Delay_ms(100)                                    'задержка

  InitTimer2()                                    'включение таймера
  EnableInterrupts()                               'включение прерываний

  Lcd_Init()                                      'включение ЛСД
  Lcd_Cmd(_LCD_CLEAR)                             ' очистка
  Lcd_Out(1,1,xt)                                 '1строка, 1 позиция
  Lcd_Out_Cp(xt)                                  'вывод в позицию курсора
  Lcd_Cmd(_LCD_FOURTH_ROW)                       'курсор на 4 позиции вперед

  WordToHex(x, xt)                                'число в текст
  FloatToStr(f1, xt1)

  UART1_Init(9600)                                ' скорость передачи
  UART1_Write(xt)                                ' вывод текстовой переменной

  while TRUE                                      'бесконечный цикл
  wend
end.