	include masmdefs.hsm
	include	model.hsm

codedef PMSG
datadef

cstart  PMSG
cpublic pmsg

	push	di
	push	si

	push	DS
	mov	SI,+@AB+0[BP]

if	PTR_L
	mov	DS,+@AB+2[BP]
endif

	CLD
nextc:
	LODSB
	AND	AL,AL
	JZ	doneit
	MOV	AH,14
	MOV	BX,7
	PUSH	BP
	INT	10h
	POP	BP
	JMP	nextc
doneit:
	pop	DS

	pop	si
	pop	di

creturn pmsg
cend    PMSG

codedef PCHAR

cstart  PCHAR
cpublic pchar

	push	di
	push	si
	mov	AL,+@AB+0[BP]
	MOV	AH,14
	MOV	BX,7
	PUSH	BP
	INT	10h
	POP	BP
	pop	si
	pop	di

creturn pchar
cend    PCHAR

        end
