From 67d25d837ac55f28a366c0a3b262e439a6e75fc3 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 19 Aug 2017 12:15:28 +0200 Subject: Add AmForth --- amforth-6.5/tests/test-rega.frt | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 amforth-6.5/tests/test-rega.frt (limited to 'amforth-6.5/tests/test-rega.frt') diff --git a/amforth-6.5/tests/test-rega.frt b/amforth-6.5/tests/test-rega.frt new file mode 100644 index 0000000..58e06c1 --- /dev/null +++ b/amforth-6.5/tests/test-rega.frt @@ -0,0 +1,41 @@ +\ #requires tester-amforth.frt + +TESTING VM Register A +hex + +\ ------------------------------------------------------------------------ +TESTING basic assumtions + +variable atest 10 allot +atest >a + +0 constant false +-1 constant true + +$55aa constant pattern + + +{ a> atest = -> true } +{ pattern a! -> } +\ address must not change +{ a> atest = -> true } +{ a@ pattern = -> true } +\ address must not change +{ a> atest = -> true } + +TESTING address changes. +{ pattern a!+ -> } +\ address must increase by 1 cell +{ a> atest cell+ = -> true } + +{ pattern a!- -> } +\ address must decrease by 1 cell +{ a> atest = -> true } + +{ a@+ pattern = -> true } +\ address must increase by 1 cell +{ a> atest cell+ = -> true } + +{ a@- pattern = -> true } +\ address must decrease by 1 cell +{ a> atest = -> true } -- cgit v1.2.3