aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions
RosettaCodeData/Task/Bitwise-operations/Fortran/bitwise-operations-2.f
Ingy döt Net 518da4a923 B
2013-04-10 16:19:29 -07:00

1 line
107 B
Forth
Raw Permalink Blame History

call mvbits(k, 2, 4, j, 0) ! copy a sequence of 4 bits from k starting at bit 2 into j starting at bit 0
Reference in a new issue View git blame Copy permalink