На перевес ардуинщикам предлагаю написать моргалку как можно короче

Поделиться12018-07-17 17:28:17

Автор: -NMi-
Заблокирован
Откуда: Саранск
Зарегистрирован: 2014-01-03
Приглашений: 0
Сообщений: 788
Уважение: [+23/-17]
Позитив: [+10/-0]
Пол: Мужской
Возраст: 50 [1976-07-18]
Провел на форуме:
12 дней 7 часов
Последний визит:
2019-05-10 01:04:35

Взято из видео какого-то недопрограммиста...
httpТыц://www.youtube.com/watch?v=38HLruh4SK8

Ну чО, попробуем написать свою моргалку?

0

Поделиться22018-07-17 17:38:16

Автор: Andrusha
Активный участник
Откуда: г. Нежин Украина
Зарегистрирован: 2016-06-16
Приглашений: 0
Сообщений: 470
Уважение: [+112/-1]
Позитив: [+158/-5]
Пол: Мужской
Провел на форуме:
1 месяц 16 дней
Последний визит:
Сегодня 12:30:18

Ну его нафиг. Руки тоже синими станут.

0

Поделиться32018-07-17 19:13:53

Автор: Пётр
Модератор
Зарегистрирован: 2009-01-18
Приглашений: 0
Сообщений: 2169
Уважение: [+447/-14]
Позитив: [+28/-6]
Пол: Мужской
Провел на форуме:
3 месяца 19 дней
Последний визит:
Вчера 19:21:04

https://habr.com/post/151544/
https://habr.com/post/151544/#comment_17497283

Отредактировано Пётр (2018-07-17 19:16:38)

0

Поделиться42018-07-17 21:15:41

Автор: -NMi-
Заблокирован
Откуда: Саранск
Зарегистрирован: 2014-01-03
Приглашений: 0
Сообщений: 788
Уважение: [+23/-17]
Позитив: [+10/-0]
Пол: Мужской
Возраст: 50 [1976-07-18]
Провел на форуме:
12 дней 7 часов
Последний визит:
2019-05-10 01:04:35

553 байта в баскоме.... кто меньше?

0

Поделиться52018-07-18 03:57:02

Автор: sasha_1973
Администратор
Откуда: Киев
Зарегистрирован: 2012-10-30
Приглашений: 0
Сообщений: 2536
Уважение: [+930/-17]
Позитив: [+796/-23]
Пол: Мужской
Возраст: 53 [1973-08-08]
Провел на форуме:
1 месяц 1 день
Последний визит:
2026-09-20 08:37:55

-NMi- написал(а):

553 байта в баскоме.... кто меньше?

Чисто спортивный интерес:
f МК = 20 Мгц
f выхода = f МК / 2 = 10 МГц

Bascom 2.0.7.1, размер исходника 108 byte

Симуляция - скачать

Отредактировано sasha_1973 (2018-07-18 03:57:35)

0

Поделиться62018-07-18 11:01:18

Автор: -NMi-
Заблокирован
Откуда: Саранск
Зарегистрирован: 2014-01-03
Приглашений: 0
Сообщений: 788
Уважение: [+23/-17]
Позитив: [+10/-0]
Пол: Мужской
Возраст: 50 [1976-07-18]
Провел на форуме:
12 дней 7 часов
Последний визит:
2019-05-10 01:04:35

'компактное моргало )))
$map
$regfile = "attiny85.dat"
$crystal = 8000000
$hwstack = 64
$swstack = 64
$framesize = 64
$noramclear
$noinit

Ddrb = &B_0000_1111

0000:

$asm
sbi portb,0
rcall pause

cbi portb,0
rcall pause
rjmp 0000

Pause:
clr r0
Pause_10:
dec r0
brne pause_10
ret

$end Asm
'компактное моргало )))
$map
$regfile = "attiny85.dat"
$crystal = 8000000
$hwstack = 64
$swstack = 64
$framesize = 64
$noramclear
$noinit

Ddrb = &B_0000_1111

0000:

$asm
sbi portb,0
rcall pause

cbi portb,0
rcall pause
rjmp 0000

Pause:
clr r0
Pause_10:
dec r0
brne pause_10
ret

$end Asm

80 байт. Кто меньше?

0

Поделиться72018-07-18 12:47:27

Автор: IDok
Активный участник
Откуда: Самара
Зарегистрирован: 2017-04-01
Приглашений: 0
Сообщений: 548
Уважение: [+55/-2]
Позитив: [+53/-0]
Пол: Мужской
Провел на форуме:
15 дней 7 часов
Последний визит:
2024-12-29 10:25:37

асм... не спортивно... :disappointed:

0

Поделиться82018-07-18 14:21:02

Автор: Nord
Администратор
Откуда: Россия
Зарегистрирован: 2016-01-19
Приглашений: 0
Сообщений: 2851
Уважение: [+598/-12]
Позитив: [+674/-1]
Пол: Мужской
Провел на форуме:
2 месяца 9 дней
Последний визит:
Сегодня 15:44:38

