Форум Микро-Чип
Поиск и заказ электронных компонентов
 

Вернуться   Форум Микро-Чип > Своими руками

Своими руками Завершенные и текущие проекты, хард & софт

Ответ
 
Опции темы Опции просмотра
Старый 18.12.2013, 23:12   #1
sili1
Junior Member
 
Регистрация: 18.12.2013
Возраст: 35
Сообщений: 5
Вес репутации: 100/0
sili1 will become famous soon enoughsili1 will become famous soon enough
По умолчанию pic16f84

Подскажите можно ли в данном генераторе http://alexm.ucoz.lv/index/0-4 заменить PIC16F84-10I/P на PIC16F84A-04/P ато по даташиту непойму чем они отличаються
sili1 вне форума   Ответить с цитированием
Старый 18.12.2013, 23:39   #2
killer258
Senior Member
 
Аватар для killer258
 
Регистрация: 30.12.2007
Адрес: Череповец
Возраст: 47
Сообщений: 1,204
Вес репутации: 588/53
killer258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to all
Отправить сообщение для killer258 с помощью ICQ
По умолчанию Re: pic16f84

первый пик может работать с кварцем до 10 мгц включительно , второй до 4 мгц только.
В приведённой схеме требуется работа с 10-мегагерцовым кварцем.
Поэтому второй вариант отказать, может не запуститься
killer258 вне форума   Ответить с цитированием
Старый 18.12.2013, 23:47   #3
fantom
Senior Member
 
Регистрация: 27.02.2007
Адрес: Рязань
Возраст: 41
Сообщений: 2,610
Вес репутации: 2570/90
fantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от killer258 Посмотреть сообщение
первый пик может работать с кварцем до 10 мгц включительно , второй до 4 мгц только.
В приведённой схеме требуется работа с 10-мегагерцовым кварцем.
Поэтому второй вариант отказать, может не запуститься
Тема буковки "А" не раскрыта.
fantom вне форума   Ответить с цитированием
Старый 18.12.2013, 23:56   #4
sili1
Junior Member
 
Регистрация: 18.12.2013
Возраст: 35
Сообщений: 5
Вес репутации: 100/0
sili1 will become famous soon enoughsili1 will become famous soon enough
По умолчанию Re: pic16f84

а если такой PIC16F84A-20I/P
sili1 вне форума   Ответить с цитированием
Старый 19.12.2013, 00:04   #5
fantom
Senior Member
 
Регистрация: 27.02.2007
Адрес: Рязань
Возраст: 41
Сообщений: 2,610
Вес репутации: 2570/90
fantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от sili1 Посмотреть сообщение
а если такой PIC16F84A-20I/P
По частоте нормально. Возможно надо будет откорректировать строку конфигурации. Но возможно что и сразу запустится.
fantom вне форума   Ответить с цитированием
Старый 19.12.2013, 00:09   #6
sili1
Junior Member
 
Регистрация: 18.12.2013
Возраст: 35
Сообщений: 5
Вес репутации: 100/0
sili1 will become famous soon enoughsili1 will become famous soon enough
По умолчанию Re: pic16f84

Цитата:
Сообщение от fantom Посмотреть сообщение
Возможно надо будет откорректировать строку конфигурации.
а здес поподробней ато я в этом полный 0 прошить непроблема а вот што и как конфигуриревать обясните
sili1 вне форума   Ответить с цитированием
Старый 19.12.2013, 00:56   #7
fantom
Senior Member
 
Регистрация: 27.02.2007
Адрес: Рязань
Возраст: 41
Сообщений: 2,610
Вес репутации: 2570/90
fantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от sili1 Посмотреть сообщение
а здесЬ поподробней а то я в этом полный 0 прошить не проблема а вот Што и как конфигурирЕвать обЪясните
Читаем вообще? Писал же, что проблемы может и не быть.
Сейчас мне лезть в даташиты и разжевывать нет никакого желания.
fantom вне форума   Ответить с цитированием
Старый 19.12.2013, 01:00   #8
sili1
Junior Member
 
Регистрация: 18.12.2013
Возраст: 35
Сообщений: 5
Вес репутации: 100/0
sili1 will become famous soon enoughsili1 will become famous soon enough
По умолчанию Re: pic16f84

спасибо за помощь немного пошарился по инету пишут что 4х мгц пик в данной схеме работает без проблем буду значит его заказывать
sili1 вне форума   Ответить с цитированием
Старый 19.12.2013, 07:02   #9
killer258
Senior Member
 
