Выделить первую букву слова красным цветом

model tiny   
.code        
org 100h     
 
 
begin:      
        mov ax,3 
        int 10h  
 
        mov ah,0Fh
        int 10h
 
        mov ah,3
        int 10h
 
        mov ax,1301h
        mov bl,03h
        mov cx,titleProgMSG_size
        lea bp,titleProgMSG
        int 10h
 
        
 
 
 
        mov ax,3d02h  
        mov dx,offset file 
        int 21h
 
        mov dx,offset errorOpenMSG
        jc  error1 
 
        mov readFile,ax 
 
read:       mov ah,3fh
            mov bx,readFile
            mov cx,1   
            mov dx,offset symbol 
            int 21h
 
        mov dx,offset errorReadMSG
        jc  endFile  
 
        cmp ax,cx
 
        mov dx,offset printStopReadMSG
        jnz endFile
 
        mov al,symbol 
 
        mov bx,07h 
 
        push    ax
 
        cmp al,'0'     
        jb  printingSymbol
 
        cmp al,'9'     
        ja  printingSymbol
 
        mov bx,colorNumber
 
printingSymbol: mov ax,0920h 
 
                int 10h
 
                pop dx
 
                cmp dl,0dh
                jz  read
 
                cmp dl,0ah 
                jnz print
 
                mov ah,02
                int 21h
 
                mov dl,0dh
                inc colorNumber
 
print:      mov ah,02
            int 21h
 
            jmp short read 
 
endFile:    push    dx
 
                mov ah,3eh
                mov bx,readFile
                int 21h
 
            pop dx
 
error1: mov ah,09
        int 21h
 
        mov ah,09h
        mov dx,offset sizeProgMSG
        int 21h
 
        mov ax,sizeProg
 
        mov bx,10
 
        xor cx,cx
 
countSize:      xor dx,dx
                div bx
 
                push dx
 
                inc cx
            
                or  ax,ax
                jnz countSize  
 
 
printSizeProg:  pop ax 
                or  al,30h  
                int 29h 
 
                loop    printSizeProg
 
                mov ah,08h
                int 21h
 
        ret
 
readFile    dw  ?
colorNumber dw  02h
symbol      db  ?
 
titleProgMSG   DB   '********************************************************************************',' 
titleProgMSG_size   =   $-titleProgMSG
file    db  '1.txt',0
errorOpenMSG    db  10,13,'nevozmozno otkrit fail (1)$'
errorReadMSG    db  10,13,'nevozmozno prochitat fail (2)$'
printStopReadMSG    db  10,13,'chtenie faila zaversheno...$'
sizeProgMSG db  10,13,'razmer progi: $'
sizeProg    dw $+2-100h 
 
end begin

model tiny
.code
.486
org 100h
start:
mov  ax,3
int  10h
 
mov  ah,10
mov  dx,offset _str
int  21h
 
push 0B800h
pop  es
xor  di,di
 
mov  cx,-1
mov  ax,0720h                      ;Пробел серого цвета на чёрном фоне
b:repe  scasw                      ;Ищем начало слова
  sub   di,2                  
  mov   byte ptr es:[di+1],4       ;Выделяем красным
  and   byte ptr es:[di],11011111b ;Переводим в верхний регистр (только латиница)
  repne scasw                      ;Ищем конец слова
  cmp   di,4000
jna b   
 
xor ax,ax
int 16h
ret 
 
_str db 255,0,255 dup(0)
 
end start