Assembler binary

loop:     RCL al, 1
            JC jedna
            txt nula
            ;-----------
pokrac:
            DEC big
            CMP big, 0       
            JNZ loop
            JMP kon

jedna:        txt jednotka
                jmp pokrac

Bity ( 15. - 0. )
 -  |  -  |  -  |  -  |  OF  |  DF  |  IF  |  TF  |  SF  |  ZF  |  -  |  AF  |  -  |  PF  |  -  |  CF

pushf
pop ax
or ax, 80h
push ax
popf

tes:       TEST znak, 01000000b
            jnz  single
            jmp koniec
;--------------------------------
single:    pushf
            pop bx
            or bx, 80h
            push bx
            popf 

lop2:     rcl al, 1
            push ax
            jc jed2
            txt nula
           
pokrac2:  pop ax
              dec big2
              cmp big2, 0       
              jnz lop2
              jmp koniec

           
jed2:      txt jednotka
              jmp pokrac2

tes:        TEST znak, 01000000b
            jnz  single
            jmp koniec
;--------------------------------
single:     mov bx, znak
            or BYTE [bx], 40h    ; siesty bit ( zacina sa nultym bitom ) v premennej znak sa nastavi na jednotku

org 100h

MOV ah, 0h
INT 16h ; DOS - nacitaj znak
MOV bl, al ; presun znak do DL kvoli pouzitiu vypisovania pomocou AH a INT 21h

MOV cx, 08h ; pocet opakovani 8 ( velkost znaku byte)
for1:
   RCL  bl, 01h   
   MOV  ah, 02h ; DOS - vypis znak
   JC   vypis1 ; ak CF=1 skoc na vypis1, inak vypis '0'
   MOV  dl, '0'
   JMP SHORT pokracuj ; skoc na pokracuj (short, tusim 1 byte namiesto 2)
   vypis1:
        MOV dl, '1'
   pokracuj:
        INT 21h ; DOS - vypis znak v DL
LOOP for1
RET

data      segment
precitane   db 'retazec bla bla bla fffffffartrfd$'
miesto     dw 0
Dlzka EQU $-precitane
data      ends


mov si,  offset precitane
         ; lodsb
            mov al,'a'
            mov cx,Dlzka
         ;cld
Cyklus:  inc miesto
         
             scasb
            je Nasiel
            loop Cyklus
            Nasiel: dec di 
       
           
            mov dl,miesto
            mov ah, 2
            int 21h

            mov ax, 4c00h
            int 21h
code     ends
            end start

start:

    mov di, offset precitane
    mov al, 'a'
    mov cx, Dlzka
    cld
    repne scasb
    jnz exit                ; nenaslo

    ; teraz je v registri di adresa, kde sa nachadza znak

    sub di, offset precitane    ; v di je teraz pozicia znaku - to co potrebujes. Staci uz len vypisat

start:

    mov di, offset precitane
    mov al, 'a'
    mov cx, Dlzka
    cld
    repne scasb
    jnz exit               

   

exit:    sub di, offset precitane
vypis di

extern printf               ; aby som sa nepiplal s vypisom, budem volat C funkciu printf

section .data
    s_string    db 'Helo, this is sample string'    ; retazec, kde sa bude hladat znak
    s_length    dd $ - s_string                     ; dlzka retazca

    pf_format   db '%d', 10, 13, 0                  ; formatovaci retazec pre printf funkciu


section .text
    global main

main:                                   ; inicializacia, toto ignoruj
    push ebp
    mov ebp, esp
    push edi

    xor eax, eax
    mov edi, s_string                   ; edi nastavime na offset nasho retazca ( v tvojom pripade di )
    mov al, 'i'                         ; hladame znak 'i'
    mov ecx, [s_length]                 ; ecx ( cx ) nastavime na dlzku retazca
    cld                                 ; direction flag zmazeme, co znaci posun dopredu
    repne scasb                         ; opakujeme instrukciu scasb, pokial sa znak nerovna pozadovanemu
    jnz exit                            ; znak sa nenasiel


print:                                  ; tu uz je iba vypis pomocou printf ( mne sa vypise 9 ), ignoruj
    sub edi, s_string
    push edi
    push pf_format
    call printf
    add esp, 8
   
   
exit:                                   ; koniec programu
    pop edi
    pop ebp
    mov eax, 0
    ret

data      segment

subor       db 'data.txt', 0        ; definicia suboru
precitane db 100 dup(?),'$'         ; tu sa bude ukladat citany subor
Dlzka     dw ?
data      ends


start:    mov ax, seg data
          mov ds, ax
          mov ah, 3dh             
          mov al, 0               
          mov dx, offset subor   
          int 21h
          mov dx, offset precitane
          mov cx,1               
          mov bx,ax             
citaj:    mov ah,3fh               
          int 21h
          inc dx                    
          inc dlzka                         
          cmp ax, 0                 
          jne citaj               
       
         
          mov dx, offset precitane     
          mov ah, 9
          int 21h
         
                   
          mov di, offset precitane
          mov al, 'a'
          mov cx, Dlzka
          cld
          repne scasb
          jnz exit               
         
         

         sub di, offset precitane   ;ak dam exit sem vypise iba dlzku
         
         vypis di  ;ak dam exit sem vypise dlzku+9
         
         

         
exit:     mov ax, 4c00h   ;ak dam exit sem nevypise nic
          int 21h
code      ends
          end start

Dlzka     dw ?

inc dlzka

Dlzka     dw 0

    mov ax, seg data
    mov es, ax

DOSSEG
.MODEL LARGE
.STACK 200h

.DATA

precitane db 'Hello world!', 10, 13, '$'         ; tu sa bude ukladat citany subor
error     db 'Error!', 10, 13, '$'
znak      db 0, 10, 13, '$'


.CODE
   ASSUME CS:@CODE, DS:@DATA


START:
    mov ax,@data
    mov ds,ax   
    mov es,ax
         
    mov dx, offset precitane
    mov ah, 9
    int 21h
         
        ; hladanie
    mov di, offset precitane
    mov al, 'e'
    mov cx, 10          ; dlzka ako konstanta
    cld
    repne scasb
    jz con         

    mov dx, offset error
    mov ah, 9
    int 21h
    jmp exit

con:
    add di, 30h         ; uprava cisla na znak. Je to iba pre jednoduchost, ratam s tym, ze
                        ; poradie pismenka je v rozsahu 0-9

        ; tu uz len vypisujem vysledok, cize tu tiez pouzi svoj kod pre vypis. Staci vypisat
        ; cislo, ktore je v di
    mov ax, di
    mov dx, offset znak
    mov BYTE PTR offset znak, al
    mov ah, 9
    int 21h
   
   
exit:     mov ax, 4C00h
          int 21h

END start