возведение в квадрат

	ЗАПИСЫВАЕМ Х В АККУМ								
									
800	MOV EA	0E	множ-ль						
801		0,2							
802	MOV DA	16	множимое						
803		O2							
804	mvi b	O6	запись 0 в рег СБ суммы						
805		OO							
806	mvi e	1E	запись числа 3 в счетчик						
807		O3							
808	mov ca	79	множ-ль в А						
809	rar	1F	очередной бит в флаг С						
80A	mov ca	4F	Возвращ-е множ-ля						
80B	dcr e	1D	декр счетчика						
80C	JM	FA	переход на завершение программы если исчерпаны все биты множителя 	
80D	19								
80E	O8				
80F	MOV AB	78	СБ произвед в А		
810	JNC	D2	обход суммир-я		
811	14				
812	O8				
813	ADD D	82	суммир-е множ-мого		
814	RAR	1F	сдвиг частичн суммы		
815	MOV BA	47	возвр-е СБ суммы		
816	JMP	C3			
817	08				
818	09				
819	HLT				

результат в А