Пещера отшельного фердопердозника

PHP 5.2.13 for Debian Squeeze

datacompboy — Mon, 12 Apr 2010 08:12:20 +0000

Понадобилось тут. Заманался гуглить готовые решения — собрал.
Пакеты для amd64 лежат тут.
Для самостоятельной сборки под другие архитектуры, скачайте
php5_5.2.13-1.diff.gz
php5_5.2.13-1.dsc
php5_5.2.13.orig.tar.gz

МоеДело — спасение для бухгалтерии ИП

datacompboy — Sat, 06 Mar 2010 16:14:44 +0000

Как человек, пытающийся перейти на полную белую бухгалтерию во всех расчетах, не могу не сообщить всем, о существовании (пока зарождающегося, но явно отличного) сервиса МоеДело.
Полная отчетность, сдача налоговой отчетности онлайн, бух. и юр. консультация [я их уже замучал, наверное, но получил все ответы на все мучающие меня вопросы, правильно и в срок :)].
При оплате в поле «промокод» введите цифры 074721, получите 10% скидки.
Для ИП с микрооборотом (не более 5 счетов и актов в месяц) вообще бесплатно.
Если вы только собираетесь открыть ИП — там же бесплатный мастер подготовки документов для регистрации.

Немного сумбурно, но всячески рекомендую — проверено, сервис супер!

Flash Compiler as Is

datacompboy — Sat, 20 Feb 2010 18:24:07 +0000

Не могу молчать об этом!
Ковырялся тут с флешем. Это может шокировать любого IT специалиста.
Класс:
var A : Number = 0.0; A = A*2*4;
И его дизассемблятина:
5 pushdouble 0 7 convert_d 8 setlocal1 9 getlocal1 10 pushbyte 2 12 multiply 13 pushbyte 4 15 multiply 16 convert_d 17 setlocal1
Даже в 21м веке остались подходы из 80ых! Долой оптимизаторы!
На железе с гигафлопом итоговая производительность в районе полутора мегафлопов.

p.s.: haXe транслирует так же.

WavPlayer 1.7.1 — full JS api and support for reversed order bits .lu and .la

datacompboy — Wed, 27 Jan 2010 10:30:46 +0000

New version of WavPlayer, 1.7.1 released.

To get it, just press on snapshot link with wanted format
Changelog:
* Fixed README
* Full JS api: now pause/resume/seek available from external interface
* New integration code, «just for play». See in tinyembed.html
* Hosted in online git store, so you can just download snapshot of needed version, without git files itself.

Скачать теперь можно из git репозитория, просто нажав на ссылку желаемого формата рядом со словом snapshot.
Изменения:
* Обновлена информация в README файле
* Теперь из JS доступны все функции, включая паузу/продолжение/позиционирование
* Добавлен новый код интеграции, предназначенный для создания просто проигрывателя. Смотрите в tinyembed.html
* Теперь вместо постоянно увеличивающегося по размеру архива дерева, он доступен из онлайн репозитория.

Умножение

datacompboy — Thu, 03 Dec 2009 09:13:08 +0000

16битная математика для 8051 / ADuC847. Обычная и стандартная задача, встречающаяся сплошь и рядом. Просто? Давайте посмотрим.
Пусть у нас есть два 16битных беззнаковых числа во внутренней памяти: U1:U0 и V1:V0. Нужно вычислить их произведение, результат сложить в регистрах R0-R3.

R3:R2:R1:R0 = U1:U0 * V1:V0
Рассмотрим классический алгоритм вычисления этого произведения «в столбик»:

       U1:U0
*      V1:V0
 -----------
+      U0*V0
+   V0*V1
+   U1*V0
+U1*V1
 -----------
 R3:R2:R1:R0

Теперь закодируем его «в лоб», и подсчитаем число циклов, требующиеся для вычисления:

Classic			Classic+
Code	8051	ADuC847	Code	8051	ADuC847
MOV A, U1	1	2	MOV R4, #0	1	2
MOV B, V1	2	3	MOV A, U1	1	2
MUL AB	4	4	MOV B, V1	2	3
MOV R2, A	1	1	MUL AB	4	4
MOV R3, B	2	2	MOV R2, A	1	1
MOV A, U1	1	2	MOV R3, B	2	2
MOV B, V0	2	3	MOV A, U1	1	2
MUL AB	4	4	MOV B, V0	2	3
MOV R1, A	1	1	MUL AB	4	4
MOV A, R2	1	1	MOV R1, A	1	1
ADD A, B	1	2	MOV A, R2	1	1
MOV R2, A	1	1	ADD A, B	1	2
MOV A, R3	1	1	MOV R2, A	1	1
ADDC A, #0	1	2	MOV A, R3	1	1
MOV R3, A	1	1	ADDC A, R4	1	1
MOV A, U0	1	2	MOV R3, A	1	1
MOV B, V1	2	3	MOV A, U0	1	2
MUL AB	4	4	MOV B, V1	2	3
ADD A, R1	1	1	MUL AB	4	4
MOV R1, A	1	1	ADD A, R1	1	1
MOV A, R2	1	1	MOV R1, A	1	1
ADDC A, B	1	2	MOV A, R2	1	1
MOV R2, A	1	1	ADDC A, B	1	2
MOV A, R3	1	1	MOV R2, A	1	1
ADDC A, #0	1	2	MOV A, R3	1	1
MOV R3, A	1	1	ADDC A, R4	1	1
MOV A, U0	1	2	MOV R3, A	1	1
MOV B, V0	2	3	MOV A, U0	1	2
MUL AB	4	4	MOV B, V0	2	3
MOV R0, A	1	1	MUL AB	4	4
MOV A, R1	1	1	MOV R0, A	1	1
ADD A, B	1	2	MOV A, R1	1	1
MOV R1, A	1	1	ADD A, B	1	2
MOV A, R2	1	1	MOV R1, A	1	1
ADDC A, #0	1	2	MOV A, R2	1	1
MOV R2, A	1	1	ADDC A, R4	1	1
MOV A, R3	1	1	MOV R2, A	1	1
ADDC A, #0	1	2	MOV A, R3	1	1
MOV R3, A	1	1	ADDC A, R4	1	1
	56	71	MOV R3, A	1	1
				57	69

Итак, на классическом ядре 8051 этот алгоритм потребует 56 циклов по 12 тактов каждый = 672 такта, что при осциляторе 11059200 составит 60.76 микросекунд.
У однотактового ядра ADuC847 некоторые операции требуют больше циклов, но каждый цикл = 1 такту. Так что 71 цикл = 71 такт. При стандартном часовом осциляторе 32768 и стандартном множителе в 48 (1.57 мегагерца) время вычисления составит 45 микросекунд. На максимальной скорости (множитель 384, 12.58 мегагерца) время вычисления будет 5.64 микросекунды.
Быстро? Очень быстро. Но если мы возьмём вместо операции ADDC A, #0 (2 цикла) операцию ADDC A, R4 (1 цикл), и предварительно обнулим R4, то в случае ADuC847 удастся сэкономить еще 2 цикла (колонка Classic+) если R4 придётся обнулить в этом месте, и 4 цикла, если он уже был обнулен где-то выше.

А можно ли быстрее? Часто встречающийся 8051Math считает именно таким образом. Во всех проектах, что я писал — вычислялось именно так. Но… Порядок имеет значение. Рассмотрим вот этот код:

Code	8051	ADuC847	Code	8051	ADuC847
Opt1			Opt1+
MOV A, U1	1	2	MOV A, U1	1	2
MOV B, V1	2	3	MOV B, V1	2	3
MUL AB	4	4	MUL AB	4	4
MOV R2, A	1	1	MOV R2, A	1	1
MOV R3, B	2	2	MOV R3, B	2	2
MOV A, U0	1	2	MOV A, U0	1	2
MOV B, V0	2	3	MOV B, V0	2	3
MUL AB	4	4	MUL AB	4	4
MOV R0, A	1	1	MOV R0, A	1	1
MOV R1, B	2	2	MOV R1, B	2	2
MOV A, U1	1	2	MOV R4, #0	1	2
MOV B, V0	2	3	MOV A, U1	1	2
MUL AB	4	4	MOV B, V0	2	3
ADD A, R1	1	1	MUL AB	4	4
MOV R1, A	1	1	ADD A, R1	1	1
MOV A, R2	1	1	MOV R1, A	1	1
ADDC A, B	1	2	MOV A, R2	1	1
MOV R2, A	1	1	ADDC A, B	1	2
MOV A, R3	1	1	MOV R2, A	1	1
ADDC A, #0	1	2	MOV A, R3	1	1
MOV R3, A	1	1	ADDC A, R4	1	1
MOV A, U0	1	2	MOV R3, A	1	1
MOV B, V1	2	3	MOV A, U0	1	2
MUL AB	4	4	MOV B, V1	2	3
ADD A, R1	1	1	MUL AB	4	4
MOV R1, A	1	1	ADD A, R1	1	1
MOV A, R2	1	1	MOV R1, A	1	1
ADDC A, B	1	2	MOV A, R2	1	1
MOV R2, A	1	1	ADDC A, B	1	2
MOV A, R3	1	1	MOV R2, A	1	1
ADDC A, #0	1	2	MOV A, R3	1	1
MOV R3, A	1	1	ADDC A, R4	1	1
	50	62	MOV R3, A	1	1
				51	62

Вуаля! 50 циклов вместо 56 для классического ядра (600 тактов, 54 микросекунды) и 62 цикла (от 39.4 до 4.9 микросекунд) для ADuC847. 10% ускорение просто за счет смены порядка операций: вычисляем сперва старшую половину, которую можно сохранить просто через MOV, вычисляем младшую половину, которую так же можно просто сохранить через MOV, и потом две средних половины. В результате, вместо 3х длинных сложений – остаётся два. К тому же, так как сложений осталось только два, исчезла разница между сложением с прямым нулём или регистром. Сэкономить на ADuC847 можно только если уже есть какой-либо нулевой регистр Rn.

Вспомним еще о методике быстрого умножения. При этом, для вычисления U*V используется такая формула:
U*V = (2²ⁿ+2ⁿ)*(U₁*V₁)+2ⁿ*(U₁-U₀)*(V₀-V₁)+(2ⁿ+1)*U₀*V₀
В отличие от классической
U*V = 2²ⁿ*U₁*V₁+2ⁿ*U₁*V₀+2ⁿ*U₀*V₁+U₀*V₀
В ней требуется только 3 умножения. Однако схема не применима для случая 16битной арифметики на ядре 51го процессора:

R3:R2:R1:R0 = 0
R3:R2 += U1*V1
R2:R1 += U1*V1
R2:R1 += U0*V0
R1:R0 += U0*V0
    R2:R1 += (U1-U0)*(V0-V1) ! Signed
X=|U1-U0|	sX=sign(U1-U0)
Y=|V0-V1|	sY=sign(V0-V1)
sX=sY ?	R2:R1 += XY
sX!=sY ?	R2:R1 -= XY

Как видим, при вычислении потребуется одно _знаковое_ умножение, которое реализуется исключительно через вычисление модуля и знака по отдельности, сравнения знаков и сложения или вычитания результата.

Fast1
Code	8051	ADuC847
MOV A, U1	1	2
MOV B, V1	2	3
MUL AB	4	4
MOV R2, A	1	1
MOV R3, B	2	2
MOV R1, A	1	1
MOV A, R2	1	1
ADD A, B	1	2
MOV R2, A	1	1
MOV A, R3	1	1
ADDC A, #0	1	2
MOV R3, A	1	1
MOV A, U0	1	2
MOV B, V0	2	3
MUL AB	4	4
MOV R0, A	1	1
ADD A, B	1	2
MOV F0, C	2	2
ADD A, R1	1	1
MOV R1, A	1	1
MOV A, R2	1	1
ORL C, F0	2	2
ADDC A, B	1	2
MOV R2, A	1	1
MOV A, R3	1	1
ADDC A, #0	1	2
MOV R3, A	1	1
CLR C	1	1
MOV A, U1	1	2
SUBB A, U0	1	2
MOV F0, C	2	2
JNC L1	2	3
CPL A	1	1
INC A	1	1
CLR C	1	1
L1: MOV B, A	1	2
MOV A, V0	1	2
SUBB A, V1	1	2
JNC L2	2	3
CPL A	1	1
INC A	1	1
JC AA	2	3
ANL C, /F0	1	2
JMP BB	2	3
AA: ORL C, F0	1	2
BB: MOV F0, C	2	2
MUL AB	4	4
JB F0, Lsub	2	4
ADD A, R1	1	1
MOV R1, A	1	1
MOV A, R2	1	1
ADDC A, B	1	2
MOV R2, A	1	1
MOV A, R3	1	1
ADDC A, #0	1	2
MOV R3, A	1	1
JMP END	2	3
Lsub:
XCH A, R1	1	1
SUBB A, R1	1	1
MOV R1, A	1	1
MOV A, B	2	2
XCH A, R2	1	1
SUBB A, R2	1	1
MOV R2, A	1	1
MOV A, R3	1	1
SUBB A, #0	1	2
MOV R3, A	1	1
END:
	80	104

Как видим, одно умножение — это 4 такта. Одно знаковое умножение — гораздо больше. Поэтому, заменив два беззнаковых умножения одним знаковым, потери составили 30 циклов для 8051 (32.5 микросекунды) и 42 цикла для ADuC847 (от 26.7 до 3.3 микросекунд).

Мораль сей басни такова: порядок имеет значения, и не всегда прямой лучше кривого. Экономьте с нами! :)

Asterisk records flash player — WavPlayer 1.6.1

datacompboy — Sun, 29 Nov 2009 10:12:42 +0000

Продолжаем эпопею с прямым проигрыванием записанных asterisk’ом файлов. Новый релиз WavPlayer: 1.6.1.
Скачать полно дерево исходников WavPlayer-src-1.6.1.7z(463Kb) либо просто пример интеграции: WavPlayer-sample-1.6.1.tar.bz2(30Kb).

Update: WavPlayer 1.7.1

В новой версии:

Добавлен выбор интерфейса: однокнопочный (gui=lite) или с полосой позиционирования по файлу (gui=full).
Добавлена возможность ставить проигрывание на паузу и возобновлять проигрывание
Добавлена возможность позиционирования по загруженной части файла. В пределах 5 секунд от текущего положения переход сразу, дальше идёт заново перересемплинг, поэтому позиционируется на нужное количество времени раньше, заполняя тишиной.
В события play/stop/pause/buffering добавлена информация о положении по файлу, для точной привязки JS интерфейса
Исправлена внутренняя структура проигрывателя, теперь читалки файлов выглядят так:
```
       IFile < - File
               / | \
         FileAu  |  FileWav
              FileRaw
              /  ||  \
       FileAlaw /  \  FileSln
          FileGsm  FileUlaw
```
вся логика работы вынесена в общий File, читатели FileAu и FileWav определяют только чтение заголовков, а FileRaw вообще определяет только метод проверки готов ли файл к считыванию, его наследники определяют все параметры статически в конструкторе.
Все операции, производимые декодером ограничены по количеству обрабатываемых данных, держится декодированным только кеш +-5 секунд от текущего проигрываемого положения, за один присест из входящего потока копируется не более 64К данных, данные копируются по таймеру а не по приходу (это исправляет проблему работы в IE)
Приложил пример интеграции проигрывателя в страницу просмотра: смотреть.
Система интеграции:
- В некую папку (у меня это ec/res/) складываются domready.js swfobject.js expressInstall.swf wavplayer.swf и wavplayer.js.
- На странице должен быть некий якорный элемент (у меня это заголовок h3), после (внутрь, до, итп) которого будет встроен проигрыватель
- И на странице должны быть ссылки на файлы с записями
- Настраиваем wavplayer.js в самом конце:
  - window.WavPlayer = new WavPlayer('WavPlayerBlock', "Play");
    — меняем «Play» на любую строку, на которую будут заменяться ссылки после загрузки проигрывателя
  - var hs = document.getElementsByTagName('h3'); if (hs.length == 1) { hs = hs[0]; attachPoint = hs.parentElement ? hs.parentElement : hs.parentNode; attachAnchor = hs.nextSibling; } attachPoint.insertBefore(Player, attachAnchor);
    Определяет точку подключения флешпроигрывателя. В моем случае — проигрыватель встраивается после единственного h3 на странице. Для вашего случая, написать как потребуется.
  - var vars = {}; var params = {'scale': 'noscale', 'bgcolor': '#FFFFFF'}; swfobject.embedSWF("ec/res/wavplayer.swf?gui=full&w=600&h=20", "WavPlayerBlock", "600", "20", "10.0.32.18", "/ec/res/expressInstall.swf", vars, params, params);
    — задать пусть до проигрывателя и инсталлятора, настроить ширину и высоту проигрывателя (в двух местах — w=…&h=… и два аргумента после WavPlayerBlock). Задать тип интерфейса (gui=full или gui=lite). Задать цвет фона проигрывателя, чтобы «сливался с окружением». Если требуется, чтобы флеш-интерфейс был невидимым, задайте w=40&h=40, но размеры (после WavPlayerBlock) — «0″, «0″.
- Вписываем в страницу со списком записей вызов нужных скриптов:
```
<script src="ec/res/domready.js"></script><script src="ec/res/swfobject.js"></script><script src="ec/res/wavplayer.js"></script>
```
Любые вопросы приветствуются :)

Теория и практика применения термосопротивления на ADuC847

datacompboy — Mon, 09 Nov 2009 19:05:01 +0000

В прошлый раз, было описано как измерить температуру с помощью термопары. Термопара позволяет производить измерение в довольно широком диапазоне, но в случае, когда нужна высокая стабильность измерения и чуствительность к малым изменениям — применяют термосопротивления.
Термосопротивления работают в меньшем диапазоне (до 600 градусов в пределе), зато они описываются полиномом второй степени (третьей, если включать отрицательный диапазон), имеют очень высокую стабильность считываемого показания (поскольку сигнал измеряется десятками Ом на градус, а не милливольтами).

Чтобы измерить температуру с помощью термосопротивления, нужно замерить его сопротивление, и по его передаточной характеристике определить температуру. Для измерения сопротивления через резистор пропускают ток и с помощью АЦП замеряют напряжение на резисторе. Не вдаваясь в схемотехнику, примем следующее: к паре AIN1-AIN2 подведены выводы с термосопротивления, к паре AIN3-AIN4 подведены выводы с опорного стабильного сопротивления. Через оба резистора идёт один и тот же ток. Теперь, чтобы получить текущее сопротивление терморезистора нужно сделать следующее:
1. Измеряем напряжение на опорном сопротивлении. Uo=I*Ro (где Uo — напряжение опоры, Ro — опорное сопротивление).
2. Измеряем напряжение на термосопротивлении. Uт=I*Rт.
3. I = Uo/Ro, Rт = Uт/I = Uт/Uo * Ro
Таким образом, чтобы выяснить текущее сопротивление нам нужно измерить отношение напряжений между опорным и измерительным резисторами и домножить на сопротивление опорного резистора. Поскольку операция деления является черезвычайно дорогой, воспользуемся тем, что пара AIN3-AIN4 может использоваться как опора. При этом, снимаемый код будет ни чем иным, как «какое напряжение имеет сигнал с пары, считая что опора на REFIN(или REFIN2) равна 2.5В». То есть, измеренный сигнал приводится к «известной» опоре.

При этом следует помнить, что мы так же можем включить умножение измеряемого сигнала такое, чтобы полный диапазон температур использовал все доступные эффективные биты ацп. Следует так же помнить, что напряжение с опорного сопротивления желательно иметь близким, но не большим чем 2.5В.

В моем случае, опорное сопротивление составляет 5КОм (2 резистора по 10КОм в параллель), напряжение с опорного сопротивления около 2В.
При этом, включив делитель измерения 0.064, полный диапазон температур (до 600 градусов) умещается во все 24 разряда АЦП.

В результате исследования шумов измерительного тракта, оказалось, что «осмысленными» являются толькол 14.5 бит измеряемого сигнала, что означает, что из измеряемых 24 разрядов можно использовать только старшие 16, так как младшие представляют собой только шум.

Итак, у нас есть опорное напряжение около 2В на AIN3-AIN4, термосопротивление (платина 100Ом) подключено к паре AIN1-AIN2, и мы хотим узнать температуру в градусах. Первым делом, нам нужно измерить отношение напряжения на термосопротивлении к опорному напряжению. Для этого

                 MOV  ADC0CON2, #10001010b ; Измерение AIN1-AIN2 относительно AIN3-AIN4 (REFIN2)
                 MOV  ADC0CON1, #00100011b ; Измерение 0...160mV (REF*0.064)
                 MOV  ADCSF, #REQ_SF
                 MOV  ADCMODE, #00100100b ; Калибровка нуля
                 MOV  ADCMODE, #00100101b ; Калибровка максимума
                 MOV  ADCMODE, #00100010b ; Запросить 1 измерение на основном АЦП

настраиваем основной ацп на измерение отношения к REFIN2, включаем подходящее усиление, настраиваем ацп (загружая заводские настройки) и запускаем измерение. После измерения, будет вызвано прерывание от АЦП (вектор 33H), где

; INTERRUPT from ADC
         ORG 0033H
ADCInt:  MOV DataH, ADC0H ; Термопару сохраняем в DataH/M/L
         MOV DataM, ADC0M
         MOV DataL, ADC0L
         SETB ADCReady    ; И ставим бит ADCReady. Бит ADCBusy сбросит основная программа
         CLR RDY0
         RETI

,
считываем код ацп и выходим. Итак, у нас есть измеренное с АЦП значение (Кт), которое представляет собой Uт, считая что Uо=2.5В, еще и усиленное.
В числах, после удаления делителей, некратных степени двойки, получаем:
8000*Rт = 2*Rо*Кт / 256
Взяв 2*Rо за калибровочный коэффициент (в случае использования идеальных компонент 2Rо = 10000), построим таблицу соответствия 8000*Rт => Температура. Для этого накидаем маленькую простенькую программку, которая через каждые 65536 значений для 8000*Rт выдаст соответствующую температуру. Аналогично прошлому разу, температуру будем задавать в квантах по 1/32 градуса (фиксированная двоичная точка в 5 бит).

В сухом остатке, у нас есть: таблица из 40 точек термосопротивления, между каждой из которых 65536 отсчетов, а сама таблица содержит линейную температуру в кельвинах (чтобы работать с беззнаковыми числами), код с АЦП и калибровочный коэффициент наклона. Дальше вычисления просты:
1. Перемножаем 16бит кода АЦП на 16бит коэффициент. Из результата оставляем только 3 старших байта (для деления на 256 нужно отбросить младший байт).
2. Из полученных 24 бит, старшие 8 бит — точка входа в таблицу (она построена через 65536 значения)
3. Из таблицы выбираем пару чисел в точке входа, выбираем следующую пару и вычисляем разницу между следующей парой и текущей — получаем температурную длину диапазона
4. Умножаем разницу по таблице на младшие 16бит произведения, считая только старшие 16 бит результата — получаем фактическую добавку температуры внутри диапазона
5. Прибавляем к фактической добавке начало диапазона — мы определили температуру.

В коде это выглядит примерно так:

CalcMainRes:
    ; Вычислить как термосопротивление
    ; В Data1 - напряжение на терморезисторе, относительно опоры
    ; U0 = I*R0; }  I=U0/R0
    ; U1 = I*R1; }  R1=U1/U0*R0
    ; где Data1 < => U1, R0 = 5K, U0=2.5В
    ; ================================= Таблица температур в 40 точках через
    ; == 8000*R1 = [2R0]*Data1 / 256 == 65535 от 8000*R1
    ; ================================= Калибровочный 2R0 изначально 10000
    ; R2:R1:R0 = Data1*Coeff/256
    MOV A, Data1H ;  R2:R1 = Data1H*CoeffH
    MOV B, CoeffH
    MUL AB
    MOV R2, B
    MOV R1, A
    ; ---
    MOV A, Data1M ; R1:R0 = Data1M*CoeffH
    MOV B, CoeffH
    MUL AB
    MOV R0, A
    MOV A, B
    ADD A, R1
    MOV R1, A
    JNC CMRNoOv1
    INC R2
CMRNoOv1:
    ; ---
    MOV A, Data1H ; R1:R0 = Data1H*CoeffL
    MOV B, CoeffL
    MUL AB
    ADD A, R0
    MOV R0, A
    MOV A, B
    JNC CMRNoOv2
    INC A
    JNZ CMRNoOv2
    INC R2
CMRNoOv2:
    ADD A, R1
    MOV R1, A
    JNC CMRNoOv3
    INC R2
CMRNoOv3:
    ; ---
    MOV A, Data1M ; R0:Tmp = Data1M*CoeffL
    MOV B, CoeffL
    MUL AB
    JNB ACC.7, CMRNoOv4
    INC R0
    CJNE R0, #0, CMRNoOv4
    INC R1
    CJNE R0, #0, CMRNoOv4
    INC R2
CMRNoOv4:
    MOV A, B
    ADD A, R0
    JNC CMRNoOv5
    INC R1
    CJNE R1, #0, CMRNoOv5
    INC R2
CMRNoOv5:
    ; R2:R1:R0 = [2R0]*Data1/256.
    ; R2 = Вход в таблицу термосопротивления
    ; R1:R0 = интерполянт в таблице
    MOV A, R2
    ADD A, R2 ; A=2*R2
    ADD A, #LOW(RTD_100_385)
    MOV DPL, A
    MOV A, #HIGH(RTD_100_385)
    ADDC A, #0
    MOV DPH, A ; DPTR=таблица
    CLR A
    MOVC A, @A+DPTR
    MOV R4, A
    CLR A
    MOVC A, @A+DPTR
    MOV R5, A ; R5:R4 = текущая точка таблицы
    CLR A
    MOVC A, @A+DPTR
    CLR C
    SUBB A, R4
    MOV R6, A ; R7:R6 = разница следующей и текущей точек таблицы
    CLR A
    MOVC A, @A+DPTR
    SUBB A, R5
    MOV R7, A
    ; ThermoHL = R5:R4+(R7:R6*R1:R0)/65536
    ; R7*R1 => ThermoHL
    MOV A, R7
    MOV B, R1
    MUL AB
    MOV ThermoH, B
    MOV ThermoL, A
    ; R6*R1 => ThermoL:Tmp
    MOV A, R6
    MOV B, R1
    MUL AB
    MOV Tmp1, A
    MOV A, B
    ADD A, ThermoL
    MOV ThermoL, A
    JNC CRMTNoOv1
    INC ThermoH
CRMTNoOv1:
    ; R7*R0 => ThermoL:Tmp
    MOV A, R7
    MOV B, R0
    MUL AB
    ADD A, Tmp1
    JNB ACC.7, CRMTNoOv2
    INC ThermoL
    MOV A, ThermoL
    JNZ CRMTNoOv2
    INC ThermoH
CRMTNoOv2:
    MOV A, B
    ADDC A, ThermoL
    ;MOV ThermoL, A
    JNC CRMTNoOv3
    INC ThermoH
CRMTNoOv3:
    ; THermoHL += R5:R4
    ADD A, R4
    MOV ThermoL, A
    JNC CRMTNoOv4
    INC ThermoH
CRMTNoOv4:
    MOV A, R5
    ADD A, ThermoH
    MOV ThermoH, A
    ; ThermoH вычислено
    JMP CalcEnd

Отдельного внимания, конечно, заслуживает генератор таблицы… Однако, поскольку «математик» у меня только слово в дипломе, пытаться вывести обратный полином я не стал, а нарисовал просто итерационный процесс, который пробегает по одному градусу весь диапазон, на границах диапазона уточняя числа до 1e-5.
Подробно приводить код не буду, смотрите в приложенном gen_rtd.pl

WavPlayer — flash player for asterisk sounds

datacompboy — Mon, 19 Oct 2009 09:16:14 +0000

Всё, для полноты картины, в WavPlayer были внесены последние изменения:

Добавлена поддержка .alaw, .ulaw, .sln сырых файлов.
Добавлено вычисление длины записи, чтобы можно было выводить прогресс
Добавлены callback’и в js, таким образом можно сделать полноценный интерфейс на JS

Скачать его можно отсюда: wavplayer-1.2.tar
Теперь, и с README.txt внутри :)
Update: WavPlayer 1.7.1
Свежак: WavPlayer-1.6.1 с примером интеграции, возможностью позиционирования по файлу и паузой.

Поддерживает:

    Format | Codecs
    =====================================================================
    .au     G711u, G711a, PCM format, any samplerate/channels
    .wav    G711u, G711a, PCM, GSM 6.10 (MS) formats, any samplerate/channels
     .wav49 just alias of .wav, can content any of wav codecs
    .gsm    raw GSM 6.10
    .sln    raw PCM 16bit-signed 8kHz
     .raw   alias of .sln
    .alaw   raw G711a 8kHz mono
     .al    alias of .alaw
    .ulaw   raw G711u 8kHz mono
     .ul    alias of .ulaw
     .mu    alias of .ulaw
     .pcm   alias of .ulaw
    =====================================================================

Комментарии…

datacompboy — Sun, 18 Oct 2009 13:10:39 +0000

Н-да. Обнаружил, что блог вообще не принимал комментарии, по причине того, что стоит за reverse proxy. Вроде бы исправил. Интересно, спам зафлудит блог или нет?

WavPlayer 1.1 — flash wav/au/gsm player

datacompboy — Sun, 18 Oct 2009 12:35:20 +0000

Поскольку WavPlayer, который был разработан, в первую очередь предназначается для проигрывания файлов, записываемых Asterisk,то логично, что в рассылке всплыл впопрос: а играет ли он .wav49?

