[BITS 16]
[ORG 0x100]
boucle0:
  call saisie
  cmp al,08h
  jne suite1
  call reculer
  jmp boucle0
suite1:
  cmp al,0Dh
  je fbou0
  call affiche
  call curseur
  jmp boucle0
fbou0:
  ;terminaison
  mov ax,4C00h
  int 21h
saisie
  mov ah,0h
  int 16h
  ret
  
affiche
  mov ah,0h
  mov bh,0
  mov cx,1
  int 10h
  ret

curseur
  mov ah,3
  mov bh,0
  int 10h
  inc bl
  mov ah,2
  mov bh,0
  int 10h
  ret
  
reculer
  mov ah,3
  mov bh,0
  int 10h
  cmp dl,0
  jng suite2
  dec dl
  
suite2
  mov ah,2
  mov bh,0
  int 10h
  mov al,20h
  call affiche
  ret