/dports/security/libadacrypt/Ada-Crypto-Library-abc534f/src/ |
H A D | crypto-symmetric-algorithm-tripledes.adb | 163 W:= (Shift_Right(Left,4) xor Right) and 16#0f0f0f0f#; 172 W := (Shift_Right(Right,2) xor Left) and 16#33333333#; 177 W := (Shift_Right(Right,8) xor left) and 16#00ff00ff#; 204 Fval := Fval or SP5(Shift_Right(W, 8) and 16#3f#); 205 Fval := Fval or SP3(Shift_Right(W, 16) and 16#3f#); 215 Fval := Fval or SP6(Shift_Right(W, 8) and 16#3f#); 216 Fval := Fval or SP4(Shift_Right(W, 16) and 16#3f#); 217 Fval := Fval or SP2(Shift_Right(W, 24) and 16#3f#); 227 W := Shift_left(Left, 28) or Shift_Right(Left, 4); 232 Fval := Fval or SP5(Shift_Right(W, 8) and 16#3f#); [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/ada/ |
H A D | s-wchcnv.adb | 356 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 363 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 371 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 373 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 382 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 384 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 386 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 395 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 397 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 399 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/ada/ |
H A D | s-wchcnv.adb | 356 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 363 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 371 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 373 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 382 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 384 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 386 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 395 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 397 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 399 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/ada/ |
H A D | s-wchcnv.adb | 356 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 363 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 371 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 373 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 382 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 384 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 386 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 395 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 397 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 399 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/ada/ |
H A D | s-wchcnv.adb | 356 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 363 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 371 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 373 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 382 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 384 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 386 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 395 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 397 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 399 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc9-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly5.5/9.1.0/adainclude/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/ada/libgnat/ |
H A D | s-wchcnv.adb | 353 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 360 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 368 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 370 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 379 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 381 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 383 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 392 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 394 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 396 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/ada/ |
H A D | s-wchcnv.adb | 356 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 363 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 371 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 373 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 382 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 384 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 386 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 395 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 397 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 399 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/lang/gcc6-aux/bootstrap/lib/gcc/x86_64-aux-dragonfly4.1/5.1.0/adainclude/ |
H A D | s-wchcnv.adb | 356 Out_Char (Character'Val (2#11000000# or Shift_Right (U, 6))); 363 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 371 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 373 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 382 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 384 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) 386 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 6) 395 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 24) 397 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 18) 399 Out_Char (Character'Val (2#10000000# or (Shift_Right (U, 12) [all …]
|
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/ada/ |
H A D | s-wchwts.adb | 81 R (RP + 2) := Hex (Shift_Right (CV, 12)); 82 R (RP + 3) := Hex (Shift_Right (CV, 8) and 16#000F#); 83 R (RP + 4) := Hex (Shift_Right (CV, 4) and 16#000F#); 91 R (RP + 1) := Character'Val (Shift_Right (CV, 8)); 119 Character'Val (2#11000000# or Shift_Right (CV, 6)); 126 Character'Val (2#11100000# or Shift_Right (CV, 12)); 129 (Shift_Right (CV, 6) and 146 R (RP + 3) := Hex (Shift_Right (CV, 12)); 147 R (RP + 4) := Hex (Shift_Right (CV, 8) and 16#000F#); 148 R (RP + 5) := Hex (Shift_Right (CV, 4) and 16#000F#);
|