Update: WavPlayer 1.7.1
Свежак: выложен WavPlayer-1.2 с поддержкой RAW файлов: sln, alaw, ulaw и возможностью создания интерфейса на JS

Wav49 — это WAV, в котором записан GSM 6.10 кодек в MS формате. В отличие от чистого gsm файла, в ms-gsm используется другой порядок записи параметров, и для записи два последовательных по 260 бит GSM фрейма упаковываются в 65 байт.
В общем, формат очень и очень нужный, а посему WavPlayer был доработан, и теперь умеет проигрывать как wav49, так и чистые .gsm файлы.

Получить копию с исходниками можно тут: wavplayer-1.1.tar.bz2

С кем хотят поговорить на яндексе?

datacompboy — Sat, 17 Oct 2009 15:38:56 +0000

Очень обширные пожелания у современного населения…

Thread locking for JS

datacompboy — Sat, 17 Oct 2009 12:02:24 +0000

Define: var busy = 0; // In accessible context
Lock: if (++busy!=1) { –busy; return; }
Unlock: busy=0;
Один из лучших простых методов блокировки на JS. хотя и не идеальный — ++busy не атомарный :( поэтому теоритически может получиться так, что два кода одновременно начавших выполнять этот иф — и оба не выполнятся. но никогда не будет такого, что оба выполняются.

WavPlayer – wav/au player on flash

datacompboy — Thu, 15 Oct 2009 15:59:53 +0000

При работе с телефонией частенько всплывают файлы, записанные в 8Khz, и кодированные в PCM/G.711a/G.711u. Что делать, если нужно обеспечить проигрывание этого файла с веба? Нужен wav/au flash player. Но флеш поддерживает только mp3…

Update: WavPlayer 1.7.1
Свежак: WavPlayer-1.6.1 с примером интеграции, возможностью позиционирования по файлу и паузой.
Свежак: выложен WavPlayer-1.2 с поддержкой RAW файлов: sln, alaw, ulaw и возможностью создания интерфейса на JS
Свежак: выложен WavPlayer-1.1 с поддержкой GSM кодека.

Единственный, найденный живым в природе флеш плеер для wav грузит весь файл целиком в память, поддерживает только PCM и только 44100 самплрейт (и кратный ему по степени двойки… вот только ресемплинг производит простым удвоением числа выборок, что создаёт очень мерзкий высокочастотный писк при прослушивании).

В результате, родился WavPlayer: флеш плеер, писаный на haXe (я не знаю ни actionscript ни haxe, но грузить haxe оказалось гораздо меньше, чем flex, к тому же флекс найти еще надо постараться). Флеш плеер проигрывает файл исключительно потоково (без запоминания проигранной части в памяти), поддерживает WAV (только RIFF и только содержащий одну data секцию) и AU файлы, кодированные в PCM произвольной битности (не обязательно 8/16) и с произвольным самплрейтом (не обязательно кратным 44100) либо в G.711 как u-Law так и a-Law. Поддерживаются как моно так и стерео файлы.

Интерфейса плеер не имеет (я не знаю флеша :) ) только одна кнопочка в форме стрелка — можно запустить, кружочек — идёт начальная буферизация, квадратик — идёт проигрывание и можно остановить.
Поддерживает управление со стороны JavaScript: экспортированы функции doPlay(filename) запускающая проигрывание файла filename и doStop() останавливающая проигрывание.

Собственно, .wav и .au файлы, которые создаёт Asterisk прекрасно им проигрываются.

Пользуйтесь на здоровье: wavplayer-1.0.tar.bz2
Патчи/комментарии приветствуются.

Here: wavplayer-1.0.tar.bz2 you can get wav/au flash player, written in haXe, that able to play WAV and AU files, created by Asterisk. It supports WAV with only one data section, in G.711 aLaw/uLaw or any bitlength PCM as well as AU files in G711/PCM formats. File can be in any samplerate, and nicely resampled to 44100 with Lanczos resampler. Files played in streamed mode — playback starts as soon as data available.

Player supports url argument ?sound=somefile.au to pass initial filename, that will be used if user clicks on «play» button.
From javascript accessible two functions: doPlay(filename), that start playing specifed file or last if not specifed, and doStop(), that stops currently playing sound.

Вывод списка в табличной форме

datacompboy — Sat, 03 Oct 2009 09:16:51 +0000

Достаточно часто встречается в современной семантической верстке проблема: логически, есть список элементов. А визуально дизайнер хочет разместить это в виде таблички. Что же делать? Выдавать на-гора обертки дива за дивом, и ставить им display:table? Отказываться от семантики?

Давайте рассмотрим стандартные проблемы и стандартные решения.

1. Элементы равного размера

Самый простейший случай — все элементы равного размера. Например — это просто матрица фотографий в альбоме.
Решение классическое, известное давно: элементы в списке перечисляем построчно, каждому элементу списка ставим float:left с фиксированными размерами, всему UL’у — clearfix. В результате, код:

>
  .l1 { list-style-type: none; margin: 0; padding: 0; width: 300px; }
  .l1 li { float: left; width: 100px; height: 100px; overflow: hidden; }
>

<ul class="l1">
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
</ul>

Создаст желаемый эффект:

При таком решении главным плюсом является легкая резиновость: все li однородные, поэтому размер ul’а не обязан быть жестким, однако не стоит забывать о overflow: hidden, примененнные к li — если не поставить, а содержимое может заполнять юзер (например, подпись под картинкой), легко можем получить вот такой эффект:

Картинка 1
Картинка 2. С длинным-предлинным описанием, о котором пользователь не позаботился.
Картинка 3
Картинка 4
Картинка 5
Картинка 6
Картинка 7
Картинка 8

2. Элементы разной высоты

Если элементы разной высоты, то применение решения №1 «в лоб» (убрав height и overflow с li) даёт очень некрасивый эффект: флоаты выстраиваются по им удобному положению.

Картинка 1
Картинка 2. С длинным-предлинным описанием.
Картинка 3
Картинка 4
Картинка 5
Картинка 6
Картинка 7
Картинка 8

К сожалению, я не знаю беcскриптового решения, которое позволило бы выстроить такой список с помощью унифицированного задания исходного списка, да еще и с резиной по ширине. Зато есть простое решение, которое позволит выстроить такой список в нужное число колонок. Покажу на примере трех колонок, Список генерируем с пометкой каждого li к какой колонке он относится.

<ul class="l4">
   <li class="col1"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /><p>Картинка 1</p></li>
   <li class="col2"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /><p>Картинка 2. С длинным-предлинным описанием.</p></li>
   <li class="col3"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /><p>Картинка 3</p></li>
   <li class="col1"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /><p>Картинка 4. С неким описанием.</p></li>
   <li class="col2"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /></li>
   <li class="col3"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /><p>Картинка 6</p></li>
   <li class="col1"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /><p>Картинка 7</p></li>
   <li class="col2"><img src="/wp-admin/images/date-button.gif" width="100" heght="100" /><p>Картинка 8</p></li>
</ul>

Итак, теперь позаботимся о стилях. Во-1х, сделаем сам список — контейнером для нашей «таблицы» (то есть зададим ему желаемый width, уберём паддинги и буллеты, и добавим клеарфикс)

  .l4 { 
     list-style-type: none; 
     margin: 0; 
     padding: 0; 
     width: 300px; 
  }
  .l4:after { display: block; visibility: hidden; height: 0; content: "."; clear: both; }

Элементы этого списка так же делаем флоатами, аналогично пункту №1. Не забываем ставить желаемый width, причем такой, чтобы в сумме они составляли нужную ширину (33%, например, для 3х колонок будет работать; но 50% для двух колонок может давать очень интересный эффект в некоторых браузерах, которые 50%+50% могут насчитать 100%+1px)

  .l4 li { 
     float: left;
     width: 33%;
  }

И теперь самое главное: обеспечим правильное выставление этих флоатов по максимальной высоте предыдущей строки. Для обычных, «вменяемых» браузеров, это достигается легко и просто:

  .l4 li.col1 { 
     clear: left;
  }

Однако, у нас есть парочка аутсайдеров, с которых пользователи до сих пор не слезают из-за религиозных соображений и желания нахватать побольше вирусов. Поэтому, необходимо вылечить еще IE7 и IE6. Чтобы перестал себя вести нехорошо IE7 достаточно последний элемент в строке сделать не-float’ом, тогда он встанет где надо за счет того что остальные флоаты его сдвинут, а так как он не флоат, то клеар на следующей строке перестанет взрывать моск. Но этого недостаточно для IE6. В случае, если размеры каждой «ячейки» по ширине заданы в процентах, то IE6 посчитает эти проценты не от всей ширины ul’а, а от свободного пространства. Поэтому либо задавать жесткий width для каждой li, либо поставить для IE6 width в 100%.

Картинка 1
Картинка 2. С длинным-предлинным описанием.
Картинка 3
Картинка 4. С неким описанием.
Картинка 6
Картинка 7
Картинка 8

3. Другие варианты

Решение (на чистом CSS) выравнивания списка в таблицу в случае неравной (заранее неизвестной) ширины элементов мне неизвестно. Если кто знает — буду черезвычайно рад услышать. Впрочем, как и решение пункта№2 для жесткой ширины элементов и меняемого от растягивания числа колонок.

Skype API on Linux

datacompboy — Mon, 21 Sep 2009 17:27:21 +0000

Волею судеб, идёт сейчас крупная ~~битва за урожай~~ борьба с подъёмом и рулением Skype клиентами под Linux. Посольку Naked Skype так и остался только спекой, приходится жить со стандартным клиентом.

Согласно «Skype API on Linux», есть два метода подключения: X11 и DBUS.

