课程设计1

18555587 · 发表于 2012-3-28 13:16:41

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

入门级的，方法比较笨，大家多指点。

assume cs:code,ds:data
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'
 ;data:54h
 dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
 dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
 ;data:0a8h
 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
code segment
start:
 call nf
 call sr
 call gy
 call rjsr
 
 mov ax,4c00h
 int 21h
nf:
 push ax
 push ds
 push es
 push bx
 push si
 push cx
 
 mov ax,data
 mov ds,ax
 
 mov ax,0b800h
 mov es,ax
 
 mov bx,0
 mov si,0
 
 mov cx,21
nf1:
 push cx
 mov cx,4
nf0:
 mov al,[bx]
 mov es:[si],al
 mov byte ptr es:[si+1],2
 inc bx
 add si,2
 loop nf0
 
 add si,98h
 pop cx
 loop nf1
 pop cx
 pop si
 pop bx
 pop es
 pop ds
 pop ax
 ret
sr:
 push ax
 push bx
 push cx
 push dx
 push ds
 push es
 push si
 push di
 push bp
 mov ax,data
 mov ds,ax
 
 mov ax,0b800h
 mov es,ax
 
 mov bx,0h
 mov si,54h
 mov di,20h
 mov bp,0
 
 mov cx,21
sr4:
 push cx
 push di
 
 mov dx,[si+2]
 mov ax,[si]
sr1:
 mov cx,10
 call divdw
 add cx,30h
 push cx
 inc bp
 mov cx,ax
 jcxz sr0
 jmp short sr1
sr0:
 mov cx,dx
 jcxz sr2
 jmp short sr1
sr2:
 mov cx,bp
sr3:
 pop [bx]
 inc bx
 loop sr3
 mov bx,0
 mov ch,0
sr6:
 mov cl,[bx]
 jcxz sr5
 mov es:[di],cl
 mov byte ptr es:[di+1],2
 inc bx
 add di,2
 jmp short sr6
sr5:
 add si,4
 pop di
 add di,0a0h
 mov bx,0
 mov bp,0
 pop cx
 loop sr4
 pop bp
 pop di
 pop si
 pop es
 pop ds
 pop dx
 pop cx
 pop bx
 pop ax
 ret
divdw:
 ;功能：进行不会产生溢出的除法运算，被除数为dword型，除数为word型，结果为dword型。
 ;参数：(ax)=dword型数据的低16位，(dx)=dword型数据的高16位，(cx)=除数。
 ;返回：(dx)=结果的高16位，(ax)=结果的低16位，(cx)=余数。
 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
gy:
 push ax
 push bx
 push cx
 push dx
 push ds
 push es
 push si
 push di
 push bp
 mov ax,data
 mov ds,ax
 
 mov ax,0b800h
 mov es,ax
 
 mov bx,0
 mov si,0a8h
 mov di,40h
 mov bp,0
 
 mov cx,21
gy1:
 push cx
 push di
 
 mov ax,[si]
 mov dx,0
gy0: 
 mov cx,10
 call divdw
 add cx,30h
 push cx
 inc bp
 mov cx,ax
 jcxz gy3
 jmp short gy0
gy3:
 mov cx,dx
 jcxz gy2
 jmp short gy0
gy2:
 mov cx,bp
gy4:
 pop [bx]
 inc bx
 loop gy4
 mov bx,0
 mov ch,0
gy6:
 mov cl,[bx]
 jcxz gy5
 mov es:[di],cl
 mov byte ptr es:[di+1],2
 inc bx
 add di,2
 jmp short gy6
gy5:
 add si,2
 pop di
 add di,0a0h
 mov bx,0
 mov bp,0
 pop cx
 loop gy1
 pop bp
 pop di
 pop si
 pop es
 pop ds
 pop dx
 pop cx
 pop bx
 pop ax
 ret
rjsr:
 push ax
 push bx
 push cx
 push dx
 push ds
 push es
 push si
 push di
 push bp
 mov ax,data
 mov ds,ax
 
 mov ax,0b800h
 mov es,ax
 
 mov bx,0
 mov si,54h
 mov di,0a8h
 mov cx,21
rjsr1:
 push cx
 mov ax,[si]
 mov dx,[si+2]
 mov cx,[di]
 call divdw
 mov [bx],ax
 mov [bx+2],dx
 add si,4
 add di,2
 add bx,4
 pop cx
 loop rjsr1
 
 mov bx,0
 mov si,0
 mov di,60h
 mov bp,0
 mov cx,21
rjsr7:
 push cx
 push di
 mov ax,[si]
 mov dx,[si+2]
rjsr0:
 mov cx,10
 call divdw
 add cx,30h
 push cx
 inc bp
 mov cx,ax
 jcxz rjsr3
 jmp short rjsr0
rjsr3:
 mov cx,dx
 jcxz rjsr2
 jmp short rjsr0
rjsr2:
 mov cx,bp
rjsr4:
 pop [bx]
 inc bx
 loop rjsr4
 mov bx,0
 mov ch,0
