test

asm.cpp

@@ -1239,6 +1239,11 @@ TSymbol * CLASS::findVariable(std::string symname, TVariable &vars)
 {
 	TSymbol *res = NULL;
 
+	if (!casesen)
+	{
+		symname = Poco::toUpper(symname);
+	}
+
 	if ((expand_macrostack.size() > 0) && (vars.id != expand_macro.variables.id))
 	{
 		res = findVariable(symname, expand_macro.variables);
@@ -1978,7 +1983,7 @@ restart:
 					off = mVec[0].offset;
 					len = mVec[0].length;
 					s = oper.substr(off, len);
-
+					slen = s.length();
 					sym = NULL;
 					if (expand_macrostack.size() > 0)
 					{
@@ -1995,6 +2000,7 @@ restart:
 						if (sym->var_text != "")
 						{
 							oper = oper.replace(off, len, sym->var_text);
+							slen = oper.length();
 							ct++;
 							if (pass > 0)
 							{
@@ -2201,7 +2207,11 @@ void CLASS::process(void)
 			std::string outop;
 			line.printoperand = line.operand;
 
+			x = 0;
+			if (macrostack.size() == 0)
+			{
 				x = substituteVariables(line, outop);
+			}
 			if (x > 0)
 			{
 				line.printoperand = outop;
@@ -2243,6 +2253,8 @@ void CLASS::process(void)
 				{
 					TMacro *mac = NULL;
 					bool inoperand = false;
+					if (macrostack.size() == 0)
+					{
 						mac = findMacro(realop);
 						if (mac == NULL)
 						{
@@ -2259,6 +2271,7 @@ void CLASS::process(void)
 								inoperand = true;
 							}
 						}
+					}
 					if (mac == NULL)
 					{
 						x = callOpCode(op, line);

opcodes.cpp

@@ -846,6 +846,7 @@ void CLASS::insertOpcodes(void)
 	pushopcode("DUM", P_DUM, OP_PSUEDO, OPHANDLER(&CLASS::doPSEUDO));
 	pushopcode("DEND", P_DEND, OP_PSUEDO, OPHANDLER(&CLASS::doPSEUDO));
 	pushopcode("AST", 0x00, OP_PSUEDO, OPHANDLER(&CLASS::doPSEUDO));
+	pushopcode("CAS", P_CAS, OP_PSUEDO, OPHANDLER(&CLASS::doPSEUDO));
 	pushopcode("CYC", 0x00, OP_PSUEDO, OPHANDLER(&CLASS::doPSEUDO));
 	pushopcode("DAT", 0x00, OP_PSUEDO, OPHANDLER(&CLASS::doPSEUDO));
 	pushopcode("EXP", 0x00, OP_PSUEDO, OPHANDLER(&CLASS::doPSEUDO));

psuedo.cpp

@@ -143,6 +143,7 @@ int CLASS::doMAC(T65816Asm &a, MerlinLine &line, TSymbol &opinfo)
 	{
 		if (a.expand_macrostack.size() > 0)
 		{
+			line.flags |= FLAG_NOLINEPRINT;
 			goto out;
 		}
 		if (line.lable.length() == 0)
@@ -157,6 +158,12 @@ int CLASS::doMAC(T65816Asm &a, MerlinLine &line, TSymbol &opinfo)
 		a.currentmacro.lcname = Poco::toLower(line.lable);
 		a.currentmacro.start = line.lineno;
 		a.currentmacro.running = true;
+
+		if (!a.casesen)
+		{
+			a.currentmacro.name = Poco::toUpper(a.currentmacro.name);
+		}
+
 		if (a.pass == 0)
 		{
 		}
@@ -899,6 +906,7 @@ int CLASS::doASC(T65816Asm &a, MerlinLine &line, TSymbol &opinfo)
 int CLASS::ProcessOpcode(T65816Asm &a, MerlinLine &line, TSymbol &opinfo)
 {
 	int res = 0;
+	std::string s;
 
 	switch (opinfo.opcode)
 	{
@@ -949,6 +957,18 @@ int CLASS::ProcessOpcode(T65816Asm &a, MerlinLine &line, TSymbol &opinfo)
 		case P_SAV:
 			a.savepath = a.processFilename(line.operand, Poco::Path::current(), 0);
 			break;
+		case P_CAS:
+			s = Poco::toUpper(line.operand);
+			if (s == "SE")
+			{
+				a.casesen = true;
+			}
+			if (s=="IN")
+			{
+				a.casesen=false;
+			}
+			res = 0;
+			break;
 		case P_MAC:
 			res = doMAC(a, line, opinfo);
 			break;

psuedo.h

@@ -21,6 +21,7 @@ enum
     P_ASC,
     P_ERR,
     P_MAC,
+    P_CAS,
 
 	P_MAX
 };