王爽《汇编》课程设计一

 

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'
;54h
dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
;0a8h
dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5638,8226
dw 11542,14430,15257,17800
;0d2h
db 10h dup (0) ;show_str显示的
data ends
;********************************************************************
code segment
assume cs:code,ds:data
start:
mov ax,data
mov ds,ax
;*********************************************************************
;清屏
call clear
;**********************************************************************
mov cx,21 ;共21行，循环21次
mov di,0 ;初始化
mov si,0  ;初始化
mov dh,2 ;初始化
;**********************************
display:
                            push cx
;**********************************
;显示年份
mov cx,4
                          push di
mov di,0d2h
call sent_str
                          pop di
                          push si
mov si,0d2h
mov dl,12
mov cl,111b;颜色
call show_str
                          pop si
;***********************************
;显示收入
                          push si
                          push dx
mov ax,54h[si]
mov dx,54h[si+2]
                        
mov si,0d2h
call dtoc
                          pop dx                
mov dl,26
call show_str
                          pop si
;**********************************
;显示雇员
                          push si
                          push dx
mov ax,0a8h[di]
mov dx,0                         
mov si,0d2h
call dtoc 
                          pop dx                                             
mov dl,40
call show_str                       
                          pop si
;**********************************
;显示人均收入
                          push si
                          push dx
                          push cx
mov ax,54h[si]
mov dx,54h[si+2]                        
mov cx,0a8h[di]
call divdw                       
mov si,0d2h
call dtoc                       
                          pop cx
                          pop dx                        
mov dl,56
call show_str
                          pop si
;**********************************
inc dh;下一行
add si,4
add di,2
                              pop cx
loop display
;**********************************
;返回
mov ax,4c00h
int 21h
;***********************************
;
;以下是子程序
;
;***********************************
;名称：clear
;功能：清屏
;参数：无

;返回:无
clear:
push ds
push dx
push cx
push di

push ax

mov dx,0
mov ax,0b800h
mov ds,ax
mov cx,25
clear1:
push cx
mov cx,80
clear2:
mov ds:[di],ax
inc di
inc di
loop clear2
pop cx
loop clear1

pop ax
pop di
pop cx
pop dx
pop ds
;*********************************************************************
;名称：sent_str
;功能：
;参数：
; 
;返回:
sent_str:
push ax
push si

push di
add di,cx
mov byte ptr ds:[di],0
pop di

sent_str1:
mov al,ds:[si]
mov ds:[di],al
inc di
inc si
loop sent_str1

pop si
pop ax

;*********************************************************************
;名称：show_str
;功能：在指定的位置，用指定的颜色，显示以0结束的字符串。
;参数：(dh)=行号(取值范围0--24)，(dl)=列号(取值范围0--79)，(cl)=颜色，
;      ds:si指向字符串的首地址
;返回：无
show_str:
push si
push di
push dx
push ax
push es

mov ax,0b800h
mov es,ax

mov al,0a0h
mov ah,0
mul dh

add dl,dl
mov dh,0
add ax,dx
mov di,ax
mov ah,cl

again:
    cmp byte ptr ds:[si],0
    jz over
    mov al,ds:[si]
    mov es:[di],ax
    add di,2
    inc si
    jmp again
over:
pop es
pop ax
pop dx
pop di
pop si
ret
;************************************************************
;名称:divdw
;功能:进行不会产生溢出的除法运算,被除数dword型,除数word型结果为dword型.
;参数:(ax)=dword型数据的低16位.
;     (dx)=dword型数据的高16位.
;     (cx)=除数
;返回:(dx)=结果的高16位,(ax)=结果的低16位,(cx)=余数
divdw:
push bx
mov bx,ax
mov ax,dx
mov dx,0
div cx
xchg ax,bx
div cx
mov cx,dx
mov dx,bx
pop bx
ret
;************************************************************
;名称:dtoc
;功能:将dword型数据转变为表示十进制数的字符串,字符串以0为结束符.
;参数:(ax)=dword型数据低16位,(dx)=dword型数据高16位.
;返回:ds:si指向字符串首地址,字符串以0为结束符.
dtoc:
push ax
push bx
push cx
push dx
push si
push di
mov di,0

mov bx,si
sub si,si

mov byte ptr[bx][si],0      ;字符串以0结束
dtoc1:
mov cx,10
call divdw;dx=高位,ax=低位,cx=余
inc di
mov si,di
add cl,30h
dtoc_again:
mov ch,ds:[bx][si-1]
mov ds:[bx][si],ch
dec si
jne dtoc_again
mov ds:[bx][si],cl
;进行判断
mov cx,dx
jcxz next
jmp dtoc1
next:
mov cx,ax
jcxz dtoc_end
jmp dtoc1

dtoc_end:
pop di
pop si
pop dx
pop cx
pop bx
pop ax
ret
;*********************************************************************
code ends
end start