Dot Matrix mit MAX 7219 Ansteuerung mit PIC 16F84A

[biohazard360]

Hallo nun ich will mein Display mit dem Max 7219 ansteuern dieser soll dann einen Buchstaben ausgeben:

Variablenfestlegung:

CBLOCK H'20'
variable1 ; das Wort variable1 entspricht der Adresse H'20'
zaehl ; das Wort zaehl entspricht der Adresse H'21'
register
sendregister
value
temp
z1
z2
z3
ENDC


Hauptprogamm und unterprogramm:


;*****************
;* Hauptprogramm *
;*****************

main
BSF PORTB,1 ;setze Bit des Registers PORTB,1
GOTO up_initmax ;gehe zu up_initmax
GOTO up_zeichen ;gehe zu up_zeichen
GOTO up_warte ;gehe zu up_warten
GOTO main ;gehe zu main






;******************
;* Unterprogramme *
;******************
up_warte ;warteschleife
MOVLW D'170' ;lade W-Register mit D'170'
MOVWF z1 ;kopiere W-Register nach z1
outer
MOVLW D'120' ;lade W-Register mit D'120'
MOVWF z2 ;kopiere W-Register nach z2
middle
MOVLW D'70' ;lade W-Register mit D'70'
MOVWF z3 ;kopiere W-Register nach z3
inner
DECFSZ z3 ;decrementier Register z3 und springe bei 0
GOTO inner ;gehe zu inner
DECFSZ z2 ;decrementier Register z2 und springe bei 0
GOTO middle ;gehe zu middle
DECFSZ z1 ;decrementier Register z1 und springe bei 0
GOTO outer ;gehe zu outer

RETURN

up_zeichen ; Tabelle mit den Werten der Ausgabe
addwf PCL, f ;addiere W-Register zu PCL,f
retlw b'10000000' ;springe aus dem Unterprogramm mit der Übergabe b'10000000'
retlw b'10000000' ;springe aus dem Unterprogramm mit der Übergabe b'10000000'
retlw b'10000000' ;springe aus dem Unterprogramm mit der Übergabe b'10000000'
retlw b'10000000' ;springe aus dem Unterprogramm mit der Übergabe b'10000000'
retlw b'10000000' ;springe aus dem Unterprogramm mit der Übergabe b'10000000'

retlw b'11000000' ;springe aus dem Unterprogramm mit der Übergabe b'11000000'
retlw b'01000000' ;springe aus dem Unterprogramm mit der Übergabe b'01000000'
retlw b'11000000' ;springe aus dem Unterprogramm mit der Übergabe b'11000000'
retlw b'01000000' ;springe aus dem Unterprogramm mit der Übergabe b'01000000'
retlw b'01000000' ;springe aus dem Unterprogramm mit der Übergabe b'01000000'

retlw b'11100000' ;springe aus dem Unterprogramm mit der Übergabe b'11100000'
retlw b'00100000' ;springe aus dem Unterprogramm mit der Übergabe b'00100000'
retlw b'11100000' ;springe aus dem Unterprogramm mit der Übergabe b'11100000'
retlw b'00100000' ;springe aus dem Unterprogramm mit der Übergabe b'00100000'
retlw b'00100000' ;springe aus dem Unterprogramm mit der Übergabe b'00100000'

retlw b'11110000' ;springe aus dem Unterprogramm mit der Übergabe b'11110000'
retlw b'00010000' ;springe aus dem Unterprogramm mit der Übergabe b'00010000'
retlw b'11110000' ;springe aus dem Unterprogramm mit der Übergabe b'11110000'
retlw b'00010000' ;springe aus dem Unterprogramm mit der Übergabe b'00010000'
retlw b'00010000' ;springe aus dem Unterprogramm mit der Übergabe b'00010000'

retlw b'11111000' ;springe aus dem Unterprogramm mit der Übergabe b'11111000'
retlw b'10001000' ;springe aus dem Unterprogramm mit der Übergabe b'10001000'
retlw b'11111000' ;springe aus dem Unterprogramm mit der Übergabe b'11111000'
retlw b'10001000' ;springe aus dem Unterprogramm mit der Übergabe b'10001000'
retlw b'10001000' ;springe aus dem Unterprogramm mit der Übergabe b'10001000'

