org 100h



mov ax, 1h
int 10h

mov ax, 1003h
mov bx, 0
int 10h



mov ax, 0b800h
mov ds, ax

mov di, 641h
mov cx, 12h





line:
mov [di], 11110000b
add di,50h
mov [di], 11110000b
add di, 50h
mov [di], 11110000b
sub di, 0A0h
add di, 02h
loop line
jmp cb


cb:
mov di, 6A3h
;======cheveux========

mov [di-52h], 11100000b
mov [di-50h], 11100000b
mov [di-4eh], 11100000b
mov [di-4ch], 11100000b
;======visage=====
mov [di-2h], 11110000b
mov [di-3h], 11111000b
mov [di], 11100000b
mov [di+2h], 11100000b

mov [di+4h], 11110000b
mov [di+3h], 11111000b
;======bouche======
mov [di+4eh], 11100000b
mov [di+50h], 11100000b
mov [di+4fh], 11000100b
mov [di+52h], 11100000b
mov [di+51h], 11000100b
mov [di+54h], 11100000b

jmp moves

t:
mov [di-52h], 11110000b
mov [di-50h], 11110000b
mov [di-4eh], 11110000b
mov [di-4ch], 11110000b
mov [di-2h], 11110000b
mov [di-3h], 00000000b
mov [di], 11110000b
mov [di+2h], 11110000b
mov [di+4h], 11110000b
mov [di+3h], 00000000b
mov [di+4eh], 11110000b
mov [di+50h], 11110000b
mov [di+4fh], 00000000b
mov [di+52h], 11110000b
mov [di+51h], 00000000b
mov [di+54h], 11110000b

sub di, 50h

jmp print

r:
mov [di-52h], 11110000b
mov [di-50h], 11110000b
mov [di-4eh], 11110000b
mov [di-4ch], 11110000b
mov [di-2h], 11110000b
mov [di-3h], 00000000b
mov [di], 11110000b
mov [di+2h], 11110000b
mov [di+4h], 11110000b
mov [di+3h], 00000000b
mov [di+4eh], 11110000b
mov [di+50h], 11110000b
mov [di+4fh], 00000000b
mov [di+52h], 11110000b
mov [di+51h], 00000000b
mov [di+54h], 11110000b

add di, 02h

jmp print

l:
mov [di-52h], 11110000b
mov [di-50h], 11110000b
mov [di-4eh], 11110000b
mov [di-4ch], 11110000b
mov [di-2h], 11110000b
mov [di-3h], 00000000b
mov [di], 11110000b
mov [di+2h], 11110000b
mov [di+4h], 11110000b
mov [di+3h], 00000000b
mov [di+4eh], 11110000b
mov [di+50h], 11110000b
mov [di+4fh], 00000000b
mov [di+52h], 11110000b
mov [di+51h], 00000000b
mov [di+54h], 11110000b

sub di, 02h

jmp print

b:
mov [di-52h], 11110000b
mov [di-50h], 11110000b
mov [di-4eh], 11110000b
mov [di-4ch], 11110000b
mov [di-2h], 11110000b
mov [di-3h], 00000000b
mov [di], 11110000b
mov [di+2h], 11110000b
mov [di+4h], 11110000b
mov [di+3h], 00000000b
mov [di+4eh], 11110000b
mov [di+50h], 11110000b
mov [di+4fh], 00000000b
mov [di+52h], 11110000b
mov [di+51h], 00000000b
mov [di+54h], 11110000b

add di, 50h

jmp print

print:
mov [di-52h], 11100000b
mov [di-50h], 11100000b
mov [di-4eh], 11100000b
mov [di-4ch], 11100000b
mov [di-2h], 11110000b
mov [di-3h], 11111000b
mov [di], 11100000b
mov [di+2h], 11100000b
mov [di+4h], 11110000b
mov [di+3h], 11111000b
mov [di+4eh], 11100000b
mov [di+50h], 11100000b
mov [di+4fh], 11000100b
mov [di+52h], 11100000b
mov [di+51h], 11000100b
mov [di+54h], 11100000b

jmp moves

moves: ;boucle qui va demander et jumper sur le mouvement voulue

mov ah,00h
int 16h   ;interruption 16h qui gere les entrees clavier
tab db 36h,32h,34h,38h ;tableau des directions
mov al,tab  ;al va checker les valeur memoire du tableau
cmp al, 36h
je r
cmp al, 32h
je b
cmp al, 34h
je cc
cmp al, 38h
je t
jne moves


;6a3h
teso:
mov di,6a3h
jmp moves


mov cl, 0h
sub di, 02h
mov dx,di
mov di,0h

cc:

mov ax,   tt[2]   ;mov ax, tt[0]


inc cx
add di, 02h

cmp dx,ax
je teso
cmp cx,3
jne cc
je teso




ret


tt: dw 651h,69fh,69dh