Аватар для killer258
 
Регистрация: 30.12.2007
Адрес: Череповец
Возраст: 47
Сообщений: 1,204
Вес репутации: 588/53
killer258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to all
Отправить сообщение для killer258 с помощью ICQ
По умолчанию Re: pic16f84

Цитата:
Сообщение от fantom Посмотреть сообщение
Тема буковки "А" не раскрыта.
Пик16ф84 без буквы А сейчас уже давно не выпускаются.
Было дело в своё время, когда мой бывший однокурсник нашёл способ, как снимать защиту чтения для пик16ф84. Микрочип отреагировал очень оперативно. Он тут же обьявил пик 16ф84 устаревшим, снял с производства и стал выпускать вместо него 16ф84а, который не поддаётся этой уловке. Сравнение же даташитов 84 и 84а никчемук не приводит, всё один в один.
Да, различие только в том, программатор PicKit2 упорно не хочет распознавать пик16ф84, а вот пик16ф84а- это пожалуйста..
Других различй не обнаружено
killer258 вне форума   Ответить с цитированием
Старый 19.12.2013, 08:06   #10
Greg
Super Moderator
 
Регистрация: 25.02.2007
Адрес: Moscow, ODBS
Сообщений: 6,578
Вес репутации: 5056/154
Greg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от killer258 Посмотреть сообщение
Сравнение же даташитов 84 и 84а никчемук не приводит, всё один в один.
обычно есть документ с названием "migration guide" http://ww1.microchip.com/downloads/e...Doc/30072b.pdf
Greg вне форума   Ответить с цитированием
Старый 19.12.2013, 13:58   #11
DimaS
Senior Member
 
Регистрация: 05.04.2008
Адрес: Israel
Возраст: 44
Сообщений: 1,328
Вес репутации: 1908/67
DimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant future
По умолчанию Re: pic16f84

Цитата:
Сообщение от killer258 Посмотреть сообщение
Сравнение же даташитов 84 и 84а никчемук не приводит, всё один в один.
Да, различие только в том, программатор PicKit2 упорно не хочет распознавать пик16ф84, а вот пик16ф84а- это пожалуйста..
Других различй не обнаружено
Если мне память не изменяет (давно это было), у них все же есть мелкие различия, например - допуски напряжений 0 и 1 и порог срабатывания для входов. Народ на этом реально накалывался.
И еще "без А" там забыли что-то отключить при переходе в слип, из-за чего он в слипе жрал больше чем надо.
DimaS вне форума   Ответить с цитированием
Старый 19.12.2013, 14:02   #12
SSH
Banned
 
Регистрация: 27.02.2007
Адрес: Красноярск
Возраст: 47
Сообщений: 2,387
Вес репутации: 950/0
SSH is a splendid one to beholdSSH is a splendid one to beholdSSH is a splendid one to beholdSSH is a splendid one to beholdSSH is a splendid one to beholdSSH is a splendid one to beholdSSH is a splendid one to beholdSSH is a splendid one to behold
По умолчанию Re: pic16f84

Цитата:
Сообщение от DimaS Посмотреть сообщение
Если мне память не изменяет (давно это было), у них все же есть мелкие различия, например - допуски напряжений 0 и 1 и порог срабатывания для входов. Народ на этом реально накалывался.
И еще "без А" там забыли что-то отключить при переходе в слип, из-за чего он в слипе жрал больше чем надо.
Байки какие-то, IMHO. Всё там работает по даташиту.
SSH вне форума   Ответить с цитированием
Старый 21.12.2013, 00:25   #13
DimaS
Senior Member
 
Регистрация: 05.04.2008
Адрес: Israel
Возраст: 44
Сообщений: 1,328
Вес репутации: 1908/67
DimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant futureDimaS has a brilliant future
По умолчанию Re: pic16f84

Цитата:
Сообщение от SSH Посмотреть сообщение
Байки какие-то, IMHO. Всё там работает по даташиту.
То что я написал выше - вовсе не байки, а даташиты бывают разные.
DimaS вне форума   Ответить с цитированием
Старый 21.12.2013, 00:30   #14
Greg
Super Moderator
 
