EC23 9D 91 nop
EC24 9D 92 nop
EC25 1901 93 bclr 4,PTB
EC27 CDEF08 94 jsr deleysret ;Задержка 30 мкС
EC2A 6E0803 95 mov #$8,PTD
EC2D 1801 96 bset 4,PTB ;Формирование
стробирующего импульса
EC2F 9D 97 nop
EC30 9D 98 nop
EC31 9D 99 nop
EC32 9D 100 nop
EC33 9D 101 nop
EC34 1901 102 bclr 4,PTB
EC36 CDEF08 103 jsr deleysret ;Задержка 30 мкС
104
105 ;---------------------------------------------
106
107 main:
тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 3
EC39 A628 108 lda #!40
EC3B AE80 109 ldx #$80
110 sbm:
EC3D 7F 111 clr ,X ; Обнуление ячеек памяти
EC3E 5C 112 incx
EC3F 4A 113 deca
EC40 26FB 114 bne sbm
EC42 6E5994 115 mov #!89,por
EC45 6E089E 116 mov #!8,pr1 ;Порог для систоличе
ского
EC48 6E0DA0 117 mov #!13,pr2;Порог для диастолического
118
EC4B 9A 119 cli ;Разрешаем прерывания
120
EC4C 6E403C 121 mov #$40,ADSCR ;Запуск АЦП вход РТВ0
EC4F 0789FD 122 brclr 3,bitf,$
EC52 1789 123 bclr 3,bitf
EC54 4E8B8D 124 mov upress,const
125
126 ;--------------------------- ИНДИКАЦИЯ сис,диа,пул
127
EC57 6E0B84 128 mov #!11,bcd100 ;$34 - код буквы "C"
EC5A 6E0C85 129 mov #!12,bcd10
EC5D 6E0B86 130 mov #!11,bcd1
EC60 6E0083 131 mov #$0,adres
EC63 CDEEC1 132 jsr IND_RET ;Вывод на индикацию
EC66 6E0D84 133 mov #!13,bcd100 ;Вывод "ДИА"
EC69 6E0C85 134 mov #!12,bcd10
EC6C 6E0E86 135 mov #!14,bcd1
EC6F 6E4083 136 mov #$40,adres
EC72 CDEEC1 137 jsr IND_RET
EC75 6E0F84 138 mov #!15,bcd100 ;Вывод "ПУЛ"
EC78 6E1085 139 mov #!16,bcd10
EC7B 6E1186 140 mov #!17,bcd1
EC7E 6E4983 141 mov #$49,adres
EC81 CDEEC1 142 jsr IND_RET
143
144 ;----------------------------------------------
145
146
147 ;---------- ИНДИКАЦИЯ 0 в разделе сис ------------------------------;
148
EC84 6E0A84 149 mov #$a,bcd100 ;Символ пробела
EC87 6E0A85 150 mov #$a,bcd10
EC8A 6E0386 151 mov #$03,bcd1 ;Символ "0"
EC8D 6E4683 152 mov #$46,adres ;Запись адреса
EC90 CDEEC1 153 jsr IND_RET
EC93 1501 154 bclr 2,PTB
EC95 1701 155 bclr 3,PTB
EC97 6E0C03 156 mov #$c,PTD ;Включить дисплей
157
тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 4
158
159 ;-------------------------------------------------
160
EC9A 4E8B92 161 mov upress,cmp1
162
163 ;- Процедура ожидания окончания накачки манжеты --
164
165 ;- Задержка 0.7 секунды с индикацией текущего давления --------
166
167 loop:
EC9D 6E0093 168 mov #$0,del
169 loop2:
ECA0 4F 170 clra
ECA1 C7FFFF 171 sta $ffff ;Сброс WDOG
172 loop1:
ECA4 4A 173 deca
ECA5 26FD 174 bne loop1 ;Если аккумулятор=0 то
переход на loop1
ECA7 4E8B8C 175 mov upress,udav ;код напряжения с датчика заносим в udav
ECAA 450000 176 ldhx #$0
ECAD CDEE74 177 jsr VOLTS_PRESSURE_RET ;Вызов подпрограммы перекодировки напряжение в давление Перейти на страницу: 6 7 8 9 10 11 12 13 14 15 16
Советуем почитать:
Разработка комплексной системы защиты информации отдела внутренних дел по Вьюжному району Ленинградской области Целью данной работы является разработка эффективной системы защиты информации, а для ее успешной реализации необходимо провести ряд важных мероприятий: анализ производственной деяте ...
Разработка эквивалентных и принципиальных схем электрического фильтра и усилителя напряжения В электротехнических, радиотехнических и телемеханических установках и устройствах связи часто ставится задача: из многих сигналов, занимающих широкую полосу частот, выделить один или н ...
Цифровые синтезаторы частоты Радиопередающие устройства (РПдУ) применяются в сферах телекоммуникации, телевизионного и радиовещания, радиолокации, радионавигации. Стремительное развитие микроэлектрон ...