rjsr6:
 mov cl,[bx]
 jcxz rjsr5
 mov es:[di],cl
 mov byte ptr es:[di+1],2
 inc bx
 add di,2
 jmp short rjsr6
rjsr5:
 add si,4
 pop di
 add di,0a0h
 mov bx,0
 mov bp,0
 pop cx
 loop rjsr7
 pop bp
 pop di
 pop si
 pop es
 pop ds
 pop dx
 pop cx
 pop bx
 pop ax
 ret
code ends
end start

莫名其妙 · 发表于 2012-3-28 16:45:03

给个建议
每一段与段之间增加空格行数
至少在每一段开始或者结束的地方添加一句注释

谢青源 · 发表于 2012-3-29 16:08:02

好长的代码

爭_峰 · 发表于 2012-7-31 20:41:28

很长啊,鱼哥,有没有短点的

天长地久 · 发表于 2012-8-2 12:49:09

本帖最后由天长地久于 2012-8-2 13:12 编辑

我的代码是直接在试验7的代码基础上添加的！还可以再优化一下！

assume cs:code,ss:stack
data segment
           db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
     db '1986','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
table segment
           db 21 dup ('year summ ne ?? ')
table ends
stack segment para stack'zjsf'
     dw 16 dup (0)
stack ends
code segment
    start: mov ax,data
     mov ds,ax
     mov bx,0
     mov ax,table
     mov es,ax
     mov bp,0
     mov si,0
     mov di,0
     mov cx,21
s:    mov ax,[bx]
     mov es:[bp],ax
     mov ax,2[bx]
     mov word ptr es:2[bp],ax
     mov ax,84[bx]
     mov word ptr es:5[bp],ax
     mov ax,86[bx]
     mov word ptr es:7[bp],ax
     mov ax,168[di]
     mov word ptr es:10[bp],ax
     mov ax,84[bx][si]
     add si,2
     mov dx,84[bx][si]
     div word ptr 168[di]
     mov word ptr es:13[bp],ax
     add bx,4
     mov si,0
     add di,2
     add bp,16
     loop s
     mov ax,table   ;这里开始课程设计一
     mov ds,ax
     mov di,0
     mov ax,stack
     mov ss,ax
     mov sp,32
     mov ax,0b800h
     mov es,ax
     mov bx,320
     mov si,58
     mov cx,21
ss0:   mov bp,0
     call dyl1   ;第一子程序
     add si,30   ;列数增加30位
     add di,5    ;数据列增加5位
     call dyl2   ;第二子程序
     add si,30   ;列数增加30位
     add di,5    ;数据列增加5位
     call dyl3   ;第三子程序，使用的是第二子程序的代码！比第二子程序少用一行代码！
     add si,30   ;列数增加30位
     add di,3    ;数据列增加3位
     call dyl3   ;第四子程序，使用的是第三子程序的代码！
     add bx,160
     mov si,58
     add di,3
     loop ss0
     mov ax,4c00h
     int 21h
dyl1:  push bx    ;显存写入的起始行数
     push si    ;显存写入的起始列数
     push di    ;被读取数据的起始位置
     push cx
s1:    mov dx,0    ;将dx的内容清零
     mov dl,ds:[di]  ;将数据保存在dx的低位
     mov cx,dx   ;将dx的值保存在cx中
     sub cx,20h   ;运算cx-20h是非=0，如果cx=0 下面将跳转
     jcxz dyl12   ;如果cx=0 跳转到dyl12  不=0 继续下面的循环
     mov dh,7    ;将颜色保存在dx的高位
     mov es:[bx+si],dx ;将数据写入显存地址
     add si,2
     inc di
     jmp short s1
dyl12: pop cx
     pop di
     pop si
     pop bx
     ret     ;第一子程序结束
dyl2:  mov dx,2[di]   ;第二子程序开始
dyl3:  mov ax,[di]   ;第三四子程序开始
     push bx    
     push si
     push di
     push cx
     mov di,0
dyl21: mov cx,dx
     jcxz dyl22
     push ax           ;低位保存到栈
     mov ax,dx   ;高位移到AX中待除
     mov dx,0    ;高位清零
     mov cx,10   ;除数设置为10
     div cx    ;高位除以10   开始除高位
     mov bp,ax   ;除后商保存到bp中
     pop ax            ;将栈中保存的数恢复到AX中
     div cx    ;低位除以１０　开始除低位
     push dx    ;将结果余数保存到 栈  中
     inc di
     mov dx,bp
     jmp short dyl21
dyl22: mov cx,10
     div cx
     push dx
     inc di
     mov dx,0
     mov cx,ax
     jcxz dyl23
     jmp short dyl22
dyl23: mov cx,di
dyl24: pop ax
     add al,30h
     mov ah,7
     mov es:[bx+si],ax
     add si,2
     loop dyl24
     pop cx
     pop di
     pop si
     pop bx
     ret     ;第二三四子程序结束
code ends
end start

账号		自动登录	找回密码
密码			立即注册

[技术交流] 课程设计1

马上注册，结交更多好友，享用更多功能^_^