RosettaCodeData/Task/Bitwise-operations/Fortran/bitwise-operations-2.f

2 lines
107 B
Forth

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