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