微机显示程序设计(1)

微机实验报告
(1)
实验程序：
title draw--program to draw on screen with
read_c equ 0
key_rom equ 16h
up equ 48h
down equ 50h
right equ 4dh
left equ 4bh
block equ 0dbh
esc1 equ 1bh
video segment at 0b800h
wd_buff label word
v_buff db 25*80*2 dup(?)
video ends
pro_nam segment
main proc far
assume cs:pro_nam,es:video
start:
push ds
sub ax,ax
push ax
mov ax,video
mov es,ax
mov cx,80*25
mov bx,0
clear:
mov es:[wd_buff+bx],0700h
inc bx
inc bx
loop clear
mov ch,12d
mov cl,40d
get_char:
mov ah,read_c
int key_rom
cmp al,esc1
jz exit
mov al,ah
cmp al,up
jnz not_up
dec ch
not_up:
cmp al,down
jnz not_down
inc ch
not_down:
cmp al,right
jnz not_right
inc cl
not_right:
cmp al,left
jnz lite_it
dec cl
lite_it:
mov al,160d
mul ch
mov bl,cl
rol bl,1
mov bh,0
add bx,ax
mov al,block
mov es:[v_buff+bx],al
jmp get_char
exit:
ret
main endp
pro_nam ends
end start
思考题：
1、显示器是如何定义窗口的大小的？
答：显示器是根据显存的单元数，v_buff db 25*80*2 dup(?)，定义窗口大小的。

2、在文本方式下，什么是属性值？
答：block equ 0dbh是定义的属性值，v_bluff+bx+1,是放每个单元（一共25*80个）属性值的地方，即每个单元的高字节。

3、光标轨迹运行到边界后，为什么光标会闪烁和改变颜色？若要光标不变，应如何修改程序？
答：光标移位所使用的语句是循环移位，当光标由边界移到另一边边界时方块字符的属性值发生错位相乘，所以光标会闪烁和改变颜色。

若要光标不变，应将循环移位ROL改为逻辑移位SHL。

(2)
实验程序：
stack segment
dw 64 dup(?)
stack ends
code segment
assume cs:code,ss:stack
start:
mov cx,001ah
mov bl,41h
mov ah,02h
a1: mov dl,bl
int 21h
inc bl
push cx
a2: loop a2
pop cx
dec cx
jnz a1
mov ah,4ch
int 21h
code ends
end start
结果：
修改程序：
stack SEGMENT
DW 64 DUP(?)
stack ENDS
code SEGMENT
ASSUME CS:code,SS:stack start:
MOV CX,0008h
a0: PUSH CX
MOV BL,31h
MOV CX,0009h
MOV AH,02h
a1: MOV DL,BL
INT 21h
INC BL
PUSH CX
a2: LOOP a2
POP CX
DEC CX
JNZ a1
MOV AH,02h
MOV DL,20h
INT 21h
POP CX
DEC CX
JNZ a0
MOV AH,4ch
INT 21h
code ENDS
END start
结果：。