Винницкий Мото Клуб

       $regfile = "attiny2313.dat"
$crystal = 20000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Aci = On , Trigger = Falling
Config Timer0 = Timer , Prescale = 64
Config Timer1 = Timer , Prescale = 64
Stop Timer1

Enable Interrupts
Enable Aci
Enable Timer1
Enable Timer0

On Aci Capt Nosave
On Timer1 Pulse Nosave
On Timer0 Tmr0 Nosave
Config Portd.6 = Output
Config Portd.5 = Output
Portd.5 = 1
Dim Value As Word
Dim Index As Word
Dim Flag1 As Byte
Dim Flag2 As Byte
Dim Flag3 As Byte
Dim T As Word
Dim I As Word
Dim B As Byte
Dim W As Word
Dim J As Single
Dim K As Single
Dim Degree As Single

Declare Sub Transcod
Do
If Flag1 <> 0 Then
   Flag1 = 0
   Portd.5 = 1
   T = I * 256
   B = Timer0 : W = B
   T = T + W
   K = T
   Call Transcod
   J = K * Degree
   T = J
   Stop Timer1
   Timer1 = 65536 - T
   Start Timer1
   I = 0
   Timer0 = 0
End If
If Flag2 <> 0 Then
   Flag2 = 0
   Portd.5 = 0
   Stop Timer1
End If
If Flag3 <> 0 Then
   Flag3 = 0
   Incr I
End If
Loop
'быстрые прерывания
Capt:
$asm
    Push R31                                                'сохраним регистр
    Ldi R31 , 255                                           'Flag1 = 255
    Sts {Flag1} , R31
    Pop R31                                                 'восстановим
    Reti
$end Asm
Return

Pulse:
$asm
    Push R31                                                'сохраним регистр
    Ldi R31 , 255                                           'Flag2 = 255
    Sts {Flag2} , R31
    Pop R31                                                 'восстановим
    Reti
$end Asm
Return

Tmr0:
$asm
    Push R31                                                'сохраним регистр
    Ldi R31 , 255                                           'Flag3 = 255
    Sts {Flag3} , R31
    Pop R31                                                 'восстановим
    Reti
$end Asm
Return

Transcod:
'1.6086957E-05*x-0.015086957
Degree = K / 100000
Degree = Degree * 1.6086957
Degree = Degree - 0.015086957
If K >= 12000 Then
Degree = 0.185
End If
'Toggle Portd.6      for tachometer
Return

End

