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
Советуем почитать:
Определение безотказности РЭУ при наличии резервирования замещением (резерв ненагруженный) Целью данного курсового проектирования является получение (расчетным способом и моделированием отказов на ЭВМ) и сравнение показателей безотказности РЭУ при наличии резервирования замещение ...
Импульсный лабораторный источник питания Для проведения лабораторных работ, исследований и испытаний приборов необходим источник питания. Требования к источникам вторичного питания, предъявляются очень высокие. Особенно к таким ...
Основные положения регламента любительской радиосвязи Украины Регламент любительской радиосвязи Украины разработан в соответствии с Регламентом Радиосвязи Международного Союза Электросвязи, законом Украины "Про связь", рекомендациями Межд ...