title	PDMINV
	subttl	Module from library PULL_DOWN_6 : PDMINV

; Output control string to invers text

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-2000 Hamburg 20
;		Tel.: 040/4223247

;		Version 1.1 October 1988

; ENTRY	None

; EXIT	None

	public	pdminv

	extrn	pdmstr

	.xlist
	include	PDM.LIB
	.list

pdminv:
	push	de
	ld	de,invstr	; Fetch string
	call	pdmstr		; Execute print
	pop	de
	ret

	dseg

invstr:	db	2,esc,'p'

	end