@@ -111,6 +111,9 @@ unit cgutils;
indexoffset: aint;
checkcast: boolean;
{$endif jvm}
+{$ifdef mos6502}
+ addressmode : taddressmode;
+{$endif mos6502}
volatility: tvolatilityset;
alignment : byte;
end;
@@ -141,6 +141,16 @@ unit cpubase;
TResFlags = (F_NotPossible,F_PL,F_MI,F_VC,F_VS,F_CC,F_CS,F_NE,F_EQ);
+{*****************************************************************************
+ Operands
+*****************************************************************************}
+
+ taddressmode = (
+ AM_ABSOLUTE, { Absolute / Absolute,X / Absolute,Y }
+ AM_ZEROPAGE, { Zero Page / Zero Page,X / Zero Page,Y }
+ AM_INDIRECT); { Indexed Indirect - ($40,X) / Indirect Indexed - ($40),Y }
{*****************************************************************************
Constants
*****************************************************************************}