#petlja

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? n db ? n1 db ? enter1 db ? njiri db ? rac db ? rac1 db ? vroom db ? .data novired db 13, 10, 0 .code start: ; vroom kao brojac pocinje na nuli i unosimo karaktere ; zajedno sa bh kao brojacem do 8 za binarnu vrednost mov vroom,'0' invoke StdIn, addr n, 1 invoke StdIn, addr enter1, 2 invoke StdOut, addr novired invoke StdIn, addr n1, 1 invoke StdIn, addr enter1, 2 invoke StdOut, addr novired mov bl,n mov cl,n1 mov bh,0 petlja: ; provera ako je bh inkrementiran preko nule i ; redno uzimanje cifre 0 ili 1 za prvi karakter inc bh cmp bh,8 jg kraj shl bl, 1 jc dalje mov rac,'0' bb1: ;redno uzimanje cifre 0 ili 1 za drugi karakter shl cl, 1 jc dalje1 mov rac1,'0' bb2: ; poredjenje te cifre i inkrementiranje vrednosti vroom ; ako se razlikuju i povratak na pocetak petlje mov al, rac cmp al, rac1 jne hexd jmp petlja dalje: mov rac,'1' jmp bb1 dalje1: mov rac1,'1' jmp bb2 hexd: inc vroom jmp petlja kraj: ;vracanje vrednosti vroom kao bitovne razdaljine invoke StdOut, addr vroom invoke ExitProcess, 0 predji proc invoke StdOut, addr novired ret predji endp end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>5vikr B C 1 ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), zapis karaktera C je 01000011. Binarni zapisi oba karaktera razlikuju se samo na nultoj poziciji. ) C:\masm32\coRoNA\DoM20>5vikr B A 2 ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), zapis karaktera A je 01000001. Binarni zapisi oba karaktera razlikuju se na nultoj i prvoj poziciji. ) C:\masm32\coRoNA\DoM20>5vikr B a 3 ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), zapis karaktera a je 01100001. Binarni zapisi oba karaktera razlikuju se na nultoj, prvoj, i petoj poziciji. )

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? n db ? .data nula db '0', 0 jedan db '1', 0 zahtev db "Unesi karakter: ", 0 .code start: invoke StdOut, addr zahtev ; unosimo broj invoke StdIn, addr n, 1 ; ubacujemo ga u registar mov bl, n ; bh sluzi kao brojac mesta mov bh, 8 petlja: ; proveravamo da li smo stigli do kraja cmp bh, 0 je kraj ; vrsimo pomeranje ulevo za jedno mesto shl bl, 1 ; ukoliko je cf=1 skacemo na labelu dalje jc dalje ; ako nije stampamo 0 invoke StdOut, addr nula ; i skacemo na labelu dalje2 jmp dalje2 dalje: ; ako je cf = 1 onda dodajemo 1 invoke StdOut, addr jedan dalje2: ; posto posle dodavanja jedinice nemamo skok, ide dalje ; i onda u svakom slucaju smanjujemo bh za 1 dec bh ; ponavljamo petlju dok bh ne postane 0 loop petlja kraj: invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>2sar Unesi karakter: w 01110111 C:\masm32\coRoNA\DoM20>2sar Unesi karakter: ~ 01111110 C:\masm32\coRoNA\DoM20>2sar Unesi karakter: B 01000010

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? karakter db ? enter1 db 2 dup(?) levo db ? desno db ? .data poruka db "Unesi karakter:", 0 poruka1 db "Jeste palindrom!", 0 poruka2 db "Nije palindrom!", 0 .code start: invoke StdOut,addr poruka invoke StdIn,addr karakter,1 invoke StdIn,addr enter1,2 MOV AL,karakter MOV CL,karakter ; AH ostaje 1 ako je karakter palindrom ; ako se u jednom paru elementi razlikuju on postaje 0 MOV AH,1 MOV BH,0 for1: ; 4 prolaza u petlji zato sto uzimamo po jedan bit s obe strane cmp BH,4 je kraj ADD BH,'1' ; provera da li su elementi sa leve strane 0 ili 1 shl AL,1 ; slucaj kada je s leve strane element 0 jc prvi MOV levo,'0' ;provera da li su elementi sa desne strane 0 ili 1 shr CL,1 jc drugi ;slucaj kada je s desne strane element 0 MOV desno,'0' jmp prekrajfor1 ; slucaj kada je s leve strane element 1 prvi: MOV levo,'1' shr CL,1 jc drugi MOV desno,'0' jmp prekrajfor1 ; slucaj kada je s desne strane element 1 drugi: MOV desno,'1' jmp prekrajfor1 prekrajfor1: MOV BL,levo ; gleda se da li je uzeti element s leve ; jednak uzetom elementu s desne strane cmp BL,desno je for1 MOV AH,0 ; prvi put kada naidjemo na par kom elementi nisu jednaki zavrsavamo ; s daljim proverama i stampamo poruku da broj nije palindrom jmp kraj kraj: cmp AH,1 je kraj1 invoke StdOut,addr poruka2 jmp kraj2 kraj1: invoke StdOut,addr poruka1 kraj2: invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>4nem Unesi karakter: B Jeste palindrom! ( U navedenom primeru važi: zapis karaktera B je 01000010 (vidi ASCII tabelu), dakle, binarni zapis karaktera je palindrom. ) C:\masm32\coRoNA\DoM20>4nem Unesi karakter: b Nije palindrom! ( U navedenom primeru važi: zapis karaktera b je 01100010 (vidi ASCII tabelu), dakle, binarni zapis karaktera nije palindrom. ) C:\masm32\coRoNA\DoM20>4nem Unesi karakter: ~ Jeste palindrom! ( U navedenom primeru važi: zapis karaktera ~ je 01111110 (vidi ASCII tabelu), dakle, binarni zapis karaktera je palindrom. )

.386 .model flat, stdcall option casemap :none include \masm32\include\windows.inc include \masm32\include\kernel32.inc include \masm32\include\masm32.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\masm32.lib .data? n db ? .data novired db 13, 10, 0 brojac db '0', 0 poruka db "Unesite karakter: ", 0 odgovor db "Broj binarnih jedinica u zapisu karaktera je: ", 0 .code start: ; Unosi se karakter invoke StdOut, addr poruka invoke StdIn, addr n, 1 invoke StdOut, addr novired MOV BL, n ; U BL je smesten karakter MOV BH, 0 ; BH predstavlja redni broj cifre zapisa pocetak: ; Da li je kraj zapisa? INC BH CMP BH, 8 jg kraj ; Bit najvece tezine se istiskuje (on se smesta u CF) SHL BL, 1 ; Proverava se da li je taj bit jedinica jc povecaj jmp pocetak povecaj: ; Posto jeste jedinica, brojac se povecava za jedan INC brojac jmp pocetak kraj: ; Ispisuje se resenje invoke StdOut, addr odgovor invoke StdOut, addr brojac invoke ExitProcess, 0 end start

Test primeri: (Prokomentariši rešenja!)

    C:\masm32\coRoNA\DoM20>3kri Unesite karakter: w Broj binarnih jedinica u zapisu karaktera je: 6 ( U navedenom primeru važi: zapis karaktera w je 01110111 (vidi ASCII tabelu), pa ASCII zapis karaktera ima šest binarnih jedinica. ) C:\masm32\coRoNA\DoM20>6and Unesi karakter: a Broj binarnih jedinica u zapisu karaktera je: 3 ( U navedenom primeru važi: zapis karaktera a je 01100001 (vidi ASCII tabelu), pa ASCII zapis karaktera ima tri binarne jedinice. )