1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

function Int28ToLongWord(aValue: TInt28): LongWord;
asm
  // Int28:
  // The MSB of every Byte is set to 0 and does not influence the value.

  // Take the rightmost byte and let it there,
  // take the second rightmost byte and move it 7bit to left
  //                                    (in an 32bit-variable)
  // a.s.o.
  // Result := (aValue[3]) shl  0 or
  //           (aValue[2]) shl  7 or
  //           (aValue[1]) shl 14 or
  //           (aValue[0]) shl 21;

  MOV EDX, EAX;
  XOR EAX, EAX;
  OR   AL,  DL;
  SHL EAX, $07;
  OR   AL,  DH;
  SHL EAX, $07;
  SHR EDX, $10;
  OR   AL,  DL;
  SHL EAX, $07;
  OR   AL,  DH;
end;

function LongWordToInt28(aValue: LongWord): TInt28;
asm
  // move every byte in Value to the right, take the 7 LSBs
  // and assign them to the result
  // Result[3] := (aValue shr  0) and $7F;
  // Result[2] := (aValue shr  7) and $7F;
  // Result[1] := (aValue shr 14) and $7F;
  // Result[0] := (aValue shr 21) and $7F;

  MOV EDX, EAX;
  SHL  AX, $08;
  SHR EDX, $07;
  MOV  AL,  DL;
  SHL EAX, $10;
  SHR EDX, $07;
  MOV  AH,  DL;
  SHR EDX, $07;
  MOV  AL,  DL;
  AND EAX, $7F7F7F7F;
end;