From: Alan Cox <alan@linux.intel.com>
Date: Tue, 3 Jul 2018 16:45:54 +0000 (+0100)
Subject: trs80m1: ensure panic message isn't buffered and unseen
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=743ac21c14c0a936dc515cbae7e2ba5dcdedc1b3;p=FUZIX.git

trs80m1: ensure panic message isn't buffered and unseen
---

diff --git a/Kernel/platform-trs80m1/trs80.s b/Kernel/platform-trs80m1/trs80.s
index da89ba7f..76ac51d8 100644
--- a/Kernel/platform-trs80m1/trs80.s
+++ b/Kernel/platform-trs80m1/trs80.s
@@ -48,6 +48,7 @@
             .globl outcharhex
 	    .globl null_handler
 	    .globl fd_nmi_handler
+	    .globl _vtflush
 
             .include "kernel.def"
             .include "../kernel.def"
@@ -63,8 +64,12 @@ bufend:
             .area _COMMONMEM
 
 _platform_monitor:
+	    push af
+	    call _vtflush		; get any panic onscreen
+	    pop af
+monitor_spin:
 	    di
-	    jr _platform_monitor
+	    jr monitor_spin
 
 platform_interrupt_all:
 	    ret