EE2C 22F0 387 bhi exitdav
EE2E CCEC39 388 jmp main
389
390 ;------------------------------------------------;
391
392
393
394
395
396 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
397
398
399 ADC_INT: ; обработчик прерывания от АЦП
EE31 8B 400 pshh
EE32 018913 401 brclr 0,bitf,adm1 ;если ав=0
то переход на adm1
EE35 038907 402 brclr 1,bitf,adm2 ;переход если ав1=0
тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 10
EE38 1889 403 bset 4,bitf
EE3A 4E3D8A 404 mov ADR,upress1
EE3D 2004 405 bra zap
406 adm2:
EE3F 1589 407 bclr 2,bitf ;сброс ав2
EE41 1289 408 bset 1,bitf ;уст. ав1
409 zap:
EE43 6E413C 410 mov #$41,ADSCR ;команда
запуска АЦП вход PTB1
411
EE46 2011 412 bra exit
413 adm1:
EE48 058907 414 brclr 2,bitf,adm3 ;переход если ав2=0
EE4B 1689 415 bset 3,bitf
EE4D 4E3D8B 416 mov ADR,upress
EE50 2004 417 bra zap1
418 adm3:
EE52 1389 419 bclr 1,bitf ; сброс ав1
EE54 1489 420 bset 2,bitf ; уст. ав2
421 zap1:
EE56 6E403C 422 mov #$40,ADSCR ;команда
запуска АЦП вход PTB0
423 exit:
EE59 8A 424 pulh
EE5A 80 425 rti
426
427
428
429 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
430
431 timer_int: ;Обработчи прерывания от таймера
EE5B 1F20 432 bclr 7,TSC ;Сброс TOF
EE5D 3C9A 433 inc sec10
EE5F B69A 434 lda sec10
EE61 A109 435 cmp #$9
EE63 250E 436 blo exittime ;Если sec10>9 то перхода нет
EE65 3F9A 437 clr sec10
EE67 3C99 438 inc sec
EE69 3C95 439 inc ovsec
EE6B B695 440 lda ovsec
EE6D A105 441 cmp #!5
EE6F 2502 442 blo exittime
EE71 1A89 443 bset 5,bitf
444 exittime:
EE73 80 445 rti
446
447
448 ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
449
450
451 VOLTS_PRESSURE_RET: ;подпрограмма табличной перекодировки напр. в давление
452 ;число для перекодир
тонометр.asm Assembled with CASM08Z 25.02.03 9:58:45 PAGE 11
453 ;начало таблицы -TCP
EE74 87 454 psha
EE75 8B 455 pshh
EE76 89 456 pshx
457
EE77 B68C 458 lda udav
EE79 B08D 459 sub const ;const- напряжение
при нулевом давлении
EE7B 97 460 tax
EE7C D6EF14 461 lda TCP,x
EE7F B78E 462 sta dav ;перекодированное
число в dav
463
EE81 88 464 pulx
EE82 8A 465 pulh
EE83 86 466 pula
EE84 81 467 rts
468
469
470
471
472 ;\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
473
474
475
476
477 BCD_RET: ;подпрограмма перевода числа в BCD формат
478 ;число для перевода находится в "y"
479 ;BCD100 - сотни
480 ;BCD10 - десятки
481 ;BCD1 - единицы
482
EE85 87 483 psha
EE86 8B 484 pshh
EE87 89 485 pshx
486
EE88 B68F 487 lda y ;Делимое в
аккумулятор
EE8A A163 488 cmp #!99
EE8C 2206 489 bhi bcd100m ;если y>99 то переход на bcd100m
EE8E A109 490 cmp #!9
EE90 2210 491 bhi bcd10m ;если y>9 то переход на bcd10m Перейти на страницу: 10 11 12 13 14 15 16 17 18 19
Советуем почитать:
Передатчик импульсный СВЧ диапазона Управление полетом современных летательных аппаратов (ЛА) - технически сложный процесс, который требует большого количества стабильной и достоверной информации о параметрах полета, режим ...
Проектирование системы передачи цифровых данных В настоящее время очень развиты различные системы передачи данных, разработаны основные стандарты, на основе которых строятся реальные системы. В настоящей работе была осуществлена попыт ...
Применение метода вейвлет-кодирования для сжатия и реконструкции физиологической информации, передаваемой по каналу радиотелеметрии Современная медицина неразрывно связана с применением различных диагностических и терапевтических приборов и тенденция к дальнейшему внедрению технических средств в медико-биологическую прак ...