Регистрация: 25.02.2007
Адрес: Moscow, ODBS
Сообщений: 6,578
Вес репутации: 5056/154
Greg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от DimaS Посмотреть сообщение
То что я написал выше - вовсе не байки, а даташиты бывают разные.
наверное, не "бывают", а у этих камней (А и неА) они были разные. Я ниже давал ссылку на migration guide.
Сильная деградация параметров, в частности минимального напряжения питания, произошла при переходе от С версий к F. Это к "реально накалывались".
Greg вне форума   Ответить с цитированием
Старый 21.12.2013, 00:43   #15
pal1222@yandex.ru
Senior Member
 
Регистрация: 30.09.2008
Сообщений: 1,429
Вес репутации: 2314/70
pal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от DimaS Посмотреть сообщение
То что я написал выше - вовсе не байки, а даташиты бывают разные.
Особенно, если их не читать. Основное отличие "А" в спецификации программирования. И появлении модуля АЦП. Соответсвенно, у особо невезучих при переходе на "А" "ничего не работало"
pal1222@yandex.ru вне форума   Ответить с цитированием
Старый 21.12.2013, 01:07   #16
fantom
Senior Member
 
Регистрация: 27.02.2007
Адрес: Рязань
Возраст: 41
Сообщений: 2,610
Вес репутации: 2570/90
fantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond reputefantom has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от pal1222@yandex.ru Посмотреть сообщение
Особенно, если их не читать. Основное отличие "А" в спецификации программирования. И появлении модуля АЦП.
На счёт "если их не читать" это верно. Модуля АЦП там отродясь не было.
fantom вне форума   Ответить с цитированием
Старый 21.12.2013, 01:20   #17
Greg
Super Moderator
 
Регистрация: 25.02.2007
Адрес: Moscow, ODBS
Сообщений: 6,578
Вес репутации: 5056/154
Greg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond reputeGreg has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от pal1222@yandex.ru Посмотреть сообщение
Особенно, если их не читать. Основное отличие "А" в спецификации программирования. И появлении модуля АЦП. Соответсвенно, у особо невезучих при переходе на "А" "ничего не работало"
ты всё попутал, появился не АЦП, а компаратор, ну и спецификация эта по 4 байта.
но это у F87X и F87XA.
но какая сейчас разница...
Greg вне форума   Ответить с цитированием
Старый 21.12.2013, 16:55   #18
killer258
Senior Member
 
Аватар для killer258
 
Регистрация: 30.12.2007
Адрес: Череповец
Возраст: 47
Сообщений: 1,204
Вес репутации: 588/53
killer258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to all
Отправить сообщение для killer258 с помощью ICQ
По умолчанию Re: pic16f84

у меня этих пик16ф84 много осталось со старых времён, пиккит-2 их в упор отказывается "видеть", а выбрасывать их жалко. Пик18ф84а распознаёт и шьёт без проблем. Подскажите, можно ли как-то обмануть пиккит-2, чтоб он их мог узнавать и шить пик16ф84 без А? (думаю,это возможно, так как например, тот же ICprog не делал разницы между ними, и шил как с буквойА, так и без неё). Какой-то файлик пиккита с прошивочными параметрами для пик16ф84а судя по всему надо как-то подправить и переименовать в то же самое для 16ф84, но где переправить и главное, на что конкретно?
killer258 вне форума   Ответить с цитированием
Старый 21.12.2013, 17:59   #19
Вова
Senior Member
 
Регистрация: 20.09.2008
Адрес: Гродно, Беларусь
Возраст: 30
Сообщений: 1,662
Вес репутации: 1921/68
Вова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant futureВова has a brilliant future
По умолчанию Re: pic16f84

Цитата:
Сообщение от killer258 Посмотреть сообщение
у меня этих пик16ф84 много осталось со старых времён, пиккит-2 их в упор отказывается "видеть", а выбрасывать их жалко. Пик18ф84а распознаёт и шьёт без проблем. Подскажите, можно ли как-то обмануть пиккит-2, чтоб он их мог узнавать и шить пик16ф84 без А? (думаю,это возможно, так как например, тот же ICprog не делал разницы между ними, и шил как с буквойА, так и без неё). Какой-то файлик пиккита с прошивочными параметрами для пик16ф84а судя по всему надо как-то подправить и переименовать в то же самое для 16ф84, но где переправить и главное, на что конкретно?
Может, проще отлаживаться на А, а потом впаивать без А и зашивать айсипрогом однократно?
__________________
Железяка должна быть такой: нажал кнопку — работает
Вова вне форума   Ответить с цитированием
Старый 21.12.2013, 18:25   #20
killer258
Senior Member
 
