Casovani u 8051

[Sedláček Karel]

zkusil bych:

CITEJ:
     djnz	R6,zpet
     mov  	R6,#time1
     djnz	R7,zpet
     call procedura
     mov  R6,#time1
     mov  R7,#time2
zpet:
     reti


-----Original Message-----
From: plupinek@synthesia.cz [mailto:plupinek@synthesia.cz]
Sent: Monday, March 27, 2000 10:08 AM
To: Multiple recipients of list
Subject: Casovani u 8051




Prosim o nasledujici radu. Trochu jsem zabrousil do Timeru0 a nejde mi
nasledujici kod (trosku ocesany, at to
neni dlouhy):


TIME1          EQU  25
TIME2          equ  5



     org  0000h
     jmp  main

     org  000Bh
     jmp  CITEJ


main:
     mov  r6,time1
     mov  r7,time2
     mov  TMOD,#00000001 ; 16 bitovy citac
     setb TR0       ; spustit timer0
          SETB   EA      ; globalni preruseni povoleno


smycka:
     jmp  smycka





CITEJ:
     dec  R6
          mov  A,R6
     jnz  zpet
     mov  R6,time
     dec  R7        /*
          mov  A,R7      /*
     jnz  zpet      /*
     call procedura
     mov  R6,time1
     mov  R7,time2

zpet:
     reti

end


Kdyz tam nedam radky, oznacene /* tak to funguje. S krystalem 11.059MHz to
vola
PROCEDURA kazdych
20 sekund. Kdyz tam dam jeste odecitani R7, aby to bliklo dejme tomu jednou
za
minutu, pak to nedela nic.
Deset minut to ani neblikne. Dam to pryc a uz to blika.

Pani odbornici, co delam blbe?

Diky za odpoved. Petr.