examples: ral1243 - RAL1243 ROM v1.0.1 - back to menu RST clears poss…

…ible IEO from devices and IO flags

examples/ral1243/rom/ral1243_rom.rb

@@ -16,7 +16,7 @@
 class RAL_1243_Kernel
   include Z80
 
-  VERSION = "1.0.0"
+  VERSION = "1.0.1"
 
   def self.swap_bytes(word)
     hi, lo = (word >> 8)&0xFF, word&0xFF
@@ -270,13 +270,21 @@ class SystemVars < Label
                         ld   a, [sysvars.flags]
                         anda FLAGS_EX_ROM_TEST_MASK
                         ret  NZ
-                        di
-    back_to_menu        ld   a, 1
+    # PATCH 1.0.1 BEGIN (set IFF2 = 0 from NMI)
+    back_to_menu        di
+                        ld   a, 1
+    # PATCH 1.0.1 END
                         ld   i, a
                         ld   hl, [sysvars.ramtop]
                         inc  hl
                         ld   sp, hl
                         call reset_peripherals
+    # PATCH 1.0.1 BEGIN
+                        xor  a # clear IO/flags
+                        ld   [sysvars.io_flags], a
+                        call clear_ieo # a possible CTC/IEO
+                        call clear_ieo # a possible PIO/IEO
+    # PATCH 1.0.1 END
                         ei
                         jp   ex_rom_menu
   end
@@ -313,7 +321,9 @@ class SystemVars < Label
                         }
 
   none_int_handler      ei
-                        reti
+  # PATCH 1.0.1 BEGIN
+  clear_ieo             reti
+  # PATCH 1.0.1 END
 
   with_saved :ctc0_interrupt, af, hl, ret: :ei_reti do |eoc|
                         ld   hl, sysvars.frames0
@@ -708,7 +718,7 @@ class SystemVars < Label
                         put_char 0x15 # cursor
                         put_char 0x00 # hide
                         put_imm_text 0x0C, # clear terminal
-                          "RAL 1243 (c) All rights reserved j.k. 2019\r\nKernel version: #{VERSION}.\r\n\n",
+                          "RAL 1243 (c) All rights reserved j.k. 2019-2024\r\nKernel version: #{VERSION}.\r\n\n",
                           "Testing upper RAM: "
                         ld   hl, userrambot
     test_ram_loop       ld   [sysvars.ramtop], hl