#include
#include<macroZC.inc>
        __config b'11111111110010'
;------------------------------------------
;переменные
        cblock  0x0c
;для сохранения контекста
        rTempW
        rTempZ
        rTempSTATUS
;для шим
        rShimFlag       ;флаг тек.уровня шим
        rShimTMR        ;таймер шим
        rShimT0         ;ширина нуля шим
        rShimT1         ;ширина единицы шим
        rShimLevelPrescaler     ;счётчик - предделитель для уменьшения таймера
;ШИМ
        rShimSkvazhPrescaler    ;счётчик - предделитель для регулирования частоты
 ;вызова процедуры изменения скважности ШИМ
        endc
;------------------------------------------
;константы
cShimLevelPrescaler     equ     .32     ;значение пред-ля rShimLevelPrescaler
cShimSkvazhPrescaler    equ     .115    ; значение пред-ля rShimSkvazhPrescaler
cShimT1max      equ     .10     ;макс ширина 0 шим
cShimT0max      equ     .10     ;макс ширина 1 шим
cShimTPeriod    equ     cShimT0max+cShimT1max   ;период шим
;------------------------------------------
;макросы
;макрос перехода по условию Z=1
JZ      macro   lblJZ   ;переход,если Z=1
        btfsc   STATUS,Z
        goto    lblJZ
        endm
;макрос перехода по условию Z=0
JNZ     macro   lblJNZ  ;переход,если Z=0
        btfss   STATUS,Z
        goto    lblJNZ
        endm

;выбор состояния ключей по состоянию датчиков
;------------------------------------------
;вектор сброса
        org     0
        goto    start
;------------------------------------------
;вектор прерывания
        org     4
        goto    interrupt
;------------------------------------------
start   ;инициализация спец регистров
        bcf     STATUS,RP1
        bcf     STATUS,RP0
        bcf     INTCON,GIE      ;глоб запрет прерываний
        bsf     INTCON,T0IE     ;разреш прерыв от таймера
        bsf     STATUS,RP0
        movlw   b'10011000'
        movwf   OPTION_REG
        bcf     STATUS,RP0     
;------------------------------------------
;инициализация переменных
        movlw   cShimLevelPrescaler
        movwf   rShimLevelPrescaler

        ;запуск шим с минимального значения
        movlw   cShimTPeriod
        movwf   rShimT0
        movwf   rShimTMR
        clrf    rShimT1
        clrf    rShimFlag
        clrf    TMR0
        ;конец инициализации
        bsf     INTCON,GIE      ;разреш прерываний
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
; Основная программа - в ней используется флаг шим, о "существовании " прерывания
; она даже не "подозревает"
main   
        ;...
        ;...
        ;...
        ;...
        goto    main
;----------------------------------------------------------------------------
;----------------------------------------------------------------------------
;процедура изменения скважности ШИМ по определённому закону
; По сути, здесь задаётся мгновенное значение уровня аналогового напряжения.
; Процедура проверяет флаги, выставленные основной программой
; и корректирует скважность по нужному закону
ShimZakonT1T0

;Меняем T1 в пределах 0 ... cShimTPeriod
;...

;Вычисляем новое значение T0
SZ_Calc_T0
        movlw   -cShimTPeriod
        addwf   rShimT1,w
        movwf   rShimT0
        comf    rShimT0,f
        incf    rShimT0,f
        return
;----------------------------------------------------------------------------
;Обработчик прерывания
interrupt
        ;сохранение контекста
        movwf   rTempW          ;сохраняем W
        JZ      int_Z1          ;определяем и сохраняем Z
int_Z0  bcf     rTempZ,0
        goto    $+2
int_Z1  bsf     rTempZ,0
        movf    STATUS,w        ;сохраняем STATUS
        movwf   rTempSTATUS
        ;-------------------

        ;уменьшение счётчика-предделителя смены флага шим
        ; и смены флага, если переполнение
int_ShimTMR
        movf    rShimTMR,w
        JZ      int_ChangeShim
        decf    rShimTMR,f      ;уменьшение таймера шим
        goto    int_ShimEnd
        ;меняем флаг шим
int_ChangeShim
        movf    rShimFlag,w     ;проверка текущего уровня шим
        JNZ     int_Shim1to0
int_Shim0to1;нужно сделать переход с 0 в 1
        movf    rShimT1,w       ;загрузка таймера ШИМ значением T1
        JZ      int_Shim1to0    ;и если оно=0, сразу меняем флаг ШИМ опять
        movwf   rShimTMR
        bsf     rShimFlag,0
        goto    int_ShimEnd
int_Shim1to0;нужно сделать переход с 1 в 0
        movf    rShimT0,w       ;загрузка таймера ШИМ значением T0
        JZ      int_Shim0to1    ;и если оно=0, сразу меняем флаг ШИМ опять
        movwf   rShimTMR
        clrf    rShimFlag
int_ShimEnd
        ;-------------------

        ; уменьшение счётчика-предделителя счётчик для смены скважности
        ; и вызов процедуры, если переполнение
int_ShimSkvazhPrescaler
        decf    rShimSkvazhPrescaler,f
        JNZ     int_ShimSkvazhPrescaler_End
        movlw   cShimSkvazhPrescaler
        movwf   rShimSkvazhPrescaler
        call    ShimZakonT1T0
int_ShimSkvazhPrescaler_End
;;;;;
        ;-------------------
ExitInt bcf     INTCON,T0IF     ;сброс флага прерывания по таймеру
        ;восстановление контекста
        movf    rTempSTATUS,w
        movwf   STATUS
        movf    rTempW,w
        btfss   rTempZ,0
        goto    exit_Z0
exit_Z1 bsf     STATUS,Z
        retfie
exit_Z0 bcf     STATUS,Z
        retfie  ;возврат с разрешением прерываний
;------------------------------------------
        end