5 lines
70 B
Plaintext
5 lines
70 B
Plaintext
( send-and-crc7 )
|
|
( n c -- c )
|
|
: _s+crc SWAP DUP _sdcSR DROP _crc7 ;
|
|
|