Skypiax использует X11. Глубокий дебаггинг выявил очень неприятную особенность: у сообщений X11 не гарантируется порядок их отправки. Так, если в WinAPI sendmessage гарантирует, что сообщения будут доставлены в том порядке, как их отправляли, то в X11 все события, отправленные в одно время считаются одновременными и могут быть доставлены в произвольном порядке.
Вкратце, Skype API через X11 работает на отправке сообщения разбивая его на куски по 20 байт и отсылая подряд события
SKYPECONTROLAPI_MESSAGE_BEGIN + 20 байт сообщения SKYPECONTROLAPI_MESSAGE + следующие 20 байт SKYPECONTROLAPI_MESSAGE + следующие 20 байт ... SKYPECONTROLAPI_MESSAGE + последние байты
При этом, XSync (для гарантированной отправки всех заготовленных сообщений) вызывается ПОСЛЕ создания всех событий. В результате, приложение может получить события вместо
MSG_BEGIN("Some ") MSG("test ") MSG("messa") MSG("ge")
начиная от
MSG("test ") MSG("messa") MSG_BEGIN("Some ") MSG("ge")
и заканчивая
MSG_BEGIN("Some ") MSG("messa") MSG("test ") MSG("ge")
Если в первом случае сразу видно что сообщени ошибочное (пришел некий текст до BEGIN), то в последнем случае восстанавливается сообщение «Some messatest ge» вместо «Some test message» и никакого способа 100% сказать что это правильное сообщение — нет.

Это так, если не считать что у сообщения, длина которого кратна 20 байтам, невозможно определить его конец (кроме как поймать следующий BEGIN, который может быть через неопределённое время)…

Вывод напрашивается сам собой: Skype API on Linux via X11 messaging — нельзя использовать вообще.

Теперь рассмотрим DBUS messaging. DBUS это стандарт объектно-ориентированного IPC, рожденный изначально для Gnome, позже внедренный и в KDE, и теперь широко и с удовольствием используемый много где.
При общении через DBUS, в системе запускается специальный DBUS daemon, который как производит регистрацию сервисов, авторизацию клиентов, проверку фильтрации сообщений для передачи их желающим и так далее.

Для работы с ним существует low-level библиотека на базе libdbus, и многочисленные биндинги к высокоуровневым языкам. Причем, даже для C рекомендуется использовать вместо libdbus — GLib Bindings. Впрочем, я предпочел непослушаться, и взял именно libdbus.

В моем случае, задача проста: есть «сессионный» dbus, есть Skype клиент, нужно иметь возможность отправить сообщение скайпу и получить от него ответ. И то и другое — асинхронно (в разных потоках), в качестве замещения X11 протокола. (Кстати, не верьте сайту — у скайп-клиента нет ни «–enable-dbus» ни «–use-system-dbus» опций — он всегда запускается с поддержкой dbus и всегда подключается к текущему dbus сессии).

Продолжая радоваться полноте, корректности и информативности документации скайпа скажу, что dbus example in Python — во-1х устарел (ибо теперь в dbus-python нет get_service, да и dbus.Object теперь dbus.service.Object), во-2х проверяет существование скайпа аж через получение всех сервисов и проверки «а нет ли там com.Skype.API». Это вместо NameHasOwner). А еще добавлю, что «dbus example in C» читать как «dbus example in C++» — что сильно меняет смысл.

Итак, переходим к собственно коду. Благодаря отличному стартапному туториалу для libdbus Удалось нарожать следующее, прекрасно работающее замещение X11->DBUS:

1. Проверка доступности скайпа.
Скайп при запуске регистрирует себе имя com.Skype.API — а потому, проверка тривиальна:

bool skype_present(DBusConnection* conn)
{
  return dbus_bus_name_has_owner(SkypiaxHandles->dbus, "com.Skype.API", NULL);
}

2. Отправка сообщения скайпу.
Для отправки сообщения скайпу предлагается дёргать Invoke метод по пути /com/Skype у NULL интерфейса (интерфейс не надо указывать).
При этом ответ на конкретно это сообщение придёт в ответе на Invoke — а нам надо Async отправка. Значит, нужно отсылать событие method_call без ожидания ответа:

void query(DBusConnection* conn, char* param)
{
   DBusMessage* msg;
   DBusMessageIter args;
   DBusError err;
   int ret;
 
   printf("Calling remote method with %s\n", param);
 
   // initialiset the errors
   dbus_error_init(&err);
 
   // create a new method call and check for errors
   msg = dbus_message_new_method_call("com.Skype.API", // target for the method call
                                      "/com/Skype", // object to call on
                                      NULL, // interface to call on
                                      "Invoke"); // method name
   if (NULL == msg) {
      fprintf(stderr, "Message Null\n");
      exit(1);
   }
 
   // append arguments
   dbus_message_iter_init_append(msg, &args);
   if (!dbus_message_iter_append_basic(&args, DBUS_TYPE_STRING, &param)) {
      fprintf(stderr, "Out Of Memory!\n");
      exit(1);
   }
 
   printf("Sending...\n");
   // send message without any reply waiting
   if (!dbus_connection_send(conn, msg, &ret)) {
      fprintf(stderr, "Out Of Memory!\n");
      exit(1);
   }
   dbus_connection_flush(conn);
 
   printf("Request sent, serial=%d\n", ret);
 
   // free message
   dbus_message_unref(msg);
}

Вообще, при отправке сообщения мы получаем serial, по которому позже можем из входящих событий через get_reply_serial выяснить что ответ был именно на это сообщение — но нам оно не надо. Главное — мы асинхронно отправили сообщение скайпу, а когда и как он нам ответит тут не особо важно. За счет того, что вызывается dbus_connection_flush, мы можем быть уверены, что сообщение ушло в трубу и будет обработано скайпом, а не просто соскладируется внутри libdbus.

3. Получение ответов и инициированных скайпом событий.
Все ответы на вызванные нами команды будут возвращаться в форме сообщений типа method_return, у которых будет destination= наш ID в трубе и reply-serial равен serial запроса.
Все события, инициированные скайпом придут как method_call сообщение на метод Notify у /com/Skype/Client. Единственное, я не разобрался следует ли на эти вызовы отвечать чем-либо или скайп вызывает с необязательным возвратом — поэтому отвечаю просто нулем.

Для асинхронного получения от скайпа поднимается отдельный поток, который только и делает что мониторит подключение на предмет нужных нам событий. А потому поток выглядит так:

