Zeitschleife 10sek für 16MHz Quarz in Assembler

[Sven R. (xinax)]

Ich hoffe, dass ihr mir helfen könnt, ich versuche ein Zeitschleife zu 
programmieren, aber kann dies leider nicht so richtig schreiben. Da so 
wie ich es bisher mir angesehen habe muss ich eine mehrfach 
verschachtelte Zeitschleife schreiben, komm aber mit dem richtigen 
aufbaue der Verschachtelung nicht klar. Ich hoffe, dass mir jemand hier 
im Forum dabei helfen kann.
Vielen Dank im Vorraus.

[spess53 (Gast)]

Hi

Probiers mal hiermit:

http://electronics-lab.com/downloads/mcu/003/index.html

MfG Spess

[Detlef K. (adenin)]

In Assembler?
Das ist einfach.

Ich geh schon mal die Glaskugel polieren. ;)

[Marc V. (Firma: Vescomp) (logarithmus)]

Sven Radola schrieb:
> aufbaue der Verschachtelung nicht klar. Ich hoffe, dass mir jemand hier
> im Forum dabei helfen kann.
> Vielen Dank im Vorraus.

 Probiere es mal hiermit:

main:
           ldi    r16, 10                   ;* 10 Sec
           rcall  WaitSec

           ldi    r16, 150                  ;* 150 mSec
           rcall  Waitms

eth_loop:  rjmp   eth_loop

;******************* Sec Routine  *****************
;** Gewunschte Zeit (in Sec.) beim Aufruf in r16 **
;**************************************************
WaitSec:   mov    r15, r16                 ;* r16 wird auch in Waitms benutzt, umladen
WtSec0:    ldi    r19, 0x04                ;* Waitms wird 4 Mal aufgerufen
WtSec1:    ldi    r16, 0xFA                ;* Mit jeweils 250 mSec
           rcall  Waitms
           dec    r19
           brne   WtSec1
           dec    r15
           brne   WtSec0
           ret
                                                                                      
;******************* mSec Routine  *****************
;** Gewunschte Zeit (in mSec.) beim Aufruf in r16 **
;***************************************************
Waitms:    ldi    r17, 0x14
Wtms0:     ldi    r18, 0xC6              ;* Dieser Wert wird bei anderen Freq. geandert
Wtms1:     dec    r18
           nop                           ;* Und mit NOP kannst du die Zeit fein verandern
           brne   Wtms1
           dec    r17
           brne   Wtms0
           dec    r16
           brne   Waitms
           ret

 Für 16MHz eingestellt.
 Es werden Register r15-r19 benutzt.

 Natürlich kannst du die Routine Waitms unabhängig von der
 Routine WaitSec benutzen.
 Beim Eintritt wird nicht auf Null geprüft, also ist r16 == 0
 gleichbedeutend mit 256 mSec bzw. 256 Sec.

[Sven R. (xinax)]

Ich habe so wie es aussieht leider vergessen, dass ich mit einen PIC18 
Microcontroller arbeite. Ich gehe doch richtig in der Annahme, dass der 
Code für AVR ist, oder kann ich den so auch für den PIC übernehmen?
Wahrscheinlich rollen manche von euch bei solchen Fragen mit den Augen, 
aber so ist es leider wenn mann sowas gerade Anföng.
Ich Bedanke mich schonmal im Vorfeld für eure Gedult.

[Max H. (hartl192)]

Sven Radola schrieb:
> oder kann ich den so auch für den PIC übernehmen?
Nein.

Habe ich es richtig verstanden, dass du eine Warteschleife Programmieren 
willst? Wie genau müssen die 10s sein?

[Sven R. (xinax)]

Sie muss nicht auf die ms genau sein, es sollte nach Möglichkeit nicht 
9, oder 11 Ssek. sein.

[Timer (Gast)]

Wie wäre es mit Timer? Die wurden dafür erfunden.

[Marc V. (Firma: Vescomp) (logarithmus)]

Sven Radola schrieb:
> Ich habe so wie es aussieht leider vergessen, dass ich mit einen PIC18
> Microcontroller arbeite. Ich gehe doch richtig in der Annahme, dass der
> Code für AVR ist, oder kann ich den so auch für den PIC übernehmen?

 Natürlich nicht, aber:

;******************* mSec Routine  *****************
;** Gewunschte Zeit (in mSec.) beim Aufruf in r16 **
;***************************************************
;*** Das ist die äußere Schleife (Einstellen der Zeit: grob)
Waitms:    ldi    r17, 0x14

;*** Das ist die innere Schlefe  (Einstellen der Zeit: mittel)
Wtms0:     ldi    r18, 0xC6              ;* Dieser Wert wird bei anderen Freq. geandert

Wtms1:
;*** Und hier kannst du NOP Befehle reinschreiben oder rausnehmen
           nop                           ;* Und mit NOP kannst du die Zeit fein verandern

