clrscr macro                ;definicia makra na mazanie obrazovky
  mov ax,0003h                ;do ax sa vlozi parametre grafickeho modu 80x25
  int 10h                     ;procedura na vymazanie obrazovky
endm                        ;koniec makra
gotoxy macro x,y            ;makro na nastavenie kurzora
  mov dl,x                  ;presum x-ovej sur do registra
  mov dh,y                  ;presun y-ovej sur do registra
   mov ax,0200h                ;do ax sa vlozi cislo obsluhy na nastavenie kurzora
   int 10h            
endm                        ;koniec makra
write macro s               ;makro na vypis textu
  mov dx,offset s           ;presun adresy vypisovaneho textu do registra dx
  mov ah,09h                  ;do ah sa vlozi cislo obsluhy na vypisanie retazca
  int 21h              
endm                        ;koniec makra

zas segment stack           ;deklaracia zasobnikoveho segmentu
  dw 100 dup (?)            ;alokovanie 200B, ktore sa neinicializiju
zas ends                    ;koniec zasobnikoveho segmentu
data segment                ;deklaracia datoveho segmentu

max db 100                  ;deklaracia premennej max=100
pocet db 0
vstup db 100 dup (?)        ;deklaracia premennej vstup s alokovanim 100B neinicializovanych
vystup db 100 dup (?)       ;deklaracia premennej vystup s alokovanim 100B neinicializovanych
 textA db '1. zmena registra BL$'            ;symbolicke konstanty reprezentujuce texty
 textH db 'hodnota 7. bitu registra BL je 0$'
 textB db 'hodnota 7. bitu registra BL je 1$'
 textC db 'zadaj znak :$'			
 textG db '2. KONIEC$'
 

data ends                   ;koniec datoveho segmentu


