FictionTools/z88dk/src/z80asm/directives.c
/* start a new DEFVARS context, closing any previously open one */
start a new DEFVARS context, closing any previously open one
start a new DEFVARS context closing any previously open one
void asm_DEFVARS_start(int start_addr)
{
	if (start_addr == -1)
		DEFVARS_PC = &DEFVARS_GLOBAL_PC;	
	else if (start_addr == 0)
	{
		DEFVARS_PC = &DEFVARS_STRUCT_PC;	
		DEFVARS_STRUCT_PC = 0;
	}
	else if (start_addr > 0 && start_addr <= 0xFFFF)
	{
		DEFVARS_PC = &DEFVARS_GLOBAL_PC;	
		DEFVARS_GLOBAL_PC = start_addr;
	}
	else
		error_int_range(start_addr);
}
void asm_DEFVARS_start ( int start_addr ) { if ( start_addr == -1 ) DEFVARS_PC = & DEFVARS_GLOBAL_PC ; else if ( start_addr == 0 ) { DEFVARS_PC = & DEFVARS_STRUCT_PC ; DEFVARS_STRUCT_PC = 0 ; } else if ( start_addr > 0 && start_addr <= 0xFFFF ) { DEFVARS_PC = & DEFVARS_GLOBAL_PC ; DEFVARS_GLOBAL_PC = start_addr ; } else error_int_range ( start_addr ) ; }
start a new DEFVARS context, closing any previously open one
start a new DEFVARS context closing any previously open one
/* continue from previous DEFVARS_GLOBAL_PC */ /* start a new struct context */ /* start a new DEFVARS_GLOBAL_PC */