;
;*** ÏÎÄÏÐÎÃÐÀÌÌÛ ÎÁÑËÓÆÈÂÀÍÈß ÊÎÍÒÐÎËËÅÐÀ *'
;******* ÏÎÑËÅÄÎÂÀÒÅËÜÍÎÃÎ ÈÍÒÅÐÔÅÉÑÀ, *****1
;******** ÏÎÄÊËÞ×ÅÍÍÎÃÎ Ê ÑÈÑÒ. ØÈÍÀÌ *****
;	*ASD* 18/06/88
;ÀÄÐÅÑÀ ÐÅÃÈÑÒÐÎÂ ÓÑÀÏÏ È ÒÀÉÌÅÐÀ:
DAT51: 	EQU 	0À800Í      	;ÐÅÃÈÑÒÐ ÄÀÍÍÛÕ ÂÂ51 
CW51:  	EQU 	0À801Í      	;ÐÅÃÈÑÒÐ ÊÎÌÀÍÄ ÂÂ51
ÑÒ0:    	EQU 	0À400Í      	;Ñ×ÅÒ×ÈÊ 0 ÂÈ53 
ÑÒ1:    	EQU	0À401Í      	;Ñ×ÅÒ×ÈÊ 1 ÂÈ53 
CT2:    	EQU 	0A40ZH      	; Ñ×ÅÒ×ÈÊ 2 ÂÈ53 
CW53:   	EQU 	0À403Í      	;ÐÅÃÈÑÒÐ ÊÎÌÀÍÄ ÂÈ53
;+++ ÓÏÐÀÂËßÞÙÅÅ ÑËÎÂÎ ÂÈ53 +++ 
BCD:    	EQU 	1    	; ÄÂ. -ÄÅÑßÒÈ×ÍÛÉ Ñ×ÅÒ
MODE0:   	EQU 	0
ÌÎDÅ1:   	EQU 	2
MODE2:   	EQU 	4    	;ÂÛÁÎÐ
MODE3:   	EQU 	6    	;ÐÅÆÈÌÀ
MODE4:   	EQU 	8
MODE5:   	EQU 	0AH
;
ROF:     	EQU 	0    	;×ÒÅÍÈÅ ÍÀ ËÅÒÓ 
RLL:     	EQU 	10Í 	;×ÒÅÍÈÅ/ÇÀÏÈÑÜ ÌË. ÁÀÉÒÀ 
RLH:    	EQU 	20Í 	;×ÒÅÍÈÅ/ÇÀÏÈÑÜ ÑÒ. ÁÀÉÒÀ 
RLW:     	EQU 	30Í 	;×ÒÅÍÈÅ/ÇÀÏÈÑÜ ÑËÎÂÀ
SCO:     	EQU 	0
SC1:     	EQU 	40H 	;ÂÛÁÎÐ Ñ×ÅÒ×ÈÊÀ
SC2:     	EQU 	80H
;
;+++ ÈÍÑÒÐÓÊÖÈß ÐÅÆÈÌÀ ÂÂ51 +++
X1:     	EQU 	1
Õ16:    	EQU 	2    	;ÌÍÎÆÈÒÅËÜ ÑÊÎÐÎÑÒÈ
Õ64:    	EQU 	3
L5:    	EQU	0
L6:     	EQU 	4    	;ÄËÈÍÀ ÈÍÔÎÐÌÀÖÈÎÍÍÎÃÎ 
L7:     	EQU 	8    	;ÑËÎÂÀ 
L8:     	EQU 	0CH
PEN:    	EQU 	10Í 	;ÐÀÇÐÅØÅÍÈÅ ÊÎÍÒÐÎËß 
ÅÐ:     	EQU 	20Í 	;ÊÎÍÒÐÎËÜ ×ÅÒÍÎÑÒÈ
S1:     	EQU 	40H
S15    	EQU 	80H 	;ÄËÈÍÀ ÑÒÎÏ-ÁÈÒÀ 
S2:     	EQU 	0C0H
;+++ ÈÍÑÒÐÓÊÖÈß ÊÎÍÀÍÄÛ ÂÂ51 +++
TXEN:   	EQU 	1   	;ÏÅÐÅÄÀÒ×ÈÊ ÂÊËÞ×ÅÍ 
DTR:    	EQU 	2   	;ÓÑÒÐÎÉÑÒÂÎ ÃÎÒÎÂÎ 
RXE:    	EQU 	4   	;ÏÐÈÅÌÍÈÊ ÂÊËÞ×ÅÍ 
SBRK:   	EQU 	8   	;ÏÐÅÐÛÂÀÍÈÅ ÏÅÐÅÄÀ×È 
ER:     	EQU 	10Í 	;ÑÁÐÎÑ ÎØÈÁÎÊ ÏÐÈÅÌÀ 
RTS:    	EQU 	20Í 	;ÏÅÐÅÄÀ×À ÐÀÇÐÅØÅÍÀ 
IR:     	EQU 	40H 	;ÏÐÎÃÐ. ÑÁÐÎÑ ÓÑÀÏÏ 
ÅÍ:     	EQU 	80H 	; ÐÀÇÐÅØÅÍÈÅ ÏÎÈÑÊÀ ; ÑÈÍÕÐÎÑÈÌÂÎËÀ
;**** ÐÅÃÈÑÒÐ ÑÎÑÒÎßÍÈß ÂB51 ****
TXRDY: 	EQU 	1    	;ÏÅÐÅÄÀÒ×ÈÊ ÃÎÒΠ
RXRDY: 	EQU 	2    	;ÏÐÈÅÌÍÈÊ ÃÎÒÎÂ 
ÒÕÅ:    	EQU 	4    	;ÏÅÐÅÄÀ×À ÇÀÊÎÍ×ÅÍÀ 
ÐÅ:     	EQU 	8    	;ÎØÈÁÊÀ ×ÅÒÍÎÑÒÈ 
ÎÅ:     	EQU 	10Í 	;ÏÅÐÅÏÎËÍÅÍÈÅ ÏÐÈÅÌÍÈÊÀ 
FE:     	EQU 	20Í 	;ÎØÈÁÊÀ ÔÎÐÌÀÒÀ 
SYNDET: 	EQU 	40H 	;ÑÈÍÕÐÎÑÈÌÂÎË ÍÀÉÄÅÍ 
DSR:    	EQU 	80H 	;ÏÅÐÅÄÀÒ×ÈÊ ÄÀÍÍÛÕ ÃÎÒÎÂ
;*** ÏÎÄÏÐÎÃÐÀÌÌÀ ÍÀÑÒÐÎÉÊÈ ÊÎÍÒÐÎËËÅÐÀ **** 
;ÑÊÎÐÎÑÒÜ È ÐÅÆÈÌ ÓÑÀÏÏ ÏÎ ÓÌÎË×ÀÍÈÞ
KDIV:   	EQU 	23 	;4800 Áîä (F0=1,78 ÌÃÃÖ)
MI:     	EQU 	X16+L8+S2 ;
INIT:   	LXI 	Í, KDIV
	MVI 	A, MI 
