Ультразвуковое измерение дальности на MSP430

g equ	008h
h equ	080h
Blank equ	OOOh
LCD Tab db	a+b+c+d+e+f	Отображает "О"
db	b+c	Отображает "1"
db	a+b+d+e+g	Отображает "2"
db	a+b+c+d+g	Отображает "3"
db	b+c+f+g	Отображает "4"
db	a+c+d+f+g	Отображает "5"
db	a+c+d+e+f+g	Отображает "6"
db	a+b+c	Отображает "7"
db	a+b+c+d+e+f+g	Отображает "8"
db	a+b+c+d+f+g	Отображает "9"
db	a+b+c+e+f+g	Отображает "А"
db	Blank	Пустой экран
db	a+d+e+f	Отображает "С"
db	b+c+d+e+g	Отображает "D"
db	a+d+e+f+g	Отображает "Е"
db	a+e+f+g	Отображает "F"

Delay

Программная задержка

 

DL1

 

push	#OFFFFh	Задержка -» TOS
dec.w	0 (SP)	Декремент TOS
jnz	DL1	Задержка выполнена?
incd	SP	Очистка TOS
ret		Возврат из подпро-
		граммы

Math calc ; Подпрограмма математических вычислений

mov.w cmp.w jeq call

#0h, #0h,

DIGITS Result

calc_over #MullOC

call #Divide

Очистить DIGIT

Проверка результата

счёта Result на С

Если 0 - на выход

Result умножается на

Потом делится на #06d