1;
2;       Amstrad CPC library
3;       Set mode via firmware
4;
5;       $Id: cpc_setmode.asm $
6;
7
8
9	        SECTION   code_clib
10		PUBLIC	cpc_setmode
11		PUBLIC	_cpc_setmode
12		PUBLIC	cpc_SetModo
13		PUBLIC	_cpc_SetModo
14
15		INCLUDE "target/cpc/def/cpcfirm.def"
16		EXTERN	firmware
17
18
19cpc_setmode:
20_cpc_setmode:
21cpc_SetModo:
22_cpc_SetModo:
23
24	ld	a,l
25	call	firmware
26	defw	scr_set_mode
27	ret
28