From 11e4ac42701e6d4b53425b806908aec3c47f548f Mon Sep 17 00:00:00 2001 From: Ian C Date: Thu, 29 Dec 2016 10:03:47 +0000 Subject: Attempt to wrap CPC TAP in CDT. --- src/cpcout.c | 13 +++++++++++++ src/example/cpc.asm | 2 +- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/src/cpcout.c b/src/cpcout.c index 659ba28..c893097 100644 --- a/src/cpcout.c +++ b/src/cpcout.c @@ -140,6 +140,11 @@ int CPCOutput(const char *filename, const char *filename_bank, /* Output the binary files */ + WriteString(fp, "ZXTape!", 7, 0, CP_ASCII); + WriteByte(fp, 0x1a); + WriteByte(fp, 1); + WriteByte(fp, 13); + for(f = 0; f < count; f++) { const Byte *mem; @@ -160,6 +165,10 @@ int CPCOutput(const char *filename, const char *filename_bank, first = 0; last = 0; + WriteWord(fp, 10); + WriteWord(fp, 1000); + WriteWord(fp, 0x1d + 2); + WriteWord(fp, 0x1d); WriteByte(fp, 0x2c); @@ -201,6 +210,10 @@ int CPCOutput(const char *filename, const char *filename_bank, /* Output file data */ + WriteWord(fp, 10); + WriteWord(fp, 1000); + WriteWord(fp, blocklen + 5); + WriteWord(fp, blocklen + 3); WriteByte(fp, 0x16); diff --git a/src/example/cpc.asm b/src/example/cpc.asm index aa9fcb0..1a368f2 100644 --- a/src/example/cpc.asm +++ b/src/example/cpc.asm @@ -4,7 +4,7 @@ ; ; RUN "" - option output-file,cpc.tap + option output-file,cpc.cdt option output-format,cpc option cpc-start,start -- cgit v1.2.3