aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/tests/assembler-test.frt
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/tests/assembler-test.frt')
-rw-r--r--amforth-6.5/tests/assembler-test.frt58
1 files changed, 0 insertions, 58 deletions
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,
- <radr brne,
-end-code
-
-previous
-
-\ code demojmp \ demo jump + dup
-\ adr> 0 jmp, \ -+
-\ label> \ | +>-+
-\ clc, \ | | |
-\ adr> rjmp, \ | | +-+
-\ nop, \ | | |
-\ <labelr \ | | +<+
-\ adr> brcc, \ | | +-+
-\ nop, \ | | |
-\ rot <labell \ +> | |
-\ swap <radr rjmp, \ '-+ |
-\ <labelb \ <-+
-\ savetos,
-\ end-code
-
-\ code demojmp \ version with vector
-\ adr> 0 jmp, 0 >lbl \ addr->lbl[0]
-\ label> 1 >lbl
-\ clc,
-\ adr> rjmp, 2 >lbl
-\ nop,
-\ 2 <lbl <labelr
-\ adr> brcc, 3 >lbl
-\ nop,
-\ 0 <lbl <labell \ lbl[0]->tos
-\ 1 <lbl <radr rjmp,
-\ 3 <lbl <labelb
-\ savetos,
-\ end-code
-
-
-2 3 4 ++_ . \ 9
-5 6 drop_ dup_ . . \ 5 5
-
-\ end of file