;vypis textu podla volby uzivatela

zas      segment stack 'stack'
         dw 64 dup(?)
zas      ends

data       segment

den      db 'je este den?',13,10,'$'
jerano     db  13,10,'dobry den',13,10,'$'
jevecer    db  13,10, 'dobry vecer',13,10,'$'
data         ends

code      segment
       assume cs:code,ss:zas,ds:data
start:
      mov ax,seg data
      mov ds,ax
      mov dx,offset den ; vypis je este den?
      mov ah,9
      int 21h
      mov ah,1           ; volba znaku ano alebo nie (a/n)
      int 21h
      cmp al, 'a'
      jz denr
      cmp al,'A'         ; moze byt aj A/N
      jnz vecer          ; nie je rano   
denr: mov dx, offset jerano
      jmp vypis
vecer:mov dx, offset jevecer
vypis:mov ah,9
      int 21h
      mov ax,4c00h
      int 21h
code  ends
      end start