Data Segment

Data Ends

Working_Storage Segment Stack
	DW 100H DUP(?)
Working_Storage Ends

Code Segment
Assume DS:Data,SS:Working_Storage,CS:Code

Prog_Start: Mov  AX,Data
	Mov  DS,AX
	Mov  AX,0B800H		;Access the video segment
	Mov  ES,AX		;put this in ES

FillScreen: Mov  AH, 7
        Int  21H

	Cmp AL, 27D		; Check to see if the user has hit excape.
	JE  Done		; If AL is 27 goto 'Done'

	CLD			; Clear the direction flag (move forward)
	Mov  DI,0		; Zero out the DI reg. set destination at start.
;	Mov  AL,65		; Put a 'A' in the AL reg to be echoed.
	Mov  AH,07H		; no keyboard display to screen
	Mov  CX,2000D		; set the CX counter to 2K
	Rep  StoSW		; repeatedly echo 'A' to the screen until the counter
				; reaches 0

	jmp FillScreen		; start over.

Done:  Mov  AX, 4C00H		; Return to Dos
	Int 21H
Code EndS
End Prog_Start