1;
2;       Amstrad CPC library
3;       Set Border Color
4; ******************************************************
5; **       Librería de rutinas para Amstrad CPC       **
6; **	   Raúl Simarro, 	  Artaburu 2009           **
7; ******************************************************
8;
9;       $Id: cpc_SetBorder.asm $
10;
11
12        SECTION   code_clib
13        PUBLIC    cpc_SetBorder
14        PUBLIC    _cpc_SetBorder
15
16        EXTERN firmware
17
18        INCLUDE "target/cpc/def/cpcfirm.def"
19
20
21.cpc_SetBorder
22._cpc_SetBorder
23	ld	c,l
24	ld	b,c
25	call firmware
26	defw scr_set_border
27	ret
28