void* receive(void * arg) // arg is bus connection
{
   DBusMessage* msg;
   DBusMessageIter args;
   DBusConnection* conn;
   DBusError err;
   int ret;
   char* sigvalue;
   char filter[1024];
 
   printf("Listening for signals\n");
 
   // initialise the errors
   dbus_error_init(&err);
 
   // connect to the bus and check for errors
   conn = dbus_connection_ref((DBusConnection*)arg);
   if (NULL == conn) {
      exit(1);
   }

Обратите внимание — мы не просто пользуем соединение, а «клонируем» его, чтобы поток работал со спокойной совестью, зная что содениение не пропадёт если вдруг главный поток закроет его (главному потоку надо будет просто сигнализировать читателю чтобы он закрыл соединение с dbus. Если же вам удобнее просто прибить поток-приемник — можно dbus_connection_ref не вызывать, а прибивать читателя до закрытия соединения).
Затем настраиваем фильтры на прием сообщений — нам нужны только method_call и method_return у которых destination= нам.

   // add a rule for which messages we want to see
   sprintf(filter, "type='method_call',destination='%s'", dbus_bus_get_unique_name(conn));
   dbus_bus_add_match(conn, filter, &err);
   sprintf(filter, "type='method_return',destination='%s'", dbus_bus_get_unique_name(conn));
   dbus_bus_add_match(conn, filter, &err);
   dbus_connection_flush(conn);
   if (dbus_error_is_set(&err)) {
      fprintf(stderr, "Match Error (%s)\n", err.message);
      exit(1);
   }
   printf("Match rule sent\n");

Обратите внимание — такой подход допустим только в том случае, если никто больше с вами не будет связываться по этому соединению. В ином случае, понадобится добавить фильтр по source=’:XXX’, где :XXX — это Dbus Unique Name конкретной инстанции скайпа.

После чего можно переходить в «бесконечный» цикл чтения:

   // loop listening for signals being emmitted
   while (true) {
      char * arg;
 
      // non blocking read of the next available message
      dbus_connection_read_write(conn, 100);
      msg = dbus_connection_pop_message(conn);
 
      // loop again if we haven't read a message
      if (NULL == msg) {
         continue;
      }
 
      if (dbus_message_get_args(msg, &err, DBUS_TYPE_STRING, &arg, DBUS_TYPE_INVALID)) {
        printf("Skype says: %s\n", arg);
      }
 
      // free the message
      dbus_message_unref(msg);
   }

Процедура проста: зависаем в чтении (ненулевой таймаут необходим, чтобы когда нечего читать, а соседний поток засунул на запись что-либо, это что-либо таки реально ушло в трубу). Получив сообщение, пытаемся достать оттуда один строковый аргумент — и если достаём, то обрабатываем его как сообщение/ответ от скайпа.

Некоторые технические запрос/ответы в процессе установления соединения тоже возвращают ответы с одной строкой — это просто следует учитывать в логике обработки протокола скайпа, и игнорировать неизвестные сообщения (что так и так следует делать, ибо скайп в некий момент может ввести событие в протокол, которе нам никак не надо). Реально, в случае с текущим скайпом и текущим DBUS сервисом, если требуется по шине исключительно со скайпом, то получается только одно лишнее сообщение — :XXX, где XXX это наше уникальное имя — что никак не влияет на протокол общения, зато все сообщения к и от скайпа доставляются в целости, сохранности и сразу.

Не нужно гадать на кофейной гуще «сообщение» это или «соониебще». Да и пришло оно целиком, или просто следующее «протолкнуло».

Hardware рулит, или о пользе гистерезиса.

datacompboy — Fri, 04 Sep 2009 13:46:54 +0000

Практически все аппаратные системы обладают гистерезисом: отставанием реакции на приложенные силы. Когда-то это плохо (например, передавать сигнал без сдвига фазы), когда-то это используют (те же магнитные способы записи).
Но не мешало бы об этом вспоминать и при разработке софта! На днях столкнулся с очень отвратительным поведением Firefox: если по hover размер блока изменяется, и при этом объект уходит из-под мыши — блок теряет hover. Возвращается к прошлым размерам и снова применяет hover. Некрасиво.

попробуйте сами, наведите на правый край этого квадрата:

test

Кстати опера работает лучше: потерю hover она отрабатывает, но восстановление после этого hover опять игнорируется. Хотя решение всё равно не идеальное — прыгает при движении мыши. Что, в общем-то, лучше, чем постоянно прыгающее в статичном состоянии.

<html>
<head>
<style>
  a { display: block; border: 1px solid red; width: 100px; height: 100px; background: blue; }
  a:hover { display: block; border: 1px solid red; width: 50px; height: 100px; background: blue; }
</style>
<body>
 <a href="test">test</a>
</body>
</head></html>

ADuC847, его ADC и измерение температуры с термопары (часть 2: практика)

datacompboy — Thu, 13 Aug 2009 12:44:35 +0000

Теперь посмотрим реализацию на практике измерения температуры.

Проблема №1: у нас есть PDF с таблицей миливольт через градус, а нам надо таблицы код-от-холодногоспая и термозначение-от-кода.
Итак, сперва превратим PDF в текст с помощью pdftotext, затем пройдём по таблице, и будем превращать каждое значение миливольт таблицы в код (умножая на 1000 чтобы превратить в микровольты, затем на 104.8575875 для кода АЦП)? интерполировать значения между соседними точками, распечатывая значение для каждого кода в 65536.
Не забудем учесть, что в отрицательной части таблица указана по возрастанию модуля — а потому каждую отрицательную строку следует развернуть.
Когда будем проходить мимо чисел от 0..100°, аналогично поступим с кодом холодного спая, только запоминать будем каждые 32768 не температуру, а вычесленный код ацп.
Чтобы избавиться от знака, код АЦП для минимальной температуры с обратным знаком будет смещением, таким образом получим монотонную положительную таблицу.
Итак, мы получаем вот такой конвертер: convert.pl
Итак, мы получили .a51 инклуд, в котором объявлена константа ThermoBase — код, на который смещен ноль градусов в коде ацп, объявлена табличка ThermoTable, заданная через каждые 8000h кодов ацп, константа ThermoMax для проверки на перегрев, и таблица кодов термопары соответствующих холодному спаю ThermoExtTable через каждые 10000h кодов ацп термодатчика.

Обработчик прерывания от ацп будет крайне простым:

;**************************************************************************
; INTERRUPT from ADC
         ORG 0033H
         JBC DoExtReq, ADCExt ; Измеряли опору или термопару?
ADCInt:  MOV DataH, ADC0H ; Термопару сохраняем в DataH/M/L
         MOV DataM, ADC0M
         MOV DataL, ADC0L
         SETB ADCReady    ; И ставим бит ADCReady. Бит ADCBusy сбросит основная программа
         CLR RDY0
         RETI
ADCExt:  MOV ExtH, ADC0H ; Опору измеряем в ExtH/M/L
         MOV ExtM, ADC0M
         MOV ExtL, ADC0L
         CLR ADCBusy    ; И очищаем бит ADCBusy (опора будет учтена для следующего измерения)
         CLR RDY0
         RETI

В зависимости от состояния бита DoExtReq считываем показания АЦП либо в Data, либо в Ext.

Основная часть программы так же проста:

NoWD:            JBC  ADCReady, CalcThermo ; Измерили АЦП?
                 JB   ADCBusy, SeeCMD ; Игнорируем работу с АЦП, если он занят
                     JBC  NeedExtReq, InitExtReq
                     JB   NeedAutoReq, InitAutoReq
SeeCMD: ; Прочая работа

– Если есть свежие показания АЦП — переходим к собственно вычислениям в CalcThermo
– Если показаний нет, ничего не делаем пока АЦП занят
– Если нет показания и АЦП свободен, проверим надо ли переизмерить показания холодного спая? (эти измерения можно проводить довольно редко, по сравнению с измерениями самой термопары. Я обновляю их раз в 2 сек, а термопару 5 раз в сек)
– Если нет показания, АЦП свободен, проверим не пора ли обновить температуру термопары.

Итак, само измерение холодного спая инициируется такой последовательностью:

InitExtReq:      SETB ADCBusy ; АЦП занят
                 SETB DoExtReq ; Измерение будет произведено холодного спая
                 CLR  ExtReady   ; Нужно перевычислить холодный спай
                 CLR  RDY0
                 MOV  ADCSF, #REQ_SF
                 MOV  ADC0CON1, #00100111b ; Измерение 0..1.28V, однополярно
                 MOV  ADC0CON2, #00001011b ; Измерение AIN3-AIN4 с внутренней опорой
                 MOV  ADCMODE, #00100100b ; Калибровка нуля
                 MOV  ADCMODE, #00100101b ; Калибровка максимума
                 MOV  ADCMODE, #00100010b ; Запросить 1 измерение на основном АЦП
                 JMP  MAINLOOP

Полностью аналогично производится инициация запроса показаний термопары:

InitAutoReq:     SETB ADCBusy
                 CLR  RDY0
                 MOV  ADCSF, #REQ_SF
                 MOV  ADC0CON1, #00000011b ; Измерение +-80mV биполярно
                 MOV  ADC0CON2, #00001010b ; Измерение AIN1-AIN2 в внутренней опорой
                 MOV  ADCMODE, #00100100b ; Калибровка нуля
                 MOV  ADCMODE, #00100101b ; Калибровка максимума
                 MOV  ADCMODE, #00100010b ; Запросить 1 измерение на основном АЦП
                 JMP  MAINLOOP

Итак, произошло измерение термопары, следовательно пора получить измеряемую температуру. Для этого нам понадобится еще эквивалент холодного спая, а потому, преамбула будет такой:

CalcThermo:
    MOV DevErr, #0
    MOV DPCON, #00010001b ; Выберем второй дптр с автоинкрементом после MOVC/MOVX
    ORL PSW, #18h ; Выберем банк 3
    JNB ExtReady, CalcExt
    JMP CalcMain

во-1х, при вычислении нам придётся часто менять DPTR и считывать табличные значения, поэтому имеет смысл переключиться на второй DPTR.

Использование автоинкремента особенно удобно при записи запись у 8051 идёт только по DPTR, и потому вместо
  MOVX @DPTR, ...
  INC DPTR
  MOVX @DPTR, ...
получается просто
  MOVX @DPTR, ...
  MOVX @DPTR, ...
Однако же при чтении из памяти данных это не так удобно, вместо
  CLR A
  MOVC A, @A+DPTR
  ...
  MOV A, #1
  MOVC A, @A+DPTR
при автоинкременте всё равно приходится каждый раз очищать аккумулятор:
  CLR A
  MOVC A, @A+DPTR
  ...
  CLR A
  MOVC A, @A+DPTR
однако, во-1х CLR A занимает на 1 байт меньше, чем MOV, и во-2х сложнее ошибиться.

Итак, если у нас изменились показания холодного спая (ExtReady очищен), то нужно перевычислить эквивалент холодного спая.

Сделаем это прямо «в лоб»: отнимем 500мв, проверим что результат в нашей таблице:

CalcExt:
  ; Вычислим Ext-646303h
    CLR C
    MOV A, ExtL
    SUBB A, #03h
    MOV ExtL, A
    MOV A, ExtM
    SUBB A, #63h
    MOV ExtM, A
    MOV A, ExtH
    SUBB A, #64h
    MOV ExtH, A
    MOV DevErr, #1
    JC ThError ; Если меньше 500mV -- температура отрицательная, ошибка (?)
    ; A = ExtH = точка входа в таблицу хол.спая
    CJNE A, #83H, IsOver83H
IsOver83H:
    MOV DevErr, #2
    JNC ThError ; Если >= 83h -- выход, окружающая среда больше 65°

Итак, теперь у нас в Ext лежит сдвинутый код термодатчика холодного спая, из которых ExtH = указатель по таблице (он же сейчас в ACC) и ExtM/ExtL пропорциональность от 0 до 65536. Найдём точку входа в таблицу:

    ; Таблица до 83h, по 3 байта => 83h*3=189h, то есть 1 бит переноса может быть
    CLR C
    RLC A
    MOV F0, C
    ADD A, ExtH
    ORL C, F0 ; A = младший байт, C = перенос. Это надо сложить с ThermoExtTable и положить в DPTR
    MOV DPH, #HIGH(ThermoExtTable)
    JNC NoIncDPH1
    INC DPH
NoIncDPH1:
    ADD A, #LOW(ThermoExtTable)
    MOV DPL, A
    JNC NoIncDPH2
    INC DPH
    CLR C
NoIncDPH2: ; DPTR = указатель на таблицу соответствия холодному спаю

(обратите внимание, может быть только один бит переноса, но операций сдвиг/сложение две, поэтому временно один перенос сохраняем в F0).

Настроив DPTR, считываем из таблицы начальную точку диапазона:

    CLR A
    MOVC A, @A+DPTR
    MOV ExtTL, A
    CLR A
    MOVC A, @A+DPTR
    MOV ExtTM, A
    CLR A
    MOVC A, @A+DPTR
    MOV ExtTH, A ; ExtT=начальная точка интервала

Затем считываем следующую точку и сразу вычисляем разность — длину интервала

    CLR A
    MOVC A, @A+DPTR
    SUBB A, ExtTL ; C был очищен выше
    MOV R0, A
    CLR A
    MOVC A, @A+DPTR
    SUBB A, ExtTM
    MOV R1, A ; R1:R0 = разность между верхней и нижней точками интервала
    ; Теперь в ExtM:ExtL находится разница внутри диапазона, в R1:R0 находится длина диапазона

Обратите внимание, что так как длина диапазона влезает в 2 байта, достаточно было считать только два байта.

Теперь нужно вычислить ExtT=ExtT+(ExtM:ExtL*R1:R0/65536)
Вычислим ExtM:ExtL*R1:R0: 16bit+16bit=32bit, нас интересуют только старшие 17бит (17й бит = округление)
Сложим результат в R5:R4:R3:R2 (R2 вообще не считаем)

    MOV B, ExtM ; A=R1 на текущий момент
    MUL AB      ; B:A = R1*ExtM => результат в R5:R4
    MOV R5, B
    MOV R4, A
    MOV A, R1
    MOV B, ExtL
    MUL AB      ; B:A = R1*ExtL => Результат в R4:R3 (к R4 прибавляем)
    MOV R3, A
    MOV A, B
    ADD A, R4
    MOV R4, A
    JNC NoOv1
    INC R5  ; сохраним перенос если был
NoOv1:
    MOV A, R0
    MOV B, ExtM
    MUL AB      ; B:A = R0*ExtM => результат к R4:R3
    ADD A, R3
    MOV R3, A
    MOV A, B
    ADDC A, R4
    MOV R4, A
    JNC NoOv2
    INC R5  ; сохраним перенос
NoOv2:
    MOV A, R0
    MOV B, ExtL
    MUL AB      ; B:A = R0*ExtL => результат в R3:R2, R2 вообще игнорируем, у R3 проверяем только перенос и >128
    MOV A, B
    ADD A, R3
    JNC NoOv3
    INC R4
    CJNE R4, #0, NoOv3
    INC R5 ; Если R4 стал равен нулю, то перенос ушел в R5
NoOv3:
    JNB ACC.7, NoOv4 ; проверим, не следует ли округлить вверх
    INC R4
    CJNE R4, #0, NoOv4
    INC R5
NoOv4: ; Теперь в R5:R4 интерполяционная добавка к текущему значению в ExtT
    MOV A, ExtTL
    ADD A, R4
    MOV ExtTL, A
    MOV A, ExtTM
    ADDC A, R5
    MOV ExtTM, A
    JNC NoOv5
    INC ExtTH
NoOv5:
    ; Теперь ExtT = показания холодного спая в табличных значениях термопары
    SETB ExtReady

Итак, теперь у нас есть эквивалент холодного спая и мы можем получить текущую температуру.

CalcMain:
  ; Вычитаем из кода пьедестал (код становится положительным), добавляем холодный спай и по таблице
  ; интерполируем температуру
    MOV A, DataH
    ADD A, #80H ; Переводим из 8000000 = 0 к 0=0
    MOV R2, A
    ; Добавляем холодный спай
    MOV A, DataL
    ADD A, ExtTL
    MOV R0, A
    MOV A, DataM
    ADDC A, ExtTM
    MOV R1, A
    MOV A, R2
    ADDC A, ExtTH
    MOV R2, A
    MOV DevErr, #3 ; Ошибка "ниже минимума" = "обрыв термопары"
    JB  ACC.7, ErrorMin ; Ниже минимума таблицы?
    ; Теперь проверяем не вылезли ли за таблицу сверху
    CJNE R2, #ThermoMaxH, ChkMax
    CJNE R1, #ThermoMaxM, ChkMax
    CJNE R0, #ThermoMaxL, ChkMax
ChkErr:
    MOV DevErr, #4 ; Ошибка переполнение
jThError: JMP ThError
ErrorMin:
    MOV ThermoH, #0FFh
    MOV ThermoL, #0FFh
    AJMP ThError
ChkMax:
    JNC ChkErr
    ; 0< =R2:R1:R0

Итак, мы получили код, таблица через 32768, так что если мы R2:R1:R0 умножим на два, мы получим в CY:R2 указатель по таблице, а в R1:R0 пропорцию из диапазона 0..65536.

CalcFind: ; Выбрать из таблицы код R2:R1:R0
    CLR C
    MOV A, R0
    RLC A
    MOV R0, A
    MOV A, R1
    RLC A
    MOV R1, A
    MOV A, R2
    RLC A
    ; A = индекс таблицы, от 0..С2, и CY=0
    RLC A ; A=указатель таблицы, C=перенос
    MOV DPH, #HIGH(ThermoTable)
    JNC NIncDPH
    INC DPH
NIncDPH:
    ADD A, #LOW(ThermoTable)
    MOV DPL, A
    JNC NIncDPH2
    INC DPH
NIncDPH2: ; DPTR = ThermoTable+(R2:R1:R0/32768)*2

Итак, теперь аналогично работе с таблицей термопары выберем первую точку и длину интервала:

    CLR A
    MOVC A, @A+DPTR
    MOV R3, A
    CLR A
    MOVC A, @A+DPTR
    MOV R4, A ; R4:R3 = код из таблицы
    CLR C
    CLR A
    MOVC A, @A+DPTR
    SUBB A, R3
    MOV R5, A
    CLR A
    MOVC A, @A+DPTR
    SUBB A, R4
    MOV R6, A ; R6:R5 = разница между следущим и текущим кодом

И сдвинемся внутри интервала:

    ; Теперь в R6:R5 разница по таблице, в R1:R0 пропорция из диапазона 0..65536
    ; Вычислим [ R6:R5*R1:R0 = ThermoH:ThermoL:Tmp1:Tmp2 ] / 32768,
    ; от Tmp1 нужен только старший бит (для определения округления)
    MOV B, R1
    MUL AB ; R6*R1 нужно положить в ThermoH:ThermoL
    MOV ThermoH, B
    MOV THermoL, A
    MOV B, R1
    MOV A, R5
    MUL AB ; R5*R1 складываем в ThermoL:Tmp1
    MOV Tmp1, A
    MOV A, B
    ADD A, ThermoL
    MOV ThermoL, A
    JNC ResNoO1
    INC ThermoH ; Учтем перенос
ResNoO1:
    MOV A, R6
    MOV B, R0
    MUL AB ; R6*R0 складываем в ThermoL:Tmp1
    ADD A, Tmp1
    MOV Tmp1, A
    MOV A, ThermoL
    ADDC A, B
    MOV ThermoL, A
    JNC ResNoO2
    INC ThermoH
ResNoO2:
    MOV A, R5
    MOV B, R0
    MUL AB ; R5*R0 складывается в Tmp1:Tmp2, интересует только старший бит Tmp1 и перенос
    MOV A, B
    ADD A, Tmp1
    JNC ResNoO5
    XCH A, ThermoL
    INC A
    JNZ ResNoO4
    INC ThermoH
ResNoO4:
    XCH A, ThermoL
ResNoO5:
    ; Если ACC.7!=0, увеличим ThermoHL
    JNB ACC.7, ResNoRound
    INC ThermoL
    MOV A, ThermoL
    JNZ ResNoRound
    INC ThermoH
ResNoRound:
    ; Теперь в ThermoH/ThermoL лежит добавка к текущему значению таблицы, добавим к ней R4:R3
    MOV A, ThermoL
    ADD A, R3
    MOV ThermoL, A
    MOV A, ThermoH
    ADDC A, R4
    MOV ThermoH, A
    JNC NoThError ; Перебора тут быть не должно, ибо температура за 2048 градусов вылезать не должна
    MOV DevErr, #7
    AJMP ThError
NoThError:
    ; ---
CalcEnd: ; Конец вычислений. В Thermo* лежит вычисленное значение

Итак, все наши вычисления завершились. Восстанавливаем состояние и переходим к дальнейшей части работы:

    MOV DevErr, #0
    CLR ADCBusy ; АЦП свободен
    ; Вернуться к обычной работе
    ANL PSW, #NOT 18h ; Выбрать банк 0
    MOV DPCON, #0 ; Вернуться к основному DPTR
    JMP MAINLOOP ; Вернуться к основной программе

Вот так, весело и задорно, и довольно компактно, получаем искомую температуру с термопары :)

