;A2.asm
;數據傳送實驗

STACK1  SEGMENT STACK
         DW 256 DUP(?)
STACK1  ENDS

DDATA	SEGMENT
MSR	    DB   'HELLO,WORLD!$'
LEN	    EQU  $- MSR
DDATA	ENDS

EXDA	SEGMENT
MSD	    DB  LEN DUP(?)
EXDA	ENDS

CODE	SEGMENT
       ASSUME CS:CODE,DS:DDATA,ES:EXDA
       
START: MOV AX,DDATA
	   MOV DS,AX

	   MOV AX,EXDA
	   MOV ES,AX
	   MOV SI,OFFSET MSR
	   MOV DI,OFFSET MSD
	   MOV CX,LEN
	   MOV BX,0
NEXT:  MOV AL,MSR[BX]
	   MOV ES:MSD[BX],AL
	   INC BX
	   LOOP NEXT
	   PUSH ES
	   POP DS
	   MOV DX,OFFSET MSD
	   MOV AH,9 
	   INT 21H

	   MOV AX,4C00H
	   INT 21H
CODE  ENDS
	   END START