;***** ÏÎÄÏÐÎÃÐÀÌÌÛ ÎÁÑËÓÆÈÂÀÍÈß ÊÎÍÒÐÎËËÅÐÀ *** 
;***** ÏÎÑËÅÄÎÂÀÒÅËÜÍÎÃÎ ÈÍÒÅÐÔÅÉÑÀ, ******* 
; ***** ÏÎÄÊËÞ×ÅÍÍÎÃÎ ×ÅÐÅÇ ÊÐ580ÈÊ55 ***
; *ASD* 18/06/88
;ÀÄÐÅÑÀ ÏÎÐÒÎÂ ÈÊ55 (D14)
PA55:    	EQU	0À000Í 
ÐÂ55:    	EQU 	0A001H 
ÐÑ55:    	EQU 	0A002H 
ÑW55:   	EQU 	0A003H
;Àäðåñà, ÂÛÂÎÄÈÌÛÅ Â ÏÎÐÒ Â:
NIL:    	EQU 	70H
RES51: 	EQU 	0F0H 	;ÑÁÐÎÑ ÂÂ51
DAT51: 	EQU 	Ç0Í 	;ÐÅÃÈÑÒÐ ÄÀÍÍÛÕ ÂÂ51
CW51:   	EQU 	31H 	;ÐÅÃÈÑÒÐ ÊÎÌÀÍÄ ÂÂ51
;
ÑÒ0:     	EQU 	50H 	;Ñ×ÅÒ×ÈÊ 0 ÂÈ53
ÑÒ1:     	EQU 	51H 	;Ñ×ÅÒ×ÈÊ 1 ÂÈ53
ÑÒ2:     	EQU 	52Í 	;Ñ×ÅÒ×ÈÊ 2 ÂÈ53
CW53:   	EQU 	53H 	;ÐÅÃÈÑÒÐ ÊÎÌÀÍÄ ÂÈ53
;ÍÀÇÍÀ×ÅÍÈÅ ÐÀÇÐßÄΠÏÎÐÒÀ Ñ
TXRD:   	EQU 	1   	;ÏÅÐÅÄÀÒ×ÈÊ ÃÎÒΠ
CTSN:   	EQU 	2 	; ÏÅÐÅÄÀ×À ÍÅ ÐÀÇÐÅØÅÍÀ 
DSRN:   	EQU 	4   	;ÄÀÍÍÛÅ ÍÅ ÃÎÒÎÂÛ 
RXRD:   	EQU 	20Í 	;ÏÐÈÅÌÍÈÊ ÃÎÒÎÂ
;***** ÓÏÐÀÂËßÞÙÅÅ ÑËÎÂÎ ÂÈ53 *****
;
BCD:    	EQU 	1   	;ÄÂ.-ÄÅÑßÒÈ×ÍÛÉ Ñ×ÅÒ
MODE0:   	EQU 	0   	;
MÎDÅ1:   	EQU 	2
MÎDÅ2:   	EQU 	4   	;ÂÛÁÎÐ
MODE3:   	EQU 	6   	;ÐÅÆÈÌÀ
MODE4:   	EQU 	8   	;
ÌÎDÅ5:   	EQU 	0ÀÍ 	;
;
ROF:     	EQU 	0   	;×ÒÅÍÈÅ ÍÀ ËÅÒÓ
RLL:     	EQU 	10H 	;×ÒÅÍÈÅ/ÇÀÏÈÑÜ ÌË. ÁÀÉÒ 
RLH:     	EQU 	20H 	;×ÒÅÍÈÅ/ÇÀÏÈÑÜ ÑÒ. ÁÀÉÒ' 
RLW:     	EQU 	30Í 	;×ÒÅÍÈÅ/ÇÀÏÈÑÜ ÑËÎÂÀ
SCO:     	EQU 	0   	;
SC1:     	EQU 	40H 	;ÂÛÁÎÐ Ñ×ÅÒ×ÈÊÀ
SC2:    	EQU 	80H 	;
;*** ÈÍÑÒÐÓÊÖÈß ÐÅÆÈÌÀ ÂÂ51 **
Õ1:     	EQU 	1   	;
Õ16:    	EQU 	2   	;ÌÍÎÆÈÒÅËÜ ÑÊÎÐÎÑÒÈ 
Õ64:    	EQU 	3   	;
L5:      	EQU 	0   	;
L6:      	EQU 	4   	;ÄËÈÍÀ ÈÍÔÎÐÌÀÖÈÎÍÍÎÃÎ 
L7:      	EQU 	8   	;ÑËÎÂÀ 
L8:   	EQU 	0ÑÍ 	;
PEN:    	EQU 	10H 	;ÐÀÇÐÅØÅÍÈÅ ÊÎÍÒÐÎËß
ÅÐ:      	EQU 	20H 	;ÊÎÍÒÐÎËÜ ×ÅÒÍÎÑÒÈ
S1:      	EQU 	40H 	;
S15:    	EQU 	80H 	;ÄËÈÍÀ ÑÒÎÏ-ÁÈÒÀ 
S2:      	EQU 	0Ñ0Í	;
;**+ ÈÍÑÒÐÓÊÖÈß ÊÎÌÀÍÄÛ ÂÂ51 ++*
;
TXEN:   	EQU 	1    	;ÏÅÐÅÄÀÒ×ÈÊ ÂÊËÞ×ÅÍ 
DTR:    	EQU 	2    	;ÓÑÒÐÎÉÑÒÂÎ ÃÎÒÎÂÎ 
RXE:    	EQU 	4    	;ÏÐÈÅÌÍÈÊ ÂÊËÞ×ÅÍ 
SBRK:   	EQU 	8    	;ÏÐÅÐÛÂÀÍÈÅ ÏÅÐÅÄÀ×È 
ER:     	EQU 	10Í 	;ÑÁÐÎÑ ÎØÈÁÎÊ ÏÐÈÅÌÀ
RTS:    	EQU 	20H 	;ÏÅÐÅÄÀ×À ÐÀÇÐÅØÅÍÀ
IR:     	EQU 	40H 	;ÏÐÎÃÐ. ÑÁÐÎÑ ÓÑÀÏÏ 
EH:     	EQU 	80H 	;ÐÀÇÐÅØÅÍÈÅ ÏÎÈÑÊÀ ÑÈÍÕÐÎÑÈÌÂÎËÀ
;
;*** ÏÎÄÏÐÎÃÐÀÌÌÀ ÍÀÑÒÐÎÉÊÈ ÊÎÍÒÐÎËËÅÐÀ****'
;ÑÊÎÐÎÑÒÜ È ÐÅÆÈÌ ÓÑÀÏÏ ÏÎ ÓÌÎË×ÀÍÈÞ
;
KDIV:   	EQU 	23 	; 4800 Á0Ä (F0=1,78 ÌÃÃÖ) 
MI:     	EQU 	X16+L8+S2
INIT:   	LXI 	Í, KDIV
	MVI 	A, MI 
