.CHARSET 1251
; Файл schetchik1.mkl

; Подсчёт количества сигналов по линии BUSY
; Сигнал от кнопки, возможен дребезг контактов
; Информация в строке комментариев

SCH	.EQU	20	; Регистр для счёта

.ORG 0
	CX
	P M SCH		; счётчик 
	
	1
	PP M 9148	; Сброс всех прерываний
	PP M 9130	; Разрешение прерываний
	PP M 9090	; Режим работы параллельного порта - статический

	.NUML BUSY
	ENT
	1
	PP M 9131	; Прерывание 1, приоритет 1, вектор BUSY
	PP M 9156	; Разрешить аппаратное прерывание сигнала BUSY

	.NUML STR
	PP M 9026	; Строка комментариев

	0
	ENT ENT ENT	; Очистка стека
	K SCR

A1:	GOTO A1		; Бесконечный цикл

BUSY:	5
	M0		; Если сигнал от кнопки - устранение дребезга повторным считыванием
BUSY1:	PP RM 9092	
	8
	K AND	
	F X=0 BUSYE	; Проверка BUSY
	2
	PP M 9050	; Задержка 0,02 с
BUSY2:	PP RM 9050
	F X=0 BUSY2
	FL0 BUSY1

	0
	ENT ENT 	; Очистка стека

	P RM SCH
	1 + 
	P M SCH
	K SCR
BUSYE:
	PP RTN

STR:	.TEXT "Счётчик нажатий\0"