CallDos macro func
	MOV AH,func
	INT 21h
endm

PrintDos macro StrPtr
	ifb <StrPtr>
	else
	LEA DX,StrPtr
	endif
	MOV AH,9
	INT 21h
endm

AllocMem macro Paragraph
	ifb <Paragraph>
	else
	MOV BX,Paragraph
	endif
	CallDos 48h
endm

ReAllocMem macro Seg,Paragraph
	MOV BX,Paragraph
	PUSH ES Seg
	POP ES
	CallDos 4Ah
	POP ES
endm