:1000000012C01895189518951895B6C0BCC01895CB
:1000100018951895AAC018951895189518951895BB
:100020001895189518958FED8DBFC0ECE6EA4E2E09
:10003000DD275D2EEEE7F0E0A0E6B0E0A89584B7FE
:10004000082E877F84BF88E1992781BD91BD8827CD
:100050008D933197E9F7662482E088B983E083BF06
:1000600080E080BF80E08FBD83E08EBD8EB5887F4D
:100070008EBD7894439A89B7806889BF89B78260BA
:1000800089BF8E9A8D9A959A00916400003009F488
:1000900055C080E080936400959AA9E60D911C916B
:1000A00040E051E0CDD0A7E60D931C938091520023
:1000B00080936B00ABE68C91ACE68D9388278C9394
:1000C000A7E60D911C91ACE64D915C91040F151FB4
:1000D000A7E60D931C93E7E6F0E0D190E080FF24C3
:1000E00000272CD1A2E75BD155D0E6E7F0E007D19D
:1000F000E2E7F0E0FFD0C9D1EDE0AEE683D2EEE674
:10010000F0E0BAD0A7E6DD92EC928EB5887F8EBD86
:1001100000E010E0A7E64D915C91041B150BA0E1F7
:100120008D919C919DBD8CBD83E08EBD80E090E063
:10013000A9E68D939C9380E0809352000091650026
:10014000003009F407C080E08093650095988EB573
:10015000887F8EBD00916600003009F405C080E004
:1001600080936600A9E644D08FCFFF93FFEFF09312
:100170006400FF9118951895FF93FFEFF0936500C9
:10018000FF9118951895FF93FFEFF0936600FF918C
:1001900018951895E0E1F6E00AD2E2E7F0E0AAD07F
:1001A0001ED1EDE0A6E72ED2E4E1F6E000D2E6E7CC
:1001B000F0E0A0D06AD1EDE0A6E724D2E8E1F6E0D5
:1001C000F6D1E6E7F0E096D091D1EDE0A6E71AD2BD
:1001D000E2E7F0E08FD0ECE1F6E0E9D1F1D108F40C
:1001E00004C0A6E7E0E2F6E005D20895F894FFCF58
:1001F000ED91FC91EF5FFF4FFC93EE93089504D0D7
:100200001FD000FC0CD008950024E89457FF02C0D2
:1002100009D0689400F80BD010F80124089502D09A
:1002200009D00895509540954F5F5F4F0895E89429
:1002300017FF0895009510950F5F1F4F689408955C
:10024000752F642F55274427FF93F1E1889405C04B
:1002500010F4460F571F5695479517950795FA9531
:10026000B9F7FF9108953197F1F70895689462F80E
:100270000895E89462F808953DD0992711278F2DAD
:10028000880F80E8F82A802F881F08F41FEF41F0BC
:100290008F57082F07FD04C0003240F08FEF01C0D8
:1002A0008827982FD82EE82EF82E09C08FE1801BC2
:1002B000082FF694E794D79497950A95D1F71123D0
:1002C00051F09095D094E094F09481E0980F8827B5
:1002D000D81EE81EF81E0F2DFE2CED2CD92E0895E9
:1002E000D094E094F09491E0D90E9927E91EF91E7C
:1002F00010950895D190E190F19001910895219188
:100300003191419151910895102F90E8FF0C001FF9
:100310000927990FF7941078652F90E8440F551F1F
:100320005927990F4795607800380895FF0C90E899
:100330009027110F9795F794092F0895102FBD2C32
:10034000DE2CEF2CF02E11234AF4B094D094E094DC
:10035000F0949FEFB91AD90AE90AF90A0EE1FF20D1
:1003600039F4FE2CED2CDB2CBB240850C2F76BC0FB
:1003700032F00A95BB0CDD1CEE1CFF1CF9CF01D03E
:10038000D5CFB7FE089590E8B91611F4D0FE0895C0
:100390009FEFD91AE90AF90A09F403950895DD9245
:1003A000ED92FD920C930895502F2D2D3E2D4F2D43
:1003B000612F08952DEC3CEC4CEC5DE366270FC0FB
:1003C00099DFF2DFDD24EE2490E8F92E0FE307C079
:1003D00096DF05C02227332740E251E466275523E4
:1003E00051F1002381F190DF71F116270058505828
:1003F0000894050B18F407FD03C025C007FD23C0B2
:10040000469537952795F694E794D79422D0FF2008
:100410002AF0DD0CEE1CFF1C015073F09D2D96950B
:1004200048F0DD203AF4EE202AF491E0D90E992725
:10043000E91EF91E7BCF07C09FE7092FF92A9FEF1E
:10044000D92EE92E0895DD24EE24FF24002711275C
:1004500008959F929924AA24BB2488E1D216E3062A
:10046000F40628F0D21AE30AF40A089401C088942A
:10047000991CAA1CBB1CDD0CEE1CFF1C8A9571F795
:10048000D92CEA2CFB2C9F9008953EDFE1F25038E6
:10049000D1F21627005850580894051F12F418F48A
:1004A000CBCF08F0D0CF0AD0FF202AF0BB0CDD1C48
:1004B000EE1CFF1C3BCF0F5FFBF138CF9F929924BE
:1004C000AA24BB24992788E1990CAA1CBB1CDD1C1B
:1004D000EE1CFF1C30F4920EA31EB41ED91EE91EA2
:1004E000F91E8A9589F79F90089509DF0DDF50382E
:1004F00029F090E869270CC00AF045D017CF5FE3D8
:1005000022273327442701C0FADEFEDE5038B1F33C
:10051000003899F3902F951B8BF312F434D0FACF57
:10052000983118F0222733274427983028F0232FBA
:10053000342F44279850F9CF992329F046953795C1
:1005400027959A95D9F7912F962742F014D0B0F6B7
:10055000F794E794D7940F5F8BF66ECF10D051F0DD
:1005600008F4BEDEFF2052F2DD0CEE1CFF1C015031
:10057000CBF762CF68CFD20EE31EF41E0895D21AD5
:10058000E30AF40A0895DF92EF92FF920F931F930C
:10059000D22EE32EF42E052F162F6F915F914F91DF
:1005A0003F912F910895C895319600200895FBDF63
:1005B000202DF9DF302DF7DF402DF5DF502D089588
:1005C00007FB00680EF40F7757FB50680EF45F7757
:1005D00007FD02C057FF05C0D216E306F406050763
:1005E00008952D153E054F055007089591E005C06B
:1005F00092E003C094E001C098E0D5DF0D929A9597
:10060000E1F7089594E081918D939A95E1F708952B
:100610000050C347BEE9CD3F492F773C00803B46A1
:04062000A4703D3E47
:00000001FF

All resistors are 0,25W
R1=10K
R2=10
R3=470
R5=0,22
(I recommend to use 0,47 Ohm or even 1 Ohm for first tests instead of 0.22,
to protects the MC34063,However charge time for the capacitor will be longer.
Once the capacitor charges quickly to 160V you can reduce the resistor.)
R8=180
R9=1K
R10=2,4K**
R11=300K**
R12=330
R14=3,3K
!==> R15: For ATtiny2313, R15 is replaced by 0.1uF capacitor <==
R16=3,3K
R17=4,7K
R18=4,7K

C1=47nF
C2=1,5µF, 400V  (at least 250Vdc)
C3=1,5nF
C4=2,2µF, 100V
! ==> C5: For ATtiny2313, C5 is replaced by 1k resistor <==
C6=470µF, 25V
C7=100nF
C8=15pF
C9=15pF
C10=10µF, 25V
C11=100nF

D1:1N4005
D2:1N4148
D3:BA189
D4:1N4148
D5:1N4148
D6:1N4148

IC3 attiny2313

Q1:BC327
!==> Q2:crystal: For ATtiny2313, 24Mhz is replaced by 20Mhz <==

T1: any power SCR (Thyristor),
TYN1012, BT151-800, test it out!

(better mount a heatsink on the MC34063)

L1: transformer from Conrad Electronics,
order #:51 66 43-88
Pri: 25 turns 0.5mm wire
sec: 160 turns 0,15mm wire
IMPORTANT: Leave little space
between ferrit halves (piece of paper on ONE Side)


**: Tolerance 2%