
Фармацевтическая этика
Становление этики и деонтологии...
Современная медицинская деонтология, рассматривая проблемы долга, деятельности медицинских и фармацевтических работников, исходит из специфики их труда.

Алгоритм работы микроконтроллера
Рисунок 12 - Алгоритм работы микроконтроллера
Текст программы:
CSEG AT 0; абсолютный сегмент по адресу 0
LJMP START0003HMAINTIMERAT 60H: DS 10H; резерв памяти под стек Segment Data; перемещаемый сегмент данных
RSEG Mydata
ORG: 20H
Input: DS 6; место под входные данные
K:DS1; место под калибровочный сигнал
ReoINd: DS1; место под реографический индекс
AmplDS1; место под значение амплитуды
SistDiastDS1; место под систоло-диастолический показатель
IndElastDS1; место под индекс эластичности
IndTonusDS1; место под индекс тонуса
My_Prog Segment Code; перемещаемый сегмент My_Prog; активация этого сегмента
org 30h
mov ReoINd, #0; загрузка ReoINd
mov Ampl, #0; задание нулевых начальных
mov SistDiast, #0; условий
mov IndElast, #0
mov IndTonus, #0
; Блок инициализации
Start:mov SP, #Stack-1; инициализация указателя стекаIT0; установление прерываний по срезуIE, #82H; разрешение всех прерыванийEX0; разрешение внешнего прерыванияTMOD, #01H; инициализация таймераTL0, #047H;запись кодов начальной задержкиTH0, #0F4H;в таймерTR0;запуск таймераSCON, #052H; установка режима 8-битного UART
mov R0, #Input; помещение в R0 входных данных
mov R1, #KR2, #Aart
mov R3, #AvenR4, #Adicr R5, #Ainc
push R0; сохранение регистра
push R2R2R3R4R5_data:mov Ampl, @R0; поместить в Ampl значение R0_GND:_GND: TIMER; Вызов фоновой задачи
CLR EA; запрет прерываний
;Нахождение реографических показателей:
clr C; очистка переноса
mov A, R0; забрать в аккумулятор R0
div A, K; вычисление реографического индекса
mov R0, A; результат поместить в R0
clr C; очистка переноса
mov R1, Ampl; сохранение значения амплитуды в R1
clr A
mov A, R2
div A, R4; вычисление систоло-диастолического показателя
mov R4, AAA, R2 A, R3; вычисление индекса эластичности
mov R3, AAA, R5 A, R2; вычисление индекса тонуса
mov R5, A
mov PD0, R0; передача данных в ПК
mov PD0, R1PD0, R4PD0, R3PD0, R5 R5; очистка регистров
clr R4
clr R3R2R1 R0
SETB EA;разрешение прерываний
RETI
TIMER: push ACC; сохранение аккумулятора
push PSW;сохранение в стеке PSW
mov TH0, #0F4H;TL0, #047H;ACCPSW
END