First slightly hacky setup that makes the core.fr tests pass for CPM

This commit is contained in:
Philip Zembrod 2023-08-25 21:15:27 +02:00
parent 63b507db05
commit 3c288beac5
5 changed files with 1045 additions and 3 deletions

View File

@ -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

View File

@ -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

File diff suppressed because it is too large Load Diff

View File

@ -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