retlw b'01111100' ;springe aus dem Unterprogramm mit der Übergabe b'01111100'
retlw b'01000100' ;springe aus dem Unterprogramm mit der Übergabe b'01000100'
retlw b'01111100' ;springe aus dem Unterprogramm mit der Übergabe b'01111100'
retlw b'01000100' ;springe aus dem Unterprogramm mit der Übergabe b'01000100'
retlw b'01000100' ;springe aus dem Unterprogramm mit der Übergabe b'01000100'

retlw b'00111110' ;springe aus dem Unterprogramm mit der Übergabe b'00111110'
retlw b'00100010' ;springe aus dem Unterprogramm mit der Übergabe b'00100010'
retlw b'00111110' ;springe aus dem Unterprogramm mit der Übergabe b'00111110'
retlw b'00100010' ;springe aus dem Unterprogramm mit der Übergabe b'00100010'
retlw b'00100010' ;springe aus dem Unterprogramm mit der Übergabe b'00100010'

retlw b'00011111' ;springe aus dem Unterprogramm mit der Übergabe b'00000000'
retlw b'00010001' ;springe aus dem Unterprogramm mit der Übergabe b'00010001'
retlw b'00011111' ;springe aus dem Unterprogramm mit der Übergabe b'00000000'
retlw b'00010001' ;springe aus dem Unterprogramm mit der Übergabe b'00010001'
retlw b'00010001' ;springe aus dem Unterprogramm mit der Übergabe b'00010001'

retlw b'00001111' ;springe aus dem Unterprogramm mit der Übergabe b'00001111'
retlw b'00001000' ;springe aus dem Unterprogramm mit der Übergabe b'00001000'
retlw b'00001111' ;springe aus dem Unterprogramm mit der Übergabe b'00001111'
retlw b'00001000' ;springe aus dem Unterprogramm mit der Übergabe b'00001000'
retlw b'00001000' ;springe aus dem Unterprogramm mit der Übergabe b'00001000'

retlw b'00000111' ;springe aus dem Unterprogramm mit der Übergabe b'00000111'
retlw b'00000100' ;springe aus dem Unterprogramm mit der Übergabe b'00000100'
retlw b'00000111' ;springe aus dem Unterprogramm mit der Übergabe b'00000111'
retlw b'00000100' ;springe aus dem Unterprogramm mit der Übergabe b'00000100'
retlw b'00000100' ;springe aus dem Unterprogramm mit der Übergabe b'00000100'

retlw b'00000011' ;springe aus dem Unterprogramm mit der Übergabe b'00000011'
retlw b'00000010' ;springe aus dem Unterprogramm mit der Übergabe b'00000010'
retlw b'00000011' ;springe aus dem Unterprogramm mit der Übergabe b'00000011'
retlw b'00000010' ;springe aus dem Unterprogramm mit der Übergabe b'00000010'
retlw b'00000010' ;springe aus dem Unterprogramm mit der Übergabe b'00000010'

retlw b'00000001' ;springe aus dem Unterprogramm mit der Übergabe b'00000001'
retlw b'00000001' ;springe aus dem Unterprogramm mit der Übergabe b'00000001'
retlw b'00000001' ;springe aus dem Unterprogramm mit der Übergabe b'00000001'
retlw b'00000001' ;springe aus dem Unterprogramm mit der Übergabe b'00000001'
retlw b'00000001' ;springe aus dem Unterprogramm mit der Übergabe b'00000001'

retlw b'00000000' ;springe aus dem Unterprogramm mit der Übergabe b'00000000'
retlw b'00000000' ;springe aus dem Unterprogramm mit der Übergabe b'00000000'
retlw b'00000000' ;springe aus dem Unterprogramm mit der Übergabe b'00000000'
retlw b'00000000' ;springe aus dem Unterprogramm mit der Übergabe b'00000000'
retlw b'00000000' ;springe aus dem Unterprogramm mit der Übergabe b'00000000'
;------------------------
up_initmax ;max initialisierung

Banksel TRISB ;Umschalten auf die Datenspeicherbank TRISB
bcf TRISB,1 ;lösche Bit des Registers TRISB,1
bcf TRISB,2 ;lösche Bit des Registers TRISB,2
bcf TRISB,0 ;lösche Bit des Registers TRISB,0

Banksel PORTB ;Umschalten auf die Datenspeicherbank PORTB
bsf PORTB,1 ;setze PORTB,1 LOAD_PORT
bcf PORTB,2 ;lösche PORTB,2 CLK_PORT


