یک رشته دریافت کند به جای فضای خالی ستاره بگذارد

[The.Ghost]

کد:

DSEG    SEGMENT 'DATA'
      ; add your data here!
      
      CCCP LABEL BYTE
      MAX DB 20
      LEN DB ?
      BUFFRE DB 20 DUP('$'),'$'
      KGB DB 'Enter String:','$'
      
      PPP DB 'Result:','$'
      
DSEG    ENDS

SSEG    SEGMENT STACK   'STACK'
      db   256  DUP(0)
SSEG    ENDS

CSEG    SEGMENT 'CODE'
   START   PROC    FAR
      ; set segment registers:
      MOV AX, DSEG
      MOV DS, AX
      MOV ES, AX


      ; add your code here
      
      MOV AH,09H
      LEA DX,KGB
      INT 21H
      
      MOV AH,0AH
      LEA DX,CCCP
      INT 21H
      
      
      MOV CL,LEN
      MOV CH,0
      
      MOV SI,0
      
      MOV BL,BUFFRE[SI]
      
        
      
      L:
      
      CMP BL,20H
      JE K
      
      INC SI
      MOV BL,BUFFRE[SI]
              
          
      LOOP L
      
      JMP F
      
      
      
      K:
      MOV BUFFRE[SI],'*'
      INC SI
      MOV BL,BUFFRE[SI]
      LOOP L    
      
      
      F:
      
      
      MOV AH,02H
      MOV DL,0AH
      INT 21H
      
      MOV AH,02H
      MOV DL,0DH
      INT 21H
      
      
      MOV AH,09H
      LEA DX,PPP
      INT 21H
      
      MOV AH,09H
      LEA DX,BUFFRE
      INT 21H
      



      MOV AX, 4C00h ; exit to operating system.
      INT 21h    
   START   ENDP
CSEG    ENDS
END    START    ; set entry point.