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

GOTO BEGIN

ORG 100

BEGIN MOVLW B'00000000' ;Конфигурация портов

MOVWF TRISB

MOVWF TRISC

MOVWF TRISD

MOVLW FFH

MOVWF TRISA

MOVWF TRISE

MOVLW B'01110000'

MOVWF DATA

START BTFSC PORTA, 1 ;Проверка 1-го бита порта А

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

BTFSS PORTA, 0 ; Проверка 0-го бита порта А

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

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

RESET MOVLW B'11111111' ;Запись в регистр W константы

MOVWF PORTD ;Установка портов устройства в

;исходное состояние

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

OKEY BTFSS PORTA, 2 ;Проверка 2-го бита порта А

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

BTFSS PORTA, 3 ;Проверка 3-го бита порта А

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

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

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

;из порта Е

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

;из W