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 f23f22d71c Initial data commit
2023-07-01 13:44:08 -04: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