برنامه ای که 10 کاراکتر را از ورودی گرفته به صورت یکی در میان به چاپ می رساند

[دلکش]

اگر میشه این سوال من را جواب دهید برنامه ای که 10 کاراکتر را از ورودی گرفته به صورت یکی در میان به چاپ می رساند

 

[kind_hearted]

چاپ يكي در ميان كاراكترها

چاپ يكي در ميان كاراكترها

اگر میشه این سوال من را جواب دهید برنامه ای که 10 کاراکتر را از ورودی گرفته به صورت یکی در میان به چاپ می رساند

.MODEL SMALL
.STACK
.DATA
CHR DB "ABCDEFGHIJ$"
.CODE
MAIN PROC FAR
 
    MOV AX,@DATA
    MOV DS,AX
    MOV ES,AX
    ;----
 
    MOV BX,0
 
    L1:
    MOV AL,CHR[BX]
    CMP AL,'$'
    JE EXIT
    MOV AL,CHR[BX-1]
    CMP AL,'$'
    JE EXIT
    MOV AH,02H
    MOV DL,CHR[BX]
    INT 21H
    INC BX
    INC BX
    JMP L1
 
    ;----
    EXIT:
    MOV AH,00H
    INT 16H
 
    MOV AX,4C00H
    INT 21H
 
MAIN ENDP
END MAIN