title	PDMRST
	subttl	Module from library PULL_DOWN_3 : PDMRST

; Restore screen

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

;		Version 1.0 October 1988

; ENTRY	Register pair DE points to UPB

; EXIT	None

	public	pdmrst

	extrn	pdmswd

	.xlist
	include	PDM.LIB
	.list

pdmrst:
	push	de
	pop	ix		; Get UPB
	ld	a,scrget	; Set mode
	call	pdmswd		; Restore screen
	ret

	end