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
( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)
狗仔卡
发表于 2014-8-23 22:23:02
置顶卡
千斤顶
显身卡
楼主
发表于 2014-8-29 21:24:01