Elektrod-serv.ru

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

Рабочая БСА

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г. ФГУП "Почта работы" начала реализацию проекта по Модернизаций системы электронных переводов. Основная цель проекта-Повысить доступность и качество оказываемых ...