|

楼主 |
发表于 2014-8-29 21:52:23
|
显示全部楼层
- assume cs:code,ss:stack,ds:data,es:data1
- data segment
- dd 1975,1976,1977,1978,1979,1980,1981,1982,1983
- dd 1984,1985,1986,1987,1988,1989,1990,1991,1992
- dd 1993,1994,1995,0
-
- dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
- dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000,0
- dd 3,7,9,13,28,38,130,220,476,778,1101,1442,2258,2793,4037,5635,8226
- dd 11542,14430,15257,17800,0
- data ends
- stack segment
- db 64 dup(0)
- stack ends
- data1 segment
- dd 80 dup(0)
- data1 ends
- code segment
- start:
- mov ax,data
- mov ds,ax
- mov ax,stack
- mov ss,ax
- mov sp,128
- mov ax,data1
- mov es,ax
-
- mov bx,0
- mov bp,0
-
-
-
- mov dx,0 ;用dx作次数
-
-
- Sa: ;将年份或人数或平均值之一入栈
- mov ax,[bx]
- mov cx,ax
- jcxz sa1 ;当Cx为0时,跳到s1处
-
- push ax
- mov ax,[bx+2]
- push ax
- add dx,2 ;一次循环压二次栈
- add bx,4
- inc bp
- loop sa
-
-
- mov cx,0
- mov cx,bp ;入栈次数给CX
-
-
-
- sa1: ;将入栈的数据转化为ASC11码
- pop dx
- pop ax
- push cx ;保护CX次数
-
- mov si,82
- call dtoc
- sub si,di ;bi中放的是数据长度
- mov di,0 ;长度清零
-
-
-
-
-
-
- pop cx
- inc cx
- loop sa1
-
-
-
-
-
-
- mov ax,4c00h
- int 21h
-
-
-
-
-
-
-
-
-
-
- divdw: ;参数:(ax)=dword型数据的低16位,(dx)=dword型数据的高16位,(cx)=除数
- ;返回:(dx)=结果的高16位,(ax)=结果的低16位,(cx)=余数
- push ax ;低16位先保存
- mov ax,dx ;ax这时候的值是高16位了
- mov dx,0 ;dx置零是为了不影响下边余数位,使得高16位为0
-
- div cx ;H/N(16位除法)
- mov bx,ax ;ax,bx的值为int(商)H/N,dx的值为rem(余数)
-
-
- pop ax ;ax的值现在是L(低16位)
- div cx ;L/N(16除法),ax被除数低16位,dx被除数高16位
-
- mov cx,dx
- mov dx,bx
-
-
- ret
-
-
- show_str: ;在指定位置显示字符,dh=行号(0-24),dl=列号(0-79),cx=颜色
- ; ds:si指向字符串首地址
-
- push cx
- push si
-
- mov ax,0b800h ;显存的开始地址
- mov es,ax ;ES中存放是显存的第0页(共0-7页)的起始段地址
-
- mov al,160 ;每行80字符即160字节
- dec dh ;第八行
- mul dh
- mov bx,ax
-
- mov al,2 ;一个字符占二字节
- dec dl ;列从零开始,第三列,所以减一
- mul dl
-
- add bx,ax ;此时BX中放的是行与列的偏移地址
- mov di,0 ;di 指向显存的偏移地址
- mov al,cl ;把颜色参数,放到al
- mov ch,0 ;把CX高位置0
-
-
- str: mov cl,ds:[si] ;ds:[si]指向‘Wlcome to masm!',0
- jcxz ok ;当CL为0时,跳到ok处
-
-
- mov es:[bx+di],cl ;偶字节放字符
- mov es:[bx+di+1],al ;奇字节放,颜色属性
- inc si
- add di,2 ;指向下个字符
-
- jmp short str ;无条件跳转,jcxz是离开的关键跳!
-
- ok: pop si
- pop cx
-
- ret ;显示字符串的子程序【定义结束】
-
-
-
-
- dtoc : ;抽取数字,并转化为SACII码
- push dx
- push cx
- push ax
- push si
- push bx
-
- mov bx,0 ;bx在子程序中用来存放位数,用栈来临时存放修改后的字符
-
- s1: mov cx,10
- ;mov dx,0 ;把用来存放余数的DX清零
-
- call divdw
- ; mov dx,cx ;r把余数给dx
-
-
- ;mov cx,ax ;得到的商赋值给CX
- jcxz s2 ;如果CX=0则跳到S1
-
-
- add cx,30h ;余数加30H,得到相应的ASCII码
- push cx ;保存到栈
- inc bx
-
- jmp short s1
-
-
- s2: add dx,30h ;商为0时,余数为个位
- push dx
-
- inc bx ;再进行一次栈操作,(补充当“商为零而余数不为零”时的情况)
-
- mov cx,bx ;用CX出栈,把总进栈次数给CX
- mov di,cx ;本程序中,用来保存长度
- mov si,82
-
- s3: pop ax ;s3实现将栈中的数据依次出栈,放到指定内存
-
- mov es:[si],al
- inc si
-
- loop s3
-
-
-
-
- okay: pop bx
- pop si
- pop ax
- pop cx
- pop dx
- ret
-
-
-
- code ends
- end start
-
复制代码
|
|