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/ans-shim.fth) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, tests/prelim.fth) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, tests/tester.fth) \
|
||||
$(patsubst tests/%, $(cpmfilesdir)/%, tests/core.fth) \
|
||||
| emu
|
||||
./emulator/run-in-runcpm.sh \
|
||||
"volks4th" \
|
||||
@ -81,11 +83,16 @@ test-std.log: \
|
||||
"include ans-shim.fth" \
|
||||
": \\vf [compile] \\ ; immediate" \
|
||||
"include prelim.fth" \
|
||||
"include tester.fth" \
|
||||
"include core.fth" \
|
||||
"logclose" \
|
||||
"bye" \
|
||||
"exit"
|
||||
dos2unix -n $(runcpmdir)/logfile.txt $@
|
||||
|
||||
tests/core.fth: tests/core.fr
|
||||
cp -p $< $@
|
||||
|
||||
emu: $(runcpmdir)/RunCPM
|
||||
|
||||
%.golden: tests/golden/%.golden
|
||||
|
File diff suppressed because one or more lines are too long
@ -134,8 +134,8 @@
|
||||
|
||||
\ *** Block No. 7, Hexblock 7
|
||||
|
||||
\ \ phz 05apr22
|
||||
\\
|
||||
\ \ phz 25aug23
|
||||
|
||||
: \ blk @ IF >in @ negate c/l mod >in +!
|
||||
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 ---
|
||||
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
|
||||
|
Loading…
Reference in New Issue
Block a user