1; 2; Amstrad CPC library 3; 4; void __LIB__ __CALLEE__ cpc_SetInkGphStr(char *color, char *valor); 5; 6; $Id: cpc_SetInkGphStrM1_callee.asm $ 7; 8 9 SECTION code_clib 10 PUBLIC cpc_SetInkGphStrM1_callee 11 PUBLIC _cpc_SetInkGphStrM1_callee 12 PUBLIC ASMDISP_CPC_SET_INKGPHSTRM1_CALLEE 13 14 EXTERN colores_cambM1 15 16 17.cpc_SetInkGphStrM1_callee 18._cpc_SetInkGphStrM1_callee 19 20 pop hl 21 pop bc ;valor 22 ex (sp),hl ; valor 23 ld a,c 24 ld c,l 25 26 27.asmentry 28 29ld hl,colores_cambM1 30ld b,0 31add hl,bc 32ld (hl),a 33 34ret 35 36 37DEFC ASMDISP_CPC_SET_INKGPHSTRM1_CALLEE = asmentry - cpc_SetInkGphStrM1_callee 38