prost

.model small
.stack
.data
n dw 16
a db 'prost sam','$'
b db 'nisam prost', '$'
.code

   mov ax, @data
   mov ds, ax

   mov ax, n
   mov bx, 2



   cmp ax, 1
   je nije
   cmp ax, 2
   je jeste

   mov dx, 0   ;
   div bx      ;
   cmp dx, 0   ;
   je nije     ;

   ;ima funkcija ugradjena za paritet, ja mislim, provjeriti kako se koristi!! - jp ; jump on parity (even)

   ;mov ax, n ;nesto ne stima....
   ;jp nije ;
   mov bx, 3


  pocetak:

     ;malo optimalniji kod, kao onaj tipican kod za proste, kao sto smo iz pascala radili
     mov ax, bx
     mul bx
     cmp ax, n
     jg jeste

     mov ax, n

     mov dx, 0
     div bx

     cmp dx, 0
     jz nije


     inc bx
     inc bx ;add bx, 2....
     jmp pocetak




nije:
     mov dl, offset b
     mov ah, 9
     int 21h
     JMP KRAJ
jeste:
       mov dl, offset a
       mov ah, 9
       int 21h
       jmp kraj


kraj:

    mov ah, 4ch
    int 21h

end