DOSSEG
                    .MODEL TINY
                    .CODE
                    ORG 0100h
              BEGIN:JMP MAIN
                    NUM EQU 35h
                    QUOZIENTE DB 00h

                    MOLTIPLICA PROC
                    PUSH CX
                    MOV CX,BX
                    MOV DX,00h
             CICLO2:ADD DX,AX
                    DEC CX
                    CMP CX,00h
                    JNE CICLO2
                    MOV AX,DX
                    POP CX
                    RET
                    MOLTIPLICA ENDP

                    DISPLAY_AX PROC
                    XOR CX,CX
                    XOR DX,DX
          CICLOPUSH:MOV AH,00h
                    MOV BL,0Ah
                    DIV BL
                    MOV QUOZIENTE,AL
                    MOV DL,AH
                    ADD DL,30h
                    INC CX
                    PUSH DX
                    CMP QUOZIENTE,00h
                    JNE CICLOPUSH
           CICLOPOP:POP DX
                    MOV AH,02h
                    INT 21h
                    LOOP CICLOPOP
                    RET
             DISPLAY_AX ENDP

               MAIN:XOR BX,BX
                    XOR AX,AX
                    MOV AX,01h
                    MOV CX,NUM
                    SUB CX,30h
             CICLO1:INC BX
                    CALL MOLTIPLICA
                    DEC CX
                    CMP CX,00h
                    JNE CICLO1
                    CALL DISPLAY_AX
                    MOV AH,4Ch
                    INT 21h
                    END BEGIN