学生成绩管理系统汇编语言

;==学生成绩管理系统==;*******************************************************************************;EQUSTATEMENTSGOHEREStructNode equ 32;体现式赋值微操作equpage133Node_name equ 0 ;类似defineNode_num equ 12Node_maths equ 18Node_english equ 20Node_chinese equ 22Node_others equ 24Node_total equ 26Node_avg equ 28Node_next equ 30 max_record equ 100max_menu_index equ 9;*******************************************************************************;*******************************************************************************data_segsegment ;definedatasegment;DATAGOESHERE buf1 DB 30 buf1_slen DB ? buf1_data DB 30dup(?) bufname DB 20 bufname_slen DB ? bufname_data DB 20dup(?) bufgetint DB 32 bufgetint_slen DB ? bufgetint_data DB 32dup(?) str_menu DB 0dH,0aH,'=====Studentmarkssystem=====',0dH,0aH,0dH,0aH DB ' 1)AddRecord',0dH,0aH,0dH,0aH DB ' 2)PrintAll',0dH,0aH,0dH,0aH DB ' 3)Save',0dH,0aH,0dH,0aH DB ' 4)Open',0dH,0aH,0dH,0aH,0dH,0aH DB ' 5)Find',0dH,0aH,0dH,0aH,0dH,0aH DB ' 6)Delete',0dH,0aH,0dH,0aH,0dH,0aH DB ' 0)Exit',0dH,0aH DB 'Choice:$' ;ErrorStrings str_error_1 DB 'Errorinput!',0dH,0aH,'$' jump_tb DW case_0 DW case_1 DW case_2 DW case_3 DW case_4 DW case_5 DW case_6 head DW ? ;表头指针 info_0 db 'inputnum:','$' info_1 db 'inputmath:','$' info_2 db 'inputenglish:','$' info_3 db 'inputchinese:','$'info_4 db 'inputothers:','$' info_5 db 'inputname:','$' str_tb_head db 'Num',9,'Name',9,'Maths',9,'English',9,'Chinese',9,'Others',9,'Total',9,'Avg',0dH,0aH db '=================================================================',0dH,0aH,'$' str_tab db 9,'$' rdata db (StructNode*(max_record+1))dup(?) ;所有结点*(100+1) rdata_p dw rdata ;下一种可用结点 rcount dw 00H ;目前已分派旳结点数 newnode dw ? pnode dw ? file_name db 'c:\student.txt',00H file_error1 db 'Failedcreatefile...',0DH,0AH,'$' file_error2 db 'Failedwritefile...',0DH,0AH,'$' file_error3 db 'Failedopenthefile...',0DH,0AH,'$' file_error4 db 'Failedreadfile...',0DH,0AH,'$' file_info_1 db 'savingthefile...',0DH,0AH,'$' file_info_2 db 'Writetofilesuccessfully!',0DH,0AH,'$' file_info_3 db 'openingthefile...',0DH,0AH,'$' file_info_4 db 'readthefilesuccessfully!',0DH,0AH,'$' fp1 dw ? ;文献指针data_segends;*******************************************************************************;*******************************************************************************extdata_segsegment ;defineextradatasegment;EXTRADATAGOESHEREextdata_segends;*******************************************************************************;*******************************************************************************stack_segsegmentstack ;defineextradatasegment;STACKDATAGOESHERE DB 100Hdup(?)stack_segends;*******************************************************************************;*******************************************************************************programsegment ;definecodesegment;*******************************************************************************mainprocfar ;mainpartofprogramassumecs:program,ds:data_seg,es:extdata_seg,ss:stack_segstart:;setupstackforreturn pushds subax,ax pushax;setDSregistertocurrentdatasegment movax,data_seg ;data_segsegmentaddr movds,ax ;intoDSregister movax,extdata_seg ;extdata_segsegmentaddr moves,ax ;intoESregister movax,stack_seg ;stack_segsegmentaddr movss,ax ;intoSSregister;MAINPARTOFPROGRAMGOESHERE ;分派链表头结点 movax,rdata_p movhead,ax ;目前头指针就是rdata_p addrdata_p,StructNode movbx,head movwordptr[bx+Node_next],00Hlb_print_menu: ;打印菜单 leadx,str_menu movah,09H int21H callfarptrgetint cmpdx,max_menu_index jalb_print_menu movdi,dx shldi,1 jmpjump_tb[di] jmplb_print_menucase_0: ;Exit retcase_1: ;添加记录 callfarptraddrecord jmplb_print_menucase_2: ;打印所有记录 callfarptrprint_record jmplb_print_menucase_3: ;保留到文献 callfarptrsave_record jmplb_print_menucase_4: ;从文献中读取 callfarptrread_record jmplb_print_menucase_5: ;查找 callfarptrfind_record jmplb_print_menucase_6: ;删除 callfarptrdelete_record jmplb_print_menu ret ;returntoDOSmainendp ;endofmainpartofprogram;*******************************************************************************;*******************************************************************************sub1procnear ;definesubprocedure pushax pushbx pushcx pushdx ;mainportofsubprocedure ;exitsubprocedure popdx popcx popbx popax retsub1endp ;endofsubprocedure;*******************************************************************************;*******************************************************************************;printCRLFcrlfprocfar pushdx pushax movdl,0dH movah,02H int21H movdl,0aH movah,02H int21h popax popdx retcrlfendp;*******************************************************************************;*******************************************************************************;从键盘输入一种整数，成果保留到dx中getintprocfar ;definesubprocedure pushax pushbx pushcx ;mainportofsubprocedure movdx,offsetbufgetint ;offset偏移地址 movah,0aH int21H callfarptrcrlf movax,offsetbufgetint_data pushax ;字符串首地址 moval,bufgetint_slen cbw ;字节转字 pushax ;字符串长度 pushax ;返回值 callfarptrdecibin popdx popax popax ;exitsubprocedure popcx popbx popax retgetintendp ;endofsubprocedure;*******************************************************************************;*******************************************************************************;把以十制进数形式存储在字符串中旳数转成整数;栈中旳参数:;0 字符串首地址;1 字符串长度;2 寄存成果decibin_para_len equ 3decibin_str1 equ wordptr[bp+4+(decibin_para_len-0)*2]decibin_str1len equ wordptr[bp+4+(decibin_para_len-1)*2]decibin_retsult equ wordptr[bp+4+(decibin_para_len-2)*2]decibinprocfar ;saveregisters pushbp movbp,sp pushax pushbx pushcx pushdx pushsi pushdi movbx,00H movcx,decibin_str1len movdi,decibin_str1decibin_loop1: moval,byteptr[di];di为偏移量以字节为单位把地址送入al andal,0fH cbw xchgbx,ax movsi,10 mulsi addbx,ax incdi loopdecibin_loop1 movdecibin_retsult,bxexit_decibin: ;恢复寄存器 popdi popsi popdx popcx popbx popax popbp retdecibinendp;*******************************************************************************;*******************************************************************************;把bx中旳数以十进制形式输出;输入：数据寄存在bx中binidecprocfar pushax pushbx pushcx pushdx pushsi movsi,01H movcx,10000d ;各位依次输出 calldec_div movcx,1000d calldec_div movcx,100d calldec_div movcx,10d calldec_div movcx,1d movsi,00H calldec_div popsi popdx popcx popbx popax retbinidecendpdec_divprocnear movax,bx movdx,0 divcx movbx,dx ;保留余数 movdl,al ;商送入dl cmpsi,00H ;输出这一位 jelb1_dec_div cmpdl,00H ;处理完毕 jeexit_dec_div movsi,00H lb1_dec_div: adddl,30h movah,02H int21H exit_dec_div: retdec_divendp;*******************************************************************************;*******************************************************************************addrecordprocfar ;definesubprocedure pushax pushbx pushcx pushdx pushsi pushdi pushes ;mainportofsubprocedure movax,rdata_p ;目前指针移入ax movnewnode,ax ;再移入newnode存储单元中 addrdata_p,StructNode ;相称于指针加一 addrcount,1 ;计数器加一 movbx,ax ;目前指针（newnode所指）移入bx movcx,00H;计算总分 movwordptr[bx+Node_next],00H ;Node_next置 leadx,info_0 movah,09H int21H callfarptrgetint callcrlf movwordptr[bx+Node_num],dx leadx,info_1 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_maths],dx leadx,info_2 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_english],dx leadx,info_3 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_chinese],dx leadx,info_4 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_others],dx movwordptr[bx+Node_total],cx ;计算平均成绩 movax,cx cwd movcx,4 divcx movwordptr[bx+Node_avg],ax leadx,info_5 movah,09H int21H ;输入姓名 leadx,bufname movah,0aH int21H callfarptrcrlf movax,ds moves,ax moval,bufname_slen cbw movbx,ax movbyteptrbufname_data[bx],'$' leasi,bufname_data movdi,newnode movcx,bx inccx cld repmovsb ;addthenewnodetothelist movdi,newnode ;newnode目前寄存旳是目前项旳地址 movsi,head ;head寄存旳是头指针 movax,wordptr[si+Node_next] movwordptr[di+Node_next],ax ;目前加入项指向上次项（head指向旳送目前项指针Node_next） movwordptr[si+Node_next],di ;头指针指向目前加入项（目前项旳地址送head） ;exitsubprocedure popes popdi popsi popdx popcx popbx popax retaddrecordendp ;endofsubprocedure;*******************************************************************************;*******************************************************************************print_recordprocfar ;definesubprocedure pushax pushbx pushcx pushdx pushsi pushdi ;mainportofsubprocedure leadx,str_tb_head movah,09H int21H movax,head movpnode,axloop1_print_record: movsi,pnode movax,[si+Node_next] movpnode,ax cmpax,00H jeexit_print_record1 movsi,pnode ;打印学号 movbx,[si+Node_num] callfarptrbinidec ;打印制表符 leadx,str_tab movah,09H int21Hexit_print_record1:cmpax,00h jeexit_print_record;非要分次跳跃 ;打印名字 movdx,si movah,09H int21H ;打印制表符 leadx,str_tab movah,09H int21H ;数学成绩 movbx,[si+Node_maths] callfarptrbinidec ;打印制表符 leadx,str_tab movah,09H int21H ;英语成绩 movbx,[si+Node_english] callfarptrbinidec ;打印制表符 leadx,str_tab movah,09H int21H ;语文成绩 movbx,[si+Node_chinese] callfarptrbinidec ;打印制表符 leadx,str_tab movah,09H int21H ;语文成绩 movbx,[si+Node_others] callfarptrbinidecloop1_print_record1:cmpax,0000h jeloop1_print_record ;打印制表符 leadx,str_tab movah,09H int21H ;总成绩 movbx,[si+Node_total] callfarptrbinidec ;打印制表符 leadx,str_tab movah,09H int21H ;平均成绩 movbx,[si+Node_avg] callfarptrbinidec callfarptrcrlf movax,0000h jmploop1_print_record1exit_print_record: ;exitsubprocedure popdi popsi popdx popcx popbx popax retprint_recordendp ;endofsubprocedure;*******************************************************************************;*******************************************************************************save_recordprocfar ;definesubprocedure pushax pushbx pushcx pushdx pushsi pushdi ;mainportofsubprocedure ;Createfile leadx,file_name movcx,00H movah,3cH int21H jcsave_record_error1 movfp1,ax ;writerecordcount movah,40H movbx,fp1 movcx,02H leadx,rcount int21H jcsave_record_error2 leadx,file_info_1 movah,09H int21H movax,head movpnode,axloop1_save_record: movsi,pnode movax,[si+Node_next] movpnode,ax cmpax,00H jesave_record_ok ;writecurrentnodetothefile movah,40H movbx,fp1 movcx,StructNode movdx,pnode int21H jcsave_record_error2 jmploop1_save_record save_record_ok: leadx,file_info_2 movah,09H int21H jmpsave_record_close_file save_record_error1: leadx,file_error1 movah,09H int21H jmpexit_save_recordsave_record_error2: leadx,file_error2 movah,09H int21H jmpexit_save_recordsave_record_close_file: movah,3eH movbx,fp1 int21Hexit_save_record: ;exitsubprocedure popdi popsi popdx popcx popbx popax retsave_recordendp ;endofsubprocedure;*******************************************************************************;*******************************************************************************read_recordprocfar ;definesubprocedure pushax pushbx pushcx pushdx pushsi pushdi ;mainportofsubprocedure ;Openfile leadx,file_name movah,3dH moval,00H int21H jcread_record_error1 movfp1,ax ;readrecordcount movah,3fH movbx,fp1 movcx,02H leadx,rcount int21H jcread_record_error2 leadx,file_info_3 movah,09H int21H ;分派链表头结点 leaax,rdata movhead,ax movrdata_p,ax addrdata_p,StructNode movbx,head movwordptr[bx+Node_next],00H movcx,rcountloop1_read_record: pushcx movax,rdata_p movnewnode,ax addrdata_p,StructNode ;readnewnode movah,3fH movbx,fp1 movcx,StructNode movdx,newnode int21H jcread_record_error2 ;addnewnodetolist movdi,newnode movsi,head movax,wordptr[si+Node_next] movwordptr[di+Node_next],ax movwordptr[si+Node_next],di popcx looploop1_read_record read_record_ok: leadx,file_info_4 movah,09H int21H jmpread_record_close_file read_record_error1: leadx,file_error3 movah,09H int21H jmpexit_read_recordread_record_error2: leadx,file_error4 movah,09H int21H jmpexit_read_recordread_record_close_file: movah,3eH movbx,fp1 int21Hexit_read_record: ;exitsubprocedure popdi popsi popdx popcx popbx popax retread_recordendp ;endofsubprocedure;*******************************************************************************find_recordprocfar pushax pushbx pushcx pushdx pushsi pushdi leadx,info_0 movah,09H int21H callfarptrgetint callcrlf movsi,head movdi,head find_again: movdi,wordptr[di+Node_next] cmpdx,wordptr[di+Node_num];第n个结点旳学号 jemodify_record jmp find_again modify_record: movbx,di ;目前指针（newnode所指）移入bx movcx,00H;计算总分 leadx,info_0 movah,09H int21H callfarptrgetint callcrlf movwordptr[bx+Node_num],dx leadx,info_1 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_maths],dx leadx,info_2 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_english],dx leadx,info_3 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_chinese],dx leadx,info_4 movah,09H int21H callfarptrgetint callcrlf addcx,dx movwordptr[bx+Node_others],dx movwordptr[bx+Node_total],cx ;计算平均成绩 movax,cx cwd movcx,4 divcx movwordptr[bx+Node_avg],ax popdi popsi popdx popcx popbx popax retfind_recordendp;*******************************************************************************delete_recordpr