' ---------------------[Заголовок]--------------------------------------------- ' ' Файл......Pic18f2620_Blink.bas ' Формат....PicBasic Pro ' Цель......PIC -> изучение Pic18f2620 ' Автор.....Ландышев Евгений ' Создан....30 марта 2020 года ' Схема..... ' ---------------------[Описание программы]------------------------------------ ' ' ' -------------------[Подключаемые файлы и настройка режимов]------------------ ' Define LOADER_USED 1 ' Эта строка нужна только если для прошивки ' PIC-микроконтроллера ' используется системный загрузчик define osc 16 ' 0200, 0E1F, 8700, 0080 ' C00F, E00F, 400F ' ---------------------[Определение переменных]-------------------------------- ' ---------------------[Процедура инициализации]------------------------------- '@ device PIC18F2620, HS_OSC TRISA = %00000000 PORTA = %00000000 TRISB = %00000000 PORTB = %00000000 TRISC = %00000000 PORTC = %00000000 CMCON = %00000111 ' компаратор отключен PAUSE 100 ' ---------------------[Основная программа]------------------------------------ PORTA.4 = 0 Main: pause 500 PORTA.4 = 1 pause 500 PORTA.4 = 0 GOTO Main END