Elektrod-serv.ru

Передача данных по радиоканалу

Рабочая БСА

amp2 с amp1

ED2A 4EA497 245 mov pmem1,amp2 ;-----------------

ED2D 1E89 246 bset 7,bitf ;Устанавливаем в 1

бит cb

247

248 ;--- Процедура вычисления производной амплитуды --

249 proim:

ED2F C7FFFF 250 sta $ffff

ED32 00913E 251 brset 0,bitf1,mtime ;Если вход в

процедуру 2-ой раз то переход на mtime

ED35 1091 252 bset 0,bitf1 ;Устанавливаем sb в 1

ED37 BE99 253 ldx sec

ED39 A60A 254 lda #!10

ED3B 42 255 mul ;Умножаем sec на 10

ED3C 8C 256 clrh

ED3D 5F 257 clrx

ED3E BB9A 258 add sec10 ;Результат умножения

складываем с sec10,

259 ;получаем время импульса

ED40 B79B 260 sta time1 ;Время импульса

заносим в time1

261 cbm:

ED42 0F8908 262 brclr 7,bitf,perem ;Если amp2 и amp1

менялись местами то

ED45 1F89 263 bclr 7,bitf ;меняем их обратно

ED47 4E97A4 264 mov amp2,pmem1 ;-------------------

ED4A 4E9897 265 mov amp1,amp2 ;-------------------

266 perem:

ED4D 4E9798 267 mov amp2,amp1 ;amp2 заносим в amp1

268

269 ;- Задержка с индикацией текущего давления 0.3 секунды ---------------------;

270

271

ED50 6E0093 272 mov #$0,del

273 loop20:

ED53 4F 274 clra

ED54 C7FFFF 275 sta $ffff ;Сброс WDOG

276 loop11:

ED57 4A 277 deca

тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 7

ED58 26FD 278 bne loop11

ED5A 4E8B8C 279 mov upress,udav

ED5D 450000 280 ldhx #$0

ED60 CDEE74 281 jsr VOLTS_PRESSURE_RET;Вызов подпрограммы перекодировки напряжение в давление

ED63 4E8E8F 282 mov dav,y

ED66 CDEE85 283 jsr BCD_RET

ED69 6E0483 284 mov #$04,adres ;занести адрес начала индикации

ED6C CDEEC1 285 jsr IND_RET

ED6F 3A93 286 dec del

ED71 26E0 287 bne loop20

288

289

290

291 ;---------------------------------------------

292

293 mtime:

ED73 C7FFFF 294 sta $ffff

ED76 BE99 295 ldx sec

ED78 A60A 296 lda #!10

ED7A 42 297 mul ;sec умножаем на 10

ED7B BB9A 298 add sec10 ;sec10+результат

умножения

ED7D 039108 299 brclr 1,bitf1,time2m ;Если pb=0 то

переходим на time2m

ED80 B79B 300 sta time1 ;Время импульса в

time1

ED82 B09C 301 sub time2 ;Вычитаем из

time1,time2

ED84 1391 302 bclr 1,bitf1 ;Обнуляем pb

ED86 2006 303 bra raznom

304 time2m:

ED88 B79C 305 sta time2 ;Время импульса в

time2

ED8A B09B 306 sub time1 ;Вычитаем из

time2,time1

ED8C 1291 307 bset 1,bitf1 ;Устанавливаем pb

308 raznom:

ED8E B79D 309 sta time3 ;Разность времени в

Time3

ED90 B697 310 lda amp2 ;-------------------

------

ED92 B098 311 sub amp1 ;Вычисляем разность амплитуд рез. в аккумуляторе

ED94 AE0A 312 ldx #!10 ;Разность амплитуд

умножаем на 10

ED96 42 313 mul ;-------------------

-------------

ED97 BFA4 314 stx pmem1

ED99 55A4 315 ldhx pmem1

ED9B BE9D 316 ldx time3

ED9D 52 317 div ;Разность амплитуд умноженная на 10 делим на time3

318 ;в результате получаем производную амплитуд

319

тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 8 Перейти на страницу: 8 9 10 11 12 13 14 15 16 17 18

Советуем почитать:

Система электронного управления магнитно-резонансного томографа МР томограф представляет собой сложную систему, состоящую из большого числа узлов различного назначения и размещенную на большой площади. Сказанное относится в первую очередь к МРТ ...

Защита информации от утечки по цепям питания Циркулирующая в тех или иных технических средствах конфиденциальная информация может попасть в цепи и сети электрического питания и через них выйти за пределы контролируемой зоны. Наприм ...

Цифровые синтезаторы частоты Радиопередающие устройства (РПдУ) применяются в сферах телекоммуникации, телевизионного и радиовещания, радиолокации, радионавигации. Стремительное развитие микроэлектрон ...