From 6f86ce7057dd7cd1b491e8f09501258822d2ea74 Mon Sep 17 00:00:00 2001 From: Dimitri Sokolyuk Date: Tue, 23 May 2017 17:06:09 +0200 Subject: Import j1demo --- j1demo/firmware/packet.fs | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 j1demo/firmware/packet.fs (limited to 'j1demo/firmware/packet.fs') diff --git a/j1demo/firmware/packet.fs b/j1demo/firmware/packet.fs new file mode 100644 index 0000000..b188cc5 --- /dev/null +++ b/j1demo/firmware/packet.fs @@ -0,0 +1,11 @@ +( Packet construction, tx, rx JCB 13:25 08/24/10) +module[ packet" + +: packet@ ( u -- u ) + mac-inoffset mac@ ; + +: packetd@ ( u -- ud ) + mac-inoffset dup 2+ mac@ swap mac@ ; + + +]module -- cgit v1.2.3