INIT1: 	PUSH 	PSW 	
;Íàñòðàèâàåì D14 (À - ââîä/âûâîä.
; Â - âûâîä, C[0:2]-ââîä)
	MVI 	A, 0C1H
	STA 	CW55 	
;ÍÀÑÒÐÀÈÂÀÅÌ ÒÀÉÌÅÐ
	MVI 	A, CW53
	STA 	PB55
	MVI 	A, SCO+RLW+MODE3
	STA 	PA55
	MVI 	À, ÑÒÎ
	STA 	PB55
	MOV 	A, L
	STA 	PA55
	MOV 	À, Í
	STA 	PA55 	
;ÓÑÒÀÍÀÂËÈÂÀÅÌ ÓÑÀÏÏ Â ÈÑÕ. ÑÎÑÒÎßÍÈÅ
	MVI 	A, RES51
	STA 	PB55
;ÇÀÏÈÑÛÂÀÅÌ ÈÍÑÒÐÓÊÖÈÈ ÐÅÆÈÌÀ
	MVI 	A, CW51
	STA 	PB55
	POP 	PSW
	STA 	PA55
;ÎÑÒÀÍÀÂËÈÂÀÅÌ ÔËÀÃ Z, ÅÑËÈ ÇÀÄÀÍÀ ÐÀÁÎÒÀ Ñ ÒÅËÅÒÀÉÏÎÌ
	ANI 	0FCH 	;#
	CPI 	80H                 	;#
