From a5745813e442b66ae6eed30bba81d1b3dd5cf634 Mon Sep 17 00:00:00 2001 From: "Juan J. Martinez" Date: Sat, 17 Apr 2021 22:05:24 +0100 Subject: Initial public release --- player/Makefile | 20 ++++++++++++ player/README.md | 13 ++++++++ player/bin2h.py | 40 ++++++++++++++++++++++++ player/player.z80 | 93 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 166 insertions(+) create mode 100644 player/Makefile create mode 100644 player/README.md create mode 100755 player/bin2h.py create mode 100644 player/player.z80 (limited to 'player') diff --git a/player/Makefile b/player/Makefile new file mode 100644 index 0000000..c837be5 --- /dev/null +++ b/player/Makefile @@ -0,0 +1,20 @@ +all: player.bin + +CC = sdcc +AS = sdasz80 +AR = sdar +CFLAGS = -mz80 --Werror --fsigned-char --std-sdcc99 --opt-code-speed +LDFLAGS = --no-std-crt0 --fomit-frame-pointer + +%.rel: %.z80 + $(AS) -g -o $@ $< + +player.bin: player.rel + $(CC) $(CFLAGS) $(LDFLAGS) --code-loc 20480 --data-loc 0 -o player.ihx $< + hex2bin -p 00 player.ihx + ./bin2h.py player.bin player > ../player.h + +.PHONY: clean +clean: + rm -f *.rel *.ihx *.bin *.map *.noi *.lk + diff --git a/player/README.md b/player/README.md new file mode 100644 index 0000000..d9f0c96 --- /dev/null +++ b/player/README.md @@ -0,0 +1,13 @@ +This builds a player to be run from sfxed emulator. + +Changing this is not completely supported, but if you really want to do it, it +is possible! + +## Build instructions + +This requires in your PATH: + +* SDCC +* Python 3 +* hex2bin; for example [you can use this version](https://github.com/reidrac/ubox-msx-lib/tree/master/tools/hex2bin-2.0) + diff --git a/player/bin2h.py b/player/bin2h.py new file mode 100755 index 0000000..d0395fd --- /dev/null +++ b/player/bin2h.py @@ -0,0 +1,40 @@ +#!/usr/bin/env python3 + +from argparse import ArgumentParser + +__version__ = "1.0" + + +def main(): + + parser = ArgumentParser(description="Bin to H converter", + epilog="Copyright (C) 2014-2021 Juan J Martinez ", + ) + + parser.add_argument("--version", action="version", + version="%(prog)s " + __version__) + parser.add_argument("file", help="file to convert") + parser.add_argument("id", help="variable to use") + + args = parser.parse_args() + + with open(args.file, "rb") as fd: + data = bytearray(fd.read()) + + data_out = "" + for part in range(0, len(data), 8): + if data_out: + data_out += ",\n" + data_out += ', '.join(["0x%02x" % b for b in data[part: part + 8]]) + + print("/* file: %s */" % args.file) + print("#define %s_LEN %d\n" % (args.id.upper(), len(data))) + print("#ifdef LOCAL") + print("const unsigned char %s[] = {\n%s\n};\n" % (args.id, data_out)) + print("#else") + print("extern const unsigned char %s[];\n" % args.id) + print("#endif") + + +if __name__ == "__main__": + main() diff --git a/player/player.z80 b/player/player.z80 new file mode 100644 index 0000000..d6fed1a --- /dev/null +++ b/player/player.z80 @@ -0,0 +1,93 @@ +ISR_TABLE_START = 0xfe00 +ISR_TABLE_START_LO = 0xfe +ISR_TABLE_VALUE = 0xfd +ISR_TABLE_START_JP = 0xfdfd + +EFX_TABLE_ADDR = 32000 +EFX_IN_ADDR = EFX_TABLE_ADDR - 1 + +.area _HOME +.area _CODE +.area _INITIALIZER +.area _GSINIT +.area _GSFINAL + +.area _DATA +.area _INITIALIZED +.area _BSEG +.area _BSS +.area _HEAP + +.area _CODE + +_main:: + di + ld sp, #0 + ei + + ld hl, #EFX_TABLE_ADDR + ld (sfx_data), hl + + ld hl, #ISR_TABLE_START + ld (hl), #ISR_TABLE_VALUE + ld e, l + ld d, h + inc de + ld bc, #257 + ldir + + ld a, #ISR_TABLE_START_LO + ld i, a + im 2 + + ld hl, #ISR_TABLE_START_JP + ld de, #isr + ld a, #0xc3 + ld (hl), a + inc hl + ld (hl), e + inc hl + ld (hl), d + ei + + ld a, (EFX_IN_ADDR) + ld l, a + call _beeper_queue + +wait:: + ld a, (sfx_type) + or a + jr nz, wait + + halt + halt + halt + halt + + out (0xff), a + + di + halt + +isr: + ex af,af + push hl + push ix + push iy + push bc + push de + + call _beeper_play + + pop de + pop bc + pop iy + pop ix + pop hl + ex af,af + ei + + ret + +.include "../sdcc/beeper.z80" + -- cgit v1.2.3