From d80736ab6e8e3cad2f1a30c6eaba2d6883dbe967 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Sat, 26 Aug 2017 20:31:40 +0200 Subject: Remove AmForth --- amforth-6.5/tests/assembler-test.frt | 58 ----------------------------------- amforth-6.5/tests/multitask-test.frt | 45 --------------------------- amforth-6.5/tests/quotations-test.frt | 19 ------------ amforth-6.5/tests/test-quotations.frt | 19 ------------ amforth-6.5/tests/test-rega.frt | 41 ------------------------- 5 files changed, 182 deletions(-) delete mode 100644 amforth-6.5/tests/assembler-test.frt delete mode 100644 amforth-6.5/tests/multitask-test.frt delete mode 100644 amforth-6.5/tests/quotations-test.frt delete mode 100644 amforth-6.5/tests/test-quotations.frt delete mode 100644 amforth-6.5/tests/test-rega.frt (limited to 'amforth-6.5/tests') diff --git a/amforth-6.5/tests/assembler-test.frt b/amforth-6.5/tests/assembler-test.frt deleted file mode 100644 index b769f3d..0000000 --- a/amforth-6.5/tests/assembler-test.frt +++ /dev/null @@ -1,58 +0,0 @@ -\ ----- Test AvrAsm ----- - -only forth also assembler - -: loadtos, 24 Y+ ld, 25 Y+ ld, ; \ define macro -: savetos, -Y 25 st, -Y 24 st, ; \ from macros.asm - -code dup_ savetos, end-code \ insert asm code -code drop_ loadtos, end-code - -code ++_ \ ( x1 x2 x3 -- x4 ) - R14 2 ldi, \ + + - label> - R16 Y+ ld, - R17 Y+ ld, - R24 R16 add, - R25 R17 adc, - R14 1 subi, - 0 jmp, \ -+ -\ label> \ | +>-+ -\ clc, \ | | | -\ adr> rjmp, \ | | +-+ -\ nop, \ | | | -\ brcc, \ | | +-+ -\ nop, \ | | | -\ rot | | -\ swap 0 jmp, 0 >lbl \ addr->lbl[0] -\ label> 1 >lbl -\ clc, -\ adr> rjmp, 2 >lbl -\ nop, -\ 2 brcc, 3 >lbl -\ nop, -\ 0 tos -\ 1 tid - activate \ words after this line are run in new task - run-demo -; -: starttasker - task_demo task-init \ create TCB in RAM - start-demo \ activate tasks job - - onlytask \ make cmd loop task-1 - task_demo tcb>tid alsotask \ start task-2 - multi \ activate multitasking -; -: run-turnkey - applturnkey - init - starttasker -; -' run-turnkey is turnkey \ make run-turnkey start on power up diff --git a/amforth-6.5/tests/quotations-test.frt b/amforth-6.5/tests/quotations-test.frt deleted file mode 100644 index 26057a8..0000000 --- a/amforth-6.5/tests/quotations-test.frt +++ /dev/null @@ -1,19 +0,0 @@ -\ anonymous definitions in a definition - -: if-else ( ... f xt1 xt2 -- ... ) -\ Postscript-style if-else - rot if - drop - else - nip - then - execute ; - -: test ( f -- ) - [: ." true" ;] - [: ." false" ;] - if-else ; - -\ 1 test cr \ writes "true" -\ 0 test cr \ writes "false" - diff --git a/amforth-6.5/tests/test-quotations.frt b/amforth-6.5/tests/test-quotations.frt deleted file mode 100644 index 87c99d5..0000000 --- a/amforth-6.5/tests/test-quotations.frt +++ /dev/null @@ -1,19 +0,0 @@ -\ anonymous definitions in a definition - -: if-else ( ... f xt1 xt2 -- ... ) -\ Postscript-style if-else - rot if - drop - else - nip - then - execute ; - -: test ( f -- ) - [: ." true" ;] - [: ." false" ;] - if-else ; - -1 test cr \ writes "true" -0 test cr \ writes "false" - diff --git a/amforth-6.5/tests/test-rega.frt b/amforth-6.5/tests/test-rega.frt deleted file mode 100644 index 58e06c1..0000000 --- a/amforth-6.5/tests/test-rega.frt +++ /dev/null @@ -1,41 +0,0 @@ -\ #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