; Точка входу в програму після RESET
ORG 0
GOTO INP
ORG 100H
; Процедура ініціалізації MK
; Заборона переривань
INMK BCF INTCON, 7 ; Скидання 7-го біта в регістрі
; INTCON
; Завантаження регістра
; керування портом
MOVLW B’ 1111 1111’ ; Переслати команду в регістр W
TRIS 6
; Завантаження регістра
; керування портом А
MOVLW B’ 0000 0000’ ; Переслати команду в регістр W
TRIS 5
; Завантаження регістра
; керування портом С
MOVLW B’ 1111 1111’ ; Переслати команду в регістр W
TRIS 7
BCF PORTA, 0 ; Скидання 0-го біта в регістрі
; порту А
; Опитування стану датчиків і процедура порівняння (COMP1)
LESS MOVF PORTB, 0
SUBWF PORTC, 1
; Перевірка стану прапора
; переносу/ позики C
BTFSC STATUS, 0 ; Якщо С = 1 (D1 <= D2), то
GOTO A1 ; перехід на фрагмент
; програми з адресою A1
; Настанова прапора F0 в 0
BCF F0, 0
; Видавання імпульсу заданої тривалості (IMPULS)
BSF PORTA, 0 ; Виставити "1" в порт А
NOP ; Затримка (DELAY)
NOP
BCF PORTA, 0 ; Виставити 0 в порт А
GOTO A2 ; Перехід на фрагмент
; програми з адресою А2
; Настанова прапора F0 в 1
A1 BSF F0, 0
GOTO LESS
A2 GOTO LESS
END
___________