[Asembler] pocet malych a velkych pismen

;*** POUZITIE PROCEDURY ***

;OTVORENIE SUBORU, NACITANIE A VYPISANIE

DATA    SEGMENT                 ;zaciatok datoveho segmentu

      FN DB 'subor.txt',0
      BUFF DB 1024 DUP('$')   ;kam sa to uklada
      ESTR DB 'Chyba$'
      
DATA    ENDS                    ;koniec datoveho segmentu


CODE    SEGMENT                 ;zaciatok kodoveho segmentu
        ASSUME  CS:CODE, DS:DATA        ;direktiva oznamuje

start:  MOV AX, SEG DATA        ;do AX vloz adresu segmentu DATA   

      MOV DS, AX
      
      MOV AH, 3dh
      MOV AL,0            ;mod citania
      MOV DX, OFFSET FN
      INT 21H
      ;JC ERROR
      MOV BX,AX             ;UKAZovatel od 30h
      MOV CX, 1024
      MOV DX, OFFSET BUFF
      MOV AH, 3FH
      INT 21H
      ;JC ERROR
      
      mov ah, 09h
      int 21H
      
        MOV Ax, 4C00H           ;funkcia ukoncenie programu
        INT 21H                 ;prerusenie na vykonanie ukoncenia programu
code   ends   
   end start

      mov   bx, offset buff
      mov   cl, [bx - 1]   ;velkost retazca
      mov   dx, 0         ;nulovanie dx, tam sa bude ukladat
cykluss:   
      mov   al, [bx]   ;ide cez vsetky znaky
      inc bx         ;zvysovanie pre posun v retazci
      cmp al,'$'  ; end of line?
      je supp
      cmp al,'a'
      JL cykluss  ; if char < 'a' then go to the end of the loop
      CMP al,'z'
      JG cykluss ; if char > 'z' then go to the end of the loop
      inc dx      
      jmp cykluss      

supp:   mov bx,dx
      charp 10
      CALL DISP   ;zobrazenie cisla(konvert z dx)

call porovnajVelke
call porovnajMale

porovnajMale:
  CMP al,'a'
  JL porovnajMaleKoniec  ; if char < 'a' then go to the end of the call
  CMP al,'z'
  JG porovnajMaleKoniec ; if char > 'z' then go to the end of the call
  inc dh ;pocitadlo pre male     
  jmp porovnajMaleKoniec
 ret

porovnajVelke:
rovnako s dl

      mov bx,cx
      charp 10   ;new line
      CALL DISP
      
      mov bx, 0
      
      mov bx,dx
      charp 10
      CALL DISP

DISP PROC
      MOV DL,BH      ; Since the values are in BX, BH Part
      ADD DL,30H     ; ASCII Adjustment
      MOV AH,02H     ; To Print in DOS
      INT 21H
      MOV DL,BL      ; BL Part
      ADD DL,30H     ; ASCII Adjustment
      MOV AH,02H     ; To Print in DOS
      INT 21H
      RET
DISP ENDP