From 79f866505582c4e8e6e7ead838bdb7bdc3c31396 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 14 Nov 2021 13:53:38 +0000
Subject: [PATCH] Add machinery for building a working `.tap' file.

I maintain the ZX BASIC loader program using FUSE, so, alas, the
`spectrum-loader.tap' file is the `preferred' form for modification.
I'd like something less awful.
---
 .gitignore          |   1 +
 Makefile            |   8 +++++++-
 spectrum-loader.tap | Bin 0 -> 71 bytes
 tapify              |  33 +++++++++++++++++++++++++++++++++
 4 files changed, 41 insertions(+), 1 deletion(-)
 create mode 100644 spectrum-loader.tap
 create mode 100755 tapify

diff --git a/.gitignore b/.gitignore
index a89285e..6477f1c 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 *.img
+/spectrum-fizzbuzz.tap
diff --git a/Makefile b/Makefile
index eeaf9d2..9bef433 100644
--- a/Makefile
+++ b/Makefile
@@ -6,10 +6,16 @@ clean::
 TARGETS			 =
 CLEANFILES		 = $(TARGETS)
 
-TARGETS		+= spectrum-fb.img
+CLEANFILES		+= spectrum-fb.img
 spectrum-fb.img: fizzbuzz.s
 	z80asm -o $@ $^
 
+TARGETS			+= spectrum-fizzbuzz.tap
+spectrum-fizzbuzz.tap: tapify spectrum-loader.tap spectrum-fb.img
+	{ cat spectrum-loader.tap; \
+	  ./tapify 3 fb 0x7000 0x8000 <spectrum-fb.img; } \
+		>$@.new && mv $@.new $@
+
 all: $(TARGETS)
 
 clean::; rm -f $(CLEANFILES)
diff --git a/spectrum-loader.tap b/spectrum-loader.tap
new file mode 100644
index 0000000000000000000000000000000000000000..3ea384f3f58b0b7bcffc57d7794c7d0bd76ec22c
GIT binary patch
literal 71
zcmWe;U|>kgtg1>Xt*TN`&|~0Y&|?rXVEE6##mn&5$imFrh!3cufPt4mgq`8NQd*MI
PdR_)OK8BwMkR{6iAL<VB

literal 0
HcmV?d00001

diff --git a/tapify b/tapify
new file mode 100755
index 0000000..79adf5b
--- /dev/null
+++ b/tapify
@@ -0,0 +1,33 @@
+#! /usr/bin/perl
+
+use autodie;
+
+sub intify ($) {
+  my ($n) = @_;
+  if ($n =~ /^0/) { $n = oct $n; }
+  return $n;
+}
+
+sub frame ($$) {
+  my ($flag, $d) = @_;
+  my $a = $flag;
+  for (my $i = 0; $i < length $d; $i++) { $a ^= ord substr $d, $i, 1; }
+  return pack("S< C", 2 + length $d, $flag) . $d . chr($a);
+}
+
+@ARGV == 4 or die "usage: $0 TY NAME P1 P2";
+my ($ty, $name, $p1, $p2) = @ARGV;
+
+my $body = "";
+READ: for (;;) {
+  sysread STDIN, my $buf, 4096;
+  last READ unless length $buf;
+  $body .= $buf;
+}
+
+my $tap = "";
+$tap .= frame 0, pack "C A10 S< S< S<",
+  $ty, $name, length $body, intify $p1, intify $p2;
+$tap .= frame 255, $body;
+
+syswrite STDOUT, $tap;
-- 
2.11.0