А существует ли где-нибудь информация, сколько занимает в памяти та или иная команда (оператор) Bascom и за сколько тактов она выполняется ?
Если не прибегать к листанию report'ов и сторонним замерам ?

0

Поделиться92018-07-18 15:20:43

Автор: -NMi-
Заблокирован
Откуда: Саранск
Зарегистрирован: 2014-01-03
Приглашений: 0
Сообщений: 788
Уважение: [+23/-17]
Позитив: [+10/-0]
Пол: Мужской
Возраст: 50 [1976-07-18]
Провел на форуме:
12 дней 7 часов
Последний визит:
2019-05-10 01:04:35

Только дизассемблером узнаешь.

0

Поделиться102018-07-18 21:06:47

Автор: RDW
Активный участник
Откуда: Москва
Зарегистрирован: 2011-05-11
Приглашений: 0
Сообщений: 2632
Уважение: [+233/-37]
Позитив: [+164/-62]
Пол: Мужской
Возраст: 50 [1976-07-28]
Провел на форуме:
20 дней 15 часов
Последний визит:
2026-02-20 18:21:41

-NMi- написал(а):

80 байт. Кто меньше?

Код:

$regfile = "attiny84.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 0
$framesize = 24
$noramclear
$noinit

Ddrb = &B_0000_0001                                         ' 1 - pin out (PB0)

' R0 - mask
' R1 - out data
' R2 - var wait

$asm
   clr r0                                                   ' 1 такт
   dec r0                                                   ' 1 такт
   clr r2                                                   ' 1 такт
Start:
   Out Portb , R1                                           ' 1 такт
   eor r1, r0                                               ' 1 такт
L00:
   dec r2                                                   ' 1 такт
   brne L00                                                 ' 1/2 такт(а)
   rjmp Start                                               ' 2 такт
$end Asm

' общее число тактов (с инициализацией) на разовый проход: 9 тактов
' циклов до ногодрыга, минимально: 6 тактов

Это 78 байт.

Что-то ещё доп компилятор генерит, если взять для МК без ОЗУ, то ещё меньше:

Код:

$regfile = "ATtiny15.DAT"
$crystal = 1000000
$tiny
$noinit
$noramclear
$hwstack = 6
$swstack = 0
$framesize = 0

Ddrb = &B_0000_0001                                         ' 1 - pin out (PB0)

' R0 - mask
' R1 - out data
' R2 - var wait

$asm
   clr r0                                                   ' 1 такт
   dec r0                                                   ' 1 такт
   clr r2                                                   ' 1 такт
Start:
   Out Portb , R1                                           ' 1 такт
   eor r1, r0                                               ' 1 такт
L00:
   dec r2                                                   ' 1 такт
   brne L00                                                 ' 1/2 такт(а)
   rjmp Start                                               ' 2 такт
$end Asm

40 байт.

BIN-ы под МК.

Отредактировано RDW (2022-02-23 10:55:50)

0

Поделиться112018-07-18 21:27:03

Автор: -NMi-
Заблокирован
Откуда: Саранск
Зарегистрирован: 2014-01-03
Приглашений: 0
Сообщений: 788
Уважение: [+23/-17]
Позитив: [+10/-0]
Пол: Мужской
Возраст: 50 [1976-07-18]
Провел на форуме:
12 дней 7 часов
Последний визит:
2019-05-10 01:04:35

clr r0
dec r0
равно ser r0 --- Экономия одного байта

0

Поделиться122018-07-18 22:37:08

Автор: RDW
Активный участник
Откуда: Москва
Зарегистрирован: 2011-05-11
Приглашений: 0
Сообщений: 2632
Уважение: [+233/-37]
Позитив: [+164/-62]
Пол: Мужской
Возраст: 50 [1976-07-28]
Провел на форуме:
20 дней 15 часов
Последний визит:
2026-02-20 18:21:41

-NMi- написал(а):

равно ser r0 --- Экономия одного байта

ser адресация только с R16-R31
я бы иначе так не извращался, сэкономить не получится

0

Поделиться132018-07-21 14:42:42

Автор: RDW
Активный участник
Откуда: Москва
Зарегистрирован: 2011-05-11
Приглашений: 0
Сообщений: 2632
Уважение: [+233/-37]
Позитив: [+164/-62]
Пол: Мужской
Возраст: 50 [1976-07-28]
Провел на форуме:
20 дней 15 часов
Последний визит:
2026-02-20 18:21:41

Мучил вопрос, насколько Баском больше код генерит, попробовал в АВР Студии тот же код сделать, чисто на ассемблере:

Код:

;
; PinG.asm
;
; Created: 21.07.2018 13:10:25
; Author : RDW
;


          ldi r16, 0b00000001 ; настраиваем на выход всего лишь ножку PA0
          out ddra, r16

          clr r0
          dec r0
          clr r2
Start:
          out Porta , r1
          eor r1, r0
L00:
          dec r2
          brne L00
          rjmp Start

В общем получил 20 байт! :rofl:
Работает.