#!/usr/bin/env bash
#
# SPDX-License-Identifier: Unlicense
#
# Tests against m68k-none-elf-as.

AS=m68k-none-elf-as
OBJCOPY=m68k-none-elf-objcopy
TEST_DIR=/tmp/m68k-disasm-tests
TRACE_FILE=${TEST_DIR}/trace.txt

set -e

rm -rf ${TEST_DIR}
mkdir -p ${TEST_DIR}
echo "0" >${TRACE_FILE}

run_test() {
  test_name=$1
  prefix=$2
  offset=$3
  count=$4
  step=$5
  suffix=$6
  file_orig_bin=${TEST_DIR}/${test_name}.orig.bin
  file_asm=${TEST_DIR}/${test_name}.S
  file_as_o=${TEST_DIR}/${test_name}.as.o
  file_as_bin=${TEST_DIR}/${test_name}.as.bin
  for i in $(seq 0 $(( step )) $(( count*step-1 )) ); do
    echo -ne "Test ${test_name}:$(( i / step ))... "
    value=$(printf "%02x\n" $(( offset+i )))
    echo -ne "${prefix}\x${value}${suffix}" >${file_orig_bin}
    ./cmake-build/m68k-disasm -t ${TRACE_FILE} -o ${file_asm} ${file_orig_bin}
    ${AS} -o ${file_as_o} ${file_asm}
    ${OBJCOPY} ${file_as_o} -O binary ${file_as_bin}
    if ! cmp ${file_orig_bin} ${file_as_bin} >/dev/null 2>&1; then
      echo "FAIL"
      cat ${file_asm}
      echo ${file_orig_bin}
      hexdump -Cv ${file_orig_bin} | head -n1
      echo ${file_as_bin}
      hexdump -Cv ${file_as_bin} | head -n1
      break;
    else
      echo "OK"
      #cat ${file_asm}
    fi
  done
}

jsr_m2() {
  # 4e90..4e97
  #
  # All registers
  run_test ${FUNCNAME} "\x4e" 0x90 8 1 ""
}

jsr_m5() {
  # (4ea8..4eaf) xxxx
  #
  # Zero value
  run_test ${FUNCNAME} "\x4e" 0xa8 8 1 "\x00\x00"
  # Positive value, all registers
  run_test ${FUNCNAME} "\x4e" 0xa8 8 1 "\x00\x0a"
  # Negative value
  run_test ${FUNCNAME} "\x4e" 0xa8 1 1 "\x80\x0f"
}

jsr_m6() {
  # (4eb0..4eb7) xxxx
  #
  # Positive value, Arbitrary An register
  run_test ${FUNCNAME} "\x4e" 0xb0 8 1 "\x00\x0f"
  # Negative value
  run_test ${FUNCNAME} "\x4e" 0xb0 1 1 "\x00\xf0"
  # Zero displacement
  run_test ${FUNCNAME} "\x4e" 0xb0 1 1 "\x00\x00"
  # Address register
  run_test ${FUNCNAME} "\x4e" 0xb0 1 1 "\x80\x0a"
  # Long displacement, positive
  run_test ${FUNCNAME} "\x4e" 0xb0 1 1 "\x08\x0c"
  # Long displacement, negative
  run_test ${FUNCNAME} "\x4e" 0xb0 1 1 "\x08\xb0"
  # Arbitrary Xn2
  run_test ${FUNCNAME} "\x4e\xb0" 0x00 8 0x10 "\x0f"
}

jsr_m7_xn0() {
  # 43b8 xxxx Word displacement
  #
  # Zero value
  run_test ${FUNCNAME} "\x4e\xb8\x00" 0x00 1 1 ""
  # Positive value
  run_test ${FUNCNAME} "\x4e\xb8\x00" 0x1f 1 1 ""
  # Negative value
  run_test ${FUNCNAME} "\x4e\xb8" 0x8a 1 1 "\x0c"
}

jsr_m7_xn1() {
  # 43b9 xxxx Long displacement
  #
  # Zero value
  run_test ${FUNCNAME} "\x4e\xb9\x00\x00\x00" 0x00 1 1 ""
  # Positive value
  run_test ${FUNCNAME} "\x4e\xb9\x10\xbb\x43" 0x1f 1 1 ""
  # Negative value
  run_test ${FUNCNAME} "\x4e\xb9\x80\xcc\xd9" 0x8a 1 1 ""
}

jsr_m7_xn2() {
  # 43ba xxxx
  #
  # Zero value
  run_test ${FUNCNAME} "\x4e\xba\x00" 0x00 1 1 ""
  # Positive value
  run_test ${FUNCNAME} "\x4e\xba\x00" 0x1f 1 1 ""
  # Negative value
  run_test ${FUNCNAME} "\x4e\xba" 0x8a 1 1 "\x0c"
}

jsr_m7_xn3() {
  # 43bb xxxx
  #
  # Positive value, Arbitrary Xn register
  run_test ${FUNCNAME} "\x4e\xbb" 0x00 8 0x10 "\x1a"
  # Negative value
  run_test ${FUNCNAME} "\x4e" 0xbb 1 1 "\x00\xf0"
  # Zero displacement
  run_test ${FUNCNAME} "\x4e" 0xbb 1 1 "\x00\x00"
  # Address register
  run_test ${FUNCNAME} "\x4e" 0xbb 1 1 "\x80\x0a"
  # Long displacement, positive
  run_test ${FUNCNAME} "\x4e" 0xbb 1 1 "\x08\x0c"
  # Long displacement, negative
  run_test ${FUNCNAME} "\x4e" 0xbb 1 1 "\x08\xb0"
  # Arbitrary Xn2
  run_test ${FUNCNAME} "\x4e\xbb" 0x00 8 0x10 "\x0f"
}

jsr_m2
jsr_m5
jsr_m6
jsr_m7_xn0
jsr_m7_xn1
jsr_m7_xn2
jsr_m7_xn3