Конечно, сейчас все добавлю. Во вложении файл проекта протеуса
В архиве набор файлов, которые получаю после компиляции
Сама программа взята с этого сайта, автора к сожалению не помню:
' ---------------------[Описание программы]-------------------------------------------
' Простая программа, заставляющая мигать 10 раз светодиод, включая его
' на одну секунду, а затем отключая на одну секунду.
' Светодиод должен быть подключен к выводу 0 порта PORTB
' катодом на землю и анодом на вывод порта.
' Для ограничения тока через светодиод подключите его через 150-омный резистор.
' ---------------------[Программа в формате PBPro]-------------------------------------
Symbol LED = 0 ' Переобозначить вывод 0 порта PORTB как LED
TRISB = %11111110 ' Сконфигурировать выводы RB7…RB1 порта PORTB как входы, а вывод
' RB0 — как выход
x var byte ' Определить вспомогательную переменную размером в byte
init: ' Инициализация
x = 0
portb.0 = 0
main: ' Метка начала основной программы
if x < 9 then gosub onoff ' Если х менее 9 выполнить подпрограмму onoff
x = x + 1 ' инкрементировать х
if x = 9 then END ' Если произошло 10 морганий остановить программу
goto main ' Перейти к метке начала программы, чтобы все началось сначала
END ' Эту строку вставлять не обязательно, но лучше пусть она тут будет
' на случай, если программа засбоит и начнет делать что-то не то
onoff: ' Подпрограмма моргания светодиода
High LED ' Установить ВЫСОКИЙ уровень (+5 В) на выводе 0, чтобы зажечь
' светодиод
Pause 100 ' Ждать 100 миллисекунд (0,1 секунду)
Low LED ' Установить НИЗКИЙ уровень (0 В) на выводе 0, чтобы погасить
' светодиод
Pause 100 ' Ждать 100 миллисекунд (0,1 секунду)
return ' Выход из подпрограммы в то место откуда она была вызвана
