• Domingo 22 de Diciembre de 2024, 07:45

Autor Tema:  Ayuda Porfavor  (Leído 1811 veces)

AriLiz

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Ayuda Porfavor
« en: Lunes 13 de Junio de 2005, 00:20 »
0
Hola!!!
Tengo ke hacer un programa que permita introducir una variable desde el teclado y visualice el codigo ASCII de dicha variable...

Es muy muy urgente, de antemano les doy las gracias x lo ke puedan hacer...

RadicalEd

  • Moderador
  • ******
  • Mensajes: 2430
  • Nacionalidad: co
    • Ver Perfil
Re: Ayuda Porfavor
« Respuesta #1 en: Lunes 13 de Junio de 2005, 17:19 »
0
Trata asi:
Código: Text
  1. .MODEL SMALL
  2. .STACK
  3. .DATA
  4.    VAL1 DB 'DIGITE VALOR 1: $'
  5.    MSG DB 13,10,'EN ASCII ES: $'
  6.    RESU DW 0
  7. .CODE
  8. inicio:
  9.    MOV AX, SEG VAL1
  10.    MOV DS, AX
  11.    MOV DX, OFFSET VAL1;Envia a DX el mensaje VAL1
  12.    CALL Print
  13.    CALL Capt
  14.    MOV RESU, AL
  15.    ADD RESU, AL
  16.    MOV AX, SEG MSG
  17.    MOV DS, AX
  18.    MOV DX, OFFSET MSG;Envia a DX el mensaje MSG
  19.    MOV AH, 09h&#59;imprime mensaje con la
  20.    INT 21h&#59;función 9h
  21.    MOV AH, 02h
  22.    MOV DX ,AX
  23.    INT 21h  
  24.    MOV AH, 4Ch
  25.    INT 21h
  26. Print Proc Near
  27.    MOV AH, 09h&#59;imprime mensaje con la
  28.    INT 21h&#59;función 9h
  29.    SUB AL, 48       &#59;restamos al caracter el ASCII de 0 para convertirlo en un numero
  30.    RET
  31. Print Endp
  32. Capt Proc Near
  33.    MOV AH, 01h&#59;captura un valor del teclado
  34.    INT 21h&#59;y se guarda en AL
  35.    RET    
  36. Capt Endp
  37. END inicio
  38.  
Asi como en un programa que estoy haciendo me imprime el valor en Ascii, el valor debe ser Word, por que sino te imprime solo hasta 9
El pasado son solo recuerdos, el futuro son solo sueños

AriLiz

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Re: Ayuda Porfavor
« Respuesta #2 en: Martes 14 de Junio de 2005, 02:14 »
0
Hola RadicalEd!!!
Muchas gracias x la ayuda...  :D , kuidate, nos vemos, bye!!!!  :smartass: