SoloCodigo

Creo que con eso tengo gracias por la respuesta, ahora si ya tengo una idea muchas gracias Eternal Idol.  
Me gustaría que me recomendaras un libro  de Asm de niveles medios para arriba ya me abete el de PITER ABEL, cual me recomiendan. Saludos a toda la raza

Alguien sabe  el cual para abrir un archivo introducido desde el teclado claro utilizando  
   podrrido label byte
    maximo    db  20
    unk           db ?
    longitud     db 20 dup(‘ ‘)


   Mov ah,3dh                    
   Mov  al,00                    
   Lea dx,longitude            
    Int 21h                          
  Por que ya intente con un longitud DB 20 DUP (‘ ‘) para almacenar el nombre del archivo para abrirlo pero no pude, si alguien sabe se los agradecería que me dijeran  

Va  

TITLE LETRAS(EXE)
.MODEL SMALL
.STACK 64
;----------------------------------------------
.DATA
MAYUSCULA     DB  'ES LETRA MAYUSCULA','$'
NUMERO        DB  '**ES UN NUMERO**  ','$'
MINUSCULA     DB  '**ES MINUSCULA**  ','$'
NINGUNO       DB  ' NO ES NINGUNA  $ '
;--------------------------------------------------
.CODE
GABINOC PROC NEAR
MOV AX,@data
MOV DS,AX

CALL LIMPIAR                ;limpia pantalla
CALL CURSOR                 ;coloca cursor (no es necesario)

         MOV AH,10H         ;¿Que letra se preciono?
         INT 16H
         CMP AL,'A'        
         JB A20
         CMP AL,'Z'
         JA A20
         LEA DX,MAYUSCULA
         CALL ESCRIBIR
         JMP SALIR

    A20:
          CMP AL,'a'
          JB A30
          CMP AL,'z'
          JA A30
          LEA DX,MINUSCULA
         CALL ESCRIBIR
          JMP SALIR

   A30:
          CMP AL,'0'
         JB A40
         CMP AL,'9'
         JA A40
        LEA DX,NUMERO
        CALL ESCRIBIR
         JMP SALIR

    A40:
     LEA DX,NINGUNO
     CALL ESCRIBIR
       
SALIR:
MOV AH,10H
INT 16H
MOV AX,4C00H
INT 21H
GABINOC ENDP
;------------------------------------------------------------
ESCRIBIR PROC NEAR        ;dx entra desde atras
  MOV AH,09H              ;imprime
  INT 21H
   RET
ESCRIBIR ENDP
;------------------------------------------------------------
 LIMPIAR PROC NEAR
   MOV AX,0600H
   MOV BH,1BH
   MOV CX,0000
   MOV DX,184FH
   INT 10H
   RET
 LIMPIAR ENDP
;------------------------------------------------------------
CURSOR PROC NEAR
  MOV AH,02H
  MOV BH,00
  MOV DH,00
  MOV DL,00
  INT 10H
  RET
CURSOR ENDP
;-------------------------------------------------------------
     END GABINOC

Es algo simple va  


TITLE SONYG(EXE) CREAR SONIDO POR GABINOC
SOUNGS SEGMENT PARA 'code'
  ASSUME DS:SOUNGS,CS:SOUNGS,SS:SOUNGS
   ORG 100H
BEGIN: JMP MAIN
;-------------------------------------------------
TIEMPO DW 10000
SONIDO DW 512H
;-------------------------------------------------
MAIN PROC NEAR
   IN AL,61H
   PUSH AX
   CLI
   CALL CREA_SONIDO
   POP AX
   OUT 61H,AL
   STI
   RET
MAIN ENDP
;-------------------------------------------------
 CREA_SONIDO PROC NEAR
A40:
   MOV DX,TIEMPO
A30:  
   AND AL,11111100B
   OUT 61H,AL
   MOV CX,SONIDO
A10:  
   INC SONIDO
   LOOP A10
   
   OR AL,00000010B
   OUT 61H,AL
   MOV CX,SONIDO
A20:  
   LOOP A20
   DEC DX
   JNZ A30
   SHL SONIDO,1
    SHR TIEMPO,1
    JNZ A40
    RET
CREA_SONIDO ENDP
;---------------------------------------------------------
SOUNGS ENDS
       END BEGIN