JMP start

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

Y:  DB 7d

start:
    MOV C, X
    MOV B, 0d

    CALL escrever

escrevermensageminicial:
    MOV D, 232d

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

    PUSH 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

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

    CMP B, [C]
    JNZ escrevervaloresvetor

escreverfinalmensagem: