Compare commits
16 Commits
5886da4a77
...
v1.1
| Author | SHA1 | Date | |
|---|---|---|---|
| c8fd3c309b | |||
| 66fe431416 | |||
| d15c50e691 | |||
| 8120de1713 | |||
| 37c56f30f7 | |||
| 3b8f72d53c | |||
| 3a7cbdf550 | |||
| 051aab4695 | |||
| bd1dbf9e19 | |||
| e2eefe89c2 | |||
| c068a870cf | |||
| 765263ab4c | |||
| c795732223 | |||
| b80c22eaff | |||
| 7154c9bfc8 | |||
| 55b456ec06 |
@@ -5,23 +5,30 @@ RUN apt-get update \
|
|||||||
&& apt-get install -y --no-install-recommends \
|
&& apt-get install -y --no-install-recommends \
|
||||||
build-essential \
|
build-essential \
|
||||||
make \
|
make \
|
||||||
|
python3-pip \
|
||||||
|
unzip \
|
||||||
&& rm -rf /var/lib/apt/lists/*
|
&& rm -rf /var/lib/apt/lists/*
|
||||||
|
|
||||||
ADD https://github.com/z00m128/sjasmplus.git#v1.21.0 /sjasmplus
|
ADD https://github.com/z00m128/sjasmplus.git#v1.21.0 /sjasmplus
|
||||||
RUN cd /sjasmplus && make && make install
|
RUN cd /sjasmplus && make -j8 && make install
|
||||||
ADD https://boarstone.mcphail.uk/mcphail/spectrum_remload.git /ttttt
|
ADD https://boarstone.mcphail.uk/mcphail/spectrum_remload.git /ttttt
|
||||||
RUN cd /ttttt && make ttttt
|
RUN cd /ttttt && make ttttt
|
||||||
ADD https://github.com/einar-saukas/ZX0.git /zx0
|
ADD https://github.com/einar-saukas/ZX0.git /zx0
|
||||||
RUN cd /zx0/src/ \
|
RUN cd /zx0/src/ \
|
||||||
&& gcc -O2 -o zx0 zx0.c optimize.c compress.c memory.c \
|
&& gcc -O2 -o zx0 zx0.c optimize.c compress.c memory.c \
|
||||||
&& gcc -O2 -o dzx0 dzx0.c
|
&& gcc -O2 -o dzx0 dzx0.c
|
||||||
ADD https://www.boriel.com/files/zxb/zxbasic-1.18.1-linux64.tar.gz .
|
ADD https://www.boriel.com/files/zxb/zxbasic-1.18.2-linux64.tar.gz .
|
||||||
RUN tar xf zxbasic*
|
RUN tar xf zxbasic*
|
||||||
|
ADD https://github.com/Mastodon-/inpaws.git /inpaws
|
||||||
|
RUN cd /inpaws/ \
|
||||||
|
&& make -j8
|
||||||
|
RUN python3 -m pip install --break-system-packages skoolkit
|
||||||
|
|
||||||
FROM build AS z88dk
|
FROM ubuntu:24.04 AS z88dk
|
||||||
RUN apt-get update \
|
RUN apt-get update \
|
||||||
&& apt-get install -y --no-install-recommends \
|
&& apt-get install -y --no-install-recommends \
|
||||||
bison \
|
bison \
|
||||||
|
build-essential \
|
||||||
ca-certificates \
|
ca-certificates \
|
||||||
ccache \
|
ccache \
|
||||||
cpanminus \
|
cpanminus \
|
||||||
@@ -44,6 +51,7 @@ RUN apt-get update \
|
|||||||
libxml2-dev \
|
libxml2-dev \
|
||||||
libyaml-perl \
|
libyaml-perl \
|
||||||
m4 \
|
m4 \
|
||||||
|
make \
|
||||||
perl \
|
perl \
|
||||||
pkg-config \
|
pkg-config \
|
||||||
ragel \
|
ragel \
|
||||||
@@ -54,11 +62,11 @@ RUN apt-get update \
|
|||||||
&& rm -rf /var/lib/apt/lists/*
|
&& rm -rf /var/lib/apt/lists/*
|
||||||
ENV Z88DK_PATH="/opt/z88dk"
|
ENV Z88DK_PATH="/opt/z88dk"
|
||||||
RUN cpanm -l $HOME/perl5 --no-wget local::lib Template::Plugin::YAML \
|
RUN cpanm -l $HOME/perl5 --no-wget local::lib Template::Plugin::YAML \
|
||||||
&& git clone --depth 1 --recursive https://github.com/z88dk/z88dk.git ${Z88DK_PATH} \
|
&& git clone --depth 1 --branch v2.3 --recursive https://github.com/z88dk/z88dk.git ${Z88DK_PATH} \
|
||||||
&& cd ${Z88DK_PATH} \
|
&& cd ${Z88DK_PATH} \
|
||||||
&& eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)" \
|
&& eval "$(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)" \
|
||||||
&& chmod 777 build.sh \
|
&& chmod 777 build.sh \
|
||||||
&& BUILD_SDCC=1 BUILD_SDCC_HTTP=1 ./build.sh \
|
&& BUILD_SDCC=1 BUILD_SDCC_HTTP=1 MAKE_CONCURRENCY=-j8 ./build.sh \
|
||||||
&& make install-clean bins-clean
|
&& make install-clean bins-clean
|
||||||
|
|
||||||
FROM ubuntu:24.04
|
FROM ubuntu:24.04
|
||||||
@@ -83,11 +91,11 @@ COPY --from=build /zxbasic/zxbasm.py /opt/zxbasic/zxbasm
|
|||||||
COPY --from=build /zxbasic/zxbc.py /opt/zxbasic/zxbc
|
COPY --from=build /zxbasic/zxbc.py /opt/zxbasic/zxbc
|
||||||
COPY --from=build /zxbasic/zxbpp.py /opt/zxbasic/zxbpp
|
COPY --from=build /zxbasic/zxbpp.py /opt/zxbasic/zxbpp
|
||||||
COPY --from=build /zxbasic/src /opt/zxbasic/src
|
COPY --from=build /zxbasic/src /opt/zxbasic/src
|
||||||
COPY --from=z88dk /opt/z88dk/bin /opt/z88dk/bin
|
COPY --from=build /zxbasic/tools /opt/zxbasic/tools
|
||||||
COPY --from=z88dk /opt/z88dk/lib /opt/z88dk/lib
|
COPY --from=build /inpaws/inpaws /bin/inpaws
|
||||||
COPY --from=z88dk /opt/z88dk/include /opt/z88dk/include
|
COPY --from=build /usr/local/bin/ /usr/local/bin/
|
||||||
ENV PATH="${PATH}:/opt/z88dk/bin:/opt/zxbasic"
|
COPY --from=build /usr/local/lib/python3.12/dist-packages/skoolkit/ /usr/local/lib/python3.12/dist-packages/skoolkit/
|
||||||
|
COPY --from=z88dk /opt/z88dk/ /opt/z88dk/
|
||||||
|
ENV PATH="${PATH}:/opt/z88dk/bin:/opt/zxbasic:/opt/zxbasic/tools"
|
||||||
ENV ZCCCFG="/opt/z88dk/lib/config"
|
ENV ZCCCFG="/opt/z88dk/lib/config"
|
||||||
USER ubuntu
|
USER ubuntu
|
||||||
RUN echo "PATH=$PATH:/opt/z88dk/bin:/opt/zxbasic" >> ~/.profile
|
|
||||||
RUN echo "export ZCCCFG=/opt/z88dk/lib/config/" >> ~/.profile
|
|
||||||
@@ -2,7 +2,7 @@
|
|||||||
"name": "ZX Spectrum dev tools",
|
"name": "ZX Spectrum dev tools",
|
||||||
//"build": { "dockerfile": "Dockerfile" },
|
//"build": { "dockerfile": "Dockerfile" },
|
||||||
// The Dockerfile takes an age to build due to z88dk, so pull from prebuilt:
|
// The Dockerfile takes an age to build due to z88dk, so pull from prebuilt:
|
||||||
"image": "boarstone.mcphail.uk/mcphail/speccydev:stable",
|
"image": "boarstone.mcphail.uk/mcphail/speccydev:v1.1",
|
||||||
"remoteUser": "ubuntu",
|
"remoteUser": "ubuntu",
|
||||||
"runArgs": [
|
"runArgs": [
|
||||||
"--network=host"
|
"--network=host"
|
||||||
|
|||||||
6
.gitignore
vendored
6
.gitignore
vendored
@@ -1,4 +1,8 @@
|
|||||||
.tmp/
|
.tmp/
|
||||||
*.tap
|
*.tap
|
||||||
*.sna
|
*.sna
|
||||||
*.sld
|
*.sld
|
||||||
|
*.tzx
|
||||||
|
*.block
|
||||||
|
*.zx0
|
||||||
|
*.bin
|
||||||
29
Makefile
29
Makefile
@@ -1,14 +1,35 @@
|
|||||||
myprog.sna myprog.tap myprog.sld: main.asm loader.asm print.asm
|
speccydev.tzx: speccydev.tap
|
||||||
sjasmplus --sld=myprog.sld --fullpath main.asm
|
tapeconv speccydev.tap speccydev.tzx
|
||||||
|
|
||||||
|
speccydev.tap: sjasm.tap loader.tap boriel.zx0.block
|
||||||
|
cat loader.tap sjasm.tap boriel.zx0.block > speccydev.tap
|
||||||
|
|
||||||
|
myprog.sna sjasm.tap myprog.sld: speccydev.asm dzx0_standard.asm boriel.zx0
|
||||||
|
sjasmplus --sld=myprog.sld --fullpath speccydev.asm
|
||||||
|
|
||||||
|
loader.tap: loader.bas
|
||||||
|
zmakebas -a 30 -n SpeccyDev -o loader.tap loader.bas
|
||||||
|
|
||||||
|
boriel.bin: boriel.zxb
|
||||||
|
zxbc -S 40000 -o boriel.bin boriel.zxb
|
||||||
|
|
||||||
|
boriel.zx0: boriel.bin
|
||||||
|
zx0 -f boriel.bin boriel.zx0
|
||||||
|
|
||||||
|
boriel.zx0.block: boriel.zx0
|
||||||
|
ttttt boriel.zx0 data
|
||||||
|
|
||||||
clean:
|
clean:
|
||||||
rm -f *.tap
|
rm -f *.tap
|
||||||
rm -f *.sna
|
rm -f *.sna
|
||||||
rm -f *.sld
|
rm -f *.sld
|
||||||
|
rm -f *.block
|
||||||
|
rm -f *.tzx
|
||||||
|
rm -f *.bin
|
||||||
|
rm -f *.zx0
|
||||||
rm -rf .tmp/
|
rm -rf .tmp/
|
||||||
|
|
||||||
start_new_project:
|
start_new_project: clean
|
||||||
make clean
|
|
||||||
rm -rf .git
|
rm -rf .git
|
||||||
git init -b main
|
git init -b main
|
||||||
git add .devcontainer/ .vscode/ .gitignore
|
git add .devcontainer/ .vscode/ .gitignore
|
||||||
|
|||||||
101
README.md
101
README.md
@@ -1,15 +1,15 @@
|
|||||||
# Development tools for the ZX Spectrum
|
# Development tools for the ZX Spectrum v1.1
|
||||||
|
|
||||||
The Dockerfile is the basis of the devcontainer and can be changed to add or remove tools. It will take a long time to build locally, so by default the devcontainer will pull a prebuilt version. Edit `.devcontainer/devcontainer.json` if you would rather build your own.
|
The Dockerfile is the basis of the devcontainer and can be changed to add or remove tools. It will take a long time to build locally, so by default the devcontainer will pull a prebuilt version. Edit `.devcontainer/devcontainer.json` if you would rather build your own.
|
||||||
|
|
||||||
The devcontainer contains:
|
The devcontainer contains:
|
||||||
- pasmo (assembler)
|
- pasmo version 0.5.3 (assembler)
|
||||||
- sjasmplus (assembler)
|
- sjasmplus version 1.21.0 (assembler)
|
||||||
- z80asm (assembler)
|
- z80asm version 1.8 (assembler)
|
||||||
- z80dasm (disassembler)
|
- z80dasm version 1.1.6 (disassembler)
|
||||||
- zmakebas (creates BASIC programs)
|
- zmakebas version 1.2b (creates BASIC programs)
|
||||||
- z88dk (C compiler and other utilities including assembler)
|
- z88dk version 2.3 (C compiler and other utilities including assembler)
|
||||||
- utilities from the FUSE emulator:
|
- utilities from the FUSE emulator version 1.4.3:
|
||||||
- audio2tape
|
- audio2tape
|
||||||
- createhdf
|
- createhdf
|
||||||
- fmfconv
|
- fmfconv
|
||||||
@@ -29,15 +29,94 @@ The devcontainer contains:
|
|||||||
- tzxlist
|
- tzxlist
|
||||||
- zx0 (binary compressor)
|
- zx0 (binary compressor)
|
||||||
- dzx0 (binary decompressor)
|
- dzx0 (binary decompressor)
|
||||||
- ZX BASIC (aka Boriel BASIC)
|
- ZX BASIC (aka Boriel BASIC) version 1.18.2
|
||||||
- zxbc (BASIC compiler)
|
- zxbc (BASIC compiler)
|
||||||
- zxbasm (assembler)
|
- zxbasm (assembler)
|
||||||
- zxbpp (preprocessor)
|
- zxbpp (preprocessor)
|
||||||
|
- various tools including nextcreator.py to build .nex files
|
||||||
- ttttt (converts binaries into .tap blocks)
|
- ttttt (converts binaries into .tap blocks)
|
||||||
|
- inpaws version 1.0.2 (interactive fiction compiler/extractor for Gilsoft's PAW)
|
||||||
|
- skoolkit version 9.6 (tools for creating browseable disassemblies of Spectrum games)
|
||||||
|
- sna2ctl.py
|
||||||
|
- sna2skool.py
|
||||||
|
- skool2html.py
|
||||||
|
- skool2asm.py
|
||||||
|
- skool2ctl.py
|
||||||
|
- skool2bin.py
|
||||||
|
- tap2sna.py
|
||||||
|
- snapinfo.py
|
||||||
|
- trace.py
|
||||||
|
- rzxplay.py
|
||||||
|
- tapinfo.py
|
||||||
|
- rzxinfo.py
|
||||||
|
- bin2tap.py
|
||||||
|
- bin2sna.py
|
||||||
|
- snapmod.py
|
||||||
|
- sna2img.py
|
||||||
- git (version control)
|
- git (version control)
|
||||||
- make (build control)
|
- make (build control)
|
||||||
|
|
||||||
Build the example project by running `make` from the terminal or the VSCode extension.
|
Several useful VSCode extentsions will be installed, including a Z80 assembly language server, Z80 and C debugger, Makefile support, BASIC syntax highlighter and more.
|
||||||
|
|
||||||
|
Thanks to the many authors of these wonderful tools and extensions; to think what we could have made with these in 1985!
|
||||||
|
|
||||||
|
## Install
|
||||||
|
|
||||||
|
This devcontainer should work in Windows, Linux and MacOS. It is recommended to install:
|
||||||
|
- git, then configure user name and email address
|
||||||
|
- docker, or alternative like podman
|
||||||
|
- (Windows only, optional) Windows Subsystem for Linux, version 2
|
||||||
|
- Microsoft's vscode
|
||||||
|
- the "Dev Containers" extension (from Microsoft) within vscode
|
||||||
|
|
||||||
|
Make sure docker (or your alternative) is running before trying to use the devcontainer.
|
||||||
|
|
||||||
|
## Usage
|
||||||
|
|
||||||
|

|
||||||
|
|
||||||
|
Open a terminal and navigate to the directory which will contain your Spectrum projects. Run `git clone https://github.com/mcphail/speccydev.git your_project_name` and enter that directory. Start vscode by running `code .` inside the directory.
|
||||||
|
|
||||||
|
If you have installed the Dev Containers extension correctly, a popup will offer to reload the project within a devcontainer. Go ahead and allow this. The first time you use this devcontainer, it may take a few minutes to download and start. It should open more quickly on subsequent use.
|
||||||
|
|
||||||
|
Open the bottom bar in vscode to expose the terminal or select "Terminal -> New Terminal" from the menu bar. Try running some Linux commands like `ls -lh` or `date`. Build the example project by running `make` from the terminal or the VSCode extension. Experiment with editing some of the source files and running `make` again. Experiment with some of the assemblers, compilers and other tools mentioned above. The `Makefile` contains example usage of tools like sjasmplus, zmakebas, Boriel's BASIC and the FUSE utilities.
|
||||||
|
|
||||||
|
When you are ready to start your own project, run `make start_new_project` to wipe out the example code and start afresh.
|
||||||
|
|
||||||
|
## Versions
|
||||||
|
|
||||||
|
This `main` branch of this repository will always point to the latest numbered release of the devcontainer image. This image will contain specific, numbered releases of the various tools as documented above. If the devcontainer is updated with non-breaking changes, the minor version number will be incremented. This gives reassurance that, say, a v1.7 devcontainer will contain tools which can compile programs made with a v1.2 devcontainer without issue.
|
||||||
|
|
||||||
|
If there is a breaking change in the tools, the major version number will be incremented. So a v2.0 devcontainer may not build projects made in a v1.7 devcontainer correctly. Please ensure all your collaborators are using appropriate devcontainer versions.
|
||||||
|
|
||||||
|
## Debugging
|
||||||
|
|
||||||
|
Debug in the built in simulator or in CSpect externally (example CSpect invocation on Windows would be `CSpect.exe -w2 -debug -remote`). The simulator is set up to expect a binary called `myprog.sna` and a map file called `myprog.sld` but this can be configured in the `.vscode/launch.json` file.
|
||||||
|
|
||||||
Debug in the built in simulator or in CSpect externally (example CSpect invocation on Windows would be `CSpect.exe -w2 -debug -remote`).
|
|
||||||
*Note: to use CSpect debugging from a Linux host you will have to edit the file `.vscode/launch.json` to change the `"hostname"` parameter to `"localhost"`*
|
*Note: to use CSpect debugging from a Linux host you will have to edit the file `.vscode/launch.json` to change the `"hostname"` parameter to `"localhost"`*
|
||||||
|
|
||||||
|
## Licences
|
||||||
|
|
||||||
|
pamso - copyright Julián Albo and released under the GPL
|
||||||
|
|
||||||
|
sjasmplus - copyright aprisobal and released under BSD 3-clause
|
||||||
|
|
||||||
|
z80asm - copyright Bas Wijnen and released under GPL v3 or later
|
||||||
|
|
||||||
|
z80dasm - copyright Jan Panteltje and Tomaz Solc and released under GPL v2
|
||||||
|
|
||||||
|
zmakebas - placed under Public Domain by Russell Marks
|
||||||
|
|
||||||
|
z88dk - copyright the z88dk authors and released under the Clarified Artistic License
|
||||||
|
|
||||||
|
FUSE utilities - copyright Philip Kendall and contributors and released under GPL v2
|
||||||
|
|
||||||
|
zx0 and dzx0 - copyright Einar Saukas and released under BSD 3-clause
|
||||||
|
|
||||||
|
Boriel BASIC - copyleft Jose Rodriguez-Rosa and released under AGPL v3 and portions under MIT
|
||||||
|
|
||||||
|
ttttt - placed under Public Domain by Neil McPhail
|
||||||
|
|
||||||
|
inpaws - copyright "Mastodon" and released under GPL v3
|
||||||
|
|
||||||
|
skoolkit - copyright Richard Dymond and Philip M Anderson and released under GPL v3 or later
|
||||||
|
|||||||
5
boriel.zxb
Normal file
5
boriel.zxb
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
10 CLS
|
||||||
|
20 FOR i = 0 TO 23
|
||||||
|
30 PRINT "ZX Spectrum Rules OK!"
|
||||||
|
40 NEXT i
|
||||||
|
50 PAUSE 0
|
||||||
61
dzx0_standard.asm
Normal file
61
dzx0_standard.asm
Normal file
@@ -0,0 +1,61 @@
|
|||||||
|
; -----------------------------------------------------------------------------
|
||||||
|
; ZX0 decoder by Einar Saukas & Urusergi
|
||||||
|
; "Standard" version (68 bytes only)
|
||||||
|
; -----------------------------------------------------------------------------
|
||||||
|
; Parameters:
|
||||||
|
; HL: source address (compressed data)
|
||||||
|
; DE: destination address (decompressing)
|
||||||
|
; -----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
dzx0_standard:
|
||||||
|
ld bc, $ffff ; preserve default offset 1
|
||||||
|
push bc
|
||||||
|
inc bc
|
||||||
|
ld a, $80
|
||||||
|
dzx0s_literals:
|
||||||
|
call dzx0s_elias ; obtain length
|
||||||
|
ldir ; copy literals
|
||||||
|
add a, a ; copy from last offset or new offset?
|
||||||
|
jr c, dzx0s_new_offset
|
||||||
|
call dzx0s_elias ; obtain length
|
||||||
|
dzx0s_copy:
|
||||||
|
ex (sp), hl ; preserve source, restore offset
|
||||||
|
push hl ; preserve offset
|
||||||
|
add hl, de ; calculate destination - offset
|
||||||
|
ldir ; copy from offset
|
||||||
|
pop hl ; restore offset
|
||||||
|
ex (sp), hl ; preserve offset, restore source
|
||||||
|
add a, a ; copy from literals or new offset?
|
||||||
|
jr nc, dzx0s_literals
|
||||||
|
dzx0s_new_offset:
|
||||||
|
pop bc ; discard last offset
|
||||||
|
ld c, $fe ; prepare negative offset
|
||||||
|
call dzx0s_elias_loop ; obtain offset MSB
|
||||||
|
inc c
|
||||||
|
ret z ; check end marker
|
||||||
|
ld b, c
|
||||||
|
ld c, (hl) ; obtain offset LSB
|
||||||
|
inc hl
|
||||||
|
rr b ; last offset bit becomes first length bit
|
||||||
|
rr c
|
||||||
|
push bc ; preserve new offset
|
||||||
|
ld bc, 1 ; obtain length
|
||||||
|
call nc, dzx0s_elias_backtrack
|
||||||
|
inc bc
|
||||||
|
jr dzx0s_copy
|
||||||
|
dzx0s_elias:
|
||||||
|
inc c ; interlaced Elias gamma coding
|
||||||
|
dzx0s_elias_loop:
|
||||||
|
add a, a
|
||||||
|
jr nz, dzx0s_elias_skip
|
||||||
|
ld a, (hl) ; load another group of 8 bits
|
||||||
|
inc hl
|
||||||
|
rla
|
||||||
|
dzx0s_elias_skip:
|
||||||
|
ret c
|
||||||
|
dzx0s_elias_backtrack:
|
||||||
|
add a, a
|
||||||
|
rl c
|
||||||
|
rl b
|
||||||
|
jr dzx0s_elias_loop
|
||||||
|
; -----------------------------------------------------------------------------
|
||||||
25
loader.asm
25
loader.asm
@@ -1,25 +0,0 @@
|
|||||||
MODULE basic_loader
|
|
||||||
ORG #5c00
|
|
||||||
basic_start:
|
|
||||||
db 0, 0 ; line number
|
|
||||||
dw line_length
|
|
||||||
line_start:
|
|
||||||
db #fd, '0', #0e, 0, 0 ; CLEAR
|
|
||||||
dw code_start_addr - 1
|
|
||||||
db 0, ':'
|
|
||||||
db #ef, '"' ; LOAD "
|
|
||||||
db "code"
|
|
||||||
db '"', #af, ':' ; name"CODE
|
|
||||||
db #f5, #c0 ; PRINT USR
|
|
||||||
db '0', #0e, 0, 0
|
|
||||||
dw code_run_addr
|
|
||||||
db 0, #0d
|
|
||||||
|
|
||||||
line_length EQU $ - line_start
|
|
||||||
basic_length EQU $ - basic_start
|
|
||||||
|
|
||||||
EMPTYTAP "myprog.tap"
|
|
||||||
SAVETAP "myprog.tap", BASIC, "myprog", basic_start, basic_length, 0
|
|
||||||
SAVETAP "myprog.tap", CODE, "code", code_start_addr, code_length
|
|
||||||
|
|
||||||
ENDMODULE
|
|
||||||
5
loader.bas
Normal file
5
loader.bas
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
10 REM This file was created
|
||||||
|
20 REM using zmakebas
|
||||||
|
30 CLEAR 32767
|
||||||
|
40 LOAD ""CODE
|
||||||
|
50 RANDOMIZE USR 32768
|
||||||
22
main.asm
22
main.asm
@@ -1,22 +0,0 @@
|
|||||||
code_start_addr EQU #8000
|
|
||||||
ORG code_start_addr
|
|
||||||
|
|
||||||
MODULE main
|
|
||||||
@code_run_addr:
|
|
||||||
ld a, 57
|
|
||||||
ld bc, 64
|
|
||||||
ld hl, 0
|
|
||||||
call print_string
|
|
||||||
db "Hello, world!", 0
|
|
||||||
ret
|
|
||||||
|
|
||||||
ENDMODULE
|
|
||||||
|
|
||||||
INCLUDE print.asm
|
|
||||||
|
|
||||||
code_length EQU $ - code_start_addr
|
|
||||||
|
|
||||||
DEVICE ZXSPECTRUM48
|
|
||||||
SLDOPT COMMENT WPMEM, LOGPOINT, ASSERTION
|
|
||||||
SAVESNA "myprog.sna", code_run_addr
|
|
||||||
INCLUDE loader.asm
|
|
||||||
180
print.asm
180
print.asm
@@ -1,180 +0,0 @@
|
|||||||
ink_black EQU 0
|
|
||||||
ink_blue EQU 1
|
|
||||||
ink_red EQU 2
|
|
||||||
ink_magenta EQU 3
|
|
||||||
ink_green EQU 4
|
|
||||||
ink_cyan EQU 5
|
|
||||||
ink_yellow EQU 6
|
|
||||||
ink_white EQU 7
|
|
||||||
black EQU ink_black
|
|
||||||
blue EQU ink_blue
|
|
||||||
red EQU ink_red
|
|
||||||
magenta EQU ink_magenta
|
|
||||||
green EQU ink_green
|
|
||||||
cyan EQU ink_cyan
|
|
||||||
yellow EQU ink_yellow
|
|
||||||
white EQU ink_white
|
|
||||||
paper_black EQU 0
|
|
||||||
paper_blue EQU 8
|
|
||||||
paper_red EQU 16
|
|
||||||
paper_magenta EQU 24
|
|
||||||
paper_green EQU 32
|
|
||||||
paper_cyan EQU 40
|
|
||||||
paper_yellow EQU 48
|
|
||||||
paper_white EQU 56
|
|
||||||
bright EQU 64
|
|
||||||
flash EQU 128
|
|
||||||
attr_list_end EQU flash | bright | ink_black | paper_black
|
|
||||||
|
|
||||||
MODULE print
|
|
||||||
bm_start EQU #4000
|
|
||||||
attr_area EQU #5800
|
|
||||||
bm_len EQU 6144
|
|
||||||
attr_len EQU 768
|
|
||||||
CHARS EQU #5c36
|
|
||||||
char_posn:
|
|
||||||
dw #4000
|
|
||||||
|
|
||||||
MODULE print_string
|
|
||||||
; Set HL to be row and column and follow the call with a null-terminated string
|
|
||||||
; All registers preserved
|
|
||||||
; char_posn will have been moved to after string, but HL will still have coordinates of string start
|
|
||||||
@print_string:
|
|
||||||
call set_char_posn
|
|
||||||
ex (sp), hl
|
|
||||||
push af
|
|
||||||
loop:
|
|
||||||
ld a, (hl)
|
|
||||||
inc hl
|
|
||||||
or a
|
|
||||||
jr z, exit
|
|
||||||
call print_char
|
|
||||||
jr loop
|
|
||||||
exit:
|
|
||||||
pop af
|
|
||||||
ex (sp), hl
|
|
||||||
ret
|
|
||||||
ENDMODULE
|
|
||||||
|
|
||||||
MODULE print_char
|
|
||||||
; Prints the single character from the A register
|
|
||||||
; All registers preserved
|
|
||||||
; char_posn will point to next square
|
|
||||||
@print_char:
|
|
||||||
push hl
|
|
||||||
push de
|
|
||||||
push af
|
|
||||||
ld h, 0
|
|
||||||
ld l, a
|
|
||||||
add hl, hl
|
|
||||||
add hl, hl
|
|
||||||
add hl, hl
|
|
||||||
ld d, h
|
|
||||||
ld e, l
|
|
||||||
ld hl, (print.CHARS)
|
|
||||||
add hl, de
|
|
||||||
ld d, h
|
|
||||||
ld e, l
|
|
||||||
ld hl, (print.char_posn)
|
|
||||||
push bc
|
|
||||||
ld b, 8
|
|
||||||
loop:
|
|
||||||
ld a, (de)
|
|
||||||
ld (hl), a
|
|
||||||
inc h
|
|
||||||
inc de
|
|
||||||
djnz loop
|
|
||||||
ld hl, (print.char_posn)
|
|
||||||
inc l
|
|
||||||
jr nz, update_char_posn
|
|
||||||
ld a, #50
|
|
||||||
cp h
|
|
||||||
jr nz, next_third
|
|
||||||
ld hl, print.bm_start
|
|
||||||
jr update_char_posn
|
|
||||||
next_third:
|
|
||||||
ld a, 8
|
|
||||||
add a, h
|
|
||||||
ld h, a
|
|
||||||
update_char_posn:
|
|
||||||
ld (print.char_posn), hl
|
|
||||||
pop bc
|
|
||||||
pop af
|
|
||||||
pop de
|
|
||||||
pop hl
|
|
||||||
ret
|
|
||||||
ENDMODULE
|
|
||||||
|
|
||||||
MODULE set_char_posn
|
|
||||||
; Pass row and column, in that order, in HL
|
|
||||||
@set_char_posn:
|
|
||||||
push hl
|
|
||||||
push af
|
|
||||||
ld a, h
|
|
||||||
; check for top third
|
|
||||||
ld h, %01000000
|
|
||||||
sub 8
|
|
||||||
jr c, set_column
|
|
||||||
; check for middle third
|
|
||||||
ld h, %01001000
|
|
||||||
sub 8
|
|
||||||
jr c, set_column
|
|
||||||
; must be bottom third
|
|
||||||
ld h, %01010000
|
|
||||||
sub 8
|
|
||||||
set_column:
|
|
||||||
; restore the row offset of the third and shift it into upper 3 bits of L
|
|
||||||
add a, 8
|
|
||||||
sla a
|
|
||||||
sla a
|
|
||||||
sla a
|
|
||||||
sla a
|
|
||||||
sla a
|
|
||||||
or l
|
|
||||||
ld l, a
|
|
||||||
ld (print.char_posn), hl
|
|
||||||
pop af
|
|
||||||
pop hl
|
|
||||||
ret
|
|
||||||
ENDMODULE
|
|
||||||
|
|
||||||
MODULE set_attributes
|
|
||||||
; Row and column in HL
|
|
||||||
; db list of attributes follows call
|
|
||||||
; terminate with attr_list_end byte (bright flashing black on black)
|
|
||||||
@set_attributes:
|
|
||||||
ex de, hl
|
|
||||||
ex (sp), hl
|
|
||||||
push de
|
|
||||||
push hl
|
|
||||||
ld h, 0
|
|
||||||
ld l, d
|
|
||||||
ld d, h
|
|
||||||
add hl, hl
|
|
||||||
add hl, hl
|
|
||||||
add hl, hl
|
|
||||||
add hl, hl
|
|
||||||
add hl, hl
|
|
||||||
add hl, de
|
|
||||||
ld de, print.attr_area
|
|
||||||
add hl, de
|
|
||||||
pop de
|
|
||||||
ex de, hl
|
|
||||||
push af
|
|
||||||
loop:
|
|
||||||
ld a, (hl)
|
|
||||||
inc hl
|
|
||||||
cp attr_list_end
|
|
||||||
jr z, exit
|
|
||||||
ld (de), a
|
|
||||||
inc de
|
|
||||||
jr loop
|
|
||||||
exit:
|
|
||||||
pop af
|
|
||||||
pop de
|
|
||||||
ex (sp), hl
|
|
||||||
ex de, hl
|
|
||||||
ret
|
|
||||||
ENDMODULE
|
|
||||||
|
|
||||||
ENDMODULE
|
|
||||||
BIN
res/speccydev.gif
Normal file
BIN
res/speccydev.gif
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 304 KiB |
36
speccydev.asm
Normal file
36
speccydev.asm
Normal file
@@ -0,0 +1,36 @@
|
|||||||
|
code_start_addr EQU #8000
|
||||||
|
org code_start_addr
|
||||||
|
|
||||||
|
; headerless load
|
||||||
|
scf
|
||||||
|
ld a, #ff
|
||||||
|
ld de, boriel_size
|
||||||
|
ld ix, compressed_boriel
|
||||||
|
call #0556
|
||||||
|
|
||||||
|
decompress:
|
||||||
|
ld hl, compressed_boriel
|
||||||
|
ld de, uncompressed_boriel
|
||||||
|
call dzx0.dzx0_standard
|
||||||
|
|
||||||
|
call uncompressed_boriel
|
||||||
|
ret
|
||||||
|
|
||||||
|
MODULE dzx0
|
||||||
|
INCLUDE "dzx0_standard.asm"
|
||||||
|
ENDMODULE
|
||||||
|
|
||||||
|
code_length EQU $ - code_start_addr
|
||||||
|
|
||||||
|
compressed_boriel:
|
||||||
|
INCBIN "boriel.zx0"
|
||||||
|
boriel_size EQU $ - compressed_boriel
|
||||||
|
|
||||||
|
uncompressed_boriel EQU 40000
|
||||||
|
|
||||||
|
|
||||||
|
DEVICE ZXSPECTRUM48
|
||||||
|
SLDOPT COMMENT WPMEM, LOGPOINT, ASSERTION
|
||||||
|
SAVESNA "myprog.sna", decompress
|
||||||
|
EMPTYTAP "sjasm.tap"
|
||||||
|
SAVETAP "sjasm.tap", CODE, "sjasm", code_start_addr, code_length
|
||||||
Reference in New Issue
Block a user