ZX Format #06 29 июля 1997

Программирование

Программистам - MMD - драйвер. Описание структуры драйвера модема для терминальной программы MMD.

  Структура драйвера модема
для программы MMD 2.20

music by DNK
(C) MAS
_______________________________

Для  работы  терминалки  "Macro Modem
v2.20"  необходим  драйвер модема. Данный
драйвер  выполняет все функции приёма/пе-
редачи  информации,  а также обрабатывает
состояние  телефонной  линии  и системных
часов.

Драйвер  находиться на 6-й странице с
адреса 49152 (#C000). Под его нужды отво-
диться  все  16Кб данной страницы. Вход в
драйвер  производиться через ТОЧКИ ВХОДА,
расположеные  в  самом  начале  драйвера,
т.е. с адреса 49152.



           Внимание!
      ДРАЙВЕР_НЕ_ДОЛЖЕН:

 - портить  содержимое  регистров IX, IY,
SP;
 - изменять любые  ячейки памяти основной
программы за исключением специально выде-
леного буфера для обмена информацией;
, - менять режим прерывания (статус преры-
вания  можно менять - всё равно оно будет
запрещено).



 Входные точки драйвера:

      УСТАНОВКА ДРАЙВЕРА

D_INSTAL   EQU #C000
При  вызове функции в регитровой паре
[HL]  будет находиться адрес рабочего бу-
фера  для  приема/передачи данных. Данный
буфер  расположен  в  основной  памяти, и
имеет размер около 270 байт вверх, и око-
ло  30  вниз от указаного значения. Обмен
данными между основной программой и драй-
вером производиться только через этот бу-
фер.

При  инсталяци  в  этот буфер драйвер
должен  записать  в  ASCII форме значение
существующих  скоростей.  На  каждую ско-
рость  отводиться 5 байт, всего скоростей
- 8. Должна быть описана КАЖДАЯ скорость,
если  драйвер  поддерживает меньшее коли-
чество,  то описатели несуществующих ско-
ростей заполняются кодом #00. Пример опи-
сателя скоростей:

DEFB " 600 " ;1-я скорость 600 бод
DEFB "1800 " ;2-я скорость 1800 бод
DEFB "2400 " ;3-я скорость 2400 бод
DEFS 25      ;всего 3 скорости,
                 ;остальные 5 отсутствуют



В  программе  учтено  то, что драйвер
модема  может быть упакован. Поэтому про-
цедура инсталяции вызывается ДВАЖДЫ. Т.е.
при  первом  вызове происходит распаковка
драйвера,  а  при  втором его инсталяция.
Программа  использует  фляг  переноса для
того, чтобы сообщить драйверу какой вызов
происходит:
 - если флаг переноса установлен - первый
                                   вызов
 - если флаг переноса сброшен - второй.

ПОЛУЧЕНИЕ ИНФОРМАЦИИ О ДРАЙВЕРЕ

D_COPYREQU #C003
Данная функция помещает в рабочий бу-
фер  информацию о драйвере. Данной инфор-
мацией  является  название драйвера и имя
его  автора.  Размер  буфера  -  50 байт,
строка  должна  заканчиваться  кодом  #00
Пример функции D_COPYR:

 LD DE,(WORK_ADR)  ;адрес буфера
        LD HL,TEXT        ;адрес строки
        LD BC,ETEXT-TEXT  ;длина строки
        LDIR              ;перенесли и
        RET               ;вернулись
TEXTDEFB "Vicomm-driver v2.95 " 
        DEFB "(C) 1997 *MAS*" 
        DEFB 0 
ETEXT 



 ЧТЕНИЕ СТАТУСА ЛИНИИ/ДРАЙВЕРА

D_RD_STAT  EQU #C006
Данная  функция  возвращает параметры
драйвера и линии, а также производит кор-
  рекцию данных для порта #FE.
При вызове данной функции в [A] нахо-
дится текущий цвет бордюра.

 При возврате из функции:
-  √  В регистре [B] различные биты харак-
теризуют:

 bit0 - статус линии: "1" модем подключен
         к линии, "0" -отключен
 bit1 
 bit2 
, bit3 если "1", то драйвер может набирать
        номер тоновым способом.
 bit4  если  "1"  -  нужно выключать TUR-
       BO-режим  при вызове драйвера (для
       всех модемов кроме XTR - нужно)
 bit5 если "1", то драйвер позволяет уп-
       равлять линией (подключать модем к
       линии и отключать)
- bit6 если "1",то в драйвере имеются часы
- bit7 если "1",то в драйвере имеется тай-
       мер

  √ В регистре [A] будут находится данные
для  порта  #FE.  Если  драйвер для своих
нужд  не использует порт #FE, то содержи-
мое  аккумулятора  не  должно изменяться.
Например: Vicomm с "прибамбасом" v1.2 пе-
редает  данные  и  управляет линией через
порт #FE, и при вызове данная функция ус-
тановит 3-й и 5-й биты аккумулятора в со-
ответствии со своими нуждами.



 УСТАНОВКА ПЕРЕД ОПРОСОМ ЛИНИИ

D_WAIT_INS EQU #C009
Данная  функция вызывается непосредс-
твенно перед циклом вызовов функций опро-
са линии. Если в драйвере необходимо выс-
тавить   какие-либо  переменные,  то  эта
функция этим и занимается.
При вызове данной функции в аккумуля-
торе  будет  находиться число от 0 до 15,
характеризующее громкость с которой функ-
ции опроса линии должны выводить звук ли-
нии на встроеный динамик.
Выдор  устройства для вывода звука не
оговаривается (можно использовать beeper,
AY, COVOX, и т.д.) При выводе звука на AY
есть одно ограничение: если звук выводить
не  нужно,  т.е. [A]=#00, то изменять со-
держимое регистров музпроцессора не реко-
мендуется.



          ОПРОС ЛИНИИ

D_WAIT_LN  EQU #C00C
Данная функция производит опрос линии
в течении некоторого небольшого промежут-
ка времени.

Данная функция возвращает на выходе:

 √  Если флаг переноса установлен, то ни-
чего  не  произошло,  при этом в регистре
[B]  указывается количество произведенных
опросов линии, а в регистре [C] - сколько
всого  должно  быть опросов. Данные в ре-
гистрах  [B]  и [C] позволяют более-менее
ритмично  мигать  курсором  и  опрашивать
клавиатуру.
Например,  если  функция осуществляет
15  опросов  линии,  и при наличии шума в
линии  в любом из циклов опроса возвраща-
ется. При этом в регистре [B] указывается
сколько опросов функция успела выполнить.
Если  функция  опроса  линии  выполняется
всегда  строго  фиксированое  время, то в
регистр [B] заносится #01
Содержимое регистра [C] позволяет ре-
гулировать  частору мугания курсора и оп-
роса  клавиш.  Чем  больше это число, тем
 реже и ритмичнее мигает курсор.

 √ Если при возврате из функции D_WAIT_LN
флаг  переноса  сброшен, то произошло ка-
кое-то событие. В регистре [A] указывает-
ся его код:

  #01: был принят блок. Принятых блок на-
ходится  в  буфере  модема, а его длина в
регистровой  паре [BC] В регистре [D] на-
ходится  скорость, на которой был передан
данный  блок. Если скорость определить не
 удалось, то в [D] заноситься #80
  #02: были обнаружены короткие гудки
  #03: был обнаружен вызов (звонок)



        ДОЛГОЕ ОЖИДАНИЕ

D_WAIT_BLC EQU #C00F
Данная  функция производит долгий оп-
рос  линии  примерно  1...4  секунды. При
возврате функции:

 √ Если флаг  переноса установлен, то ни-
чего не было принято
, √ Если флаг переноса сброшен, то приняли
блок:
   Принятых блок находится в буфере моде-
ма, а его длина в регистровой паре [BC] В
регистре [D] находится скорость, на кото-
рой  был  передан  данный блок. Если ско-
рость определить не удалось, то в [D] за-
носиться #80



        ПЕРЕДАЧА ДАННЫХ

D_TRANSMIT EQU #C012
Данная  функция передает блок данных.
Сами данные находяться в буфере модема, в
регистровой паре [BC] находится длина пе-
редаваемого блока, в [A] - скорость пере-
дачи.



   ПОДКЛЮЧИТЬ МОДЕМ К ЛИНИИ

D_ON_LINE  EQU #C015

   ОТКЛЮЧИТЬ МОДЕМ ОТ ЛИНИИ

D_OFF_LINE EQU #C018

Данные  функции  просто "снимают" или
"кладут"  трубку. В функцию ничего не пе-
редается и функции ничего не возвращают.



         НАБРАТЬ НОМЕР

D_CALL     EQU #C01B
Данная функция осуществляет набор но-
мера.  При вызове функции модем уже подк-
лючен  к линии, и в регистровой паре [HL]
находится адрес буфера с телефонным номе-
ром,   который   следует  набрать.  Номер
представляет собой ASCII строку, заканчи-
вающуюся  кодом #00. Если в строке встре-
тится символ "-", то при наборе его необ-
ходимо  пропустить. Во время набора необ-
ходимо  анализировать  нажатие на клавиши
<ПРОБЕЛ>, и при её нажатии произвести вы-
од из функции.

 Также при входе в функцию:
 √ в  регистре  [A]  указан способ набора
номера:  "0"  - импульсный, "1" - тональ-
ный.
, √ в регистре [B] указан  период импульса
в ms
- √ в регистре [C] межцифровая пауза ms/10

 Данная функция возвращает:
 √ Флаг переноса сброшен - набор номера
     произведён успешно.
 √ Флаг переноса установлен - ошибка,
     код ошибки в [A]:
   #00 ОШИБКА НАБОРА
   #01 НЕТ ДЛИННОГО ГУДКА
   #02 ВЫПОЛНЕНИЕ ПРЕРВАНО,нажат <ПРОБЕЛ>



   ДАННАЯ ФУНКЦИЯ ВЫЗЫВАЕТСЯ
  ПРИ ОБНАРУЖЕНИИ ЗВОНКА.
 МОДЕМ ПОДКЛЮЧАЕТСЯ К ЛИНИИ И
      ОПРЕДЕЛЯЕТСЯ НОМЕР.

D_AON      EQU #C01E
           При вызове функции:
 [A] число запровое
   [B] пауза перед запросом
 [C] количество цифр в номере
 [D] чувствительность к ответу АТС
 [E] чувствительность линии

При выходе из функции в буфере модема
находиться ASCII строка с сообщением, за-
канчивающаяся кодом #00.

     УСТАНОВКА СОЕДИНЕНИЯ

           АКТИВНАЯ

SET_CON_A  EQU #C021

           ПАСИВНАЯ

SET_CON_P  EQU #C024

Данные  функции пытаются выбрать наи-
лудшую  скорость обмена. Функция активной
установки  передает  на  разных скоростях
данные,  а потом проверяет как они приня-
лись. Функция пассивной установки вначале
принимает  данные, а затем сообщает об их
приеме.   Конктерная   реализация  данных
функций не оговаривается.

Обе  функции возвращают текстовое со-
общение  о  выбраной  скорости. Сообщение
находиться в буфере модема и заканчивает-
ся кодом #00. Также при возврате из функ-
ции в аккумулятор записывается номер выб-
раной  скорости,  или  #80, если скорость
выбрать не удалось.
В   случае  невозможности  выполнения
функции возвращаются с установленным фла-
гом переноса.

       УСТАНОВИТЬ ВРЕМЯ

D_SET_TIME EQU #C027
Данная  функция  позволяет установить
текущее  время. При вызове функции данные
находится  в регистрах [A], [B], [C]: [A]
- часы, [B] - минуты, [C] - секунды. Дан-
ные представлены в двоично-десятичном ви-
де.
В  случае ошибки функция возвращается
с установленным флагом переноса.

         СЧИТАТЬ ВРЕМЯ

D_RD_TIME  EQU #C02A
Данная функция позволяет узнать теку-
щее время. При возврате из функции данные
должны  находится  в  регистрах [A], [B],
[C]  в  двоично-десятичном  виде. В [A] -
часы, [B] - минуты, [C] - секунды. В слу-
чае  ошибки  функция возвращается с уста-
новленным флагом переноса.

       КОРРЕКЦИЯ ВРЕМЕНИ
D_CALC_TIM EQU #C02D
Данная  функция  вызывается несколько
раз  в  минуту. Если используемые часы не
являются  полностью автономными (например
часы представляют собой счетчик секундных
импульсов,  подключенный  к  паралельному
порту), и требуется коррекция времени, то
для этого используется данная функция.
Внимание!  Данная функция должна сох-
 ранять значение ВСЕХ регистров!

       УСТАНОВИТЬ ТАЙМЕР

D_SET_ALR  EQU #C036
Если  драйвер поддерживает режим тай-
мера, то данная функция должна установить
таймер  на  указаное  в  регистровой паре
[BC] секунд.
В  случае ошибки функция возвращается
с установленным флагом переноса.

      ДОБАВИТЬ К ТАЙМЕРУ

D_ADD_ALR  EQU #C039
Данная функция добавляет к оставшему-
ся  времени  указаное  в регистровой паре
[BC] секунд.
В  случае ошибки функция возвращается
с установленным флагом переноса.

        ВРЕМЯ ИСТЕКЛО?

D_RD_ALR   EQU #C03C
Данная функция проверяет подошло-ли к
концу время, установленое в таймере. Если
время  вышло,  то  функция возвращается с
установленым флагом переноса.



Внимание! 
В программе Macro Modem v2.20 функции
работы с часами/таймером не используются,
они зарезервированы под будующие версии.

             _____

 Мы  предлагаем  Вашему  вниманию  пример
драйвера  под  самый  простейший "Модем",
распространенный в С-Пб.



CALLING EQU 01 

;ФЛАГ РАЗРЕШЕНИЯ НАБОРА НОМЕРА 
;ЕСЛИ "1", ТО ДРАЙВЕР БУДЕТ НАБИРАТЬ 
;НОМЕР И РЕАГИРОВАТЬ НА ЗВОНКИ 
;ЕСЛИ "0" - НЕ БУДЕТ, НО И НЕ БУДЕТ 
;ЗАВИСАТЬ ПРИ ОТСУТСТВИИ "ПРИБАМБАСА" 

 ORG #C000 

;КЕРНАЛЬ ПОДПРОГРАММ 

 JP D_INSTAL 
        JP D_NAME 
        JP D_RD_STAT 
        JP D_WAIT_INS 
        JP D_WAIT_LN 
        JP D_WAIT_BLC 
        JP D_TRANSMIT 
        JP D_ON_LINE 
        JP D_OFF_LINE 
        JP D_CALL 
 JP D_AON 
        JP SET_CON_A 
        JP SET_CON_P 
        JP D_SET_TIME 
        JP D_RD_TIME 
        JP D_CAL_TIM 
        JP D_SET_ALR 
        JP D_ADD_ALR 
        JP D_RD_ALR 

;РАБОЧИЕ ПЕРЕМЕННЫЕ ДРАЙВЕРА 

LINE_STATUS DB 0
SPEED       DB 0
LCOUNT_ADB 0
LCOUNT_BDB 0
LCOUNT_CDB 0
ZERO_BYTE   DB 0 ;БАЙТ ИДУЩИЙ ПЕРЕД 
                 ;ДЛИНОЙ В БЛОКЕ 
SYNC_TABL   DS 15 

;УСТАНОВКА ДРАЙВЕРА 
 ;in: [HL] АДРЕС БУФЕРА МОДЕМА 
;out: В БУФЕРЕ В ASCII ФОРМЕ ЗНАЧЕНИЯ 
;СКОРОСТЕЙ. 
;НА КАЖДУЮ СКОРОСТЬ ПО 4 БАЙТА, 
;КОЛ-ВО СКОРОСТЕЙ 8, ЗАКАНЧИВАЕТСЯ #00 

D_INSTAL RET C 

;ЕСЛИ ДРАВЕР ВЫЗЫВАЕТСЯ С УСТАНОВЛЕНЫМ 
 ;ФЛАГОМ CY - ТО ЭТО ЗАПУСК ДЛЯ 
;РАСПАКОВКИ, И ЕГО ИГНОРИРУЕМ 

 LD (MOD_BUFF1),HL ;ЗАПИСАЛИ В 
        LD (MOD_BUFF2),HL ;НУЖНЫЕ МЕСТА
        LD (MOD_BUFF3),HL ;АДРЕС 
        LD (MOD_BUFF4),HL ;БУФЕРА 

;ПЕРЕБРАСЫВАЕМ В БУФЕР СКОРОСТИ ДРАЙВЕРА

 EX DE,HL 
        LD HL,SPD_MODEM 
        LD BC,ESPD_MODEM-SPD_MODEM 
        LDIR 
        RET 

SPD_MODEM 
        DB " 600 ","1800 ","2400 " 
        DS 5*5
ESPD_MODEM 

;ЧТЕНИЕ ИНФОРМАЦИИ О ДРАЙВЕРЕ 
;out: ПО [DE] ЗАПИСЫВАЕТСЯ НАЗВАНИЕ 
;ДРАЙВЕРА (ДО 80-ТИ СИМВОЛОВ), 
;ЗАКАНЧИВАЕТСЯ КОДОМ #00 

D_NAME   LD HL,NAME_MODEM 
         LD BC,ENAME_MODEM-NAME_MODEM 
         LD DE,(MOD_BUFF1) 
         LDIR 
         RET 

NAME_MODEM 
        DB "Vicomm-modem driver v1.04  "
        DB "(C) 1997 *MAS*",0 
GENAME_MODEM 

;ЧТЕНИЕ СТАТУСА ЛИНИИ/ДРАЙВЕРА 
;in: [A] ЦВЕТ БОРДЮРА 

;out: [A] - ДАННЫЕ ДЛЯ ПОРТА #FE 
;     Т.К. ЦВЕТ БОРДЮРА + БИТЫ УПРАВЛЕНИЯ
  ;     ЛИНИЕЙ И ВЫХОД ЛИНИИ 
;[B]: ПО БИТАМ: 
;   0 СТАТУС ЛИНИИ (СВОБОДНА/ЗАНЯТА) 
;   3 наличие тонового набора 
,;   4 ВЫКЛЮЧАТЬ TUBRO ПРИ ВЫЗОВЕ ДРАЙВЕРА
;   5 УПРАВЛЕНИЕ ЛИНИЕЙ 
;   6 НАЛИЧИЕ ТАЙМЕРА 
;   7 НАЛИЧИЕ ЧАСОВ 

D_RD_STAT 
        AND 7: LD C,A 
        LD A,(LINE_STATUS) 
        LD B,A: OR C 
        OUT (#FE),A: LD (BORDER_0+1),A 
        OR  #08: LD (BORDER_1+1),A 
        PUSH AF 
        XOR A: INC B: DEC B 
        JR Z,$+3: INC A 

 IF CALLING 

;ВЫКЛЮЧАТЬ TURBO, ЕСТЬ УПРАВЛЕНИЕ ЛИНИЕЙ,
;НЕТ ЧАСОВ, ТАЙМЕРА 

 OR %00110000 
      ELSE 

;ВЫКЛЮЧАТЬ TURBO, НЕТ УПРАВЛЕНИЯ ЛИНИЕЙ,
;НЕТ ЧАСОВ, ТАЙМЕРА, ТРУБКА СНЯТА 

 OR %00010001 
      ENDIF 
        LD B,A 
        POP AF: RET 

;СНЯТЬ ТРУБКУ 

D_ON_LINE  LD A,#20: JR ON_OFF_L 

;ПОЛОЖИТЬ ТРУБКУ 

D_OFF_LINE XOR A 

ON_OFF_L 

;ИЗМЕНЕНИЕ СТАТУСА ЛИНИИ, ЕСЛИ НЕТ 
;УПРАВЛЕНИЯ ЛИНИЕЙ - СРАЗУ ВОЗВРАТ 

 IF CALLING 
         LD (LINE_STATUS),A 
         LD B,A: LD A,(BORDER_0+1) 
         OR B: LD (BORDER_0+1),A 
         OUT (#FE),A 
         OR #08: LD (BORDER_1+1),A 
      ENDIF 
         RET 

;НАБРАТЬ НОМЕР, ТРУБКА УЖЕ СНЯТА 
; in: 
; [HL] - АДРЕС БУФЕРА С НОМЕРОМ 
;  [A] - 0 pulse,  1 tone 
;  [B] период импульса ms, станд. 100 
;  [C] межцифровая пауза ms/10 
; CY=1 ОШИБКА, КОД ОШИБКИ В [A]: 
;    0 ОШИБКА НАБОРА 
;    1 НЕТ ДЛИННОГО ГУДКА 
;    2 ПРЕРЫВАНИЕ 
; CY=0 СОЕДИНЕНИЕ УСТАНОВЛЕНО: 
;ВОЗВРАЩАЮТСЯ ДАННЫЕ КАК ИЗ SET_CON_P 

D_CALL 
      IF CALLING 
        LD (ID_CALL+1),HL 
        PUSH BC 

;УСТАНАВЛИВАЕМ П/П СКАНИРОВАНИЯ ЛИНИИ 

 XOR A: CALL D_WAIT_INS 
        POP BC 
        LD A,C: LD (CDEL_COD+1),A 

;ЗАДАН ПЕРИОД ИМПУЛЬСА, ПО СТАНДАРТУ 
;ДАЕТСЯ 2/5 ПЕРИОДА ЛИНИЯ ЗАМКНУТА, 
;И 3/5 ПЕРИОДА ЛИНИЯ РАЗОМКНУТА 
;ДЕЛИМ ПЕРИОД НА 5 

 LD A,B: LD B,0 
DIV5SUB 5: JR C,EDIV5 
        INC B: JR DIV5 
-EDIV5   INC B: DEC B: JR NZ,$+3: INC B 

 LD A,B: RLCA;2/5 ПЕРИОДА 
        LD (CDEL_1+1),A 

 ADD A,B         ;3/5 ПЕРИОДА 
        LD (CDEL_0+1),A 

;ЗАПИСЫВАЕМ ЗНАЧЕНИЯ ВЫДАВАЕМЫЕ В ПОРТ 
;#FE ДЛЯ ЗАМЫКАНИЯ/РАЗМЫКАНИЯ ЛИНИИ 

 LD A,(BORDER_0+1): AND #0F 

        LD (DCAL_OFF+1),A 
        LD A,(BORDER_1+1): OR #20 
        LD (DCAL_ON+1),A 

;МАСЕНЬКАЯ ПАУЗА ПЕРЕД НАБОРОМ 

 EI: LD B,45: HALT: DJNZ $-1 

;КОНТРОЛЬ ДЛИННОГО ГУДКА: 
;ДЕЛАЕМ 200 ОПРОСОВ ЛИНИИ, ЕСЛИ 
;ПОЙМАЕМ 30 РАЗ ПОДРЯД ГУДОК - ВСЕ ОК 

 LD BC,200*256+30 
WAIT_DIA CALL WAIT_CALL 
          JR C,DWAIT_R   ;ГУДКА НЕТ 
         DEC C 
         JR Z,ID_CALL ;ПОЙМАЛИ 30 РАЗ 
         JR DWAIT_N 

;ЕСЛИ ХОТЬ РАЗ ПОТЕРЯЛИ ГУДОК - УСТАНО- 
;ВИТЬ СЧЕТЧИК ЗАНОВО НА 30 

DWAIT_R  LD C,30 

;ЕСЛИ НАЖАТ ПРОБЕЛ - ВЫХОД 

DWAIT_N LD A,#7F: IN A,(#FE) 
        RRCA: JR NC,BRK_CALL 
        DJNZ WAIT_DIA 

NO_DIAL   LD A,1: SCF: RET ;НЕТ СИГНАЛА
-BRK_CALL  LD A,2: SCF: RET ;ПРЕРЫВАНИЕ 
ERRD_CALL XOR A: SCF: RET  ;ОШИБКА 

ED_CALL XOR A: RET ;НОМЕР НАБРАН

;СОБСТВЕННО НАБОР НОМЕРА
/ID_CALL LD HL,0 ;ЗДЕСЬ БУДЕТ АДРЕС БУФЕРА
        LD A,(HL): INC HL
        LD (ID_CALL+1),HL

 OR A         ;НАЙДЯ КОД #00
        JR Z,ED_CALL ;ОКАНЧИВАЕМ НАБОР
;СИМВОЛЫ "-", "(", ")", " " ИГНОРИРУЕМ
        CP "-": JR Z,ID_CALL
        CP "(": JR Z,ID_CALL
        CP ")": JR Z,ID_CALL
        CP " ": JR Z,ID_CALL

 SUB "0": JR C,ERRD_CALL
;ЕСЛИ ЭТО НЕ ЦИФРА - ОШИБКА НАБОРА

;ЦИФРЕ "0" СООТВЕТСТВУЕТ 10 ИМПУЛЬСОВ
        JR NZ,$+4: LD A,10
        CP 11: JR NC,ERRD_CALL

 LD B,A

;НАБИРАЕМ ЦИФРУ, В [B] КОЛ-ВО ИМПУЛЬСОВ

CALL_C 

;РАЗРЫВ ЛИНИИ НА 60ms (3/5)

DCAL_OFF LD A,0
         OUT (#FE),A

CDEL_0   LD A,0
DDEL_0   LD C,248
         DEC C: JP NZ,$-1
         DEC A: JP NZ,DDEL_0

;ЗАМЫКАНИЕ ЛИНИИ И ПАУЗА 40ms (2/5)

DCAL_ON LD A,0
        OUT (#FE),A

;ЗАДЕРЖКА НА [A] ms
CDEL_1  LD A,0
DDEL_1  LD C,248
        DEC C: JP NZ,$-1
        DEC A: JP NZ,DDEL_1

  DJNZ CALL_C

;МЕЖЦИФРОВАЯ ПАУЗА В 600ms

CDEL_COD LD B,0
 W_CDEL  NOP: NOP: LD DE,1457
        DEC DE: LD A,D
        OR E: JP NZ,$-3
        DJNZ W_CDEL

;ЕСЛИ НАЖАТ ПРОБЕЛ - ВЫХОД,ИНАЧЕ НАБИРАЕМ
;НОМЕР ДАЛЬШЕ
        LD A,#7F: IN A,(#FE)
        RRCA: JR NC,BRK_CALL
 JR ID_CALL

;ОПРАШИВАЕМ ЛИНИЮ 32 РАЗА

WAIT_CALL DI: PUSH BC
        LD B,32
        LD HL,0

CALL_DIAL LD DE,#0B59
         CALL SCAN_IN
         CALL DELAY_37
          LD E,A: LD D,0: ADD HL,DE
         DJNZ CALL_DIAL

  POP BC
;КОНТРОЛЬ ГУДКА, СРЕДН. АРИФМ.
 ;ЗНАЧЕНИЕ ЧАСТОТЫ ЗА 32 ОПРОСА
        SRA H: RR L : SRA H: RR L
        SRA H: RR L : SRA H: RR L
        SRA H: RR L
        LD A,L: SRA A

;В ИНТЕРВАЛЕ 150...250 - ЧАСТОТА ГУДКА
        CP 150: RET C
        CP 250: CCF
        RET

        XOR A: SCF: RET
      ENDIF

;ВЫЗЫВАЕТСЯ ПРИ ОБНАРУЖЕНИИ ЗВОНКА.
;СНИМАЕТСЯ ТРУБКА. + ОПРЕДЕЛЕНИЕ НОМЕРА
;(ЗДЕСЬ ОТСУТСТВУЕТ!)

;out: MOD_BUFF НОМЕР В ASCII, В КОНЦЕ 0

D_AON   CALL D_ON_LINE
        LD B,75: EI: HALT: DJNZ $-2: DI
;ПОСЛЕ СНЯТИЯ ТРУБКИ ПАУЗА В 1.5 СЕК.
;ЕСЛИ ЕСТЬ АОН, ТО ОН МОЖЕТ ОПРЕДЕЛИТЬ
;НОМЕР

;ПЕРЕБРАСЫВАЕМ В БУФЕР МОДЕМА СООБЩЕНИЕ
;О СНЯТИИ ТРУБКИ

MOD_BUFF3 EQU $+1: LD DE,#1111
         LD HL,AON_TXT
           LD BC,EAON_TXT-AON_TXT
         LDIR
         RET

AON_TXT 
DB 13,"Модем подключен к линии",13,0
EAON_TXT 

;ДВЕ НИЖЕСЛЕДУЮЩИЕ П/П ИСПОЛЬЗУЮТСЯ
;КАК "ЗАГЛУШКИ", Т.К. АЛГОРИТМ АВТОВЫБОРА
;СКОРОСТИ ЕЩЕ НЕ ОБДУМЫВАЛСЯ

;установить соединение, передача
;Т.Е. ВНАЧАЛЕ "ПЕРЕДАЕТ", ПОТОМ "СЛУШАЕТ"

SET_CON_A 

;установить соединение, прием
;Т.Е. ВНАЧАЛЕ "СЛУШАЕТ", ПОТОМ "ПЕРЕДАЕТ"

SET_CON_P 
MOD_BUFF4 EQU $+1: LD DE,0
      IF CALLING
        PUSH HL
         LD (HL),13: LD BC,1: XOR A
        CALL D_TRANSMIT
        POP HL
      ENDIF

;УСТАНОВКА СОЕДИНЕНИЯ
;В MOD_BUFF ВОЗВРАЩАЕТСЯ ТЕКСТОВОЕ СООБЩ.
 ;О СОЕДИНЕНИИ, В КОНЦЕ - КОД #00
;В [A] УСТАНОВЛЕНАЯ СКОРОСТЬ, ИЛИ #80
;ЕСЛИ ОНА НЕОПРЕДЕЛЕНА
         LD HL,CARR_TXT
         LD BC,ECARR_TXT-CARR_TXT
         LDIR
         LD A,#80 ;СКОРОСТЬ НЕОПРЕДЕЛЕНА
         RET

CARR_TXT 
DB 13,"Соедение установлено",13,0
ECARR_TXT 

;ИНСТАЛЯЦИЯ ПЕРЕД СКАНИРОВАНИЕМ ЛИНИИ
;В [A] - ГРОМКОСТЬ ВЫВОДА ЗВУКА ЛИНИИ
;ЧЕРЕЗ AY

D_WAIT_INS 
        LD HL,#4000: LD (LCOUNT_A),HL
        AND #0F: SET 6,A: LD (SOUND+1),A
        JR Z,D_WAIT_INS1
         LD BC,#FFFD: LD A,7: OUT (C),A
         LD B,#BF: LD A,#3F: OUT (C),A

GD_WAIT_INS1 
        XOR A: LD (LAST_DT+1),A
        LD (COUNT0+1),A
        LD (COUNT1+1),A
        LD (LAST0+1),A
        LD (OFFCOU+1),A
        RET

;СКАНИРОВАНИЕ ЛИНИИ
;out
;CY=1: НИЧЕГО
 ; [B] КОЛИЧЕСТВО ЦИКЛОВ ОПРОСА
; [C] СКОЛЬКО ВСЕГО ДОЛЖНО БЫТЬ ЦИКЛОВ
;CY=0, ;[A] - КОД:
;1 - ПРИНЯТ БЛОК, 2 - ЗАНЯТО, 3 - ВЫЗОВ

D_WAIT_LN 
        DI
        LD HL,0
        LD DE,16*256+12  ;11

 LD BC,#FFFD: LD A,8: OUT (C),A
        LD A,(SOUND+1)
        AND #0F: JR Z,$+4: LD B,#BF

;ОПРОС ЛИНИИ НА СИНХРОСИГНАЛ БЛОКА И
;КОНТРОЛЬ КОТОТКИХ ГУДКОВ, ВНАЧАЛЕ
;СЧИТАЕМ СРЕДН. АРИФМ. ЗНАЧЕНИЕ ЧАСТОТЫ
;ЗА 16 ОПРОСОВ

MDLOOP1 
        IN A,(#FE): AND #20

;АНАЛИЗ/НЕТ СИГНАЛА ВЫЗОВА
    IF CALLING
        JP Z,RING : ELSE: JP $+3
    ENDIF

 CALL IN_LINE_F
        CP 11: JP C,MDLOOP2
        CP 89: JP NC,MDLOOP2
        DEC E: JP Z,INPUT_BLOCK ;БЛОК?
MDLOOP2 ADD A,L: LD L,A
        JR NC,$+3: INC H
        DEC D: JP NZ,MDLOOP1

 SRA H: RR L : SRA H: RR L
        SRA H: RR L : SRA H: RR L
        LD A,L: SRA A

;В ИНТЕРВАЛЕ 150...250 - ЧАСТОТА ГУДКА
;ЕСЛИ ГУДОК, ТО А=1 ИНАЧЕ А=0
        CP 150: JR C,TST_OFFL
        CP 250: JR C,TST_ONL

TST_OFFL XOR A: JR $+4
TST_ONL  LD A,1

;ЕСЛИ СОСТ. СИГНАЛА НЕ ИЗМЕНИЛОСЬ, ТО
 ;ПРОСТО УВЕЛИЧИТЬ СЧЕТЧИК. ЕСЛИ
;ИЗМЕНИЛОСЬ, ТО ПЕРЕКЛЮЧИТЬ СЧЕТЧИК

LAST_DT  CP 0: LD (LAST_DT+1),A
         JR NZ,NEW_DTL

ADR_IDL  LD HL,0: INC (HL): LD A,(HL)
         CP 200: CALL NC,D_WAIT_INS1
         JR E_WAIT_LN

;ЧАСТОТА ИЗМЕНИЛАСЬ:

NEW_DTL DEC A: JR Z,NEW_DTL1

;СТАЛА "0": ПЕРЕКЛЮЧАЕМ СЧЕТЧИК
         LD HL,COUNT0+1 : LD (HL),0
        LD (ADR_IDL+1),HL

;ЕСЛИ БЫЛО >4 ЕДЕНИЦ И >4 НУЛЕЙ ПОДРЯД,
;ЗНАЧИТ ПОЙМАЛИ СИГНАЛ ОТБОЯ

COUNT1  LD A,0: CP 4: JP C,RES_OFF
LAST0   LD A,0: CP 4: JP C,RES_OFF

;ПОЙМАВ 3 ГУДКА ОТКЛЮЧИТСЯ

OFFCOU  LD A,0: INC A: LD (OFFCOU+1),A
        CP 3: JR Z,BUSY_FOUND

;ЧАСТОТА СТАЛА "1": ПЕРЕКЛЮЧАЕМ СЧЕТЧИК
NEW_DTL1 LD HL,COUNT1+1 : LD (HL),0
        LD (ADR_IDL+1),HL
COUNT0  LD A,0
JPE_WAIT_LN LD (LAST0+1),A
        JR E_WAIT_LN

RES_OFF XOR A
        LD (COUNT0+1),A
        LD (COUNT1+1),A
        JR JPE_WAIT_LN

BUSY_FOUND
        OR A: LD A,2 ;CY=0, A=2 "ЗАНЯТО"
        RET

;ПОЙМАЛИ ЗВОНОК, ПРОВЕРКА НА РЕАЛЬНОСТЬ
;ЕСЛИ СИГНАЛ ВЫЗОВА БУДЕТ ДЕРЖАТЬСЯ
;НЕКОТОРОЕ ВРЕМЯ - ЗНАЧИТ ВЫЗОВ В НАТУРЕ

GRINGLD C,2
RING1   LD B,30: NOP: DJNZ $-1
        IN A,(#FE): AND #20
        JP NZ,D_WAIT_LN
        DEC C: JR NZ,RING1

;ЗВОНОК ЕСТЬ, ОЖИДАЕМ ЕГО ОКОНЧАНИЯ

RING2   IN A,(#FE): AND #20: JR Z,RING2
         LD A,3   ;CY=0, A=3 "ЗВОНОК"
        RET

E_WAIT_LN LD BC,#0101
          SCF: RET  ;CY=1 - НИЧЕГО НЕТ

;ОПРОС ВХОДА: В [A] БУДЕТ ЧАСТОТА СИГНАЛА

IN_LINE_F PUSH HL: PUSH DE
          LD DE,(LCOUNT_A)
SOUND     LD L,0

LP_TIN_F INC E: JP Z,END_TIN_F
         INC E: JP Z,END_TIN_F
         IN A,(#FE)
          RLCA: RLCA: SBC A,A
          AND L: NOP: OUT (C),A
         AND #40: XOR D: JP Z,LP_TIN_F
        XOR D: LD (LCOUNT_B),A

RET_TIN_F LD A,E
        LD HL,LCOUNT_A
        SUB (HL): LD (HL),A
        LD A,E
        POP DE: POP HL
        RET

END_TIN_F DEC E: JR RET_TIN_F

;ПОЙМАЛИ СИНХРОСИГНАЛ, ПРИНИМАЕМ БЛОК

INPUT_BLOCK
        CALL IN_LINE
        CALL CONTR_SPEED
        CALL LOAD_DATA
        RET C

E_LOAD_DT LD A,(SPEED): LD D,A
BLOCK_LEN EQU $+1: LD BC,#0101
;CY=0   УСПЕШНО ПРИНЯЛИ БЛОК
          OR A: LD A,1
          RET

;ДОЛГОЕ ОЖИДАНИЕ БЛОКА И ПРИЕМ БЛОКА

;out: CY НЕТ БЛОКА
;[BC] ДЛИНА
;[D] СКОРОСТЬ (#80 НЕОПРЕДЕЛЕНА)

D_WAIT_BLC
        CALL WAIT_LINE: RET C
        CALL LOAD_DATA
        CALL LINE_FREE
        JR E_LOAD_DT

SCAN_IN CALL IN_LINE
        CP D : RET C
 CP E : CCF
        RET

IN_LINE_D;ЗАДЕРЖКА И ОПРОС ВХОДА
        PUSH BC : POP BC

;ОПРОС ВХОДА

IN_LINE PUSH HL : PUSH BC
        LD A,(LCOUNT_A) : LD C,A
        LD A,(LCOUNT_B) : LD B,A

LOOP_TIN INC C : JP Z,END_TIN
         IN A,(#FE) : AND #40
         XOR B : JP Z,LOOP_TIN

 XOR B : LD (LCOUNT_B),A
RET_TIN LD A,C
        LD HL,LCOUNT_A
        SUB (HL) : LD (HL),A
        LD A,C
        POP BC : POP HL
        RET

END_TIN DEC C: JR RET_TIN



;ОЖИДАНИЕ ОСВОБОЖДЕНИЯ ЛИНИИ, ВЕРТИМСЯ
;ЗДЕСЬ ДО ТЕХ ПОР, ПОКА ИЗ ЛИНИИ НЕ
;ИСЧЕЗНЕТ СИГНАЛ АБОНЕНТА

LINE_FREE
        PUSH AF : PUSH DE : PUSH BC
          XOR A : LD (LCOUNT_A),A
         LD A,#40 : LD (LCOUNT_B),A
        CALL IN_LINE
        LD DE,#0570;#0180
        NOP : NOP
LN_FREE1 NOP: NOP
LN_FREE2 LD B,4
         CALL DELAY_37
         CALL SCAN_IN
         NOP : JP  NC,LN_FREE1

LN_FREE3 DEC B : JP Z,LINE_FREE4
        CP #FF : JP NC,LINE_FREE4
        CALL DELAY_37
        CALL SCAN_IN
        JP C,LN_FREE3
        JP LN_FREE2

;ЛИНИЯ СВОБОДНА

LINE_FREE4
        POP BC : POP DE : POP AF
        RET



;СИНХРОНИЗАЦИЯ БЛОКА

SYNCD1_IN JP SYNC1_IN
SYNC1_IN  NOP : NOP
        CALL IN_LINE
        CP D : JP C,ED_SYNCD
        CP E : CCF: JP C,ED_SYNCD
        LD B,A
        LD A,(HL)
        OR A : JP Z,SYNC1_I1
        ADD A,B : LD (HL),A
SYNC1_I2 ADD A,0
         INC HL
         RET
SYNC1_I1 JP SYNC1_I2

SYNCD2_IN JP SYNC2_IN
SYNC2_IN  NOP : NOP
SYNC2_I6 CALL IN_LINE
        CP D: JP C,ED_SYNCD
        CP E: CCF: JP C,ED_SYNCD
        LD B,A
        LD A,(HL)
        SUB B
        JP P,SYNC2_I2
        XOR A : ADD A,0
SYNC2_I1 LD (HL),A
         INC HL
         RET
SYNC2_I2 JP SYNC2_I1

ED_SYNCD INC SP : INC SP
  ERR_SYNC POP DE : POP HL
         RET

;ЗАДЕРЖКИ НА СООТВ. ЧИСЛО ТАКТОВ
DELAY_57   JP DELAY_47
DELAY_47   JP DELAY_37
DELAY_37   CALL DELAY_27
DELAY_27   RET
DELAY_68   CALL DELAY_27
           CALL DELAY_27
           NOP
           RET

DELAY_C LD B,#FE
         CALL DELAY_47
         CALL DELAY_47
        DJNZ DELAY_C+2
        DEC C : JP NZ,DELAY_C
        RET

;ОЖИДАНИЕ СИГНАЛА АБОНЕНТА
;В ТЕЧЕНИИ 2...4 СЕКУНД

WAIT_LINE DI
          LD HL,#4000 : LD (LCOUNT_A),HL
          LD D,3
WT_LINE1 LD E,3
WT_LINE2 LD H,1
WT_LINE3 LD B,16
         LD A,H: LD (LCOUNT_C),A
LP_WLINE CALL IN_LINE
         CP MIN+1 : JP C,WAIT_CONTR1
         CP #2D : JP C,WAIT_SPEED
WAIT_CONTR
         ADD A,L : JP NC,$+4 : INC H
         ADD A,6 : LD L,A
         JP NC,$+4 : INC H
         LD A,(LCOUNT_C)
         CP H
         JP C,WT_LINE3
         JP Z,WAIT_CONTR2
           DEC E : JP NZ,WT_LINE2
           DEC D : JP NZ,WT_LINE1
         SCF: RET

WAIT_CONTR1 CP 5
        JP WAIT_CONTR

WAIT_CONTR2 LD B,16
        JP LP_WLINE

;КОНТРОЛЬ СКОРОСТИ ПРИ ОЖИДАНИИ

WAIT_SPEED
        CALL DELAY_47: NOP
        DEC B : JP NZ,LP_WLINE
        CALL IN_LINE

;КОНТРОЛЬ СКОРОСТИ. ПОДСЧЕТ ЧИСЛА ИМПУЛЬ-
;СОВ => СКОРОСТЬ

CONTR_SPEED
 LD BC,#0006
        CALL IN_LINE
        CALL IN_LINE_D
        CALL IN_LINE_D
        PUSH BC: POP BC
C_SPEED CALL IN_LINE
        ADD A,B: LD B,A
        DEC C: JR NZ,C_SPEED
        OR A
        RET

;ПРИЕМ БЛОКА.
;В [B] ЧИСЛО ИМПУЛЬСОВ (СКОРОСТЬ)

LOAD_DATA
MOD_BUFF1 EQU $+1: LD HL,0
        LD A,195 : CP B
         JP C,INP_600;?>195 = 600
        LD A,130 : CP B
        JP C,INP_1800   ;?>130 = 1800
        LD A,60 : CP B
        CCF : RET C     ;?>060 = 2400

INP_FAST LD A,2
         LD (SPEED),A ;СКОРОСТЬ 2400
        CALL SYNC_FAST: RET C
        CALL LOAD_BYTE_FAST : RET C

;ПРИНИМАЕМ ДЛИНУ БЛОКА: ЕСЛИ 0-Й БАЙТ
;РАВЕН #08, ТО ДЛИНА БЛОКА БОЛЬШЕ НА
;256 БАЙТ
        LD (ZERO_BYTE),A
        LD D,0
        CP 8: JR NZ,$+3: INC D
;ПРИНИМАЕМ МЛ. БАЙТ ДЛИНЫ
         CALL LOAD_BYTE_FAST: RET C
        LD E,A: OR A: JR NZ,$+3: INC D

 LD (BLOCK_LEN),DE

;ПРИНИМАЕМ САМ БЛОК, ДЛИНОЙ [DE]

GLD_BLOCK_FAST
        CALL LOAD_BYTE_FAST: RET C
        LD (HL),A
        INC HL: DEC DE
        LD A,D: OR E
        JP NZ,LD_BLOCK_FAST
        RET

;ПРИНИМАЕМ БАЙТ

LOAD_BYTE_FAST
        LD B,8   ;ЛОВИМ 8 БИТ
        CALL IN_LINE

;ОПРЕДЕЛИЛИ ЧАСТОТУ, ЕСЛИ ОНА ЛЕЖИТ
;В ДИАПАЗОНЕ ОТ MIN ДО MAX, ТО БИТ
;ПРИНЯТ, ИНАЧЕ - ОШИБКА
        CP MIN : JP C,ERR_LDFAST
        CP MAX : JP NC,ERR_LDFAST

;ЕСЛИ ЧАСТОТА БОЛЬШЕ ZERO - ПРИНЯЛИ
;ЕДИНИЦУ, МЕНЬШЕ - НУЛЬ
        CP ZERO
        RL C ;ПРИНЯЛИ ИНВЕРСНЫЙ БИТ
        CALL DELAY_47   ;27
        DEC B: JP Z,_LOAD_BYTE_FAST
        CALL IN_LINE
        JP LOAD_BYTE_FAST+2

_LOAD_BYTE_FAST
        LD A,C: CPL ;ИНВЕРТИРОВАЛИ БАЙТ
        PUSH AF
        CALL IN_LINE
        POP AF
          OR A: RET ;БАЙТ ПРИНЯТ

ERR_LDFAST        ;ОШИБКА ПРИЕМА
        POP BC
        SCF: RET

;СИНХРОНИЗАЦИЯ БЛОКА

SYNC_FAST PUSH HL
        LD DE,MIN*256+ZERO-3
        LD A,1
        LD (SYNC_TABL),A
        LD (SYNC_TABL+1),A
        CALL IN_LINE
        CALL DELAY_68
         CALL IN_LINE
S1_FAST CALL DELAY_57
        CALL IN_LINE
        CP D : JP C,ERR_SYNC
        CP E : JP C,S1_FAST

 LD E,MAX-1
        LD HL,SYNC_TABL
        CALL DELAY_47
        CALL IN_LINE
        CALL DELAY_68
        CALL DELAY_27
         CALL IN_LINE
         CALL DELAY_68
         CALL DELAY_27
        CALL IN_LINE
        CALL DELAY_47
        CALL DELAY_27
        CALL SYNCD1_IN
        CALL SYNCD1_IN
         LD HL,SYNC_TABL
         CALL SYNC2_IN
         CALL SYNCD2_IN
        LD HL,SYNC_TABL
        CALL SYNC1_IN
        CALL SYNCD1_IN
         LD HL,SYNC_TABL
         CALL SYNC2_IN
         CALL SYNCD2_IN
        LD HL,SYNC_TABL
        CALL SYNC1_IN
        LD C,A
        CALL SYNCD1_IN
        CP C : JP M,S2_FAST
         CALL IN_LINE
         CALL DELAY_68
         CALL DELAY_27

S2_FAST CALL IN_LINE
        CALL DELAY_68
        CALL IN_LINE
        POP HL
        OR A: RET



;!!! ДЛЯ СКОРОСТЕЙ 1800/600 ВСЕ ОЧЕНЬ
;ПОХОЖЕ, ПОЭТОМУ БЕЗ КОМЕНТАРИЕВ

INP_1800 LD A,1: LD (SPEED),A
        CALL IN_LINE
        CALL DELAY_27
        NOP
        LD DE,#0E19
        LD DE,#0E19
        CALL SYNC_1800: RET C
        LD D,0
         CALL LOAD_BYTE_1800: RET C
        LD (ZERO_BYTE),A
        CP 8: JR NZ,$+3: INC D
;ПРИНИМАЕМ ДЛИНУ
         CALL LOAD_BYTE_1800: RET C
        LD E,A: OR A: JR NZ,$+3: INC D

 LD (BLOCK_LEN),DE
GLD_BLOCK_1800
        CALL LOAD_BYTE_1800: RET C
        LD (HL),A
        INC HL: DEC DE
        LD A,D: OR E
        JP NZ,LD_BLOCK_1800
        RET

LOAD_BYTE_1800
         PUSH BC : LD B,8
        CALL IN_LINE
          CP #0F: JP C,ERR_LD1800
        CP #2D: JP NC,ERR_LD1800
        CP #1C: LD A,C: RLA: LD C,A
        CALL DELAY_27
          DEC B: JP NZ,NEXT_B1800
        LD A,C: CPL
        POP BC
        PUSH AF
        CALL IN_LINE
        POP AF
        OR A: RET

NEXT_B1800
        CALL DELAY_27
        NOP
        CALL IN_LINE
        CALL DELAY_57
        CALL DELAY_27
        NOP
        JP LOAD_BYTE_1800+3

ERR_LD1800
        POP BC
        SCF: RET

SYNC_1800 PUSH HL
        PUSH DE
        OR A : LD A,1
        LD (SYNC_TABL),A
        LD (SYNC_TABL+1),A
        CALL IN_LINE
        CALL DELAY_68
        CALL DELAY_27
        NOP
        CALL IN_LINE
        CALL DELAY_27
        NOP
S1_1800 CALL DELAY_68
        CALL IN_LINE
        NOP
        CP D: JP C,ERR_SYNC
        CP E: JP C,S1_1800
        LD DE,#0E2E
        LD HL,SYNC_TABL
        CALL DELAY_47
        CALL IN_LINE
        CALL DELAY_68
        CALL DELAY_27
        NOP
        CALL IN_LINE
        CALL DELAY_68
        CALL DELAY_27
        NOP
        CALL IN_LINE
        CALL DELAY_47
        CALL DELAY_27
        ADD A,0
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        LD HL,SYNC_TABL
        CALL SYNC2_IN
        CALL SYNCD2_IN
        LD HL,SYNC_TABL
        CALL SYNC1_IN
        CALL SYNCD1_IN
        LD HL,SYNC_TABL
        CALL SYNC2_IN
        CALL SYNCD2_IN
        LD HL,SYNC_TABL
        CALL SYNC1_IN
        LD C,A
        ADD A,0
        CALL SYNCD1_IN
        CP C: JP M,S2_1800
        CALL IN_LINE
        CALL DELAY_68
        CALL DELAY_27
        NOP
S2_1800 CALL IN_LINE
        CALL DELAY_68
CALL DELAY_27
        NOP
        CALL IN_LINE
        POP DE
        POP HL
        OR A: RET

INP_600 XOR A: LD (SPEED),A
        CALL IN_LINE
        NOP
        LD DE,#1728
        LD DE,#1728
        CALL SYNC_600: RET C
        LD D,0
         CALL LOAD_BYTE_600 : RET C
        LD (ZERO_BYTE),A
          CP 8: JR NZ,$+3 : INC D
;ПРИНИМАЕМ ДЛИНУ
         CALL LOAD_BYTE_600 : RET C
        LD E,A: OR A: JR NZ,$+3: INC D

 LD (BLOCK_LEN),DE
LD_BLOCK_600
        CALL LOAD_BYTE_600: RET C
        LD (HL),A
        INC HL: DEC DE
        LD A,D: OR E
        JP NZ,LD_BLOCK_600
        RET



GLOAD_BYTE_600
         PUSH DE: PUSH BC
         LD B,8
        CALL IN_LINE
        CALL IN_LINE
        CALL IN_LINE
        CP #17: JP C,ERR_LD600
          CP #59: JP NC,ERR_LD600
        CP #2D: LD A,E: RLA: LD E,A
        CALL IN_LINE
        DEC B
        JP NZ,LOAD_BYTE_600+4
        LD A,E: CPL: OR A
        POP BC
        POP DE
        RET

ERR_LD600 POP BC: POP DE
        SCF: RET

SYNC_600 PUSH HL: PUSH DE
        OR A
        LD A,1
        LD (SYNC_TABL),A
        LD (SYNC_TABL+1),A
        LD (SYNC_TABL+2),A
        LD (SYNC_TABL+3),A
        CALL IN_LINE
        CALL DELAY_68
        CALL DELAY_27
        NOP
        CALL IN_LINE
        CALL DELAY_27
        NOP
S1_600  CALL DELAY_68
        CALL IN_LINE
        NOP
        CP D: JP C,ERR_SYNC
        CP E: JP C,S1_600
        LD A,(SYNC_TABL+4)
        INC A
        LD (SYNC_TABL+4),A
        ADD A,0
        LD DE,#0E59
        LD HL,SYNC_TABL
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        LD HL,SYNC_TABL
        CALL SYNC2_IN
        CALL SYNCD2_IN
        CALL SYNCD2_IN
        CALL SYNCD2_IN
        LD HL,SYNC_TABL
        CALL SYNC1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        LD HL,SYNC_TABL
        CALL SYNC2_IN
        CALL SYNCD2_IN
        CALL SYNCD2_IN
        CALL SYNCD2_IN
        LD HL,SYNC_TABL
        CALL SYNC1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        LD HL,SYNC_TABL
        CALL SYNC2_IN
        CALL SYNCD2_IN
        CALL SYNCD2_IN
        CALL SYNCD2_IN
        LD HL,SYNC_TABL
        CALL SYNC1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        CALL SYNCD1_IN
        LD HL,SYNC_TABL
        CALL SYNC2_IN
        LD C,A
        ADD A,0
        CALL SYNC2_IN
        CP C : JP M,EXT_SYNC
        LD C,A
        CALL SYNC2_I6
        CP C : JP M,EXT_SYNC
        LD C,A
        CALL SYNC2_I6
        CP C : JP M,EXT_SYNC
        OR A : JP Z,ERR_SYNC
        NOP
        CALL IN_LINE
EXT_SYNC POP DE: POP HL
  OR A: RET



;ПЕРЕДАЧА БЛОКА ИЗ MOD_BUFF,
;BC - ДЛИНА, A - СКОРОСТЬ

D_TRANSMIT DI
        LD (SPEED),A
        PUSH AF  ;СОХРАНИЛИ СКОРОСТЬ
MOD_BUFF2 EQU $+1: LD HL,0
        DEC HL
        PUSH HL
        ADD HL,BC
        EX (SP),HL ;АДРЕС ПОСЛ. БАЙТА

 LD (HL),C  ;МЛ. БАЙТ ДЛИНЫ
        DEC HL: LD (HL),7
        LD A,B: OR A
        JR Z,$+3: INC (HL) ;ДЛИНА >256

 DEC HL
        LD (HL),#AA ;СИНХРО БАЙТ
        XOR A
        DEC HL: LD (HL),A
        DEC HL: LD (HL),A
        DEC HL

 POP DE  ;АДРЕС ПОСЛЕДНЕГО БАЙТА
         POP AF  ;СКОРОСТЬ ПЕРЕДАЧИ
          OR  A: JP Z,TRANSMIT_600
        DEC A: JP Z,TRANSMIT_1800

GTRANSMIT_FAST
        XOR  A: LD (HL),A ;СИНХРО
        DEC HL: LD (HL),A
        DEC HL: LD (HL),A
        DEC HL: LD (HL),A
        DEC HL: LD (HL),A

 CALL LINE_FREE
        PUSH BC
        LD C,1: CALL DELAY_C
        POP BC
        CALL OUTPUT_FAST
        PUSH HL
        PUSH DE
        LD BC,#020C
        LD A,0
        NOP: NOP: NOP: NOP
        JP OUT_BIT2600

;ПЕРЕДАЕМ БЛОК

OUTPUT_FAST
        LD A,(HL)         ;ПЕРЕДАЕМ БАЙТ
        CALL OU_BYTE_FAST
        NOP
        CALL COMP_HL_DE
        RET Z          ;БЛОК ПЕРЕДАН
        INC HL: JP OUTPUT_FAST

;ПЕРЕДАЧА БАЙТА

OU_BYTE_FAST
        PUSH HL: PUSH DE
        LD BC,#080C
OUT_BIT2600
        PUSH AF
        RLA : JP C,BIT1_FAST
          LD HL,D0_FAST : JP OB_FAST ;=0
.BIT1_FAST LD HL,D1_FAST : JP OB_FAST ;=1

;ПРИ ПЕРЕДАЧИ 1-ГО БИТА MIC OFF МЕНЬШЕ НА
;12 (168 ТАКТОВ),Т.К. 168 ТАКТОВ НУЖНЫ
;ДЛЯ ПОЛУЧЕНИЯ СЛЕД. БАЙТА,КОНТРОЛЯ,...

GOB_FAST RRA
        LD A,(HL)
          SUB C : LD D,A : INC HL
        LD E,(HL) : INC HL
        CALL OUT_DATA
        POP AF
        RLCA
        DEC B
        LD C,0 : LD C,0 : NOP
        JP NZ,OUT_BIT2600
        POP DE : POP HL
        RET

;ДЛЯ 1800/600 ПОХОЖЕ

GTRANSMIT_1800
        XOR  A : LD (HL),A
        DEC HL : LD (HL),A

 CALL LINE_FREE
        PUSH BC
        LD C,1 : CALL DELAY_C
        POP BC
        CALL OUTPUT_1800
        PUSH HL : PUSH DE
        LD BC,#020C
        LD A,0
        NOP : NOP : NOP : NOP
        JP OUT_BIT1800

OUTPUT_1800
        LD A,(HL)
        CALL OU_BYTE_1800
        NOP
        CALL COMP_HL_DE
        RET Z
        INC HL: JP OUTPUT_1800

OU_BYTE_1800
        PUSH HL: PUSH DE
        LD BC,#080C
OUT_BIT1800
        PUSH AF
        RLA: JP C,BIT1_1800
          LD HL,D0_1800: JP OB_1800 ;=0
-BIT1_1800 LD HL,D1_1800: JP OB_1800 ;=1

GOB_1800 RRA
        LD A,(HL)
        SUB C: LD D,A: INC HL
        LD E,(HL): INC HL
        CALL OUT_DATA
        POP AF
        RLCA
        DEC B
        LD C,0: LD C,0: NOP
        JP NZ,OUT_BIT1800
        POP DE: POP HL
        RET

TRANSMIT_600
        CALL LINE_FREE
        PUSH BC
        LD C,1: CALL DELAY_C
        POP BC
        CALL OUTPUT_600
        PUSH HL: PUSH DE
        LD BC,#020D
        LD A,0
        NOP: NOP: NOP: NOP
        JP OUT_BIT600

OUTPUT_600
        LD A,(HL)
        CALL OU_BYTE_600
        RLA: LD B,A
        CALL COMP_HL_DE
        LD A,B: RRA
        RET Z
        INC HL: JP OUTPUT_600

OU_BYTE_600
        PUSH HL: PUSH DE
        LD BC,#080D
        NOP

OUT_BIT600
        PUSH AF
        RLA: JP C,B71_600 ;B7=1
        RRA: JP C,B70_B01 ;B7=0,B0 =1
        LD HL,D00_600 ;B7 =0 B0 =0
        JP OB_600

B71_600 RRA: JP NC,B71_B01
        LD HL,D10_600   ;B7=1 B0=0
        JP OB_600

B71_B01 LD HL,D11_600   ;B7=1 B0=1
        JP OB_600

B70_B01 LD HL,D01_600   ;B7=0 B0=1
        JP OB_600

OB_600  NOP
        LD A,(HL)
        SUB C: LD D,A: INC HL
        LD  E,(HL): INC HL
        CALL OUT_DATA
        CALL OUT_DATA
        POP AF
        RLCA
        DEC B
        LD C,0: NOP : NOP
        JP NZ,OUT_BIT600
        POP DE:  POP HL
        RET

;СРАВНИТЬ HL И DE
COMP_HL_DE
        NOP
        LD A,H : CP D
        JP NZ,$+6: LD A,L: CP E: RET
        NOP: NOP: RET

;ПЕРЕДАЧА БИТА
OUT_DATA
        DEC D: JP NZ,$-1 ;ЗАДЕРЖКА D

BORDER_0 LD A,#00   ;MIC OFF
        JP $+3
        OUT (#FE),A
        DEC E: JP NZ,$-1 ;ЗАДЕРЖКА E

BORDER_1 LD A,#08   ;MIC ON
         JP $+3
         OUT (#FE),A
        LD D,(HL): INC HL
        LD E,(HL): INC HL
        NOP
        RET

;ТАБЛИЦЫ ДЛЯ ПЕРЕДАТЧИКА

;1800
D0_1800 DB 36,36+13 ;ЧАСТОТЫ ДЛЯ "0"
D1_1800 DB 67,67+13 ;ЧАСТОТЫ ДЛЯ "1"

D00_600 DB #36,#44,#40,#44 ;B7 =0 B0 =0
-D01_600 DB #57,#58,#49,#44 ;B7 =0 B0 =1
-D10_600 DB #57,#65,#61,#65 ;B7 =1 B0 =0
-D11_600 DB #36,#4D,#54,#65 ;B7 =1 B0 =1



D0_FAST DB 28,28+13  ;КОДА ПЕРЕДАЧИ "0"
D1_FAST DB 51,51+13  ;SPEED FAST"1"

MIN     EQU 11
MAX     EQU 37
GZEROEQU 23

;ЧИСЛО ТАКТОВ В ПЕРЕДАЧИ БИТА
;T=(2*D+13)*14+56  D - ЧИСЛО ИЗ ТАБЛИЦЫ
;D0_?? ДЛЯ ПЕРЕДАЧИ "0" И D1_?? ДЛЯ "1"

;СРЕДНЯЯ СКОРОСТЬ :
;SPEED=(SPD0+SPD1)/2
;SPD0=3500000/T0  SPD1=3500000/T1

;ПРИЕМНИК :
;ЕСЛИ С ЛИНИИ ПРИНЯТО ЧИСЛО < MIN -ОШИБКА
;ЕСЛИ > MAX : ОШИБКА
;ЕСЛИ MIN < ?? < ZERO : ПРИНЯЛИ "0"
;ЕСЛИ ZERO < ?? < MAX : ПРИНЯЛИ "1"

;ZERO=T0/46
;MAX=T1/46
;MIN=ZERO-11..13

;В ДАННОМ ДРАЙВЕРЕ П/П РАБОТЫ С ЧАСАМИ
;ОТСУТСТВУЮТ, И СТОЯТ "ЗАГЛУШКИ"

;УСТАНОВИТЬ ВРЕМЯ [A]-[B]-[C]

D_SET_TIME

;СЧИТАТЬ ВРЕМЯ [A]-[B]-[C]

D_RD_TIME

;ЕСЛИ ЧАСЫ ПОЛУАВТОНОМНЫ, ТО ЭТА П/П
  ;ПРОИЗВОДИТ ПОДСЧЕТ ВРЕМЕНИ

D_CAL_TIM

;УСТАНОВИТЬ ТАЙМЕР НА [BC] МИНУТ

D_SET_ALR

;ДОБАВИТЬ К ТАЙМЕРУ [BC] МИНУТ

D_ADD_ALR
 SCF: RET 

;ЕСЛИ ВРЕМЯ ИСТЕКЛО, CY=1 

D_RD_ALR XOR A: RET 

END

_______________________________