ED17 [05] 4E8B8C 237 mov upress,udav ;Êîä íàïðÿæåíèÿ ñ
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 6
äàò÷èêà â udav
ED1A [04] 1089 238 bset 0,bitf ;Óñòàíàâëèâàåì
àíàëîãîâûé âõîä ÐÒÂ1
ED1C [04] 3C90 239 inc pulse ;Â pulse êîë-âî
àìïëèòóä
ED1E [03] B697 240 lda amp2
ED20 [03] B198 241 cmp amp1
ED22 [03] 220B 242 bhi proim ;Åñëè amp2>amp1 òî
ïåðåõîä íà proim
ED24 [05] 4E98A4 243 mov amp1,pmem1 ;-----------------
ED27 [05] 4E9798 244 mov amp2,amp1 ;Ìåíÿåì ìåñòàìè
amp2 ñ amp1
ED2A [05] 4EA497 245 mov pmem1,amp2 ;-----------------
ED2D [04] 1E89 246 bset 7,bitf ;Óñòàíàâëèâàåì â 1
áèò cb
247
248 ;--- Ïðîöåäóðà âû÷èñëåíèÿ ïðîèçâîäíîé àìïëèòóäû --
249 proim:
ED2F [04] C7FFFF 250 sta $ffff
ED32 [05] 00913E 251 brset 0,bitf1,mtime ;Åñëè âõîä â
ïðîöåäóðó 2-îé ðàç òî ïåðåõîä íà mtime
ED35 [04] 1091 252 bset 0,bitf1 ;Óñòàíàâëèâàåì sb â 1
ED37 [03] BE99 253 ldx sec
ED39 [02] A60A 254 lda #!10
ED3B [05] 42 255 mul ;Óìíîæàåì sec íà 10
ED3C [01] 8C 256 clrh
ED3D [01] 5F 257 clrx
ED3E [03] BB9A 258 add sec10 ;Ðåçóëüòàò óìíîæåíèÿ
ñêëàäûâàåì ñ sec10,
259 ;ïîëó÷àåì âðåìÿ èìïóëüñà
ED40 [03] B79B 260 sta time1 ;Âðåìÿ èìïóëüñà
çàíîñèì â time1
261 cbm:
ED42 [05] 0F8908 262 brclr 7,bitf,perem ;Åñëè amp2 è amp1
ìåíÿëèñü ìåñòàìè òî
ED45 [04] 1F89 263 bclr 7,bitf ;ìåíÿåì èõ îáðàòíî
ED47 [05] 4E97A4 264 mov amp2,pmem1 ;-------------------
ED4A [05] 4E9897 265 mov amp1,amp2 ;-------------------
266 perem:
ED4D [05] 4E9798 267 mov amp2,amp1 ;amp2 çàíîñèì â amp1
268
269 ;- Çàäåðæêà ñ èíäèêàöèåé òåêóùåãî äàâëåíèÿ 0.3 ñåêóíäû ---------------------;
270
271
ED50 [04] 6E0093 272 mov #$0,del
273 loop20:
ED53 [01] 4F 274 clra
ED54 [04] C7FFFF 275 sta $ffff ;Ñáðîñ WDOG
276 loop11:
ED57 [01] 4A 277 deca
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 7
ED58 [03] 26FD 278 bne loop11
ED5A [05] 4E8B8C 279 mov upress,udav
ED5D [03] 450000 280 ldhx #$0
ED60 [05] CDEE74 281 jsr VOLTS_PRESSURE_RET;Âûçîâ ïîäïðîãðàììû ïåðåêîäèðîâêè íàïðÿæåíèå â äàâëåíèå
ED63 [05] 4E8E8F 282 mov dav,y
ED66 [05] CDEE85 283 jsr BCD_RET
ED69 [04] 6E0483 284 mov #$04,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
ED6C [05] CDEEC1 285 jsr IND_RET
ED6F [04] 3A93 286 dec del
ED71 [03] 26E0 287 bne loop20
288
289
290
291 ;---------------------------------------------
292
293 mtime:
ED73 [04] C7FFFF 294 sta $ffff
ED76 [03] BE99 295 ldx sec
ED78 [02] A60A 296 lda #!10
ED7A [05] 42 297 mul ;sec óìíîæàåì íà 10
ED7B [03] BB9A 298 add sec10 ;sec10+ðåçóëüòàò
óìíîæåíèÿ
ED7D [05] 039108 299 brclr 1,bitf1,time2m ;Åñëè pb=0 òî
ïåðåõîäèì íà time2m
ED80 [03] B79B 300 sta time1 ;Âðåìÿ èìïóëüñà â
time1
ED82 [03] B09C 301 sub time2 ;Âû÷èòàåì èç
time1,time2
ED84 [04] 1391 302 bclr 1,bitf1 ;Îáíóëÿåì pb
ED86 [03] 2006 303 bra raznom
304 time2m:
ED88 [03] B79C 305 sta time2 ;Âðåìÿ èìïóëüñà â
time2
ED8A [03] B09B 306 sub time1 ;Âû÷èòàåì èç
time2,time1
ED8C [04] 1291 307 bset 1,bitf1 ;Óñòàíàâëèâàåì pb
308 raznom:
ED8E [03] B79D 309 sta time3 ;Ðàçíîñòü âðåìåíè â
Time3
ED90 [03] B697 310 lda amp2 ;-------------------
------
ED92 [03] B098 311 sub amp1 ;Âû÷èñëÿåì ðàçíîñòü àìïëèòóä ðåç. â àêêóìóëÿòîðå
ED94 [02] AE0A 312 ldx #!10 ;Ðàçíîñòü àìïëèòóä
óìíîæàåì íà 10
ED96 [05] 42 313 mul ;-------------------
-------------
ED97 [03] BFA4 314 stx pmem1
ED99 [04] 55A4 315 ldhx pmem1
ED9B [03] BE9D 316 ldx time3
ED9D [07] 52 317 div ;Ðàçíîñòü àìïëèòóä óìíîæåííàÿ íà 10 äåëèì íà time3
318 ;â ðåçóëüòàòå ïîëó÷àåì ïðîèçâîäíóþ àìïëèòóä
319
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 8
320 ;--------------------- Ïðîöåäóðà îïðåäåëåíèÿ
äàâëåíèÿ ----------------------------------;
321
ED9E [05] 049109 322 brset 2,bitf1,pr2m ;Åñëè qb=1 òî
ïåðåõîäèì íà pr2m
EDA1 [03] B19E 323 cmp pr1 ;pr1 - ïîðîã äëÿ
ñèñòîëè÷åñêîãî äàâëåíèÿ
EDA3 [03] 2505 324 blo pr2m ;Åñëè ïðîèçâîäíàÿ
ìåíüøå pr1 òî ïåðåõîä íà pr2m
EDA5 [05] 4E8C9F 325 mov udav,sis ;Çàíîñèì çíà÷åíèå
äàâëåíèÿ â sis
EDA8 [04] 1489 326 bset 2,bitf ;Óñòàíàâëèâàåì qb â
1
327 pr2m:
EDAA [04] C7FFFF 328 sta $ffff
EDAD [03] B1A0 329 cmp pr2 ;pr2 - ïîðîã äëÿ
äèàñòîëè÷åñêîãî äàâëåíèÿ
EDAF [03] 2591 330 blo cbm ;Åñëè ïðîèçâîäíàÿ
ìåíüøå pr2 òî ïåðåõîä íà cbm
EDB1 [05] 4E8CA1 331 mov udav,dia ;Çíà÷åíèå äàâëåíèÿ
çàíîñèì â dia
EDB4 [02] A600 332 lda #!0
EDB6 [03] B19F 333 cmp sis
EDB8 [03] 2342 334 bls rorm ;Åñëè sis=<0 òî
ïåðåõîäèì íà rorm
EDBA [02] A63C 335 lda #!60 ;Âû÷èñëÿåì óñðåäí¸ííîå çíà÷åíèå ïóëüñà
EDBC [03] BE99 336 ldx sec ;-----------------
EDBE [07] 52 337 div ;-----------------
EDBF [03] BE90 338 ldx pulse ;-----------------
EDC1 [05] 42 339 mul ;-----------------
EDC2 [03] B7A2 340 sta pul ;-----------------
341
342 ;--------------------- Èíäèêàöèÿ äàâëåíèÿ è ïóëüñà
-----------------------------------;
343
EDC4 [04] C7FFFF 344 sta $ffff
EDC7 [05] 4E9F8C 345 mov sis,udav ;Âûâîä ñèñòîëè÷åñêîãî äàâëåíèÿ
EDCA [05] CDEE74 346 jsr VOLTS_PRESSURE_RET ;Âûçîâ
ïîäïðîãðàììû ïåðåêîäèðîâêè íàïðÿæåíèå â äàâëåíèå
EDCD [05] 4E8E8F 347 mov dav,y
EDD0 [05] CDEE85 348 jsr BCD_RET
EDD3 [04] 6E0483 349 mov #$04,adres ;çàíåñòè àäðåñ íà÷àëà èíäèêàöèè
EDD6 [05] CDEEC1 350 jsr IND_RET
351
EDD9 [05] 4EA18C 352 mov dia,udav ;Âûâîä äèàñòîëè÷åñêîãî äàâëåíèÿ
EDDC [05] CDEE74 353 jsr VOLTS_PRESSURE_RET ;Âûçîâ
EDDF [05] 4E8E8F 354 mov dav,y
EDE2 [05] CDEE85 355 jsr BCD_RET
òîíîìåòð.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 9
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
