format binary

    org 100h
    mov [atr],1dh

    mov ax,0
    int 33h
    mov ax,1
    int 33h




    prc:
    mov ax,3
    int 33h
    mov ah,1
    int 16h

    shr cx,3
    shr dx,3


    mov dh,dl
    mov dl,cl

    mov ah,02
    mov bh,0
    int 10h





    bt bx,0
    jb draw
    adraw:

    bt bx,1
    jb draw2
    adraw2:


    mov ah,01h
    int 16h
    jne koniec

    jmp prc

    koniec:





    mov ax,02
    int 33h
    mov ah,08h
    int 21h

    mov ah,4ch
    int 21h


     draw:
     mov ah,09h
     mov al,'*'
     mov bh,0
     mov bl,[atr]
     mov cx,1
     int 10h
     jmp adraw


     draw2:
     inc [atr]

     jmp adraw2


     atr DB 1