Автоматические многоточия

datacompboy — Thu, 13 Aug 2009 04:42:12 +0000

Вы же часто видели классическое оглавление?

А..................1
Б..................2
В..................3

Как получить его в HTML+CSS без использования кучи точек и сложного выравнивания?

Просто! Блок с названием делаем фиксированной ширины через float:left + width:XXXX + overflow:hidden, внутрь вкладываем блок с width:200%, внутрь которого кладём блок с названием и float:left, а следом за ним пустой блок с float:left + width:50% и нужными точками внутри (либо через border-bottom либо через background-image).

В результате получаем вот такую красоту:

Цена 450 000$

Количество 50

Вкус ацтой

Исходный код:

>
  div.line { height: 20px; width: 350px; }
  div.line label { width: 250px; height: 20px; float: left; overflow: hidden; position: relative; }
  div.line label span { display: block; width: 200%; position: relative; }
  div.line label span span { float: left; width: auto; }
  div.line label span span.dots { width: 50%; height: 1em; background: url(dots.gif) right bottom repeat-x; }
>

<body>
  <div class="line"><label><span><span>Цена</span><span class="dots"></span></span></label> <span>450 000$</span></div>
  <div class="line"><label><span><span>Количество</span><span class="dots"></span></span></label> <span>50</span></div>
  <div class="line"><label><span><span>Вкус</span><span class="dots"></span></span></label> <span>ацтой</span></div>
</body>

ADuC847, его ADC и измерение температуры с термопары

datacompboy — Wed, 12 Aug 2009 17:56:36 +0000

Казалось бы: классическая задача. Есть термопара (ХА, ХК, ПП), подключенная к АЦП (между AIN1-AIN2), есть датчик температуры разъема (TC1047A). Нужно получать периодически температуру. Чего проще?

Берём с ИТТ таблицу калибровки, берём даташиты на процессор и датчик температуры. Изучаем, вроде бы всё понятно.

Теперь начинаются проблемы. Для опрежедения температуры надо сложить ток термопары с током холодного спая (такой же термопары, измеряющей температуру контактов). У нас холодный спай заменяет термодатчик, следовательно, его показания надо превратить в эквивалентный ток термопары.
1. Температура = Таблица(НапряжениеТермопары + НапряжениеТермопарыУРазъёма)
2. НапряжениеТермопарыУРазъёма = ОбратнаяТаблица(ТемператураТермодатчика)

Итак, нам потребуется или выбор и поиск по одной таблице, или две выборки из двух таблиц.
Теперь об удобстве вычислений: у ADuC847 высокая тактовая частота, и однотактовое ядро, что гораздо приятнее чем классический 8051, однако это не снимает общей проблемы всех процессоров такого типа: деление не на степень двойки не долго, а ОЧЕНЬ долго. Значит, все деления должны быть приведены к степеням двойки.

