diff runtime.S @ 87:60b5c9e2f4e0

vertical interrupts now work
author Mike Pavone <pavone@retrodev.com>
date Wed, 26 Dec 2012 20:18:58 -0800
parents 3d3966c254b2
children dd3c680c618c
line wrap: on
line diff
--- a/runtime.S	Wed Dec 26 18:20:23 2012 -0800
+++ b/runtime.S	Wed Dec 26 20:18:58 2012 -0800
@@ -16,6 +16,7 @@
 	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 @@
 	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: