TITLE  Program by Peter Abel;           1
;-------------------------------------- 2
STACKSG SEGMENT PARA STACK 'Stack';     3
        DW      128  DUP (?)      ;     4
                                  ;     5
STACKSG ENDS                      ;     6
;-------------------------------------- 7
DATASG  SEGMENT PARA 'Data'
B1      DB      128 DUP ('*')

DATASG  ENDS
;--------------------------------------
CODESG  SEGMENT PARA 'Code'
BEGIN   PROC    FAR
        ASSUME  CS:CODESG,DS:DATASG,SS:STACKSG,ES:NOTHING
        PUSH    DS
        SUB     AX,AX
        PUSH    AX
        MOV     AX,DATASG
        MOV     DS,AX
;--------------------------------------
        MOV     AX,40h
	MOV	BX,1
	LEA	DX,B1
	MOV	CX,128
	INT	21h
        RET
BEGIN   ENDP
CODESG  ENDS
        END     BEGIN                  ;