Długi impuls TTL na układzie 90S2323 - kod i konfiguracja w Bascomie
Re: =?iso-8859-2?Q?D=B3ugi?= impuls TTL
From: Janusz_K <Janusz_k.anty_at_nospam_um.bielsko.pl>
Subject: Re: =?iso-8859-2?Q?D=B3ugi?= impuls TTL
Date: Wed, 19 Jun 2002 12:11:45 +0200
PZD, Irek.N.
ps. a może Bascomowcy się odezwą?
Przyszedł do roboty to się i odezwie :))
A więc zakładam to na 90S2323, układ prosty tylko 8 nóg,
wyjście impulsu na 5,czyli PB0.
$regfile = "2323def.dat"
$crystal = 2000000 ' kwarc w zasadzie dowolny (od 1 do 10M) w
przykladzie 2Mhz
Wyj Alias Portb.0 ' noga wyjściowa impulsu
Dim A As Byte
Config Portb = Output
Disable Interrupts
Do
Set Wyj
For A = 1 To 45 ' tutaj czekamy 45minut
Wait 60
Next
Reset Wyj
For A = 1 To 15 ' tutaj czekamy 15minut
Wait 60
Next
Loop
End
A jak chcesz skompilowany to tutaj hex:
1000000002C0189518958FE181BD87E181BD8FED04
100010008DBFC0ECEEE94E2EDD275D2EEEE7F0E061
10002000A0E6B0E088278D933197E9F766248FEF3B
1000300087BBF894C09A81E08093600000916000D3
100040000D3210F009F009C0ECE3F0E01CD0A0E69E
100050008C918F5F8C9309F0F1CFC09881E08093F1
100060006000009160000F3010F009F009C0ECE36F
10007000F0E009D0A0E68C918F5F8C9309F0F1CF6E
10008000D9CFF894FFCF88EE93E00CD03197D9F711
1000900008953197F1F70895689462F80895E89407
1000A00062F80895EF93FF93EE27E82BE92B31F0E8
1000B000E4EFF1E03197F1F70197D1F7FF91EF917C
0200C0000895A1
00000001FF
--
Pozdr.
Janusz
PS. Uwaga z adresu usuń '.ANTY'
From: Ireneusz Niemczyk <i.niemczyk_at_nospam_multispedytor.com.pl>
Subject: Re: =?iso-8859-2?Q?D=B3ugi?= impuls TTL
Date: Wed, 19 Jun 2002 12:47:19 +0200
Przyszedł do roboty to się i odezwie :))
Witamy...jak tam upał - żyjesz, czy siedzisz w serverowni?
{ciach programik}
Rozwiązałeś to radykalnie!
widzę tylko jedną wadę - czasy nie będą się zgadzać zbyt dokładnie ;-))
--
PZD, Irek.N.