помогите новичку с pic16f84a

[alex_p_82]

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

 
delay
 	movlw .250
ret movwf dl
	nop
	nop
	nop
	call rr
	decfsz dl       ; 1-я ошибка
 	goto ret
return
rr
 	movlw .250
 ret1 movwf dl1
	nop
	nop
	decfsz dl1          ; 2-я ошибка
 	goto ret1
return

        END                     

ТС,учите команды

[К@Т]

Ну вот поэтому я и закинул даташит на 84.

Что это за ДатаШит такой ? В нём вообще написано что рабочая частота до 4Мгц.
Вот это Даташит

16F84A_35007b.pdf

Стр. 24 откройте

Про убийство собаки я ничего толкового(прим этой проги) я не вижу.

[Аlex]

К@Т, я не про сабаку, а про осцилятор
Да и на проблему уже alex_p_82 давно указал.

[К@Т]

К@Т, я не про сабаку, а про осцилятор

Генератор это не столь важно для меня.Меня заинтересовало почему в этой проге советуют убить собаку(она ведь не мешает)?

[Аlex]

Генератор это не столь важно для меня

А для кого-то важно. Не стОит тогда давать подобные советы и вводить людей в заблуждение.

[К@Т]

Генератор это не столь важно для меня

А для кого-то важно. Не стОит тогда давать подобные советы.

У меня с ХТ на 12Мгц работает и не жалуетса,поэтому считаю что совет почти туда.

[Аlex]

А у нас в квартире газ. А у Вас ?
Вы отправили человека курить ДШ, утверждая, что до 20МГц нужно ставить XT. Я Вас поправил. А что и у кого работает - это , какбЭ, до хвоста....

[К@Т]

А у нас в квартире газ. А у Вас ?
Вы отправили человека курить ДШ, утверждая, что до 20МГц нужно ставить XT. Я Вас поправил. А что и у кого работает - это , какбЭ, до хвоста....

Зачит таже запомню на всякий случай что HS от 8.

[otest]

не помагает

а где листинг с изменениями?

[vova_]

не помагает

а где листинг с изменениями?

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

list      p=16F84A             ; list directive to define processor
    #include <p16F84a.inc>         ; processor specific variable definitions

__CONFIG   _CP_OFF & _HS_OSC

dl equ 0x0D
dl1 equ 0x0E 

    org    0x0000  ; processor reset vector
    
 bsf STATUS, RP0
 movlw b'00000000'
 movwf TRISA
 movlw b'00000000'
 movwf TRISB
 bcf STATUS, RP0
 start 
 	 clrf PORTA
	 clrf PORTB
     call delay
	 call delay
	movlw b'11111111'
	movwf PORTA
	movlw b'11111111'
 	movwf PORTB
	call delay
	call delay
        goto start 
delay
 	movlw .250
    movwf dl
ret	nop
	nop
	nop
	call rr
	decfsz dl
 	goto ret
return
rr
 	movlw .250
    movwf dl1
ret1 nop
	nop
	decfsz dl1
 	goto ret1
return

        END                       ; directive 'end of program'

[Аlex]

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

__CONFIG   _CP_OFF & _XT_OSC & _WDT_OFF

[К@Т]

code

А почему не исправлены те ошибки о которых мы Вам говорили?

[otest]

у вас задержка 1.5 млсек. поэтому ничего не видно.Во вложении прога для вычисления задержек.

[vova_]

у вас задержка 1.5 млсек. поэтому ничего не видно.Во вложении прога для вычисления задержек.

исправил но не работает

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

 list      p=16F84A             ; list directive to define processor
    #include <p16F84a.inc>         ; processor specific variable definitions

__config _CP_OFF & _XT_OSC & _WDT_OFF

Reg_1 equ 0x0D
Reg_2 equ 0x0E 
Reg_3 equ 0x0F 

    org    0x0000  ; processor reset vector
    
 bsf STATUS, RP0
 movlw b'00000000'
 movwf TRISA
 movlw b'00000000'
 movwf TRISB
 bcf STATUS, RP0
 start 
 	 clrf PORTA
	 clrf PORTB
     call delay
	movlw b'11111111'
	movwf PORTA
	movlw b'11111111'
 	movwf PORTB
	call delay
        goto start 
delay
 		    movlw       .93
            movwf       Reg_1
            movlw       .38
            movwf       Reg_2
            movlw       .11
            movwf       Reg_3
wr          decfsz      Reg_1, F
            goto        wr
            decfsz      Reg_2, F
            goto        wr
            decfsz      Reg_3, F
            goto        wr
            nop
            nop
        END                       ; directive 'end of program'

[К@Т]

Ещё косяк.

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

  start 
 	 clrf PORTA
	 clrf PORTB
     call delay
	movlw b'11111111'
	movwf PORTA
	movlw b'11111111'
 	movwf PORTB
	call delay
        goto start 

[Аlex]

исправил но не работает

Нет возврата из ПП delay.
Вы так и будете методом тыка подбирать ?

[otest]

он не досмотрел а я забыл упредить что возврат надо лописывать руками.
delay
movlw .93
movwf Reg_1
movlw .38
movwf Reg_2
movlw .11
movwf Reg_3
wr decfsz Reg_1, F
goto wr
decfsz Reg_2, F
goto wr
decfsz Reg_3, F
goto wr
nop
RETURN

[Pavel_1978]

Для начала воспользуйся симулятором Мплаба, чтобы отследить что прога вообще корректно работает. Потом уже в противусе смотри как рабочая программа работает, тем более что у тебя все просто.