PIC Assembler - Lauflicht
lima-city → Forum → Programmiersprachen → Sonstige Programmiersprachen
abfrage
assembler
bank
code
einstellung
freuen
funktion
funktionieren
jemand
list
output
programm
programmieren
quellcode
ruf
springen
status
versuchen
warte
wartezeit
-
Guten Morgen,
Ich versuche gerade mit Pic Assembler und einem PIC16F628 auf dem EasyPIC 6 Board ein Lauflicht zu programmieren.
Eingelesen in das Thema habe ich mich bei Sprut.de, von dort auch den Quellcode (Sprut macht das Lauflicht mit einem anderen PIC als ich.)
Folgendes:
Auf meinem Board leuchten keinerlei LEDs, und da ich mir nicht sicher bin, ob das an den unzähligen Einstellungen vom EasyPIC liegt, oder am Quellcode, würde ich mich freuen, wenn jemand über den Code drüber lesen könnte, und mir mitteilen könnte, ob das funktionieren sollte.
Quellcode:
;************************ ; Lauflicht mit PIC16F628 ;************************ list p=16f628 #include <P16f628.INC> ;Config: Power on Timer, kein Watchdog, XT-Osc ;__CONFIG _PWRTE_ON & _WDT_OFF & _XT_OSC loops Equ 0x22 loops2 Equ 0x23 ;Programm Init bsf STATUS, RP0 ;Auf Bank 1 movlw B'00000000' ;PORTB auf Output movwf TRISB bcf STATUS, RP0 ;Zurück auf Bank 0 clrf PORTB ;Alle LEDS aus ;LED1 ein bsf PORTB,0 ;LED1 liegt an RB0 ;Lauflicht Loop call Wait ;ruf Funktion Warte! rlf PORTB,f ;zur nächsten LED (forward) goto Loop ;zu Loop springen ;******************************************* ; Funktionen ;******************************************* Wait movlw D'250' ; 250ms Wartezeit movwf loops Wai movlw .110 ;Zeitkonstante für 1ms movwf loops2 Wai2 nop nop nop nop nop nop decfsz loops2, F ;Abfrage, ob 1 ms vergangen ist goto Wait2 ;Falls nicht ;Leerzeile decfsz loops2, F ;250ms vorbei? goto Wai ;Geh zu Wai, falls nciht retlw 0 ;Fertig gewartet. end
Vielen Dank
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage