.386
dane segment
    txt1 db 'Cyfra: $'
       zm dw 0
dane ends

sts segment stack
    db 256 dup(0)
sts ends

program segment
assume cs:program, ss:sts, ds:dane

start:
    ; seg dane
    ;mov ax, seg dane
    ;mov ds, ax

    ; napis powitalny
    mov cx, 6
petla:
    lea dx, txt1
    mov ah, 09h
    int 21h
    loop petla

    ; pierwsza cyfra
    mov ah, 01h
    int 21h
    sub al, 30h
    mov dl, 100
    mul dl
    mov zm,ax
    xor ax, ax


    ; druga cyfra
    mov ah, 01h
    int 21h
    sub al, 30h
    mov dl, 10
    mul dl
    add zm, ax
    xor ax, ax


    ;trzecia cyfra
    mov ah, 01h
    int 21h
    sub al, 30h
    add zm, ax

    mov ax, zm


    mov cx, 16

bin:
    cmp cx, 0
    je koniec

    shr ax, 1
    jc jeden
    mov dl, '0'
    mov ah, 02h
    int 21h
    dec cx
    jmp bin

jeden:
    mov dl, '1'
    mov ah, 02h
    int 21h
    dec cx
    jmp bin


koniec:

    lea dx, txt1
    mov ah, 09h
    int 21h

    ; w tym miejscu crash

    mov ah, 4ch
    int 21h

program ends
end start