6502/VolksForth
1
0
Fork 0
mirror of https://github.com/forth-ev/VolksForth.git synced 2025-02-19 09:31:02 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #22 from pzembrod/c64-390

Browse Source 
C64 390
This commit is contained in:
Carsten Strotmann 2020-08-04 13:10:15 +02:00 committed by GitHub
commit cf43b63042
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
13 changed files with 44 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
6502/C64/Makefile
View File

@ -30,6 +30,8 @@ clean:
# Convenience targets # Convenience targets
binaries: $(vf_binaries)
test: $(test_resuls) test: $(test_resuls)
test64: full64 lite64 test64: full64 lite64
@ -94,14 +96,14 @@ test-lite-c64.log: emulator/vf-lite-c64.T64
"include run-lite-tests.fth\n1234567890\n" "include run-lite-tests.fth\n1234567890\n"
petscii2ascii cbmfiles/test.log $@ petscii2ascii cbmfiles/test.log $@
test-full-c16+.log: emulator/vf-full-c16+.T64 test-full-c16+.log: emulator/vf-full-c16+.T64 disks/scratch.d64
VICE=xplus4 emulator/run-in-vice.sh vf-full-c16+ \ VICE=xplus4 emulator/run-in-vice.sh vf-full-c16+ \
"include run-min-tests.fth\n1234567890\n" "include run-full-tests.fth\n1234567890\n"
petscii2ascii cbmfiles/test.log $@ petscii2ascii cbmfiles/test.log $@
test-lite-c16+.log: emulator/vf-lite-c16+.T64 test-lite-c16+.log: emulator/vf-lite-c16+.T64
VICE=xplus4 emulator/run-in-vice.sh vf-lite-c16+ \ VICE=xplus4 emulator/run-in-vice.sh vf-lite-c16+ \
"include run-min-tests.fth\n1234567890\n" "include run-lite-tests.fth\n1234567890\n"
petscii2ascii cbmfiles/test.log $@ petscii2ascii cbmfiles/test.log $@
test-full-c16-.log: emulator/vf-full-c16-.T64 test-full-c16-.log: emulator/vf-full-c16-.T64
@ -111,7 +113,7 @@ test-full-c16-.log: emulator/vf-full-c16-.T64
test-lite-c16-.log: emulator/vf-lite-c16-.T64 test-lite-c16-.log: emulator/vf-lite-c16-.T64
VICE=xplus4 emulator/run-in-vice.sh vf-lite-c16- \ VICE=xplus4 emulator/run-in-vice.sh vf-lite-c16- \
"include run-min-tests.fth\n1234567890\n" "include run-lite-tests.fth\n1234567890\n"
petscii2ascii cbmfiles/test.log $@ petscii2ascii cbmfiles/test.log $@
test-%.result: test-%.log test-%.golden tests/evaluate-test.sh test-%.result: test-%.log test-%.golden tests/evaluate-test.sh
@ -130,19 +132,20 @@ test-lite-c64.golden: $(patsubst %, tests/golden/%.golden, \
prelim core coreext double report-noblk) prelim core coreext double report-noblk)
cat $? > $@ cat $? > $@
c16_golden_parts = $(patsubst %, tests/golden/%.golden, \ test-full-c16+.golden: $(patsubst %, tests/golden/%.golden, \
prelim core) prelim core coreext double block report-blk)
test-full-c16+.golden: $(c16_golden_parts)
cat $? > $@ cat $? > $@
test-lite-c16+.golden: $(c16_golden_parts) test-lite-c16+.golden: $(patsubst %, tests/golden/%.golden, \
prelim core coreext double report-noblk)
cat $? > $@ cat $? > $@
test-full-c16-.golden: $(c16_golden_parts) test-full-c16-.golden: $(patsubst %, tests/golden/%.golden, \
prelim core)
cat $? > $@ cat $? > $@
test-lite-c16-.golden: $(c16_golden_parts) test-lite-c16-.golden: $(patsubst %, tests/golden/%.golden, \
prelim core coreext double report-noblk)
cat $? > $@ cat $? > $@
# Rules for building Forth binaries on top of the plain vanilla # Rules for building Forth binaries on top of the plain vanilla

BIN
6502/C64/cbmfiles/vf-full-c16+
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/vf-lite-c16+
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/vf-lite-c16-
View File

Binary file not shown.

BIN
6502/C64/cbmfiles/vf-lite-c64
View File

Binary file not shown.

25
6502/C64/src/vf-finalize.fth
View File

@ -55,29 +55,4 @@ xyNext Constant xyNext
(2drop Constant Poptwo (2drop Constant Poptwo
(drop Constant Pop (drop Constant Pop
\ *** Block No. 125, Hexblock 7d
7d fthpage
\ System patchup clv06aug87
Forth definitions Forth definitions
(C64 C000 ' limit >body ! 7B00 s0 ! 7F00 r0 ! )
(C16 8000 ' limit >body ! 7700 s0 ! 7b00 r0 ! )
\ (C16+ fd00 ' limit >body !
\ 7B00 s0 ! 7F00 r0 ! )
s0 @ dup s0 2- ! 6 + s0 7 - !
here dp !
Host Tudp @ Target udp !
Host Tvoc-link @ Target voc-link !
Host move-threads
\ Final part of loadscreen
Assembler nonrelocate
.unresolved

2
6502/C64/src/vf-full-c16+.fth
View File

@ -11,6 +11,8 @@ include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-cbm-bufs.fth include vf-cbm-bufs.fth
include vf-finalize.fth include vf-finalize.fth
fd00 ' limit >body ! bc00 s0 ! c000 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-full-c16-.fth
View File

@ -11,6 +11,8 @@ include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-cbm-bufs.fth include vf-cbm-bufs.fth
include vf-finalize.fth include vf-finalize.fth
8000 ' limit >body ! 7700 s0 ! 7b00 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-full-c64.fth
View File

@ -11,6 +11,8 @@ include vf-sys-c64.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-cbm-bufs.fth include vf-cbm-bufs.fth
include vf-finalize.fth include vf-finalize.fth
C000 ' limit >body ! 7B00 s0 ! 7F00 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-lite-c16+.fth
View File

@ -10,6 +10,8 @@ include vf-cbm-core.fth
include vf-sys-c16.fth include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-finalize.fth include vf-finalize.fth
fd00 ' limit >body ! f900 s0 ! fd00 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-lite-c16-.fth
View File

@ -10,6 +10,8 @@ include vf-cbm-core.fth
include vf-sys-c16.fth include vf-sys-c16.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-finalize.fth include vf-finalize.fth
8000 ' limit >body ! 7c00 s0 ! 8000 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

2
6502/C64/src/vf-lite-c64.fth
View File

@ -10,6 +10,8 @@ include vf-cbm-core.fth
include vf-sys-c64.fth include vf-sys-c64.fth
include vf-cbm-file.fth include vf-cbm-file.fth
include vf-finalize.fth include vf-finalize.fth
c000 ' limit >body ! bc00 s0 ! c000 r0 !
include vf-memsetup.fth
include vf-pr-target.fth include vf-pr-target.fth
quit quit

18
6502/C64/src/vf-memsetup.fth Normal file
View File

@ -0,0 +1,18 @@
\ *** Block No. 125, Hexblock 7d
7d fthpage
\ System patchup clv06aug87
s0 @ dup s0 2- ! 6 + s0 7 - !
here dp !
Host Tudp @ Target udp !
Host Tvoc-link @ Target voc-link !
Host move-threads
\ Final part of loadscreen
Assembler nonrelocate
.unresolved