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 ------------------------------------ 1 file changed, 58 deletions(-) delete mode 100644 amforth-6.5/tests/assembler-test.frt (limited to 'amforth-6.5/tests/assembler-test.frt') 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