Merge pull request #1151 from GmEsoft/GmEsoft_fix_trs80.s

Fixed routine '_hd_xfer_out' in Kernel/platform/platform-trs80/trs80.s:

Author: EtchedPixels

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