From 0f86ef1aee145e100859082a7a705f689ae60f94 Mon Sep 17 00:00:00 2001
From: mooinglemur <mooinglemur@users.noreply.github.com>
Date: Fri, 6 Oct 2023 17:21:16 -0700
Subject: [PATCH] error handling

---
 dos/main.s | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/dos/main.s b/dos/main.s
index 3fa56b0d..0d8c4e50 100644
--- a/dos/main.s
+++ b/dos/main.s
@@ -559,6 +559,17 @@ dos_mciout:
 	stz ieee_status
 
 	jsr file_write_block
+	bcc @end
+
+	phx
+	phy
+	jsr file_close_clr_channel
+	lda #$01 ; write timeout to indicate error
+	tsb ieee_status
+	clc
+	ply
+	plx
+
 @end:
 	BANKING_END
 	rts