Promedio aprobado o reprobado

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71

.model small .stack 64 .data msg1 db 'Dame una calificacion (seguido de un enter):$' aprobado db 13,10,'APROBADO :)$' reprobado db 13,10, 'REPROBADO :($' VAR1 dw ?,'$' ;de tipo write VAR2 dw ?,'$' VAR3 dw ?,'$' .code ;inicia la seccion de codigo en mi programa RESULTADO proc FAR mov ax,@data ;para iniciar mov ds,ax ;---------Desplegar el primer mensaje mov ah,09h LEA dx,msg1 int 21h ;---------introducir un caracter mov ah,01 int 21h mov VAR1,ax ;---------introducir un caracter mov ah,01 int 21h mov VAR2,ax ;---------introducir un caracter mov ah,01 int 21h mov VAR3,ax ;Uso de if y comparar cmp al,13 ;PREGUNTA si al hay un 13(enter) je continue jmp mayor continue: mov ax,VAR1 cmp al,037h ;37h es 7 en hexadecimal y 55 es 7 en ascci jge mayor jmp menor mayor: mov ah,09h LEA dx,aprobado int 21h jmp fin menor: mov ah,09h LEA dx,reprobado int 21h jmp fin fin: mov ax, 4c00h int 21h RESULTADO ENDP ; FIN DEL PROCEDIMIENTO END RESULTADO