Convert Decimal to Binary

No comments
  1. .model small
  2. .stack 150h
  3. .data
  4. s1 db 0dh,0ah,"convert:$"

  5. .code
  6. main proc
  7.     mov ax,@data
  8.     mov ds,ax
  9.  
  10.     mov ah,1


  11.     int 21h
  12.    
  13.      mov bl,al
  14.     mov cl,0
  15.     and bl,0Fh
  16.  
  17.     mov ah,9
  18.     lea dx,s1
  19.     int 21h
  20.  
  21.     l1:
  22.  
  23.     shl bl,1
  24.  
  25.     jnc l4
  26.  
  27.     mov dl,'1'
  28.     mov ah,2
  29.     int 21h
  30.  
  31.     jmp l5
  32.  
  33.  

  34.     l4:
  35.      mov dl,'0'
  36.       mov ah,2
  37.  
  38.     int 21h
  39.     l5:
  40.     inc cl
  41.     cmp cl,8
  42.     jne l1
  43.  
  44.  
  45.     end:
  46.                                            
  47.      main endp
  48. end main

No comments :

Post a Comment