INIT1: 	PUSH 	PSW 	
;ÍÀÑÒÐÀÈÂÀÅÌ ÒÀÉÌÅÐ
	MVI 	A, SCO+RLW+MODE3
	STA 	CW53
	MOV 	A, L
	STA 	ÑÒÎ
	MOV 	À, È
	STA 	ÑÒÎ
;ÓÑÒÀÍÀÂËÈÂÀÅÌ ÓÑÀÏÏ Â ÈÑÕ. ÑÎÑÒÎßÍÈÅ
	MVI 	À, 1
	STA 	CW51
	STA 	CW51
	MVI 	A, IR
	STA 	CW51 
; ÇÀÏÈÑÛÂÀÅÌ ÈÍÑÒÐÓÊÖÈÞ ÐÅÆÈÌÀ
	POP 	PSW
	STA 	CW51
; ÓÑÒÀÍÀÂËÈÂÀÅÌ ÔËÀÃZ, ÅÑËÈ ÇÀÄÀÍÀ 
;ÐÀÁÎÒÀ Ñ ÒÅËÅÒÀÉÏÎÌ
	ANI 	0FCH               	;#
	CPI 	80Í                	;#
; ÇÀÏÈÑÛÂÀÅÌ ÈÍÑÒÐÓÊÖÈÞ ÊÎÌÀÍÄÛ
	MVI 	A, TXEN+DTR+RXE+RTS
	STA 	CW51
	RNZ                     	;# 
