汇编学的还好的大侠帮我编个程序
要求：编写汇编语言源程序，实现从键盘输入一个班级学生记录（包含学号，姓名，语文、数学和英语成绩，各字段大小自行定义），为便于实验，实际输入学生人数可为10个。然后对班级学生记录进行处理，要求输出：
1. 各科平均成绩、班级最高成绩和最低成绩及其人名；
2. 按照总成绩，从高分到低分将记录输出；
3.要注释过程
汇编的输入输出我还没学到，不过给你个建议可以用c啊，反汇编一下，在结合汇编应该差不多会写出来呢 给你一个参考哈！自己改改，道理是差不多的哈！:D
CodeSegment
Assume CS:Code,DS:Code
CR equ000DH
LF equ000AH
KBBack equ0008H
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：显示指定地址（Str_Addr）的字符串
; 入口：
; Str_Addr＝字符串地址（要求在数据段）
; 用法: Output Str_Addr
; 用法举例：Output PromptStr
OutputMACRO Str_Addr
leadx,Str_Addr
movah,9
int21h
EndM
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：输出一个字符
; 入口：dl=要显示的字符
Output_ChrprocNear
pushax
movah,02h
int21h
popax
ret
Output_Chrendp
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：输出回车换行
Output_CTLF proc Near
pushax
pushdx
movah,02h
movdl,0dh
int21h
movdl,0ah
int21h
popdx
popax
ret
Output_CTLF endp
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：取光标位置
; 入口：无
; 出口：DH=行号，DL=列号
GetCursorProc Near
PUSHAX
PUSHBX
PUSH CX
XOR BX,BX
MOV AH,3
INT 10H
MOVCursor_Row,DH
MOVCursor_Col,DL
POPCX
POP BX
POP AX
RET
Cursor_Row DB?
Cursor_Col DB?
GetCursorEndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：置光标位置
; 入口：Cursor_Row=行坐标; Cursor_Col: 列坐标)
SetCursor Proc Near
PUSH DX
PUSH CX
PUSHBX
PUSHAX
MOV DH,Cursor_Row
MOV DL,Cursor_Col
XOR BX,BX
MOV AH,2
INT 10H
POP AX
POP BX
POPCX
POPDX
RET
SetCursorEndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 功能：键盘输入一个指定位数的十进制数字，将其转换成二进制数并保存在指定的内存单元。
; 入口：@@Digits=数字位数；di=保存输入的数字首地址
; @@Type_Data=保存的数据类型，B=字节类型，W=字类型。
; 出口：转换后的二进制数保存在di所指的单元
Input_Digit Proc Near
push dx
push cx
push bx
push di
leadi,@@Save_Tmp
push di
cld
movcl,@@Digits
xorch,ch
push cx
@@Input: call GetCursor ;取光标位置
movah,1 ;从键盘接受一个字符
int21h
cmpal,CR ;若键入的是回车，已经键入的数字不足N位
jz@@ASC_Dec ;转去处理已经键入的数字
cmpal,KBBack
jz@@KB_Back ;若是回空键，重新输入
cmpal,'0'
jb@@KBBack ;若低于数字'0'，重新输入
cmpal,'9'
ja@@KBBack ;若低于数字'9'，重新输入
jmp@@Save_Dig
@@KB_Back: decCursor_Col
inccx
decdi
@@KBBack: call SetCursor ;置光标位置
jmp@@Input
@@Save_Dig: andal,0fh ;转换成二进制数
stosb ;保存
loop @@Input ;接受下一个数字
@@ASC_Dec: movax,cx
popcx
popsi
subcx,ax ;实际输入的数字位数
xorbp,bp
xordx,dx
xorax,ax
jcxz @@Retturn ;若是直接回车，没有输入任何数字，按输入'0'处理
deccx ;实际输入的数字位数减1，准备把输入的这一串数字转换成二进制数
jcxz @@One_Digit ;若输入的数字只有一位，转去直接保存这个二进制数
movbx,10
@@Mul_Ten: lodsb
cbw
addax,bp
mulbx
movbp,ax
loop @@Mul_Ten
@@One_Digit:lodsb
cbw
addax,bp
@@Save_Ret: popdi
cmp@@Type_Data,'B' ;字节类型？
jz$+5
stosw
jmp$+3
stosb
popbx
popcx
popdx
clc
ret
@@Retturn: popdi
popbx
popcx
popdx
stc
ret
@@Digits db? ;十进制数字位数
@@Type_Data db'B' ;保存的数据类型。B=字节类型，W=字类型
@@Save_Tmp db16 dup(?)
Input_Digit EndP
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Prompt_Str db'Please input a score(0-3digits): $' ;提示输入一个分数
Scoredb? ;存放分数
Press_Key db 13,10,13,10,'Press any key to exit...$'
Start: push cs
popds
push cs
popes ;使数据段、附加段与代码段同段
; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
; 输入成绩
mov@@Digits,3 ;十进制数字位数
mov@@Type_Data,'B' ;保存的数据类型。B=字节类型，W=字类型
Input_Score:Output prompt_Str ;提示输入分数
leadi,Score ;成绩存放地址
call Input_Digit ;输入分数
jc@@Any_Key ;若是直接回车，没有输入任何数字，则结束程序
mov dl,10 ; 用于除10
moval,Score ; 提取分数
xorah,ah
div dl ; 除10
cmp al,5 ; >5，及格
ja $+4
mov al,5 ; <=5，不及格
sub al,5 ; 减5
movdl,'F'
test al,0ffh
jz$+8
cmpal,5
jz$+4
incal
addCursor_Col,6
call SetCursor
subdl,al
call Output_Chr ;显示一个字符
call Output_CTLF ;输出一个回车、换行
jmpInput_Score
@@Any_Key: Output Press_Key
movah,1
int21h
Exit_Proc: movah,4ch ;结束程序
int21h
CodeENDS
END Start ;编译到此结束 汇编编程真是麻烦啊 求救啊，谁能给个直接的程序
页:
[1]