Вывод каждого символа разным цветом

.MODEL small
.STACK 100h
.DATA
 
msg db "STROKA"
lnt=$-msg
msg2 DB 'Koli4estvo Simvolov=$' 
.CODE
 
 
;! установка видеорежима 80 x 25
mov ax,3     
int 10h  
;! установка видеорежима 80 x 25
 
 
mov ax,@data
mov ds,ax
 
;Вывод строки
  
mov si,0    
mov cx,lnt 
mov ah,02h 
 
 
 
ckl:    
 
        mov dl,msg[si]  
        int 21h   
        inc si    
        mov dl,13  
        int 21h
    
        mov dl,10  
        int 21h
        loop ckl   
    xor ax,ax
    int 16h
;Вывод строки    
    
    
; ВЫВОД СЛОВ   
    
lea dx, msg2
mov ah, 9
int 21h
 
; ВЫВОД СЛОВ   
 
 
 
; ВЫВОД КОЛ-ВА    
    mov ax, lnt 
OutInt proc
    aam 
    add ax,3030h 
    mov dl,ah 
    mov dh,al 
    mov ah,02 
    int 21h 
    mov dl,dh 
    int 21h
OutInt endp 
    ; ВЫВОД КОЛ-ВА    
    
    
    
    
    mov ax,4c00h
    int 21h 
end

sgstack segment para stack 'stack'
db 100 dup(?)
sgstack ends
 
sgdata segment para 'data'
inpmsg db 13,10,'Input string (no more than 80 characters):',13,10,'$'
strbuf db 80, ?
strsrc db 80 dup (?)
msg2 DB 'Koli4estvo Simvolov=$'
sgdata ends
 
sgcode segment para 'code'
assume cs:sgcode,ss:sgstack,ds:sgdata
begin:
; Ввод строки
mov ax, sgdata
mov ds, ax
 
mov ax,3     
int 10h  
 
mov ah, 09h
lea dx, inpmsg
int 21h
mov ah, 0Ah
lea dx, strbuf
int 21h
; Ввод строки
 
; Очистка
mov ax,3     
int 10h   
; Очистка
 
; Вывод цветной строки
 
 
 
; Вывод цветной строки
 
; ВЫВОД СЛОВ   
 
 ;;Задержка
 xor ax,ax
 int 16h
 ;;Задержка
 
mov ax,3     
int 10h  
lea dx, msg2
mov ah, 9
int 21h
 
; ВЫВОД СЛОВ   
 
 
 
; ВЫВОД КОЛ-ВА    
mov ax, word ptr strbuf[1]  
OutInt proc
    aam 
    add ax,3030h 
    mov dl,ah 
    mov dh,al 
    mov ah,02 
    int 21h 
    mov dl,dh 
    int 21h
OutInt endp 
    ; ВЫВОД КОЛ-ВА    
 
 
 
mov ah, 4Ch
int 21h
sgcode ends
end begin