chapter 7 ex 9

include 'emu8086.inc'
.model small
.stack 100h
.code
main proc
    print 'Give a character '
    mov ah,1
    int 21h
    mov bl,al

    gotoxy 0,1

    print 'ascii code in binary '

    mov bh,0
    mov cx,8
    mov ah,2

 L1:
   shl bl,1
   jc L2
   mov dl,'0'
   int 21h
   jmp L3
 gotoxy 0,2
 L2:
   mov dl,'1'
   int 21h
   inc bh
 L3:
   loop L1




    exit:
    mov ah,4ch
    int 21h
    main endp
end main