微机原理课程设计电话薄设计程序清单.docVIP

stack segment stack ;堆栈段 db 256 dup(?) stack ends data segment ;数据段 enter db 0dh,0ah,'$' ;字符串，调用得时候功能和ENTER键一样 cnt db 1 dup(0) ;计数器 xuehao db 10 dup(9 dup(0)) ;定义10*9个字节，用于存放10个人的学号，每个学号9个字节长。xinming db 10 dup(20 dup(0)) deyu db 10 dup(3 dup(0)) ;存放德育分数，注意这里是字符，不是数字。 tiyu db 10 dup(3 dup(0)) lilun db 10 dup(3 dup(0)) shijian db 10 dup(3 dup(0)) zongce db '??$??$??$??$??$??$??$??$??$??$' deyuscore dw 1 dup(0) ;用于存放将数字字符转换成十进制后的德育分数。 tiyuscore dw 1 dup(0) lilunscore dw 1 dup(0) shijianscore dw 1 dup(0) xuehaostr db 'Xuehao:$' ;定义字符串，用于显示各个项目。 xinmingstr db 'Name:$' deyustr db 'Deyu:$' tiyustr db 'Tiyu:$' lilunstr db 'Lilun:$' shijianstr db 'Shijian:$' zongcestr db 'Zongce:$' disstr1 db 'The all records list as follows!',0dh,0ah,'$' disstr3 db 'The list is empty!',0dh,0ah,'$' titlestr db 'Welecome!',0dh,0ah,'1:Input',0dh,0ah,'2:Show',0dh,0ah,'6:ESC',0d,0ah,'$' inputstr1 db 'Please input the informationg of the student!',0dh,0ah,'$' inputstr2 db 'Sorry,the list is full,you can not input!',0dh,0ah,'$' inputstr3 db 'You input a wrang scorce!',0dh,0ah,'$' backstr db 'Key 3 to main menu!',0dh,0ah,'$' exitstr db 'goodbye!',0dh,0ah,'$' data ends code segment ;代码段 assume cs:code,ds:data input proc near ;输入函数 lea si,cnt ;查看计数器内容是否为满 mov al,[si] cmp al,10 jb input1 ;低于转 lea dx,inputstr2 ;满 mov ah,09h int 21h jmp input2 input1: lea dx,inputstr1 ;未满 mov ah,09h int 21h lea dx,xuehaostr ;提示 mov ah,09h int 21h xor ax,ax lea si,cnt mov cl,[si] mov al,9 mul cl ;算偏移地址 lea si,xuehao add si,ax mov cx,8 xuehao1: mov ah,01h int 21h cmp al,0dh ;enter键 jz xuehao2 mov [si],al inc si loop xuehao1 xuehao2: mov al,24h ;$字符，结束 mov [si],al lea dx,enter mov ah,09h int 21h lea dx,xinmingstr ;提示输入姓名 mov ah,09h int 21h xor ax,ax lea si,cnt mov cl,[si] mov al,20 mul cl lea si,xinming add si,ax mov c