cseg at 0  	; абсолютный сегмент кода размещается с адреса 0
		       	; в программной памяти
	mov a,P1    	; ввод байта данных с порта Р1 в аккумулятор
	anl a,#0f0h 	; выделение старшей тетрады А1
	swap a    	; тетрада перемещается в младшие разряды
	mov b,#10   ; 10 в регистре множителя
	mul ab  	; a=A1*10, b=0
	mov b,a     	; сохранить младшие разряды произведения
	mov a,P1   	; ввод байта данных с порта Р1 в аккумулятор
	anl a,#0fh  	; выделение младшей тетрады А0
	add a,b      	; a=(A1*(10)2 + A0)2
	mov P2,a   	; вывод результата в порт Р2
end		; псевдокоманда ассемблера- завершение текста