开发工具:
文件大小: 3kb
下载次数: 0
上传时间: 2010-06-22
详细说明： 输入成绩，显示出学生的学号 成绩及名次DATAS SEGMENT GRADE DB 50 DUP (?) RANK DB 50 DUP (?) STR1 DB 'please input the mark of class:','$' str2 db 13,10,'$' str3 db 'Num mark rank','$' str4 db ' ','$' str5 db 'input the number of the class(00~99):','$' NUM dw ? DATAS ENDS STACKS SEGMENT ;此处输入堆栈段代码 STACKS ENDS CODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKS START: MOV AX,DATAS MOV DS,AX call total call input call bijiao call print MOV AH,4CH INT 21H input pr oc mov cx,num mov si,0 mov dx,offset str1 mov ah,9 int 21h call huanhang D1: mov ah,1 int 21h sub al,30h cbw push cx mov cx,10 mul cx add bx,ax mov ah,1 int 21h sub al,30h cbw add bx,ax mov ax,bx pop cx mov bx,offset grade mov [bx+si],ax inc si call huanhang loop d1 ret input endp huanhang proc mov dx,offset str2 mov ah,9 int 21h ret huanhang endp bijiao proc mov si,0 sub num,1 d0: mov dl,1 mov bx,0 mov al,grade[si] d3: cmp al,grade[bx] jl d4 jmp d2 d4: inc dl jmp d2 d2: inc bx cmp bx,num jng d3 mov rank[si],dl inc si cmp si,num jng d0 ret bijiao endp print proc mov dx,offset str3 mov ah,9 int 21h call huanhang mov si,0 n2: push si inc si mov ax,si mov dh,10 div dh mov bl,ah add al,30h mov ah,2 mov dl,al int 21h add bl,30h mov ah,2 mov dl,bl int 21h call kongge pop si push si mov al,grade[si] mov dh,10 cbw div dh mov bl,ah add al,30h mov ah,2 mov dl,al int 21h add bl,30h mov ah,2 mov dl,bl int 21h call kongge pop si mov al,rank[si] cbw mov dh,10 div dh mov bl,ah add al,30h mov ah,2 mov dl,al int 21h add bl,30h mov ah,2 mov dl,bl int 21h jmp n0 n0: call huanhang inc si cmp si,num jng n2 ret print endp kongge proc mov dx,offset str4 mov ah,9 int 21h ret kongge endp total proc push cx push ax push bx lea dx,str5 mov ah,9 int 21H mov ah,1 int 21H sub al,30H mov ah,0 mov cx,10 mul cx mov bx,ax mov ah,1 int 21h mov ah,0 sub al,30H add bx,ax mov num,bx call huanhang pop bx pop ax pop cx RET TOTAL ENDP CODES ENDS END START ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
