void SrcExam( void )
{
address addr;
// bool prompt;
addr = GetCodeDot();
OptMemAddr( EXPR_CODE, &addr );
// prompt = true;
ReqEOC();
WndSrcInspect( addr );
}
void AsmExam()
{
address addr;
// bool prompt;
addr = GetCodeDot();
OptMemAddr( EXPR_CODE, &addr );
// prompt = TRUE;
ReqEOC();
WndAsmInspect( addr );
}
static void MemMod( mad_type_handle mth, mad_type_kind mas )
{
item_mach item;
item_type ops;
address addr;
mad_type_info mti;
ops = IT_ERR | IT_INC;
if( mas & MAS_IO ) {
ops |= IT_IO;
addr.mach.offset = ReqExpr();
} else {
addr = GetDataDot();
OptMemAddr( EXPR_DATA, &addr );
}
if( CurrToken == T_COMMA )
Scan();
MADTypeInfo( mth, &mti );
while( !ScanEOC() ) {
if( !( ops & IT_IO ) ) {
SetDataDot( addr );
}
if( CurrToken != T_COMMA ) {
NormalExpr();
ToItemMAD( ExprSP, &item, &mti );
PopEntry();
if( CurrToken != T_COMMA && !ScanEOC() ) {
Error( ERR_LOC, LIT_ENG( ERR_WANT_EOC ) );
}
ItemPutMAD( &addr, &item, ops, mth );
}
if( CurrToken == T_COMMA ) {
Scan();
}
}
if( !(ops & IT_IO) ) {
DbgUpdate( UP_MEM_CHANGE | UP_CODE_ADDR_CHANGE | UP_REG_CHANGE );
}
}