Чтобы преобразовать таблицу нам потребуется сперва разобраться с исходными данными: какие числа и как мы снимаем с АЦП.

ADC в ADuC847 управляется четырьмя регистрами: ADC0CON1, ADC0CON2, ADCMODE, SF. Результат работы находится в ADC0L/M/H + флаги RDY0 и ERR0 в регистре ADCSTAT.
Интересный момент, в документации приведены значения усилителя для Vref=2.50. Поэтому, если используется внутренняя опора (мой случай) с Vref=1.25, все числа в таблице следует помножать на два. Измерять термопару будем на диапазоне -80..+80мВ (RN=011b, UNI=0), измерять термодатчик будем 0..1.28В (RN=111bm UNI=1).

Кодирование двуполярного сигнала идёт со сдвигом на 800000H, таким образом 0мВ=коду 800000H, 0=-80мВ, FFFFFFH=+80мВ, отсюда 1мкрВ=104.8575875 единиц АЦП.
Кодирование однополярного сигнала идёт на полный диапазон, значит одна единица = 0.076 мкрВ.

Датчик температуры даёт 500мВ при 0°С, и линейно даёт 10мВ/°С. Минимум измеряемый равен -50°, максимум при 1.28В≈78° Таким образом, чтобы преобразовать код термодатчика в градусы нужно вычесть 500мВ и разделить на 10мВ: вычесть 646303h и разделить на 201FBh. После чего, температура должна быть преобразована по таблице в код термопары для этой температуры. Допустим, таблица сделана «в лоб»: код термопары на каждый градус (от 0 до 66). Тогда чтобы пребразовать код термодатчика в код термопары надо:

Код = Код-646303h
Темп = Код/201FBh (целая часть в ТемпЦ, остаток от деления в ТемпО)
Код1 = ТаблКод(ТемпЦ)
Код2 = ТаблКод(ТемпЦ+1)
Результат = Код1+(Код2-Код1)*ТемпО/201FBh

Итак, всё бы ничего, но требуется дважды делить на очень некруглое число. Тут случай простой. Вместо вычисления X/201FBh можно приближенно посчитать
X/201FBh ≈ X*FFh/20000h = (X shl 8 – X)/20000h = (X – X shr 8) = (X-X shr 8) shr 9
что вычисляется легко: сдвиг вправо на 8 это просто отбрасывание 1 младшего байта от 3хбайтового целого.
Вот только ТемпО это 18 бит, а значит потребуется 24*24 умножение…

Но что, если сделать проще? Возьмем таблицу термопары через 65536 кодов термодатчика. Тогда таблица получится больше (примерно в 2 раза), зато преобразование будет:

Код = Код-646303h
Код1 = ТаблКод(High8(Код))
Код2 = ТаблКод(High8(Код)+1)
Результат = Код1+(Код2-Код1)*(Low16(Код))/10000h

Что вычислится гораздо быстрее. (Кстати, учтем что Код2-Код1 при этом вмещается в 16бит, таким образом числа хоть и 24битные, но умножение требуется 16*16 с сохранением старших 16). Впрочем, если вы сильно обжаты в памяти — можно применить и технику, описанную выше. Только времени потребуется ощутимо больше.

Итак, у нас есть 24битный некий «код холодного спая», и 24битный код термопары, который мы измерили. Нам нужно их сложить так, чтобы получившийся код был точкой входа в таблицу преобразования кода термопары в градусы. Помним, что код, который мы измеряем сдвинут на 800000H.

Первым делом, сдвинем измеренный код в обратный дополнительный код. Для этого можно из имеющегося кода вычесть 800000H или прибавить 800000H (строго говоря, прибавить 7FFFFFh, однако ошибка в единицу кода совершенно не повлияет на результат). Теперь прибавим «код холодного спая», который должен быть отмасштабирован так, чтобы при нуле градусов окружающей среды код ссылался на точку таблицы для нуля градусов (так как термопара при окружающей среде равной температуре разъема покажет ноль).

Итак, у нас есть код эквивалентный показаниям термопары как если бы разъем был при нуле градусов. Теперь надо преобразовать его по таблице микровольт в градусы. Метод «в лоб» потребует деление кода на 104.8575875 для получения микровольт, которые после преобразовать. Логично, что таблица должна быть уже представлена не в микровольтах, а в 104.8575875*1мкВ = тогда имеющийся код будет сразу указателем в таблицу. В случае c термопарами ХА и ХК достаточно таблицу сделать через 32768 кода термопары, это даст для ХА термопары точки через примерно 7.5 градусов — достаточно для интервала от -200 до +1300°C.

Теперь поговорим о значениях, которые должны лежать в таблице. Тут практически нет ограничения — вы можете держать там любое целочисленное (с фиксированной точкой) представление температуры, лишь бы выполнялось условие линейности и положительности (чтобы не требовалось сложного знакового умножения) двоичного представления. То есть, там можно хранить температуру с разрешением в 1/10 градуса (но при этом точность будет 1/3 градуса, ибо +- одна единица младшего разряда относится к вычислительным погрешностям, не говоря уже об измерительных погрешностях). Я выбрал 16битные числа с фиксированной точкой: 11 бит целая часть и 5 бит дробная. При этом легко получать целые градусы (буде потребуются) в программе без деления, так и разрешающая способность в 1/32 градуса позволяет иметь точность в 1/10 градуса, и в слово влезает температура в кельвинах от 0 до 2048 (от -273 до +1775 цельсия).

Итак, для финального преобразования у нас есть таблица, смещенная так, что Код 0 = -220°C (так получилось, что ниже -200° характеристика таблицы ХА сильно заваливается), и таблица задана через 8000H. Таким образом, суммарный код термодатчика и эквивалента холодного спая умножаем на два (сдвигаем влево), и старший байт = указатель по таблице, младшие 2 байта = пропорциональности. То есть

Код = (Термопара+800000H+Холодный спай) shl 1
Код1 = Табл(High8(Код))
Код2 = Табл(High8(Код)+1)
Результат = Код1+(Код2-Код1)*(Low16(Код))/10000h

Опять же, Код2-Код1 это 16 бит, а значит простое умножение 16*16 с сохранением старших 16.

Теперь, что касается АЦП у ADuc847, или то, чего не хватило в документации:
1. Настройте АЦП на нужный диапазон и входы. Для этого загрузите SF, ADC0CON1 и ADC0CON2.
2. Загрузите калибровочные значения. В примерах, для этого используется следующий код:

                 MOV  ADCMODE, #00100100b ; Калибровка нуля
                 MOV  ADCMODE, #00100101b ; Калибровка максимума

обратите внимания — никакие задержки и прерывания при этом не будут вызваны.
3. Включите необходимый режим измерения, и ждите бита RDY0. У меня включен EADC (прерывание от АЦП, которыое происходит каждый раз, как бит RDY0 переходит в 1). Я использую разовые запросы:

 MOV  ADCMODE, #00100010b ; Запросить 1 измерение на основном АЦП

4. В обработчике прерывания сперва считайте показания из ADC0H/L/M и обязательно потом сбросьте RDY0.
5. RN (младшие 3 бита у ADC0CON1) задаёт коэффициент усилителя, а не выбирает конечный диапазон измерения. Таким образом, правильно таблица выглядит так:

ADC0CON1 bits 2,1,0 = Primary ADC Range Bits. Wtten by the user to select the primary ADC input range as follows:
000 = -Vref*0.008..+Vref*0.008 или 0..Vref*0.008
001 = -Vref*0.016..+Vref*0.016 или 0..Vref*0.016
010 = -Vref*0.032..+Vref*0.032 или 0..Vref*0.032
011 = -Vref*0.064..+Vref*0.064 или 0..Vref*0.064
100 = -Vref*0.128..+Vref*0.128 или 0..Vref*0.128
101 = -Vref*0.256..+Vref*0.256 или 0..Vref*0.256
110 = -Vref*0.512..+Vref*0.512 или 0..Vref*0.512
111 = -Vref*1.024..+Vref*1.024 или 0..Vref*1.024

Конкретные величины указаны в даташите для Vref=2.5, и разделить числа в даташите на два если используется внутренняя опора (Vref=1.25 при этом).

Приятных вычислений!

Удаленная факс-машина на Asterisk

datacompboy — Sun, 02 Aug 2009 14:31:06 +0000

Создание удаленной факс-машины представляется довольно громоздкой системой. Как правило, для решения устанавливают Samba на сервер, на котором установлен Asterisk, на ней поднимается виртуальный принтер.

Мне же требовалась факс машина на удаленном сервере. То есть, сервер с asterisk находится не в локальной сети, а в локальной сети нет ни одной машинки с линуксом. Конечно, можно было установить andLinux или голый coLinux… Но это очень сильно попахивало забиванием гвоздей паровым молотом. Можно, но что-то не для того он предназначен.

Посему родилась такая схема:
1. Ставится виртуальный принтер http://sourceforge.net/projects/imageprinter/
2. В нем ставится формат TIFF + FAX3 + Multiple page, с сохранением в C:\FAX и запуском после C:\FAX\fax.vbs
3. В c:\fax\ складывается файлик fax.vbs

Получается так: пользователь печатает на Imageprinter, получает в ответ запрос на какой номер отправить факс, затем fax.vbs делает следующее:
1. Пакует rar’ом картинку (что сильно утрамбовывает ее. если рара нет — уйдёт непакованное)
2. отсылает POST’ом по http эту картинку на http://куданадо/fax/?fax=введенныйномер

На сервере /fax/index.php производит следующее:
1. Распаковывает картинку (если пакованная)
2. Создаёт .call файл
3. Переносит его в spool директорию астериска, в outgoing.

Пример кода приведён в конце записи. Пример не содержит авторизации, обхода проблем прав доступа и тд, однако подойдёт для начала экспериментов.
Скачать: fax.vbs + index.php

P.S.: Для asterisk-1.4 TxFAX и RxFAX берут отсюда.