Аватар для killer258
 
Регистрация: 30.12.2007
Адрес: Череповец
Возраст: 47
Сообщений: 1,204
Вес репутации: 588/53
killer258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to allkiller258 is a name known to all
Отправить сообщение для killer258 с помощью ICQ
По умолчанию Re: pic16f84

Хмм.. а ведь тоже вариант!
Лежит айсипрог у меня где-то. Как хорошо, что я его всё же не стал выбрасывать после перехода на пиккит-2.

Вспомнилось, первое, на чём я проверял работоспособность пиккита, был пик16ф84, и я вначале , не поняв в чём дело,перепугался , думал, что пиккит не работает. Потом попрпобовал другой пик, (16ф73),третий, четтвёртый- всё работает. Беру снова пик 16ф84 (заведомо исправный)- пиккит не пашет.
killer258 вне форума   Ответить с цитированием
Старый 21.12.2013, 20:15   #21
pal1222@yandex.ru
Senior Member
 
Регистрация: 30.09.2008
Сообщений: 1,429
Вес репутации: 2314/70
pal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond reputepal1222@yandex.ru has a reputation beyond repute
По умолчанию Re: pic16f84

Цитата:
Сообщение от Greg Посмотреть сообщение
ты всё попутал, появился не АЦП, а компаратор, ну и спецификация эта по 4 байта.
но это у F87X и F87XA.
но какая сейчас разница...
Наверно, помню - на что-то сам нарвался(на что не помню) действительно на компратор, включеный "по умолчанию"
pal1222@yandex.ru вне форума   Ответить с цитированием
Старый 26.12.2013, 21:59   #22
sili1
Junior Member
 
Регистрация: 18.12.2013
Возраст: 35
Сообщений: 5
Вес репутации: 100/0
sili1 will become famous soon enoughsili1 will become famous soon enough
По умолчанию Re: pic16f84

всем спасибо попробовал PIC16F84A-04/P все работает
sili1 вне форума   Ответить с цитированием
Старый 25.12.2015, 22:52   #23
МИХАН
Junior Member
 
Регистрация: 25.04.2013
Сообщений: 18
Вес репутации: 100/17
МИХАН will become famous soon enoughМИХАН will become famous soon enough
По умолчанию Re: pic16f84

Всем доброе время суток. Новою тему создавать не за чем, вроде по теме, делаю звонок (как в школе) программа не моя (асм). Есть вопрос по настройке задержки времени.
Код:
;------------ЗАДЕРЖКА НА 7 СЕК.-----------------
;_______________t=[(3y+4)x+85]z+3______________;7000002 мкс
tmp1    movlw   .227
        movwf   cnt3 
a1      movlw   .248
        movwf   cnt2
;--------------(8*X+9)=81-----------
    movlw   .9
        movwf   cnt4
    nop
    nop
    nop
    nop
    nop
    nop
v    call    v1
    decfsz  cnt4, f
        goto    v 
    goto    a2
v1    nop
    return
;----------------------------------       
a2      movlw   .40
        movwf   cnt1
a3      decfsz  cnt1, f
        goto    a3 
        decfsz  cnt2, f
        goto    a2
     decfsz  cnt3, f
    goto    a1
        return
;__________________________________________________
Как я понял, за задержку отвечает таймер1 (если нет, прикрепляю целый код) по умолчанию задано 7с, а требуется 1с. Каким образом это можно исправить? Заранее благодарен)
Код:
     errorlevel -302
    __config _HS_OSC & _WDT_OFF & _PWRTE_ON & _CP_OFF    
    #include<p16f84.inc>
; Длительность уроков
; и перемен (в минутах)
ur1    equ    .80
per1    equ    .10
ur2    equ    .80
per2    equ    .30    
ur3    equ    .80
per3    equ    .10
ur4    equ    .80
per4    equ    .10
ur5    equ    .80
per5    equ    .10
ur6    equ    .80
;-----------------------------------------------
pauza0    equ    .24*.60-ur1-per1-ur2-per2-ur3-per3
pauza    equ    pauza0-ur4-per4-ur5-per5-ur6
 if pauza/5>.254
  error "Слишком короткий цикл"
 endif
;-----------------------------------------------
ct0    equ    09
cnt1    equ    13
cnt2    equ     14 
cnt3    equ    15 
cnt4    equ     16
cnt5    equ    17
;---------------------------------------------
        org 0
