title	PDMCOD
	subttl	Module from library PULL_DOWN_7 : PDMCOD

; Output invers or normal mode

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

;		Version 1.1 October 1988

; ENTRY	Zero flag selects mode, zero set selects normal
;	Zero reset selects invers

; EXIT	None

	public	pdmcod

	extrn	pdminv,pdmnor

	.xlist
	include	PDM.LIB
	.list

pdmcod:
	push	af
	call	nz,pdminv	; Select mode
	pop	af
	call	z,pdmnor
	ret

	end