Elektrod-serv.ru

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

Рабочая БСА

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

Советуем почитать:

Разработка комплексной системы защиты информации отдела внутренних дел по Вьюжному району Ленинградской области Целью данной работы является разработка эффективной системы защиты информации, а для ее успешной реализации необходимо провести ряд важных мероприятий: анализ производственной деяте ...

Разработка эквивалентных и принципиальных схем электрического фильтра и усилителя напряжения В электротехнических, радиотехнических и телемеханических установках и устройствах связи часто ставится задача: из многих сигналов, занимающих широкую полосу частот, выделить один или н ...

Цифровые синтезаторы частоты Радиопередающие устройства (РПдУ) применяются в сферах телекоммуникации, телевизионного и радиовещания, радиолокации, радионавигации. Стремительное развитие микроэлектрон ...