;ÅÑËÈ ÇÀÄÀÍÀ ÐÀÁÎÒÀ Ñ ÒÅËÅÒÀÉÏÎÌ, 
;ÒÎ 5 ÐÀÇ ÏÅÐÅÄÀÅÌ ÊÎÄ ÓÑÒÀÍÎÂÊÈ 
; ËÀÒÈÍÑÊÎÃÎ ÐÅÃÈÑÒÐÀ
	LXI 	B, 51FH              	;#
LAT:    	CALL 	TX                 	;#
	DCR 	Â                  	;#
	JNZ 	LAT                 	;# 
;È ÇÀÏÈÑÛÂÀÅÌ ÏÐÈÇÍÀÊ ËÀÒ. ÐÅÃÈÑÒÐÀ
	MVI 	À, 20H              	;#
	STA 	REG                	;#
	RET
;*** ÏÎÄÏÐÎÃÐÀÌÌÀ ÏÅÐÅÄÀ×È *** 
;***... ÁÀÉÒÀ ÈÇ ÐÅÃÈÑÒÐÀ Ñ ***
TX:     	PUSH 	PSW 	
;ÆÄÅÌ ÃÎÒÎÂÍÎÑÒÈ 
ÒÕ1:    	LDA 	CW51
	ANI 	TXRDY+DSR
	CPI 	TXRDY+DSR
	JNZ 	ÒÕ1 
;ÏÅÐÅÄÀÅÌ ÁÀÉÒ
	MOV 	À, Ñ
	STA 	DAT51
	POP 	PSW
	RET
;*** ÏÎÄÏÐÎÃÐAMMA ÏÐÈÅÌÀ ÁÀÉÒÀ Â ÀÊÊÓÌÓËßÒÎÐ *
PX:
;ÏÐÎÂÅÐßÅÌ ÃÎÒÎÂÍÎÑÒÜ 
	LDA 	CW51 
	ANI 	RXRRY
;ÂÎÇÂÐÀÒ Ñ ÔËÀÃÎÌ ÏÅÐÅÍÎÑÀ, 
;ÅÑËÈ ÏÐÈÅÌÍÈÊ ÍÅ  ÃÎÒÎÂ 
	STC 	RZ
;×ÈÒÀÅÌ ÏÐÈÍßÒÛÉ ÁÀÉÒ 
	LDA 	DAT51 
	CMC 
	RET 	
;
;ß×ÅÉÊÀ ÎÇÓ ÄËß ÕÐÀÍÅÍÈß ÏÐÈÇÍÀÊÀ 
;ÐÅÃÈÑÒÐÀ ÒÅËÅÒÀÉÏÀ:
;
REG:    	EQU 	7653H 	;ÀÄÐÅÑ ÍÓÆÍÎ ÓÊÀÇÀÒÜ ÒÎÒ ÆE, 
			;×ÒÎ Â TTYOUT, TTYIN
	END
;*** ÏÎÄÏÐÎÃÐÀÌÌÛ ÐÀÁÎÒÛ Ñ ÒÅËÅÒÀÉÏÎÌ
;	*ASD* 01/07/88
;ÈÑÏÎËÜÇÓÞÒ ÏÎÄÏÐÎÃÐÀÌÌÛ ÒÕ,PÕ. 
;Â ÏÎÄÏÐÎÃÐÀÌÌÅ INIT ÇÀÄÀÒÜ ÈÍÑÒÐÓÊÖÈÈ
;ÐÅÆÈÌÀ 82H ÈËÈ 83Í
;ß×ÅÉÊÀ ÎÇÓ ÄËß ÕÐÀÍÅÍÈß ÏÐÈÇÍÀÊÀ 
;ÐÅÃÈÑÒÐÀ ÒÅËÅÒÀÉÏÀ:
REG:    	EQU 	7653H   	;ÄËß ÎÇÓ 32K