set_psg_callee.asm
bitfixer_bitfixer/dg/z88dk/libsrc/psg/ts2068/set_psg_callee.asm
;
;	Timex 2068 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.3 2015/01/19 01:33:04 pauloscustodio Exp $
;

	PUBLIC	set_psg_callee
	PUBLIC	psg_patch0
	PUBLIC	psg_patch1
	
	PUBLIC ASMDISP_SET_PSG_CALLEE

	
set_psg_callee:

   pop hl
   pop de
   ex (sp),hl
	
.asmentry

	
psg_patch0:
    ld bc,$f5
	out (c),l
	inc c
	out (c),e

	ret

DEFC ASMDISP_SET_PSG_CALLEE = # asmentry - set_psg_callee
