matita/matita/contribs/ng_assembly2/emulator/opcodes/RS08_table.ma

   1 (**************************************************************************)
   2 (*       ___                                                              *)
   3 (*      ||M||                                                             *)
   4 (*      ||A||       A project by Andrea Asperti                           *)
   5 (*      ||T||                                                             *)
   6 (*      ||I||       Developers:                                           *)
   7 (*      ||T||         The HELM team.                                      *)
   8 (*      ||A||         http://helm.cs.unibo.it                             *)
   9 (*      \   /                                                             *)
  10 (*       \ /        This file is distributed under the terms of the       *)
  11 (*        v         GNU General Public License Version 2                  *)
  12 (*                                                                        *)
  13 (**************************************************************************)
  14
  15 (* ********************************************************************** *)
  16 (*                          Progetto FreeScale                            *)
  17 (*                                                                        *)
  18 (*   Sviluppato da: Ing. Cosimo Oliboni, oliboni@cs.unibo.it              *)
  19 (*   Sviluppo: 2008-2010                                                  *)
  20 (*                                                                        *)
  21 (* ********************************************************************** *)
  22
  23 include "emulator/opcodes/Freescale_pseudo.ma".
  24 include "emulator/opcodes/Freescale_instr_mode.ma".
  25 include "emulator/opcodes/byte_or_word.ma".
  26 include "common/list.ma".
  27
  28 (* ***************** *)
  29 (* TABELLA DELL'RS08 *)
  30 (* ***************** *)
  31
  32 (* definizione come concatenazione finale di liste per velocizzare il parsing *)
  33 (* ogni riga e' [pseudo] [modalita' indirizzamento] [opcode esadecimale] [#cicli esecuzione] *)
  34
  35 ndefinition opcode_table_RS08_1 ≝
  36 [
  37   quadruple … ADC MODE_IMM1 (Byte 〈xA,x9〉) nat2
  38 ; quadruple … ADC MODE_DIR1 (Byte 〈xB,x9〉) nat3
  39 ].
  40
  41 ndefinition opcode_table_RS08_2 ≝
  42 [
  43   quadruple … ADD MODE_IMM1     (Byte 〈xA,xB〉) nat2
  44 ; quadruple … ADD MODE_DIR1     (Byte 〈xB,xB〉) nat3
  45 ; quadruple … ADD (MODE_TNY x0) (Byte 〈x6,x0〉) nat3
  46 ; quadruple … ADD (MODE_TNY x1) (Byte 〈x6,x1〉) nat3
  47 ; quadruple … ADD (MODE_TNY x2) (Byte 〈x6,x2〉) nat3
  48 ; quadruple … ADD (MODE_TNY x3) (Byte 〈x6,x3〉) nat3
  49 ; quadruple … ADD (MODE_TNY x4) (Byte 〈x6,x4〉) nat3
  50 ; quadruple … ADD (MODE_TNY x5) (Byte 〈x6,x5〉) nat3
  51 ; quadruple … ADD (MODE_TNY x6) (Byte 〈x6,x6〉) nat3
  52 ; quadruple … ADD (MODE_TNY x7) (Byte 〈x6,x7〉) nat3
  53 ; quadruple … ADD (MODE_TNY x8) (Byte 〈x6,x8〉) nat3
  54 ; quadruple … ADD (MODE_TNY x9) (Byte 〈x6,x9〉) nat3
  55 ; quadruple … ADD (MODE_TNY xA) (Byte 〈x6,xA〉) nat3
  56 ; quadruple … ADD (MODE_TNY xB) (Byte 〈x6,xB〉) nat3
  57 ; quadruple … ADD (MODE_TNY xC) (Byte 〈x6,xC〉) nat3
  58 ; quadruple … ADD (MODE_TNY xD) (Byte 〈x6,xD〉) nat3
  59 ; quadruple … ADD (MODE_TNY xE) (Byte 〈x6,xE〉) nat3
  60 ; quadruple … ADD (MODE_TNY xF) (Byte 〈x6,xF〉) nat3
  61 ].
  62
  63 ndefinition opcode_table_RS08_3 ≝
  64 [
  65   quadruple … AND MODE_IMM1 (Byte 〈xA,x4〉) nat2
  66 ; quadruple … AND MODE_DIR1 (Byte 〈xB,x4〉) nat3
  67 ].
  68
  69 ndefinition opcode_table_RS08_4 ≝
  70 [
  71   quadruple … ASL MODE_INHA (Byte 〈x4,x8〉) nat1
  72 ].
  73
  74 ndefinition opcode_table_RS08_5 ≝
  75 [
  76   quadruple … BRA MODE_IMM1 (Byte 〈x3,x0〉) nat3
  77 ; quadruple … BCC MODE_IMM1 (Byte 〈x3,x4〉) nat3
  78 ; quadruple … BCS MODE_IMM1 (Byte 〈x3,x5〉) nat3
  79 ; quadruple … BNE MODE_IMM1 (Byte 〈x3,x6〉) nat3
  80 ; quadruple … BEQ MODE_IMM1 (Byte 〈x3,x7〉) nat3
  81 ].
  82
  83 ndefinition opcode_table_RS08_6 ≝
  84 [
  85   quadruple … BSETn (MODE_DIRn o0) (Byte 〈x1,x0〉) nat5
  86 ; quadruple … BCLRn (MODE_DIRn o0) (Byte 〈x1,x1〉) nat5
  87 ; quadruple … BSETn (MODE_DIRn o1) (Byte 〈x1,x2〉) nat5
  88 ; quadruple … BCLRn (MODE_DIRn o1) (Byte 〈x1,x3〉) nat5
  89 ; quadruple … BSETn (MODE_DIRn o2) (Byte 〈x1,x4〉) nat5
  90 ; quadruple … BCLRn (MODE_DIRn o2) (Byte 〈x1,x5〉) nat5
  91 ; quadruple … BSETn (MODE_DIRn o3) (Byte 〈x1,x6〉) nat5
  92 ; quadruple … BCLRn (MODE_DIRn o3) (Byte 〈x1,x7〉) nat5
  93 ; quadruple … BSETn (MODE_DIRn o4) (Byte 〈x1,x8〉) nat5
  94 ; quadruple … BCLRn (MODE_DIRn o4) (Byte 〈x1,x9〉) nat5
  95 ; quadruple … BSETn (MODE_DIRn o5) (Byte 〈x1,xA〉) nat5
  96 ; quadruple … BCLRn (MODE_DIRn o5) (Byte 〈x1,xB〉) nat5
  97 ; quadruple … BSETn (MODE_DIRn o6) (Byte 〈x1,xC〉) nat5
  98 ; quadruple … BCLRn (MODE_DIRn o6) (Byte 〈x1,xD〉) nat5
  99 ; quadruple … BSETn (MODE_DIRn o7) (Byte 〈x1,xE〉) nat5
 100 ; quadruple … BCLRn (MODE_DIRn o7) (Byte 〈x1,xF〉) nat5
 101 ].
 102
 103 ndefinition opcode_table_RS08_7 ≝
 104 [
 105   quadruple … BRSETn (MODE_DIRn_and_IMM1 o0) (Byte 〈x0,x0〉) nat5
 106 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o0) (Byte 〈x0,x1〉) nat5
 107 ; quadruple … BRSETn (MODE_DIRn_and_IMM1 o1) (Byte 〈x0,x2〉) nat5
 108 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o1) (Byte 〈x0,x3〉) nat5
 109 ; quadruple … BRSETn (MODE_DIRn_and_IMM1 o2) (Byte 〈x0,x4〉) nat5
 110 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o2) (Byte 〈x0,x5〉) nat5
 111 ; quadruple … BRSETn (MODE_DIRn_and_IMM1 o3) (Byte 〈x0,x6〉) nat5
 112 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o3) (Byte 〈x0,x7〉) nat5
 113 ; quadruple … BRSETn (MODE_DIRn_and_IMM1 o4) (Byte 〈x0,x8〉) nat5
 114 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o4) (Byte 〈x0,x9〉) nat5
 115 ; quadruple … BRSETn (MODE_DIRn_and_IMM1 o5) (Byte 〈x0,xA〉) nat5
 116 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o5) (Byte 〈x0,xB〉) nat5
 117 ; quadruple … BRSETn (MODE_DIRn_and_IMM1 o6) (Byte 〈x0,xC〉) nat5
 118 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o6) (Byte 〈x0,xD〉) nat5
 119 ; quadruple … BRSETn (MODE_DIRn_and_IMM1 o7) (Byte 〈x0,xE〉) nat5
 120 ; quadruple … BRCLRn (MODE_DIRn_and_IMM1 o7) (Byte 〈x0,xF〉) nat5
 121 ].
 122
 123 ndefinition opcode_table_RS08_8 ≝
 124 [
 125   quadruple … CLC  MODE_INH (Byte 〈x3,x8〉) nat1
 126 ; quadruple … SEC  MODE_INH (Byte 〈x3,x9〉) nat1
 127 ; quadruple … SLA  MODE_INH (Byte 〈x4,x2〉) nat1
 128 ; quadruple … SHA  MODE_INH (Byte 〈x4,x5〉) nat1
 129 ; quadruple … NOP  MODE_INH (Byte 〈xA,xC〉) nat1
 130 ; quadruple … STOP MODE_INH (Byte 〈xA,xE〉) nat2
 131 ; quadruple … WAIT MODE_INH (Byte 〈xA,xF〉) nat2
 132 ; quadruple … RTS  MODE_INH (Byte 〈xB,xE〉) nat3
 133 ; quadruple … BGND MODE_INH (Byte 〈xB,xF〉) nat5
 134 ].
 135
 136 ndefinition opcode_table_RS08_9 ≝
 137 [
 138   quadruple … CBEQA MODE_DIR1_and_IMM1 (Byte 〈x3,x1〉) nat5
 139 ; quadruple … CBEQA MODE_IMM1_and_IMM1 (Byte 〈x4,x1〉) nat4
 140 ].
 141
 142 ndefinition opcode_table_RS08_10 ≝
 143 [
 144   quadruple … CLR MODE_DIR1      (Byte 〈x3,xF〉) nat3
 145 ; quadruple … CLR MODE_INHA      (Byte 〈x4,xF〉) nat1
 146 ; quadruple … CLR (MODE_SRT t00) (Byte 〈x8,x0〉) nat2
 147 ; quadruple … CLR (MODE_SRT t01) (Byte 〈x8,x1〉) nat2
 148 ; quadruple … CLR (MODE_SRT t02) (Byte 〈x8,x2〉) nat2
 149 ; quadruple … CLR (MODE_SRT t03) (Byte 〈x8,x3〉) nat2
 150 ; quadruple … CLR (MODE_SRT t04) (Byte 〈x8,x4〉) nat2
 151 ; quadruple … CLR (MODE_SRT t05) (Byte 〈x8,x5〉) nat2
 152 ; quadruple … CLR (MODE_SRT t06) (Byte 〈x8,x6〉) nat2
 153 ; quadruple … CLR (MODE_SRT t07) (Byte 〈x8,x7〉) nat2
 154 ; quadruple … CLR (MODE_SRT t08) (Byte 〈x8,x8〉) nat2
 155 ; quadruple … CLR (MODE_SRT t09) (Byte 〈x8,x9〉) nat2
 156 ; quadruple … CLR (MODE_SRT t0A) (Byte 〈x8,xA〉) nat2
 157 ; quadruple … CLR (MODE_SRT t0B) (Byte 〈x8,xB〉) nat2
 158 ; quadruple … CLR (MODE_SRT t0C) (Byte 〈x8,xC〉) nat2
 159 ; quadruple … CLR (MODE_SRT t0D) (Byte 〈x8,xD〉) nat2
 160 ; quadruple … CLR (MODE_SRT t0E) (Byte 〈x8,xE〉) nat2
 161 ; quadruple … CLR (MODE_SRT t0F) (Byte 〈x8,xF〉) nat2
 162 ; quadruple … CLR (MODE_SRT t10) (Byte 〈x9,x0〉) nat2
 163 ; quadruple … CLR (MODE_SRT t11) (Byte 〈x9,x1〉) nat2
 164 ; quadruple … CLR (MODE_SRT t12) (Byte 〈x9,x2〉) nat2
 165 ; quadruple … CLR (MODE_SRT t13) (Byte 〈x9,x3〉) nat2
 166 ; quadruple … CLR (MODE_SRT t14) (Byte 〈x9,x4〉) nat2
 167 ; quadruple … CLR (MODE_SRT t15) (Byte 〈x9,x5〉) nat2
 168 ; quadruple … CLR (MODE_SRT t16) (Byte 〈x9,x6〉) nat2
 169 ; quadruple … CLR (MODE_SRT t17) (Byte 〈x9,x7〉) nat2
 170 ; quadruple … CLR (MODE_SRT t18) (Byte 〈x9,x8〉) nat2
 171 ; quadruple … CLR (MODE_SRT t19) (Byte 〈x9,x9〉) nat2
 172 ; quadruple … CLR (MODE_SRT t1A) (Byte 〈x9,xA〉) nat2
 173 ; quadruple … CLR (MODE_SRT t1B) (Byte 〈x9,xB〉) nat2
 174 ; quadruple … CLR (MODE_SRT t1C) (Byte 〈x9,xC〉) nat2
 175 ; quadruple … CLR (MODE_SRT t1D) (Byte 〈x9,xD〉) nat2
 176 ; quadruple … CLR (MODE_SRT t1E) (Byte 〈x9,xE〉) nat2
 177 ; quadruple … CLR (MODE_SRT t1F) (Byte 〈x9,xF〉) nat2
 178 ].
 179
 180 ndefinition opcode_table_RS08_11 ≝
 181 [
 182   quadruple … CMP MODE_IMM1 (Byte 〈xA,x1〉) nat2
 183 ; quadruple … CMP MODE_DIR1 (Byte 〈xB,x1〉) nat3
 184 ].
 185
 186 ndefinition opcode_table_RS08_12 ≝
 187 [
 188   quadruple … COM MODE_INHA (Byte 〈x4,x3〉) nat1
 189 ].
 190
 191 ndefinition opcode_table_RS08_13 ≝
 192 [
 193   quadruple … DBNZ MODE_DIR1_and_IMM1 (Byte 〈x3,xB〉) nat7
 194 ; quadruple … DBNZ MODE_INHA_and_IMM1 (Byte 〈x4,xB〉) nat4
 195 ].
 196
 197 ndefinition opcode_table_RS08_14 ≝
 198 [
 199   quadruple … DEC MODE_DIR1     (Byte 〈x3,xA〉) nat5
 200 ; quadruple … DEC MODE_INHA     (Byte 〈x4,xA〉) nat1
 201 ; quadruple … DEC (MODE_TNY x0) (Byte 〈x5,x0〉) nat4
 202 ; quadruple … DEC (MODE_TNY x1) (Byte 〈x5,x1〉) nat4
 203 ; quadruple … DEC (MODE_TNY x2) (Byte 〈x5,x2〉) nat4
 204 ; quadruple … DEC (MODE_TNY x3) (Byte 〈x5,x3〉) nat4
 205 ; quadruple … DEC (MODE_TNY x4) (Byte 〈x5,x4〉) nat4
 206 ; quadruple … DEC (MODE_TNY x5) (Byte 〈x5,x5〉) nat4
 207 ; quadruple … DEC (MODE_TNY x6) (Byte 〈x5,x6〉) nat4
 208 ; quadruple … DEC (MODE_TNY x7) (Byte 〈x5,x7〉) nat4
 209 ; quadruple … DEC (MODE_TNY x8) (Byte 〈x5,x8〉) nat4
 210 ; quadruple … DEC (MODE_TNY x9) (Byte 〈x5,x9〉) nat4
 211 ; quadruple … DEC (MODE_TNY xA) (Byte 〈x5,xA〉) nat4
 212 ; quadruple … DEC (MODE_TNY xB) (Byte 〈x5,xB〉) nat4
 213 ; quadruple … DEC (MODE_TNY xC) (Byte 〈x5,xC〉) nat4
 214 ; quadruple … DEC (MODE_TNY xD) (Byte 〈x5,xD〉) nat4
 215 ; quadruple … DEC (MODE_TNY xE) (Byte 〈x5,xE〉) nat4
 216 ; quadruple … DEC (MODE_TNY xF) (Byte 〈x5,xF〉) nat4
 217 ].
 218
 219 ndefinition opcode_table_RS08_15 ≝
 220 [
 221   quadruple … EOR MODE_IMM1 (Byte 〈xA,x8〉) nat2
 222 ; quadruple … EOR MODE_DIR1 (Byte 〈xB,x8〉) nat3
 223 ].
 224
 225 ndefinition opcode_table_RS08_16 ≝
 226 [
 227   quadruple … INC MODE_DIR1     (Byte 〈x3,xC〉) nat5
 228 ; quadruple … INC MODE_INHA     (Byte 〈x4,xC〉) nat1
 229 ; quadruple … INC (MODE_TNY x0) (Byte 〈x2,x0〉) nat4
 230 ; quadruple … INC (MODE_TNY x1) (Byte 〈x2,x1〉) nat4
 231 ; quadruple … INC (MODE_TNY x2) (Byte 〈x2,x2〉) nat4
 232 ; quadruple … INC (MODE_TNY x3) (Byte 〈x2,x3〉) nat4
 233 ; quadruple … INC (MODE_TNY x4) (Byte 〈x2,x4〉) nat4
 234 ; quadruple … INC (MODE_TNY x5) (Byte 〈x2,x5〉) nat4
 235 ; quadruple … INC (MODE_TNY x6) (Byte 〈x2,x6〉) nat4
 236 ; quadruple … INC (MODE_TNY x7) (Byte 〈x2,x7〉) nat4
 237 ; quadruple … INC (MODE_TNY x8) (Byte 〈x2,x8〉) nat4
 238 ; quadruple … INC (MODE_TNY x9) (Byte 〈x2,x9〉) nat4
 239 ; quadruple … INC (MODE_TNY xA) (Byte 〈x2,xA〉) nat4
 240 ; quadruple … INC (MODE_TNY xB) (Byte 〈x2,xB〉) nat4
 241 ; quadruple … INC (MODE_TNY xC) (Byte 〈x2,xC〉) nat4
 242 ; quadruple … INC (MODE_TNY xD) (Byte 〈x2,xD〉) nat4
 243 ; quadruple … INC (MODE_TNY xE) (Byte 〈x2,xE〉) nat4
 244 ; quadruple … INC (MODE_TNY xF) (Byte 〈x2,xF〉) nat4
 245 ].
 246
 247 ndefinition opcode_table_RS08_17 ≝
 248 [
 249   quadruple … JMP MODE_IMM2 (Byte 〈xB,xC〉) nat4
 250 ].
 251
 252 ndefinition opcode_table_RS08_18 ≝
 253 [
 254   quadruple … BSR MODE_IMM1 (Byte 〈xA,xD〉) nat3
 255 ; quadruple … JSR MODE_IMM2 (Byte 〈xB,xD〉) nat4
 256 ].
 257
 258 ndefinition opcode_table_RS08_19 ≝
 259 [
 260   quadruple … LDA MODE_IMM1      (Byte 〈xA,x6〉) nat2
 261 ; quadruple … LDA MODE_DIR1      (Byte 〈xB,x6〉) nat3
 262 ; quadruple … LDA (MODE_SRT t00) (Byte 〈xC,x0〉) nat3
 263 ; quadruple … LDA (MODE_SRT t01) (Byte 〈xC,x1〉) nat3
 264 ; quadruple … LDA (MODE_SRT t02) (Byte 〈xC,x2〉) nat3
 265 ; quadruple … LDA (MODE_SRT t03) (Byte 〈xC,x3〉) nat3
 266 ; quadruple … LDA (MODE_SRT t04) (Byte 〈xC,x4〉) nat3
 267 ; quadruple … LDA (MODE_SRT t05) (Byte 〈xC,x5〉) nat3
 268 ; quadruple … LDA (MODE_SRT t06) (Byte 〈xC,x6〉) nat3
 269 ; quadruple … LDA (MODE_SRT t07) (Byte 〈xC,x7〉) nat3
 270 ; quadruple … LDA (MODE_SRT t08) (Byte 〈xC,x8〉) nat3
 271 ; quadruple … LDA (MODE_SRT t09) (Byte 〈xC,x9〉) nat3
 272 ; quadruple … LDA (MODE_SRT t0A) (Byte 〈xC,xA〉) nat3
 273 ; quadruple … LDA (MODE_SRT t0B) (Byte 〈xC,xB〉) nat3
 274 ; quadruple … LDA (MODE_SRT t0C) (Byte 〈xC,xC〉) nat3
 275 ; quadruple … LDA (MODE_SRT t0D) (Byte 〈xC,xD〉) nat3
 276 ; quadruple … LDA (MODE_SRT t0E) (Byte 〈xC,xE〉) nat3
 277 ; quadruple … LDA (MODE_SRT t0F) (Byte 〈xC,xF〉) nat3
 278 ; quadruple … LDA (MODE_SRT t10) (Byte 〈xD,x0〉) nat3
 279 ; quadruple … LDA (MODE_SRT t11) (Byte 〈xD,x1〉) nat3
 280 ; quadruple … LDA (MODE_SRT t12) (Byte 〈xD,x2〉) nat3
 281 ; quadruple … LDA (MODE_SRT t13) (Byte 〈xD,x3〉) nat3
 282 ; quadruple … LDA (MODE_SRT t14) (Byte 〈xD,x4〉) nat3
 283 ; quadruple … LDA (MODE_SRT t15) (Byte 〈xD,x5〉) nat3
 284 ; quadruple … LDA (MODE_SRT t16) (Byte 〈xD,x6〉) nat3
 285 ; quadruple … LDA (MODE_SRT t17) (Byte 〈xD,x7〉) nat3
 286 ; quadruple … LDA (MODE_SRT t18) (Byte 〈xD,x8〉) nat3
 287 ; quadruple … LDA (MODE_SRT t19) (Byte 〈xD,x9〉) nat3
 288 ; quadruple … LDA (MODE_SRT t1A) (Byte 〈xD,xA〉) nat3
 289 ; quadruple … LDA (MODE_SRT t1B) (Byte 〈xD,xB〉) nat3
 290 ; quadruple … LDA (MODE_SRT t1C) (Byte 〈xD,xC〉) nat3
 291 ; quadruple … LDA (MODE_SRT t1D) (Byte 〈xD,xD〉) nat3
 292 ; quadruple … LDA (MODE_SRT t1E) (Byte 〈xD,xE〉) nat3
 293 ; quadruple … LDA (MODE_SRT t1F) (Byte 〈xD,xF〉) nat3
 294 ].
 295
 296 ndefinition opcode_table_RS08_20 ≝
 297 [
 298   quadruple … LSR MODE_INHA (Byte 〈x4,x4〉) nat1
 299 ].
 300
 301 ndefinition opcode_table_RS08_21 ≝
 302 [
 303   quadruple … MOV MODE_IMM1_to_DIR1 (Byte 〈x3,xE〉) nat4
 304 ; quadruple … MOV MODE_DIR1_to_DIR1 (Byte 〈x4,xE〉) nat5
 305 ].
 306
 307 ndefinition opcode_table_RS08_22 ≝
 308 [
 309   quadruple … ORA MODE_IMM1 (Byte 〈xA,xA〉) nat2
 310 ; quadruple … ORA MODE_DIR1 (Byte 〈xB,xA〉) nat3
 311 ].
 312
 313 ndefinition opcode_table_RS08_23 ≝
 314 [
 315   quadruple … ROL MODE_INHA (Byte 〈x4,x9〉) nat1
 316 ].
 317
 318 ndefinition opcode_table_RS08_24 ≝
 319 [
 320   quadruple … ROR MODE_INHA (Byte 〈x4,x6〉) nat1
 321 ].
 322
 323 ndefinition opcode_table_RS08_25 ≝
 324 [
 325   quadruple … SBC MODE_IMM1 (Byte 〈xA,x2〉) nat2
 326 ; quadruple … SBC MODE_DIR1 (Byte 〈xB,x2〉) nat3
 327 ].
 328
 329 ndefinition opcode_table_RS08_26 ≝
 330 [
 331   quadruple … STA MODE_DIR1      (Byte 〈xB,x7〉) nat3
 332 ; quadruple … STA (MODE_SRT t00) (Byte 〈xE,x0〉) nat2
 333 ; quadruple … STA (MODE_SRT t01) (Byte 〈xE,x1〉) nat2
 334 ; quadruple … STA (MODE_SRT t02) (Byte 〈xE,x2〉) nat2
 335 ; quadruple … STA (MODE_SRT t03) (Byte 〈xE,x3〉) nat2
 336 ; quadruple … STA (MODE_SRT t04) (Byte 〈xE,x4〉) nat2
 337 ; quadruple … STA (MODE_SRT t05) (Byte 〈xE,x5〉) nat2
 338 ; quadruple … STA (MODE_SRT t06) (Byte 〈xE,x6〉) nat2
 339 ; quadruple … STA (MODE_SRT t07) (Byte 〈xE,x7〉) nat2
 340 ; quadruple … STA (MODE_SRT t08) (Byte 〈xE,x8〉) nat2
 341 ; quadruple … STA (MODE_SRT t09) (Byte 〈xE,x9〉) nat2
 342 ; quadruple … STA (MODE_SRT t0A) (Byte 〈xE,xA〉) nat2
 343 ; quadruple … STA (MODE_SRT t0B) (Byte 〈xE,xB〉) nat2
 344 ; quadruple … STA (MODE_SRT t0C) (Byte 〈xE,xC〉) nat2
 345 ; quadruple … STA (MODE_SRT t0D) (Byte 〈xE,xD〉) nat2
 346 ; quadruple … STA (MODE_SRT t0E) (Byte 〈xE,xE〉) nat2
 347 ; quadruple … STA (MODE_SRT t0F) (Byte 〈xE,xF〉) nat2
 348 ; quadruple … STA (MODE_SRT t10) (Byte 〈xF,x0〉) nat2
 349 ; quadruple … STA (MODE_SRT t11) (Byte 〈xF,x1〉) nat2
 350 ; quadruple … STA (MODE_SRT t12) (Byte 〈xF,x2〉) nat2
 351 ; quadruple … STA (MODE_SRT t13) (Byte 〈xF,x3〉) nat2
 352 ; quadruple … STA (MODE_SRT t14) (Byte 〈xF,x4〉) nat2
 353 ; quadruple … STA (MODE_SRT t15) (Byte 〈xF,x5〉) nat2
 354 ; quadruple … STA (MODE_SRT t16) (Byte 〈xF,x6〉) nat2
 355 ; quadruple … STA (MODE_SRT t17) (Byte 〈xF,x7〉) nat2
 356 ; quadruple … STA (MODE_SRT t18) (Byte 〈xF,x8〉) nat2
 357 ; quadruple … STA (MODE_SRT t19) (Byte 〈xF,x9〉) nat2
 358 ; quadruple … STA (MODE_SRT t1A) (Byte 〈xF,xA〉) nat2
 359 ; quadruple … STA (MODE_SRT t1B) (Byte 〈xF,xB〉) nat2
 360 ; quadruple … STA (MODE_SRT t1C) (Byte 〈xF,xC〉) nat2
 361 ; quadruple … STA (MODE_SRT t1D) (Byte 〈xF,xD〉) nat2
 362 ; quadruple … STA (MODE_SRT t1E) (Byte 〈xF,xE〉) nat2
 363 ; quadruple … STA (MODE_SRT t1F) (Byte 〈xF,xF〉) nat2
 364 ].
 365
 366 ndefinition opcode_table_RS08_27 ≝
 367 [
 368   quadruple … SUB MODE_IMM1     (Byte 〈xA,x0〉) nat2
 369 ; quadruple … SUB MODE_DIR1     (Byte 〈xB,x0〉) nat3
 370 ; quadruple … SUB (MODE_TNY x0) (Byte 〈x7,x0〉) nat3
 371 ; quadruple … SUB (MODE_TNY x1) (Byte 〈x7,x1〉) nat3
 372 ; quadruple … SUB (MODE_TNY x2) (Byte 〈x7,x2〉) nat3
 373 ; quadruple … SUB (MODE_TNY x3) (Byte 〈x7,x3〉) nat3
 374 ; quadruple … SUB (MODE_TNY x4) (Byte 〈x7,x4〉) nat3
 375 ; quadruple … SUB (MODE_TNY x5) (Byte 〈x7,x5〉) nat3
 376 ; quadruple … SUB (MODE_TNY x6) (Byte 〈x7,x6〉) nat3
 377 ; quadruple … SUB (MODE_TNY x7) (Byte 〈x7,x7〉) nat3
 378 ; quadruple … SUB (MODE_TNY x8) (Byte 〈x7,x8〉) nat3
 379 ; quadruple … SUB (MODE_TNY x9) (Byte 〈x7,x9〉) nat3
 380 ; quadruple … SUB (MODE_TNY xA) (Byte 〈x7,xA〉) nat3
 381 ; quadruple … SUB (MODE_TNY xB) (Byte 〈x7,xB〉) nat3
 382 ; quadruple … SUB (MODE_TNY xC) (Byte 〈x7,xC〉) nat3
 383 ; quadruple … SUB (MODE_TNY xD) (Byte 〈x7,xD〉) nat3
 384 ; quadruple … SUB (MODE_TNY xE) (Byte 〈x7,xE〉) nat3
 385 ; quadruple … SUB (MODE_TNY xF) (Byte 〈x7,xF〉) nat3
 386 ].
 387
 388 ndefinition opcode_table_RS08 ≝
 389 opcode_table_RS08_1  @ opcode_table_RS08_2  @ opcode_table_RS08_3  @ opcode_table_RS08_4  @
 390 opcode_table_RS08_5  @ opcode_table_RS08_6  @ opcode_table_RS08_7  @ opcode_table_RS08_8  @
 391 opcode_table_RS08_9  @ opcode_table_RS08_10 @ opcode_table_RS08_11 @ opcode_table_RS08_12 @
 392 opcode_table_RS08_13 @ opcode_table_RS08_14 @ opcode_table_RS08_15 @ opcode_table_RS08_16 @
 393 opcode_table_RS08_17 @ opcode_table_RS08_18 @ opcode_table_RS08_19 @ opcode_table_RS08_20 @
 394 opcode_table_RS08_21 @ opcode_table_RS08_22 @ opcode_table_RS08_23 @ opcode_table_RS08_24 @
 395 opcode_table_RS08_25 @ opcode_table_RS08_26 @ opcode_table_RS08_27.