%TITLE "Shell for *.EXE Code files"

	IDEAL
	DOSSEG
	MODEL	small
	STACK	256

;----- Equates

ASCIIcr		EQU	13	;if you want comments
ASCIIff		EQU	12      ; BUY the book

	CODESEG

Start:
	mov	ax,@data
	mov	ds,ax

	mov 	dl,ASCIIcr
	mov	ah,05h
	int	21h

	mov	dl,ASCIIff
	mov	ah,05h
	int	21h

Exit:
	mov	ax,04C00h
	int 	21h

	End 	Start