Int     clrf    PORTA
    clrf    PORTB
    clrf    TRISA    
    clrf    TRISB
        bsf    STATUS, RP0 ;настроили на      
        movlw   b'00000000' ;вывод все порты. 
    movwf   TRISA
        movwf   TRISB
    bcf    STATUS, RP0
;---------------------------------------------
    clrf    ct0
;------------------УРОК 1-----------------------
  IF ur1>0
tm0    bsf     PORTA,1    ;вкл. звонок. 
     call    tmp1    ;tmp1-задержка на 7 сек.
        bcf     PORTA,1    ;выкл. звонок.
    movlw    ur1/5+1
    movwf    ct0    
    call    tmp2    ;заданная выдержка     
    bsf     PORTA,1    ;вкл. звонок. 
    call    tmp1    ;tmp1-задержка на 7 сек.
    bcf     PORTA,1    ;выкл. звонок.
 ELSE
  messg 'Первый урок исключен' 
 ENDIF    
;----------------ПЕРЕМЕНА 1-----------------------
 IF per1>0
    movlw    per1/5+1
    movwf    ct0
    call    tmp2    ;заданная выдержка
 ELSE
  messg 'Первая перемена исключена'
 ENDIF
;------------------УРОК 2--------------------------
 IF ur2>0
    bsf     PORTA,1    ;вкл. звонок. 
     call    tmp1    ;tmp1-задержка на 7 сек.
        bcf     PORTA,1    ;выкл. звонок.
    movlw    ur2/5+1
    movwf    ct0    
    call    tmp2    ;заданная выдержка     
    bsf     PORTA,1    ;вкл. звонок. 
    call    tmp1    ;tmp1-задержка на 7 сек.
    bcf     PORTA,1    ;выкл. звонок.
 ELSE
  messg 'Второй урок исключен'
 ENDIF    
;----------------ПЕРЕМЕНА 2-----------------------
 IF per2>0
    movlw    per2/5+1 
    movwf    ct0
    call    tmp2    ;заданная выдержка
 ELSE
  messg 'Вторая перемена исключена'
 ENDIF
;------------------УРОК 3--------------------------
 IF ur3>0
    bsf     PORTA,1    ;вкл. звонок. 
     call    tmp1    ;tmp1-задержка на 7 сек.
        bcf     PORTA,1    ;выкл. звонок.
    movlw    ur3/5+1
    movwf    ct0    
    call    tmp2    ;заданная выдержка     
    bsf     PORTA,1    ;вкл. звонок. 
    call    tmp1    ;tmp1-задержка на 7 сек.
    bcf     PORTA,1    ;выкл. звонок.
 ELSE
  messg 'Третий урок исключен'
 ENDIF    
;----------------ПЕРЕМЕНА 3-----------------------
 IF per3>0
    movlw    per3/5+1
    movwf    ct0
    call    tmp2    ;заданная задержка
 ELSE
  messg 'Третья перемена исключена'
 ENDIF
;------------------УРОК 4--------------------------
 IF ur4>0
    bsf     PORTA,1    ;вкл. звонок. 
     call    tmp1    ;tmp1-задержка на 7 сек.
        bcf     PORTA,1 ;выкл. звонок.
    movlw    ur4/5+1
    movwf    ct0    
    call    tmp2    ;заданная выдержка     
    bsf     PORTA,1    ;вкл. звонок. 
    call    tmp1    ;tmp1-задержка на 7 сек.
    bcf     PORTA,1    ;выкл. звонок.
 ELSE
  messg 'Четвертый урок исключен'
 ENDIF    
;----------------ПЕРЕМЕНА 4-----------------------
 IF per4>0
    movlw    per4/5+1
    movwf    ct0
    call    tmp2    ;заданная задержка
 ELSE
  messg 'Четвертая перемена исключена'
 ENDIF
;------------------УРОК 5--------------------------
 IF ur5>0
    bsf     PORTA,1    ;вкл. звонок. 
     call    tmp1    ;tmp1-задержка на 7 сек.
        bcf     PORTA,1    ;выкл. звонок.
    movlw    ur5/5+1
    movwf    ct0    
    call    tmp2    ;заданная выдержка     
    bsf     PORTA,1    ;вкл. звонок. 
    call    tmp1    ;tmp1-задержка на 7 сек.
    bcf     PORTA,1    ;выкл. звонок.
 ELSE
  messg 'Пятый урок исключен'
 ENDIF
