汇编 输出彩色字体

by  1wangxiaobo@163.com
DATAS SEGMENT
   str db 'wang xiao bo colour.s test'
cn db $-str
clour db 10000010b
DATAS ENDS

STACKS SEGMENT
    ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
    MOV AX,DATAS
    MOV DS,AX
  lea di,str
mov cl,cn
  mov ax,0b800h
mov es,ax
xor bx,bx

l:mov al,[di]
mov es:[bx],al
mov ah,clour
mov es:[bx+1],ah
inc clour
inc di
add bx,2h
loop l
mov ah,01h
int 21h
    MOV AH,4CH
    INT 21H
CODES ENDS
    END START