实验5 编写、调试具有多个段的程序
assignment 1
- 将程序载入内存后查看,可知data段段地址为
076
C
076C
076C, stack段段地址为
076
D
076D
076D,code段段地址为
076
E
076E
076E
- Q1:G 001D执行程序至程序返回前,用U命令查看data段内容:
0123
H
,
0456
H
.
.
.
0123H,0456H...
0123H,0456H...,与初状态(源程序)一致,该程序按顺序做了入栈和出栈操作,因此数据不变
- Q2:R命令查看各个段寄存器的值
→
C
S
:
076
E
\to \;CS:076E
→CS:076E、
D
S
:
076
C
DS:076C
DS:076C、
S
S
:
076
D
SS:076D
SS:076D
- Q3:data段和stack段分别占16个字节,因此设code段段地址为 X X X,那么stack段段地址为 X − 1 H X-1H X−1H,data段段地址为 X − 2 H X-2H X−2H(做了assignment2后可以发现这里说法并不准确)
assignment 2
- 步骤与assigment1 完全一致
- 得出结论:段无论大小,在源程序载入内存后,段所占内存大小一定为16的整数倍
assignment 3
- 步骤与assignment1完全一致
- 设code段段地址为 X X X,那么data段段地址为 X + 3 H X+3H X+3H,stack段段地址为 X + 4 H X+4H X+4H
assignment 4
如果去掉通知编译器程序的入口的end start 语句,那么唯一可正确运行的是起始段为code段的程序3
assignment 5
- 编写源程序,注意在将段地址写入 D S DS DS时,要借助一个寄存器充当介质,因为立即数无法直接写入 D S DS DS
assume cs:code
a segment
db 1,2,3,4,5,6,7,8
a ends
b segment
db 1,2,3,4,5,6,7,8
b ends
c segment
db 0,0,0,0,0,0,0,0
c ends
code segment
start:
mov bx, 0
mov cx, 8
s:
mov dx, a
mov ds,dx
mov ax, [bx]
mov dx, b
mov ds,dx
add ax, [bx]
mov dx, c
mov ds,dx
mov [bx], ax
inc bx
loop s
mov ax,4c00H
int 21H
code ends
end start
- 用debug跟踪程序,可以看到a段段地址:
076
C
076C
076C、b段段地址:
076
D
076D
076D、c段段地址:
076
E
076E
076E
- 执行程序,查看c段内容,正确
assignment 6
- 编写源程序,注意bx变化值应为2,因为push、pop操作是以字为单位的
assume cs:code
a segment
dw 1,2,3,4,5,6,7,8,9,0ah,0bh,0ch,0dh,0eh,0fh,0ffh
a ends
b segment
dw 0,0,0,0,0,0,0,0
b ends
code segment
start:
mov ax, a
mov ds, ax
mov ax, b
mov ss, ax
mov sp, 0010H
mov bx, 0
mov cx, 8
s:
push [bx]
add bx, 2
loop s
mov ax, 4c00H
int 21H
code ends
end start
- 用debug跟踪程序,可以看到a段段地址:
076
C
076C
076C 、 b段段地址:
076
E
076E
076E、code段段地址:
076
F
076F
076F
- 执行程序,查看b段内容,正确
实验6 实践课程中的程序
assignment 1
- 这里只实践了问题7.8的解决方案(用栈作数据缓冲区),如下
assume cs:codesg, ds:datasg, ss:stacksg
datasg segment
db 'ibm '
db 'dec '
db 'dos '
db 'vax '
datasg ends
stacksg segment
dw 0,0,0,0,0,0,0,0
stacksg ends
codesg segment
start:
mov ax, stacksg
mov ss, ax
mov sp, 10H
mov ax, datasg
mov ds, ax
mov bx, 0
mov cx, 4
s0:
push cx
mov si, 0
mov cx, 3
s:
mov al, [bx+si]
and al, 11011111B
mov [bx+si], al
inc si
loop s
pop cx
add bx, 10H
loop s0
mov ax, 4c00H
int 21H
codesg ends
end start
- 跟踪程序,查看data段内容
- 执行程序后,查看data段内容,正确
assignment 2
assume cs:codesg, ds:datasg, ss:stacksg
stacksg segment
dw 0,0,0,0,0,0,0,0
stacksg ends
datasg segment
db '1. display '
db '2. brows '
db '3. replace '
db '4. modify '
datasg ends
codesg segment
start:
mov ax, stacksg
mov ss, ax
mov sp, 10H
mov ax, datasg
mov ds, ax
mov bx, 0
mov cx, 4
s0:
push cx
mov cx, 4
mov si, 0
s:
mov al, [bx+3+si]
and al, 11011111B
mov [bx+3+si], al
inc si
loop s
pop cx
add bx, 10H
loop s0
mov ax, 4c00H
int 21H
codesg ends
end start
- 跟踪程序,查看data段内容
- 执行程序,查看data段内容,正确
实验7 寻址方式在结构化数据访问中的应用
- 编写源程序,用word ptr / byte ptr指定内存单元大小主要应用在div指令
assume cs:codesg
stack segment
dw 0,0,0,0,0,0,0,0
stack ends
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
codesg segment
start:
mov ax, stack ;0776C
mov ss, ax
mov sp, 10H
mov ax, data ; 076D
mov es, ax
mov ax, table ; 077b
mov ds, ax
mov bx,0
mov si,0
mov cx,21
year:
push cx
mov cx, 4
mov di, 0
char:
mov al, es:[si]
mov [bx+di], al
inc di
inc si
loop char
pop cx
add bx, 10H
loop year
mov cx, 21
mov bx, 0
income:
push cx
mov cx, 2
mov di, 0
dwInt:
mov ax, es:[si]
mov [bx].5[di], ax
add si, 2
add di, 2
loop dwInt
pop cx
add bx, 10H
loop income
mov cx, 21
mov bx, 0
staff:
mov ax, es:[si]
mov [10+bx], ax
add si, 2;
add bx, 10H
loop staff
mov cx, 21
mov bx, 0
average:
mov dx, [bx+7]
mov ax, [bx+5]
div word ptr [bx+0AH]
mov [bx+0Dh], ax
add bx, 10H
loop average
mov ax, 4C00H
int 21H
codesg ends
end start
- 查看原始table段的内容
- 执行程序后,查看table段的内容,正确