第10章 CALL和RET指令 课程设计一

     第10章的课程设计一是比较难的。我以前也做出来过，这次再做，也花了一个下午加一个晚上的时间。还是自己功力不行啊。平时多多练习多多编程还是正道。下面是今天晚上该搞定的代码：

assume cs:codesg data segment db '1975','1976','1977','1978','1979','1980','1981','1982','1983' db '1984','1985','1986','1987','1988','1989','1990','1991','1992' db '1993','1994','1995' dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514 dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000 dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226 dw 11542,14430,15257,17800 data ends data2 segment db 16 dup (0) data2 ends codesg segment start: mov ax,data mov es,ax mov di,0 mov ax,data2 mov ds,ax mov si,0 mov bx,0 ;年份 mov cx,21 year: push cx mov cx,4 s1: mov al,es:[bx+di+0] mov ds:[si],al inc si inc di loop s1 mov byte ptr ds:[si],0 mov si,0 mov ax,bx add ax,8 mov dl,4 div dl mov dh,al ;行数 mov dl,20 ;列数 mov cl,2 ;黑底绿字 call show_str mov di,0 mov si,0 add bx,4 pop cx loop year mov cx,21 ;收入 mov bx,0 salary: push cx mov ax,data2 mov ds,ax mov si,0 mov ax,es:[bx+84] mov dx,es:[bx+86] call dtoc mov ax,bx add ax,8 mov dl,4 div dl mov dh,al ;行数 mov dl,30 ;列数 mov cl,2 call show_str add bx,4 pop cx loop salary mov cx,21 ;员工数 mov bx,0 people: push cx mov ax,data2 mov ds,ax mov si,0 mov ax,es:[bx+168] mov dx,0 call dtoc mov ax,bx add ax,4 mov dl,2 div dl mov dh,al ;行数 mov dl,40 ;列数 mov cl,2 call show_str add bx,2 pop cx loop people mov cx,21 ;平均收入 mov bx,0 mov bp,0 average:push cx mov ax,data2 mov ds,ax mov si,0 mov ax,es:[bx+84] mov dx,es:[bx+86] mov cx,es:[bp+168] call divdw call dtoc mov ax,bx add ax,8 mov dl,4 div dl mov dh,al ;行数 mov dl,50 ;列数 mov cl,2 call show_str add bx,4 add bp,2 pop cx loop average mov ax,4c00h int 21h ;子程序1 ;功能： 将一个dword型数据转变为表示十进制的字符串，并放到某块内存中。字符串以0为结尾符。 ;输入参数: (ax)=dword型数据低16位，(dx)=dword型数据高16位 ; ds:si指向存放字符串的内存的起始地址 ;输出参数： 无 dtoc: push cx push bx push si push di push ds mov di,si s11: mov cx,10 call divdw add cl,30h mov ds:[si],cl inc si mov cx,ax ;这里存在一个bug，万一送来的是655360呢。 jcxz ok1 jmp short s11 ok1: mov byte ptr ds:[si],0 mov ax,si sub ax,di mov bl,2 div bl mov cl,al mov ch,0 ;共进行几次交换 jcxz enddtoc dec si mov bx,di begin: mov al,ds:[bx] mov ah,ds:[si] mov ds:[si],al mov ds:[bx],ah inc bx dec si loop begin enddtoc:pop ds pop di pop si pop bx pop cx ret ;子程序2 ;功能： 运行不会产生溢出的除法运算,被除数为dword型，除数为word型，结果为dword型。 ;输入参数： ax中为dword型数据的低16位，dx为dword型数据的高16位，cx为word型数据。 ;输出参数： ax为结果的低16位，dx为结果的高16位，cx为余数。 divdw: push si push bx mov bx,ax mov ax,dx mov dx,0 div cx mov si,ax mov ax,bx div cx mov cx,dx mov dx,si pop bx pop si ret ;子程序3:显示字符串 ;功能： 在制定的某行某列，用制定的颜色，显示一个用0结束的字符串。 ;输入参数： (dh)=行号(取值范围0~24),(dl)=列号(取值范围0~79), ; (cl)=颜色，ds:si指向字符串的首地址 ;输出参数： 无 show_str: push bp push bx push dx push si push di push ds push es push cx mov ax,0b800h mov es,ax mov al,160 mul dh mov bx,ax ;行数 add dl,dl mov dh,0 mov di,dx ;列数 s: mov cl,ds:[si] mov ch,0 jcxz ok2 mov es:[bx+di],cl ;字符ASCII码 inc di mov bp,sp mov al,ss:[bp] mov es:[bx+di],al ;颜色 inc si inc di jmp short s ok2: pop cx pop es pop ds pop di pop si pop dx pop bx pop bp ret codesg ends end start

下面是运行结果：

     重新做这个课程设计一，感触还是比较深的，1.尽量把程序写成多个子程序的形式；2.每一个子程序开始时都要进行压栈，结束时都要出栈；3.出了问题要耐心调试，总能找到错误的；4.把问题分成几个步骤来解决，这样会更好。