Отправлено Hyper Punk 09 июля 2003 г. 15:51

Господа!
Обрабатываю прерывания от TMR1
при инициализации H и L = 0
предделитель на 1:8
по прерыванию генерирую меандр на PORTB 7 и 6
через кадый 10 импульс происходит сбой
и импульс выдается меньше чем нужно:

нужно:
____ ____ ____ ____
| | | | | | |
___| |___| |___| |___|

что на на осцилографе
____ _ ____ ____
| | || | | |
___| |___||___| |___|

и такой хилый каждый ~11-тый

вчем проблемма не понимаю, помогите кто может!
текст проги:

list p=P16F76
errorlevel -302
#include
#include ниже->

;стартовый адрес
ORG 0X00
goto MAIN
ORG 0X04
goto INTERRUPT
;####################################################
ind
BSF PORTB,7 ;Сдесь я смотрю осцилографом
BSF PORTB,6 ;Мигает светодиод
goto out
Timer_1
BCF PIR1,TMR1IF ;Снять флаг прерывания таймера 1
; BTFSC Indication,0
BTFSS PORTB,7
goto ind
BCF PORTB,7
BCF PORTB,6
out
goto exit_INTERRUPT ;Выход

INTERRUPT
BTFSC PIR1,TMR1IF ;Если таймер то
goto Timer_1 ;

;______________________________________________________________
exit_INTERRUPT
;POP
BSF INTCON,GIE ;Разрешить прерывания
goto end_prog ;Выход из прерывания

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MAIN
CLRF INTCON ;Зпретили все прерывания
CLRF T2CON ;Сброс управления TMR2
CLRF T1CON ;Сброс управления TMR1
CLRF TMR2 ;TMR2=0, обнуляем счетчик
CLRF TMR1H ;Очистить TMR1H
CLRF TMR1L ;Очистить TMR1L
CLRF PIR1 ;Сбросили прерывания от п.у.
bank1
CLRF PIE1 ;Зпретили все прерывания от п.у.
MOVLW B'00000100' ;Все (А5,A4,A2)-цифровые,
MOVWF ADCON1 ;(А3,А1,А0)-аналог.
MOVLW B'00001111' ;
MOVWF TRISA ;Порт (A0-A3) на выдачу (A4,A5)-прием
MOVLW B'00000000' ;
MOVWF TRISB ;Порт В на выдачу
MOVLW B'00010011' ;(С0,С1,С4) - на прием
MOVWF TRISC ;Порт C наприемо-передачу
bank0
; MOVLW B'10000001' ;Fosc\32, RA0-канал, Вкл,
; MOVWF ADCON0 ; <- конфигурация АЦП.
; MOVLW B'00000000' ;Делитель 1:1 TMR2 выкл.(10мкС)
; MOVWF T2CON ;
MOVLW D'0' ;65535-62500=3035 (0BDB)h
MOVWF TMR1H ;(0B)h
MOVLW D'0' ;(DB)h
MOVWF TMR1L ;Прерывание каждые 0,1 сек
MOVLW B'00111000' ;Делитель 1:8 TMR1 выкл.
MOVWF T1CON ;
bank1
BSF PIE1,TMR1IE ;Разрешить прерывание от TMR1
BSF INTCON,PEIE ;Разрешить прерывание от п.у.
BSF INTCON,GIE ;Разрешить прерывания вобще
bank0
Initialization
CLRF PORTA
CLRF PORTB
CLRF PORTC

BSF T1CON,TMR1ON ;Включить TMR1

end_prog
END

;Файл с макросами MAC.MAC
; ==================================================
; "МАКРОСЫ"
; ==================================================
subtitle "macro definitions"
page
bank0 MACRO
BCF STATUS, RP0 ;БАНК0
;BCF STATUS, RP1
endm
bank1 MACRO
BSF STATUS, RP0 ;БАНК1
;BCF STATUS, RP1
endm
PUSH MACRO
MOVWF W_TMP
SWAPF STATUS,W
MOVWF STATUS_TMP
endm
POP MACRO
SWAPF STATUS_TMP,W
MOVWF STATUS
SWAPF W_TMP,F
SWAPF W_TMP,W
endm

;=================================================

• А флаги от прерываний кто будет за тебя сбрасывать? — L.A.   (09.07.2003 21:12, пустое)
• да-а-а андрюха.... я тебе в письме прислал рекомендации . — дружок.   (09.07.2003 16:50, пустое)
  • В лоб оба варианта не работают .... — Hyper Punk   (09.07.2003 17:20, пустое)
    • и не заработают, там ведь подправить надо... — дружок.   (09.07.2003 17:51, пустое)
      • завтра mplab поставлю, сам попробую.. сне кстати только что отладочюх плат мотороловских hc08 приволокли.. сижу разбираюсь — дружок.   (09.07.2003 17:53, пустое)
• У меня было подобное, когда задачи от разных источников прерываний друг на друга наезжали. — Visitor   (09.07.2003 16:00, пустое)
  • наверное лучше прочитать тело сообщения:)) кажется у него стек прокручивается...и вообще галиматья какая то, разве у этого пика нет retfie? — Romario   (09.07.2003 16:10, 259 байт)
    • А что вы имеете в виду под словом RETFILE? — Hyper Punk   (09.07.2003 16:18, пустое)
    • Я специально забил все прерывания ео ситуация не изменилась — Hyper Punk   (09.07.2003 16:15, пустое)
    • Пардон я здесь первый раз — Hyper Punk   (09.07.2003 16:14, пустое)
      • а мыло явно не гиперпанковское?:)) — Romario   (09.07.2003 16:18, 205 байт)
        • И флаги сбрасывать, причем лучше от всех возможных источников — L.A.   (09.07.2003 21:14, пустое)
        • Я не девушка, мыло жены, т.к. в предидущий спама наваливали столько что проще было его похерить, за RETFILE спасибо попробую — Hyper Punk   (09.07.2003 16:23, 88 байт)
• что за прога мутант?:)) — Romario   (09.07.2003 15:58, 107 байт)
  • По вашему мнению если goto end_prog и метку end_prog выкинуть то чтото существенно изменится? — Hyper Punk   (09.07.2003 16:17, пустое)