From 6dd598be0cf67cff3c892660dd0edf4ed882d5c2 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Tue, 19 Feb 2019 22:18:22 -0500
Subject: [PATCH] disassemble prodos mli calls.

---
 src/debug_shell.re2c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/debug_shell.re2c b/src/debug_shell.re2c
index 2cea63b..5b47665 100644
--- a/src/debug_shell.re2c
+++ b/src/debug_shell.re2c
@@ -497,6 +497,21 @@ word32 do_list(word32 address, int lines) {
 					}
 				}
 				break;
+			case 0x20: /* jsr */
+				if (operand == 0xbf00) {
+					unsigned num = get_memory_c(address, 0);
+					const char *name = debug_tool_name(num, operand);
+					if (name) {
+						opcode_string = name;
+						unsigned parms = get_memory16_c(address + 1, 0);
+						sprintf(buffer, "$%04x", parms);
+
+						for (i = 0; i < 3; ++i) {
+							buffer2[bsize++] = get_memory_c(address++, 0);
+						}
+					}
+				}
+				break;
 		}
 
 		n = printf("%02x/%04x: %s %s",