Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2010, 15:27   #1
Ivan111
Новичок
Джуниор
 
Регистрация: 19.11.2010
Сообщений: 2
Смущение pic16f84 лаба

Доброго времени суток всем! Сделал лабу, в чем ошибка?Проверьте, кто хорошо понимает. Может когда ниже вписываем сам программный код лабораторной, начало её(инициализация порта В и А) не нужно, а просто само выполнение программы?

#include <p16f84.inc>
; ------------------------------
TEMP equ h'0c'
MULT equ h'0d'
COUNT equ h'0e'
DIV equ h'0f'
TEMPB equ h'10'
; ------------------------------
ORG 0
goto BEGIN
ORG 100
BEGIN ;рабочая секция программы
; ------------------------------
bsf STATUS, RP0 ;секция инициализации портов
movlw B'00000000'
movwf TRISB
movlw B'00011111'
movwf TRISA
bcf STATUS, RP0



begin
bcf TEMPB, 0
; ---------------
movf PORTA,0
sublw B'00011110'
btfsc STATUS, Z
call lab1
sublw B'00000000'
btfsc STATUS, Z
bsf TEMPB, 0
; ---------------
movf PORTA,0
sublw B'00011000'
btfsc STATUS, Z
call lab2
sublw B'00000000'
btfsc STATUS, Z
bsf TEMPB, 0
; ---------------
movf PORTA,0
sublw B'00011011'
btfsc STATUS, Z
call lab3
sublw B'00000000'
btfsc STATUS, Z
bsf TEMPB, 0
; ---------------
movf PORTA,0
sublw B'00010111'
btfsc STATUS, Z
call lab4
sublw B'00000000'
btfsc STATUS, Z
bsf TEMPB, 0
; ---------------
movf PORTA,0
sublw B'00001111'
btfsc STATUS, Z
call lab5
sublw B'00000000'
btfsc STATUS, Z
bsf TEMPB, 0
; ---------------
btfss TEMPB, 0
clrf PORTB
; ---------------
goto begin

org 0
goto Begin
org 100 ; секция инициализации портов

Begin ; рабочая секция программы
bsf STATUS, RP0
movlw B'00000000'
movwf TRISB

bcf STATUS, RP0

movlw H'E3'
movwf PORTB

end

org 0
goto Begin
org 100 ; секция инициализации портов

Begin ; рабочая секция программы
bsf STATUS, RP0
movlw B'00000000'
movwf TRISB

bcf STATUS, RP0

movf PORTA,0
movwf PORTB

end

org 0
goto Begin
org 100 ; секция инициализации портов

Begin ; рабочая секция программы
bsf STATUS, RP0
movlw B'00000000'
movwf TRISB
bcf STATUS, RP0

movlw D'45'
movwf PORTB
addlw D'71'
movwf PORTB
end

REG equ h'0c'
org 0
goto Begin
org 100 ; секция инициализации портов

Begin ; рабочая секция программы
bsf STATUS, RP0
movlw B'00000000'
movwf TRISB

bcf STATUS, RP0

movlw D'70'
movwf REG
rlf REG,0
movwf PORTB
end
Ivan111 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Лаба T_I_M_U_N Помощь студентам 1 15.01.2010 09:35
Лаба по СИ vimars Помощь студентам 54 24.12.2009 02:36
Лаба на C++ Suzukava Фриланс 2 14.09.2009 22:51