Assembler Code Pic 16F88

[Pic-Electron]

Hallo Leute, wer kennt sich gut mit Assembler Codes aus.
Es soll nämlich ein Assembler Code erweitert werden, dass für eine ansteuerung eines Tid ist.

Das ganze funktioniert so weit ganz gut.
Es sollen aber noch weitere Texte erscheinen die bestimmte Zustände anzeigen sollen. Es wird ein Pic16F88 verwendet.
Der Pic16F88 hat noch folgende Pins frei:
1 RA2, 4 MCLR, 8 RB2, 15 OSC2, 16 OSC1, 17 RA0, 18 RA1.

Es sollen noch weitere Zustände angezeigt werden. Wenn zB. der Kofferraum geöffnet ist, soll K.R. AUF wenn es wieder geschlossen wird K.R. ZU auf dem Display erscheinen.

Wer kann den Assembler Code erweitern, so dass zB. noch weitere Zustände angezeigt werden können.

[PicNick]

In der Hauptschleife wird dzt. permanent "Call SpeedControl" gerufen. an dieser Stelle kannst du z.B. irgendwelche Pins abfragen, wo z.B. der Kofferaumsensor angeschlossen ist.
Ist der offen, zeigst du statt der Speed eben einen anderen Text.
In der Routine "Speedcontrol" siehst du ja recht gut, wie sowas geht.
Einfachn den Text in die CHAR1-Char9 schreiben, und die Zeigefunktion aufrufen.

[Pic-Electron]

Kann das jemand bitte umschreiben.
Kenne mich mit dem Assembler coden noch nicht so ganz gut aus.
Vielen Dank.

[PicNick]

Angenommen, auf RA2 ist der Kofferraumschalter angeschlossen.
d.h. RA2 hängt mit ~10k auf +5V. Solange der Kofferraum zu ist, verbindet der Schalter RA2 mit Masse (GND). --> RA2 ist also normalerweise = 0.
Geht der Kofferraum auf, Schalter offen -> RA2 = 1

Erstmal PORTB RA2 als Eingang def.


; Port B - einstellen der Richtung und Art der Pins

banksel PORTB ;Bank0
clrf PORTB ;PortB "bereinigen"

;================================================ PicNick ===========================
banksel TRISB ;Bank1
movlw B'00000100' ; Port B.2 = RA2 = Eingang Kofferaum-Sensor
movwf TRISB ;Port schreiben
;================================================= ===================================



In der Hauptschleife: Solange der Kofferaum RA2 = 0, ist der Kofferraum zu, also wird normal die Geschwindigkeit angezeigt.
Ist RA = 1 , d.h der Schalter bzw. der Kofferraum ist offen, wird statt der Geschwindigkeit der Text "KR.Offen!" angezeigt. (Die Geschwindigkeit ist zu dem Zeitpunkt ja wohl hoffentlich eh NULL)



;Begin der Hauptschleife
Gesch
;================================================ PicNick ===========================
btfssc PORTB, 2 ; Test Kofferraum-Bit auf = 0 = überspringen
goto KofferAuf ; KofferraumBit=1 --> Offen
;================================================= ===================================
call showSpeed ;Unterroutine zur Geschwindigkeitsmessung aufrufen und Geschwindigkeit ausgeben
call delay_0.2_sec ;kleine Pause für das "Auge"
goto Gesch ; Wieder von Vorne

;================================================ PicNick ===========================
KofferAuf
movlw 'K' ; "KR.Offen!"
movwf CHAR1
movlw 'R' ; "R"
movwf CHAR2
movlw '.' ; "."
movwf CHAR3
movlw 'O' ; "O"
movwf CHAR4
movlw 'f' ; "f"
movwf CHAR5
movlw 'f' ; "f"
movwf CHAR6
movlw 'e' ; "e"
movwf CHAR7
movlw 'n' ; "n"
movwf CHAR8
movlw '!' ; "!"
movwf CHAR9
movlw ' ' ; " "
movwf CHAR10
call sendTIDText ; display on TID
goto Gesch ; Wieder von Vorne
;================================================= ===================================


Die Anzeige "KR.Zu !" würd' ich garnicht machen, das ist ja der Normalfall.


Versuch's mal.

Da Du offenbar noch recht am Anfang stehst, würd ich Dir aber empfehlen, erstmal die Lernbeispiele auf www.sprut.de durchzuarbeiten. Es ist besser, von Grund auf lernen.

[PicNick]

So, ein einfacher Versuch:

Ist der Kofferraum offen, geht's nach "Kofferaum auf"
Solange der aber offen ist, kommt die Routine aber NICHT zurück,
sondern erst, wenn zu ist, wird "KR.ZU" gezeigt (2 Sekunden)
dann wieder auf die Hauptschleife

Beruht darauf, dass ja eh' keine Geschwindigkeit zu zeigen ist, solange offen ist. Nicht elegant, sollte aber gehen



;================================================ PicNick ===========================
KofferAuf
movlw 'K' ; "KR.Offen!"
movwf CHAR1
movlw 'R' ; "R"
movwf CHAR2
movlw '.' ; "."
movwf CHAR3
movlw 'O' ; "O"
movwf CHAR4
movlw 'f' ; "f"
movwf CHAR5
movlw 'f' ; "f"
movwf CHAR6
movlw 'e' ; "e"
movwf CHAR7
movlw 'n' ; "n"
movwf CHAR8
movlw '!' ; "!"
movwf CHAR9
movlw ' ' ; " "
movwf CHAR10
call sendTIDText ; display on TID

btfssc PORTB, 2 ; Test Kofferraum-Bit auf = 0 = überspringen
goto KofferAuf ; immer wieder, solange er offen ist

KofferZu ; jetzt isser zu
movlw 'K' ; "KR.Zu!"
movwf CHAR1
movlw 'R' ; "R"
movwf CHAR2
movlw '.' ; "."
movwf CHAR3
movlw 'Z' ; "O"
movwf CHAR4
movlw 'u' ; "u"
movwf CHAR5
movlw '!' ; "!"
movwf CHAR6
movlw ' ' ; " "
movwf CHAR7
movwf CHAR8
movwf CHAR9
movwf CHAR10
call sendTIDText ; display on TID

call delay_1_sec ; eine Sekunde warten

call delay_1_sec ; noch eine Sekunde ???

goto Gesch ; Wieder von Vorne
;================================================= ===================================


Alles andere bleibt wie gehabt