packet.fs 202 B

1234567891011
  1. ( Packet construction, tx, rx JCB 13:25 08/24/10)
  2. module[ packet"
  3. : packet@ ( u -- u )
  4. mac-inoffset mac@ ;
  5. : packetd@ ( u -- ud )
  6. mac-inoffset dup 2+ mac@ swap mac@ ;
  7. ]module