cmp fssf,1 jz xsd0

adjust0:

xchg al,numb0[si] inc si loop adjust0 mov numb0f,0 jmp ru

place0:mov numb0f,0 mov numb0[0],al

jmp ru

xsd1:

add fsf1,1 jmp adjust1 xsd0:

add fsf0,1 jmp adjust0 ;小数点部分 fskey: mov fssf,1 jmp ru

;等号键部分 equkey:

call calp

mov finf,1 ;按下等号则调用CALP运算子程序， mov yunf,0 ;运算后清空运算符