diff options
Diffstat (limited to 'mzf2wav/src/methods.c')
| -rw-r--r-- | mzf2wav/src/methods.c | 160 |
1 files changed, 160 insertions, 0 deletions
diff --git a/mzf2wav/src/methods.c b/mzf2wav/src/methods.c new file mode 100644 index 0000000..74ffdec --- /dev/null +++ b/mzf2wav/src/methods.c @@ -0,0 +1,160 @@ +#include "methods.h" + +// Global variables. +int speed_2 = 2; + +// Defenitions. +// This is the turbo loader in MZF format. +byte program[300] = { + 0x01, // Program type. + + 0x0d, 0x0d, 0x0d, 0x0d, 0x0d, // Room for the + 0x0d, 0x0d, 0x0d, 0x0d, 0x0d, // image name. + 0x0d, 0x0d, 0x0d, 0x0d, 0x0d, 0x0d, 0x0d, + + 0x5a, 0x00, // File size. + 0x00, 0xd4, // Load adress. + 0x00, 0xd4, // Execution adress. + '[', 't', 'u', 'r', 'b', 'o', ']', // The first 7 bytes. + + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // Room for comment. + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // minus 7 bytes. + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, + 0x00, 0x00, 0x00, 0x00, 0x00, + + 0xcd, 0x00, // End Header. + + // Begin Program. + 0x3e, 0x08, // D400: LD A, 08h + 0xd3, 0xce, // D402: OUT (0ceh), A ; Set video mode? + + 0xe5, // D404: PUSH HL + + 0x21, 0x00, 0x00, // D405: LD HL, 0000h + 0xd3, 0xe4, // D408: OUT (0e4h), A ; Bank switch to ROM? + + 0x7e, // D40A: LD A, (HL) + 0xd3, 0xe0, // D40B: OUT (0e0h), A ; Bank switch to RAM? + + 0x77, // D40D: LD (HL), A + 0x23, // D40E: INC HL + + 0x7c, // D40F: LD A, H + 0xfe, 0x10, // D410: CP 10h + 0x20, 0xf4, // D412: JR NZ, f4h ; Jump 0xf4 forward if A != 0x10 + + 0x3a, 0x4b, 0xd4, // D414: LD A, (d44bh) + 0x32, 0x4b, 0x0a, // D417: LD (0a4bh), A ; (0x0a4b) = (0xd44b) + 0x3a, 0x4c, 0xd4, // D41A: LD A, (d44ch) + 0x32, 0x12, 0x05, // D41D: LD (0512h), A ; (0xd44c) = (0x0512) + 0x21, 0x4d, 0xd4, // D420: LD HL, d44dh + 0x11, 0x02, 0x11, // D423: LD DE, 1102h + 0x01, 0x0d, 0x00, // D426: LD BC, 000dh + 0xed, 0xb0, // D429: LDIR ; Copy 0x0d bytes from (HL) to (DE) + + 0xe1, // D42B: POP HL + + 0x7c, // D42C: LD A, H + 0xfe, 0xd4, // D42D: CP d4h + 0x28, 0x12, // D42F: JR Z, 12h ; Jump to label #1 if A == 0xd4 + + 0x2a, 0x04, 0x11, // D431: LD HL, (1104h) + 0xd9, // D434: EXX ; BC/DE/HL <-> BC'/DE'/HL' + 0x21, 0x00, 0x12, // D435: LD HL, 1200h + 0x22, 0x04, 0x11, // D438: LD (1104h), HL + 0xcd, 0x2a, 0x00, // D43B: CALL 002ah ; Read data subroutine. + 0xd3, 0xe4, // D43E: OUT (0e4h), A ; Bank switch to ROM? + 0xc3, 0x9a, 0xe9, // D440: JP e99ah ; Jump to 0xe99a + + 0xcd, 0x2a, 0x00, // D443: CALL (002ah) ; Label #1 (read data sub). + 0xd3, 0xe4, // D446: OUT (0e4h), A ; Bank switch to ROM? + 0xc3, 0x24, 0x01, // D448: JP (0124h) + // End program. + + 0x15, 0x01, // D44B: + + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, // Room for the address information + 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00 // + the first 7 bytes of comment. +}; + +// Public functions. +// Transfer file the fast way. +void trans(byte *image) { + word cs = 0x0, + fs = getfilesize(image), + i = 0x0; + + gap(4000); // Longish gap. + tapemark(40); // Long tapemark. + + for (i = 0x0; i < 0x80; i++) // The mzf header. + cs += writebyte(image[i]); + writecs(cs); // The checksum of the mzf header. + + gap(5000); // Shortish gap. + tapemark(20); // Short tapemark. + + cs = 0x0; + fs += 0x80; + for (i = 0x80; i < fs; i++) // The mzf body. + cs += writebyte(image[i]); + writecs(cs); // The checksum of the mzf body. +}//trans + +// Transfer the file the conventional way. +void conv(byte *image) { + word cs = 0x0, + fs = getfilesize(image), + i = 0x0; + + gap(22000); // Long gap. + tapemark(40); // Long tapemark. + + for (i = 0x0; i < 0x80; i++) // The mzf header. + cs += writebyte(image[i]); + writecs(cs); // The checksum of the mzf header. + + gap(256); // 256 short pulses. + + for (i = 0x0; i < 0x80; i++) // The copy of the mzf header. + writebyte(image[i]); + writecs(cs); // The copy of the checksum of the mzf header. + + gap(11000); // Short gap. + tapemark(20); // Short tapemark. + + cs = 0x0; + fs += 0x80; + for (i = 0x80; i < fs; i++) // The mzf body. + cs += writebyte(image[i]); + writecs(cs); // The checksum of the body. + + gap(256); // 256 short pulses. + + for (i = 0x80; i < fs; i++) // The copy of the mzf body. + writebyte(image[i]); + writecs(cs); // The copy of checksum of the body. +}//conv + +// First write a turbo loader, then write the image at high speed. +void turbo(byte *image) { + int j = 0; + + for (j = 0x1; j < 0x12; j++) // Copy the name. + program[j] = image[j]; + for (j = 0x1f; j < 0x80; j++) // Copy the comment. + program[j] = image[j]; + for (j = 0x12; j < 0x1f; j++) // Copy the info. + program[j + 0x3b + 0x80] = image[j]; + + trans(program); + setspeed(speed_2); + trans(image); +}//turbo |