{ ---------------------------------------------------------------------	}
{	Функции для  работы цифровыми линиями											}
{ ---------------------------------------------------------------------	}

{ *********************************************************************	}
{ Команда приема с цифровых входных линий											}
{ *********************************************************************	}
Get_TTL_cmd:
	AR = IO(TTL_IN); PutPm(AR, TtlInAddr);

{ завершим выполнение текущей команды												}
	JUMP EndOfCommand;

{ *********************************************************************	}
{ Команда управления цифровыми выходными линиями								}
{ Команда разрешения/запрещения работы с TTL выходами							}
{ Команда управления источником тактовых ипульсов ввода данных				}
{ *********************************************************************	}
Put_TTL_cmd:
Enable_TTL_Out_cmd:
{ установим цифровые выходные линий и т.д.										}
	CALL PutTtl;
{ завершим выполнение текущей команды												}
	JUMP EndOfCommand;

{ *********************************************************************	}
{ Функция установки:																		} 
{	- цифровых выходных линий															}
{  - разрешения/запрещения цифровых выходных линий								}
{  - источника тактовых ипульсов для ввода данных									}
{     0x0 - внутренний тактовые импульсы (генерятся самим модулем)		}
{     0x1 - для ввода данных используются внешние тактовые импульсы		}
{ *********************************************************************	}
PutTtl:
EnableTtlOut:
SetInputClockSource:
{ состояние выходных линий																}
	GetPm(AR, TtlOutAddr); AY0 = 0xFF;
	AR = AR AND AY0; SR0 = AR;

{ определим статус выходных линий													}
	GetPm(AR, TtlOutEnableAddr); AR = AR AND 0x1;
	SR = SR OR LSHIFT AR BY 14 (LO);

{ определим источник тактовых импульсов для ввода данных 					}
	GetPm(AR, InputClockSourceAddr); AR = AR AND 0x1;
	SR = SR OR LSHIFT AR BY 15 (LO);

{ теперь устанавливаем цифровые выходные линии и др. параметры				}
	IO(TTL_OUT) = SR0;

{ спокойно выходим из функции															}
	RTS;
