王爽《汇编语言第二版》第10章 课程设计1

王爽《汇编语言第二版》第10章 课程设计1

本章还有一个实验10 编写子程序。但是本课程设计包括了写的子程序的所有内容，在代码中也包含所有写的子程序的代码，所以直接看本课程设计的代码就可以了。

在前面的学习中，有一个实验是将poweridea公司的数据按格式写到一个table段中，而本课程设计是要求就数据写到显存以显示在屏幕上，所以我们可以在以前的程序基础上修改，比如可以保留以前的程序，先写到table表，然后从table表读到显存。不过我这里的实现是去掉这些不必要的消耗，也删掉了table表，使程序更高效。另外，在code段里面还有几个子程序，代码的关键部分也都做了注释，实现如下：

PowerideaShow
DATAS 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
    
    ;起始行：4
    db 4
    ;各字段的列：year=8；收入=16；雇员=30；平均收入=42
    db 8,16,30,42
    ;字符缓冲区
    db 20 dup (0)
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
    dw 20 dup (0)
STACKS ENDS


CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
    mov ax,STACKS
    mov ss,ax
    mov sp,40
     
    mov bp,215  
    
    mov si,0 ;for year and summ
    mov di,0 ;for ne
    mov cx,21
     
    show:
    push cx    
    mov cl,0f2h ;颜色
    
    ;year 偏移0
    mov ax,[si]
    mov ds:[bp].0,ax
    mov ax,[si+2]
    mov ds:[bp].2,ax
    mov ds:[bp].4,0
    
    push si
     push dx
    mov si,bp
    mov dh,ds:[210]
    mov dl,ds:[211] ;列号
    call show_str
    pop dx
    pop si        
    
    ;收入summ 偏移5
    mov ax,84[si]
    mov dx,84[si+2]
    
    push ax
    push dx
    push si
    mov si,bp
    call ddtoc
    mov dh,ds:[210]
    mov dl,ds:[212] ;列号
    call show_str    
    pop si   
    pop dx
    pop ax
    
    add si,4
    
    ;雇员数ne 偏移10
    mov bx,168[di]
    add di,2    
    
    push ax
    push dx
    push si
    mov ax,bx
    mov si,bp
    call dtoc
    mov dh,ds:[210]
    mov dl,ds:[213] ;列号
    call show_str
    pop si   
    pop dx
    pop ax  
    
    ;人均收入 偏移13
     div bx
     
    push ax
    push dx
    push si
    mov si,bp
    call dtoc
    mov dh,ds:[210]
    mov dl,ds:[214] ;列号
    call show_str
    pop si   
    pop dx
    pop ax  
    
    mov cl,ds:[210]
    inc cl
    mov ds:[210],cl
    pop cx

    ;loop show    ;报错：jump destination too far ，所以自己手动判断cx来跳转。
    dec cx
    jcxz finish
    jmp show
    
    finish:
    mov ah,4CH
    int 21H
    
    ;名称：show_str
    ;功能：在指定位置，用指定的颜色，显示一个用0结束的字符串
    ;参数：(dh)=行号，(dl)=列号，(cl)=颜色，ds:si指向字符串的首地址
    show_str:
    push ax
    push cx
    push dx    
    push es        
    push si
    push di
        
    ;根据行号设置基址为bp
    mov ax,160
    mul dh
    mov bp,ax
    ;根据列号设置基址为di
    mov dh,0
    add dx,dx    ;没个字符对应2个字节，所以列号*2
    mov di,dx   
    ;显存段地址
    mov ax,0b800h
    mov es,ax      
    ;保存颜色属性到al中
    mov al,cl
    
    sub cx,cx
    showstr:
    mov cl,[si] ;取字符
    jcxz ok
    mov es:[bp+di],cl  ;写字符
    mov es:[bp+di].1,al ;设置颜色属性
    add di,2
    inc si
    loop showstr
    ok:
    pop di
    pop si
    pop es
    pop dx
    pop cx
    pop ax
 
    ret
    
    ;divdw
    ;功能：进行不会产生溢出的除法运算，被除数为dword型，除数为word型，结果为dword型
    ;参数：ax=dword型数据的低16位，dx=dword型数据的高16位，cx=除数
    ;返回：dx=结果的高16位，ax=结果的低16位，cx=余数
    divdw:
    push bx    ;以后恢复

    push ax
    mov ax,dx
    sub dx,dx
    div cx
    mov bx,ax ;bx=int(H/N)
    pop ax
    div cx
    mov cx,dx
    mov dx,bx
    pop bx ;恢复bx
    ret
    
    ;dtoc
    ;功能：将word型数据转变为表示十进制的字符串，字符串以0为结束符
    ;参数：ax=word型数据；ds:si指向字符串的首地址
    ;返回:无
    dtoc:
    push ax
    push bx
    push cx
    push dx   
    push si 
    
    ;先插入数据结束标记0
    sub dx,dx
    push dx    
    mov bx,10
    s1:    
    div bx
    add dx,30h    ;转为ASCII码
    push dx
    mov cx,ax
    jcxz ok1
    sub dx,dx
    jmp s1
    
    ok1:
    pop cx
    jcxz ok2
    mov [si],cl
    inc si
    jmp ok1
    
    ok2:
    ;给字符串后面添0
    mov [si],cl
    
    pop si
    pop dx
    pop cx
    pop bx
    pop ax
    ret
    
    ;ddtoc
    ;功能：将dword型数据转变为表示十进制的字符串，字符串以0为结束符
    ;参数：ax=dword型数据的低16位；dx=dword型数据的高16位；ds:si指向字符串的首地址
    ;返回:无
    ddtoc:
    push ax
    ;push bx
    push cx
    push dx   
    push si 
    
    ;先插入数据结束标记0
    sub cx,cx
    push cx        
    dd10:    
    mov cx,10
    call divdw
    add cx,30h    ;转为ASCII码
    push cx
    mov cx,ax
    jcxz testhigh
    jmp dd10
    
    testhigh:
    mov cx,dx
    jcxz geascii
    jmp dd10
    
    geascii:
    pop cx
    jcxz win
    mov [si],cl
    inc si
    jmp geascii
    
    win:
    ;给字符串后面添0
    mov [si],cl
    
    pop si
    pop dx
    pop cx
    ;pop bx
    pop ax
    ret
CODES ENDS
    END START

运行结果如下：

             

 

总结：

1、程序实现中基本都用到了栈，主要用于暂存寄存器数据。不过在子程序dtoc和ddtoc中，我还用栈存放参数%10的值，因为形成字符串时需要逆序写到内存。

2、在dtoc和ddtoc中，为了区分保存的寄存器数据和十进制数的ascii值，特意往栈中压入一个0，作为“桩”。

3、主程序中在循环跳转的loop语句被注释掉：“;loop show ;报错：jump destination too far ，所以自己手动判断cx来跳转。”，原因正如说明，偏移超过了一个字节，所以我自己修改判断cx而利用jmp(jmp near)来实现跳转。因为所有有条件跳转都是短转移，是不是把循环中间的一些内容也写到子程序来减少偏移更好？

4、对显示时的起始行和列偏移的数据，我都统一放在数据段中，可以很方便的修改来查看效果。