UXN extended opcodes

uxn_extended_opcodes.jl

# more opcodes above...

function SFT(c::CPU, k::Bool, m::BytSht, r::Bool)::CPU
  setmod(c, r, k)
  a = pop(c.src, k, UInt8)
  b = pop(c.src, k, m)
  push(c.src, b >> (a & 0x0f) << ((a & 0xf0) >> 4))
end


# Extended opcodes
const OPCODES = [
  :LIT, :INC, :POP, :DUP, :NIP, :SWP, :OVR, :ROT,
  :EQP, :NEQ, :GTH, :LTH, :JMP, :JNC, :JSR, :STH,
  :LDZ, :STZ, :LDR, :STR, :LDA, :STA, :DEI, :DEO,
  :ADD, :SUB, :MUL, :DIV, :AND, :ORA, :EOR, :SFT
]

for op in OPCODES
  @eval begin
    $op(c::CPU) = $op(c, false, UInt8, false)
    $(Symbol(op, "2"))(c::CPU) = $op(c, false, UInt16, false)
    $(Symbol(op, "k"))(c::CPU) = $op(c, true, UInt8, false)
    $(Symbol(op, "2k"))(c::CPU) = $op(c, true, UInt16, false)
    $(Symbol(op, "k2"))(c::CPU) = $(Symbol(op, "2k"))(c)
    $(Symbol(op, "r"))(c::CPU) = $op(c, false, UInt8, true)
    $(Symbol(op, "kr"))(c::CPU) = $op(c, true, UInt8, true)
    $(Symbol(op, "rk"))(c::CPU) = $(Symbol(op, "kr"))(c)
    $(Symbol(op, "2kr"))(c::CPU) = $op(c, true, UInt16, true)
    $(Symbol(op, "2rk"))(c::CPU) = $(Symbol(op, "2kr"))(c)
    $(Symbol(op, "kr2"))(c::CPU) = $(Symbol(op, "2kr"))(c)
    $(Symbol(op, "k2r"))(c::CPU) = $(Symbol(op, "2kr"))(c)
    $(Symbol(op, "r2k"))(c::CPU) = $(Symbol(op, "2kr"))(c)
    $(Symbol(op, "rk2"))(c::CPU) = $(Symbol(op, "2kr"))(c)
  end
end