set_psg_callee.asm
bitfixer_bitfixer/dg/z88dk/libsrc/psg/zx81/set_psg_callee.asm
;
;	ZX81 specific routines
;	by Stefano Bodrato, Fall 2013
;
;	int set_psg(int reg, int val);
;
;	Play a sound by PSG
;
;
;	$Id: set_psg_callee.asm,v 1.4 2015/01/19 01:33:04 pauloscustodio Exp $
;

	PUBLIC	set_psg_callee

	PUBLIC ASMDISP_SET_PSG_CALLEE

	
set_psg_callee:

   pop hl
   pop de
   ex (sp),hl
	
.asmentry
	
    ld bc,$cf
    ;ld bc,$df
	out (c),l

	ld c,$0f
	out (c),e

	ret

DEFC ASMDISP_SET_PSG_CALLEE = # asmentry - set_psg_callee
