Füzi 1

ADAT SEGMENT
S1  DB  13, 10, "KÉREM A BEOLVASANDÓ KARAKTEREKET:" 13, 10, "$"
S2  DB  13, 10, "SZÁMJEGYEK SZÁMA: $"
ADAT ENDS

CODE SEGMENT
    ASSUME CS:CODE, DS: ADAT
START:  MOV AX, ADAT
    MOV DS, AX
    MOV AH, 9
    LEA DX, S1 ; KIÍR
    INT 21H
    MOV AH, 1
    MOV CX, 80 ; 80 KARAKTER
    XOR DX, DX
CIKL:   INT 21H
    CMP AL, 13
    JZ  CIKLVEG
    CMP AL, '/' ; ASCII
    JC  NEMSZAM
    CMP AL, ':' ; ASCII
    JNC NEMSZAM
    INC DX ; HA SZÁM, NÖVELD
NEMSZAM:    LOOP CIKL
    MOV AX, DX
    MOV CX, 10
    DIV CX ; TÍZES SZÁMRENDSZERBE AZ ÖSSZEGET
    MOV BX, AX ; OSZTÁS EREDMÉNYEI MENTÉSE
    MOV CX, DX
    MOV AH, 9
    LEA DX, S2 ; MÁSODIK SOR KIÍRÁSA
    INT 21H
    MOV AH, 2 ; EREDMÉNY KIÍRÁSA
    CMP BL, 0
    JZ EGYES ; UGORJ, HA KILENC, VAGY KEVESEBB... TÍZESBŐL NULLA VOLT
    ADD BL, 30H
    MOV DL, BL
    INT 21H
EGYES:  ADD CL, 30H
    MOV DL, CL
    INT 21H
    MOV AH, 4CH
    INT 21H
CODE ENDS
END START