;ÇÀÏÈÑÛÂÀÅÌ ÈÍÑÒÐÓÊÖÈÞ ÊÎÌÀÍÄÛ
	MVI 	A, TXEN+DTR+RXE+RTS
	STA 	PA55	
	MVI 	A, NIL	
	STA 	PB55	
	RNZ                      	;# 
;ÅÑËÈ ÇÀÄÀÍÀ ÐÀÁÎÒÀ Ñ ÒÅËÅÒÀÉÏÎÌ 
;ÒÎ 5 ÐÀÇ ÏÅÐÅÄÀÅÌ ÊÎÄ ÓÑÒÀÍÎÂÊÈ 
;ËÀÒÈÍÑÊÎÃÎ ÐÅÃÈÑÒÐÀ
	LXI 	B, 51fH 	;# 
LAT:    	CALL 	ÒÕ                  	;#
	DCR 	Â                   	;#
	JNZ 	LAT                  	;#
;È ÇÀÏÈÑÛÂÀÅÌ ÏÐÈÇÍÀÊ ËÀÒ. ÐÅÃÈÑÒÐÀ
	MVI 	A, 20H                	;#
	STA 	REG 	;#
	RET
;*** ÏÎÄÏÐÎÃÐÀÌÌÀ ÏÅÐÅÄÀ×È ** 
;**** ÁÀÉÒÀ ÈÇ ÐÅÃÈÑÒÐÀ Ñ ****
ÒÕ:     	PUSH 	PSW 	;ÆÄÅÌ ÃÎÒÎÂÍÎÑÒÈ 
ÒÕ1:    	LDA 	PC55
	ANI 	TXRD+DSRN
	CPI 	TXRD
	JNZ 	TX1 	;ÏÅÐÅßÀÅÌ ÁÀÉÒ
	MVI 	A, DAT51
	STA 	ÐB55
	MOV 	À, Ñ
	STA 	PA55
	POP 	PSW
	RET
;
;*** ÏÎÄÏÐÎÃÐÀÌÌÀ ÏÐÈÅÌÀ ÁÀÉÒÀ Â ÀÊÊÓÌÓËßÒÎÐ **
RX:     	MVI 	À, DÀÒ51
	STA 	PB55 	
;ÏÐÎÂÅÐßÅÌ ÃÎÒÎÂÍÎÑÒÜ
	LDA 	ÐÑ55
	ANI 	RXRD 	
;ÂÎÇÂÐÀÒ Ñ ÑËÀÃÎÌ ÏÅÐÅÍÎÑÀ, 
;ÅÑËÈ ÏÐÈÅÌÍÈÊ ÍÅ ÃÎÒÎÂ
	STC 	RZ
;×ÈÒÀÅÌ ÏÐÈÍßÒÛÉ ÁÀÉÒ 
	LDA 	PA55 
	CMC 	RET
;ß×ÅÉÊÀ ÎÇÓ ÄËß ÕÐÀÍÅÍÈß ÏÐÈÇÍÀÊÀ 
;ÐÅÃÈÑÒÐÀ ÒÅËÅÒÀÉÏÀ:
REG:    	EQU 	7653Í 	;ÀÄÐÅÑ ÍÓÆÍÎ ÓÊÀÇÀÒÜ ÒÎÒ ÆÅ, 
			;×ÒÎ Â TTYOUT.TTYIN
	END