Merge pull request #1151 from GmEsoft/GmEsoft_fix_trs80.s

Fixed routine '_hd_xfer_out' in Kernel/platform/platform-trs80/trs80.s:
EtchedPixels · Feb 4, 2025 · 8934ef7 · 8934ef7
2 parents 881f98a + 1a48dd0
commit 8934ef7
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/Kernel/platform/platform-trs80/trs80.s b/Kernel/platform/platform-trs80/trs80.s
@@ -197,6 +197,12 @@ _hd_xfer_out:
 	   call nz, map_proc_a
 	   ld bc, #0xC8			; 256 bytes to 0xC8
 	   otir
+xfer_out_wait:				; busy wait after OTIR
+	   ex (sp), hl
+	   ex (sp), hl
+	   in a,(0xCF)
+	   rlca
+	   jr c, xfer_out_wait
 	   call map_kernel
 	   ret