***汇编语言 课程设计1 格式化输出公司数据

汇编语言 课程设计1 格式化输出公司数据

子程序描述

名称：dtoc
功能：将dword型数据转变为表示十进制数的字符串，字符串以0位结尾符
参数：
    (ax)=dword型数据的低16位
    (dx)=dword型数据的高16位
    ds:si指向字符串的首地址
返回：无 

程序

assume cs:code

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'
;以上是表示 21 年的 21 个字符串

dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
;以上是表示 21 年公司总收的 21 个 dword 型数据

dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
dw 11542,14430,15257,17800
;以上是表示 21 年公司雇员人数的 21 个 word 型数据
data ends 

code segment
start:
    mov ax,data
    mov ds,ax
    mov bx,0
    mov ax,0b800h
    mov es,ax
    mov di,0

    mov cx,25*160
clean:  mov byte ptr es:[di],0
    inc di
    loop clean

outer:
    call year
    call interest
    call employee
    call salary

    mov ax,4c00h
    int 21h
;写入年份
year:
    mov bp,640;从第五行(160*4)开始，因为前面几行会被刷新掉
    mov cx,21
next_year:
    push cx
    mov cx,4
s1: 
    mov ah,02
    mov al,ds:[bx]
    mov es:[bp],ax
    add bp,2
    inc bx
    loop s1
    ;完成了一行的年输入，下面进行剩下的年输入
    add bp,152;(160-8)
    pop cx
    loop next_year
    ret
;结束写入年份
;写入收入
interest:
    mov bp,480;(540-160),因为第一次的时候不需要下面的add bp,160所以在这里先将其减去
    mov cx,21
next_interest:
    push cx
    mov di,16;在每行上的偏移地址
    add bp,160;到下一行
    mov si,0;记录入栈次数
    ;下面将收入先入栈后出栈
    mov ax,ds:[bx]
    add bx,2
    mov dx,ds:[bx]
s2: mov cx,10
    call divdw
    add cl,30h
    mov ch,2;
    push cx
    inc si
    ;下面检测得出的商是否等于0
    ;由于商有可能占四个字节，所以必须分别判断高位和低位是否等于0
    mov cx,dx
    jcxz high0
    ;高位不是0,直接进行下一次数据入栈循环
    jmp s2
high0:  mov cx,ax
    jcxz reverse2;全是0,直接开始数据出栈
    ;高位是0,低位不是
    jmp s2
reverse2:
    mov cx,si
s3:
    pop dx
    mov es:[bp][di],dx
    add di,2
    loop s3
    pop cx
    add bx,2
    loop next_interest

    ret
;结束写入收入

;32位被除数div
;输入:ax 低16,dx 高16, cx 除数
;输出:ax 低16,dx 高16, cx 余数
divdw:;此时应该已经完成了输入操作
    push bx
    push ax
    mov ax,dx
    mov dx,0
    div cx
    mov bx,ax
    pop ax
    div cx
    mov cx,dx
    mov dx,bx
    pop bx

    ret


;写入雇员数
employee:
    mov bp,640
    mov di,40
    mov cx,21
next_employee:
    call dtoc_em
    ret
;结束写入雇员数

;写入人均收入
salary:
    mov bp,640
    mov di,64
    mov cx,21
    mov bx,84
    mov si,168
next_salary:
    push cx
    mov ax,ds:[bx];读入公司收入
    add bx,2
    mov dx,ds:[bx]
    mov cx,ds:[si]
    push bx
    push si
    mov si,0
    call divdw
    ;ax存放的是应该显示的数，但是占了16位。要想显示出来必须将其分为两个八位数
show:
    mov dx,0
    mov cx,10
    call divdw
    mov ch,2
    add cl,30h
    push cx
    inc si;用于记录入栈的次数
    mov cx,ax
    inc cx
    loop show;如果商是0则停止入栈
    mov cx,si
reverse3:
    pop dx
    mov es:[bp][di],dx
    add di,2
    loop reverse3
    pop si
    pop bx
    pop cx
    add si,2
    add bx,2
    add bp,160
    mov di,64
    loop next_salary

    ret

;结束写入人均收入

dtoc_em:;未保存现场
    push cx
    mov ax,ds:[bx]
    mov dx,0
    push si
    mov si,0
dtoc_word:
    mov cx,10
    div cx
    mov dh,2
    add dl,30h
    push dx
    mov dx,0
    inc si
    mov cx,ax
    inc cx
    loop dtoc_word;如果商(ax)为0则退出入栈循环
reverse_w:;将栈中的个位数出栈，放在显存中
    mov cx,si
proc3:  
    pop dx
    mov es:[bp][di],dx
    add di,2
    loop proc3
    mov di,40
    add bp,160
    pop si
    pop cx
    add bx,2;供读取下一个word型数据
    loop dtoc_em
    ret

code ends
end start

写给自己的一些题外话：这个程序做了很久很久。。断断续续大概四五天的样子，不知不觉对汇编语言有了一点抵触，可能因为题目的难度渐渐增加了吧。不过还好，最终还是做出来了。之前一直害怕各种莫名其妙的小bug，现在发现，再小的bug都不是凭空产生的，都是源于考虑不周到，对程序的不熟悉 ————–2017-5-28 22:39:22