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