JMP start

X:  DB "1;7;3;6;5;5;2"
    DB 0

Y:  DB 7d

start:
    MOV C, X
    MOV B, 0d

    CALL escreverMensagemInicial

escreverMensagemInicial:
    MOV D, 232d

    MOV [D], 77
    INC D
    MOV [D], 69
    INC D
    MOV [D], 68
    INC D
    MOV [D], 40
    INC D

    MOV D, 0d

    CALL calculo

calculo:
    MOV A, [C]

    CMP A, 59d
    JE virgula

    SUB A, 48d
    ADD B, A

virgula:
    INC C
    CMP D, [C]
    JNZ calculo

    MOV A, B
    MOV B, [Y]

    DIV B
    PUSH A

organizarRegistradores:
    MOV A, 0d
    MOV B, 0d
    MOV C, 2d
    MOV D, 236d

    CALL escreverValoresVetor

escreverValoresVetor:
    MOV A, [C]
    MOV [D], A
    INC D
    INC C

    CMP B, [C]
    JNZ escreverValoresVetor

escreverFinalMensagem:
    MOV [D], 41
    INC D
    MOV [D], 32
    INC D
    MOV [D], 61
    INC D
    MOV [D], 32
    INC D