Форум РадиоКот

Код: Выделить всё

#include "xc.inc"
    GLOBAL    _unixtime, _flag, _correction
seconds  EQU    0
WINDOW_SIZE EQU    6750
    PSECT data, CLASS=COMRAM
_next_correction: DS    1
_error:          DS    2
 
 ; This is the high priority interrupt handler. It is placed at address 8.
    PSECT intcode,class=CODE,reloc=2
    GOTO    HI_ISR_ROUT

    PSECT isr_routine,class=CODE,reloc=2
HI_ISR_ROUT:
    BANKSEL PIE4
    BTFSC   TMR1IE
    BTFSS   TMR1IF
    BRA        INTEXIT
    BANKSEL _next_correction
    MOVF    _next_correction, W
    BANKSEL  PIR4
    ADDWF   c:TMR1H
    BCF        c:TMR1IF
    
    MOVLW   1
    BANKSEL _unixtime
    ADDWF   _unixtime+0, F
    MOVLW   0
    ADDWFC  _unixtime+1, F
    ADDWFC  _unixtime+2, F
    ADDWFC  _unixtime+3, F
    BSF        _flag, seconds
    
; а теперь Брезенхем
    BANKSEL _correction
    MOVF    _correction, W
    BTFSS   _correction, 7    ; проверяем знак коррекции
    GOTO    positive
    COMF    _correction, W
    ADDLW   1

positive:
    BANKSEL _error
    ADDWF   _error, F
    MOVLW   0
    ADDWFC  _error+1, F
    MOVLW   0x80
    BANKSEL _next_correction
    MOVWF   _next_correction

    BANKSEL _error
    MOVLW   low(WINDOW_SIZE)
    SUBWF   _error, W
    
    MOVLW   high(WINDOW_SIZE)
    SUBWFB  _error+1, W
    
    BTFSS   c:CARRY  ;skip if error >= 6750
    GOTO    INTEXIT      ;goto if error <  6750
    
    MOVLW   low(WINDOW_SIZE)
    SUBWF   _error, F
    MOVLW   high(WINDOW_SIZE)
    SUBWFB  _error+1, F
    
    BANKSEL _correction
    BTFSS   _correction, 7
    INCF    _next_correction
    BTFSC   _correction, 7
    DECF    _next_correction
    
    
INTEXIT:
    RETFIE  F
    END

Код: Выделить всё

#include <pic.h>  // Библитека пичков
#include <stdio.h>
#include <stdlib.h>
#include <pic18f1230.h> // Библиотека конкретного пичка

#define SIGNAL 30 // Длительность сигнала в мкс
#define DELMIN 100 // Минимальное время задержки в мкс
#define DELMAX 400000 // Максимальное время задержки в мкс


void delay(int type); // Функция задержки 
void Prepare(void); // Функция подготовки МК

int main(int argc, char** argv)
{
    Prepare(); // Запуск подготовки МК
    while(1) // Бесконечный цикл, основная задача МК
    {
        delay(0); // Задержка межуд сигналами
        TRISB = 0b00010000; // Подаем на выход лог. единицу
        delay(1); // Длительность сигнала
        TRISB = 0b00000000; // Выставляем лог. ноль        
    }
    return (EXIT_SUCCESS);    
}

void delay(int type) // Функция задержки
{
    int N; // Локальная переменная для промежуточных присвоений
    if(type == 0)
    {
        N = DELMIN + rand() % DELMAX; // Формируем случайную задержку
    }
    else
    {
        N = SIGNAL; // Определяем длительность сигнала
    }
    
    for(int i = 0; i <= N; i++) {} // Держим заданный лог. уровень
}

// Подготовка МК
void Prepare(void)
{
    TRISA = 0b00000000; // Направление работы ножек порта А
    TRISB = 0b00010000; // Направление работы ножек порта В
    CMCON = 0x07; // Отключение компараторов
    PORTA = 0; // Очищаем порт А
    PORTB = 0; // Очищаем порт Б
    RBPU = 0;  // Подтягивающие R (0-вкл, 1-выкл)
}