Code    Segment
    assume CS:Code, DS:Data, SS:Stack

Start:
    mov ax, Code
    mov DS, AX

; 1 ********************************
; Írja ki a képernyőre az "Uzenet" tartalmát!
; 1 pont
; 2 pont ha visszafele

    mov di, offset Uzenet
    mov bl, 0

Keres:
    mov al, [di]
    inc di

    cmp al, "$"
    jz Tovabb
    inc bl

    jmp Keres

Tovabb:
    dec di
    dec di


Kiir:
    mov dl, [di]
    dec bl
    dec di
    mov ah, 2
    int 21h
    cmp bl, 0
    jnz Kiir



; 2 ********************************
; Számolja meg és decimális alakban írja ki
; a képernyőre az "Uzenet"-ben található "a" betűk számát!
; 2 pont

    call Ujsor
    mov bl, 0
    mov di, offset Uzenet
BetuSzamol:
    mov al, [di]
    inc di
    cmp al, "$"
    jz BetuKiir
    cmp al, "a"
    jnz BetuSzamol
    inc bl
    jmp BetuSzamol

BetuKiir:
    mov dl, bl
    add dl, 48
    mov ah, 2
    int 21h

; 3 ********************************
; Ciklus segítségével írjon ki
; 10 darab "*" karaktert egy sorba!
; 1 pont

    call Ujsor

    mov cx, 10
    Csillag:
        mov ah, 2
        mov dl, "*"
        int 21h
        loop Csillag


; 4 ********************************
; Ciklus segítségével írja ki az ASCII karaktertábla
; 65-75-ig terjedő szimbólumait!
; 1 pont
; 2 pont ha csökkenő sorrend
    call Ujsor
    mov cx, 10
    mov dl, 64
Betuk:
    inc dl
    mov ah, 2
    int 21h
    loop Betuk


Program_Vege:
    mov ax, 4c00h
    int 21h

Ujsor:
    mov ah, 2
    mov dl, 10
    int 21h
    ret

Uzenet: db  "Ez a 2018-as ev ZH feladata.$"

Code    Ends

Data    Segment

Data    Ends

Stack   Segment

Stack   Ends
    End Start