没有合适的资源?快使用搜索试试~ 我知道了~
汇编语言程序汇总及一些程序解析
需积分: 9 14 下载量 132 浏览量
2009-01-01
16:17:32
上传
评论
收藏 359KB DOC 举报
温馨提示
试读
53页
这是72个汇编语言程序 大家要好好看呢 相信肯定对大家做课程设计有帮助的
资源推荐
资源详情
资源评论
1
微机原理课程设计
1 计算器
DATASEGMENT
STRINGDB'PLEASEPRESSNUMBER1,
2,3,4,5:',0DH,0AH,'$'
BUFFDB10
DB?
DB10DUP(?)
ARRAY1DB'PLEASEINPUTTHEFIRSTN
UMBER:',0DH,0AH,'$'
ARRAY2DB'PLEASEINPUTTHESECOND
NUMBER:',0DH,0AH,'$'
ARRAY3DB10
DB?
DB10DUP(?)
ARRAYDW2DUP(?)
RESULTDB4DUP(?),'$'
DATAENDS
CODESEGMENT
ASSUMECS:CODE,DS:DATA
START:MOVAX,DATA
MOVDS,AX
MOVAH,00H
MOVAL,06H
INT10H
MOVDX,OFFSETARRAY1
MOVAH,9
INT21H
MOVDX,OFFSETBUFF
MOVAH,0AH
INT21H
CALLABC
MOVARRAY,AX
MOVDX,OFFSETARRAY2
MOVAH,9
INT21H
MOVDX,OFFSETBUFF
MOVAH,0AH
INT21H
CALLABC
MOVARRAY+2,AX
MOVAH,09H
MOVDX,OFFSETSTRING
INT21H
MOVDX,OFFSETARRAY3
MOVAH,0AH
INT21H
MOVBX,DX
MOVAL,[BX+2]
CMPAL,'1'
JZA1
CMPAL,'2'
JZA2
CMPAL,'3'
JZA3
CMPAL,'4'
JZA4
CMPAL,'5'
JZA5
A1:MOVAX,ARRAY
MOVBX,ARRAY+2
ADDAL,BL
ADCAH,0
CALLDEF
JMPLAST
A2:MOVAX,ARRAY
MOVBX,ARRAY+2
CMPAL,BL
JAEK0
JMPK1
K0:SUBAL,BL
CALLDEF
JMPLAST
K1:PUSHAX
MOVAH,02H
MOVDL,'-'
INT21H
POPAX
SUBBL,AL
MOVAL,BL
CALLDEF
JMPLAST
A3:MOVAX,ARRAY
MOVBX,ARRAY+2
MULBL
CALLDEF
JMPLAST
A4:MOVAX,ARRAY
MOVBX,ARRAY+2
DIVBL
MOVAH,0
CALLDEF
JMPLAST
A5:JMPLAST
ABCPROC
MOVCL,2
MOVCH,0
MOVBX,OFFSETBUFF+2
PUSHBX
PUSHCX
L0:SUB[BX],30H
INCBX
LOOPL0
POPCX
POPBX
MOVAH,0
MOVAL,0
MOVSI,10
L1:MULSI
ADDAL,[BX]
ADCAH,0
INCBX
LOOPL1
RET
ABCENDP
DEFPROC
MOVSI,OFFSETRESULT
SUBDX,DX
MOVBX,1000
DIVBX
ADDAL,30H
MOV[SI],AL
MOVAX,DX
MOVBL,100
DIVBL
ADDAL,30H
MOV[SI+1],AL
MOVAL,AH
SUBAH,AH
MOVBL,10
DIVBL
ADDAL,30H
MOV[SI+2],AL
ADDAH,30H
MOV[SI+3],AH
MOVDX,OFFSETRESULT
MOVAH,9
INT21H
RET
DEFENDP
LAST:MOVAH,4CH
INT21H
CODEENDS
ENDSTART
2 数据转换与显示
DATASEGMENT
BUFFDB6
DB?
DB6DUP(?)
MES1DB'PLEASEINPUTTHEFIRST
NUMBER:',0DH,0AH,'$'
MES2DB'PLEASEINPUTTHESECON
DNUMBER:',0DH,0AH,'$'
ARRAYDW2DUP(?)
RESULTDB'THESUMIS:',0DH,0AH,'$'
SUMDB24DUP(?),0DH,0AH,'$'
DATAENDS
CODESEGMENT
ASSUMECS:CODE,DS:DATA
作者: 万幸的石头
2008-6-22 01:03 回复此发言
2
微机原理课程设计
START:MOVAX,DATA
MOVDS,AX
MOVDX,OFFSETMES1
MOVAH,9
INT21H
MOVDX,OFFSETBUFF
MOVAH,0AH
INT21H
MOVBX,OFFSETBUFF+2
MOVCX,5
MOVSI,OFFSETSUM
MOV[SI],'('
INCSI
LOP1:MOVAL,[BX]
MOV[SI],AL
INCSI
INCBX
LOOPLOP1
MOV[SI+1],')'
MOV[SI+2],'+'
CALLBCDTOB2
MOVARRAY,AX
MOVDX,OFFSETMES2
MOVAH,9
INT21H
MOVDX,OFFSETBUFF
MOVAH,0AH
INT21H
MOVBX,OFFSETBUFF+2
MOVCX,5
MOVSI,OFFSETSUM+9
MOV[SI],'('
INCSI
LOP2:MOVAL,[BX]
MOV[SI],AL
INCSI
INCBX
LOOPLOP2
MOV[SI+1],')'
CALLBCDTOB2
MOVARRAY+2,AX
JMPNEXT
剩余52页未读,继续阅读
资源评论
sbijxk
- 粉丝: 1
- 资源: 8
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功