6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2024-11-26 02:49:17 +00:00
Code Issues Projects Releases Wiki Activity

Rename mk-tcbase.fth to tc-base.fth, and add some comments.

Browse Source
This commit is contained in:
Philip Zembrod 2020-07-05 21:13:04 +02:00
parent dc1d1743e6
commit 50d3ba7499
4 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
6502/C64/Makefile
View File

@ -47,7 +47,7 @@ run-testbase16: emulator/testbase16.T64
# Targetcompiler targets # Targetcompiler targets
cbmfiles/tcbase: emulator/c64-testbase.T64 emulator/build-tcbase.sh \ cbmfiles/tcbase: emulator/c64-testbase.T64 emulator/build-tcbase.sh \
disks/vforth4_2.d64 disks/tc38q.d64 cbmfiles/mk-tcbase.fth disks/tc38q.d64 cbmfiles/tc-base.fth
emulator/build-tcbase.sh emulator/build-tcbase.sh
cbmfiles/c64-vf-latest: emulator/tcbase.T64 emulator/build-c64forth.sh \ cbmfiles/c64-vf-latest: emulator/tcbase.T64 emulator/build-c64forth.sh \

BIN
6502/C64/cbmfiles/tcbase
View File

Binary file not shown.

7
6502/C64/emulator/build-tcbase.sh
View File

@ -1,4 +1,7 @@
#!/bin/bash #!/bin/bash
# build script for the resident part of the target compiler running
# on the C64.
set -e set -e
emulatordir="$(dirname "${BASH_SOURCE[0]}")" emulatordir="$(dirname "${BASH_SOURCE[0]}")"
@ -6,8 +9,8 @@ basedir="$(realpath --relative-to="$PWD" "${emulatordir}/..")"
rm -f "${basedir}/cbmfiles/tcbase" rm -f "${basedir}/cbmfiles/tcbase"
keybuf="2 drive 4 load\ninclude mk-tcbase.fth\n\ keybuf="2 drive 4 load\ninclude tc-base.fth\n\
savesystem tcbase\ndos s0:notdone\n" savesystem tcbase\ndos s0:notdone\n"
DISK9=vforth4_2 DISK10=tc38q "${emulatordir}/run-in-vice.sh" \ DISK10=tc38q "${emulatordir}/run-in-vice.sh" \
"c64-testbase" "${keybuf}" "c64-testbase" "${keybuf}"

4
6502/C64/src/mk-tcbase.fth → 6502/C64/src/tc-base.fth
View File

@ -1,5 +1,7 @@
: edit list ; \ loadfile for the resident part of the target compiler.
' list alias edit
: .blk ( -) : .blk ( -)
blk @ ?dup IF ." Blk " u. ?cr THEN ; blk @ ?dup IF ." Blk " u. ?cr THEN ;