;*** Hier wird die innere Schleife abgearbeitet
           dec    r18             ;* Wert dekrementieren
           brne   Wtms1           ;* Wenn > 0, nochmals zum Wtms1

;*** Hier wird die mittlere Schleife abgearbeitet
           dec    r17             ;* Wert dekrementieren
           brne   Wtms0           ;* Wenn > 0, nochmals zum Wtms0

;*** Hier wird der Wert in ms abgearbeitet
           dec    r16             ;* Wert fur ms dekrementieren
           brne   Waitms          ;* Wenn > 0, nochmals zum Waitms

           ret

 Wie wäre es wenn du jetzt selbst probierst ?

[Max H. (hartl192)]

  CBLOCK 0x00
  delay_cnt: 3
  ENDC
  
  ......
  
  movlw .250
  movwf delay_cnt+2
delay_2:  
  movlw .200
  movwf delay_cnt+1
delay_1:  
  movlw .199      ; 200µs
  movwf delay_cnt+0
  nop
  decfsz delay_cnt+0
  bra $-4
  
  decfsz delay_cnt+1
  bra delay_1
  
  decfsz delay_cnt+2
  bra delay_2

10.000250s  @ 16MHz

[Sven R. (xinax)]

Ich habe den Programmteil von Max H. als Unterprogramm einebunden, es 
funktioniert aber nicht so, wie ich es mir gedacht habe.
Ich will in meinem Programm meine LED's an PORTD 10 sek. an und aus 
schalten, ich werde hier meinen Quellode posten, hoffe ihr könnt mir 
sagen, wo mein Fehler liegt. Die Konfigzeile habe ich rausgenommen, für 
bessere Übersicht

------------------------------------------------------------------------ 
---
    list        p=18lf46k22     ; List definiert den Controller
    #include    <p18lf46k22.inc>; Headerdatei mit Registernamen
;---------------------------------
; VARIABLE DEFINITIONS
;---------------------------------
    CBLOCK  0x20        ; BLOCK abb 0x10(RAM)
    delay_cnt: 3
    ENDC
;---------------------------------
    ORG     0x000       ; Anfangsadresse 0x000
ResetVector movlw   high(main)
            movwf   PCLATH
            goto    main
;---------------------------------
; Hauptprogramm: main
;---------------------------------
main
    Banksel ANSELD
    clrf    ANSELD      ; Digital I/O
    clrf    TRISD       ; Ausgang
    clrf    PORTD       ; Ausgänge auf 0 setzen
;--------------------------------
LED
    movlw   0xff
    movwf   PORTD       ; Alle LED's an
    call    delay       ; delay Unterroutine aufrufen
    clrf    PORTD
    call    delay
    goto    LED

delay
    movlw .250
    movwf delay_cnt+2
delay_2:
    movlw .200
    movwf delay_cnt+1
delay_1:
    movlw .199      ; 200µs
    movwf delay_cnt+0
    nop
    decfsz delay_cnt+0
    bra $-4

    decfsz delay_cnt+1
    bra delay_1

    decfsz delay_cnt+2
    bra delay_2
    return
End

[Max H. (hartl192)]

Sven Radola schrieb:
> es funktioniert aber nicht so, wie ich es mir gedacht habe.
Was funktioniert nicht?

[Sven R. (xinax)]

Es findet kein Wechsel statt, die LED's bleiben angeschaltet. Es wir der 
PortD also nicht geköscht.

[Max H. (hartl192)]

Wenn Ich deinen Code auf meinen PIC18F45k22 flashe (mit meinen Configs) 
blinken die LEDs.

Stimmt vllt. mit den Configs was nicht?

BTW: Beim PIC18 würde ich zum Ausgeben das LATx register verwenden,

> movlw   high(main)
> movwf   PCLATH
Das ist auch nicht nötig, da der PIC18 mit einen GOTO 20bit adressiert.

[John (Gast)]

Hier gibt es einen Delay-Codegernerator für PICs
http://www.piclist.com/techref/piclist/codegen/delay.htm

Das ist der generierte Code für 10 Sekunden bei 16MHz:

; Delay = 10 seconds
; Clock frequency = 16 MHz

; Actual delay = 10 seconds = 40000000 cycles
; Error = 0 %

        cblock
        d1
        d2
        d3
        endc

Delay
                      ;39999993 cycles
        movlw  0x6C
        movwf  d1
        movlw  0x32
        movwf  d2
        movlw  0x58
        movwf  d3
Delay_0
        decfsz d1, f
        goto   $+2
        decfsz d2, f
        goto   $+2
        decfsz d3, f
        goto   Delay_0

                       ;3 cycles
        goto   $+1
        nop

                       ;4 cycles (including call)
        return

Gruß
John