From 0ff621423425bfc33c826ad360fda287cba8086e Mon Sep 17 00:00:00 2001
From: aap <aap@papnet.eu>
Date: Thu, 20 May 2021 16:59:16 +0200
Subject: [PATCH] made serial version compile; change dtr2dta to generate
 plenty of end of tape marks

---
 emu/main_serial.c |  9 +++++++++
 tools/dtr2dta.c   | 20 ++++++++++++++------
 2 files changed, 23 insertions(+), 6 deletions(-)

diff --git a/emu/main_serial.c b/emu/main_serial.c
index 424a5aa..4784ad9 100644
--- a/emu/main_serial.c
+++ b/emu/main_serial.c
@@ -8,6 +8,15 @@
 
 // TODO: get rid of this
 void updatepanel(Apr *apr) {}
+void writeconsreg(Apr *apr, u32 addr, u32 data)
+{ // stub
+}
+u32
+readconsreg(Apr *apr, u32 addr)
+{
+	// stub
+	return 0;
+}
 
 #define KEYPULSE(k) (apr->k && !oldapr.k)
 
diff --git a/tools/dtr2dta.c b/tools/dtr2dta.c
index 7c12e95..44b15e2 100644
--- a/tools/dtr2dta.c
+++ b/tools/dtr2dta.c
@@ -257,8 +257,11 @@ dumpdtr(word *wp, word *bmp, word *ibp, FILE *f)
 	int i, j;
 	int ck;
 
-	wrf(f, TapeEndR, nil, 0);
-	wrf(f, TapeEndR, nil, 0);
+	for(i = 0; i < 2700; i++)
+	{
+		wrf(f, TapeEndR, nil, 0);
+		wrf(f, TapeEndR, nil, 0);
+	}
 
 	for(i = 0; i < NUMBLOCKS; i++){
 		w = *bmp++;
@@ -269,8 +272,10 @@ dumpdtr(word *wp, word *bmp, word *ibp, FILE *f)
 		wrf(f, DataSync, nil, LDB(18, 18, w));
 		wrf(f, DataEndR, nil, LDB(0, 18, w));
 
-		ck = 0;
-		wrf(f, DataEndR, &ck, 0007777);	// rev check
+		ck = 077;
+//		wrf(f, DataEndR, nil, 0007777);	// rev check
+		// this seems what 551 actually does
+		wrf(f, DataEndR, nil, 0000000);	// rev check
 
 		/* the data */
 		w = *wp++;
@@ -296,8 +301,11 @@ dumpdtr(word *wp, word *bmp, word *ibp, FILE *f)
 		wrf(f, BlockSpace, nil, LDB(0, 18, w));	// rev block mark
 	}
 
-	wrf(f, TapeEndF, nil, 0);
-	wrf(f, TapeEndF, nil, 0);
+	for(i = 0; i < 2700; i++)
+	{
+		wrf(f, TapeEndF, nil, 0);
+		wrf(f, TapeEndF, nil, 0);
+	}
 }
 
 uchar*