// SERIAL DATA GENERATOR

// Define data to be output
DATA "Hello World ", 250m
DATA "- EASYHDL Test Program\r", 500m
DATA REPEAT

// Define the baud rate
FLOAT BAUD=9600
FLOAT BITTIME=1.0/BAUD

// Declare working variables
STRING s
INT i,j,d
TIME td

// Top level
OUT = 1
SLEEP FOR 5m

LOOP:
READ s,td
GOSUB OUTSTRING
SLEEP FOR td
GOTO LOOP

// Output an ASCIIZ string in S
OUTSTRING:

FOR i=1 TO LEN(s)
  d = ASC(SUBSTR(s,i))
  GOSUB OUTCHAR
NEXT I

RETURN

// Bit Bang a single character
// 1 Start bit, 1 Stop bit and no
// parity are assumed.
OUTCHAR:

// Start bit
OUT = 0
SLEEP FOR BITTIME

// Data bits
FOR j=0 TO 7
 OUT = d & (1 << j)
 SLEEP FOR BITTIME
NEXT j

// Stop bit
OUT = 1
SLEEP FOR BITTIME

RETURN

// SERIAL DATA GENERATOR

// Define data to be output
DATA 0x55                          // Определить данные для вывода
DATA REPEAT

// Define the baud rate
FLOAT BAUD=9600                   // Определить скорость передачи 
FLOAT BITTIME=1.0/BAUD

// Declare working variables
INT DataOut
INT b,j                            //  Объявить рабочие переменные 

// Top level
OUT = 1                           //  Верхний уровень
SLEEP FOR 1000m                    // ждать 1 секунду перед началом отправки

LOOP:
READ b
GOSUB OUTDATA                      // Чтение DATA
GOTO LOOP

                   
OUTDATA:                           // Выходные данные


// Start bit
OUT = 0
SLEEP FOR BITTIME

// Data bits
FOR j=0 TO 7
 OUT = b & (1 << j)
 SLEEP FOR BITTIME
NEXT j

// Stop bit
OUT = 1
SLEEP FOR BITTIME

RETURN

void main(void)
{
    init();         
char txbyte = 0x55;        //  наш байт для пересылки
   
while(1)
        {
   Write1USART(txbyte);     //  Пишем наш байт
  while(Busy1USART());     //  Ждем пока освободится модуль иначе будут прострелы
   Delay10TCYx(10);             // пауза 9600 бод
      }             // end главный цикл
}                  // end программа