ECRIRE EN COULEUR AVEC TASM

.model tiny
.code
 org 100h

start:
  MOV  BL, 9h                             
  MOV  CX, 6                           
  MOV  DX, 020Ah                              
  MOV  SI, OFFSET [msg]

    mov  al, 0A0h
    mov  bp, dx
    mul  dh
    xor  dh, dh
    shl  dx, 01h
    add  ax, dx
    mov  di, ax

    mov  ax, 0B800h
    mov  es, ax
    mov  ah, bl
    mov  dx, cx
bouc:
    lodsb
    stosw
    loop bouc

    mov  cx, dx
    mov  dx, bp


  MOV  BL, 5h                             
  MOV  CX, 5                          
  MOV  DX, 040Ah                              
  MOV  SI, OFFSET [msg2]               

    mov  al, 0A0h
    mov  bp, dx
    mul  dh
    xor  dh, dh
    shl  dx, 01h
    add  ax, dx
    mov  di, ax

    mov  ax, 0B800h
    mov  es, ax
    mov  ah, bl
    mov  dx, cx
boucle:
    lodsb
    stosw
    loop boucle

    mov  cx, dx
    mov  dx, bp
    
    mov ax,4c00h
    int 21h

msg  db "coucou"
msg2 db "hello"
end start