;字符串正向輸出

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

DSEG SEGMENT
	MESS1 DB 50 DUP('?')
                MESS2 DB 50 DUP(?)    
string1 db 'please input a string:',13,10,'$'	
string2 db 13,10,'the output:',13,10,'$' 
;數據段：在此處添加程序所需的數據
DSEG ENDS

ESEG SEGMENT
	;附加段：在此處添加程序所需的數據
ESEG ENDS

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


	
MAIN PROC   	;主程序入口

	mov ax, dseg
	mov ds, ax
	mov es, ax

mov dx,offset string1
mov ah,09
int 21h 

MOV DX,OFFSET MESS1
MOV AH,0AH
INT 21H

lea dx,string2    
mov ah,09
int 21h 

MOV CH,00H
MOV CL,[MESS1+1]
LEA SI,[MESS1+2]
LEA DI,MESS2
CLD
REP MOVSB
MOV BYTE PTR [DI],'$'

LEA DX,MESS2
MOV AH,09H
INT 21H	

;此處添加主程序代碼

	mov ax, 4c00h  ;程序結束，返回到操作系統系統
	int 21h
MAIN ENDP
	
CSEG ENDS

END MAIN