# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1708845397 28800
# Node ID 6bec9e66d0db0a2c85dfdb8806b0cdf1afe7d34e
# Parent  db32408394c3cd9627427bd5aea5484c5088c38d
Implement link instruction in new 68K core

diff -r db32408394c3 -r 6bec9e66d0db m68k.cpu
--- a/m68k.cpu	Sat Feb 24 23:16:29 2024 -0800
+++ b/m68k.cpu	Sat Feb 24 23:16:37 2024 -0800
@@ -1722,6 +1722,17 @@
 	update_flags NZV0C0
 	m68k_prefetch
 
+0100111001010RRR link
+	a7 -= 4
+	scratch2 = a7
+	#TODO: confirm order of fetch and write
+	m68k_write32 aregs.R
+	m68k_prefetch
+	aregs.R = a7
+	sext 32 scratch1 scratch1
+	a7 += scratch1
+	m68k_prefetch
+
 0100111001110000 reset
 	if reset_handler
 	pcall reset_handler m68k_reset_handler context