text	segment 'code'
	assume CS:text,DS:data
begin:	mov    AX,data
	mov    DS,AX
	;mov    CX,23
	;mov    SI,0
	;mov    AL,32
;fill:   mov    symbols[SI],al
	;inc    AL
        ;inc    SI
        ;loop   fill
	mov    AX,40h
	mov    BX,1
	mov    CX,23
	lea    DX,symbols
	int    21h
        mov    AX,4C00h
        int    21h
text	ends
data	segment 'data'
symbols	db 23 dup ('*')
data	ends
	end	begin