https://bascomavr.bbok.ru/ Программирование ATMEL в BASCOM. ru-ru Thu, 10 Sep 2026 14:35:22 +0300 MyBB/mybb.ru https://bascomavr.bbok.ru/viewtopic.php?pid=36048#p36048 <div class="quote-box spoiler-box"><div onclick="$(this).toggleClass('visible'); $(this).next().toggleClass('visible');">Конвертируем ID от DS18B20 в HEX с разделителями</div><blockquote><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 35em"><pre>$regfile = &quot;8H1K08.DAT&quot; $crystal = 12000000 $ramsize = 1024 $map $large Dim 1w_arr_id(8) As Xram Byte 1w_arr_id(1) = 0 1w_arr_id(2) = 7 1w_arr_id(3) = 15 1w_arr_id(4) = 16 1w_arr_id(5) = 17 1w_arr_id(6) = 33 1w_arr_id(7) = 99 1w_arr_id(8) = 128 Dim 1w_id As Xram String * 23 Dim Tmp_s As String * 2 Dim I As Byte For I = 1 To 8 Tmp_s = Hex(1w_arr_id(i)) 1w_id = 1w_id + Tmp_s If I &lt; 8 Then 1w_id = 1w_id + &quot;:&quot; Next I '******************************************************************************* 'BAS Print &quot;BAS &quot; ; 1w_id '******************************************************************************* 1w_id = &quot;&quot; '******************************************************************************* 'ASM Gosub Sub_hex Print &quot;ASM &quot; ; 1w_id '******************************************************************************* Do : Loop Sub_hex: $asm MOV DPTR, #{1w_id} MOV R4, DPH MOV R5, DPL MOV DPTR, #{1w_arr_id} MOV R0, #0 Format_loop: MOVX A, @DPTR MOV R2, A INC DPTR PUSH DPH PUSH DPL MOV DPH, R4 MOV DPL, R5 MOV A, R2 ANL A, #240 Swap A ACALL Nibble_To_Ascii MOVX @DPTR, A INC DPTR MOV A, R2 ANL A, #15 ACALL Nibble_To_Ascii MOVX @DPTR, A MOV A, R0 CJNE A, #7, Add_Colon SJMP Save_Write_Ptr Add_colon: INC DPTR MOV A, #58 MOVX @DPTR, A Save_write_ptr: INC DPTR MOV R4, DPH MOV R5, DPL POP DPL POP DPH INC R0 CJNE R0, #8, Format_loop SJMP Format_End Nibble_to_ascii: CJNE A, #10, Check_Digit Check_digit: JC Is_Digit ADD A, #7 Is_digit: ADD A, #48 RET Format_end: $end Asm Return</pre></div></div></div></blockquote></div><p>Вывод:<br />BAS 00:07:0F:10:11:21:63:80<br />ASM 00:07:0F:10:11:21:63:80</p> mybb@mybb.ru (Кот Обормот) Thu, 10 Sep 2026 14:35:22 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=36048#p36048 https://bascomavr.bbok.ru/viewtopic.php?pid=36045#p36045 <p>Чтобы не было пустого места. Часов много не бывает!<br />600 грамм пластика.<br /><a href="https://upforme.ru/uploads/0000/25/b8/23/473633.jpg" rel="nofollow" target="_blank"><img class="postimg" loading="lazy" src="https://upforme.ru/uploads/0000/25/b8/23/t473633.jpg" alt="https://upforme.ru/uploads/0000/25/b8/23/t473633.jpg" /></a></p> mybb@mybb.ru (kotik) Tue, 08 Sep 2026 22:14:11 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=36045#p36045 https://bascomavr.bbok.ru/viewtopic.php?pid=36014#p36014 <p>С днем рождения!<br />С запозданием, был не на связи.<br />Желаю продвижения в нашем нелегком деле, чтобы интерес не пропадал!</p> mybb@mybb.ru (MACTEPok) Mon, 17 Aug 2026 08:16:04 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=36014#p36014 https://bascomavr.bbok.ru/viewtopic.php?pid=36013#p36013 <p>С днем рождения! Терпения и удачи! <br />Надеюсь, что все устаканится!</p> mybb@mybb.ru (MACTEPok) Mon, 17 Aug 2026 08:12:22 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=36013#p36013 https://bascomavr.bbok.ru/viewtopic.php?pid=35998#p35998 <p>Чисто посмеяться))<br />ДА, конечно монтаж: было CoBAS</p> <p><a href="https://upforme.ru/uploads/0000/25/b8/439/238443.jpg" rel="nofollow" target="_blank"><img class="postimg" loading="lazy" src="https://upforme.ru/uploads/0000/25/b8/439/t238443.jpg" alt="https://upforme.ru/uploads/0000/25/b8/439/t238443.jpg" /></a></p> mybb@mybb.ru (Александр Д.) Mon, 03 Aug 2026 12:10:30 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35998#p35998 https://bascomavr.bbok.ru/viewtopic.php?pid=35997#p35997 <p>да-да, нам очень просто оплатить 10 евро ))<br />Через посредников. <br />И всё равно - &quot;рашн = гамно&quot; для оного.<br />Нафиг его.<br />Работаю в 2083 - выше обновляться не вижу смысла.</p> mybb@mybb.ru (Александр Д.) Fri, 31 Jul 2026 18:33:41 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35997#p35997 https://bascomavr.bbok.ru/viewtopic.php?pid=35989#p35989 <p>присоединяюсь! :)</p> <p>он давненько тут не был...</p> mybb@mybb.ru (Александр Д.) Tue, 28 Jul 2026 20:21:16 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35989#p35989 https://bascomavr.bbok.ru/viewtopic.php?pid=35971#p35971 <p>С днем рождения! Пусть наше дело живет!</p> mybb@mybb.ru (MACTEPok) Tue, 30 Jun 2026 08:19:42 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35971#p35971 https://bascomavr.bbok.ru/viewtopic.php?pid=35966#p35966 <p>Спасиб большое народ!! Заглядую иногда))</p> mybb@mybb.ru (Yuriy.pv) Sat, 06 Jun 2026 08:57:00 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35966#p35966 https://bascomavr.bbok.ru/viewtopic.php?pid=35952#p35952 <div class="quote-box answer-box"><cite>Nord написал(а):</cite><blockquote><p>По просьбе форумчан создан новый Раздел<br /><strong>Применение Assembler в среде  Bascom 8051</strong></p></blockquote></div><p>Прошло три (!) недели, но Раздел не был востребован...<br />Отсюда вывод - необходимости в нем не было.</p> <p>Раздел удален, расширена тематика уже имевшегося Раздела.</p> <p>Необходимость создания новых Разделов в дальнейшем будет решаться коллегиально.</p> mybb@mybb.ru (Nord) Thu, 14 May 2026 17:24:54 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35952#p35952 https://bascomavr.bbok.ru/viewtopic.php?pid=35951#p35951 <p>С праздником всех причастных!</p> mybb@mybb.ru (MACTEPok) Tue, 12 May 2026 07:32:54 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35951#p35951 https://bascomavr.bbok.ru/viewtopic.php?pid=35950#p35950 <p>С Праздником, с Днём победы!<br />как молилась бабушка о павших: Мир праху ихнему да сил живущим</p> mybb@mybb.ru (Александр Д.) Sat, 09 May 2026 10:29:07 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35950#p35950 https://bascomavr.bbok.ru/viewtopic.php?pid=35947#p35947 <p>спасибо))<br />Взаимно!</p> mybb@mybb.ru (Александр Д.) Fri, 01 May 2026 12:39:02 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35947#p35947 https://bascomavr.bbok.ru/viewtopic.php?pid=35924#p35924 <p>всё, не купить больше их на Озоне! Сняли, а цена в отложенных - меняется каждый день ))) прикольно</p> mybb@mybb.ru (Александр Д.) Wed, 15 Apr 2026 09:29:02 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35924#p35924 https://bascomavr.bbok.ru/viewtopic.php?pid=35923#p35923 <p>Поздравляю !&#160; :cool:&#160; :flag: </p> <p>Здоровья, удачи, мирного неба и творческого настроения !</p> mybb@mybb.ru (Nord) Wed, 15 Apr 2026 00:27:01 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35923#p35923 https://bascomavr.bbok.ru/viewtopic.php?pid=35920#p35920 <p>Мира и добра всем нам!</p> mybb@mybb.ru (Александр Д.) Sun, 12 Apr 2026 22:18:14 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35920#p35920 https://bascomavr.bbok.ru/viewtopic.php?pid=35916#p35916 <div class="quote-box answer-box"><cite>Александр Д. написал(а):</cite><blockquote><p>Если я верно понял, самое вкусное в симуляторе. Но это не точно ))</p></blockquote></div><p>При любом раскладе человек пришел к нам по адресу ;)</p> mybb@mybb.ru (Nord) Wed, 08 Apr 2026 21:20:05 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35916#p35916 https://bascomavr.bbok.ru/viewtopic.php?pid=35889#p35889 <p>Мои поздравления! Всех благ, времени, желания, вдохновения!</p> mybb@mybb.ru (MACTEPok) Mon, 30 Mar 2026 10:25:47 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35889#p35889 https://bascomavr.bbok.ru/viewtopic.php?pid=35886#p35886 <p>Спасибо всем!</p> mybb@mybb.ru (kotik) Sun, 29 Mar 2026 05:48:54 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35886#p35886 https://bascomavr.bbok.ru/viewtopic.php?pid=35802#p35802 <p>Всем спасибо! с меня по кусочку пиццы!</p> mybb@mybb.ru (MACTEPok) Wed, 21 Jan 2026 15:00:09 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35802#p35802 https://bascomavr.bbok.ru/viewtopic.php?pid=35778#p35778 <p>С Новым годом!</p> mybb@mybb.ru (kotik) Thu, 01 Jan 2026 22:08:12 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35778#p35778 https://bascomavr.bbok.ru/viewtopic.php?pid=35776#p35776 <div class="quote-box answer-box"><cite>kip написал(а):</cite><blockquote><p>Как вариант, забить серийник готового устройства.</p></blockquote></div><p>Это должны делать при производстве например как в STM32. <a href="https://bascomavr.bbok.ru/viewtopic.php?id=1592&amp;p=4#p25158">Изучаем ARMы</a><br />А однократно программируемая память это может имеет смысл при серийном производстве когда раз зашил и все. Но для любительских целей обычно не имеет смысла потому что МК не раз перепрошивается, а встроенного флеша в МК нет.</p> mybb@mybb.ru (Пётр) Thu, 01 Jan 2026 17:43:32 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35776#p35776 https://bascomavr.bbok.ru/viewtopic.php?pid=35718#p35718 <div class="quote-box spoiler-box media-box"><div onclick="toggleSpoiler(this);">могут даже так нарезать</div><blockquote></blockquote><script type="text/html"><p><a href="https://upforme.ru/uploads/0000/25/b8/2167/181205.jpg" rel="nofollow" target="_blank"><img class="postimg" loading="lazy" src="https://upforme.ru/uploads/0000/25/b8/2167/t181205.jpg" alt="https://upforme.ru/uploads/0000/25/b8/2167/t181205.jpg" /></a></p></script></div><p>В этот раз все заказы ушли через russian post. Больше месяца заняло по времени.</p> mybb@mybb.ru (Кот Обормот) Wed, 10 Dec 2025 13:39:00 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35718#p35718 https://bascomavr.bbok.ru/viewtopic.php?pid=35717#p35717 <p>Здоровья, удовольствия от жизни, хобби и семьи!&#160; :idea:</p> mybb@mybb.ru (Александр Д.) Wed, 10 Dec 2025 11:30:34 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35717#p35717 https://bascomavr.bbok.ru/viewtopic.php?pid=35661#p35661 <p>Ну почему же, есть отличия. В баскоме alias, а в pic basic - symbol.<br />Там и там язык бейсик. Поэтому ключевые слова похожи.</p> mybb@mybb.ru (Пётр) Sat, 22 Nov 2025 19:15:39 +0300 https://bascomavr.bbok.ru/viewtopic.php?pid=35661#p35661