12 lines
202 B
Forth
12 lines
202 B
Forth
( 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
|