jisuanqi.txt

来自「计算器的功能实现,简单的数据操作规程.用图形法做的」· 文本 代码 · 共 136 行

AND AX,0FH 
SHL DI,1 
RCL DX,1 
MOV BX,DI 
MOV BP,DX 
SHL DI,1 
RCL DX,1 
SHL DI,1 
RCL DX,1 
JCXZ DATE3 
SHL DI,1 
RCL DX,1 
Jmp short DATE4 
DATE3: 
ADD DI,BX 
ADC DX,BP 
DATE4: 
ADD AX,DI 
ADC DX,0 
JMP DATE1 
DATE5: 
ADD AL,9 
JMP DATE2 
DATE6: 
JCXZ DATE7 
CMP AL, 'A ' 
JB DATE7 


CMP AL, 'F ' 
JBE DATE5 
CMP AL, 'a ' 
JB DATE7 
CMP AL, 'f ' 
JBE DATE5 
DATE7: 
MOV AX,DI 
DEC SI 
OR DI,DX 
POP DI 
POP BP 
POP BX 
RET 
;数据1与数据2根据YSF1进行加减运算 
JSJJ LABEL NEAR 
MOV AX,NUM2 
MOV DX,NUM2 2 
CMP YSF1, ' ' 
JZ JSJJ1 
SUB NUM1,AX 
SBB NUM1 2,DX 
JMP SHORT JSJJ2 
JSJJ1: 
ADD NUM1,AX 


ADC NUM1 2,DX 
JSJJ2: 
RET 
;数据1与数据2根据YSF1进行乘除运算 
JSII1 LABEL NEAR 
MOV BX,OFFSET NUM1 
JMP SHORT JSII2_1 
;数据2与数据3根据YSF2进行乘除运算 
JSII2 LABEL NEAR 
MOV BX,OFFSET NUM2 
JSII2_1: 
DB 66H 
MOV AX,[BX] 
DB 66H 
MOV CX,[BX 4] 
CMP YSF2, '* ' 
JNZ JSII2_2 
DB 66H 
IMUL CX 
JMP SHORT JSII2_3 
JSII2_2: 
DB 66H 
CWD 
DB 66H 
IDIV CX 
CMP YSF2, '/ ' 
JZ JSII2_3 
DB 66H 
XCHG DX,AX 
JSII2_3: 
DB 66H 
MOV [BX],AX 
RET 
;显示结果 
XUJG LABEL NEAR 
MOV AX,JGV4 
MOV DX,JGV4 2 
MOV CX,10 
CMP UV,10 
JZ XUJG0 
MOV CX,16 
XUJG0: 
TEST DX,8000H 
JZ XUJG1 
CMP UV,10 
JZ XUJG2 
CALL DOUT 
XUJG2: 
NOT AX 
NOT DX 
ADD AX,1 
ADC DX,0 
PUSH AX 


CMP UV,10 
JZ XUJG3 
MOV AL, ' ' 
CALL DISP 
MOV AL, '( ' 
CALL DISP 
XUJG3: 
MOV AL, '- ' 
CALL DISP 
POP AX 
CMP UV,10 
JZ XUJG1 
CALL DOUT 
MOV AL, ') ' 
CALL DISP 
RET 
XUJG1: 
CALL DOUT 
RET
网友回复: 

;计算结果放入DX:AX中 
JSJG LABEL NEAR 
CALL JSJJ