编写程序计算(A+B*10-D)/C,其中A、B、C、D均为已定义的有符号双字变量,要求商和余数分别存入变量X和Y中
发布网友
发布时间:2022-05-14 19:47
我来回答
共4个回答
热心网友
时间:2023-10-26 22:52
DATA SEGMENT
A1DW10;双字变量A的低16位
A2DW0;双字变量A的高16位
B1DW10;双字变量B的低16位
B2DW0;双字变量B的高16位
CDW3
D1DW10;双字变量D的低16位
D2DW0;双字变量D的高16位
XDW0
YDW0
ZDW10
MDB1 DUP('X')
NDB1 DUP('Y')
KDB1 DUP('=')
STRDB 16 DUP(?)
DATAENDS
STACKSEGMENTSTACK
DB200DUP(0)
STACKENDS
CODESEGMENT
ASSUME DS:DATA,SS:STACK,CS:CODE
START: MOVAX,DATA
MOVDS,AX
MOVAX,B1
IMULZ
MOVCX,AX
MOVBX,DX
MOVAX,B2
IMULZ
ADDBX,AX
MOVAX,A1
MOVDX,A2
ADDCX,AX
ADCBX,DX
MOVAX,D1
MOVDX,D2
SUBCX,AX
SBBBX,DX
MOVAX,CX
MOVDX,BX
IDIVC
MOVX,AX
MOVY,DX
LEADI,STR
MOVBYTEPTR [DI],'X'
INCDI
MOVBYTEPTR [DI],'='
INC DI
MOVAX,X
MOVCL,4
SHRAH,CL
ORAH,30H
CMPAH,3Ah
JBBELOW1
ADDAH,07H
BELOW1:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,X
ANDAH,0FH
ORAH,30H
CMPAH,3Ah
JBBELOW2
ADDAH,07H
BELOW2:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,X
MOVCL,4
SHRAL,CL
ORAL,30H
CMPAL,3Ah
JBBELOW3
ADDAL,07H
BELOW3:ADDAL,00H
MOV[DI],AL
INCDI
MOVAX,X
ANDAL,0FH
ORAL,30H
CMPAL,3Ah
JBBELOW4
ADDAL,07H
BELOW4:ADDAL,00H
MOV[DI],AL
INCDI
MOVBYTEPTR [DI],'H'
INCDI
MOVBYTEPTR [DI],','
INCDI
MOVBYTEPTR [DI],'Y'
INCDI
MOVBYTEPTR [DI],'='
INC DI
MOVAX,Y
MOVCL,4
SHRAH,CL
ORAH,30H
CMPAH,3Ah
JBBELOW5
ADDAH,07H
BELOW5:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,Y
ANDAH,0FH
ORAH,30H
CMPAH,3Ah
JBBELOW6
ADDAH,07H
BELOW6:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,Y
MOVCL,4
SHRAL,CL
ORAL,30H
CMPAL,3Ah
JBBELOW7
ADDAL,07H
BELOW7:ADDAL,00H
MOV[DI],AL
INCDI
MOVAX,Y
ANDAL,0FH
ORAL,30H
CMPAL,3Ah
JBBELOW8
ADDAL,07H
BELOW8:ADDAL,00H
MOV[DI],AL
INCDI
MOVBYTEPTR [DI],'H'
INCDI
MOVBYTEPTR [DI],'$'
LEADX,STR
MOVAH,9
INT21H
MOVAH,4CH
INT21H
CODEENDS
END START
热心网友
时间:2023-10-26 22:52
各种程序语言稍有差别
VB 商 int((A+B*10-D)/C)
余数 (A+B*10-D) mod C
热心网友
时间:2023-10-26 22:53
给你 发邮箱了`........
........
很好 很全的 VB 大全`~!~!~!~
热心网友
时间:2023-10-26 22:53
给你 发邮箱了`. . 很好 很全的 VB 大全`~!~!~!~ 一、Val 函数 返回包含于字符串内的数字,字符串中是一个适当类型的数值。 语法 Val(
热心网友
时间:2023-10-26 22:52
DATA SEGMENT
A1DW10;双字变量A的低16位
A2DW0;双字变量A的高16位
B1DW10;双字变量B的低16位
B2DW0;双字变量B的高16位
CDW3
D1DW10;双字变量D的低16位
D2DW0;双字变量D的高16位
XDW0
YDW0
ZDW10
MDB1 DUP('X')
NDB1 DUP('Y')
KDB1 DUP('=')
STRDB 16 DUP(?)
DATAENDS
STACKSEGMENTSTACK
DB200DUP(0)
STACKENDS
CODESEGMENT
ASSUME DS:DATA,SS:STACK,CS:CODE
START: MOVAX,DATA
MOVDS,AX
MOVAX,B1
IMULZ
MOVCX,AX
MOVBX,DX
MOVAX,B2
IMULZ
ADDBX,AX
MOVAX,A1
MOVDX,A2
ADDCX,AX
ADCBX,DX
MOVAX,D1
MOVDX,D2
SUBCX,AX
SBBBX,DX
MOVAX,CX
MOVDX,BX
IDIVC
MOVX,AX
MOVY,DX
LEADI,STR
MOVBYTEPTR [DI],'X'
INCDI
MOVBYTEPTR [DI],'='
INC DI
MOVAX,X
MOVCL,4
SHRAH,CL
ORAH,30H
CMPAH,3Ah
JBBELOW1
ADDAH,07H
BELOW1:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,X
ANDAH,0FH
ORAH,30H
CMPAH,3Ah
JBBELOW2
ADDAH,07H
BELOW2:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,X
MOVCL,4
SHRAL,CL
ORAL,30H
CMPAL,3Ah
JBBELOW3
ADDAL,07H
BELOW3:ADDAL,00H
MOV[DI],AL
INCDI
MOVAX,X
ANDAL,0FH
ORAL,30H
CMPAL,3Ah
JBBELOW4
ADDAL,07H
BELOW4:ADDAL,00H
MOV[DI],AL
INCDI
MOVBYTEPTR [DI],'H'
INCDI
MOVBYTEPTR [DI],','
INCDI
MOVBYTEPTR [DI],'Y'
INCDI
MOVBYTEPTR [DI],'='
INC DI
MOVAX,Y
MOVCL,4
SHRAH,CL
ORAH,30H
CMPAH,3Ah
JBBELOW5
ADDAH,07H
BELOW5:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,Y
ANDAH,0FH
ORAH,30H
CMPAH,3Ah
JBBELOW6
ADDAH,07H
BELOW6:ADDAH,00H
MOV[DI],AH
INCDI
MOVAX,Y
MOVCL,4
SHRAL,CL
ORAL,30H
CMPAL,3Ah
JBBELOW7
ADDAL,07H
BELOW7:ADDAL,00H
MOV[DI],AL
INCDI
MOVAX,Y
ANDAL,0FH
ORAL,30H
CMPAL,3Ah
JBBELOW8
ADDAL,07H
BELOW8:ADDAL,00H
MOV[DI],AL
INCDI
MOVBYTEPTR [DI],'H'
INCDI
MOVBYTEPTR [DI],'$'
LEADX,STR
MOVAH,9
INT21H
MOVAH,4CH
INT21H
CODEENDS
END START
热心网友
时间:2023-10-26 22:52
各种程序语言稍有差别
VB 商 int((A+B*10-D)/C)
余数 (A+B*10-D) mod C
热心网友
时间:2023-10-26 22:53
给你 发邮箱了`........
........
很好 很全的 VB 大全`~!~!~!~
热心网友
时间:2023-10-26 22:53
给你 发邮箱了`. . 很好 很全的 VB 大全`~!~!~!~ 一、Val 函数 返回包含于字符串内的数字,字符串中是一个适当类型的数值。 语法 Val(