用汇编语言控制颜色变化

下面是他的一些常用中断向量的入口值详解：(记住哦，很用的...呵呵) IBM PC 中断int10

ooH 屏幕方式设置

入口：AH＝0，AL＝显示方式代码（0－－6）

0：40*25 黑白

1：40*25 彩色

2：80*25 黑白

3：80*25 彩色文本

4：320*200 彩色

5：320*200 黑白

6：640*200 黑白图形模式

7：80*25 单色字符（单色显示器）

0BH 色彩设置

入口：AH＝0B，BL＝0 设背景色，BH＝0－－15 BL＝1 设调色码，BH＝0－－1

0CH 写图形点

入口：AH＝0C，CX：DX＝列号：行号，AL＝颜色

ODH 读图形点

入口：AH＝0D，CX：DX＝列号：行号

返回：AL＝颜色

0EH 在当前页、当前光标处写字符

入口：AH＝0E，AL＝字符的ASCII码，BL＝前景色

OFH 显示器状态

入口：AH＝0F

返回：AL＝当前显示器方式，AH＝屏幕列数，BH＝当前页号

01H 光标设置

入口：AH＝1，CH＝光标起始行号（00－－0C），CL＝光标结束行号（00－－0C）

注：CH ＞CL

02H 光标定位

入口：AH＝2，BH＝页号，DH：DL＝起始行：列

03H 读光标位置

入口：AH＝3，BH＝页号。

返回：DH：DL＝起始行：列

06H 窗口上卷

入品：AH＝6，AL＝窗口上卷行数，CH：CL－DH：DL 窗口坐标

注：AL＝0 卷动整个窗口

07H 窗口下卷

入口：AH＝7，AL＝窗口下卷行数，CH：CL－DH：DL 窗口坐标

08H 读当前光标处字符和属性

入口：AH＝8，BH＝页号。

返回：AH：AL＝字符的颜色：字符的ASCII码

注：颜色代码见下对照表

09H：在当前光标处写字符和属性

注：光标不下移

入口：AH＝9，BH＝页号，BL：AL＝字符的颜色：字符的ASCII码，CX＝重复次数

1 2 3 4 5 6 7 8

BL R G B I R G B

闪烁字符底色加亮字符颜色

;******************************************************************** *****

;A1：用汇编语言实现：通过键盘输入任意两点坐标，

;在屏幕上开一个窗口，并设定控制窗口的颜色，要求

;屏幕呈现颜色的变化。(huangyujie)

;******************************************************************** *****

datarea segment

num dw 4 dup(?)

mess1 db 13,10,'Enter win_ulr: $'

mess2 db 13,10,'Enter win_ulc: $'

mess3 db 13,10,'Enter win_lrr: $'

mess4 db 13,10,'Enter win_lrc: $'

merror db 13,10,'Enter number 1 to 8 to change color! $' win_high dw ?

win_width dw ?

color db ?

datarea ends

;******************************************************************** **

prognam segment

;------------------------------------------------------------------------------

main proc far

assume cs:prognam,ds:datarea

start:

push ds

sub ax,ax

push ax

mov ax,datarea

mov ds,ax

call input

mov ax,13h

int 10h

mov ax,0a000h

mov es,ax

cld

call screen_color

mov ax, num[4]

sub ax,num[0]

add ax,1

mov win_high,ax

mov ax, num[6]

sub ax,num[2]

add ax,1

mov win_width,ax

mov color,00h

change:

mov al,color

call draw_win

mov ah,8h

int 21h

cmp al,20h

je next

mov color,al

cmp al, 1bh ;ESC_key

je exit

jmp change

next: add color,1

jmp change

exit:

mov ax,3

int 10h

ret

main endp

;--------------------------------------------------------------------------------------

input proc near

mov si,0

get_char:

cmp si,0

jz x1

cmp si,2

jz y1

cmp si,4

jz x2

cmp si,6

jz y2

x1: lea dx,mess1

jmp enter

y1: lea dx,mess2

jmp enter

x2: lea dx,mess3

jmp enter

y2: lea dx,mess4

jmp enter

enter:

mov ah,09h

int 21h

call decibin

cmp dl,13

je store

add si,2

cmp si,8

jnz get_char

store:

mov num[si],bx

add si,2

cmp si,8

jnz get_char

ret

input endp

;------------------------------------------------------------------------------------

decibin proc near

mov bx,0

newchar:

int 21h

mov dl,al

sub al,30h

cmp al,0

jl exit1

cmp al,9d

jg exit1

cbw

xchg ax,bx

mov cx,10d

mul cx

xchg ax,bx

add bx,ax

jmp newchar

exit1: ret

decibin endp

;------------------------------------------------------------------------------------

draw_win proc near

mov cx,num[2]

mov si, num[0]

push ax

mov ax,320

mul si

mov di,ax

add di,cx

pop ax

push di

mov bx,win_high ;r2-r1+1

win1:

mov cx,win_width ;c2-c1+1

rep stosb

pop di

add di,320

push di

dec bx

jnz win1

pop di

ret

draw_win endp

;-----------------------------------------------------------------------------------

screen_color proc near

mov cl,0h

mov dh,0h

mov bx,0h

mov ax,1010h

mov dl,64

prog:

int 10h

inc ch

inc bx

dec dl

jnz prog

mov di,0

mov al,3fh

call band

ret

screen_color endp

;----------------------------------------------------------------------------------

band proc near

mov cx,64

loo1:

mov bx,960

loo2:

stosb

dec bx

jnz loo2

dec al

loop loo1

ret

band endp

;******************************************************************** prognam ends

;******************************************************************** end start