;入口條件：待平方數在R2、R3中。
;出口信息：結果在R2、R3、R4、R5中。
;影響資源：PSW、A、B、R2～R5    堆棧需求：  ２字節

MUL2:	MOV	A,R3	;計算R3平方
	MOV	B,A
	MUL	AB
	MOV	R4,B	;暫存部分積
	MOV	R5,A
	MOV	A,R2	;計算R2平方
	MOV	B,A
	MUL	AB
	XCH	A,R3	;暫存部分積，并換出R2和R3
	XCH	A,B
	XCH	A,R2
	MUL	AB	;計算2×R2×R3
	CLR	C
	RLC	A
	XCH	A,B
	RLC	A
	JNC	MU20
	INC	R2	;累加溢出量
MU20:	XCH	A,B	;累加部分積
	ADD	A,R4
	MOV	R4,A
	MOV	A,R3
	ADDC A,B
	MOV	R3,A
	CLR	A
	ADDC	A,R2
	MOV	R2,A
	RET