Programa que arroja promedio de una calificación

name "calcula el promedio de tres materias"

include "emu8086.inc"

org 100h 

.data

pro db 4 dup (?)  

.code

promedio proc

    printn ""  

    print "Introduce una calificacion: "

    call scan_num  

    mov pro[0],cl

    printn ""

    print "Introduce la 2da calificacion: "

    call scan_num

    mov pro[1],cl

    printn ""

    print "Introduce la 3ra calificacion: "

    call scan_num

    mov pro[2],cl

    printn ""

    print "Numero de materias: "

    call scan_num

    mov pro[3],cl

    xor ax,ax

    add al,pro[0]

    add al,pro[1]

    add al,pro[2]

    div pro[3]

    printn ""

    print "El promedio es= "

    call print_num

      

promedio endp

exit:

    printn ""

    printn ""

    print "presione para salir..."

    mov ah,0

    int 16h

    ret

define_print_string

define_print_num

define_print_num_uns

define_scan_num

end