Assembleur ...hum hum

DOSSEG
.model small
.stack 100h
.DATA
texte1 db 13,10, "Entrer un chiffre entre 0 et 255$"
texte2 db 13,10, "Votre chiffre en binaire est:*$"
var1 db ?
var2 db ?
var3 db ?
var4 db ?
var5 db ?
var6 db ?
var7 db ?
var8 db ?
var9 db ?
var10 db 8 dup(1)

.CODE
mov ax,@data
mov ds,ax
mov dx,offset texte1
mov ah,09h
int 21h

mov ah,01h
int 21h
mov var1,al
jp paire1
mov al,var1
div ax,2
mov var2,al
jp paire2
mov al,var2
div ax,2
mov var3,al
jp paire3
mov al,var3
div ax,2
mov var4,al
jp paire4
mov al,var4
div ax,2
mov var5,al
jp paire5
mov al,var5
div ax,2
mov var6,al
jp paire6
mov al,var6
div ax,2
mov var7,al
jp paire7
mov al,var7
div ax,2
mov var8,al
jp paire8
mov al,var8
div ax,2
mov var9,al


paire1: mov var10+7,0
ret
paire2: mov var10+6,0
ret
paire3: mov var10+5,0
ret
paire4: mov var10+4,0
ret
paire5: mov var10+3,0
ret
paire6: mov var10+2,0
ret
paire7: mov var10+1,0
ret
paire8: mov var10,0
ret

mov dx,offset texte2 + var10
mov ah,09h
int 21h

mov ah,4Ch
int21h

END