Курсовая работа: Адаптер паралельного обмена

;из порта A

ANDWF DATA, 1 ;Выделение сигналов D0…2

;и сохранение в регистре DATA

RLF DATA, 1 ;Сдвиг регистра влево

RLF DATA, 1 ;Сдвиг регистра влево

RLF DATA, 1 ;Сдвиг регистра влево

RLF DATA, 1 ;Сдвиг регистра влево

MOVF ADR ;Запись в регистр W данных

;из регистра ADR

MOVWF RADR ;Запись в регистр RADR данных ;из W

INCF RADR, 1 ;Инкремент регистра RADR

;с сохранением данных в RADR

BTFSS RADR, 3 ;Проверка 3-го бита регистра RADR

GOTO STRW ;Переход на метку STRW

MOVF DATA ;Запись в регистр W данных

;из регистра DATA

CALL PR2INPOS ;Вызов процедуры

MOVWF PORTD ;Запись в регистр PORTD данных

;из регистра W

GOTO START ;Переход на метку START

IOR MOVF PORTE ;Запись данных из регистра Е

; в W

CALL PR2INPOS ;Вызов процедуры

MOVWF PORTB ;Запись в регистр PORTB данных

;из регистра W

MOVLW FFH ;Запись константы в W

MOVWF PORTB ;Запись в регистр PORTB данных

;из регистра W

GOTO START ;Переход на метку START