16F84A a MM5450BN

[Karla Dvořáková]

Zdravim a pozdravuji,
tak jsem se konecne dockala a mam doma programator, ktery programuje a
nenici soucastky. Trochu se pokousim neco napsat a mam tu hnedka jeden
problem.

Nize uvedeny program pro PIC 16F84A s RC oscilatorem mi nechce fungovat ja
nevim proc.
Ma poslat na radic displeje MM5450BN (pachatel Micrel) takova data, aby se
vsechny led rozsvitily a po nejake dobe zase zhasly. Me se zatim pouze
rozsviti a nezhasinaji. Nevite nekdo proc ?  Muzete naproste zacatecnici
pomoci ?  :)


; PORT B  PIN 5 - DATA POVOLENA
; PORT B PIN 6 - DATA
; PORT B PIN 7 - HODINY

LIST P=16F84A

porta equ 05H
portb equ 06H
STATUS equ 03H
TRISB equ 86H
ZPOMAL3 equ 0DH
ZPOMAL2 equ 0EH
ZPOMAL1 equ 0FH
cykl equ 10H

 org 08H

 bsf STATUS,5
 clrf TRISB
 bcf STATUS,5

;...........................................................................
.
; rozsviceni displeje

 BCF portb,5
 BCF portb,6
 BCF portb,7

SMYCKA
 BCF portb,7  ;date enable
 BSF portb,6  ;data = 1
 BCF portb,5  ;vyslani hodin prvni jednicky
 BSF portb,5
 BCF portb,5  ;ok


 MOVLW 23h  ;nastaveni cyklu
 MOVWF cykl  ;ok
CYKLUS1 BSF portb,6  ;data = 1
 BCF portb,5  ;vyslani hodin
 BSF portb,5
 BCF portb,5  ;ok
 DECFSZ cykl,1
 GOTO CYKLUS1  ;opakovani cyklu
;....................................................
 call cekej  ;zpozdeni
;....................................................
; zhasnuti displeje

 BSF portb,6  ;data = 1
 BCF portb,5  ;vyslani hodin prvni jednicky
 BSF portb,5
 BCF portb,5  ;ok


 MOVLW 23h  ;nastaveni cyklu
 MOVWF cykl  ;ok
CYKLUS2 BCF portb,6  ;data = 0
 BCF portb,5  ;vyslani hodin
 BSF portb,5
 BCF portb,5  ;ok
 DECFSZ cykl,1
 GOTO CYKLUS2  ;opakovani cyklu

 GOTO SMYCKA




; tady je vytvorena casova prodleva

cekej movlw 1  ;vnejsi smycka
 movwf ZPOMAL3

NASTAV1 movlw 45  ;prostredni smycka  45
 movwf ZPOMAL2

NASTAV2 movlw 200  ;vnitrni smycka 200
 movwf ZPOMAL1
 clrwdt

NASTAV3 decfsz ZPOMAL1,1 ;cyklus 1
 goto NASTAV3
 decfsz ZPOMAL2,1 ;cyklus 2
 goto NASTAV2
 decfsz ZPOMAL3,1 ;cyklus 3
 goto NASTAV1
 return   ;navrat do programu

 END