Warteschleife 1s bei XTAL 4000000

[Luigi A. (spok)]

Hallo zusammen,

bin nicht so erfahren in der Assemblerprogrammierung.Ich wollte eine 
Warteschleife bauen die ca 1 Sekunde dauert. Mein Taktgenerator hat 
4Mhz.
Habe folgenden Code geschrieben:

(Xtal = 4000000)

wait1s:                                 

  push temp1
  push temp2
  push temp3

     ldi temp3, (xtal * 1/191208)
        WGLOOP4:     
     ldi  temp1, $F8
  WGLOOP2:   
     ldi  temp2, $FF
  WGLOOP3:   
     dec  temp2
                 brne WGLOOP3
                 dec  temp1
                 brne WGLOOP2
     dec temp3
     brne WGLOOP4

  pop temp3
  pop temp2
  pop temp1
ret

Naja irgendwas stimmt wohl nicht. Die Dauer entspricht nicht 1 Sekunde 
sondern ca 0,85 Sekunden.
Habe ich aus eurer Sicht die Werte richtig eingetragen?

Danke!

[Peter D. (peda)]

Nimm ein Macro und laß die magischen Zahlen den Assembler selber 
ausrechnen, der kann 64Bit Ganzzahl.

.include "tn13def.inc"

        .equ    F_CPU = 4000000       ; 4MHz

.macro  warte
        ldi     r16, byte1( @0 / 6 )
        ldi     r17, byte2( @0 / 6 )
        ldi     r18, byte3( @0 / 6 )
        ldi     r19, byte4( @0 / 6 )
_warte11:
        subi    r16, byte1(1)         ; 1 Zyklus
        sbci    r17, byte2(1)         ; 1 Zyklus
        sbci    r18, byte3(1)         ; 1 Zyklus
        sbci    r19, byte4(1)         ; 1 Zyklus
        brne    _warte11              ; 2 Zyklen
                                      ; = 6 Zyklen
.endmacro

main:
        sbi     ddrb, pb1
        sbi     portb, pb1
        warte   F_CPU * 1         ; 1s
        cbi     portb, pb1
        warte   F_CPU * 2         ; 2s
        rjmp    main

[Luigi A. (spok)]

Peter Dannegger schrieb:
> Nimm ein Macro und laß die magischen Zahlen den Assembler selber
> ausrechnen, der kann 64Bit Ganzzahl.


Danke für den Hinweis. Bin leider noch nicht so weit.
Kenne mich noch nicht mit Macro's aus.


Kommt noch...