From b1940d5f9fa6cbb97aa0f7cef0a5fa61b6cb2c95 Mon Sep 17 00:00:00 2001
From: Mike Pavone <pavone@retrodev.com>
Date: Wed, 26 Dec 2012 20:18:58 -0800
Subject: vertical interrupts now work

---
 runtime.S | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'runtime.S')

diff --git a/runtime.S b/runtime.S
index bf7e06d..69b2dc2 100644
--- a/runtime.S
+++ b/runtime.S
@@ -16,6 +16,7 @@ handle_cycle_limit_int:
 	cmp 88(%rsi), %eax
 	jb skip_int
 	push %rcx
+	/* call print_int_dbg */
 	/* swap USP and SSP if not already in supervisor mode */
 	bt $5, 5(%rsi)
 	jc already_supervisor
@@ -50,6 +51,17 @@ already_supervisor:
 	jmp *%rcx
 skip_int:
 	ret
+	
+int_dbg_msg:
+	.asciz "Executing Interrupt!"
+print_int_dbg:
+	call m68k_save_context
+	push %rsi
+	lea int_dbg_msg(%rip), %rdi
+	call puts
+	pop %rsi
+	call m68k_load_context
+	ret
 
 	.global get_sr
 get_sr:
-- 
cgit v1.2.3