Appslike.site

Системы радиосвязи

Рабочая БСА

320 ;--------------------- Процедура определения

давления ----------------------------------;

321

ED9E 049109 322 brset 2,bitf1,pr2m ;Если qb=1 то

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

EDA1 B19E 323 cmp pr1 ;pr1 - порог для

систолического давления

EDA3 2505 324 blo pr2m ;Если производная

меньше pr1 то переход на pr2m

EDA5 4E8C9F 325 mov udav,sis ;Заносим значение

давления в sis

EDA8 1489 326 bset 2,bitf ;Устанавливаем qb в

1

327 pr2m:

EDAA C7FFFF 328 sta $ffff

EDAD B1A0 329 cmp pr2 ;pr2 - порог для

диастолического давления

EDAF 2591 330 blo cbm ;Если производная

меньше pr2 то переход на cbm

EDB1 4E8CA1 331 mov udav,dia ;Значение давления

заносим в dia

EDB4 A600 332 lda #!0

EDB6 B19F 333 cmp sis

EDB8 2342 334 bls rorm ;Если sis=<0 то

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

EDBA A63C 335 lda #!60 ;Вычисляем усреднённое значение пульса

EDBC BE99 336 ldx sec ;-----------------

EDBE 52 337 div ;-----------------

EDBF BE90 338 ldx pulse ;-----------------

EDC1 42 339 mul ;-----------------

EDC2 B7A2 340 sta pul ;-----------------

341

342 ;--------------------- Индикация давления и пульса

-----------------------------------;

343

EDC4 C7FFFF 344 sta $ffff

EDC7 4E9F8C 345 mov sis,udav ;Вывод систолического давления

EDCA CDEE74 346 jsr VOLTS_PRESSURE_RET ;Вызов

подпрограммы перекодировки напряжение в давление

EDCD 4E8E8F 347 mov dav,y

EDD0 CDEE85 348 jsr BCD_RET

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

EDD6 CDEEC1 350 jsr IND_RET

351

EDD9 4EA18C 352 mov dia,udav ;Вывод диастолического давления

EDDC CDEE74 353 jsr VOLTS_PRESSURE_RET ;Вызов

подпрограммы перекодировки напряжение в давление

EDDF 4E8E8F 354 mov dav,y

EDE2 CDEE85 355 jsr BCD_RET

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

EDE5 6E4483 356 mov #$44,adres ;занести адрес начала индикации

EDE8 CDEEC1 357 jsr IND_RET

358

EDEB C7FFFF 359 sta $ffff

EDEE 4EA28F 360 mov pul,y ;Вывод пульса

EDF1 CDEE85 361 jsr BCD_RET

EDF4 6E4D83 362 mov #$4d,adres ;занести адрес начала индикации

EDF7 CDEEC1 363 jsr IND_RET

EDFA 2022 364 bra exitdav

365 rorm:

EDFC 1501 366 bclr 2,PTB

EDFE 1701 367 bclr 3,PTB

EE00 6E0103 368 mov #$1,PTD ;Очистка дисплея

EE03 6E1284 369 mov #!18,bcd100 ; "O"

EE06 6E1385 370 mov #!19,bcd10 ; "Ш"

EE09 6E0C86 371 mov #!12,bcd1 ; "И"

EE0C 6E0583 372 mov #$5,adres

EE0F CDEEC1 373 jsr IND_RET

EE12 6E1484 374 mov #!20,bcd100 ; "Б"

EE15 6E1585 375 mov #!21,bcd10 ; "К"

EE18 6E0E86 376 mov #!14,bcd1 ; "А"

EE1B CDEEC1 377 jsr IND_RET

378 exitdav:

379

380 ;------ Проверка спущена манжета или нет ---------

EE1E C7FFFF 381 sta $ffff

EE21 1189 382 bclr 0,bitf

EE23 1789 383 bclr 3,bitf

EE25 0789FD 384 brclr 3,bitf,$ ;Если COCO1=0 происходит зациклевание

EE28 B68B 385 lda upress

EE2A A105 386 cmp #!5 Перейти на страницу: 9 10 11 12 13 14 15 16 17 18 19

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

Определение безотказности РЭУ при наличии резервирования замещением (резерв ненагруженный) Целью данного курсового проектирования является получение (расчетным способом и моделированием отказов на ЭВМ) и сравнение показателей безотказности РЭУ при наличии резервирования замещение ...

Импульсный лабораторный источник питания Для проведения лабораторных работ, исследований и испытаний приборов необходим источник питания. Требования к источникам вторичного питания, предъявляются очень высокие. Особенно к таким ...

Основные положения регламента любительской радиосвязи Украины Регламент любительской радиосвязи Украины разработан в соответствии с Регламентом Радиосвязи Международного Союза Электросвязи, законом Украины "Про связь", рекомендациями Межд ...