From 2f83a0bea9da444e3d70569eba3d6847ca02be03 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Fri, 21 Sep 2018 21:59:17 +0200 Subject: ... --- forth/forth/avr/pick.fs | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 forth/forth/avr/pick.fs (limited to 'forth/forth/avr/pick.fs') diff --git a/forth/forth/avr/pick.fs b/forth/forth/avr/pick.fs new file mode 100644 index 0000000..b27dfcb --- /dev/null +++ b/forth/forth/avr/pick.fs @@ -0,0 +1,6 @@ +\ PICK for the Atmega by +\ Pablo - EA4FUK + +\ xu ... x0 u -- xu ... x0 xu +: pick 2* sp@ + @ ; + -- cgit v1.2.3