title	Module from library BASE_1 : CURDMA
	name	('CURDMA')
	maclib	baselib.lib

; Get current DMA buffer

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 April 1987

; ENTRY	None

; EXIT	Reg pair HL holds current DMA buffer address

	entry	curdma

curdma:
	push	bc
	push	de
	_OSCAL_	.scbfun,dmaget	; Get current DMA pointer
	pop	de
	pop	bc
	ret

	dseg

dmaget:
	db	@DMAADR,_get

	end