PersonalCorpus 版 (精华区)

入口条件：待平方数在R2、R3中。
出口信息：结果在R2、R3、R4、R5中。
影响资源：PSW、A、B、R2～R5 堆栈需求： ２字节

vUL2: vOV A,R3 ；计算R3平方
vOV B,A
vUL AB
vOV R4,B ；暂存部分积
vOV R5,A
vOV A,R2 ；计算R2平方
vOV B,A
vUL AB
XCH A,R3 ；暂存部分积，并换出R2和R3
XCH A,B
XCH A,R2
vUL AB ；计算2×R2×R3
CLR C
RLC A
XCH A,B
RLC A
JNC vU20
INC R2 ；累加溢出量
vU20: XCH A,B ；累加部分积
ADD A,R4
vOV R4,A
vOV A,R3
ADDC A,B
vOV R3,A
CLR A
ADDC A,R2
vOV R2,A
Ret







;