Prog II/2

ADAT SEGMENT
TOMB    DB 5 DUP(0)
S1  DB "KEREM A SZAMOKAT:", 13, 10, "$"
S2  DB 13, 10, "JELES:     $"
S3  DB 13, 10, "JO:        $"
S4  DB 13, 10, "KOZEPES:   $"
S5  DB 13, 10, "ELEGSEGES: $"
S6  DB 13, 10, "ELEGTELEN: $"
ADAT ENDS

CODE SEGMENT
    ASSUME DS:ADAT, CS:CODE

START:  MOV AX, ADAT
    MOV DS, AX
    MOV AH, 9
    LEA DX, S1
    INT 21H
    MOV AH, 1

CIKLUS1:    INT 21H
    CMP AL, '0'
    JZ OLVEG
    JC CIKLUS1
    CMP AL, '6'
    JNC CIKLUS1
    LEA SI, TOMB
    XOR BX, BX
    AND AL, 0FH
    MOV BL, AL
    DEC BL
    ADD SI, BX
    MOV DL, [SI]
    INC DL
    MOV [SI], DL
    JMP CIKLUS1

OLVEG:  MOV AH, 9
    MOV SI, 0
    XOR CH, CH
    LEA DX, S2
    INT 21H
    MOV CL, TOMB[SI]
    PUSH CX
    CALL SZJKI
    INC SI
    LEA DX, S3
    INT 21H
    MOV CL, TOMB[SI]
    PUSH CX
    CALL SZJKI
    INC SI
    LEA DX, S4
    INT 21H
    MOV CL, TOMB[SI]
    PUSH CX
    CALL SZJKI
    INC SI
    LEA DX, S5
    INT 21H
    MOV CL, TOMB[SI]
    PUSH CX
    CALL SZJKI
    INC SI
    LEA DX, S6
    INT 21H
    MOV CL, TOMB[SI]
    PUSH CX
    CALL SZJKI
    MOV AH, 4CH
    INT 21H

SZJKI   PROC
    POP BX
    POP AX
    PUSH BX
    XOR AH, AH
    MOV BL, 10
    DIV BL
    MOV BX, AX
    MOV AH, 2
    CMP BL, 0
    JZ TIZK
    MOV DL, BL
    ADD DL, '0'
    INT 21H
TIZK:   MOV DL, BH
    ADD DL, '0'
    INT 21H
SZJKI   ENDP
CODE ENDS
END START