GPINIT

% === GPINIT === %  24.07.88 VERSION 3
LOCALS LTEST
  EQUALS CSR=&FAFE,DBR=&FAFC   %РЕГИСТРЫ ДЕЙСТВИТЕЛЬНО ПЕРЕСТАВЛЕНЫ
  REGISTERS PCONTR=%1

%%--- БИТЫ РЕГИСТРОВ КОНТРОЛЛЕРА INTEL-8251 (К580ВВ51) ---%%
%                    КОМАНДА
  EQUALS SYNENB=&80   %РАЗРЕШЕНИЕ ПОИСКА SYNC-ОВ
  EQUALS INTRST=&40   %ВНУТРЕННИЙ СБРОС
  EQUALS REQTRX=&20   %ЗАПРОС ПЕРЕДАЧИ В МОДЕМ (ЦЕПЬ 105)
  EQUALS ERRRST=&10   %СБРОС СИГНАЛОВ ОШИБКИ
  EQUALS SNDBRK=&08   %ПОСЛАТЬ "РАЗРЫВ ЛИНИИ"
  EQUALS ENBRCX=&04   %РАЗРЕШЕНИЕ ПРИЕМА КОНТРОЛЛЕРОМ
  EQUALS REQRCX=&02   %ЗАПРОС ПОИСКА В МОДЕМ (ЦЕПЬ 108)
  EQUALS ENBTRX=&01   %РАЗРЕШЕНИЕ ПЕРЕДАЧИ КОНТРЛЛЕРОМ
%                   ПРОГРАММА
  EQUALS STOP1=&40,STOP2=&80   %1/2 СТОПОВЫХ БИТА
  EQUALS EVEN=&20,ODD=&00      %РЕЖИМ КОНТРОЛЯ ПО ЧЕТНОСТИ
  EQUALS YESPAR=&10            %РАЗРЕШЕН КОНТРОЛЬ ПО ЧЕТНОСТИ
  EQUALS BITS7=&08,BITS8=&0C   %7/8 БИТ В СИМВОЛЕ
  EQUALS CLCK16=&02,CLCK64=&03 %ДЕЛЕНИЕ ТАКТОВОЙ ЧАСТОТЫ НА 16/64
%                    СТАТУС
  EQUALS MDMRDY=&80   %МОДЕМ ГОТОВ (ЦЕПЬ 107)
  EQUALS SYNDET=&40   %ЕСТЬ SYNC!
  EQUALS NOSTOP=&20   %НЕ НАЙДЕН СТОПОВЫЙ БИТ
  EQUALS OVFRCX=&10   %ПЕРЕПОЛНЕНИЕ ПРИЕМНОГО БУФЕРА
  EQUALS EPAR=&08     %ОШИБКА ЧЕТНОСТИ
  EQUALS TRBUSY=&04   %ИДЕТ ПЕРЕДАЧА
  EQUALS YESRCX=&02   %ПРИНЯТ СИМВОЛ
  EQUALS TRXRDY=&01   %ПЕРЕДАТЧИК ГОТОВ
%%--------------------------------------------------------%%

PROGRAM GPINIT(PCONTR,R5)
  PCONTR='CSR'
  @PCONTR=0           %ПЕРЕВОД В РЕЖИМ КОМАНЫ (НА ВСЯКИЙ СЛУЧАЙ)
  @PCONTR=0
  @PCONTR=0
  @PCONTR='INTRST'    %ВНУТР. СБРОС -> ПЕРЕХОДИМ К ПРОГРАММИРОВАНИЮ
  (DCYCLE(R5) 40      %ЗАДЕРЖКА ДЛЯ УСТАНОВЛЕНИЯ СБРОСА
  )DCYCLE

  @PCONTR='BITS8+STOP1+CLCK16'          % 9600 BAUD 8N1
  @PCONTR='REQTRX+ENBTRX+REQRCX+ENBRCX' %РАЗРЕШАЕМ И ПРИЕМ И ПЕРЕДАЧУ
  RETURN

PROGRAM GET()
  R0=@'DBR'
  RETURN

PROGRAM PUT()
  @'DBR'=R0
  RETURN

PROGRAM GTEST()
  R0=@'CSR'.BIC.'&FFFF-YESRCX'
  RETURN

PROGRAM PTEST()
  R0=@'CSR'.BIC.'&FFFF-TRXRDY'
  RETURN