mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-22 05:32:28 +00:00
First slightly hacky setup that makes the core.fr tests pass for CPM
This commit is contained in:
parent
63b507db05
commit
3c288beac5
@ -72,6 +72,8 @@ test-std.log: \
|
|||||||
$(patsubst tests/%, $(cpmfilesdir)/%, tests/log2file.fb) \
|
$(patsubst tests/%, $(cpmfilesdir)/%, tests/log2file.fb) \
|
||||||
$(patsubst tests/%, $(cpmfilesdir)/%, tests/ans-shim.fth) \
|
$(patsubst tests/%, $(cpmfilesdir)/%, tests/ans-shim.fth) \
|
||||||
$(patsubst tests/%, $(cpmfilesdir)/%, tests/prelim.fth) \
|
$(patsubst tests/%, $(cpmfilesdir)/%, tests/prelim.fth) \
|
||||||
|
$(patsubst tests/%, $(cpmfilesdir)/%, tests/tester.fth) \
|
||||||
|
$(patsubst tests/%, $(cpmfilesdir)/%, tests/core.fth) \
|
||||||
| emu
|
| emu
|
||||||
./emulator/run-in-runcpm.sh \
|
./emulator/run-in-runcpm.sh \
|
||||||
"volks4th" \
|
"volks4th" \
|
||||||
@ -81,11 +83,16 @@ test-std.log: \
|
|||||||
"include ans-shim.fth" \
|
"include ans-shim.fth" \
|
||||||
": \\vf [compile] \\ ; immediate" \
|
": \\vf [compile] \\ ; immediate" \
|
||||||
"include prelim.fth" \
|
"include prelim.fth" \
|
||||||
|
"include tester.fth" \
|
||||||
|
"include core.fth" \
|
||||||
"logclose" \
|
"logclose" \
|
||||||
"bye" \
|
"bye" \
|
||||||
"exit"
|
"exit"
|
||||||
dos2unix -n $(runcpmdir)/logfile.txt $@
|
dos2unix -n $(runcpmdir)/logfile.txt $@
|
||||||
|
|
||||||
|
tests/core.fth: tests/core.fr
|
||||||
|
cp -p $< $@
|
||||||
|
|
||||||
emu: $(runcpmdir)/RunCPM
|
emu: $(runcpmdir)/RunCPM
|
||||||
|
|
||||||
%.golden: tests/golden/%.golden
|
%.golden: tests/golden/%.golden
|
||||||
|
File diff suppressed because one or more lines are too long
@ -134,8 +134,8 @@
|
|||||||
|
|
||||||
\ *** Block No. 7, Hexblock 7
|
\ *** Block No. 7, Hexblock 7
|
||||||
|
|
||||||
\ \ phz 05apr22
|
\ \ phz 25aug23
|
||||||
\\
|
|
||||||
: \ blk @ IF >in @ negate c/l mod >in +!
|
: \ blk @ IF >in @ negate c/l mod >in +!
|
||||||
ELSE #tib @ >in ! THEN ; immediate
|
ELSE #tib @ >in ! THEN ; immediate
|
||||||
|
|
||||||
|
1010
8080/CPM/tests/core.fr
Normal file
1010
8080/CPM/tests/core.fr
Normal file
File diff suppressed because it is too large
Load Diff
@ -43,4 +43,29 @@ and no error messages
|
|||||||
|
|
||||||
--- End of Preliminary Tests ---
|
--- End of Preliminary Tests ---
|
||||||
ok
|
ok
|
||||||
|
include tester.fth
|
||||||
|
TESTER.FTH ERROR exists ok
|
||||||
|
include core.fth
|
||||||
|
CORE.FTH
|
||||||
|
*********************YOU SHOULD SEE THE STANDARD GRAPHIC CHARACTERS:
|
||||||
|
!"#$%&'()*+,-./0123456789:;<=>?@
|
||||||
|
ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`
|
||||||
|
abcdefghijklmnopqrstuvwxyz{|}~
|
||||||
|
YOU SHOULD SEE 0-9 SEPARATED BY A SPACE:
|
||||||
|
0 1 2 3 4 5 6 7 8 9
|
||||||
|
YOU SHOULD SEE 0-9 (WITH NO SPACES):
|
||||||
|
0123456789
|
||||||
|
YOU SHOULD SEE A-G SEPARATED BY A SPACE:
|
||||||
|
A B C D E F G
|
||||||
|
YOU SHOULD SEE 0-5 SEPARATED BY TWO SPACES:
|
||||||
|
0 1 2 3 4 5
|
||||||
|
YOU SHOULD SEE TWO SEPARATE LINES:
|
||||||
|
LINE 1
|
||||||
|
LINE 2
|
||||||
|
YOU SHOULD SEE THE NUMBER RANGES OF SIGNED AND UNSIGNED NUMBERS:
|
||||||
|
SIGNED: -8000 7FFF
|
||||||
|
UNSIGNED: 0 FFFF
|
||||||
|
** GDX exists
|
||||||
|
End of Core word set tests
|
||||||
|
ok
|
||||||
logclose
|
logclose
|
||||||
|
Loading…
Reference in New Issue
Block a user