PWM mit einstellbarer Frequenz (2313)

[Rage_Empire]

Hm, ähnlich meinem Ursprünglichem Prinzip, nur sehr gekürzt würd ich behaupten. Das Prob ist, daß das Programm per Slave-I2C gesteuert werden soll, was (wenn es mal funzt) auch noch Resourcen frisst!
SHIT!!!
eigentlich sind es ja nur Zahen......wäre etwas mit "on Goto" vieleicht denkbar!? Oder ne Gleichung, wo nur 0 und 1 Entscheiden muß, wäre schneller. Sch.... daß ich kein Frequenzzähler Zuhause habe!!!
Beim x51 gibts im ASM-Befehlssatz nen Befehl, der eine Bedingung auf Wert 0 bezieht. Weiß nicht, ob der AVR auch so etwas besitzt.
Irgendwie ist das kleine Progy schon nen Akt!!!

[teslanikola]

denke nie es wird ein kleines Progy, denn damit liegst du meistens Falsch.Ach ein I²C Slave ist in Bascom nicht gerade geschickt, da man eine speziella LIbix bracuh, und die koste Geld.

[Rage_Empire]

Habe es mal so versucht:

$regfile = "2313def.dat"
$crystal = 10000000
$baud = 9600

Dim Hi As Byte
Dim Lo As Byte
Dim Zeit As Byte

Config Pind.2 = Output

Config Timer1 = Timer , Prescale = 1

Enable Interrupts
On Timer1 Icnr
Enable Timer1
Timer1 = 65526
Hi = 1
Lo = 1

Do

    Input "High x mal 1us: " , Hi
    Input "Low x mal 1us: " , Lo

Loop



Icnr:

Incr Zeit

If Zeit = Hi Then

Swap Hi , Lo

Zeit = 0
Portd.2 = Not Pind.2

End If

Timer1 = 65526

Return

Laut sim geht die meiste Zeit beim Return drauf. Hat glaub ich was mit dem sichern der Register zu tun. Da war mal was mit NOSAVE, was ich aber erst mal genauer betrachten muß. Denke, daß es die Lösung ist!

[teslanikola]

einfachmal Nosave an den On befehl hängen und schauen ob alles noch so läuft wies soll, kann ja nix kaputt gehen.

[Rage_Empire]

So, mal schaun wieviel der Code hergibt:

$regfile = "2313def.dat"
$crystal = 10000000
$baud = 9600

Dim Hi As Byte
Dim Lo As Byte
Dim Zeit As Byte

Config Pind.2 = Output

Config Timer1 = Timer , Prescale = 1

Enable Interrupts
On Timer1 Icnr Nosave
Enable Timer1
Timer1 = 65526
Hi = 1
Lo = 1

Do

    Input "High x mal 1us: " , Hi
    Input "Low x mal 1us: " , Lo


Loop



Icnr:

Push r0
push r4
push r15
push r16
push r19
push r20

Incr Zeit

If Zeit = Hi Then

Swap Hi , Lo

Zeit = 0
Portd.2 = Not Pind.2

End If

Timer1 = 65526

pop r20
pop r19
pop r16
pop r15
Pop r4
pop r0


Return

...leider werd ich erst am Freitag dazu kommen, die max. Frequenz zu ermitteln!

[Rage_Empire]

Tada! Hier ist er.... Der Source schafft ne max. Frequenz von ca. 60kHz bei 10Mhz Quarz und einstellbarem Puls- Pausenverhältnis!

$regfile = "2313def.dat"
$crystal = 10000000
$baud = 9600

Dim Hi As Word
Dim Lo As Word
Dim Tim1 As Word
Dim Tim2 As Word

Config Pind.5 = Output

Config Timer1 = Timer , Prescale = 1

Enable Interrupts
On Timer1 Icnr Nosave
Enable Timer1

Do

    Input "High [1-65535]" , Hi
    Input "Low  [1-65535]" , Lo

Disable Timer1
Tim1 = Hi
Tim2 = Lo
Portd.5 = 1
Enable Timer1

Loop



Icnr:

$asm
in r2, sreg
'push r0
'push r1
push r2
'push r3
'push r4
'push r5
'push r6
'push r7
'push r8
'push r9
'push r10
'push r11
'push r12
'push r13
'push r14
'push r15
push r16
push r17
'push r18
push r19
'push r20
'push r21
'push r22
'push r23
push r24
'push r25
push r26
'push r27
'push r28
'push r29
'push r30
'push r31
$end Asm

Load Timer1 , Tim1


Swap Tim1 , Tim2
Portd.5 = Not Pind.5


$asm
'pop r31
'Pop r30
'pop r29
'pop r28
'pop r27
pop r26
'pop r25
pop r24
'pop r23
'pop r22
'pop r21
'pop r20
pop r19
'pop r18
pop r17
pop r16
'pop r15
'pop r14
'pop r13
'pop r12
'pop r11
'pop r10
'pop r9
'pop r8
'pop r7
'pop r6
'pop r5
'pop r4
'pop r3
pop r2
'pop r1
'pop r0
Out Sreg , R2
$end Asm

Falls jemand ne andere Idee hat, dies in Bscom zu realisieren kann er sich hierzu gerne äusern!