/* * Copyright 2018 faddenSoft * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * See the License for the specific language governing permissions and * limitations under the License. */ using System; using System.Collections.Generic; using System.Diagnostics; using System.Text; using AddressMode = Asm65.OpDef.AddressMode; namespace Asm65 { /// /// Functions used for formatting bits of 65xx code into human-readable form. /// /// /// There are a variety of ways to format a given thing, based on personal preference /// (e.g. whether opcodes are upper- or lower-case) and assembler syntax requirements. /// /// The functions in this class serve two purposes: (1) produce consistent output /// throughout the program; (2) cache format strings and other components to reduce /// string manipulation overhead. Note the caching is per-Formatter, so it's best to /// create just one and share it around. /// /// The configuration of a Formatter may not be altered once created. This is important /// in situations where we compute output size in one pass and generate it in another, /// because it guarantees that a given Formatter object will produce the same number of /// lines of output. /// /// NOTE: if the CpuDef changes, the cached values in the Formatter will become invalid /// (e.g. mOpcodeStrings). Discard the Formatter and create a new one. (This could be /// fixed by keying off of the OpDef instead of OpDef.Opcode, but that's less /// convenient.) /// public class Formatter { // Default wrap point for long operands. This potentially affects both on-screen // display and source code generation. private const int DEFAULT_OPERAND_WRAP_LEN = 64; /// /// Various format configuration options. Fill one of these out and pass it to /// the Formatter constructor. /// public class FormatConfig { // // Cosmetic changes. // /// Display hex values in upper case? public bool UpperHexDigits { get; set; } = false; /// Display opcodes in upper case? public bool UpperOpcodes { get; set; } = false; /// Display pseudo-opcodes in upper case? public bool UpperPseudoOpcodes { get; set; } = false; /// Display acc operand in upper case? public bool UpperOperandA { get; set; } = false; /// Display stack operand in upper case? public bool UpperOperandS { get; set; } = false; /// Display index register operand in upper case? public bool UpperOperandXY { get; set; } = false; /// Insert space after delimiter for long comments? public bool AddSpaceLongComment { get; set; } = false; /// Enable debug mode for long comments? public bool DebugLongComments { get; set; } = false; // // Functional changes to assembly output. // /// Omit '$' before hex digits? public bool SuppressHexNotation { get; set; } = false; /// Emit just "LSR" rather than "LSR A"? public bool SuppressImpliedAcc { get; set; } = false; /// Use '`' rather than '^' for bank selector? public bool BankSelectBackQuote { get; set; } = false; /// String to prefix operand with to force DP addressing. public string ForceDirectOperandPrefix { get; set; } = string.Empty; /// String to suffix opcode with to force abs addressing. public string ForceAbsOpcodeSuffix { get; set; } = string.Empty; /// String to prefix operand with to force abs addressing. public string ForceAbsOperandPrefix { get; set; } = string.Empty; /// String to suffix opcode with to force DP addressing. public string ForceDirectOpcodeSuffix { get; set; } = string.Empty; /// String to suffix opcode with to force long addressing. public string ForceLongOpcodeSuffix { get; set; } = string.Empty; /// String to prefix operand with to force long addressing. public string ForceLongOperandPrefix { get; set; } = string.Empty; /// String to prefix label with to indicate a local var. public string LocalVariableLabelPrefix { get; set; } = string.Empty; /// String to prefix label with to indicate a non-unique label. public string NonUniqueLabelPrefix { get; set; } = string.Empty; /// String to prefix an end-of-line comment. public string EndOfLineCommentDelimiter { get; set; } = string.Empty; /// String to prefix a full-line comment. public string FullLineCommentDelimiterBase { get; set; } = string.Empty; /// Delimiter patterns for single-character constants. public DelimiterSet CharDelimiters { get; set; } = new DelimiterSet(); /// Delimiter patterns for string constants. public DelimiterSet StringDelimiters { get; set; } = new DelimiterSet(); // // Miscellaneous. // /// Character position at which operands wrap; 0 == default. public int OperandWrapLen { get; set; } = DEFAULT_OPERAND_WRAP_LEN; /// Add spaces between bytes in the Bytes column? public bool SpacesBetweenBytes { get; set; } = false; // "20edfd" vs. "20 ed fd" /// Use comma-separated hex values for dense hex format? public bool CommaSeparatedDense { get; set; } = false; // "20edfd" vs. "$20,$ed,$fd" /// Use only ASCII characters in hex dumps (e.g. no middle-dots)? public bool HexDumpAsciiOnly { get; set; } = false; public enum CharConvMode { // TODO(maybe): just pass in a CharEncoding.Convert delegate Unknown = 0, Ascii, LowHighAscii, C64Petscii, C64ScreenCode }; /// Character conversion mode for hex dumps. public CharConvMode HexDumpCharConvMode { get; set; } = CharConvMode.Unknown; public enum ExpressionMode { Unknown = 0, Common, Cc65, Merlin }; /// /// This determines what operators are available and what their precedence is. Used /// when generating expressions for operands. /// public ExpressionMode ExprMode { get; set; } = ExpressionMode.Unknown; /// /// Constructor. All booleans default to false, all strings to empty. /// public FormatConfig() { } /// /// Copy constructor. /// /// Source format config object. public FormatConfig(FormatConfig src) { UpperHexDigits = src.UpperHexDigits; UpperOpcodes = src.UpperOpcodes; UpperPseudoOpcodes = src.UpperPseudoOpcodes; UpperOperandA = src.UpperOperandA; UpperOperandS = src.UpperOperandS; UpperOperandXY = src.UpperOperandXY; AddSpaceLongComment = src.AddSpaceLongComment; DebugLongComments = src.DebugLongComments; SuppressHexNotation = src.SuppressHexNotation; SuppressImpliedAcc = src.SuppressImpliedAcc; BankSelectBackQuote = src.BankSelectBackQuote; ForceDirectOperandPrefix = src.ForceDirectOperandPrefix; ForceAbsOpcodeSuffix = src.ForceAbsOpcodeSuffix; ForceAbsOperandPrefix = src.ForceAbsOperandPrefix; ForceDirectOpcodeSuffix = src.ForceDirectOpcodeSuffix; ForceLongOpcodeSuffix = src.ForceLongOpcodeSuffix; ForceLongOperandPrefix = src.ForceLongOperandPrefix; LocalVariableLabelPrefix = src.LocalVariableLabelPrefix; NonUniqueLabelPrefix = src.NonUniqueLabelPrefix; EndOfLineCommentDelimiter = src.EndOfLineCommentDelimiter; FullLineCommentDelimiterBase = src.FullLineCommentDelimiterBase; CharDelimiters = new DelimiterSet(src.CharDelimiters); StringDelimiters = new DelimiterSet(src.StringDelimiters); OperandWrapLen = src.OperandWrapLen; SpacesBetweenBytes = src.SpacesBetweenBytes; CommaSeparatedDense = src.CommaSeparatedDense; HexDumpAsciiOnly = src.HexDumpAsciiOnly; HexDumpCharConvMode = src.HexDumpCharConvMode; ExprMode = src.ExprMode; } // Deserialization helper. public static ExpressionMode ParseExpressionMode(string str) { ExpressionMode em = ExpressionMode.Common; if (!string.IsNullOrEmpty(str)) { if (Enum.TryParse(str, out ExpressionMode pem)) { em = pem; } } return em; } } #region Text Delimiters /// /// Container for delimiter pieces for characters or strings. Instances are immutable. /// /// /// For single-character operands, the generated format string will be a simple /// concatenation of the four fields, with the character in the middle. /// /// For strings, the prefix is included at the start of the first line, but not included /// on subsequent lines in a multi-line operand. This is primarily intended for the /// on-screen display, not assembly source generation (which doesn't generally make use /// of a string prefix). The suffix is not used at all. /// public class DelimiterDef { public string Prefix { get; private set; } public char OpenDelim { get; private set; } public char CloseDelim { get; private set; } public string Suffix { get; private set; } public string FormatStr { get; private set; } public DelimiterDef(char delim) : this(string.Empty, delim, delim, string.Empty) { } public DelimiterDef(string prefix, char openDelim, char closeDelim, string suffix) { Debug.Assert(prefix != null); Debug.Assert(suffix != null); Prefix = prefix; OpenDelim = openDelim; CloseDelim = closeDelim; Suffix = suffix; // Generate format string. StringBuilder sb = new StringBuilder(); sb.Append(Prefix); sb.Append(OpenDelim); sb.Append("{0}"); sb.Append(CloseDelim); sb.Append(Suffix); FormatStr = sb.ToString(); } public override string ToString() { return Prefix + OpenDelim + '#' + CloseDelim + Suffix; } public static bool operator ==(DelimiterDef a, DelimiterDef b) { if (ReferenceEquals(a, b)) { return true; // same object, or both null } if (ReferenceEquals(a, null) || ReferenceEquals(b, null)) { return false; // one is null } // All fields must be equal. Ignore FormatStr, which is generated from the // other fields. return a.Prefix == b.Prefix && a.OpenDelim == b.OpenDelim && a.CloseDelim == b.CloseDelim && a.Suffix == b.Suffix; } public static bool operator !=(DelimiterDef a, DelimiterDef b) { return !(a == b); } public override bool Equals(object obj) { return obj is DelimiterDef && this == (DelimiterDef)obj; } public override int GetHashCode() { return Prefix.GetHashCode() ^ OpenDelim.GetHashCode() ^ CloseDelim.GetHashCode() ^ Suffix.GetHashCode(); } } public static readonly DelimiterDef SINGLE_QUOTE_DELIM = new DelimiterDef('\''); public static readonly DelimiterDef DOUBLE_QUOTE_DELIM = new DelimiterDef('"'); /// /// Set of DelimiterDef objects, indexed by character encoding. The objects may be /// for character or string encoding. /// public class DelimiterSet { private Dictionary mDelimiters = new Dictionary(); /// /// Constructor. Set is initially empty. /// public DelimiterSet() { } /// /// Copy constructor. /// /// Source set. public DelimiterSet(DelimiterSet src) { foreach (KeyValuePair kvp in src.mDelimiters) { mDelimiters[kvp.Key] = kvp.Value; } } /// /// Returns the specified DelimiterDef, or null if not found. /// /// Delimiter encoding to retrieve. public DelimiterDef Get(CharEncoding.Encoding enc) { mDelimiters.TryGetValue(enc, out DelimiterDef def); return def; } /// /// Sets the specified DelimiterDef. /// /// Delimiter encoding to change. /// New delimiter definition. public void Set(CharEncoding.Encoding enc, DelimiterDef def) { mDelimiters[enc] = def; } public override string ToString() { StringBuilder sb = new StringBuilder(); foreach (KeyValuePair kvp in mDelimiters) { sb.Append("[" + kvp.Key + ": " + kvp.Value + "]"); } return sb.ToString(); } public static DelimiterSet GetDefaultCharDelimiters() { DelimiterSet chrDel = new DelimiterSet(); chrDel.Set(CharEncoding.Encoding.Ascii, new DelimiterDef(string.Empty, '\u2018', '\u2019', string.Empty)); chrDel.Set(CharEncoding.Encoding.HighAscii, new DelimiterDef(string.Empty, '\u2018', '\u2019', " | $80")); chrDel.Set(CharEncoding.Encoding.C64Petscii, new DelimiterDef("pet:", '\u2018', '\u2019', string.Empty)); chrDel.Set(CharEncoding.Encoding.C64ScreenCode, new DelimiterDef("scr:", '\u2018', '\u2019', string.Empty)); return chrDel; } public static DelimiterSet GetDefaultStringDelimiters() { DelimiterSet strDel = new DelimiterSet(); strDel.Set(CharEncoding.Encoding.Ascii, new DelimiterDef(string.Empty, '\u201c', '\u201d', string.Empty)); strDel.Set(CharEncoding.Encoding.HighAscii, new DelimiterDef("\u2191", '\u201c', '\u201d', string.Empty)); strDel.Set(CharEncoding.Encoding.C64Petscii, new DelimiterDef("pet:", '\u201c', '\u201d', string.Empty)); strDel.Set(CharEncoding.Encoding.C64ScreenCode, new DelimiterDef("scr:", '\u201c', '\u201d', string.Empty)); return strDel; } /// /// Serializes a DelimiterSet. /// /// /// Can't use Javascript from a .NET Standard library. XmlSerializer doesn't /// handle Lists or Dictionaries. Do it the old-fashioned way. /// public string Serialize() { Debug.Assert(mDelimiters.Count < 10); StringBuilder sb = new StringBuilder(); sb.Append('*'); // if the format changes, start with something else foreach (KeyValuePair kvp in mDelimiters) { string name = kvp.Key.ToString(); AddLenString(sb, name); AddLenString(sb, kvp.Value.Prefix); sb.Append(kvp.Value.OpenDelim); sb.Append(kvp.Value.CloseDelim); AddLenString(sb, kvp.Value.Suffix); } sb.Append('!'); return sb.ToString(); } private void AddLenString(StringBuilder sb, string str) { sb.Append(str.Length.ToString()); sb.Append(','); sb.Append(str); } public static DelimiterSet Deserialize(string cereal) { try { DelimiterSet delimSet = new DelimiterSet(); int offset = 0; if (cereal[offset++] != '*') { throw new Exception("missing leading asterisk"); } while (cereal[offset] != '!') { string str = GetLenString(cereal, ref offset); if (!Enum.TryParse(str, out CharEncoding.Encoding enc)) { Debug.WriteLine("Ignoring unknown encoding " + str); enc = CharEncoding.Encoding.Unknown; } string prefix = GetLenString(cereal, ref offset); char open = cereal[offset++]; char close = cereal[offset++]; string suffix = GetLenString(cereal, ref offset); if (enc != CharEncoding.Encoding.Unknown) { delimSet.Set(enc, new DelimiterDef(prefix, open, close, suffix)); } } return delimSet; } catch (Exception ex) { Debug.WriteLine("DelimiterSet deserialization failed: " + ex.Message); return new DelimiterSet(); } } private static string GetLenString(string str, ref int offset) { int commaIndex = str.IndexOf(',', offset); if (commaIndex < 0) { throw new Exception("no comma in length string"); } string lenStr = str.Substring(offset, commaIndex - offset); int len = int.Parse(lenStr); string resultStr = str.Substring(commaIndex + 1, len); offset = commaIndex + 1 + len; return resultStr; } public static bool operator ==(DelimiterSet a, DelimiterSet b) { if (ReferenceEquals(a, b)) { return true; // same object, or both null } if (ReferenceEquals(a, null) || ReferenceEquals(b, null)) { return false; // one is null } // Compare set contents. if (a.mDelimiters.Count != b.mDelimiters.Count) { return false; } foreach (KeyValuePair kvp in a.mDelimiters) { if (kvp.Value != b.Get(kvp.Key)) { return false; } } return true; } public static bool operator !=(DelimiterSet a, DelimiterSet b) { return !(a == b); } public override bool Equals(object obj) { return obj is DelimiterSet && this == (DelimiterSet)obj; } public override int GetHashCode() { return mDelimiters.GetHashCode(); } } #endregion Text Delimiters private static readonly char[] sHexCharsLower = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'a', 'b', 'c', 'd', 'e', 'f' }; private static readonly char[] sHexCharsUpper = { '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F' }; /// /// Formatter configuration options. Fixed at construction time. /// private FormatConfig mFormatConfig; /// /// Get a copy of the format config. /// public FormatConfig Config { get { return new FormatConfig(mFormatConfig); } } // Cached bits and pieces. char mHexFmtChar; string mHexPrefix; string mAccChar; char mXregChar; char mYregChar; char mSregChar; // Format string for offsets. private string mOffset24Format; // Format strings for addresses. private string mAddrFormatNoBank; private string mAddrFormatWithBank; // Generated opcode strings. The index is the bitwise OR of the opcode value and // the disambiguation value. In most cases this just helps us avoid calling // ToUpper incessantly. private Dictionary mOpcodeStrings = new Dictionary(); // Generated pseudo-opcode strings. private Dictionary mPseudoOpStrings = new Dictionary(); // Generated format strings for operands. The index is the bitwise OR of the // address mode and the disambiguation value. private Dictionary mOperandFormats = new Dictionary(); // Generated format strings for bytes. private const int MAX_BYTE_DUMP = 4; private string[] mByteDumpFormats = new string[MAX_BYTE_DUMP]; // Generated format strings for hex values. private string[] mHexValueFormats = new string[4]; // Comment delimiter char plus optional space. private string mFullLineCommentDelimiterPlus; // Buffer to use when generating hex dump lines. private char[] mHexDumpBuffer; private CharEncoding.Convert mHexDumpCharConv; /// /// A 16-character array with 0-9a-f, for hex conversions. The letters will be /// upper or lower case, per the format config. /// public char[] HexDigits { get { return mFormatConfig.UpperHexDigits ? sHexCharsUpper : sHexCharsLower; } } /// /// String to put between the operand and the end-of-line comment. Usually one character. /// public string EndOfLineCommentDelimiter { get { return mFormatConfig.EndOfLineCommentDelimiter; } } /// /// Full-line comment delimiter. Usually one character. /// public string FullLineCommentDelimiterBase { get { return mFormatConfig.FullLineCommentDelimiterBase; } } /// /// String to put at the start of a line with a full-line comment. Delimiter plus /// optional space. /// public string FullLineCommentDelimiterPlus { get { return mFullLineCommentDelimiterPlus; } } /// /// If true, enable debug mode when rendering long comments. /// public bool DebugLongComments { get { return mFormatConfig.DebugLongComments; } } /// /// Prefix for non-unique address labels. /// public string NonUniqueLabelPrefix { get { return mFormatConfig.NonUniqueLabelPrefix; } } /// /// When formatting a symbol with an offset, if this flag is set, generate code that /// assumes the assembler applies the adjustment, then shifts the result. If not, /// assume the assembler shifts the operand before applying the adjustment. /// public FormatConfig.ExpressionMode ExpressionMode { get { return mFormatConfig.ExprMode; } } /// /// Point at which to wrap long operands, such as strings and dense hex. /// public int OperandWrapLen { get { return mFormatConfig.OperandWrapLen; } } /// /// Constructor. Initializes various fields based on the configuration. We want to /// pre-compute as many things as possible, to speed up formatting. /// public Formatter(FormatConfig config) { mFormatConfig = new FormatConfig(config); // make a copy if (string.IsNullOrEmpty(mFormatConfig.NonUniqueLabelPrefix)) { mFormatConfig.NonUniqueLabelPrefix = "@"; } if (string.IsNullOrEmpty(mFormatConfig.FullLineCommentDelimiterBase)) { mFormatConfig.FullLineCommentDelimiterBase = "!"; } if (mFormatConfig.AddSpaceLongComment) { mFullLineCommentDelimiterPlus = mFormatConfig.FullLineCommentDelimiterBase + " "; } else { mFullLineCommentDelimiterPlus = mFormatConfig.FullLineCommentDelimiterBase; } if (config.OperandWrapLen <= 0) { config.OperandWrapLen = DEFAULT_OPERAND_WRAP_LEN; } // Prep the static parts of the hex dump buffer. mHexDumpBuffer = new char[73]; for (int i = 0; i < mHexDumpBuffer.Length; i++) { mHexDumpBuffer[i] = ' '; } mHexDumpBuffer[6] = ':'; // Resolve boolean flags to character or string values. if (mFormatConfig.UpperHexDigits) { mHexFmtChar = 'X'; } else { mHexFmtChar = 'x'; } if (mFormatConfig.SuppressHexNotation) { mHexPrefix = ""; } else { mHexPrefix = "$"; } if (mFormatConfig.SuppressImpliedAcc) { mAccChar = ""; } else if (mFormatConfig.UpperOperandA) { mAccChar = "A"; } else { mAccChar = "a"; } if (mFormatConfig.UpperOperandXY) { mXregChar = 'X'; mYregChar = 'Y'; } else { mXregChar = 'x'; mYregChar = 'y'; } if (mFormatConfig.UpperOperandS) { mSregChar = 'S'; } else { mSregChar = 's'; } for (int index = 0; index < 4; index++) { int width = (index + 1) * 2; mHexValueFormats[index] = mHexFmtChar + width.ToString(); } // process the delimiter patterns DelimiterSet chrDelim = mFormatConfig.CharDelimiters; if (chrDelim == null) { Debug.WriteLine("NOTE: char delimiters not set"); chrDelim = DelimiterSet.GetDefaultCharDelimiters(); } switch (mFormatConfig.HexDumpCharConvMode) { case FormatConfig.CharConvMode.Ascii: mHexDumpCharConv = CharEncoding.ConvertAscii; break; case FormatConfig.CharConvMode.LowHighAscii: mHexDumpCharConv = CharEncoding.ConvertLowAndHighAscii; break; case FormatConfig.CharConvMode.C64Petscii: mHexDumpCharConv = CharEncoding.ConvertC64Petscii; break; case FormatConfig.CharConvMode.C64ScreenCode: mHexDumpCharConv = CharEncoding.ConvertC64ScreenCode; break; default: // most some things don't configure the hex dump; this is fine mHexDumpCharConv = CharEncoding.ConvertLowAndHighAscii; break; } } /// /// Formats a 24-bit offset value as hex. /// /// Offset to format. /// Formatted string. public string FormatOffset24(int offset) { if (string.IsNullOrEmpty(mOffset24Format)) { mOffset24Format = "+{0:" + mHexFmtChar + "6}"; } return string.Format(mOffset24Format, offset & 0x0fffff); } /// /// Formats a value in hexadecimal. The width is padded with zeroes to make the /// length even (so it'll be $00, $0100, $010000, etc.) If minDigits is nonzero, /// additional zeroes may be added. /// /// Value to format, up to 32 bits. /// Minimum width, in printed digits (e.g. 4 is "0000"). /// Formatted string. public string FormatHexValue(int value, int minDigits) { int width = minDigits > 2 ? minDigits : 2; if (width < 8 && value > 0xffffff) { width = 8; } else if (width < 6 && value > 0xffff) { width = 6; } else if (width < 4 && value > 0xff) { width = 4; } int index = (width / 2) - 1; return mHexPrefix + value.ToString(mHexValueFormats[index]); } /// /// Format a value as a number in the specified base. /// /// Value to format. /// Numeric base (2, 10, or 16). /// Formatted string. public string FormatValueInBase(int value, int numBase) { switch (numBase) { case 2: return FormatBinaryValue(value, 8); case 10: return FormatDecimalValue(value); case 16: return FormatHexValue(value, 2); default: Debug.Assert(false); return "???"; } } /// /// Formats a 32-bit integer value as unsigned decimal. /// /// Value to convert. /// Formatted string. public string FormatDecimalValue(int value) { return ((uint)value).ToString(); } /// /// Formats a value in binary, padding with zeroes so the length is a multiple of 8. /// /// Value to convert. /// Minimum width, in printed digits. Will be rounded up to /// a multiple of 8. /// Formatted string. public string FormatBinaryValue(int value, int minDigits) { string binaryStr = Convert.ToString(value, 2); int desiredWidth = ((binaryStr.Length + 7) / 8) * 8; if (desiredWidth < minDigits) { desiredWidth = ((minDigits + 7) / 8) * 8; } return '%' + binaryStr.PadLeft(desiredWidth, '0'); } /// /// Formats a single-character operand. Output will be a delimited printable character /// when possible, a hex value when the converted character is unprintable. /// /// Value to format. Could be a 16-bit immediate value. /// Character encoding to use for value. /// Formatted string. public string FormatCharacterValue(int value, CharEncoding.Encoding enc) { if (value < 0 || value > 0xff) { return FormatHexValue(value, 2); } DelimiterDef delimDef = mFormatConfig.CharDelimiters.Get(enc); if (delimDef == null) { return FormatHexValue(value, 2); } string fmt = delimDef.FormatStr; Debug.Assert(fmt != null); CharEncoding.Convert conv; switch (enc) { case CharEncoding.Encoding.Ascii: conv = CharEncoding.ConvertAscii; break; case CharEncoding.Encoding.HighAscii: conv = CharEncoding.ConvertHighAscii; break; case CharEncoding.Encoding.C64Petscii: conv = CharEncoding.ConvertC64Petscii; break; case CharEncoding.Encoding.C64ScreenCode: conv = CharEncoding.ConvertC64ScreenCode; break; default: return FormatHexValue(value, 2); } char ch = conv((byte)value); if (ch == CharEncoding.UNPRINTABLE_CHAR || ch == delimDef.OpenDelim || ch == delimDef.CloseDelim) { // We might be able to do better with delimiter clashes, e.g. '\'', but // that's assembler-specific. return FormatHexValue(value, 2); } else { // Possible optimization: replace fmt with a prefix/suffix pair, and just concat return string.Format(fmt, ch); } } /// /// Formats a 16- or 24-bit address value. This is intended for the left column /// of something (hex dump, code listing), not as an operand. /// /// Address to format. /// Set to true for CPUs with 24-bit address spaces. /// Formatted string. public string FormatAddress(int address, bool showBank) { if (mAddrFormatNoBank == null) { mAddrFormatNoBank = "{0:" + mHexFmtChar + "4}"; mAddrFormatWithBank = "{0:" + mHexFmtChar + "2}/{1:" + mHexFmtChar + "4}"; } if (showBank) { return string.Format(mAddrFormatWithBank, address >> 16, address & 0xffff); } else { return string.Format(mAddrFormatNoBank, address & 0xffff); } } /// /// Formats a local variable label, prepending an identifying prefix if one has been /// specified. /// public string FormatVariableLabel(string label) { if (!string.IsNullOrEmpty(mFormatConfig.LocalVariableLabelPrefix)) { return mFormatConfig.LocalVariableLabelPrefix + label; } else { return label; } } /// /// Formats an adjustment. Small values are formatted as "+decimal" or "-decimal", /// larger values are formatted as hex. If no adjustment is required, an empty string /// is returned. /// /// Adjustment value. /// Formatted string. public string FormatAdjustment(int adjValue) { if (adjValue == 0) { return string.Empty; } else if (Math.Abs(adjValue) >= 256) { // not using mHexPrefix here, since dec vs. hex matters if (adjValue < 0) { return "-$" + (-adjValue).ToString(mHexValueFormats[0]); } else { return "+$" + adjValue.ToString(mHexValueFormats[0]); } } else { // This formats in decimal with a leading '+' or '-'. To avoid adding a plus // on zero, we'd use "+#;-#;0", but we took care of the zero case above. return adjValue.ToString("+0;-#"); } } /// /// Formats the instruction opcode mnemonic, and caches the result. /// /// It may be necessary to modify the mnemonic for some assemblers, e.g. LDA from a /// 24-bit address might need to be LDAL, even if the high byte is nonzero. /// /// Opcode to format /// Width disambiguation specifier. /// Formatted string. public string FormatOpcode(OpDef op, OpDef.WidthDisambiguation wdis) { // TODO(someday): using op.Opcode as the key is a bad idea, as the operation may // not be the same on different CPUs. We currently rely on the caller to discard // the Formatter when the CPU definition changes. We'd be better off keying off of // the OpDef object and factoring wdis in some other way. int key = op.Opcode | ((int)wdis << 8); if (!mOpcodeStrings.TryGetValue(key, out string opcodeStr)) { // Not found, generate value. opcodeStr = FormatMnemonic(op.Mnemonic, wdis); // Memoize. mOpcodeStrings[key] = opcodeStr; } return opcodeStr; } /// /// Formats the string as an opcode mnemonic. /// /// It may be necessary to modify the mnemonic for some assemblers, e.g. LDA from a /// 24-bit address might need to be LDAL, even if the high byte is nonzero. /// /// Instruction mnemonic string. /// Width disambiguation specifier. /// public string FormatMnemonic(string mnemonic, OpDef.WidthDisambiguation wdis) { string opcodeStr = mnemonic; if (wdis == OpDef.WidthDisambiguation.ForceDirect) { if (!string.IsNullOrEmpty(mFormatConfig.ForceDirectOpcodeSuffix)) { opcodeStr += mFormatConfig.ForceDirectOpcodeSuffix; } } else if (wdis == OpDef.WidthDisambiguation.ForceAbs) { if (!string.IsNullOrEmpty(mFormatConfig.ForceAbsOpcodeSuffix)) { opcodeStr += mFormatConfig.ForceAbsOpcodeSuffix; } } else if (wdis == OpDef.WidthDisambiguation.ForceLong || wdis == OpDef.WidthDisambiguation.ForceLongMaybe) { if (!string.IsNullOrEmpty(mFormatConfig.ForceLongOpcodeSuffix)) { opcodeStr += mFormatConfig.ForceLongOpcodeSuffix; } } else { Debug.Assert(wdis == OpDef.WidthDisambiguation.None); } if (mFormatConfig.UpperOpcodes) { opcodeStr = opcodeStr.ToUpperInvariant(); } return opcodeStr; } /// /// Generates an operand format. /// /// Addressing mode. /// Width disambiguation mode. /// Format string. private string GenerateOperandFormat(OpDef.AddressMode addrMode, OpDef.WidthDisambiguation wdis) { string fmt; string wdisStr = string.Empty; if (wdis == OpDef.WidthDisambiguation.ForceDirect) { if (!string.IsNullOrEmpty(mFormatConfig.ForceDirectOperandPrefix)) { wdisStr = mFormatConfig.ForceDirectOperandPrefix; } } else if (wdis == OpDef.WidthDisambiguation.ForceAbs) { if (!string.IsNullOrEmpty(mFormatConfig.ForceAbsOperandPrefix)) { wdisStr = mFormatConfig.ForceAbsOperandPrefix; } } else if (wdis == OpDef.WidthDisambiguation.ForceLong) { if (!string.IsNullOrEmpty(mFormatConfig.ForceLongOperandPrefix)) { wdisStr = mFormatConfig.ForceLongOperandPrefix; } } else if (wdis == OpDef.WidthDisambiguation.ForceLongMaybe) { // Don't add a width disambiguator to an operand that is unambiguously long. } else { Debug.Assert(wdis == OpDef.WidthDisambiguation.None); } switch (addrMode) { case AddressMode.Abs: case AddressMode.AbsLong: case AddressMode.BlockMove: case AddressMode.StackAbs: case AddressMode.DP: case AddressMode.DPPCRel: // BBR/BBS case AddressMode.PCRel: case AddressMode.PCRelLong: // BRL case AddressMode.StackInt: // COP and two-byte BRK case AddressMode.StackPCRelLong: // PER case AddressMode.WDM: fmt = wdisStr + "{0}"; break; case AddressMode.AbsIndexX: case AddressMode.AbsIndexXLong: case AddressMode.DPIndexX: fmt = wdisStr + "{0}," + mXregChar; break; case AddressMode.DPIndexY: case AddressMode.AbsIndexY: fmt = wdisStr + "{0}," + mYregChar; break; case AddressMode.AbsIndexXInd: case AddressMode.DPIndexXInd: fmt = wdisStr + "({0}," + mXregChar + ")"; break; case AddressMode.AbsInd: case AddressMode.DPInd: case AddressMode.StackDPInd: // PEI fmt = "({0})"; break; case AddressMode.AbsIndLong: case AddressMode.DPIndLong: // IIgs monitor uses "()" for AbsIndLong, E&L says "[]". Assemblers // seem to expect the latter. fmt = "[{0}]"; break; case AddressMode.Acc: fmt = mAccChar; break; case AddressMode.DPIndIndexY: fmt = "({0})," + mYregChar; break; case AddressMode.DPIndIndexYLong: fmt = "[{0}]," + mYregChar; break; case AddressMode.Imm: case AddressMode.ImmLongA: case AddressMode.ImmLongXY: fmt = "#{0}"; break; case AddressMode.Implied: case AddressMode.StackPull: case AddressMode.StackPush: case AddressMode.StackRTI: case AddressMode.StackRTL: case AddressMode.StackRTS: fmt = string.Empty; break; case AddressMode.StackRel: fmt = "{0}," + mSregChar; break; case AddressMode.StackRelIndIndexY: fmt = "({0}," + mSregChar + ")," + mYregChar; break; case AddressMode.Unknown: default: Debug.Assert(false); fmt = "???"; break; } return fmt; } /// /// Formats the instruction operand. /// /// Opcode definition (needed for address mode). /// Label or numeric operand value. /// Width disambiguation value. /// Formatted string. public string FormatOperand(OpDef op, string contents, OpDef.WidthDisambiguation wdis) { Debug.Assert(((int)op.AddrMode & 0xff) == (int) op.AddrMode); int key = (int) op.AddrMode | ((int)wdis << 8); if (!mOperandFormats.TryGetValue(key, out string format)) { format = mOperandFormats[key] = GenerateOperandFormat(op.AddrMode, wdis); } return string.Format(format, contents); } /// /// Formats a pseudo-opcode. /// /// Pseudo-op string to format. /// Formatted string. public string FormatPseudoOp(string opstr) { if (!mPseudoOpStrings.TryGetValue(opstr, out string result)) { if (mFormatConfig.UpperPseudoOpcodes) { result = mPseudoOpStrings[opstr] = opstr.ToUpperInvariant(); } else { result = mPseudoOpStrings[opstr] = opstr; } } return result; } /// /// Generates a format string for N hex bytes. /// /// Number of bytes to handle in the format. private void GenerateByteFormat(int len) { Debug.Assert(len <= MAX_BYTE_DUMP); StringBuilder sb = new StringBuilder(len * 7); for (int i = 0; i < len; i++) { if (i != 0 && mFormatConfig.SpacesBetweenBytes) { sb.Append(' '); } // e.g. "{0:x2}" sb.Append("{" + i + ":" + mHexFmtChar + "2}"); } mByteDumpFormats[len - 1] = sb.ToString(); } /// /// Formats 1-4 bytes as hex values. /// /// Data source. /// Start offset within data array. /// Number of bytes to print. Fewer than this many may /// actually appear. /// Formatted data string. public string FormatBytes(byte[] data, int offset, int length) { Debug.Assert(length > 0); int printLen = length < MAX_BYTE_DUMP ? length : MAX_BYTE_DUMP; if (string.IsNullOrEmpty(mByteDumpFormats[printLen - 1])) { GenerateByteFormat(printLen); } string format = mByteDumpFormats[printLen - 1]; string result; // The alternative is to allocate a temporary object[] and copy the integers // into it, which requires boxing. We know we're only printing 1-4 bytes, so // it's easier to just handle each case individually. switch (printLen) { case 1: result = string.Format(format, data[offset]); break; case 2: result = string.Format(format, data[offset], data[offset + 1]); break; case 3: result = string.Format(format, data[offset], data[offset + 1], data[offset + 2]); break; case 4: result = string.Format(format, data[offset], data[offset + 1], data[offset + 2], data[offset + 3]); break; default: result = "INTERNAL ERROR"; break; } if (length > printLen) { result += "..."; } return result; } /// /// Formats an end-of-line comment, prepending an end-of-line comment delimiter. /// /// Comment string; may be empty. /// Formatted string. public string FormatEolComment(string comment) { if (string.IsNullOrEmpty(comment) || string.IsNullOrEmpty(mFormatConfig.EndOfLineCommentDelimiter)) { return comment; } else { return mFormatConfig.EndOfLineCommentDelimiter + comment; } } /// /// Formats a collection of bytes as a dense hex string. /// /// Data source. /// Start offset within data array. /// Number of bytes to print. /// Formatted data string. public string FormatDenseHex(byte[] data, int offset, int length) { char[] hexChars = mFormatConfig.UpperHexDigits ? sHexCharsUpper : sHexCharsLower; char[] text; if (mFormatConfig.CommaSeparatedDense) { text = new char[length * 4 - 1]; for (int i = 0; i < length; i++) { byte val = data[offset + i]; text[i * 4] = '$'; text[i * 4 + 1] = hexChars[val >> 4]; text[i * 4 + 2] = hexChars[val & 0x0f]; if (i != length - 1) { text[i * 4 + 3] = ','; } } } else { text = new char[length * 2]; for (int i = 0; i < length; i++) { byte val = data[offset + i]; text[i * 2] = hexChars[val >> 4]; text[i * 2 + 1] = hexChars[val & 0x0f]; } } return new string(text); } /// /// Returns the number of characters output for each byte when formatting dense hex. /// /// /// This isn't quite right, because you don't need a comma after the very last element /// in the list for comma-separated values. Handling this correctly for multi-line /// items is more trouble than it's worth though. /// public int CharsPerDenseByte { get { if (mFormatConfig.CommaSeparatedDense) { return 4; } else { return 2; } } } /// /// Formats up to 16 bytes of data into a single line hex dump, in this format: ///
012345: 00 11 22 33 44 55 66 77 88 99 aa bb cc dd ee ff  0123456789abcdef
///
/// Reference to data. /// Start offset. /// Formatted string. public string FormatHexDump(byte[] data, int offset) { int length = Math.Min(16, data.Length - offset); FormatHexDumpCommon(data, offset, offset, length); // this is the only allocation return new string(mHexDumpBuffer); } /// /// Formats up to 16 bytes of data into a single line hex dump. The output is /// appended to the StringBuilder. /// /// Reference to data. /// Start offset. /// StringBuilder that receives output. public void FormatHexDump(byte[] data, int offset, StringBuilder sb) { int length = Math.Min(16, data.Length - offset); FormatHexDumpCommon(data, offset, offset, length); sb.Append(mHexDumpBuffer); } /// /// Formats up to 16 bytes of data and appends it to the StringBuilder. /// /// Reference to data. /// Start offset. /// Address to put at start of line. /// Number of bytes to format. /// StringBuilder to append the data to. public void FormatHexDump(byte[] data, int offset, int addr, int length, StringBuilder sb) { Debug.Assert(length <= 16); FormatHexDumpCommon(data, offset, addr, length); sb.Append(mHexDumpBuffer); } /// /// Formats up to 16 bytes of data into mHexDumpBuffer. /// private void FormatHexDumpCommon(byte[] data, int offset, int addr, int length) { Debug.Assert(offset >= 0 && offset < data.Length); Debug.Assert(data.Length < (1 << 24)); const int dataCol = 8; const int asciiCol = 57; char[] hexChars = mFormatConfig.UpperHexDigits ? sHexCharsUpper : sHexCharsLower; char[] outBuf = mHexDumpBuffer; int skip = addr & 0x0f; // we skip this many entries... offset -= skip; // ...so adjust offset to balance it addr &= ~0x0f; // address field for (int i = 5; i >= 0; i--) { outBuf[i] = hexChars[addr & 0x0f]; addr >>= 4; } // If addr doesn't start at xxx0, pad it. int index; for (index = 0; index < skip; index++) { outBuf[dataCol + index * 3] = outBuf[dataCol + index * 3 + 1] = outBuf[asciiCol + index] = ' '; } // hex digits and characters for (int i = 0; i < length; i++) { byte val = data[offset + index]; outBuf[dataCol + index * 3] = hexChars[val >> 4]; outBuf[dataCol + index * 3 + 1] = hexChars[val & 0x0f]; outBuf[asciiCol + index] = CharConv(val); index++; } // for partial line, clear out previous contents for (; index < 16; index++) { outBuf[dataCol + index * 3] = outBuf[dataCol + index * 3 + 1] = outBuf[asciiCol + index] = ' '; } } /// /// Converts a byte into printable form according to the current hex dump /// character conversion mode. /// /// Value to convert. /// Printable character. private char CharConv(byte val) { char ch = mHexDumpCharConv(val); if (ch != CharEncoding.UNPRINTABLE_CHAR) { return ch; } else if (mFormatConfig.HexDumpAsciiOnly) { return '.'; } else { // Certain values make the hex dump ListView freak out in WinForms, but work // fine in WPF. The "control pictures" are a nice idea, but in practice they're // unreadably small and provide no benefit. The black-diamond "replacement // character" is dark and makes everything feel noisy. Middle-dot is subtle, // but sufficiently different from a '.' to be useful. //if (ch < 0x20) { // return (char)(ch + '\u2400'); // Unicode "control pictures" block //} //return '\ufffd'; // Unicode "replacement character" //return '\u00bf'; // INVERTED QUESTION MARK return '\u00b7'; // MIDDLE DOT } } } }