jmp start ;按下clear键后跳转至开头,全部清零
;--------------------------------------------------------------------------------------- ;运算子程序CALP calp proc
cmp yunf,0 ;若运算符为0,则直接转输入 jz yunf_over
;否则跳转至结束处ret
cmp yunf,1 ;根据运算符调用运算子程序 jz addcal cmp yunf,2 jz subcal cmp yunf,3 jz mulcal cmp yunf,4 jz divcal
addcal:call addp
jmp yunf_over ;调用相应计算子程序
subcal:call subp
jmp yunf_over
mulcal:call mulp
jmp yunf_over
divcal:call divp yunf_over:ret
calp endp
;----------------------------------------------------------------------------------------- ;加法子程序 (带小数) addp proc push ax push dx