call clear ;rufe clear auf
movlw b'00001111';lade W-Register mit D'170'
call intensity ;rufe clear auf
movlw b'11111111';lade W-Register mit D'170'
call decodemode ;rufe clear auf
movlw b'00000111';lade W-Register mit D'170'
call scanlimit ;rufe clear auf
movlw b'00000001';lade W-Register mit D'170'
call shutdown ;rufe clear auf
movlw b'00000000';lade W-Register mit D'170'
call displaytest ;rufe clear auf
return ;zurück

send ;senden
movf register,w ;kopiere Register
movwf sendregister;kopiere W-Register nach z2
movlw d'16' ;lade W-Register mit D'170'
bcf PORTB,1 ;lösche PORTB,1

sendloop ;sendenschleife
bcf PORTB,0 ;lösche PORTB,0
btfsc sendregister,7 ;teste sendregister,7 und springe wenn gelöscht
bsf PORTB,0 ;setze PORTB,0
rlf value,f ;rotiere value,f nach links durch carryflag
rlf sendregister,f ;rotiere sendregister,f nach links durch carryflag
bsf PORTB,2 ;setze PORTB,2
nop ;keine Operation
bcf PORTB,2 ;lösche PORTB,2
addlw 0xff ;addiere Arbeitsregister mit 0xff
btfss STATUS,Z ;teste STATUS,Z und springe wenn gesetzt
goto sendloop ;geh zu sendloop
bsf PORTB,1 ;setze PORTB,1
return ;zurück

decodemode ;decodemode
movwf value ;kopiere W-Register nach value
movlw b'00001001' ;lade W-Register mit b'00001001'
movwf register ;kopiere W-Register nach register
goto send ;gehe zu send

intensity ;intensity
movwf value ;kopiere W-Register nach value
movlw b'00001010' ;lade W-Register mit b'00001010'
movwf register ;kopiere W-Register nach register
goto send ;gehe zu send

scanlimit ;scanlimit
movwf value ;kopiere W-Register nach value
movlw b'00001011' ;lade W-Register mit b'00001011'
movwf register ;kopiere W-Register nach register
goto send ;gehe zu send

displayon ;displayon
movlw b'00000001';lade W-Register mit b'00000001'
goto shutdown ;gehe zu shutdown

displayoff ;displayoff
movlw b'00000000';lade W-Register mit b'00000000'

shutdown ;shutdown
movwf value ;kopiere W-Register nach value
movlw b'00001100' ;lade W-Register mit b'00001100'
movwf register ;kopiere W-Register nach register
goto send ;gehe zu send

displaytest ;displaytest
movwf value ;kopiere W-Register nach value
movlw b'00001111' ;lade W-Register mit b'00001111'
movwf register ;kopiere W-Register nach register
goto send ;gehe zu send

clear
movlw 0x00 ;lade W-Register mit D'170'
goto send ;gehe zu send

END ;Programmende


Könnt ihr mir sagen wo der Fehler liegt?

Ach ja es werden übrigens nur 4 LED´s von der D-M-Anzeige angezeigt![/list]

[Benedikt.Seidl]

main
BSF PORTB,1 ;setze Bit des Registers PORTB,1
GOTO up_initmax ;gehe zu up_initmax
GOTO up_zeichen ;gehe zu up_zeichen
GOTO up_warte ;gehe zu up_warten
GOTO main ;gehe zu main

dieser teil hier macht mich ein bisschen stutzig,.. der zweite goto befehl wird nie ausgeführt werden, weil er ja runtergegangen ist, und nie wieder raufkommt. evtl. verwechselst du es mit call?

nur ein schneller versuch nach dem drüberfliegen

SEIDL.

[biohazard360]

mmh ... etwas verstutz mich auch, und zwar das er selbst ohne ein programm die 4 lichter auf dem d-m-display anzeigt.

Könnte es ein Hardware fehler sein.

Und benedikt. habe mir deinen rat mal zu herzen genommen und es umgeändert aber nix tut sich

[Richi 007]

Ich hab zwar keine Idee, aber den Max 7219 such ich jetzt schon seit 2 Wochen.
Wo hast du den gekauft?

[biohazard360]

ich habe den bei www.reichelt.de gekauft

[Richi 007]

Danke,aber hab ihn schon vor deiner Antwort gefunden