;----------------ПЕРЕМЕНА 5-----------------------
 IF per5>0
    movlw    per5/5+1
    movwf    ct0
    call    tmp2    ;заданная выдержка
 ELSE
  messg 'Пятая перемена исключена'
 ENDIF
;------------------УРОК 6--------------------------
 IF ur6>0
    bsf     PORTA,1    ;вкл. звонок. 
     call    tmp1    ;tmp1-задержка на 7 сек.
        bcf     PORTA,1    ;выкл. звонок.
    movlw    ur6/5+1
    movwf    ct0    
    call    tmp2    ;заданная выдержка     
    bsf     PORTA,1    ;вкл. звонок. 
    call    tmp1    ;tmp1-задержка на 7 сек.    
    bcf     PORTA,1    ;выкл. звонок.
 ELSE
  messg 'Шестой урок исключен'
 ENDIF
    
;------------------ЗАДЕРЖКА ДО СЛЕДУЮЩЕГО ЦИКЛА-----------
    movlw    pauza/5+1
    movwf    ct0    
    call    t    
    goto    Int 
;------------ЗАДЕРЖКА НА 7 СЕК.-----------------
;_______________t=[(3y+4)x+85]z+3______________;7000002 мкс
tmp1    movlw   .227
        movwf   cnt3 
a1      movlw   .248
        movwf   cnt2
;--------------(8*X+9)=81-----------
    movlw   .9
        movwf   cnt4
    nop
    nop
    nop
    nop
    nop
    nop
v    call    v1
    decfsz  cnt4, f
        goto    v 
    goto    a2
v1    nop
    return
;----------------------------------       
a2      movlw   .40
        movwf   cnt1
a3      decfsz  cnt1, f
        goto    a3 
        decfsz  cnt2, f
        goto    a2
     decfsz  cnt3, f
    goto    a1
        return
;__________________________________________________

tmp2    decf    ct0,f
;-----------ЗАДЕРЖКА НА 4 МИН 53 с.----------------------
;_______________t=[[(3y+4)x+26]z+4]a+3_____________;292976787 мкс
        movlw   .248
        movwf   cnt4
c1      movlw   .254
        movwf   cnt3
c2      movlw   .185
        movwf   cnt2
;--------------(8*X+6)=22-----------
    movlw   .1
        movwf   cnt5
    nop
    nop
    nop
x    call    x1
    decfsz  cnt5, f
        goto    x 
    goto    c3
x1    nop
    return
;----------------------------------
c3      movlw   .7
        movwf   cnt1
c4      decfsz  cnt1, f
        goto    c4 
        decfsz  cnt2, f
        goto    c3
     decfsz  cnt3, f
    goto    c2
        decfsz  cnt4, f
    goto    c1
;___________________________________________________

t    decfsz    ct0,f
    goto    b0
    return
;-----------ЗАДЕРЖКА НА 5 МИН.----------------------
;_______________t=[[(3y+4)x+25]z+4]a+3_____________;300000419 мкс
b0      movlw   .254
        movwf   cnt4
b1      movlw   .254
        movwf   cnt3
b2      movlw   .185
        movwf   cnt2
;--------------(8*X+5)=21-----------
    movlw   .2
        movwf   cnt5
    nop
    nop
y    call    y1
    decfsz  cnt5, f
        goto    y 
    goto    b3
y1    nop
    return
;----------------------------------
b3      movlw   .7
        movwf   cnt1
b4      decfsz  cnt1, f
        goto    b4 
        decfsz  cnt2, f
        goto    b3
     decfsz  cnt3, f
    goto    b2
        decfsz  cnt4, f
    goto    b1
        goto    t
;___________________________________________________
;---------------------------------------------------
    end

Последний раз редактировалось МИХАН; 25.12.2015 в 23:01.
МИХАН вне форума   Ответить с цитированием
Ответ


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 
Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
LCD и PIC16F84 не работает serg_svd Общетехнические вопросы 13 30.04.2010 10:58
Как переделать прошивку PIC16F84 для PIC16F84A zauruss Вопросы начинающих 22 09.02.2010 01:25
SPI под PIC16F84 mplab Heiki Вопросы начинающих 2 13.12.2009 13:14
PIC16F84 to PIC18F2455 Grosser Вопросы начинающих 2 17.10.2009 22:42
На PIC16f84 Часы с календарём и термометром Anvar Вопросы начинающих 1 21.07.2009 20:36


Часовой пояс GMT +3, время: 15:42.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. Перевод: zCarot