ECB0 4E8E8F 178 mov dav,y
ECB3 CDEE85 179 jsr BCD_RET
ECB6 6E0483 180 mov #$04,adres ;занести адрес начала индикации
ECB9 CDEEC1 181 jsr IND_RET
ECBC 3A93 182 dec del
ECBE 26E0 183 bne loop2 ;Если del=0 то переход на loop2
ECC0 069104 184 brset 3,bitf1,lop ;Если 3 бит=0 то задержка происходит снова
ECC3 1691 185 bset 3,bitf1 ;Установить 3 бит в 1
ECC5 20D6 186 bra loop ;Переход на loop
187 lop:
ECC7 1789 188 bclr 3,bitf ;Сбросить 3 бит в 1
189
190 ;-------------------------------------------------
ECC9 C7FFFF 191 sta $ffff
ECCC B68B 192 lda upress ;Загружаем upress в аккумулятор для сравнения
ECCE B192 193 cmp cmp1 ;с cmp1
ECD0 2502 194 blo ampmet ;Если А>cmp1, то
накачка манжеты всё ещё идет
ECD2 20C9 195 bra loop ;поэтому переходим на loop
196
197 ;------- Определение амплитуды -------------------
198
тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 5
199 ampmet:
ECD4 C7FFFF 200 sta $ffff
ECD7 1089 201 bset 0,bitf ;Устанавливаем аналоговый вход РТВ1
ECD9 6E3023 202 mov #$30,TMODH ;Инициализация
таймера, период счёта до 12499
ECDC 6ED324 203 mov #$d3,TMODL ; частота тактирования 125000 Гц
ECDF 6E4320 204 mov #$43,TSC ;Запуск таймера
205 dvbm:
ECE2 C7FFFF 206 sta $ffff
ECE5 0A8902 207 brset 5,bitf,rm ;Если цикл продолжается больше 5 секунд
ECE8 2003 208 bra m55 ;то выводим сообщение об ошибки
209 rm:
ECEA CCEDFC 210 jmp rorm
211 m55:
ECED B68A 212 lda upress1
ECEF B194 213 cmp por ;Сраниваем upress1 c порогом por
ECF1 25EF 214 blo dvbm ;Если upress1<por то переходим на dvbm
ECF3 3F95 215 clr ovsec ;Сброс OVsec
ECF5 4E8A96 216 mov upress1,cmpad ;-----------------------------
217 loopamp:
ECF8 C7FFFF 218 sta $ffff ;-----------------
ECFB 1989 219 bclr 4,bitf ;-----------------
ECFD 0989FD 220 brclr 4,bitf,$ ;Идентификация
амплитуды
ED00 B68A 221 lda upress1 ;-----------------
ED02 B196 222 cmp cmpad ;-----------------
ED04 22F2 223 bhi loopamp ;Если upress1>cmpad
то переходим на loopamp
224
225 ;---------- Сброс и перезапуск таймера -----------
226
ED06 1A20 227 bset 5,TSC
ED08 1820 228 bset 4,TSC
ED0A 6E4320 229 mov #$43,TSC
230
231 ;-------------------------------------------------
232
ED0D 4E9697 233 mov cmpad,amp2 ;В amp2 находится значение амплитуды
ED10 1189 234 bclr 0,bitf ;Устанавливаем аналоговый вход РТВ0
ED12 1789 235 bclr 3,bitf ;Обнуляем бит СОСО1
ED14 0789FD 236 brclr 3,bitf,$ ;Если СОСО1=0 то
зациклеваемся
ED17 4E8B8C 237 mov upress,udav ;Код напряжения с
тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 6
датчика в udav
ED1A 1089 238 bset 0,bitf ;Устанавливаем
аналоговый вход РТВ1
ED1C 3C90 239 inc pulse ;В pulse кол-во
амплитуд
ED1E B697 240 lda amp2
ED20 B198 241 cmp amp1
ED22 220B 242 bhi proim ;Если amp2>amp1 то
переход на proim
ED24 4E98A4 243 mov amp1,pmem1 ;-----------------
ED27 4E9798 244 mov amp2,amp1 ;Меняем местами Перейти на страницу: 7 8 9 10 11 12 13 14 15 16 17
Советуем почитать:
Разработка технологического процесса сборки усилителя мощности звуковой частоты Производственный процесс представляет совокупность всех действий людей и орудий производства, необходимых на данном предприятии для изготовления или ремонта РЭА. Технологический проц ...
Энергонезависимая память для телевизоров седьмого поколения Развитие вещательного телевидения идет по пути постоянного повышения качества телевизионного изображения и звукового сопровождения, расширения функциональных возможностей телевизора и п ...
Прием и выплата электронных переводов В октябре 2007г. ФГУП "Почта работы" начала реализацию проекта по Модернизаций системы электронных переводов. Основная цель проекта-Повысить доступность и качество оказываемых ...