DOS	EQU	21H

STACK	SEGMENT	PARA STACK 'STACK'
	DW 	100 DUP (0)
STK	EQU	THIS WORD
STACK 	ENDS	

DATAS	SEGMENT	PARA PUBLIC 'DATAS'
oldstk	dw	?
auxfun	db	0
	db	0,0,0,0
DATAS	ENDS

MAIN	SEGMENT	PARA PUBLIC 'MAIN'
START	PROC	FAR
	ASSUME CS:MAIN,DS:DATAS,SS:STACK,ES:NOTHING

	push ds				; Initialization
	sub ax,ax
	push ax

	mov ax,datas
	mov ds,ax
	mov	oldstk,sp

; insert code here
;
	mov	al,0ch
	out	2,al		; clrdtr
	mov	al,2
	mov	auxfun,1
	mov	bx,3
	mov	dx,offset auxfun
	mov	ah,44H
	int	21h
;
;
	mov sp,oldstk
	ret
START 	ENDP
	

MAIN	ENDS
	END 	START
