汇编语言改变屏幕颜色 汇编语言程序设计之根据输入改变屏幕颜色的代码

stack segment stack
 db 64 dup (?)
stack ends
data segment
 buff db 50,?,50 dup(?)
 nam0 db 'What is your name ?$'
 bkc0 db 'What is your background color ?$'
 bkc1 db '->(input RGB:0-7):$'
 fc0 db 'What is your font color ?$'
 fc1 db '->(input RGB:0-7):$'
 tw0 db 'Do you like twinkle ?$'
 tw1 db '->(like:1 dislike:0): $'
 hel0 db 'Hello!$'
 hel1 db 'Welcome to MASM!$'
 arro db '->$'
data ends
code segment
assume cs:code,ds:data,ss:stack
start: mov ax,data
  mov ds,ax    ;使ds指向data数据段
  mov ah,6    ;初始化屏幕
  mov al,0
  mov ch,0
  mov cl,0
  mov dh,24
  mov dl,79
  mov bh,7
  int 10h
  mov bh,00001111b  ;黑底白字
  call scroll
  call cursor
  mov dx,offset nam0
  mov ah,9
  int 21h    ;输出字符串，提示输入姓名
  mov bh,10001111b
  call scroll
  call cursor
  mov dx,offset buff
  mov ah,10
  int 21h    ;输入字符串至缓冲区
  call scroll
  mov bh,00001111b  ;闪烁黑底白字
  call scroll
  call cursor
  mov dx,offset bkc0
  mov ah,9
  int 21h    ;输出字符串，询问背景色
  call scroll
  call cursor
  mov dx,offset bkc1
  mov ah,9
  int 21h    ;输出字符串，提示输入格式
  mov bh,10001111b
  call scroll
  call cursor
  mov dx,offset arro
  mov ah,9
  int 21h    ;输出箭头
  mov ah,1
  int 21h    ;输入背景色
  sub al,30h
  call scroll
  mov cl,4
  shl al,cl
  mov bh,00001000b
  add bh,al    ;将bh的4-6位改为输入的背景色
  call scroll
  call cursor
  mov dx,offset fc0
  mov ah,9
  int 21h    ;输出字符串，询问字体色
  call scroll
  call cursor
  mov dx,offset fc1
  mov ah,9
  int 21h    ;输出字符串，提示输入格式
  or bh,10000000b
  call scroll
  call cursor
  mov dx,offset arro
  mov ah,9
  int 21h    ;输出箭头
  mov ah,1
  int 21h    ;输入字体色
  sub al,30h
  call scroll
  add bh,al    ;将bh的0-2位改为输入的字体色
  and bh,01111111b
  call scroll
  call cursor
  mov dx,offset tw0
  mov ah,9
  int 21h    ;输出字符串，询问是否闪烁
  call scroll
  call cursor
  mov dx,offset tw1
  mov ah,9
  int 21h    ;输出字符串，提示输入格式
  or bh,10000000b
  call scroll
  call cursor
  mov dx,offset arro
  mov ah,9
  int 21h    ;输出箭头
  mov ah,1
  int 21h    ;输入闪烁
  sub al,30h
  call scroll
  cmp al,1
  je twin
  and bh,01111111b  ;若闪烁，将bh的7位改为1
  jmp a
twin: or bh,10000000b  ;若不闪烁，将bh的7位改为0
a:  call scroll
  call cursormid
  mov dx,offset hel0
  mov ah,9
  int 21h    ;输出问候
  push bx
  call scroll
  call cursormid
  mov bl,buff+1   ;将输入的字符数存至bl
  add bl,2    ;将bl加2，使之指向最后一个字符的下一个字符
  mov bh,0    ;将bh置零
  add bx,offset buff ;将buff的偏移地址加到bx中
  mov byte ptr [bx],'!' ;在字符串最后写入'!'
  add bx,1    ;将bx加1，使之指向下一个字符
  mov byte ptr [bx],'$' ;在字符串最后写入'$'
  mov dx,offset buff+2
  mov ah,9
  int 21h    ;输出字符串（即所存姓名、'!'）
  pop bx
  call scroll
  call cursormid
  mov dx,offset hel1
  mov ah,9
  int 21h    ;输出字符串，问候    
  mov ah,4ch
  int 21h    ;结束程序
scroll proc near
  push ax
  push bx
  push cx
  push dx
  mov ah,6
  mov al,1
  mov ch,8
  mov cl,30
  mov dh,16
  mov dl,60
  int 10h    ;下滚一行
  pop dx
  pop cx
  pop bx
  pop ax
  ret
scroll endp
cursor proc near
  push ax
  push bx
  push dx
  mov ah,2
  mov dh,16
  mov dl,30    ;移动光标
  mov bh,0
  int 10h
  pop dx
  pop bx
  pop ax
  ret
cursor endp
cursormid proc near
  push ax
  push bx
  push dx
  mov ah,2
  mov dh,16
  mov dl,38    ;移动光标
  mov bh,0
  int 10h
  pop dx
  pop bx
  pop ax
  ret
cursormid endp
code ends
end start