;字符串反向輸出

SSEG SEGMENT PARA STACK 'stack'
	dw 100h dup(0) ;初始化堆棧大小為100
SSEG ENDS

DSEG SEGMENT
        INFO1	DB	0DH,0AH,'INPUT  STRING:$'
      INFO2	DB	0DH,0AH,0DH,0AH,'OUTPUT  STRING:$'
       BUFA	DB	81
                                
                                DB        80 DUP(0)
       BUFB	DB	81 DUP(0)
;數(shù)據(jù)段：在此處添加程序所需的數(shù)據(jù)
DSEG ENDS

ESEG SEGMENT
	;附加段：在此處添加程序所需的數(shù)據(jù)
ESEG ENDS

CSEG SEGMENT
	assume  cs:CSEG, ds:DSEG, es:ESEG, ss:SSEG


	
MAIN PROC   	;主程序入口

;start:	
                mov ax, dseg
	mov ds, ax
	mov es, ax

                LEA	DX,INFO1
	MOV	AH,9	             ;       9號(hào)調(diào)用，顯示輸入提示信息
	INT	21H

	LEA	DX,BUFA
	MOV	AH,10	                    ;10號(hào)調(diào)用，鍵盤輸入字符串到緩沖區(qū)BUFA   
             	 INT	21H 				
	
                 LEA	SI,BUFA+1        
	MOV	CH,0	                ;取字符長(zhǎng)度→CX 
	MOV	CL,[SI]
	ADD	SI,CX	                    ;SI 指向字符串尾部
	LEA	DI,BUFB	   ;DI指向字符串變量BUFB

NEXT:	MOV	AL,[SI]
	MOV	[DI],AL
	DEC	SI
	INC	DI
	LOOP	NEXT

	MOV	BYTE  PTR  [DI],'$'
                LEA	DX,INFO2
	MOV	AH,9	          ;9號(hào)調(diào)用，顯示輸出
                INT	21H 

                 LEA	DX,BUFB
	MOV	AH,9	      ;反向顯示字符串
	INT	21H
	
	
	;此處添加主程序代碼

	mov ax, 4c00h  ;程序結(jié)束，返回到操作系統(tǒng)
	int 21h
MAIN ENDP
	
CSEG ENDS

END MAIN