get_psg.asm
bitfixer_bitfixer/dg/z88dk/libsrc/zx81/get_psg.asm
;
;	ZX81 specific routines
;	by Stefano Bodrato, Fall 2013
;
;	int get_psg(int reg);
;
;	Get a PSG register, untested.
;	does not work on original ZonX, ZXpand-AY Sound Module is required
;
;
;	$Id: get_psg.asm,v 1.3 2015/01/23 07:07:31 stefano Exp $
;

	PUBLIC	get_psg
	
get_psg:

    ;LD	BC,$cf
    ld bc,$df
	OUT	(C),l

    LD	c,$ef
	in	a,(C)

	ld	l,a
	ret
