实验6
(2)
assume cs:codesg,ss:stacksg,ds:datasg

stacksg segment
        dw 8 dup(0)
stacksg ends

datasg segment
        db '1. display      '
        db '2. brows        '
        db '3. replace      '
        db '4. modify       '
datasg ends

codesg segment
        start:mov ax,datasg
        mov ds,ax
        mov ax,stacksg
        mov ss,ax
        mov sp,10H
        mov bx,0
        mov cx,4
        s1:push cx
        mov cx,3
        s2:mov si,cx
        mov al,[bx+si+3]
        and al,11011111B
        mov [bx+si+3],al
        loop s2
        mov si,cx
        mov al,[bx+si+3]
        and al,11011111B
        mov [bx+si+3],al
        add bx,16
        pop cx
        loop s1
        mov ax,4c00h
        int 21h
codesg ends
end start

实验7
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'
        
        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

code segment
        start:mov ax,data
        mov ds,ax
        mov ax,table
        mov es,ax
        ;移动年份数据
        mov bx,0
        mov cx,4
        yr1:push cx
        mov si,0
        mov di,0
        mov cx,21
        yr2:mov al,[bx+si]
        mov es:[bx+di],al
        add si,4
        add di,16
        loop yr2
        pop cx
        inc bx
        loop yr1
        
        ;添加空格
        mov di,0
        mov cx,21
        spc1:mov al,' '
        mov es:[di+4],al
        mov es:[di+9],al
        mov es:[di+12],al
        mov es:[di+15],al
        add di,16
        loop spc1
        
        ;移动总收入数据
        mov bx,0
        mov cx,4
        s1:push cx
        mov si,84
        mov di,0
        mov cx,21
        s2:mov al,[bx+si]
        mov es:[bx+di+5],al
        add si,4
        add di,16
        loop s2
        pop cx
        inc bx
        loop s1
        
        ;移动人数数据
        mov si,168
        mov di,0
        mov cx,21
        n1:mov ax,[si]
        mov es:[di+10],ax
        add si,2
        add di,16
        loop n1
        
        ;计算平均数
        mov bx,0
        mov cx,21
        mov si,5
        avg:mov ax,es:[bx+si]
        mov dx,es:[bx+si+2]
        div word ptr es:[bx+si+5]
        mov es:[bx+si+8],ax
        add bx,16
        loop avg
        
        mov ax,4c00h
        int 21h
code ends
end start