zx128: on a panic halt and spin

This makes it much easier to debug in FUSE

diff --git a/Kernel/platform-zx128/zx128.s b/Kernel/platform-zx128/zx128.s
index 20e1215..1699fd1 100644 (file)
--- a/Kernel/platform-zx128/zx128.s
+++ b/Kernel/platform-zx128/zx128.s
@@ -49,6 +49,9 @@
             .area _COMMONMEM
 
 _trap_monitor:
+       di
+       halt
+
         ld a, #128
         ; out (29), a ; TODO: go where? BASIC48?
 platform_interrupt_all: