🇩🇪
Zitat von: vloki in 19.11.2025, 14:03:54 CETMeine Meinung, ganz ehrlich - kann man sicher machen, aber ob das wirklich noch sinnvoll ist?Nun, ich muss mich zwar noch an die neuen Datenbücher gewöhnen, aber da gibt es tatsächlich
Zitat von: pic18 in 17.11.2025, 19:41:30 CETVielleicht sehe ich das Problem falsch...
Zitat von: vloki date=1763390927Ansonsten könnte Lesson 3 so aussehen:
So sieht es in der hatten Realität aus: Sie rotieren, die 4 LEDs ! Nicht wirklich, aber ihr Leuchten !
Der Debugger hat nix zu meckern und morgen mache ich mich dran, zu verstehen, warum das klappt! Heute steckte ich noch mit beiden Armen tief und lange im Rollladenkasten, aber wenn morgen der voll krasse Durchblick erreicht werden sollte, dann......, dann passiert leider nix: sitze z.Z. auf dem Trockenen, nix mit "auf den Erfolg machen wir erst mal einen und einen zweiten und den dritten sowieso usw. .......drauf".
Grüße, picassrotieren.jpg
init0:
clrf TRISC,A ;make all of PORTC an output
init1:
movlw 0x08;
movwf LATC,A; setzt Bit 3 und löscht alle anderen Bits
Mainloop:
OndelayLoop:
decfsz Delay1,f,A ;Waste time.
goto OndelayLoop ;The Inner loop takes 3 instructions per loop * 256 loopss = 768 instructions
decfsz Delay2,f,A ;The outer loop takes an additional 3 instructions per lap * 256 loops
goto OndelayLoop ;(768+3) * 256 = 197376 instructions / 250K instructions per second = 0.79 sec.
Rotate:
bcf STATUS,0,A ;clear the carry
rrcf LATC,F,A ;shift the LEDs and turn on the next LED to the right
bnc MainLoop ;
bra init1 ;repeat this program forever